Google
 

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





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


	PRODUCT CODE:	MAINDEC-10-DBKAF

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

	FUNCTION:	BOOLE, HWT, TEST

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


1.0	ABSTRACT

	THIS PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	SIXTH IN A SERIES OF PDP-10 KI10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE BOOLE, HWT AND TEST INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

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

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

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

PRODUCT CODE:		MAINDEC-10-DBKAF

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #6

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

************************************************************************
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 1
DBKAFT	MAC	30-JUL-76 12:36		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

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

    24					SUBTTL	DIAGNOSTIC PARAMETERS
    25
    26					;PARAMETER DEFINITIONS
    27			000001		EXCASB==1
    28			000001		USRASB==1
    29			000001		PGMEND==1
    30			000100		DEBUG==100
    31
    32					;FLAG DEFINITIONS
    33			010000		USERF=10000		;USER MODE FLAG
    34
    35
    36					;MACROS
    37
    38					;SPECIAL FEATURE PARAMETERS
    39
    40			030712		SADR1=START
    41			030712		SADR2=START
    42			030712		SADR3=START
    43			030712		SADR4=START
    44		254000	030712		SADR5=JRST START
    45		254000	030712		SADR6=JRST START
    46		254000	030712		SADR7=JRST START
    47		254000	030712		SADR8=JRST START
    48		254000	030712		SADR9=JRST START
    49		254000	030712		SADR10=JRST START
    50		254000	030712		SADR11=JRST START
    51
    52			000000		PAREA0=0
    53			000000		PAREA1=0
    54			000000		PAREA2=0
    55		444253	414600		PAREA3=SIXBIT/DBKAF/
    56		605664	000000		PAREA4=SIXBIT/PNT/
    57			000000		PAREA5=0
    58			000000		PAREA6=0
    59			001000		ITERAT==1000
    60			000001		PGMEND==1
    61						NOSYM
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 3
DBKAFT	MAC	30-JUL-76 12:36		DIAGNOSTIC PARAMETERS                                                              SEQ 0009

    62					SUBTTL	DIAGNOSTIC PARAMETERS
    63
    64					;ACCUMULATOR ASSIGNMENTS
    65
    66					;CONTROL WORDS
    67
    68			400000		AROV=400000		;ARITHMETIC OVERFLOW
    69			200000		CRY0=200000		;CARRY 0
    70			100000		CRY1=100000		;CARRY 1
    71			040000		FOV=40000		;FLOATING OVERFLOW
    72			020000		BIS=20000		;BYTE INTERRUPT
    73			010000		USERF=10000		;USER MODE FLAG
    74			004000		EXIOT=4000		;USER PRIV I/O FLAG
    75			000100		FXU=100			;FLOATING UNDERFLOW
    76			000040		DCK=40			;DIVIDE CHECK
    77
    78
    79					;MACROS
    80
    81					; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
    82					;	 TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION
    83
    84					DEFINE	STOP	(A)<
    85						HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
    86						JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
    87									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
    88									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
    89									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1>
    90
    91					; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG
    92
    93					DEFINE	SFLAG	(A)<
    94						MOVSI	1,A
    95						JFCL	17,.+1		;RESET ALL FLAGS
    96						JRST	2,.+1(1)	;SET A FLAG>
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 1
PARAM	KLM	26-FEB-76		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, FEB 26,1976                               SEQ 0010

    97					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, FEB 26,1976
    98
    99					DEFINE	S,<;*********************************************************************>
   100
   101					S^;*********************************************************************^
   102					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   103					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   104					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   105					S^;*********************************************************************^
   106
   107			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   108			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   109			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   110
   111			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   112			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   113			010000		DING==	010000			;RING BELL ON ERROR
   114
   115			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   116			002000		ERSTOP==002000			;HALT ON TEST ERROR
   117			001000		PALERS==001000			;PRINT ALL ERRORS
   118
   119			000400		RELIAB==000400			;RELIABILITY MODE
   120			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   121			000100		INHPAG==000100			;INHIBIT PAGING
   122
   123			000040		MODDVC==000040			;MODIFY DEVICE CODE
   124			000020		INHCSH==000020			;INHIBIT CACHE
   125			000010		OPRSEL==000010			;OPERATOR SELECTION
   126
   127			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   128
   129			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   130
   131									;SWITCH 17 RESERVED !!!
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 2
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0011

   132					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
   133
   134					S^;*********************************************************************^
   135					;*SPECIAL SUBPROGRAM LINKAGES
   136					S^;*********************************************************************^
   137
   138			027772		FSELNK=	27772	;FILE SELECT LINK
   139			027773		FRDLNK=	27773	;FILE READ LINK
   140			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   141			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   142			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   143			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   144
   145					S^;*********************************************************************^
   146					;*SPECIAL SUBROUTINE FATAL HALTS
   147					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   148					S^;*********************************************************************^
   149
   150					;ADDRESS   TAG	REASON
   151					;---------------------
   152
   153					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   154					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   155					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   156					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   157					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   158					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   159					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   160					; 1017  EOPERR	;END OF PROGRAM ERROR
   161					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   162
   163					S^;*********************************************************************^
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 3
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0012

   164					S^;*********************************************************************^
   165					;OPERATOR DEFINITIONS (NON-UUO'S)
   166					S^;*********************************************************************^
   167
   168		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   169		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   170		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   171		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   172		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   173		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   174		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   175		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   176
   177					S^;*********************************************************************^
   178					;*SUBROUTINE INITIALIZATION CALL
   179					S^;*********************************************************************^
   180
   181		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   182
   183					S^;*********************************************************************^
   184					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   185					S^;*********************************************************************^
   186
   187		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   188		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   189
   190					S^;*********************************************************************^
   191					;*TERMINAL INPUT UUO'S
   192					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   193					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   194					S^;*********************************************************************^
   195
   196		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   197		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   198		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   199		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   200		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   201		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   202		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   203		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   204		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   205		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 4
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0013

   206					;*TERMINAL OUTPUT UUO'S.
   207
   208		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   209		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   210		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   211		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   212		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   213		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   214		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   215		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   216		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   217		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   218		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   219		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   220		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   221		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   222		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   223		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   224		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   225		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   226		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   227		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   228		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   229		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   230		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   231		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   232		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   233		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   234		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   235		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   236		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   237		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   238		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   239		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   240		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   241		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   242		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   243		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   244		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   245		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   246		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   247		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   248		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   249		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 5
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0014

   250		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   251		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   252		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   253		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   254		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   255		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   256		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   257		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   258		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   259		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   260		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   261		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   262		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   263
   264		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   265
   266					DEFINE	PMSG	(ARG),<
   267						PSIXM	[SIXBIT\ARG'_\]>
   268
   269					DEFINE	PMSGF	(ARG),<
   270						PSIXMF	[SIXBIT\ARG'_\]>
   271
   272					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   273					;*	CONSERVES CORE OVER ASCIZ
   274
   275					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   276
   277					;*CONSOLE SWITCH INPUT UUO.
   278					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   279					;* USER MODE.
   280
   281		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   282
   283					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   284					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   285
   286		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   287		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   288
   289					;*KL10 ONLY CACHE OPERATION UUO'S
   290
   291		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   292		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   293		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 6
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0015

   294					;*END OF PASS/PROGRAM UUOS
   295
   296					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   297					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   298
   299		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   300		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   301
   302					;*MEMORY MANAGEMENT UUO'S
   303					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   304					;*ADDRESS CONVERSION, ETC...
   305
   306		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   307		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   308		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   309		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   310		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   311		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   312		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   313
   314					;*DEVICE CODE MODIFICATION UUO
   315					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   316					;*IOT'S TO A DIFFERENT DEVICE CODE.
   317
   318		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   319		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   320
   321			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   322			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   323
   324					;*"DIAMON" FILE SELECTION AND READ UUOS
   325
   326		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   327		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   328		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   329		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   330
   331					;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   332
   333		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   334
   335						XLIST
   336					IFNDEF	KLOLD,<LIST
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 7
PARAM	KLM	26-FEB-76		ERROR HANDLING UUO DEFINITIONS, JAN 5,1976                                         SEQ 0016

   337					SUBTTL	ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
   338
   339					S^;*********************************************************************^
   340					;*ERROR HANDLER PARAMETERS
   341					S^;*********************************************************************^
   342
   343		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   344		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   345		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   346		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   347		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   348
   349					;*THE ERROR HANDLER MACROS
   350
   351					;*A MACRO TO REPORT AN ERROR AND LOOP
   352
   353						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   354						SALL
   355						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   356							   CORECT,,ACTUAL
   357							   [SIXBIT\D'_\],,ERR]
   358						XALL
   359					
   360						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   361					>
   362
   363					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   364
   365						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   366						SALL
   367						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   368							   CORECT,,ACTUAL
   369							   [SIXBIT\D'_\],,ERR]
   370						XALL	>
   371
   372					>;END OF KLOLD CONDITIONAL
   373
   374						XLIST
   375						LIST
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 1
FIXED	KLM	26-FEB-76		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976                            SEQ 0017

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

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

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

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

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

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

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

   698					SUBTTL	*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76
   699
   700					;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE
   701
   702			000000		AC0=	0
   703			030000		DIAGNOS=30000		;PDP-10 DIAGNOSTIC START ADDRESS
   704			010000		DDT=	10000		;PDP-10 DDT START ADDRESS
   705			020000		DIAMON=	20000		;PDP-10 DIAMON LOADER START ADDRESS
   706			020000		DONG11=	1B22		;11 DOORBELL (FROM THE 10)
   707
   708					;DTE20 DEVICE CODES
   709
   710			000200		DTE==	200		;DTE0
   711			000204		DTE0==	204
   712			000204		DTE1==	204
   713			000210		DTE2==	210
   714			000214		DTE3==	214
   715
   716					;KL10 EPT COMMUNICATION AREA
   717
   718			000440		$STD=	440		;PDP-10 DIAGNOSTIC START ADDRESS
   719			000441		$DDT=	441		;PDP-10 DDT START ADDRESS
   720			000442		$STL=	442		;PDP-10 LOADER START ADDRESS
   721			000443		$STM=	443		;PDP-10 MONITOR START ADDRESS
   722
   723			000444		$DTFLG=	444		;DTE20 OPERATION COMPLETE FLAG
   724			000445		$DTCLK=	445		;DTE20 CLOCK INTERRUPT FLAG
   725			000446		$DTCI=	446		;DTE20 CLOCK INTERRUPT INSTRUCTION
   726			000447		$DTT11=	447		;DTE20 10 TO 11 ARGUMENT
   727			000450		$DTF11=	450		;DTE20 11 TO 10 ARGUMENT
   728			000451		$DTCMD=	451		;DTE20 TO 11 COMMAND WORD
   729			000452		$DTSEQ=	452		;DTE20 OPERATION SEQUENCE NUMBER
   730			000453		$DTOPR=	453		;DTE20 OPERATIONAL DTE #
   731			000454		$DTCHR=	454		;DTE20 LAST TYPED CHARACTER
   732			000455		$DTMTD=	455		;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
   733			000456		$DTMTI=	456		;DTE20 MONITOR TTY INPUT FLAG
   734
   735			000457		$DTSWR=	457		;DTE20 CONSOLE SWITCH REGISTER
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 2
SPCCPU	KLM	26-FEB-76		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0025

   736					;SPECIAL "FIXED" REASSIGNMENTS
   737
   738			030600			$$LOC=.			;SAVE CURRENT LOCATION
   739
   740	030000					LOC	30000
   741	030000	254 00 0 00 030600 	$$BEGIN:JRST	$$START		;SETUP SPECIAL START
   742	030001	254 00 0 00 030600 		JRST	$$START		;"DIAMON" CHAIN START ADDRESS
   743
   744	000440					LOC	440
   745	000440	254 00 0 00 030000 	$STD:	JRST	BEGIN		;SETUP FOR "STD"
   746	000443					LOC	443
   747	000443	254 00 0 00 030636 	$STM:	JRST	$SPEC		;SIMPLE RUN CONTROL
   748
   749	030057					LOC	30057
   750	030057	254 00 0 00 030641 	$BEGEND:JRST	$SPBEND		;SETUP SPECIAL "BEGEND"
   751
   752					;SPECIAL MUUO, TRAP & PAGE FAIL SETUP
   753
   754	000420					LOC	420
   755	000420	254 04 0 00 000420 	$$420:	HALT	.		;KI10 PAGE FAIL
   756	000421	255 00 0 00 000000 	$$421:	JFCL			;OVERFLOW
   757	000422	254 04 0 00 000422 	$$422:	HALT	.		;PUSHDOWN OVERFLOW
   758	000423	254 04 0 00 000423 	$$423:	HALT	.		;TRAP 3
   759	000424	000000	000000		$$424:	0			;MMUO
   760	000425	000000	000000		$$425:	0			;MMUO PC
   761	000426	000000	000000		$$426:	0			;KI10-PAGE FAIL, KL10-PROCESS CONTEXT
   762	000427	254 04 0 00 000427 	$$427:	HALT	.
   763	000430	000000	000427		$$430:	427			;MMUO NEW PC'S
   764	000431	000000	000427		$$431:	427
   765	000432	000000	000427		$$432:	427
   766	000433	000000	000427		$$433:	427
   767	000434	000000	000427		$$434:	427
   768	000435	000000	000427		$$435:	427
   769	000436	000000	000427		$$436:	427
   770	000437	000000	000427		$$437:	427
   771
   772	000500					LOC	500
   773	000500	000000	000000		$$500:	0			;KL10 PAGE FAIL WORD
   774	000501	000000	000000		$$501:	0			;KL10 PAGE FAIL PC
   775	000502	000000	000503		$$502:	503			;KL10 PAGE FAIL NEW PC
   776	000503	254 04 0 00 000503 	$$503:	HALT	.
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 3
SPCCPU	KLM	26-FEB-76		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0026

   777	030600					LOC	$$LOC		;RESET CURRENT LOCATION
   778
   779					;SPECIAL STARTUP SEQUENCE
   780
   781	030600	402 00 0 00 030037 	$$START:SETZM	USER
   782	030601	265 00 0 00 030602 		JSP	0,.+1		;IN USER MODE ?
   783	030602	603 00 0 00 010000 		TLNE	0,USERF
   784	030603	476 00 0 00 030037 		SETOM	USER		;YES, SET CONTROL WORD
   785	030604	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE ?
   786	030605	402 00 0 00 030037 		SETZM	USER		;YES, RUN AS EXEC
   787	030606	332 00 0 00 030037 		SKIPE	USER
   788	030607	254 00 0 00 030712 		JRST	START		;USER MODE, DON'T NEED CPU TYPE
   789
   790	030610	336 00 0 00 030044 	$STKIL:	SKIPN	MONTEN		;LOADED BY "DIAMON" ?
   791	030611	476 00 0 00 030024 		SETOM	ITRCNT		;NO, RUN FOREVER
   792	030612	402 00 0 00 030516 		SETZM	KLTYP
   793	030613	402 00 0 00 030041 		SETZM	KLFLG		;ASSUME KI10
   794	030614	200 01 0 00 034277 		MOVE	1,[1,,1]
   795	030615	251 01 0 00 000001 		BLT	1,1		;HOPE THIS WORKS
   796	030616	316 01 0 00 034277 		CAMN	1,[1,,1]	;IF AC NE 1,,1 AFTER BLT, KL10
   797	030617	254 00 0 00 030712 		JRST	START		;KI10, NO ADDITIONAL SETUP
   798
   799	030620	7 000 20 0 00 010040 	$STKL:	CONO	APR,10040	;SET BBD NOT BIT
   800	030621	7 000 24 0 00 000000 		CONI	APR,0
   801	030622	7 000 20 0 00 020040 		CONO	APR,20040	;CLEAR BBD NOT BIT
   802	030623	606 00 0 00 000040 		TRNN	0,40		;IF SET, KL10
   803	030624	350 00 0 00 030516 		AOS	KLTYP		;IF NOT, BBD
   804	030625	402 00 0 00 000444 		SETZM	$DTFLG
   805	030626	402 00 0 00 000445 		SETZM	$DTCLK
   806	030627	200 00 0 00 000453 		MOVE	$DTOPR		;GET DTE #
   807	030630	436 00 0 00 030670 		ORM	$$DTE0		;INSERT IN DTE I/O INSTS
   808	030631	436 00 0 00 030672 		ORM	$$DTE1
   809	030632	436 00 0 00 030704 		ORM	$$DTE2
   810	030633	436 00 0 00 030706 		ORM	$$DTE3
   811	030634	476 00 0 00 030041 		SETOM	KLFLG		;SET KL10 CONTROL FLAG
   812	030635	254 00 0 00 030712 		JRST	START
   813
   814	030636	200 00 0 00 034300 	$SPEC:	MOVE	[JRST STARTA]	;SIMPLE RUN CONTROL
   815	030637	202 00 0 00 030643 		MOVEM	$SPB1
   816	030640	254 00 0 00 030712 		JRST	START
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 4
SPCCPU	KLM	26-FEB-76		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0027

   817					;SPECIAL "BEGEND" ROUTINE
   818
   819	030641	350 00 0 00 030047 	$SPBEND:AOS	PASCNT		;INCREMENT PASS COUNT
   820	030642	370 00 0 00 030024 		SOS	ITRCNT		;DECREMENT ITERATION COUNT
   821	030643	336 00 0 00 030037 	$SPB1:	SKIPN	USER
   822	030644	254 00 0 00 030652 		JRST	$SPBEX		;EXEC MODE
   823
   824	030645	332 00 0 00 030024 	$SPBUS:	SKIPE	ITRCNT		;USER MODE, COMPLETED ?
   825	030646	254 00 0 00 030741 		JRST	STARTA		;NO, KEEP RUNNING
   826	030647	336 00 0 00 030044 		SKIPN	MONTEN		;DONE, LOADED BY "DIAMON" ?
   827	030650	047 00 0 00 000012 		EXIT			;NO, RETURN TO MONITOR
   828	030651	254 00 1 00 030012 		JRST	@RETURN		;YES, RETURN TO "DIAMON"
   829
   830	030652	332 00 0 00 030041 	$SPBEX:	SKIPE	KLFLG
   831	030653	254 00 0 00 030660 		JRST	$SPBKL		;KL10 & EXEC
   832	030654	7 004 14 0 00 030024 		DATAO	PI,ITRCNT	;KI10 & EXEC, DISPLAY ITER COUNT
   833	030655	332 00 0 00 030024 		SKIPE	ITRCNT
   834	030656	254 00 0 00 030741 		JRST	STARTA		;NOT COMPLETED YET
   835	030657	254 00 1 00 030012 		JRST	@RETURN		;DONE
   836
   837	030660	336 00 0 00 030024 	$SPBKL:	SKIPN	ITRCNT
   838	030661	254 00 0 00 030676 		JRST	$SPKLD		;KL10, EXEC & COMPLETED
   839
   840	030662	335 00 0 00 030043 		SKIPGE	MONCTL
   841	030663	254 00 0 00 030741 		JRST	STARTA		;"DIAMON" CONTROL
   842	030664	201 00 0 00 000404 		MOVEI	0,404		;NOTIFY PDP-11 OF END OF PASS
   843	030665	202 00 0 00 000451 		MOVEM	0,$DTCMD
   844	030666	402 00 0 00 000444 		SETZM	$DTFLG
   845	030667	336 00 0 00 030516 		SKIPN	KLTYP
   846	030670	7 200 20 0 00 020000 	$$DTE0:	CONO	DTE,DONG11
   847	030671	332 00 0 00 030516 		SKIPE	KLTYP
   848	030672	7 200 20 0 00 010000 	$$DTE1:	CONO	DTE,10000
   849	030673	336 00 0 00 000444 		SKIPN	$DTFLG		;WAIT TILL 11 RESPONDS
   850	030674	254 00 0 00 030673 		JRST	.-1
   851	030675	254 00 0 00 030741 		JRST	STARTA		;KEEP RUNNING
   852
   853					;SPECIAL KL10 COMPLETED ROUTINE
   854
   855	030676	332 00 0 00 030044 	$SPKLD:	SKIPE	MONTEN
   856	030677	254 00 1 00 030012 		JRST	@RETURN		;LOADED BY "DIAMON"
   857
   858	030700	201 00 0 00 000403 		MOVEI	0,403		;NOTIFY PDP-11 OF COMPLETION
   859	030701	202 00 0 00 000451 		MOVEM	0,$DTCMD
   860	030702	402 00 0 00 000444 		SETZM	$DTFLG
   861	030703	336 00 0 00 030516 		SKIPN	KLTYP
   862	030704	7 200 20 0 00 020000 	$$DTE2:	CONO	DTE,DONG11
   863	030705	332 00 0 00 030516 		SKIPE	KLTYP
   864	030706	7 200 20 0 00 010000 	$$DTE3:	CONO	DTE,10000
   865	030707	336 00 0 00 000444 		SKIPN	$DTFLG		;SHOULD NEVER HAPPEN
   866	030710	254 00 0 00 030707 		JRST	.-1		;11 NEVER RETURNS ON END OF PROGRAM
   867	030711	254 04 0 00 030000 		HALT	BEGIN		;IF IT DOES, HALT.
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 1
DBKAFM	MAC	30-APR-76 16:54		DIAGNOSTIC SECTION                                                                 SEQ 0028

   868					SUBTTL	DIAGNOSTIC SECTION
   869
   870	030712	402 00 0 00 030037 	START:	SETZM	USER#		;CLEAR USER CONTROL WORD
   871	030713	265 00 0 00 030714 		JSP	0,.+1		;GET FLAGS
   872	030714	603 00 0 00 010000 		TLNE	USERF		;IN USER MODE?
   873	030715	476 00 0 00 030037 		SETOM	USER		;YES, SET USER CONTROL WORD
   874	030716	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE?
   875	030717	402 00 0 00 030037 		SETZM	USER		;YES, CLEAR USER CONTROL WORD
   876	030720	336 00 0 00 030037 		SKIPN	USER
   877	030721	254 00 0 00 030741 		JRST	STARTA
   878	030722	331 00 0 00 030043 		SKIPL	MONCTL
   879	030723	051 03 0 00 030725 		TTCALL	3,PGMNAM	;MENTION OUR NAME
   880	030724	254 00 0 00 030741 		JRST	STARTA
   881
   882	030725				PGMNAM:	ASCIZ/
   883	030725	015 012 120 104 120 	PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) [DBKAF]
   884	030726	055 061 060 040 113 
   885	030727	111 061 060 040 102 
   886	030730	101 123 111 103 040 
   887	030731	111 116 123 124 122 
   888	030732	125 103 124 111 117 
   889	030733	116 040 104 111 101 
   890	030734	107 116 117 123 124 
   891	030735	111 103 040 050 066 
   892	030736	051 040 133 104 102 
   893	030737	113 101 106 135 015 
   894	030740	012 000 000 000 000 	/
   895
   896	030741	254 00 0 00 030742 	STARTA:	JRST	.+1
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 2
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0029

   897					SUBTTL	TEST OF MSCL BOOLEAN INSTRUCTIONS
   898
   899					;**********
   900
   901					;THIS TEST VERIFIES THAT SETZI CLEARS THE AC AND DOES NOT AFFECT E.
   902					;FIRST, AC AND E ARE PRELOADED WITH -1,,-1, THEN, SETZI IS EXECUTED.
   903					;AC IS THEN CHECKED FOR 0 AND E IS CHECKED FOR -1,,-1
   904
   905	030742	474 01 0 00 000000 	C56100:	SETO	1,		;PRELOAD AC WITH -1,,-1
   906	030743	474 02 0 00 000000 		SETO	2,		;PRELOAD E WITH -1,,-1
   907	030744	401 01 0 00 000002 		SETZI	1,2		;*SETZI SHOULD CLEAR THE AC
   908	030745	332 00 0 00 000001 		SKIPE	1		;PASS IF C(AC)=0
   909						STOP^
   910	030746	254 04 0 00 030747 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   911	030747	324 00 0 00 030750 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   912	030750	312 02 0 00 034301 		CAME	2,[-1]		;PASS IF C(E)=-1,,-1
   913						STOP^
   914	030751	254 04 0 00 030752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   915	030752	324 00 0 00 030753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   916
   917					;**********
   918
   919					;THIS TEST VERIFIES THAT SETZM CLEARS C(E) AND DOES NOT AFFECT C(AC)
   920					;FIRST, AC AND E ARE PRELOADED WITH -1,,-1; THEN SETZM IS EXECUTED.
   921					;AC IS THEN CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0.
   922
   923	030753	474 01 0 00 000000 	C56200:	SETO	1,		;PRELOAD AC WITH -1,,-1
   924	030754	474 02 0 00 000000 		SETO	2,		;PRELOAD E WITH -1,,-1
   925	030755	402 01 0 00 000002 		SETZM	1,2		;*SETZM SHOULD CLEAR E
   926	030756	312 01 0 00 034301 		CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
   927						STOP^
   928	030757	254 04 0 00 030760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   929	030760	324 00 0 00 030761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   930	030761	332 00 0 00 000002 		SKIPE	2		;PASS IF C(E)=0
   931						STOP^
   932	030762	254 04 0 00 030763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   933	030763	324 00 0 00 030764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   934
   935					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 3
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0030

   936					;THIS TEST VERIFIES THAT SETOI PLACES ALL ONES INTO THE AC.
   937					;FIRST, THE AC AND E ARE CLEARED; THEN, SETOI IS EXECUTED.
   938					;AC AND E ARE CHECKED FOR -1,,-1 AND 0 RESPECTIVELY
   939
   940	030764	403 01 0 00 000002 	C56300:	SETZB	1,2		;CLEAR AC,E
   941	030765	475 01 0 00 000002 		SETOI	1,2		;*SETOI SHOULD PLACE -1,,-1 INTO THE AC
   942	030766	312 01 0 00 034301 		CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
   943						STOP^
   944	030767	254 04 0 00 030770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   945	030770	324 00 0 00 030771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   946	030771	332 00 0 00 000002 		SKIPE	2		;PASS IF C(E)=0
   947						STOP^
   948	030772	254 04 0 00 030773 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   949	030773	324 00 0 00 030774 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   950
   951					;**********
   952
   953					;THIS TEST VERIFIES THAT SETOM PLACES ALL ONES INTO E
   954					;FIRST, THE AC AND E ARE CLEARED, THEN SETOM IS EXECUTED.
   955					;AC AND E ARE THEN CHECKED FOR 0 AND -1,,-1 RESPECTIVELY.
   956
   957	030774	403 01 0 00 000002 	C56400:	SETZB	1,2		;CLEAR AC,E
   958	030775	476 01 0 00 000002 		SETOM	1,2		;*SETOM SHOULD PLACE -1,,-1 INTO E
   959	030776	332 00 0 00 000001 		SKIPE	1		;PASS IF C(AC)=0
   960						STOP^
   961	030777	254 04 0 00 031000 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   962	031000	324 00 0 00 031001 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   963	031001	312 02 0 00 034301 		CAME	2,[-1]		;PASS IF C(E)=-1,,-1
   964						STOP^
   965	031002	254 04 0 00 031003 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   966	031003	324 00 0 00 031004 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   967
   968					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 4
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0031

   969					;THIS TEST VERIFIES THAT SETOB PLACES ALL ONES INTO BOTH AC AND E.
   970					;FIRST, BOTH AC AND E ARE CLEARED; THEN, SETOB IS EXECUTED.
   971					;AC AND E ARE BOTH CHECKED FOR -1,,-1
   972
   973	031004	403 01 0 00 000002 	C56500:	SETZB	1,2		;CLEAR AC,E
   974	031005	477 01 0 00 000002 		SETOB	1,2		;*SETOB SHOULD PUT -1,,-1 INTO BOTH AC AND E
   975	031006	312 01 0 00 034301 		CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
   976						STOP^
   977	031007	254 04 0 00 031010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   978	031010	324 00 0 00 031011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   979	031011	312 02 0 00 034301 		CAME	2,[-1]		;PASS IF C(E)=-1,,-1
   980						STOP^
   981	031012	254 04 0 00 031013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   982	031013	324 00 0 00 031014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   983
   984					;**********
   985
   986					;THIS TEST VERIFIES THAT ANDI PLACES THE LOGICAL AND FUNCTION
   987					;OF C(AC) AND 0,,E INTO THE AC.
   988					;IN THIS CASE, C(AC)=777000,,707070 AND E=0,,123123.
   989					;HENCE, THE RESULT IN THE AC SHOULD BE 0,,103103
   990
   991	031014	200 01 0 00 034302 	C56600:	MOVE	1,[777000,,707070]	;PRELOAD AC WITH 777000,,707070
   992	031015	405 01 0 00 123123 		ANDI	1,123123	;*ANDI SHOULD PLACE 0,,103103 INTO THE AC
   993	031016	302 01 0 00 103020 		CAIE	1,103020	;PASS IF C(AC)=103103
   994						STOP^
   995	031017	254 04 0 00 031020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   996	031020	324 00 0 00 031021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   997
   998					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 5
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0032

   999					;THIS TEST VERIFIES THAT ANDM PLACES THE LOGICAL AND FUNCTION OF
  1000					;C(AC) AND C(E) INTO E.
  1001					;IN THIS CASE, C(AC)=777000,,000777 AND C(E)=123456,,123456.
  1002					;HENCE, THE RESULTS IN AC AND E SHOULD BE 777000,,000777 AND
  1003					;123000,,00456 RESPECTIVELY
  1004
  1005	031021	200 01 0 00 034303 	C56700:	MOVE	1,[777000,,777]	;PRELOAD E WITH 777000,,000777
  1006	031022	200 02 0 00 034304 		MOVE	2,[123456,,123456]	;PRELOAD AC WITH 123456,,123456
  1007	031023	406 02 0 00 000001 		ANDM	2,1		;*ANDM SHOULD PLACE 123000,,000456 INTO E
  1008	031024	312 02 0 00 034304 		CAME	2,[123456,,123456]	;PASS IF C(AC) NOT MODIFIED
  1009						STOP^
  1010	031025	254 04 0 00 031026 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1011	031026	324 00 0 00 031027 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1012	031027	312 01 0 00 034305 		CAME	1,[123000,,000456]	;PASS IF C(E)=123000,,000456
  1013						STOP^
  1014	031030	254 04 0 00 031031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1015	031031	324 00 0 00 031032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1016
  1017					;**********
  1018
  1019					;THIS TEST VERIFIES THAT ANDM PLACES THE LOGICAL AND FUNCTION OF
  1020					;C(AC) AND C(E) INTO E.
  1021					;IN THIS CASE, C(AC)=777000,,000777 AND C(E)=123456,,123456.
  1022					;HENCE, THE RESULTS IN AC AND E SHOULD BE 777000,,000777 AND
  1023					;123000,,00456 RESPECTIVELY
  1024
  1025	031032	200 01 0 00 034303 	C56701:	MOVE	1,[777000,,777]	;PRELOAD E WITH 777000,,000777
  1026	031033	202 01 0 00 031046 		MOVEM	1,E56701
  1027	031034	200 02 0 00 034304 		MOVE	2,[123456,,123456]	;PRELOAD AC WITH 123456,,123456
  1028	031035	406 02 0 00 031046 		ANDM	2,E56701	;*ANDM SHOULD PLACE 123000,,000456 INTO E
  1029	031036	312 02 0 00 034304 		CAME	2,[123456,,123456]	;PASS IF C(AC) NOT MODIFIED
  1030						STOP^
  1031	031037	254 04 0 00 031040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1032	031040	324 00 0 00 031041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1033	031041	200 01 0 00 031046 		MOVE	1,E56701
  1034	031042	312 01 0 00 034305 		CAME	1,[123000,,000456]	;PASS IF C(E)=123000,,000456
  1035						STOP^
  1036	031043	254 04 0 00 031044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1037	031044	324 00 0 00 031045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1038
  1039	031045	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1040	031046	000000	000000		E56701:	0				;TEST WORD MEMORY
  1041
  1042					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 6
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0033

  1043					;THIS TEST VERIFIES THAT ANDCB PLACES THE LOGICAL AND FUNCTION OF 
  1044					;C(AC) AND C(E) INTO BOTH AC AND E
  1045					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=121212,,-1
  1046					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 121212,,0,
  1047
  1048	031047	561 03 0 00 000000 	C57000:	HRROI	3,0		;PRELOAD AC WITH -1,,0
  1049	031050	525 06 0 00 121212 		HRLOI	6,121212	;PRELOAD E WITH 121212,,-1
  1050	031051	407 03 0 00 000006 		ANDB	3,6		;*ANDB SHOULD PLACE 121212,,0 INTO BOTH AC AND E
  1051	031052	312 03 0 00 034306 		CAME	3,[121212,,0]	;PASS IF C(AC)=121212,,0
  1052						STOP^
  1053	031053	254 04 0 00 031054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1054	031054	324 00 0 00 031055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1055	031055	312 06 0 00 034306 		CAME	6,[121212,,0]	;PASS IF C(E)=121212,,0
  1056						STOP^
  1057	031056	254 04 0 00 031057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1058	031057	324 00 0 00 031060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1059
  1060					;**********
  1061
  1062					;THIS TEST VERIFIES THAT ANDCB PLACES THE LOGICAL AND FUNCTION OF 
  1063					;C(AC) AND C(E) INTO BOTH AC AND E
  1064					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=121212,,-1
  1065					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 121212,,0,
  1066
  1067	031060	561 03 0 00 000000 	C57001:	HRROI	3,0		;PRELOAD AC WITH -1,,0
  1068	031061	525 06 0 00 121212 		HRLOI	6,121212	;PRELOAD E WITH 121212,,-1
  1069	031062	202 06 0 00 031074 		MOVEM	6,E57001
  1070	031063	407 03 0 00 031074 		ANDB	3,E57001	;*ANDB SHOULD PLACE 121212,,0 INTO BOTH AC AND E
  1071	031064	312 03 0 00 034306 		CAME	3,[121212,,0]	;PASS IF C(AC)=121212,,0
  1072						STOP^
  1073	031065	254 04 0 00 031066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1074	031066	324 00 0 00 031067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1075	031067	200 06 0 00 031074 		MOVE	6,E57001
  1076	031070	312 06 0 00 034306 		CAME	6,[121212,,0]	;PASS IF C(E)=121212,,0
  1077						STOP^
  1078	031071	254 04 0 00 031072 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1079	031072	324 00 0 00 031073 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1080
  1081	031073	334 00 0 00 000000 		SKIPA			;GO TO NEXT TEST
  1082	031074	000000	000000		E57001:	0			;TEST WORD MEMORY
  1083
  1084					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 7
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0034

  1085					;THIS TEST VERIFIES THAT ANDCAI PLACES THE LOGICAL AND FUNCTION
  1086					;OF THE WORD 0,E AND THE COMPLEMENT OF C(AC) INTO THE AC
  1087					;IN THIS CASE, C(AC)=777,000,,707070 AND E=0,135246
  1088					;HENCE, THE RESULT IN THE AC SHOULD BE 0,,030206
  1089
  1090	031075	200 05 0 00 034302 	C57100:	MOVE	5,[777000,,707070]	;PRELOAD AC WITH 777000,,707070
  1091	031076	411 05 0 00 135246 		ANDCAI	5,135246	;*ANDCAI SHOULD PLACE 0,,30206 INTO THE AC
  1092	031077	302 05 0 00 030206 		CAIE	5,030206	;PASS IF C(AC)=030206
  1093						STOP^
  1094	031100	254 04 0 00 031101 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1095	031101	324 00 0 00 031102 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1096
  1097					;**********
  1098
  1099					;THIS TEST VERIFIES THAT ANDCAM PLACES THE LOGICAL AND FUNCTION OF
  1100					;C(E) AND THE COMPLEMENT OF C(AC) INTO E.
  1101					;IN THIS CASE, C(AC)=000767,,-1 AND C(E)=777350,,-2
  1102					;HENCE, THE RESULTS IN AC AND E SHOULD BE 000767,,-1 AND
  1103					;777010,,0 RESPECTIVELY.
  1104
  1105	031102	525 04 0 00 000767 	C57200:	HRLOI	4,767		;PRELOAD AC WITH 000767,,-1
  1106	031103	200 06 0 00 034307 		MOVE	6,[777350,,-2]	;PRELOAD E WITH 777350,,-2
  1107	031104	412 04 0 00 000006 		ANDCAM	4,6		;*ANDCAM SHOULD PLACE 777010,,0
  1108									;INTO E
  1109	031105	312 04 0 00 034310 		CAME	4,[767,,-1]	;PASS IF C(AC) IS UNCHANGED
  1110						STOP^
  1111	031106	254 04 0 00 031107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1112	031107	324 00 0 00 031110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1113	031110	312 06 0 00 034311 		CAME	6,[777010,,0]	;PASS IF C(E)=777010,,0
  1114						STOP^
  1115	031111	254 04 0 00 031112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1116	031112	324 00 0 00 031113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1117
  1118					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 8
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0035

  1119					;THIS TEST VERIFIES THAT ANDCAB PLACES THE LOGICAN AND FUNCTION OF
  1120					;C(E) AND THE COMPLEMENT OF C(AC) INTO BOTH AC AND E.
  1121					;IN THIS CASE, C(AC)=000777,,770077 AND C(E)=123456,246123
  1122					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 123000,,006100
  1123
  1124	031113	200 01 0 00 034312 	C57300:	MOVE	1,[000777,,770077]	;PRELOAD AC WITH 000777,770077
  1125	031114	200 02 0 00 034313 		MOVE	2,[123456,,246123]	;PRELOAD E WITH 123456,246123
  1126	031115	413 01 0 00 000002 		ANDCAB	1,2		;*ANDCAB SHOULD PLACE 123000,006100
  1127									;INTO BOTH AC AND E
  1128	031116	312 01 0 00 034314 		CAME	1,[123000,,006100]	;PASS IF C(AC)=123000,006100
  1129						STOP^
  1130	031117	254 04 0 00 031120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1131	031120	324 00 0 00 031121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1132	031121	312 02 0 00 034314 		CAME	2,[123000,,006100]	;PASS IF C(E)=123000,006100
  1133						STOP^
  1134	031122	254 04 0 00 031123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1135	031123	324 00 0 00 031124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1136
  1137					;**********
  1138
  1139					;THIS TEST VERIFIES THAT SETMI MOVES THE WORD 0,,E INTO THE AC
  1140					;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,123456.  HENCE, THE RESULT
  1141					;IN THE AC SHOULD BE 0,,123456
  1142
  1143	031124	474 05 0 00 000000 	C57400:	SETO	5,		;PRELOAD AC WITH -1,,-1
  1144	031125	415 05 0 00 123456 		SETMI	5,123456	;*SETMI SHOULD PLACE 0,,123456 INTO THE AC
  1145	031126	302 05 0 00 123456 		CAIE	5,123456	;PASS IF C(AC)=0,123456
  1146						STOP^
  1147	031127	254 04 0 00 031130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1148	031130	324 00 0 00 031131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1149
  1150					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 9
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0036

  1151					;THIS TEST VERIFIES THAT SETMM IS A NO-OP.  HENCE, IT SHOULD
  1152					;NOT MODIFY AC OR E.
  1153					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1; AND NEITHER SHOULD NOT BE CHANGED
  1154
  1155	031131	400 16 0 00 000000 	C57500:	SETZ	16,		;CLEAR C(AC)
  1156	031132	474 17 0 00 000000 		SETO	17,		;PRELOAD E WITH -1,,-1
  1157	031133	416 16 0 00 000017 		SETMM	16,17		;*SETMM IS A NO-OP
  1158	031134	332 00 0 00 000016 		SKIPE	16		;PASS IF C(AC) UNCHANGED
  1159						STOP^
  1160	031135	254 04 0 00 031136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1161	031136	324 00 0 00 031137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1162	031137	312 17 0 00 034301 		CAME	17,[-1]		;PASS IF C(E) UNCHANGED
  1163						STOP^
  1164	031140	254 04 0 00 031141 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1165	031141	324 00 0 00 031142 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1166
  1167					;**********
  1168
  1169					;THIS TEST VERIFIES THAT SETMB PLACES C(E) INTO THE AC
  1170					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=100,,-200  HENCE, THE RESULT
  1171					;IN BOTH AC AND E SHOULD BE 000100,,-200.
  1172
  1173	031142	474 00 0 00 000000 	C57600:	SETO	0,		;CLEAR AC
  1174	031143	200 01 0 00 034315 		MOVE	1,[100,,-200]	;PRELOAD E WITH 100,,-200
  1175	031144	417 00 0 00 000001 		SETMB	0,1		;*SETMB SHOULD PLACE 100,,-200 INTO THE AC
  1176	031145	312 00 0 00 034315 		CAME	0,[100,,-200]	;PASS IF C(AC)=100,,-200
  1177						STOP^
  1178	031146	254 04 0 00 031147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1179	031147	324 00 0 00 031150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1180	031150	312 01 0 00 034315 		CAME	1,[100,,-200]	;PASS IF C(E)=100,,-200
  1181						STOP^
  1182	031151	254 04 0 00 031152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1183	031152	324 00 0 00 031153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1184
  1185					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 10
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0037

  1186					;THIS TEST VERIFIES THAT ANDCMI PLACES THE LOGICAL AND FUNCTION
  1187					;OF C(AC) AND THE COMPLEMENT OF THE WORD 0,,E INTO THE AC.
  1188					;IN THIS CASE, C(AC)=123456,,246135 AND E=0,,717273.
  1189					;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,040104.
  1190
  1191	031153	200 15 0 00 034316 	C57700:	MOVE	15,[123456,,246135]	;PRELOAD AC WITH 123456,,246135
  1192	031154	421 15 0 00 717273 		ANDCMI	15,717273	;*ANDCMI SHOULD PLACE 123456,,040104
  1193									;INTO THE AC
  1194	031155	312 15 0 00 034317 		CAME	15,[123456,,040104]	;PASS IF C(AC)=123456,,040104
  1195						STOP^
  1196	031156	254 04 0 00 031157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1197	031157	324 00 0 00 031160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1198
  1199					;**********
  1200
  1201					;THIS TEST VERIFIES THAT ANDCMM PLACES THE LOGICAL AND FUNCTION OF
  1202					;C(AC) AND THE COMPLEMENT OF C(E) INTO E.
  1203					;IN THIS CASE,C(AC)=12321,,456654 AND C(E)= 770077,,007770
  1204					;HENCE, THE RESULT IN E SHOULD BE 003300,,450004
  1205
  1206	031160	200 14 0 00 034320 	C60000:	MOVE	14,[123321,,456654]	;PRELOAD AC WITH 123321,,456654
  1207	031161	200 15 0 00 034321 		MOVE	15,[770077,,007770]	;PRELOAD E WITH 77007770
  1208	031162	422 14 0 00 000015 		ANDCMM	14,15			;*ANDCMM SHOULD PLACE 003300,,450004 INTO THE AC
  1209	031163	312 14 0 00 034320 		CAME	14,[123321,,456654]	;PASS IF C(AC) UNCHANGED
  1210						STOP^
  1211	031164	254 04 0 00 031165 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1212	031165	324 00 0 00 031166 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1213	031166	312 15 0 00 034322 		CAME	15,[3300,,450004]	;PASS IF C(E) = 003300,,450004
  1214						STOP^
  1215	031167	254 04 0 00 031170 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1216	031170	324 00 0 00 031171 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1217
  1218					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 11
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0038

  1219					;THIS TEST VERIFIES THAT ANDCMB PLACES THE LOGICAL AND FUNCTION OF
  1220					;C(AC) AND THE COMPLEMENT OF C(E) INTO BOTH AC AND E.
  1221					;IN THIS CASE, C(AC)123456,,663322 AND C(E) = 777000,,700770
  1222					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 000456,,063002
  1223
  1224	031171	200 13 0 00 034323 	C60100:	MOVE	13,[123456,,663322]	;PRELOAD AC WITH 123456,,663322
  1225	031172	200 14 0 00 034324 		MOVE	14,[777000,,700770]	;PRELOAD E WITH 777000,,700770
  1226	031173	423 13 0 00 000014 		ANDCMB	13,14			;*ANDCMB SHOULD PLACE 000456,,063002
  1227										;INTO BOTH AC AND E
  1228	031174	312 13 0 00 034325 		CAME	13,[456,,63002]		;PASS IF C(AC)=000456,,063002
  1229						STOP^
  1230	031175	254 04 0 00 031176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1231	031176	324 00 0 00 031177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1232	031177	312 14 0 00 034325 		CAME	14,[456,,63002]		;PASS IF C(E)=000456,,063002
  1233						STOP^
  1234	031200	254 04 0 00 031201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1235	031201	324 00 0 00 031202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1236
  1237					;**********
  1238
  1239
  1240					;THIS TEST VERIFIES THAT SETA IS A NO-OP. IT AFFECTS NEITHER
  1241					;AC OR E. IN THIS CASE, C(AC)=123456,,777776 AND C(E)=010203,,123450.
  1242					;SETA SHOULD NOT MODIFY C(AC) OR C(E)
  1243
  1244	031202	200 12 0 00 034326 	C60200:	MOVE	12,[123456,,777776]	;PRELOAD AC WITH 123456,,-2
  1245	031203	200 13 0 00 034327 		MOVE	13,[010203,,123450]	;PRELOAD E WITH 010203,,123450
  1246	031204	424 12 0 00 000013 		SETA	12,13			;*SETA IS A NO-OP
  1247	031205	312 12 0 00 034326 		CAME	12,[123456,,-2]		;PASS IF C(AC) UNCHANGED
  1248						STOP^
  1249	031206	254 04 0 00 031207 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1250	031207	324 00 0 00 031210 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1251	031210	312 13 0 00 034327 		CAME	13,[010203,,123450]	;PASS IF C(E) UNCHANGED
  1252						STOP^
  1253	031211	254 04 0 00 031212 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1254	031212	324 00 0 00 031213 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1255
  1256					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 12
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0039

  1257					;THIS TEST VERIFIES THAT SETAI IS A NO-OP. IT DOES NOT AFFECT THE AC.
  1258					;IN THIS CASE, C(AC)=123456,,777776 AND E=0,,123450
  1259					;SETA SHOULD NOT MODIFY C(AC)
  1260
  1261	031213	200 12 0 00 034326 	C60300:	MOVE 12,[123456,,777776]	;PRELOAD AC WITH 123456,,-2
  1262	031214	425 12 0 00 123450 		SETAI	12,123450		;*SETAI IS A NO-OP
  1263	031215	312 12 0 00 034326 		CAME	12,[123456,,-2]		;PASS IF C(AC) UNCHANGED
  1264						STOP^
  1265	031216	254 04 0 00 031217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1266	031217	324 00 0 00 031220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1267
  1268					;**********
  1269
  1270					;THIS TEST VERIFIES THAT SETAM PLACES C(AC) INTO E.
  1271					;IN THIS CASE, C(AC)=123456,,0 AND C(E)=-1,,-1.  HENCE, THE
  1272					;RESULT IN E SHOULD BE 123456,,0
  1273
  1274	031220	515 11 0 00 123456 	C60400:	HRLZI	11,123456		;PRELOAD AC WITH 123456,,0
  1275	031221	474 12 0 00 000000 		SETO	12,			;PRELOAD E WITH -1,,-1
  1276	031222	426 11 0 00 000012 		SETAM	11,12			;SETAM SHOULD PLACE 123456,,0 INTO E
  1277	031223	312 11 0 00 034330 		CAME	11,[123456,,0]		;PASS IF C(AC) UNCHANGED
  1278						STOP^
  1279	031224	254 04 0 00 031225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1280	031225	324 00 0 00 031226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1281	031226	312 12 0 00 034330 		CAME	12,[123456,,0]		;PASS IF C(E)=123456,,0
  1282						STOP^
  1283	031227	254 04 0 00 031230 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1284	031230	324 00 0 00 031231 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1285
  1286					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 13
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0040

  1287					;THIS TEST VERIFIES THAT XORI PLACES THE LOGICAL EXCLUSIVE OR FUNCTION
  1288					;OF C(AC) AND THE WORD 0,,E INTO THE AC.
  1289					;IN THIS CASE, C(AC)=000777,,123456 AND E=0,,434431
  1290					;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,517067.
  1291
  1292	031231	200 10 0 00 034331 	C60500:	MOVE	10,[777,,123456]	;PRELOAD AC WITH 000777,,123456
  1293	031232	431 10 0 00 434431 		XORI	10,434431		;*XORI SHOULD PLACE 000777,,517067 INTO THE AC
  1294	031233	312 10 0 00 034332 		CAME	10,[777,,517067]	;PASS IF C(AC)=000777,,517067
  1295						STOP^
  1296	031234	254 04 0 00 031235 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1297	031235	324 00 0 00 031236 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1298
  1299					;**********
  1300
  1301					;THIS TEST VERIFIES THAT XORB PLACES THE LOGICAL EXCLUSIVE OR FUNCTION
  1302					;OF C(AC) AND C(E) INTO BOTH AC AND E.
  1303					;IN THIS CASE, C(AC)=707077,,555666 AND C(E)=123456,,765432
  1304					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 624421,,230254
  1305
  1306	031236	200 07 0 00 034333 	C60600:	MOVE	7,[707077,,555666]	;PRELOAD AC WITH 707077,,555666
  1307	031237	200 10 0 00 034334 		MOVE	10,[123456,,765432]	;PRELOAD E WITH 123456,,765432
  1308	031240	433 07 0 00 000010 		XORB	7,10			;*XORB SHOULD PLACE 624421,,230254
  1309										;INTO BOTH AC AND E
  1310	031241	312 07 0 00 034335 		CAME	7,[624421,,230254]	;PASS IF C(AC)=624421,,230254
  1311						STOP^
  1312	031242	254 04 0 00 031243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1313	031243	324 00 0 00 031244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1314	031244	312 10 0 00 034335 		CAME	10,[624421,,230254]	;PASS IF C(E)=624421,,230254
  1315						STOP^
  1316	031245	254 04 0 00 031246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1317	031246	324 00 0 00 031247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1318
  1319					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 14
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0041

  1320					;THIS TEST VERIFIES THAT IORI PLACES THE INCLUSIVE OR FUNCTION
  1321					;OF C(AC) AND THE WORD 0,,E INTO THE AC.
  1322					;IN THIS CASE, C(AC)=707070,,123456 AND E=0,,765567
  1323					;HENCE, THE RESULT IN THE AC SHOULD BE 707070,,767577
  1324
  1325	031247	200 06 0 00 034336 	C60700:	MOVE	6,[707070,,123456]  ;PRELOAD AC WITH 707070,,123456
  1326	031250	435 06 0 00 765567 		IORI	6,765567	;*IORI SHOULD PLACE 707070,,767577 INTO THE AC
  1327	031251	312 06 0 00 034337 		CAME	6,[707070,,767577]  ;PASS IF C(AC)=707070,,767577
  1328						STOP^
  1329	031252	254 04 0 00 031253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1330	031253	324 00 0 00 031254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1331
  1332					;**********
  1333
  1334					;THIS TEST VERIFIES THAT IORM PLACES THE INCLUSIVE OR FUNCTION
  1335					;OF C(AC) AND C(E) INTO E.
  1336					;IN THIS CASE, C(AC)=123456,,777666 AND C(E)=777001,,123470
  1337					;HENCE, THE RESULT IN E SHOULD BE 777457,,777676
  1338
  1339	031254	200 05 0 00 034340 	C61000:	MOVE	5,[123456,,777666]  ;PRELOAD AC WITH 123456,777666
  1340	031255	200 06 0 00 034341 		MOVE	6,[777001,,123470]  ;PRELOAD E WITH 777001,,123470
  1341	031256	436 05 0 00 000006 		IORM	5,6		;*IORM SHOULD PLACE
  1342									;777457,777676 INTO E
  1343	031257	312 05 0 00 034340 		CAME	5,[123456,,777666]  ;PASS IF C(AC) UNMODIFIED
  1344						STOP^
  1345	031260	254 04 0 00 031261 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1346	031261	324 00 0 00 031262 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1347	031262	312 06 0 00 034342 		CAME	6,[777457,,777676] ;PASS IF C(E)=777457,777676
  1348						STOP^
  1349	031263	254 04 0 00 031264 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1350	031264	324 00 0 00 031265 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1351
  1352					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 15
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0042

  1353					;THIS TEST VERIFIES THAT IORB PLACES THE INCLUSIVE OR FUNCTION
  1354					;OF C(AC) AND C(E) INTO E.
  1355					;IN THIS CASE, C(AC)=123456,,777666 AND C(E)=777001,,123470
  1356					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 777457,,777676
  1357
  1358	031265	200 05 0 00 034340 	C61100:	MOVE	5,[123456,,777666]  ;PRELOAD AC WITH 123456,777666
  1359	031266	200 06 0 00 034341 		MOVE	6,[777001,,123470]  ;PRELOAD E WITH 777001,,123470
  1360	031267	437 05 0 00 000006 		IORB	5,6		;*IORB SHOULD PLACE
  1361									;777457,,777676 INTO
  1362	031270	312 05 0 00 034342 		CAME	5,[777457,,777676]  ;PASS IF C(AC)=777457,,777676
  1363						STOP^
  1364	031271	254 04 0 00 031272 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1365	031272	324 00 0 00 031273 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1366	031273	312 06 0 00 034342 		CAME	6,[777457,,777676]  ;PASS IF C(E)=777457,,777676
  1367						STOP^
  1368	031274	254 04 0 00 031275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1369	031275	324 00 0 00 031276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1370
  1371					;**********
  1372
  1373					;THIS TEST VERIFIES THAT ANDCBI PLACES THE LOGICAL AND FUNCTION
  1374					;OF THE COMPLEMENTS OF BOTH C(AC) AND THE WORD 0,,E INTO THE AC
  1375					;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,706050.
  1376					;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,050321.
  1377
  1378	031276	200 04 0 00 034343 	C61200:	MOVE	4,[777000,,123456]  ;PRELOAD AC WITH 777000,,123456
  1379	031277	441 04 0 00 706050 		ANDCBI	4,706050	;*ANDCBI SHOULD PLACE 000777,,050321
  1380									;INTO THE AC
  1381	031300	312 04 0 00 034344 		CAME	4,[777,,50321]	;PASS IF C(AC)=000777,,050321
  1382						STOP^
  1383	031301	254 04 0 00 031302 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1384	031302	324 00 0 00 031303 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1385
  1386					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 16
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0043

  1387					;THIS TEST VERIFIES THAT ANDCBM PLACES THE LOGICAL AND FUNCTION
  1388					;OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO
  1389					;IN THE CASE, C(AC)=777007,,771100 AND C(E)=063202,,123477
  1390					;HENCE, THE RESULT IN E SHOULD BE 000570,,004200
  1391
  1392	031303	200 03 0 00 034345 	C61300:	MOVE	3,[777007,,771100]  ;PRELOAD AC WITH 777007,,771100
  1393	031304	200 04 0 00 034346 		MOVE	4,[63202,,123477]   ;PRELOAD E WITH 063202,,123477
  1394	031305	442 03 0 00 000004 		ANDCBM	3,4		;*ANDCBM SHOULD PLACE
  1395									;000570,,004200 INTO E.
  1396	031306	312 03 0 00 034345 		CAME	3,[777007,,771100] ;PASS IF C(AC) IS UNCHANGED
  1397						STOP^
  1398	031307	254 04 0 00 031310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1399	031310	324 00 0 00 031311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1400	031311	312 04 0 00 034347 		CAME	4,[570,,4200]	;PASS IF C(E)=000570,,004200
  1401						STOP^
  1402	031312	254 04 0 00 031313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1403	031313	324 00 0 00 031314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1404
  1405					;**********
  1406
  1407					;THIS TEST VERIFIES THAT ANDCBB PLACES THE LOGICAL AND FUNCTION
  1408					;OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO BOTH AC AND E
  1409					;IN THIS CASE, C(AC)=777007,,771100 AND C(E)=063202,,123477
  1410					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 000570,,004200
  1411
  1412	031314	200 03 0 00 034345 	C61400:	MOVE	3,[777007,,771100]  ;PRELOAD WITH 777007,,771100
  1413	031315	200 04 0 00 034346 		MOVE	4,[63202,,123477]   ;PRELOAD E WITH 063202,,123477
  1414	031316	443 03 0 00 000004 		ANDCBB	3,4		;*ANDCBB SHOULD PLACE
  1415									;000570,,004200 INTO BOTH AC AND E
  1416	031317	312 03 0 00 034347 		CAME	3,[570,,4200]	;PASS IF C(AC)=000570,,004200
  1417						STOP^
  1418	031320	254 04 0 00 031321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1419	031321	324 00 0 00 031322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1420	031322	312 04 0 00 034347 		CAME	4,[570,,4200]	;PASS IF C(E)=000570,,004200
  1421						STOP^
  1422	031323	254 04 0 00 031324 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1423	031324	324 00 0 00 031325 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1424
  1425					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 17
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0044

  1426					;THIS TEST VERIFIES THAT EQVI PLACES THE LOGICAL EQUIVALENCE FUNCTION
  1427					;OF C(AC) AND THE WORD 0,,E INTO THE AC
  1428					;IN THIS CASE, C(AC)=707070,,123426 AND E=0,,123363
  1429					;HENCE, THE RESULT IN THE AC SHOULD BE 070707,,777032
  1430
  1431	031325	200 02 0 00 034350 	C61500:	MOVE	2,[707070,,123426]  ;PRELOAD AC WITH 707070,,123426
  1432	031326	445 02 0 00 123363 		EQVI	2,123363	;*EQVI SHOULD PLACE
  1433									;070707,,777032 INTO THE AC
  1434	031327	312 02 0 00 034351 		CAME	2,[70707,,777032]  ;PASS IF C(AC)=070707,,777032
  1435						STOP^
  1436	031330	254 04 0 00 031331 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1437	031331	324 00 0 00 031332 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1438
  1439					;**********
  1440
  1441					;THIS TEST VERIFIES THAT EQVM PLACES THE LOGICAL EQUIVALENCE FUNCTION
  1442					;OF C(AC) AND C(E) INTO E.
  1443					;IN THIS CASE, C(AC)= 123456,,123457 AND C(E) = 707633,,121212
  1444					;HENCE, THE RESULT IN E SHOULD BE 153512,,775132
  1445
  1446	031332	200 01 0 00 034352 	C61600:	MOVE	1,[123456,,123457] ;PRELOAD AC WITH 123456,,123457
  1447	031333	200 02 0 00 034353 		MOVE	2,[707633,,121212] ;PRELOAD AC WITH 707633,,121212
  1448	031334	446 01 0 00 000002 		EQVM	1,2		;*EQVM SHOULD PLACE 153512,,775132 INTO	E.
  1449	031335	312 01 0 00 034352 		CAME	1,[123456,,123457] ;PASS IF C(AC) UNCHANGED
  1450						STOP^
  1451	031336	254 04 0 00 031337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1452	031337	324 00 0 00 031340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1453	031340	312 02 0 00 034354 		CAME	2,[153512,,775132];PASS IF C(E) = 153512,,775132
  1454						STOP^
  1455	031341	254 04 0 00 031342 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1456	031342	324 00 0 00 031343 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1457
  1458					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 18
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0045

  1459					;THIS TEST VERIFIES THAT EQVB PLACES THE LOGICAL EQUIVALENCE FUNCTION
  1460					;OF C(AC)AND C(E) INTO BOTH AC AND  E.
  1461					;IN THIS CASE, C(AC) = 123456,,123457 AND C(E) = 707633,,121212
  1462					;HENSE, THE RSULT IN BOTH AC AND 	E SHOULD BE 153512,,775132
  1463
  1464	031343	200 01 0 00 034352 	C61700:	MOVE	1,[123456,,123457]	;PRELOAD AC WITH 123456,,12345
  1465	031344	200 02 0 00 034353 		MOVE	2,[707633,,121212]	;PRELOAD AC WITH 707633,,121212
  1466	031345	447 01 0 00 000002 		EQVB	1,2			;*EQVB SHOULD PLACE 153512,,775132
  1467										;INTO BOTHE AC AND E.
  1468	031346	312 01 0 00 034354 		CAME	1,[153512,,775132]	;PASS IC C(AC)=153512,,775132
  1469						STOP^
  1470	031347	254 04 0 00 031350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1471	031350	324 00 0 00 031351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1472	031351	312 02 0 00 034354 		CAME	2,[153512,,775132]	;PASS IF C(E)=153512,,775132
  1473						STOP^
  1474	031352	254 04 0 00 031353 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1475	031353	324 00 0 00 031354 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1476
  1477					;**********
  1478
  1479					;THIS TEST VERIFIES THAT SETCAI PLACES THE COMPLEMENT OF C(AC)
  1480					;INTO THE AC.
  1481					;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,707070
  1482					;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,654321
  1483
  1484	031354	200 00 0 00 034343 	C62000:	MOVE	0,[777000,,123456]	;PRELOAD AC WITH 777000,,123456
  1485	031355	451 00 0 00 707070 		SETCAI	0,707070		;*SETCAI SHOULD PLACE 000777,,654321
  1486										;INTO THE AC
  1487	031356	312 00 0 00 034355 		CAME	0,[777,,654321]	;PASS IF C(AC)=000777,,654321
  1488						STOP^
  1489	031357	254 04 0 00 031360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1490	031360	324 00 0 00 031361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1491
  1492					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 19
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0046

  1493					;THIS TEST VERIFIES THAT SETCAM PLACES THE COMPLEMENT OF C(AC)
  1494					;INTO E.
  1495					;IN THIS CASE, C(AC)=123456,,765432 AND C(E)=-1,,-1.
  1496					;HENCE, THE RESULT IN E SHOULD BE 654321,,012345
  1497
  1498	031361	200 17 0 00 034334 	C62100:	MOVE	17,[123456,,765432]	;PRELOAD AC WITH 123456,,765432
  1499	031362	474 00 0 00 000000 		SETO	0,			;PRELOAD E WITH -1,,-1
  1500	031363	452 17 0 00 000000 		SETCAM	17,0			;*SETCAM SHOULD PLACE
  1501										;654321,,012345 INTO E
  1502	031364	312 17 0 00 034334 		CAME	17,[123456,,765432]	;PASS IF C(AC) IS UNCHANGED
  1503						STOP^
  1504	031365	254 04 0 00 031366 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1505	031366	324 00 0 00 031367 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1506	031367	312 00 0 00 034356 		CAME	0,[654321,,12345]	;PASS IF C(E)=654321,,012345
  1507						STOP^
  1508	031370	254 04 0 00 031371 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1509	031371	324 00 0 00 031372 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1510
  1511					;**********
  1512
  1513					;THIS TEST VERIFIES THAT SETCAB PLACES THE COMPLEMENT OF C(AC)
  1514					;INTO BOTH AC AND E.
  1515					;IN THIS CASE, C(AC)=123456,,765432 AND C(E)=-1,,-1.
  1516					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 654321,,012345
  1517
  1518	031372	200 17 0 00 034334 	C62200:	MOVE	17,[123456,,765432]	;PRELOAD AC WITH 123456,,76543
  1519	031373	474 00 0 00 000000 		SETO	0,			;PRELOAD E WITH -1,,-1
  1520	031374	453 17 0 00 000000 		SETCAB	17,0			;*SETCAB SHOULD PLACE
  1521										;654321,,012345 INTO BOTH AC AND E
  1522	031375	312 17 0 00 034356 		CAME	17,[654321,,12345]	;PASS IF C(AC)=654321,,012345
  1523						STOP^
  1524	031376	254 04 0 00 031377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1525	031377	324 00 0 00 031400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1526	031400	312 00 0 00 034356 		CAME	0,[654321,,12345]	;PASS IF C(E)=654321,,012345
  1527						STOP^
  1528	031401	254 04 0 00 031402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1529	031402	324 00 0 00 031403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1530
  1531					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 20
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0047

  1532					;THIS TEST VERIFIES THAT ORCAI PLACES THE INCLUSIVE OR FUNCTION
  1533					;OF THE WORD 0,,E AND THE COMPLEMENT OF C(AC) INTO THE AC.
  1534					;IN THIS CASE, C(AC)=777000,,123477 AND E=0,,765401
  1535					;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,775701
  1536
  1537	031403	200 16 0 00 034357 	C62300:	MOVE	16,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
  1538	031404	455 16 0 00 765401 		ORCAI	16,765401		;*ORCAI SHOULD PLACE 000777,,767477
  1539										;INTO THE AC
  1540	031405	312 16 0 00 034360 		CAME	16,[777,,775701]	;PASS IF C(AC)=000777,,775701
  1541						STOP^
  1542	031406	254 04 0 00 031407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1543	031407	324 00 0 00 031410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1544
  1545					;**********
  1546
  1547					;THIS TEST VERIFIES THAT ORCAM PLACES THE INCLUSIVE OR FUNCTION
  1548					;OF C(E) AND THE COMPLEMENT OF C(AC) INTO
  1549					;IN THIS CASE, C(AC)=777000,,123477 AND C(E)=707070,,707072
  1550					;HENCE, THE RESULT IN E SHOULD BE 707777,,757372
  1551
  1552	031410	200 15 0 00 034357 	C62400:	MOVE	15,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
  1553	031411	200 16 0 00 034361 		MOVE	16,[707070,,707072]	;PRELOAD E WITH 707070,,707072
  1554	031412	456 15 0 00 000016 		ORCAM	15,16			;*ORCAM SHOULD PLACE 707777,,757372
  1555										;INTO E
  1556	031413	312 15 0 00 034357 		CAME	15,[777000,,123477]	;PASS IF C(AC) IS UNCHANGED
  1557						STOP^
  1558	031414	254 04 0 00 031415 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1559	031415	324 00 0 00 031416 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1560	031416	312 16 0 00 034362 		CAME	16,[707777,,757372]	;PASS IF C(E)=707777,,757372
  1561						STOP^
  1562	031417	254 04 0 00 031420 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1563	031420	324 00 0 00 031421 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1564
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 21
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0048

  1565					;**********
  1566					;THIS TEST VERIFIES THAT ORCAB PLACES THE INCLUSIVE OR FUNCTION
  1567					;OF C(E) AND THE COMPLEMENT OF C(AC) INTO BOTH AC AND E.
  1568					;IN THIS CASE, C(AC)=777000,,123477 AND C(E)=707070,,707072
  1569					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 707777,,757372
  1570
  1571	031421	200 15 0 00 034357 	C62500:	MOVE	15,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
  1572	031422	200 16 0 00 034361 		MOVE	16,[707070,,707072]	;PRELOAD E WITH 707070,,707072
  1573	031423	457 15 0 00 000016 		ORCAB	15,16			;*ORCAB SHOULD PLACE 707777,,757372
  1574										;INTO BOTHE AC AND E
  1575	031424	312 15 0 00 034362 		CAME	15,[707777,,757372]	;PASS IF C(AC)=707777,,757372
  1576						STOP^
  1577	031425	254 04 0 00 031426 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1578	031426	324 00 0 00 031427 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1579	031427	312 16 0 00 034362 		CAME	16,[707777,,757372]	;PASS IF C(E)=707777,,757372
  1580						STOP^
  1581	031430	254 04 0 00 031431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1582	031431	324 00 0 00 031432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1583
  1584					;**********
  1585
  1586					;THIS TEST VERIFIES THAT SETCMI PLACES THE COMPLEMENT OF THE
  1587					;WORD 0,,E INTO THE AC
  1588					;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,707070
  1589					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,070707
  1590
  1591	031432	200 00 0 00 034343 	C62600:	MOVE	0,[777000,,123456]	;PRELOAD AC WITH 777000,,123456
  1592	031433	461 00 0 00 707070 		SETCMI	0,707070		;*SETCMI SHOULD PLACE -1,,070707
  1593										;INTO THE AC
  1594	031434	312 00 0 00 034363 		CAME	0,[-1,,070707]		;PASS IF C(AC)=-1,,070707
  1595						STOP^
  1596	031435	254 04 0 00 031436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1597	031436	324 00 0 00 031437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1598
  1599					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 22
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0049

  1600					;THIS TEST VERIFIES THAT SETCMM PLACES THE COMPLEMENT OF C(E)
  1601					;INTO E.
  1602					;IN THIS CASE, C(E)=123456,,765432 AND C(AC)=-1,,-1.
  1603					;HENCE, THE RESULT IN E SHOULD BE 654321,,012345
  1604
  1605	031437	200 17 0 00 034334 	C62700:	MOVE	17,[123456,,765432]	;PRELOAD E WITH 123456,,76543
  1606	031440	474 00 0 00 000000 		SETO	0,			;PRELOAD AC WITH -1,,-1
  1607	031441	462 00 0 00 000017 		SETCMM	0,17			;*SETCMM SHOULD PLACE
  1608										;654321,012345 INTO E
  1609	031442	312 00 0 00 034301 		CAME	0,[-1]			;PASS IF C(AC) UNCHANGED
  1610						STOP^
  1611	031443	254 04 0 00 031444 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1612	031444	324 00 0 00 031445 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1613	031445	312 17 0 00 034356 		CAME	17,[654321,,12345]	;PASS IF C(E)=654321,,012345
  1614						STOP^
  1615	031446	254 04 0 00 031447 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1616	031447	324 00 0 00 031450 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1617
  1618					;**********
  1619
  1620					;THIS TEST VERIFIES THAT SETCMB PLACES THE COMPLEMENT OF C(E)
  1621					;INTO BOTH AC AND E.
  1622					;IN THIS CASE, C(E)=123456,,765432 AND C(AC)=-1,,-1.
  1623					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 654321,,012345
  1624
  1625	031450	200 17 0 00 034334 	C63000:	MOVE	17,[123456,,765432]	;PRELOAD E WITH 123456,,76543
  1626	031451	474 00 0 00 000000 		SETO	0,			;PRELOAD AC WITH -1,,-1
  1627	031452	463 00 0 00 000017 		SETCMB	0,17			;*SETCMB SHOULD PLACE
  1628										;654321,,012345 INTO BOTH AC AND E
  1629	031453	312 00 0 00 034356 		CAME	0,[654321,,12345]	;PASS IF C(AC)=654321,,012345
  1630						STOP^
  1631	031454	254 04 0 00 031455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1632	031455	324 00 0 00 031456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1633	031456	312 17 0 00 034356 		CAME	17,[654321,,12345]	;PASS IF C(E)=654321,,012345
  1634						STOP^
  1635	031457	254 04 0 00 031460 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1636	031460	324 00 0 00 031461 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1637
  1638					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 23
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0050

  1639					;THIS TEST VERIFIES THAT ORCMI PLACES THE INCLUSIVE OR FUNCTION
  1640					;OF C(AC) AND THE COMPLEMENT OF THE WORD 0,,E INTO THE AC.
  1641					;IN THIS CASE, C(AC)=777000,,123477 AND E=0,,765401
  1642					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,133777
  1643
  1644	031461	200 16 0 00 034357 	C63100:	MOVE	16,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
  1645	031462	465 16 0 00 765401 		ORCMI	16,765401		;*ORCMI SHOULD PLACE -1,,133777
  1646										;INTO THE AC
  1647	031463	312 16 0 00 034364 		CAME	16,[-1,,133777]		;PASS IF C(AC)=-1,,133777
  1648						STOP^
  1649	031464	254 04 0 00 031465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1650	031465	324 00 0 00 031466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1651
  1652					;**********
  1653
  1654					;THIS TEST VERIFIES THAT ORCMM PLACES THE INCLUSIVE OR FUNCTION
  1655					;OF C(AC) AND THE COMPLEMENT OC C(E) INTO
  1656					;IN THIS CASE, C(E)=777000,,123477 AND C (AC)=707070,,707072
  1657					;HENCE, THE RESULT IN E SHOULD BE 707777,,757372
  1658
  1659	031466	200 15 0 00 034357 	C63200:	MOVE	15,[777000,,123477]	;PRELOAD E WITH 777000,,123477
  1660	031467	200 16 0 00 034361 		MOVE	16,[707070,,707072]	;PRELOAD AC WITH 707070,,707072
  1661	031470	466 16 0 00 000015 		ORCMM	16,15			;*ORCMM SHOULD PLACE 707777,,757372
  1662										;INTO E
  1663	031471	312 16 0 00 034361 		CAME	16,[707070,,707072]	;PASS IF C(AC) IS UNCHANGED
  1664						STOP^
  1665	031472	254 04 0 00 031473 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1666	031473	324 00 0 00 031474 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1667	031474	312 15 0 00 034362 		CAME	15,[707777,,757372]	;PASS IF C(E)=707777,,757372
  1668						STOP^
  1669	031475	254 04 0 00 031476 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1670	031476	324 00 0 00 031477 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1671
  1672					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 24
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0051

  1673					;THIS TEST VERIFIES THAT ORCMB PLACES THE INCLUSIVE OR FUNCTION
  1674					;OF C(AC) AND THE COMPLEMENT OF C(E) INTO BOTH AC AND E.
  1675					;IN THIS CASE, C(E)=777000,,123477 AND C(AC)=707070,,707072
  1676					;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 707777,,757372
  1677
  1678	031477	200 15 0 00 034357 	C63300:	MOVE	15,[777000,,123477]  ;PRELOAD E WITH 777000,,123477
  1679	031500	200 16 0 00 034361 		MOVE	16,[707070,,707072]  ;PRELOAD AC WITH 707070,,707072
  1680	031501	467 16 0 00 000015 		ORCMB	16,15		;*ORCMB SHOULD PLACE 707777,,757372
  1681									;INTO BOTH AC AND E
  1682	031502	312 16 0 00 034362 		CAME	16,[707777,,757372]  ;PASS IF C(AC)=707777,,757372
  1683						STOP^
  1684	031503	254 04 0 00 031504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1685	031504	324 00 0 00 031505 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1686	031505	312 15 0 00 034362 		CAME	15,[707777,,757372]  ;PASS OF C(E)=707777,,757372
  1687						STOP^
  1688	031506	254 04 0 00 031507 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1689	031507	324 00 0 00 031510 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1690
  1691					;**********
  1692
  1693					;THIS TEST VERIFIES THAT ORCBI PLACES THE LOGICAL INCLUSIVE OR
  1694					;FUNCTION OF THE COMPLEMENTS OF BOTH C(AC) AND THE WORD 0,,E INTO THE AC.
  1695					;IN THIS CASE, C(AC)=707070,,070706 AND E=0,,770011.
  1696					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,707777
  1697
  1698	031510	200 15 0 00 034365 	C63400:	MOVE	15,[707070,,070706]  ;PRELOAD AC WITH 707070,,070706
  1699	031511	471 15 0 00 770011 		ORCBI	15,770011	;*ORCBI SHOULD PLACE -1,,707777 INTO THE AC
  1700	031512	312 15 0 00 034366 		CAME	15,[-1,,707777]	;PASS IF C(AC)=-1,707777
  1701						STOP^
  1702	031513	254 04 0 00 031514 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1703	031514	324 00 0 00 031515 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1704
  1705					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 25
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL BOOLEAN INSTRUCTIONS                                                  SEQ 0052

  1706					;THIS TEST VERIFIES THAT ORCBM PLACES THE LOGICAL INCLUSIVE OR
  1707					;FUNCTION OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO
  1708					;IN THIS CASE, C(AC)=123456,,770077 AND C(E)=777001,,123324
  1709					;HENCE, THE RESULT IN E SHOULD BE 654777,,657753
  1710
  1711	031515	200 14 0 00 034367 	C63500:	MOVE	14,[123456,,770077]  ;PRELOAD AC WITH 123456,,770077
  1712	031516	200 15 0 00 034370 		MOVE	15,[777001,,123324]  ;PRELOAD E WITH 777001,,123324
  1713	031517	472 14 0 00 000015 		ORCBM	14,15		;*ORCBM SHOULD PLACE 654777,,657753
  1714									;INTO E
  1715	031520	312 14 0 00 034367 		CAME	14,[123456,,770077]  ;PASS IF C(AC) IS UNCHANGED
  1716						STOP^
  1717	031521	254 04 0 00 031522 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1718	031522	324 00 0 00 031523 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1719	031523	312 15 0 00 034371 		CAME	15,[654777,,657753]   ;PASS IF C(E)=654777,,657753
  1720						STOP^
  1721	031524	254 04 0 00 031525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1722	031525	324 00 0 00 031526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1723
  1724					;**********
  1725
  1726					;THIS TEST VERIFIES THAT ORCBB PLACES THE LOGICAL INCLUSIVE OR
  1727					;FUNCTIONOF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO BOTH AC AND E
  1728					;IN THIS CASE, C(AC)=123456,,770077 AND C(E)=777001,,657753
  1729
  1730	031526	200 14 0 00 034367 	C63600:	MOVE	14,[123456,,770077]  ;PRELOAD AC WITH 123456,,770077
  1731	031527	200 15 0 00 034370 		MOVE	15,[777001,,123324]  ;PRELOAD E WITH 777001,,123324
  1732	031530	473 14 0 00 000015 		ORCBB	14,15		;*ORCBB SHOULD PLACE 654777,,657753
  1733									;INTO BOTH AC AND E
  1734	031531	312 14 0 00 034371 		CAME	14,[654777,,657753]  ;PASS IF C(AC)=654777,,657753
  1735						STOP^
  1736	031532	254 04 0 00 031533 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1737	031533	324 00 0 00 031534 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1738	031534	312 15 0 00 034371 		CAME	15,[654777,,657753]  ;PASS IF C(E)=654777,,657753
  1739						STOP^
  1740	031535	254 04 0 00 031536 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1741	031536	324 00 0 00 031537 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1742
  1743					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 26
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0053

  1744					SUBTTL	TEST OF MSCL HWT INSTRUCTIONS
  1745
  1746					;**********
  1747
  1748					;THIS TEST VERIFIES THAT HLLI CLEARS AC LEFT
  1749					;IN THIS CASE, C(AC)=707070,,123456 AND E=777000
  1750					;HENCE, THE RESULT IN THE AC SHOULD BE 0,,123456
  1751
  1752	031537	200 17 0 00 034336 	C63700:	MOVE	17,[707070,,123456]	;PRELOAD AC WITH 707070,,123456
  1753	031540	501 17 0 00 777000 		HLLI	17,777000	;*HLLI SHOULD PLACE 0,,123456 INTO THHE AC
  1754	031541	302 17 0 00 123456 		CAIE	17,123456	;PASS IF C(AC)=0,,123456
  1755						STOP^
  1756	031542	254 04 0 00 031543 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1757	031543	324 00 0 00 031544 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1758
  1759					;**********
  1760
  1761					;THIS TEST VERIFIES THAT HLLS PLACES C(E) INTO THE AC IF AC IS NON-ZERO
  1762					;AND IS A NO-OP IF AC=0
  1763					;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,765432
  1764					;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1
  1765					;AND 123456,,765432 RESPECTIVELY
  1766
  1767	031544	474 00 0 00 000000 	C64000:	SETO	0		;PRELOAD AC WITH -1,,-1
  1768	031545	200 02 0 00 034334 		MOVE	2,[123456,,765432]	;PRELOAD E WITH 123456,,765432
  1769	031546	503 00 0 00 000002 		HLLS	0,2		;*HLLS SHOULD NOT AFFECT AC OR E
  1770	031547	312 00 0 00 034301 		CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
  1771						STOP^
  1772	031550	254 04 0 00 031551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1773	031551	324 00 0 00 031552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1774	031552	312 02 0 00 034334 		CAME	2,[123456,,765432]	;PASS IF C(C) IS UNCHANGED
  1775						STOP^
  1776	031553	254 04 0 00 031554 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1777	031554	324 00 0 00 031555 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1778
  1779					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 27
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0054

  1780					;THIS TEST VERIFIES THAT HLLS PLACES C(E) INTO THE AC IF AC IS NON-ZERO?
  1781					;AND IS A NO-OP IF AC=0
  1782					;IN THIS CASE, AC=1, C(AC)=1,,-1 AND C(E)=123456,,765432
  1783					;HENCE, THE RESULTS IN AC AND E WHOULD BE 123456,,765432
  1784					;AND 123456,,765432 RESPECTVIELY
  1785
  1786	031555	474 01 0 00 000000 	C64010:	SETO	1,		;PRELOAD AC WITH -1,,-1
  1787	031556	200 02 0 00 034334 		MOVE	2,[123456,,765432]	;PRELOAD E WITH 123456,,765432
  1788	031557	503 01 0 00 000002 		HLLS	1,2		;*HLLS SHOULD PLACE 123456,,765432 INTO THE AC
  1789	031560	312 01 0 00 034334 		CAME	1,[123456,,765432]	;PASS IF C(AC)=123456,,765432
  1790						STOP^
  1791	031561	254 04 0 00 031562 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1792	031562	324 00 0 00 031563 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1793	031563	312 02 0 00 034334 		CAME	2,[123456,,765432]	;PASS IF C(C) IS UNCHANGED
  1794						STOP^
  1795	031564	254 04 0 00 031565 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1796	031565	324 00 0 00 031566 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1797
  1798					;**********
  1799
  1800					;THIS TEST VERIFIES THAT HRLS PLACES C(E-RIGHT) INTO E-LEFT, BUT
  1801					;DOES NOT AFFECT E-RIGHT.  IF AC IS NON-ZERO, THE RESULT IN E
  1802					;IS ALSO PLACED INTO THE AC.
  1803					;IN THIS CASE, AC=0, C(AC)=1,,-1 AND C(E)=123456,707070
  1804					;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE -1,,-1
  1805					;AND 707070,,707070.
  1806
  1807	031566	474 00 0 00 000000 	C64100:	SETO	0,		;PRELOAD AC WITH -1,,-1
  1808	031567	200 03 0 00 034372 		MOVE	3,[123456,,707070]	;PRELOAD E WITH 123456,,707070
  1809	031570	507 00 0 00 000003 		HRLS	0,3		;*HRLS SHOULD PLACE 707070,,707070
  1810									;INTO E.
  1811	031571	312 00 0 00 034301 		CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
  1812						STOP^
  1813	031572	254 04 0 00 031573 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1814	031573	324 00 0 00 031574 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1815	031574	312 03 0 00 034373 		CAME	3,[707070,,707070]	;PASS IF C(E)=707070,,707070
  1816						STOP^
  1817	031575	254 04 0 00 031576 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1818	031576	324 00 0 00 031577 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1819
  1820					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 28
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0055

  1821					;THIS TEST VERIFIES THAT HRLS PLACES C(E-RIGHT) INTO E-LEFT, BUT
  1822					;DOES NOT AFFECT E-RIGHT.  IF AC IS NON-ZERO, THE RESULT IN E
  1823					;IS ALSO PLACED INTO THE AC.
  1824					;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707070
  1825					;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707070,,707070
  1826					;AND 707070,,707070.
  1827
  1828	031577	474 01 0 00 000000 	C64110:	SETO	1,		;PRELOAD AC WITH -1,,-1
  1829	031600	200 03 0 00 034372 		MOVE	3,[123456,,707070]	;PRELOAD E WITH 123456,,707070
  1830	031601	507 01 0 00 000003 		HRLS	1,3		;*HRLS SHOULD PLACE 707070,,707070
  1831									;INTO BOTH AC AND E.
  1832	031602	312 01 0 00 034373 		CAME	1,[707070,,707070]	;PASS IF C(AC)=707070,,707070
  1833						STOP^
  1834	031603	254 04 0 00 031604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1835	031604	324 00 0 00 031605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1836	031605	312 03 0 00 034373 		CAME	3,[707070,,707070]	;PASS IF C(E)=707070,,707070
  1837						STOP^
  1838	031606	254 04 0 00 031607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1839	031607	324 00 0 00 031610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1840
  1841					;**********
  1842
  1843					;THIS TEST VERIFIES THAN HLLZM PLACES C(AC-LEFT) INTO E-LEFT AND
  1844					;PLACES 0 INTO E-RIGHT
  1845					;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,717171
  1846					;HENCE, THE RESULT IN E SHOULD BE 123456,,0
  1847
  1848	031610	200 01 0 00 034374 	C64200:	MOVE	1,[123456,,123422]	;PRELOAD AC WITH 123456,,123422
  1849	031611	200 02 0 00 034375 		MOVE	2,[707070,,717171]	;PRELOAD AC WITH 707070,,717171
  1850	031612	512 01 0 00 000002 		HLLZM	1,2		;*HLLZM SHOULD PLACE 123456,,0 INTO E
  1851	031613	312 01 0 00 034374 		CAME	1,[123456,,123422]	;PASS IF C(AC) UNCHANGED
  1852						STOP^
  1853	031614	254 04 0 00 031615 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1854	031615	324 00 0 00 031616 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1855	031616	312 02 0 00 034330 		CAME	2,[123456,,0]	;PASS IF C(E)=123456,,0
  1856						STOP^
  1857	031617	254 04 0 00 031620 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1858	031620	324 00 0 00 031621 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1859
  1860					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 29
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0056

  1861					;THIS TEST VERIFIES THAT HLLZS CLEARS THE RIGHT HALF OF E, BUT DOESN'T
  1862					;AFFECT THE LEFT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
  1863					;ALSO PLACED INTO THE AC.
  1864					;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,707070
  1865					;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1
  1866					;AND 123456,,0 RESPECTIVELY
  1867
  1868	031621	474 00 0 00 000000 	C64300:	SETO	0,		;PRELOAD AC WITH -1,,-1
  1869	031622	200 17 0 00 034372 		MOVE	17,[123456,,707070]	;PRELOAD E WITH 123456,,707070
  1870	031623	513 00 0 00 000017 		HLLZS	0,17		;*HLLZS SHOULD PLACE 123456,,0 INTO E.
  1871	031624	312 00 0 00 034301 		CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
  1872						STOP^
  1873	031625	254 04 0 00 031626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1874	031626	324 00 0 00 031627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1875	031627	312 17 0 00 034330 		CAME	17,[123456,,0]	;PASS IF C(E)=123456,,0
  1876						STOP^
  1877	031630	254 04 0 00 031631 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1878	031631	324 00 0 00 031632 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1879
  1880
  1881					;**********
  1882
  1883					;THIS TEST VERIFIES THAT HLLZS CLEARS THE RIGHT HALF OF E, BUT DOESN'T
  1884					;AFFECT THE LEFT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
  1885					;ALSO PLACED INTO THE AC.
  1886					;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707070
  1887					;HENCE, THE RESULTS IN AC AND E SHOULD BE 123456,,0
  1888					;AND 123456,,0 RESPECTIVELY.
  1889
  1890	031632	474 01 0 00 000000 	C64310:	SETO	1,		;PRELOAD AC WITH -1,,-1
  1891	031633	200 17 0 00 034372 		MOVE	17,[123456,,707070]	;PRELOAD E WITH 123456,,707070
  1892	031634	513 01 0 00 000017 		HLLZS	1,17		;*HLLZS SHOULD PLACE 123456,,0 INTO
  1893									;BOTH AC AND E
  1894	031635	312 01 0 00 034330 		CAME	1,[123456,,0]	;PASS IF C(AC)=123456,,0
  1895						STOP^
  1896	031636	254 04 0 00 031637 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1897	031637	324 00 0 00 031640 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1898	031640	312 17 0 00 034330 		CAME	17,[123456,,0]	;PASS IF C(E)=123456,,0
  1899						STOP^
  1900	031641	254 04 0 00 031642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1901	031642	324 00 0 00 031643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1902
  1903					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 30
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0057

  1904					;THIS TEST VERIFIES THAT HRLZM PLACES C(AC-RIGHT) INTO E-LEFT AND
  1905					;PLACES O INTO E-RIGHT.
  1906					;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171
  1907					;HENCE, THE RESULT IN E SHOULD BE 123422,,0
  1908
  1909	031643	200 01 0 00 034374 	C64400:	MOVE	1,[123456,,123422]	;PRELOAD AC WITH 123456,,123422
  1910	031644	200 02 0 00 034375 		MOVE	2,[707070,,717171]	;PRELOAD AC WITH 707070,,717171
  1911	031645	516 01 0 00 000002 		HRLZM	1,2		;*HRLZM SHOULD PLACE 123422,,0 INTO E
  1912	031646	312 01 0 00 034374 		CAME	1,[123456,,123422]	;PASS IF C(AC) UNCHANGED
  1913						STOP^
  1914	031647	254 04 0 00 031650 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1915	031650	324 00 0 00 031651 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1916	031651	312 02 0 00 034376 		CAME	2,[123422,,0]	;PASS IF C(E)=123422,,0
  1917						STOP^
  1918	031652	254 04 0 00 031653 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1919	031653	324 00 0 00 031654 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1920
  1921					;**********
  1922
  1923					;THIS TEST VERIFIES THAT HRLZS PLACES C(E-RIGHT) INTO E-LEFT AND
  1924					;CLEARS E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALSO
  1925					;PLACED INTO THE AC.
  1926					;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,707076
  1927					;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE -1,,-1
  1928					;AND 707076,,0
  1929
  1930	031654	474 00 0 00 000000 	C64500:	SETO	0,		;PRELOAD AC WITH -1,,-1
  1931	031655	200 16 0 00 034377 		MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
  1932	031656	517 00 0 00 000016 		HRLZS	0,16		;*HRLZS SHOULD PLACE 707076,,0
  1933									;INTO E.
  1934	031657	312 00 0 00 034301 		CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
  1935						STOP^
  1936	031660	254 04 0 00 031661 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1937	031661	324 00 0 00 031662 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1938	031662	312 16 0 00 034400 		CAME	16,[707076,,0]	;PASS IF C(AC)=707076,,0
  1939						STOP^
  1940	031663	254 04 0 00 031664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1941	031664	324 00 0 00 031665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1942
  1943					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 31
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0058

  1944					;THIS TEST VERIFIES THAT HRLZS PLACES C(E-RIGHT) INTO E-LEFT AND
  1945					;CLEARS E-RIGHT.  IF AC IS NON-ZERO, THE RESULT IN E IS ALSO
  1946					;PLACED INTO THE AC.
  1947					;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707076
  1948					;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707076,,0
  1949					;AND 707076,,0
  1950
  1951	031665	474 01 0 00 000000 	C64510:	SETO	1,		;PRELOAD AC WITH -1,,-1
  1952	031666	200 16 0 00 034377 		MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
  1953	031667	517 01 0 00 000016 		HRLZS	1,16		;*HRLZS SHOULD PLACE 707076,,0
  1954									;INTO BOTH AC AND E.
  1955	031670	312 01 0 00 034400 		CAME	1,[707076,,0]	;PASS IF C(AC)=707076,,0
  1956						STOP^
  1957	031671	254 04 0 00 031672 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1958	031672	324 00 0 00 031673 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1959	031673	312 16 0 00 034400 		CAME	16,[707076,,0]	;PASS IF C(AC)=707076,,0
  1960						STOP^
  1961	031674	254 04 0 00 031675 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1962	031675	324 00 0 00 031676 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1963
  1964					;**********
  1965
  1966					;THIS TEST VERIFIES THAT HLLOM PLACES C(AC-LEFT) INTO E-LEFT AND
  1967					;PLACES -1 INTO E-RIGHT.
  1968					;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171
  1969					;HENCE, THE RESULT IN E SHOULD BE 123456,,-1.
  1970
  1971	031676	200 01 0 00 034374 	C64600:	MOVE	1,[123456,,123422]	;PRELOAD AC WITH 123456,,123422
  1972	031677	200 02 0 00 034375 		MOVE	2,[707070,,717171]	;PRELOAD AC WITH 707070,,717171
  1973	031700	522 01 0 00 000002 		HLLOM	1,2		;*HLLOM SHOULD PLACE 123456,,-1 INTO E
  1974	031701	312 01 0 00 034374 		CAME	1,[123456,,123422]	;PASS IF C(AC) UNCHANGED
  1975						STOP^
  1976	031702	254 04 0 00 031703 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1977	031703	324 00 0 00 031704 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1978	031704	312 02 0 00 034401 		CAME	2,[123456,,-1]	;PASS IF C(E)=123456,,-1
  1979						STOP^
  1980	031705	254 04 0 00 031706 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1981	031706	324 00 0 00 031707 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1982
  1983					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 32
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0059

  1984					;THIS TEST VERIFIES THAT HRLO, C(E-RIGHT) INTO AC=LEFT AND
  1985					;PLACES -1 INTO AC-RIGHT.  IN THIS CASE, C(AC)=123456,,135724 AND
  1986					;C(E)=765432,,246135.  HENCE, THE RESULT IN THE AC SHOULD BE 246135,,-1
  1987
  1988	031707	200 15 0 00 034402 	C64700:	MOVE	15,[123456,,135724]	;PRELOAD AC WITH 123456,,135724
  1989	031710	200 16 0 00 034403 		MOVE	16,[765432,,246135]	;PRELOAD E WITH 765432,,246135
  1990	031711	524 15 0 00 000016 		HRLO	15,16		;*HRLO SHOULD PLACE 246135,,-1 INTO AC
  1991	031712	312 15 0 00 034404 		CAME	15,[246135,,-1]	;PASS IF C(AC)=246135,,-1
  1992						STOP^
  1993	031713	254 04 0 00 031714 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1994	031714	324 00 0 00 031715 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1995	031715	312 16 0 00 034403 		CAME	16,[765432,,246135]	;PASS IF C(E) UNCHANGED
  1996						STOP^
  1997	031716	254 04 0 00 031717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1998	031717	324 00 0 00 031720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1999
  2000					;**********
  2001
  2002					;THIS TEST VERIFIES THAT HRLOI PLACES 0,,E INTO AC-LEFT AND
  2003					;PLACES ONES INTO AC-RIGHT.  IN THIS CASE, C(AC)=0 AND E=0,,123456.
  2004					;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,-1
  2005
  2006	031720	400 14 0 00 000000 	C65000:	SETZ	14,		;CLEAR AC
  2007	031721	525 14 0 00 123456 		HRLOI	14,123456	;*HRLOI SHOULD PLACE 123456,,-1 INTO THE AC
  2008	031722	312 14 0 00 034401 		CAME	14,[123456,,-1]	;PASS IF C(AC)=123456,,-1
  2009						STOP^
  2010	031723	254 04 0 00 031724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2011	031724	324 00 0 00 031725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2012
  2013					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 33
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0060

  2014					;THIS TEST VERIFIES THAT HRLOM PLACES C(AC-RIGHT) INTO E-LEFT
  2015					;AND PLACES -1 INTO E-RIGHT. IN THIS CASE, C(E)=0 AND C(AC)=123123,,456765
  2016					;HENCE, THE RESULT IN E SHOULD BE 456765,,-1.
  2017
  2018	031725	402 00 0 00 000014 	C65100:	SETZM	14		;CLEAR E
  2019	031726	200 13 0 00 034405 		MOVE	13,[123123,,456765]	;PRELOAD AC WITH 123123,,456765
  2020	031727	526 13 0 00 000014 		HRLOM	13,14		;*HRLOM SHOULD PLACE 456765,,-1 INTO E
  2021	031730	312 13 0 00 034405 		CAME	13,[123123,,456765]	;PASS IF C(AC) UNCHANGED
  2022
  2023						STOP^
  2024	031731	254 04 0 00 031732 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2025	031732	324 00 0 00 031733 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2026	031733	312 14 0 00 034406 		CAME	14,[456765,,-1]	;PASS IF C(E)=456765,,-1
  2027						STOP^
  2028	031734	254 04 0 00 031735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2029	031735	324 00 0 00 031736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2030
  2031					;**********
  2032
  2033
  2034					;THIS TEST VERIFIES THAT HRLOS PLACES C(E-RIGHT) INTO E-LEFT AND
  2035					;PLACES -1 INTO E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALOS
  2036					;PLACED INTO THE AC.
  2037					;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,707076
  2038					;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 0
  2039					;AND 707076,,0
  2040
  2041	031736	400 00 0 00 000000 	C65200:	SETZ	0,		;PRELOAD AC WITH 0
  2042	031737	200 16 0 00 034377 		MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
  2043	031740	527 00 0 00 000016 		HRLOS	0,16		;*HRLZS SHOULD PLACE 707076,,-1
  2044									;INTO E.
  2045	031741	312 00 0 00 034407 		CAME	0,[0]		;PASS IF C(AC) UNCHANGED
  2046						STOP^
  2047	031742	254 04 0 00 031743 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2048	031743	324 00 0 00 031744 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2049	031744	312 16 0 00 034410 		CAME	16,[707076,,-1]	;PASS IF C(AC)=707076,,-1
  2050						STOP^
  2051	031745	254 04 0 00 031746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2052	031746	324 00 0 00 031747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2053
  2054					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 34
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0061

  2055					;THIS TEST VERIFIES THAT HRLOS PLACES C(E-RIGHT) INTO E-LEFT AND
  2056					;PLACES -1 INTO E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALSO
  2057					;PLACED INTO THE AC.
  2058					;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,707076
  2059					;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707076,,-1
  2060					;AND 707076,,-1
  2061
  2062	031747	400 01 0 00 000000 	C65210:	SETZ	1,		;PRELOAD AC WITH 0
  2063	031750	200 16 0 00 034377 		MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
  2064	031751	527 01 0 00 000016 		HRLOS	1,16		;*HRLZS SHOULD PLACE 707076,,-1
  2065									;INTO BOTH AC AND E
  2066	031752	312 01 0 00 034410 		CAME	1,[707076,,-1]	;PASS IF C(AC)=707076,,-1
  2067						STOP^
  2068	031753	254 04 0 00 031754 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2069	031754	324 00 0 00 031755 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2070	031755	312 16 0 00 034410 		CAME	16,[707076,,-1]	;PASS IF C(AC)=707076,,-1
  2071						STOP^
  2072	031756	254 04 0 00 031757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2073	031757	324 00 0 00 031760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2074
  2075					;**********
  2076
  2077					;THIS TEST VERIFIES THAT HLLEM PLACES C(AC-LEFT) INTO E-LEFT
  2078					;AND PLACES BIT 0 OF THE AC INTO BITS 18 THRU 35 OF E.  IN THIS CASE,
  2079					;C(AC)=123456,,707076 AND C(E)=-1,,-1.  HENCE, THE RESULT IN E
  2080					;SHOULD BE 123456,,0.
  2081
  2082	031760	200 12 0 00 034377 	C65300:	MOVE	12,[123456,,707076]	;PRELOAD AC WITH 123456,,707076
  2083	031761	476 00 0 00 000013 		SETOM	13		;PRELOAD E WITH -1,,-1
  2084	031762	532 12 0 00 000013 		HLLEM	12,13		;*HLLEM SHOULD PLACE 123456,,0 INTO E
  2085	031763	312 12 0 00 034377 		CAME	12,[123456,,707076]	;PASS IF C(AC) UNCHANGED
  2086						STOP^
  2087	031764	254 04 0 00 031765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2088	031765	324 00 0 00 031766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2089	031766	312 13 0 00 034330 		CAME	13,[123456,,0]	;PASS IF C(E)=123456,,0
  2090						STOP^
  2091	031767	254 04 0 00 031770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2092	031770	324 00 0 00 031771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2093
  2094					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 35
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0062

  2095					;THIS TEST VERIFIES THAT HLLES PLACES C(E-LEFT) INTO E-LEFT AND
  2096					;PLACES BIT 0 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO
  2097					;THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2098					;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=765432,,0.
  2099					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
  2100					;AND 765432,,-1 RESPECTIVELY.
  2101
  2102	031771	400 00 0 00 000000 	C65400:	SETZ	0,		;CLEAR AC
  2103	031772	515 02 0 00 765432 		HRLZI	2,765432	;PRELOAD E WITH 765432,,0
  2104	031773	533 00 0 00 000002 		HLLES	0,2		;*HLLES SHOULD PLACE 765432,,-1
  2105									;INTO E
  2106	031774	312 00 0 00 034407 		CAME	0,[0]		;PASS IF C(AC) UNCHANGED
  2107						STOP^
  2108	031775	254 04 0 00 031776 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2109	031776	324 00 0 00 031777 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2110	031777	312 02 0 00 034411 		CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
  2111						STOP^
  2112	032000	254 04 0 00 032001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2113	032001	324 00 0 00 032002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2114
  2115					;**********
  2116
  2117					;THIS TEST VERIFIES THAT HLLES PLACES C(E-LEFT) INTO E-LEFT AND
  2118					;PLACES BIT 0 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO,
  2119					;THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2120					;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=765432,,0
  2121					;HENCE, THE RESULTS IN AC AND E SHOULD BE 765432,,-1
  2122					;AND 765432,,-1 RESPECTIVELY
  2123
  2124	032002	400 01 0 00 000000 	C65410:	SETZ	1,		;CLEAR AC
  2125	032003	515 02 0 00 765432 		HRLZI	2,765432	;PRELOAD E WITH 765432,,0
  2126	032004	533 01 0 00 000002 		HLLES	1,2		;*HLLES SHOULD PLACE 765432,,-1
  2127									;INTO BOTH AC AND E
  2128	032005	312 01 0 00 034411 		CAME	1,[765432,,-1]	;PASS IF C(AC)=765432,,-1
  2129						STOP^
  2130	032006	254 04 0 00 032007 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2131	032007	324 00 0 00 032010 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2132	032010	312 02 0 00 034411 		CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
  2133						STOP^
  2134	032011	254 04 0 00 032012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2135	032012	324 00 0 00 032013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2136
  2137					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 36
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0063

  2138					;THIS TEST VERIFIES THAT HLLEM PLACES C(AC-RIGHT) INTO E-LEFT
  2139					;AND PLACES BIT 18 OF THE AC INTO BITS 18 THRU 35 OF E.  IN THIS CASE,
  2140					;C(AC)=365432,123456 AND C(E)=-1,,-1.  HENCE, THE RESULT IN E
  2141					;SHOULD BE 365432,,0.
  2142
  2143	032013	200 12 0 00 034412 	C65500:	MOVE	12,[365432,,123456]	;PRELOAD AC WITH 365432,,123456
  2144	032014	476 00 0 00 000013 		SETOM	13		;PRELOAD E WITH -1,,-1
  2145	032015	532 12 0 00 000013 		HLLEM	12,13		;*HLLEM SHOULD PLACE 365432,,0 INTO E
  2146	032016	312 12 0 00 034412 		CAME	12,[365432,,123456]	;PASS IF C(AC) UNCHANGED
  2147						STOP^
  2148	032017	254 04 0 00 032020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2149	032020	324 00 0 00 032021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2150	032021	312 13 0 00 034413 		CAME	13,[365432,,0]	;PASS IF C(E)=365432,,0
  2151						STOP^
  2152	032022	254 04 0 00 032023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2153	032023	324 00 0 00 032024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2154
  2155					;**********
  2156
  2157					;THIS TEST VERIFIES THAT HRLES PLACES C(E-RIGHT) INTO E-LEFT AND
  2158					;PLACES BIT 18 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO,
  2159					;THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2160					;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=0,,765432
  2161					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
  2162					;AND 765432,,-1 RESPECTIVELY
  2163
  2164	032024	400 00 0 00 000000 	C65600:	SETZ	0,		;CLEAR AC
  2165	032025	551 02 0 00 765432 		HRRZI	2,765432	;PRELOAD E WITH 0,,765432
  2166	032026	537 00 0 00 000002 		HRLES	0,2		;*HLLES SHOULD PLACE 765432,,-1
  2167									;INTO
  2168	032027	312 00 0 00 034407 		CAME	0,[0]		;PASS IF C(AC) UNCHANGED
  2169						STOP^
  2170	032030	254 04 0 00 032031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2171	032031	324 00 0 00 032032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2172	032032	312 02 0 00 034411 		CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
  2173						STOP^
  2174	032033	254 04 0 00 032034 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2175	032034	324 00 0 00 032035 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2176
  2177					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 37
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0064

  2178					;THIS TEST VERIFIES THAT HRLES PLACES C(E-RIGHT) INTO E-LEFT AND
  2179					;PLACES BIT 18 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO,
  2180					;THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2181					;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=0,,765432
  2182					;HENCE, THE RESULTS IN AC AND E SHOULD BE 765432,,-1
  2183					;AND 765432,,-1 RESPECTIVELY.
  2184
  2185	032035	400 01 0 00 000000 	C65610:	SETZ	1,		;CLEAR AC
  2186	032036	551 02 0 00 765432 		HRRZI	2,765432	;PRELOAD E WITH 0,765432
  2187	032037	537 01 0 00 000002 		HRLES	1,2		;*HLLES SHOULD PLACE 765432,,-1
  2188									;INTO BOTH AC AND E
  2189	032040	312 01 0 00 034411 		CAME	1,[765432,,-1]	;PASS IF C(AC)=765442,,-1
  2190						STOP^
  2191	032041	254 04 0 00 032042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2192	032042	324 00 0 00 032043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2193	032043	312 02 0 00 034411 		CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
  2194						STOP^
  2195	032044	254 04 0 00 032045 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2196	032045	324 00 0 00 032046 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2197
  2198
  2199					;**********
  2200
  2201					;THIS TEST VERIFIES THAT HLRM SHOULD PLACE C(AC-LEFT) INTO E-RIGHT
  2202					;AND NOT AFFECT E-LEFT.  IN THIS CASE, C(AC)=123456,,701234
  2203					;AND C(E)=0.  HENCE, THE RESULT IN E SHOULD BE 0,,123456
  2204
  2205	032046	200 11 0 00 034414 	C65700:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2206	032047	402 00 0 00 000012 		SETZM	12		;CLEAR E
  2207	032050	546 11 0 00 000012 		HLRM	11,12		;*HLRM SHOULD PLACE 0,,123456 INTO E
  2208	032051	312 11 0 00 034414 		CAME	11,[123456,,701234]	;PASS IF C(AC) UNCHANGE
  2209						STOP^
  2210	032052	254 04 0 00 032053 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2211	032053	324 00 0 00 032054 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2212	032054	302 12 0 00 123456 		CAIE	12,123456	;PASS IF C(E)=0,,123456
  2213						STOP^
  2214	032055	254 04 0 00 032056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2215	032056	324 00 0 00 032057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2216
  2217					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 38
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0065

  2218					;THIS TEST VERIFIES THAT HLRS PLACES C(E-LEFT) INTO E-RIGHT AND
  2219					;DOES NOT AFFECT E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
  2220					;IS ALSO PLACED INTO THE AC.
  2221					;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123123,,246135
  2222					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
  2223					;AND 123123,,123123 RESPECTIVELY.
  2224
  2225	032057	400 00 0 00 000000 	C66000:	SETZ	0,		;CLEAR AC
  2226	032060	200 12 0 00 034415 		MOVE	12,[123123,,246135]	;PRELOAD E WITH 123123,,246135
  2227	032061	547 00 0 00 000012 		HLRS	0,12		;*HLRS SHOULD PLACE 123123,,123123
  2228									;INTO E.
  2229	032062	312 00 0 00 034407 		CAME	0,[0]		;PASS IF C(AC) UNCHANGED
  2230						STOP^
  2231	032063	254 04 0 00 032064 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2232	032064	324 00 0 00 032065 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2233	032065	312 12 0 00 034416 		CAME	12,[123123,,123123]	;PASS IF C(E)=123123,,123123
  2234						STOP^
  2235	032066	254 04 0 00 032067 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2236	032067	324 00 0 00 032070 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2237
  2238
  2239					;**********
  2240
  2241					;THIS TEST VERIFIES THAT HLRS PLACES C(E-LEFT) INTO E-RIGHT AND
  2242					;DOES NOT AFFECT E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
  2243					;IS ALSO PLACED INTO THE AC.
  2244					;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123123,,246135
  2245					;HENCE, THE RESULTS IN AC AND E SHOULD BE 123123,,123123
  2246					;AND 123123,,123123 RESPECTIVELY.
  2247
  2248	032070	400 01 0 00 000000 	C66010:	SETZ	1,		;CLEAR AC
  2249	032071	200 12 0 00 034415 		MOVE	12,[123123,,246135]	;PRELOAD E WITH 123123,,246135
  2250	032072	547 01 0 00 000012 		HLRS	1,12		;*HLRS SHOULD PLACE 123123,,123123
  2251									;INTO BOTH AC AND E.
  2252	032073	312 01 0 00 034416 		CAME	1,[123123,,123123]	;PASS IF C(AC)=123123,,123123
  2253						STOP^
  2254	032074	254 04 0 00 032075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2255	032075	324 00 0 00 032076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2256	032076	312 12 0 00 034416 		CAME	12,[123123,,123123]	;PASS IF C(E)=123123,,123123
  2257						STOP^
  2258	032077	254 04 0 00 032100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2259	032100	324 00 0 00 032101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2260
  2261					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 39
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0066

  2262					;THIS TEST VERIFIES THAT HRRZS CLEARS THE LEFT HALF OF E, BUT DOES NOT
  2263					;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
  2264					;ALSO PLACED INTO THE AC.
  2265					;IN THIS CASE, AC = 0, C(AC) = -1,,-1 AND C(E) = 123456,,701234
  2266					;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 AND 0,,701234
  2267					;RESPECTIVELY.
  2268
  2269	032101	474 00 0 00 000000 	C66100:	SETO	0		;PRELOAD AC WITH -1,,-1
  2270	032102	200 17 0 00 034414 		MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2271	032103	553 00 0 00 000017 		HRRZS	0,17		;HRRZS SHOULD PLACE 0,,701234 INTO E
  2272	032104	312 00 0 00 034301 		CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
  2273						STOP^
  2274	032105	254 04 0 00 032106 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2275	032106	324 00 0 00 032107 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2276	032107	302 17 0 00 701234 		CAIE	17,701234	;PASS IF C(E) = 0,,701234
  2277						STOP^
  2278	032110	254 04 0 00 032111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2279	032111	324 00 0 00 032112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2280
  2281					;**********
  2282
  2283					;THIS TEST VERIFIES THAT HRRZS CLEARS THE LEFT HALF OF E, BUT DOES NOT
  2284					;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
  2285					;ALSO PLACED INTO THE AC.
  2286					;IN THIS CASE, AC = 1, C(AC) = -1,,-1 AND C(E) = 123456,,701234
  2287					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,701234 AND 0,,701234
  2288					;RESPECTIVELY.
  2289
  2290	032112	474 01 0 00 000000 	C66110:	SETO	1,		;PRELOAD AC WITH -1,,-1
  2291	032113	200 17 0 00 034414 		MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2292	032114	553 01 0 00 000017 		HRRZS	1,17		;HRRZS SHOULD PLACE 0,,701234 INTO
  2293									;BOTH AC AND E
  2294	032115	302 01 0 00 701234 		CAIE	1,701234	;PASS IF C(AC) = 0,,701234
  2295						STOP^
  2296	032116	254 04 0 00 032117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2297	032117	324 00 0 00 032120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2298	032120	302 17 0 00 701234 		CAIE	17,701234	;PASS IF C(E) = 0,,701234
  2299						STOP^
  2300	032121	254 04 0 00 032122 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2301	032122	324 00 0 00 032123 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2302
  2303					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 40
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0067

  2304					;THIS TEST VERIFIES THAT HLRZI CLEARS THE AC
  2305					;IN THIS CASE, C(AC) = -1,,-1 AND E = 0,,-1.  HENCE, THE
  2306					;RESULT IN THE AC SHOULD BE 0.
  2307
  2308	032123	474 00 0 00 000007 	C66200:	SETO	7		;PRELOAD AC WITH -1,,-1
  2309	032124	555 07 0 00 777777 		HLRZI	7,-1		;*HLRZI SHOULD CLEAR THE AC
  2310	032125	332 00 0 00 000007 		SKIPE	7		;PASS IF C(AC) = 0
  2311						STOP^
  2312	032126	254 04 0 00 032127 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2313	032127	324 00 0 00 032130 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2314
  2315					;**********
  2316
  2317					;THIS TEST VERIFIES THAT HLRZM PLACES C(AC-LEFT) INTO E-RIGHT AND
  2318					;PLACES 0 INTO E-LEFT.
  2319					;IN THIS CASE, C(AC) = 123456,,123422 AND C(E) = 707070,,717171
  2320					;HENCE, THE RESULT IN E SHOULD BE 0,,123456.
  2321
  2322	032130	200 01 0 00 034374 	C66300:	MOVE	1,[123456,,123422]  ;PRELOAD AC WITH 123456,,123422
  2323	032131	200 02 0 00 034375 		MOVE	2,[707070,,717171]  ;PRELOAD AC WITH 707070,,717171
  2324	032132	556 01 0 00 000002 		HLRZM	1,2		;*HLRZM SHOULD PLACE 0,,123456 INTO E.
  2325	032133	312 01 0 00 034374 		CAME	1,[123456,,123422]  ;PASS IF C(AC) UNCHANGED
  2326						STOP^
  2327	032134	254 04 0 00 032135 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2328	032135	324 00 0 00 032136 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2329	032136	302 02 0 00 123456 		CAIE	2,123456	;PASS IF C(E) = 0,,123456
  2330						STOP^
  2331	032137	254 04 0 00 032140 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2332	032140	324 00 0 00 032141 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2333
  2334					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 41
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0068

  2335					;THIS TEST VERIFIES THAT HLRZM PLACES C(AC-LEFT) INTO E-RIGHT AND
  2336					;PLACES 0 INTO E-LEFT.
  2337					;IN THIS CASE, C(AC) = 123456,,123422 AND C(E) = 707070,,717171
  2338					;HENCE, THE RESULT IN E SHOULD BE 0,,123456.
  2339
  2340	032141	200 01 0 00 034374 	C66301:	MOVE	1,[123456,,123422]  ;PRELOAD AC WITH 123456,,123422
  2341	032142	200 02 0 00 034375 		MOVE	2,[707070,,717171]  ;PRELOAD AC WITH 707070,,717171
  2342	032143	202 02 0 00 032155 		MOVEM	2,E66301
  2343	032144	556 01 0 00 032155 		HLRZM	1,E66301	;*HLRZM SHOULD PLACE 0,,123456 INTO E.
  2344	032145	312 01 0 00 034374 		CAME	1,[123456,,123422]  ;PASS IF C(AC) UNCHANGED
  2345						STOP^
  2346	032146	254 04 0 00 032147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2347	032147	324 00 0 00 032150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2348	032150	200 02 0 00 032155 		MOVE	2,E66301
  2349	032151	302 02 0 00 123456 		CAIE	2,123456	;PASS IF C(E) = 0,,123456
  2350						STOP^
  2351	032152	254 04 0 00 032153 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2352	032153	324 00 0 00 032154 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2353
  2354	032154	334 00 0 00 000000 		SKIPA			;GO TO NEXT TEST
  2355	032155	000000	000000		E66301:	0			;TEST WORD MEMORY
  2356
  2357					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 42
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0069

  2358					;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND
  2359					;PLACES 0 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E IS
  2360					;ALSO PLACED INTO THE AC.
  2361					;IN THIS CASE, AC = 0, C(AC) = -1,,-1 AND C(E) = 123456,,701234.
  2362					;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 AND 0,,123456
  2363					;RESPECTIVELY.
  2364
  2365	032156	474 00 0 00 000000 	C66400:	SETO	0,		;PRELOAD AC WITH -1,,-1
  2366	032157	200 07 0 00 034414 		MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2367	032160	557 00 0 00 000007 		HLRZS	0,7		;*HLRZS SHOULD PLACE 0,,123456 INTO E
  2368	032161	312 00 0 00 034301 		CAME	0,[-1]		;PASS IF C(AC) IS UNCHANGED
  2369						STOP^
  2370	032162	254 04 0 00 032163 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2371	032163	324 00 0 00 032164 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2372	032164	302 07 0 00 123456 		CAIE	7,123456	;PASS IF C(E) = 0,,123456
  2373						STOP^
  2374	032165	254 04 0 00 032166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2375	032166	324 00 0 00 032167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2376
  2377					;**********
  2378
  2379					;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND
  2380					;PLACES 0 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
  2381					;IS ALSO PLACED INTO THE AC.
  2382					;IN THIS CASE, AC = 6, C(AC) = -1,,-1 AND C(E) = 123456,,701234.
  2383					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456 AND 0123456
  2384					;RESPECTIVELY.
  2385
  2386	032167	474 06 0 00 000000 	C66410:	SETO	6,		;PRELOAD AC WITH -1,,-1
  2387	032170	200 07 0 00 034414 		MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2388	032171	557 06 0 00 000007 		HLRZS	6,7		;*HLRZS SHOULD PLACE 0,,123456 INTO
  2389									;BOTH AC AND E
  2390	032172	302 06 0 00 123456 		CAIE	6,123456	;PASS IF C(AC) = 0,,123456
  2391						STOP^
  2392	032173	254 04 0 00 032174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2393	032174	324 00 0 00 032175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2394	032175	302 07 0 00 123456 		CAIE	7,123456	;PASS IF C(E) = 0,,123456
  2395						STOP^
  2396	032176	254 04 0 00 032177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2397	032177	324 00 0 00 032200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2398
  2399					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 43
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0070

  2400					;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND
  2401					;PLACES 0 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
  2402					;IS ALSO PLACED INTO THE AC.
  2403					;IN THIS CASE, AC = 6, C(AC) = -1,,-1 AND C(E) = 123456,,701234.
  2404					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456 AND 0123456
  2405					;RESPECTIVELY.
  2406
  2407	032200	474 06 0 00 000000 	C66411:	SETO	6,		;PRELOAD AC WITH -1,,-1
  2408	032201	200 07 0 00 034414 		MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2409	032202	202 07 0 00 032214 		MOVEM	7,E66411
  2410	032203	557 06 0 00 032214 		HLRZS	6,E66411	;*HLRZS SHOULD PLACE 0,,123456 INTO
  2411									;BOTH AC AND E
  2412	032204	302 06 0 00 123456 		CAIE	6,123456	;PASS IF C(AC) = 0,,123456
  2413						STOP^
  2414	032205	254 04 0 00 032206 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2415	032206	324 00 0 00 032207 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2416	032207	200 07 0 00 032214 		MOVE	7,E66411
  2417	032210	302 07 0 00 123456 		CAIE	7,123456	;PASS IF C(E) = 0,,123456
  2418						STOP^
  2419	032211	254 04 0 00 032212 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2420	032212	324 00 0 00 032213 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2421
  2422	032213	334 00 0 00 000000 		SKIPA			;GO TO NEXT TEST
  2423	032214	000000	000000		E66411:	0			;TEST WORD MEMORY
  2424
  2425					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 44
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0071

  2426					;THIS TEST VERIFIES THAT HRROM PLACES C(AC-RIGHT) INTO E-RIGHT AND
  2427					;PLACES -1 INTO E-LEFT.  IN THIS CASE, C(AC) = 123456,,701234 AND
  2428					;C(E) = 0.  HENCE, THE RESULT IN E SHOULD BE -1,,601234.
  2429
  2430	032215	200 05 0 00 034414 	C66500:	MOVE	5,[123456,,701234]  ;PRELOAD AC WITH 123456,,701234
  2431	032216	402 00 0 00 000006 		SETZM	6		;CLEAR E
  2432	032217	562 05 0 00 000006 		HRROM	5,6		;*HRROM SHOULD PLACE -1,,701234 INTO E
  2433	032220	312 05 0 00 034414 		CAME	5,[123456,,701234]  ;PASS IF C(AC) UNCHANGED
  2434						STOP^
  2435	032221	254 04 0 00 032222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2436	032222	324 00 0 00 032223 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2437	032223	312 06 0 00 034417 		CAME	6,[-1,,701234]	;PASS IF C(E) = -1,,701234
  2438						STOP^
  2439	032224	254 04 0 00 032225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2440	032225	324 00 0 00 032226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2441
  2442
  2443					;**********
  2444
  2445					;THIS TEST VERIFIES THAT HRROS PLACES -1 INTO THE LEFT HALF OF E, BUT DOES NOT
  2446					;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO THE RESULT IN E IS
  2447					;ALSO PLACED INTO THE AC.
  2448					;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234
  2449					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
  2450					;AND -1,,701234 RESPECTIVELY.
  2451
  2452	032226	400 00 0 00 000000 	C66600:	SETZ	0		;PRELOAD AC WITH 0
  2453	032227	200 17 0 00 034414 		MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2454	032230	563 00 0 00 000017 		HRROS	0,17		;HRROS SHOULD PLACE -1,,701234 INTO E
  2455	032231	312 00 0 00 034407 		CAME	0,[0]		;PASS IF C(AC) IS UNCHANGED
  2456						STOP^
  2457	032232	254 04 0 00 032233 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2458	032233	324 00 0 00 032234 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2459	032234	312 17 0 00 034417 		CAME	17,[-1,,701234]	;PASS IF C(E)=-1,,701234
  2460						STOP^
  2461	032235	254 04 0 00 032236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2462	032236	324 00 0 00 032237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2463
  2464					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 45
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0072

  2465					;THIS TEST VERIFIES THAT HRROS PLACES -1 INTO THE LEFT HALF OF E, BUT DOES NOT
  2466					;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO THE RESULT IN E IS
  2467					;ALSO PLACED INTO THE AC.
  2468					;IN THIS CASE, AC=16, C(AC)=0 AND C(E)=123456,,701234
  2469					;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,701234
  2470					;AND -1,,701234 RESPECTIVELY.
  2471
  2472	032237	400 16 0 00 000000 	C66610:	SETZ	16,		;PRELOAD AC WITH 0
  2473	032240	200 17 0 00 034414 		MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2474	032241	563 16 0 00 000017 		HRROS	16,17		;*HRROS SHOULD PLACE -1,,701234 INTO
  2475									;BOTH AC AND E
  2476	032242	312 16 0 00 034417 		CAME	16,[-1,,701234]	;PASS IF C(AC)=-1,,701234
  2477						STOP^
  2478	032243	254 04 0 00 032244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2479	032244	324 00 0 00 032245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2480	032245	312 17 0 00 034417 		CAME	17,[-1,,701234]	;PASS IF C(E)=-1,,701234
  2481						STOP^
  2482	032246	254 04 0 00 032247 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2483	032247	324 00 0 00 032250 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2484
  2485					;**********
  2486
  2487					;THIS TEST VERIFIES THAT HLRO PLACES C(E-LEFT) INTO AC-RIGHT AND
  2488					;PLACES -1 INTO AC-LEFT.  IN THIS CASE, C(AC)=0
  2489					;C(E)=765432,,107654.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,765432.
  2490
  2491	032250	400 04 0 00 000000 	C66700:	SETZ	4,		;CLEAR AC
  2492	032251	200 05 0 00 034420 		MOVE	5,[765432,,107654]  ;PRELOAD E WITH 765432,,107654
  2493	032252	564 04 0 00 000005 		HLRO	4,5		;*HLRO SHOULD PLACE -1,,765432 INTO THE AC
  2494	032253	312 04 0 00 034421 		CAME	4,[-1,,765432]	;PASS IF C(AC)=-1,,765432
  2495						STOP^
  2496	032254	254 04 0 00 032255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2497	032255	324 00 0 00 032256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2498	032256	312 05 0 00 034420 		CAME	5,[765432,,107654]  ;PASS IF C(E) IS UNCHANGED
  2499						STOP^
  2500	032257	254 04 0 00 032260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2501	032260	324 00 0 00 032261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2502
  2503					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 46
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0073

  2504					;THIS TEST VERIFIES THAT HLROI PLACES -1,,0 INTO THE AC.
  2505					;IN THIS CASE, C(AC)=123456,,765432 AND E=070707.  HENCE, THE
  2506					;RESULT IN THE AC SHOULD BE -1,,0
  2507
  2508	032261	200 03 0 00 034334 	C67000:	MOVE	3,[123456,,765432]  ;PRELOAD AC WITH 123456,,765432
  2509	032262	565 03 0 00 070707 		HLROI	3,070707	;*HLROI SHOULD PLACE -1,,0 INTO THE AC
  2510	032263	312 03 0 00 034422 		CAME	3,[-1,,0]	;PASS IF C(AC)=-1,,0
  2511						STOP^
  2512	032264	254 04 0 00 032265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2513	032265	324 00 0 00 032266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2514
  2515					;**********
  2516
  2517					;THIS TEST VERIFIES THAT HLROM PLACES C(AC-LEFT) INTO E RIGHT AND
  2518					;PLACES -1 INTO E-LEFT
  2519					;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171
  2520					;HENCE, THE RESULT IN E SHOULD BE -1,,123456
  2521
  2522	032266	200 01 0 00 034374 	C67100:	MOVE	1,[123456,,123422]  ;PRELOAD AC WITH 123456,,123422
  2523	032267	200 02 0 00 034375 		MOVE	2,[707070,,717171]  ;PRELOAD AC WITH 707070,,717171
  2524	032270	566 01 0 00 000002 		HLROM	1,2		;*HLROM SHOULD PLACE -1,,123456 INTO E
  2525	032271	312 01 0 00 034374 		CAME	1,[123456,,123422]  ;PASS IF C(AC) UNCHANGED
  2526						STOP^
  2527	032272	254 04 0 00 032273 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2528	032273	324 00 0 00 032274 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2529	032274	312 02 0 00 034423 		CAME	2,[-1,,123456]	;PASS IF C(E)=-1,,123456
  2530						STOP^
  2531	032275	254 04 0 00 032276 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2532	032276	324 00 0 00 032277 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2533
  2534					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 47
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0074

  2535					;THIS TEST VERIFIES THAT HLROS PLACES C(E-LEFT) INTO E-RIGHT AND
  2536					;PLACES -1 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
  2537					;IS ALSO PLACED INTO THE AC.
  2538					;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234.
  2539					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
  2540					;AND -1,,123456 RESPECTIVELY
  2541
  2542	032277	400 00 0 00 000000 	C67200:	SETZ	0		;PRELOAD AC WITH 0
  2543	032300	200 07 0 00 034414 		MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2544	032301	567 00 0 00 000007 		HLROS	0,7		;*HLROS SHOULD PLACE -1,,123456 INTO E
  2545									;
  2546	032302	302 00 0 00 000000 		CAIE	0,0		;PASS IF C(AC) IS UNCHANGED
  2547						STOP^
  2548	032303	254 04 0 00 032304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2549	032304	324 00 0 00 032305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2550	032305	312 07 0 00 034423 		CAME	7,[-1,,123456]	;PASS IF C(E)=-1,,123456
  2551						STOP^
  2552	032306	254 04 0 00 032307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2553	032307	324 00 0 00 032310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2554
  2555					;**********
  2556
  2557					;THIS TEST VERIFIES THAT HLROS PLACES C(E-LEFT) INTO E-RIGHT AND
  2558					;PLACES -1 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
  2559					;IS ALSO PLACED INTO THE AC.
  2560					;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,701234.
  2561					;HENCE, THE RESULT IN AC AND E SHOULD BE -1,,123456
  2562					;AND -1,,123456 RESPECTIVELY.
  2563
  2564	032310	400 01 0 00 000000 	C67210:	SETZ	1,		;PRELOAD AC WITH 0
  2565	032311	200 07 0 00 034414 		MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2566	032312	567 01 0 00 000007 		HLROS	1,7		;*HLROS SHOULD PLACE -1,,123456 INTO
  2567									;BOTH AC AND E
  2568	032313	312 01 0 00 034423 		CAME	1,[-1,,123456]	;PASS IF C(AC)=-1,,123456
  2569						STOP^
  2570	032314	254 04 0 00 032315 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2571	032315	324 00 0 00 032316 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2572	032316	312 07 0 00 034423 		CAME	7,[-1,,123456]	;PASS IF C(E)=-1,,123456
  2573						STOP^
  2574	032317	254 04 0 00 032320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2575	032320	324 00 0 00 032321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2576
  2577					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 48
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0075

  2578					;THIS TEST VERIFIES THAT HRRES PLACES C(E-RIGHT) INTO E-RIGHT
  2579					;AND PLACES BIT 18 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS NON-ZERO,
  2580					;THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2581					;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234
  2582					;HENCE, THE RESULT IN AC AND E SHOULD BE 0
  2583					;AND -1,,701234 RESPECTIVELY.
  2584
  2585	032321	400 00 0 00 000000 	C67300:	SETZ	0,		;PRELOAD AC WITH 0
  2586	032322	200 03 0 00 034414 		MOVE	3,[123456,,701234]  ;PRELOAD WITH 123456,,701234
  2587	032323	573 00 0 00 000003 		HRRES	0,3		;HRRES SHOULD PLACE -1,,701234 INTO E
  2588
  2589	032324	332 00 0 00 000000 		SKIPE			;PASS IF C(AC) IS UNCHANGED
  2590						STOP^
  2591	032325	254 04 0 00 032326 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2592	032326	324 00 0 00 032327 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2593	032327	312 03 0 00 034417 		CAME	3,[-1,,701234]	;PASS IF C(E)=-1,,701234
  2594						STOP^
  2595	032330	254 04 0 00 032331 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2596	032331	324 00 0 00 032332 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2597
  2598					;**********
  2599
  2600					;THIS TEST VERIFIES THAT HRRES, PLACES C(E-RIGHT) INTO E-RIGHT
  2601					;AND PLACES BIT 18 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS NON-ZERO,
  2602					;THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2603					;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,701234.
  2604					;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,701234
  2605					;AND -1,,701234 RESPECTIVELY.
  2606
  2607	032332	400 01 0 00 000000 	C67310:	SETZ	1,		;PRELOAD AC WITH 0
  2608	032333	200 03 0 00 034414 		MOVE	3,[123456,,701234]  ;PRELOAD WITH 123456,,701234
  2609	032334	573 01 0 00 000003 		HRRES	1,3		;HRRES SHOULD PLACE -1,,701234 INTO
  2610									;BOTH AC AND E
  2611	032335	312 01 0 00 034417 		CAME	1,[-1,,701234]	;PASS IF C(AC)=-1,,701234
  2612						STOP^
  2613	032336	254 04 0 00 032337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2614	032337	324 00 0 00 032340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2615	032340	312 03 0 00 034417 		CAME	3,[-1,,701234]	;PASS IF C(E)=-1,,701234
  2616						STOP^
  2617	032341	254 04 0 00 032342 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2618	032342	324 00 0 00 032343 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2619
  2620					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 49
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL HWT INSTRUCTIONS                                                      SEQ 0076

  2621					;THIS TEST VERIFIES THAT HLRES PLACES C(E-LEFT) INTO E-RIGHT
  2622					;AND PLACES BIT 0 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS
  2623					;NON-ZERO, THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2624					;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E) 123456,,701234
  2625					;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1
  2626					;AND 0,,123456 RESPECTIVELY.
  2627
  2628	032343	474 00 0 00 000000 	C67400:	SETO	0,		;PRELOAD AC WITH -1,,-1
  2629	032344	200 07 0 00 034414 		MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2630	032345	577 00 0 00 000007 		HLRES	0,7		;*HLRES SHOULD PLACE 0,,123456 INTO E
  2631
  2632	032346	312 00 0 00 034301 		CAME	0,[-1]		;PASS IF C(AC) IS UNCHANGED
  2633						STOP^
  2634	032347	254 04 0 00 032350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2635	032350	324 00 0 00 032351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2636	032351	302 07 0 00 123456 		CAIE	7,123456	;PASS IF C(E)=0,,123456
  2637						STOP^
  2638	032352	254 04 0 00 032353 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2639	032353	324 00 0 00 032354 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2640
  2641					;**********
  2642
  2643					;THIS TEST VERIFIES THAT HLRES PLACES C(E-LEFT) INTO E-RIGHT
  2644					;AND PLACES BIT 0 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS
  2645					;NON-ZERO, THE RESULT IN E IS ALSO PLACED INTO THE AC.
  2646					;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E) 123456,,701234.
  2647					;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456
  2648					;AND 0,,123456 RESPECTIVELY.
  2649
  2650	032354	474 01 0 00 000000 	C67410:	SETO	1,		;PRELOAD AC WITH -1,,-1
  2651	032355	200 07 0 00 034414 		MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
  2652	032356	577 01 0 00 000007 		HLRES	1,7		;*HLRES SHOULD PLACE 0,,123456 INTO
  2653									;BOTH AC AND E
  2654	032357	302 01 0 00 123456 		CAIE	1,123456	;PASS IF C(AC)=0,,123456
  2655						STOP^
  2656	032360	254 04 0 00 032361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2657	032361	324 00 0 00 032362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2658	032362	302 07 0 00 123456 		CAIE	7,123456	;PASS IF C(E)=0,,123456
  2659						STOP^
  2660	032363	254 04 0 00 032364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2661	032364	324 00 0 00 032365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2662
  2663					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 50
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0077

  2664					SUBTTL	TEST OF MSCL LOGICAL TEST INSTRUCTIONS
  2665
  2666					;**********
  2667
  2668					;THIS TEST VERIFIES THAT TRNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2669					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  2670					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  2671					;HENCE, TRNE SHOULD SKIP THE NEXT INSTRUCTION.  THE AC IS ALSO
  2672					;CHECKED FOR NO MODIFICATION.
  2673
  2674	032365	200 17 0 00 034414 	C67500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2675	032366	602 17 0 00 000003 		TRNE	17,3			;*TRNE SHOULD SKIP THE NEXT INSTRUCTION
  2676						STOP^
  2677	032367	254 04 0 00 032370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2678	032370	324 00 0 00 032371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2679	032371	312 17 0 00 034414 		CAME	17,[123456,,701234]	;PASS IF C AC) UNCHANGED
  2680						STOP^
  2681	032372	254 04 0 00 032373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2682	032373	324 00 0 00 032374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2683
  2684					;**********
  2685
  2686					;THIS TEST VERIFIES THAT TRNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2687					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  2688					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  2689					;HENCE, TRNE SHOULD NOT SKIP THE NEXT INSTRUCTION.  THE AC IS ALSO
  2690					;CHECKED FOR NO MODIFICATION.
  2691
  2692	032374	200 16 0 00 034414 	C67510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2693	032375	602 16 0 00 000300 		TRNE	16,300			;*TRNE SHOULD NOT SKIP THE NEXT INSTRUCTION
  2694	032376	334 00 0 00 000000 		SKIPA				;PASS IF TRNE DID NOT SKIP
  2695						STOP^
  2696	032377	254 04 0 00 032400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2697	032400	324 00 0 00 032401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2698	032401	312 16 0 00 034414 		CAME	16,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2699						STOP^
  2700	032402	254 04 0 00 032403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2701	032403	324 00 0 00 032404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2702
  2703					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 51
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0078

  2704					;THIS TEST VERIFIES THAT TLNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2705					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  2706					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  2707					;HENCE, TLNE SHOULD SKIP THE NEXT INSTRUCTION, THE AC IS ALSO
  2708					;CHECKED FOR NO MODIFICATION.
  2709
  2710	032404	200 15 0 00 034414 	C67600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2711	032405	603 15 0 00 000300 		TLNE	15,300			;*TLNE CHOULD SKIP
  2712						STOP^
  2713	032406	254 04 0 00 032407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2714	032407	324 00 0 00 032410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2715	032410	312 15 0 00 034414 		CAME	15,[123456,,701234]	;PASS IF C(AC) IS UNCHANGED
  2716						STOP^
  2717	032411	254 04 0 00 032412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2718	032412	324 00 0 00 032413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2719
  2720					;**********
  2721
  2722					;THIS TEST VERIFIES THAT TLNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2723					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO
  2724					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  2725					;HENCE, TLNE SHOULD NOT SKIP THE NEXT INSTRUCTION, THE AC IS ALSO
  2726					;CHECKED FOR NO MODIFICATION
  2727
  2728	032413	200 14 0 00 034414 	C67610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2729	032414	603 14 0 00 000003 		TLNE	14,3			;*TLNE SHOULD NOT SKIP
  2730	032415	334 00 0 00 000000 		SKIPA				;PASS IF TLNE DID NOT SKIP
  2731						STOP^
  2732	032416	254 04 0 00 032417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2733	032417	324 00 0 00 032420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2734	032420	312 14 0 00 034414 		CAME	14,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2735						STOP^
  2736	032421	254 04 0 00 032422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2737	032422	324 00 0 00 032423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2738
  2739					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 52
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0079

  2740					;THIS TEST VERIFIES THAT TRNA ALWAYS SKIPS THE NEXT SEQUENTIAL
  2741					;INSTRUCTION.  HENCE, TRNA IS INDEPENDENT OF BOTH C(A) AND E
  2742					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  2743					;HENCE, TRNA SHOULD SKIP THENEXT INSTRUCTION AND NOT ALTER C(AC).
  2744
  2745	032423	200 13 0 00 034414 	C67700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2746	032424	604 13 0 00 000003 		TRNA	13,3			;*TRNA SHOULD ALWAYS SKIP
  2747						STOP^
  2748	032425	254 04 0 00 032426 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2749	032426	324 00 0 00 032427 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2750	032427	312 13 0 00 034414 		CAME	13,[123456,,701234]	;PASS IFC(AC) UNCHANGED
  2751						STOP^
  2752	032430	254 04 0 00 032431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2753	032431	324 00 0 00 032432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2754
  2755					;**********
  2756
  2757					;THIS TEST VERIFhES THAT TRNA ALWAYS SKIPS THE NEXT SEQUENTIAL
  2758					;INSTRUCTION.  HENCE, TRNA IS INDEPENDENT OF BOTH C(A) AND E.
  2759					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  2760					;HENCE, TRNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).
  2761
  2762	032432	200 12 0 00 034414 	C67710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2763	032433	604 12 0 00 000300 		TRNA	12,300			;*TRNA SHOQLD ALWAYS SKIP
  2764						STOP^
  2765	032434	254 04 0 00 032435 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2766	032435	324 00 0 00 032436 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2767	032436	312 12 0 00 034414 		CAME	12,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2768						STOP^
  2769	032437	254 04 0 00 032440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2770	032440	324 00 0 00 032441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2771
  2772					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 53
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0080

  2773					;THIS TEST VERIFIaS THAT TLNA ALWAYS SKIPS THE NEXT SEQUENTIAL
  2774					;INSTRUCTION.  HENCE, TLNA IS INDEPENDENt OF BOTH C(AC) AND E.
  2775					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  2776					;HENCE, TLNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).
  2777
  2778	032441	200 11 0 00 034414 	C70000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2779	032442	605 11 0 00 000003 		TLNA	11,3			;*TLNA SHOULD ALWAYS SKIP
  2780						STOP^
  2781	032443	254 04 0 00 032444 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2782	032444	324 00 0 00 032445 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2783	032445	312 11 0 00 034414 		CAME	11,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2784						STOP^
  2785	032446	254 04 0 00 032447 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2786	032447	324 00 0 00 032450 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2787
  2788					;**********
  2789
  2790					;THIS TEST VERIFIES THAT TLNA ALWAYS SKIPS THE NEXT SEQUENTIAL
  2791					;INSTRUCTION.  HENCE, TLNA IS INDEPENDENT OF BOTH C(AC) AND E.
  2792					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  2793					;HENCE, TLNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).
  2794
  2795	032450	200 10 0 00 034414 	C70010:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2796	032451	605 10 0 00 000300 		TLNA	10,300			;*TLNA SHOULD ALWAYS SKIP
  2797						STOP^
  2798	032452	254 04 0 00 032453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2799	032453	324 00 0 00 032454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2800	032454	312 10 0 00 034414 		CAME	10,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2801						STOP^
  2802	032455	254 04 0 00 032456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2803	032456	324 00 0 00 032457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2804
  2805					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 54
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0081

  2806					;THIS TEST VERIFIES THAT TRNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2807					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN
  2808					;E ARE ZERO.  IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  2809					;HENCE, TRNN SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).
  2810
  2811	032457	200 07 0 00 034414 	C70100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2812	032460	606 07 0 00 000300 		TRNN	7,300			;*TRNN SHOULD SKIP
  2813						SToP^
  2814	032461	254 04 0 00 032462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2815	032462	324 00 0 00 032463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2816	032463	312 07 0 00 034414 		CAME	7,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2817						STOP^
  2818	032464	254 04 0 00 032465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2819	032465	324 00 0 00 032466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2820
  2821					;**********
  2822
  2823					;THIS TEST VERIFIES THAT TRNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2824					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN
  2825					;E ARE ZERO.  IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  2826					;HENCE, TRNN SHoULD NOT SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).
  2827
  2828	032466	200 06 0 00 034414 	C70110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2829	032467	606 06 0 00 000003 		TRNN	6,3			;*TRNN SHOULD NOT SKIP
  2830	032470	334 00 0 00 000000 		SKIPA				;PASS IF TRNN DID NOT SKIP
  2831						STOP^
  2832	032471	254 04 0 00 032472 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2833	032472	324 00 0 00 032473 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2834	032473	312 06 0 00 034414 		CAME	6,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2835						STOP^
  2836	032474	254 04 0 00 032475 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2837	032475	324 00 0 00 032476 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2838
  2839					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 55
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0082

  2840					;THIS TEST VERIFIES THAT TLNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2841					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  2842					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  2843					;HENCE, TLNN SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).
  2844
  2845	032476	200 05 0 00 034414 	C70200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2846	032477	607 05 0 00 000003 		TLNN	5,3			;*TLNN SHOULD SKIP
  2847						STOP^
  2848	032500	254 04 0 00 032501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2849	032501	324 00 0 00 032502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2850	032502	312 05 0 00 034414 		CAME	5,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2851						STOP^
  2852	032503	254 04 0 00 032504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2853	032504	324 00 0 00 032505 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2854
  2855					;**********
  2856
  2857					;THIS TEST VERIFIES thAT TLNN SkIPS THE NEXT SEQUENTIAL INSTRUcTION
  2858					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  2859					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  2860					;HENCE, TLNN SHOULD NOT SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).
  2861
  2862	032505	200 04 0 00 034414 	C70210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2863	032506	607 04 0 00 000300 		TLNN	4,300			;*TLNN SHOULD NOT SKIP
  2864	032507	334 00 0 00 000000 		SKIPA				;PASS IF TLNN DOES NOT SKIP
  2865						STOP^
  2866	032510	254 04 0 00 032511 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2867	032511	324 00 0 00 032512 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2868	032512	312 04 0 00 034414 		CAME	4,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2869						STOP^
  2870	032513	254 04 0 00 032514 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2871	032514	324 00 0 00 032515 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2872
  2873					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 56
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0083

  2874					;THIS TEST VERIFIES THAT TSNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2875					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
  2876					;BOTH HALVES SNAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
  2877					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  2878					;HENCE, TSNE SHOULD SKIP THE NEXT INSTRUCtION AND
  2879					;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED.
  2880
  2881	032515	200 03 0 00 034414 	C70300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2882	032516	200 04 0 00 034424 		MOVE	4,[76543,,654321]	;PRELOAD E WITH 076543,,654321
  2883	032517	613 03 0 00 000004 		TSNE	3,4			;*TSNE SHOULD SKIP
  2884						STOP^
  2885	032520	254 04 0 00 032521 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2886	032521	324 00 0 00 032522 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2887	032522	312 03 0 00 034414 		CAME	3,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2888						STOP^
  2889	032523	254 04 0 00 032524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2890	032524	324 00 0 00 032525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2891	032525	312 04 0 00 034424 		CAME	4,[76543,,654321]	;PASS IF C(E) UNCHANGED
  2892						STOP^
  2893	032526	254 04 0 00 032527 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2894	032527	324 00 0 00 032530 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2895
  2896					;**********
  2897
  2898					;THIS TEST VERIFIES THAT TSNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2899					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
  2900					;BOTH HALVES SNAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
  2901					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654323
  2902					;HENCE, TSNE SHOULD NOT SKIP THE NEXT INSTRUCTION AND
  2903					;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED.
  2904
  2905	032530	200 02 0 00 034414 	C70310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2906	032531	200 03 0 00 034425 		MOVE	3,[76543,,654323]	;PRELOAD E WITH 076543,,654323
  2907	032532	613 02 0 00 000003 		TSNE	2,3			;*TSNE SHOULD NOT SKIP
  2908	032533	334 00 0 00 000000 		SKIPA				;PASS IF TSOE DId NOT SKIP
  2909						STOP^
  2910	032534	254 04 0 00 032535 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2911	032535	324 00 0 00 032536 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2912	032536	312 02 0 00 034414 		CAME	2,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2913						STOP^
  2914	032537	254 04 0 00 032540 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2915	032540	324 00 0 00 032541 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2916	032541	312 03 0 00 034425 		CAME	3,[76543,,654323]	;PASS IF C(E) UNCHANGED
  2917						STOP^
  2918	032542	254 04 0 00 032543 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2919	032543	324 00 0 00 032544 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2920
  2921					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 57
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0084

  2922					;THIS TEST VERIFIES THAT TSNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2923					;NEITHER AC NOR E ARE AFFECTED.
  2924					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  2925					;HENCE, TSNA SHOULD SKIP THE NEXT INSTRUCTION AND
  2926					;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED
  2927
  2928	032544	200 01 0 00 034414 	C70400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2929	032545	200 02 0 00 034424 		MOVE	2,[76543,,654321]	;PRELOAD E WITH 076543,,654321
  2930	032546	615 01 0 00 000002 		TSNA	1,2			;*TSNA SHOULD SKIP
  2931						STOP^
  2932	032547	254 04 0 00 032550 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2933	032550	324 00 0 00 032551 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2934	032551	312 01 0 00 034414 		CAME	1,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2935						STOP^
  2936	032552	254 04 0 00 032553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2937	032553	324 00 0 00 032554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2938	032554	312 02 0 00 034424 		CAME	2,[76543,,654321]	;PASS IF C(E) UNCHANGED
  2939						STOP^
  2940	032555	254 04 0 00 032556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2941	032556	324 00 0 00 032557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2942
  2943					;**********
  2944
  2945					;THIS TEST VERIFIES THAT TSNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2946					;NEITHER AC NOR E ARE EFFECTED.
  2947					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654323
  2948					;HENCE, TSNA SHOULD SKIP THE NEXT INSTRUCTION AND
  2949					;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED
  2950
  2951	032557	200 00 0 00 034414 	C70410:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2952	032560	200 01 0 00 034425 		MOVE	1,[76543,,654323]	;PRELOAD E WITH 076543,,654323
  2953	032561	615 00 0 00 000001 		TSNA	0,1			;*TSNA SHOULD SKIP
  2954						STOP^
  2955	032562	254 04 0 00 032563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2956	032563	324 00 0 00 032564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2957	032564	312 01 0 00 034425 		CAME	1,[76543,,654323]	;PASS IF C(E) UNCHANGED
  2958						STOP^
  2959	032565	254 04 0 00 032566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2960	032566	324 00 0 00 032567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2961
  2962					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 58
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0085

  2963					;THIS TEST VERIFIES THAT TSNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2964					;IF AND ONLY IF NOT ALL HITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
  2965					;BOTH HALVES SWAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
  2966					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076547,,654321
  2967					;HENCE, TSNN SHOULD SKIP THE NEXT INSTRUCTION AND
  2968					;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED
  2969
  2970	032567	200 17 0 00 034414 	C70500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2971	032570	200 00 0 00 034426 		MOVE	0,[76547,,654321]	;PRELOAD E WITH 076547,,654321
  2972	032571	617 17 0 00 000000 		TSNN	17,0			;*TSNN SHOULD SKIP
  2973						STOP^
  2974	032572	254 04 0 00 032573 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2975	032573	324 00 0 00 032574 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2976	032574	312 17 0 00 034414 		CAME	17,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  2977						STOP^
  2978	032575	254 04 0 00 032576 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2979	032576	324 00 0 00 032577 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2980	032577	312 00 0 00 034426 		CAME	0,[76547,,654321]	;PASS IF C(E) UNCHANGED
  2981						STOP^
  2982	032600	254 04 0 00 032601 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2983	032601	324 00 0 00 032602 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2984
  2985					;**********
  2986
  2987					;THIS TEST VERIFIES THAT TSNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  2988					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
  2989					;BOTH HALVES SWAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
  2990					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  2991					;HENCE, TSNN SHOULD NOT SKIP THE NEXT INSTRUCTION AND
  2992					;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED
  2993
  2994	032602	200 16 0 00 034414 	C70510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  2995	032603	200 17 0 00 034424 		MOVE	17,[76543,,654321]	;PRELOAD E WITH 076543,,654321
  2996	032604	617 16 0 00 000017 		TSNN	16,17			;*TSNN SHOULD NOT SKIP
  2997	032605	334 00 0 00 000000 		SKIPA				;PASS IF TSNN DID NOT SKIP
  2998						STOP^
  2999	032606	254 04 0 00 032607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3000	032607	324 00 0 00 032610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3001	032610	312 16 0 00 034414 		CAME	16,[123456,,701234]	;PASS IF C(AC) UNCHANGED
  3002						STOP^
  3003	032611	254 04 0 00 032612 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3004	032612	324 00 0 00 032613 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3005	032613	312 17 0 00 034424 		CAME	17,[76543,,654321]	;PASS IF C(E) UNCHANGED
  3006						STOP^
  3007	032614	254 04 0 00 032615 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3008	032615	324 00 0 00 032616 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3009
  3010					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 59
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0086

  3011					;THIS TEST VERIFIES THAT TRZ CHANGES ALL BITS IN THE AC-RIGHT WHICH
  3012					;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
  3013					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  3014					;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701234
  3015
  3016	032616	200 15 0 00 034414 	C70600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234]
  3017	032617	620 12 0 00 000003 		TRZ	12,3			;*TRZ SHOULD PLACE 123456,,701234 INTO
  3018										;THE AC AND NOT SKIP
  3019	032620	334 00 0 00 000000 		SKIPA				;PASS IF TRZ DOES NOT SKIP
  3020						STOP^
  3021	032621	254 04 0 00 032622 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3022	032622	324 00 0 00 032623 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3023	032623	312 15 0 00 034414 		CAME	15,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3024						STOP^
  3025	032624	254 04 0 00 032625 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3026	032625	324 00 0 00 032626 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3027
  3028					;**********
  3029
  3030					;THIS TEST VERIFIES THAT TRZ CHANGES ALL BITS IN THE AC-RIGHT WHICH
  3031					;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
  3032					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  3033					;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701034
  3034
  3035	032626	200 14 0 00 034414 	C70610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3036	032627	620 14 0 00 000300 		TRZ	14,300			;*TRZ SHOULD PLACE 123456,,701234 INTO
  3037										;THE ACAND NOT SKIP
  3038	032630	334 00 0 00 000000 		SKIPA				;PASS IF TRX DOES NOT SKIP
  3039						STOP^
  3040	032631	254 04 0 00 032632 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3041	032632	324 00 0 00 032633 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3042	032633	312 14 0 00 034427 		CAME	14,[123456,,701034]	;PASS IF C(AC)=123456,,701034
  3043						STOP^
  3044	032634	254 04 0 00 032635 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3045	032635	324 00 0 00 032636 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3046
  3047					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 60
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0087

  3048					;THIS TEST VERIFIES THAT TLZ CHANGES ALL BITS IN THE AC-LEFT WHICH
  3049					;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
  3050					;IN THIS CACE, C(AC)=123456,,701234 AND E=300
  3051					;HENCE, THE RESULT IN THE AC SHOUL BE 123456,,701234
  3052
  3053	032636	200 13 0 00 034414 	C70700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3054	032637	621 13 0 00 000300 		TLZ	13,300			;*TLZ SHOULD PLACE 123456,,701234 INTO
  3055										;THE AC AND NOT SKIP
  3056	032640	334 00 0 00 000000 		SKIPA				;PASS IF TLZ DOES NOT SKIP
  3057						STOP^
  3058	032641	254 04 0 00 032642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3059	032642	324 00 0 00 032643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3060	032643	312 13 0 00 034414 		CAME	13,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3061						STOP^
  3062	032644	254 04 0 00 032645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3063	032645	324 00 0 00 032646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3064
  3065					;**********
  3066
  3067					;THIS TEST VERIFIES THAT TLZ CHANGES ALL BITS IN THE AC-LEFT WHICH
  3068					;CORRSPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
  3069					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  3070					;HENCE, THE RESULT IN THE AC SHOULD BE 123454,,701234
  3071
  3072	032646	200 12 0 00 034414 	C70710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3073	032647	621 12 0 00 000003 		TLZ	12,3			;*TLZ SHOULD PLACE 123454,,701234 INTO
  3074										;THE AC AND NOT SKIP
  3075	032650	334 00 0 00 000000 		SKIPA				;PASS IF TLZ DOES NOT SKIP
  3076						STOP^
  3077	032651	254 04 0 00 032652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3078	032652	324 00 0 00 032653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3079	032653	312 12 0 00 034430 		CAME	12,[123454,,701234]	;PASS IF C(AC)=123454,701234
  3080						STOP^
  3081	032654	254 04 0 00 032655 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3082	032655	324 00 0 00 032656 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3083
  3084					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 61
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0088

  3085					;THIS TEST VERIFIES THAT TRZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3086					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  3087					;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
  3088					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  3089					;HENCE, TRZE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3090					;AND THE RESULT IN THE AC SHOULD BE 123456,,701234
  3091
  3092	032656	200 11 0 00 034414 	C71000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3093	032657	622 11 0 00 000003 		TRZE	11,3			;*TRZE SHOULD SKIP AND
  3094										;PLACE 123456,,701234 INTO THE AC
  3095						STOP^
  3096	032660	254 04 0 00 032661 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3097	032661	324 00 0 00 032662 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3098	032662	312 11 0 00 034414 		CAME	11,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3099						STOP^
  3100	032663	254 04 0 00 032664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3101	032664	324 00 0 00 032665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3102
  3103					;**********
  3104
  3105					;THIS TEST VERIFIES THAT TRZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3106					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRSPONDING TO 1'S IN E ARE ZERO.
  3107					;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
  3108					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  3109					;HENCE, TRZE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3110					;AND THE RESULT IN THE AC SHOUDL BE 123456,,701034
  3111
  3112	032665	200 10 0 00 034414 	C71010:	MOVE	10,[123456,,701234]	;PRELOAD AC WIT@ 123456,,701234
  3113	032666	622 10 0 00 000300 		TRZE	10,300			;*TRZE SHOULD PLACE 123456,,701034 INTO
  3114										;THE AC AND NOT SKIP
  3115	032667	334 00 0 00 000000 		SKIPA				;PASS IF TRZE DOES NOT SKIP
  3116						STOP^
  3117	032670	254 04 0 00 032671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3118	032671	324 00 0 00 032672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3119	032672	312 10 0 00 034427 		CAME	10,[123456,,701034]	;PASS IF C(AC)=123456,,701034
  3120						STOP^
  3121	032673	254 04 0 00 032674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3122	032674	324 00 0 00 032675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3123
  3124					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 62
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0089

  3125					;THIS TEST VERIFIES THAT TLZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3126					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  3127					;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
  3128					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  3129					;HENCE, TLZE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3130					;AND THE RESULT IN THE AC SHOULD BE 123456,,701234
  3131
  3132	032675	200 07 0 00 034414 	C71100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3133	032676	623 07 0 00 000300 		TLZE	7,300			;*TLZE SHOULD SKIP AND
  3134										;PLACE 123456,,701234 INTO THE AC
  3135						STOP^
  3136	032677	254 04 0 00 032700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3137	032700	324 00 0 00 032701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3138	032701	312 07 0 00 034414 		CAME	7,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3139						STOP^
  3140	032702	254 04 0 00 032703 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3141	032703	324 00 0 00 032704 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3142
  3143					;**********
  3144
  3145					;THIS TEST VERIFIES THAT TLZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3146					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  3147					;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
  3148					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  3149					;HENCE, TLZE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3150					;AND THE RESULT IN THE AC SHOULD BE 123454,,701234
  3151
  3152	032704	200 06 0 00 034414 	C71110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123451234
  3153	032705	623 06 0 00 000003 		TLZE	6,3			;*TLZE SHOULD PLACE 123454,,701234 INTO
  3154										;THE AC AND NOT SKIP
  3155	032706	334 00 0 00 000000 		SKIPA				;PASS IF TLZE DOES NOT SKIP
  3156						STOP^
  3157	032707	254 04 0 00 032710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3158	032710	324 00 0 00 032711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3159	032711	312 06 0 00 034430 		CAME	6,[123454,,701234]	;PASS IF C(AC)=123454,,701234
  3160						STOP^
  3161	032712	254 04 0 00 032713 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3162	032713	324 00 0 00 032714 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3163
  3164					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 63
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0090

  3165					;THIS TEST VERIFIES THAT TRZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3166					;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ZERO.
  3167					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3168					;HENCE, TRZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3169					;THE AC SHOULD BE 123456,,701234
  3170
  3171	032714	200 05 0 00 034414 	C71200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3172	032715	624 05 0 00 000003 		TRZA	5,3			;*TRZA SHOULD SKIP AND
  3173										;PLACE 123456,,701234 INTO THE AC
  3174						STOP^
  3175	032716	254 04 0 00 032717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3176	032717	324 00 0 00 032720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3177	032720	312 05 0 00 034414 		CAME	5,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3178						STOP^
  3179	032721	254 04 0 00 032722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3180	032722	324 00 0 00 032723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3181
  3182					;**********
  3183
  3184					;THIS TEST VERIFIES THAT TRZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3185					;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ZERO.
  3186					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3187					;HENCE, TRZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3188					;THE AC SHOULD BE 123456,,701234.
  3189
  3190	032723	200 04 0 00 034414 	C71210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3191	032724	624 04 0 00 000300 		TRZA	4,300			;*TRZA SHOULD SKIP AND
  3192										;PLACE 123456,,701034 INTO THE AC
  3193						STOP^
  3194	032725	254 04 0 00 032726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3195	032726	324 00 0 00 032727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3196	032727	312 04 0 00 034427 		CAME	4,[123456,,701034]	;PASS IF C(AC)=123456,,701034
  3197						STOP^
  3198	032730	254 04 0 00 032731 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3199	032731	324 00 0 00 032732 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3200
  3201					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 64
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0091

  3202					;THIS TEST VERIFIES THAT TLZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRQCTION
  3203					;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ZERO.
  3204					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3205					;HENCE, TLZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3206					;THE AC SHOULD BE 123454,,701234.
  3207
  3208	032732	200 03 0 00 034414 	C71300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3209	032733	625 03 0 00 000003 		TLZA	3,3			;*TLZA SHOULD SKIP AND
  3210										;PLACE 123454,,701234 INTO THE AC
  3211						STOP^
  3212	032734	254 04 0 00 032735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3213	032735	324 00 0 00 032736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3214	032736	312 03 0 00 034430 		CAME	3,[123454,,701234]	;PASS IF C(AC)=123454,,701234
  3215						STOP^
  3216	032737	254 04 0 00 032740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3217	032740	324 00 0 00 032741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3218
  3219					;**********
  3220
  3221					;THIS TEST VERIFIES THAT TLZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3222					;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ZERO.
  3223					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3224					;HENCE, TLZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3225					;THE AC SHOULD BE 123456,,701234.
  3226
  3227	032741	200 02 0 00 034414 	C71310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3228	032742	625 02 0 00 000300 		TLZA	2,300			;*TLZA SHOULD SKIP AND
  3229										;PLACE 123456,,701234 INTO THE AC
  3230						STOP^
  3231	032743	254 04 0 00 032744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3232	032744	324 00 0 00 032745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3233	032745	312 02 0 00 034414 		CAME	2,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3234						STOP^
  3235	032746	254 04 0 00 032747 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3236	032747	324 00 0 00 032750 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3237
  3238					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 65
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0092

  3239					;THIS TEST VERIFIES THAT TRZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3240					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  3241					;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
  3242					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3243					;HENCE, TRZN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3244					;AND THE RESULT IN THE AC SHOULD BE 123456,,701034.
  3245
  3246	032750	200 01 0 00 034414 	C71400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3247	032751	626 01 0 00 000300 		TRZN	1,300			;*TRZN SHOULD SKIP AND
  3248										;PLACE 123456,,701034 INTO THE AC
  3249						STOP^
  3250	032752	254 04 0 00 032753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3251	032753	324 00 0 00 032754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3252	032754	312 01 0 00 034427 		CAME	1,[123456,,701034]	;PASS IF C(AC)=123456,,701034
  3253						STOP^
  3254	032755	254 04 0 00 032756 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3255	032756	324 00 0 00 032757 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3256
  3257					;**********
  3258
  3259					;THIS TEST VERIFIES THAT TRZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3260					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  3261					;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
  3262					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3263					;HENCE, TRZN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3264					;AND THE RESULT IN THE AC SHOULD BE 123456,,701234.
  3265
  3266	032757	200 00 0 00 034414 	C71410:	MOVE	0,[123456,,701234]	;PRELOAD AC WATH 123456,,701234
  3267	032760	626 00 0 00 000003 		TRZN	0,3			;*TRZN SHOULD PLACE 123456,,701234 INTO
  3268										;THE AC AND NOT SKIP
  3269	032761	334 00 0 00 000000 		SKIPA				;PASS IF TRZN DOES NOT SKIP
  3270						STOP^
  3271	032762	254 04 0 00 032763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3272	032763	324 00 0 00 032764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3273	032764	312 00 0 00 034414 		CAME	0,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3274						STOP^
  3275	032765	254 04 0 00 032766 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3276	032766	324 00 0 00 032767 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3277
  3278					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 66
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0093

  3279					;THIS TEST VERIFIES THAT TLZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3280					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  3281					;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
  3282					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3283					;HENCE, TLZN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3284					;AND THE RESULT IN THE AC SHOULD BE 123454,,701234.
  3285
  3286	032767	200 17 0 00 034414 	C71500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3287	032770	627 17 0 00 000003 		TLZN	17,3			;TLZN SHOULD SKIP AND
  3288										;PLACE 123454,,701234 INTO THE AC
  3289						STOP^
  3290	032771	254 04 0 00 032772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3291	032772	324 00 0 00 032773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3292	032773	312 17 0 00 034430 		CAME	17,[123454,,701234]	;PASS IF C(AC)=123454,,701234
  3293						STOP^
  3294	032774	254 04 0 00 032775 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3295	032775	324 00 0 00 032776 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3296
  3297					;**********
  3298
  3299					;THIS TEST VERIFIES THAT TLZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3300					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  3301					;THESE MASKED AC BIPS ARE THEN CHANGED TO ZEROS.
  3302					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3303					;HENCE, TLZN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3304					;AND THE RESULT IN THE AC SHOULD BE 123456,,701234.
  3305
  3306	032776	200 16 0 00 034414 	C71510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3307	032777	627 16 0 00 000300 		TLZN	16,300			;*TLZN SHOULD PLACE 123456,,701234 INTO
  3308										;THE AC AND NOT SKIP
  3309	033000	334 00 0 00 000000 		SKIPA				;PASS IF TLZN DOES NOT SKIP
  3310						STOP^
  3311	033001	254 04 0 00 033002 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3312	033002	324 00 0 00 033003 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3313	033003	312 16 0 00 034414 		CAME	16,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3314						STOP^
  3315	033004	254 04 0 00 033005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3316	033005	324 00 0 00 033006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3317
  3318					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 67
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0094

  3319					;THIS TEST VERIFIES THAT TSZ CLEARS ALL BITS OF THE AC WHICH
  3320					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
  3321					;NOT SKIP THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED.
  3322					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321.
  3323					;HENCE, TSZ SHOULD NOT SKIP AND C(AC) SHOULD BE 123456,,701234.
  3324
  3325	033006	200 15 0 00 034414 	C71600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3326	033007	200 16 0 00 034424 		MOVE	16,[076543,,654321]	;PRELOAD E WITH 076543,,654321
  3327	033010	631 15 0 00 000016 		TSZ	15,16			;*TSZ SHOULD NOT SKIP AND
  3328										;PLACE 123456,,701234 INTO THE AC
  3329	033011	334 00 0 00 000000 		SKIPA				;PASS IF TSZ DID NOT SKIP
  3330						STOP^
  3331	033012	254 04 0 00 033013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3332	033013	324 00 0 00 033014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3333	033014	312 15 0 00 034414 		CAME	15,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3334						STOP^
  3335	033015	254 04 0 00 033016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3336	033016	324 00 0 00 033017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3337	033017	312 16 0 00 034424 		CAME	16,[76543,,654321]	;PASS IF C(E) UNCHANCED
  3338						STOP^
  3339	033020	254 04 0 00 033021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3340	033021	324 00 0 00 033022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3341
  3342					;**********
  3343
  3344					;THIS TEST VERIFIES THAT TSZ CLEARS ALL BITS OF THE AC WHICH
  3345					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
  3346					;NOT SKIP THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED.
  3347					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070.
  3348					;HENCE, TSZ SHOULD NOT SKIP AND C(AC) SHOULD BE 020406,,501210.
  3349
  3350	033022	200 14 0 00 034414 	C71610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3351	033023	200 15 0 00 034431 		MOVE	15,[252525,,707070]	;PRELOAD E WITH 252525,,707070
  3352	033024	631 14 0 00 000015 		TSZ	14,15			;*TSZ SHOULD NOT SKIP AND
  3353										;PLACE 020406,,501210 INTO THE AC
  3354	033025	334 00 0 00 000000 		SKIPA				;PASS IF TSZ DID NOT SKIP
  3355						STOP^
  3356	033026	254 04 0 00 033027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3357	033027	324 00 0 00 033030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3358	033030	312 14 0 00 034432 		CAME	14,[020406,,501210]	;PASS IF C(AC)=020406,,501210
  3359						STOP^
  3360	033031	254 04 0 00 033032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3361	033032	324 00 0 00 033033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3362	033033	312 15 0 00 034431 		CAME	15,[252525,,707070]	;PASS IF C(E) UNCHANGED
  3363						STOP^
  3364	033034	254 04 0 00 033035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3365	033035	324 00 0 00 033036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3366
  3367					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 68
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0095

  3368					;THIS TEST VERIFIES THAT TDZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3369					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  3370					;C(E).
  3371					;AC BITS ARE THEN CHANGED TO ZERO.
  3372					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543.
  3373					;HENCE, TDZE SHOULD SKIP AND THE RESULT IN THE AC
  3374					;SHOULD BE 123456,,701234.  C(E) IS NOT AFFECTED.
  3375
  3376	033036	200 13 0 00 034414 	C71700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3377	033037	200 14 0 00 034433 		MOVE	14,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  3378	033040	632 13 0 00 000014 		TDZE	13,14			;*TDZE SHOULD SKIP AND
  3379										;PLACE 123456,,701234 INTO THE AC
  3380						STOP^
  3381	033041	254 04 0 00 033042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3382	033042	324 00 0 00 033043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3383	033043	312 13 0 00 034414 		CAME	13,[123456,,701234]	;PASS IF C(AC)=123456,,701234]
  3384						STOP^
  3385	033044	254 04 0 00 033045 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3386	033045	324 00 0 00 033046 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3387	033046	312 14 0 00 034433 		CAME	14,[654321,,076543]	;PASS IF C(E) UNCHANGED
  3388						STOP^
  3389	033047	254 04 0 00 033050 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3390	033050	324 00 0 00 033051 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3391
  3392					;**********
  3393
  3394					;THIS TEST VERIFIES THAT TDZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3395					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  3396					;C(E) ARE ZERO. THESE MASKED
  3397					;AC BITS ARE THEN CHANGED TO ZERO.
  3398					;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 754321,,076543
  3399					;HENCE, TDZE SHOULD NOT SKIP AND THE RESULT IN AC
  3400					;SHOULD BE 023456,,701234 C(E) IS NOT AFFECTED
  3401
  3402	033051	200 12 0 00 034414 	C71710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3403	033052	200 13 0 00 034434 		MOVE	13,[754321,,076543]	;PRELOAD E WITH 754321,,076543
  3404	033053	632 12 0 00 000013 		TDZE	12,13			;*TDZE SHOULD NOT SKIP AND
  3405										;PLACE 023456,,701234 INTO THE AC
  3406	033054	334 00 0 00 000000 		SKIPA				;PASS IF TDZE DOES NOT SKIP
  3407						STOP^
  3408	033055	254 04 0 00 033056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3409	033056	324 00 0 00 033057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3410	033057	312 12 0 00 034435 		CAME	12,[023456,,701234]	;PASS IF C(AC)= 023456,,701234
  3411						STOP^
  3412	033060	254 04 0 00 033061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3413	033061	324 00 0 00 033062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3414	033062	312 13 0 00 034434 		CAME	13,[754321,,076543]	;PASS IF C(E) UNCHANGED
  3415						STOP^
  3416	033063	254 04 0 00 033064 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3417	033064	324 00 0 00 033065 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3418
  3419					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 69
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0096

  3420					;THIS TEST VERIFIES THAT TSZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3421					;IF AND ONLY IF ALL BITS IN THE AC CORRECPONDING TO 1'S IN
  3422					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  3423					;AC BITS ARE THEN CHANGED TO ZERO.
  3424					;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 076543,,654321
  3425					;HENCE, TSZE SHOULD SKIP AND THE RESULT IN AC
  3426					;SHOULD BE 123456,,701234 C(E) IS NOT AFFECTED
  3427
  3428	033065	200 11 0 00 034414 	C72000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3429	033066	200 12 0 00 034424 		MOVE	12,[076543,,654321]	;PRELOAD E WITH 076543,,654321
  3430	033067	633 11 0 00 000012 		TSZE	11,12			;*TSZE SHOULD SKIP AND
  3431										;PLACE 123456,,701234 INTO THE AC
  3432						STOP^
  3433	033070	254 04 0 00 033071 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3434	033071	324 00 0 00 033072 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3435	033072	312 11 0 00 034414 		CAME	11,[123456,,701234]	;PASS IF C(AC)= 123456,,701234
  3436						STOP^
  3437	033073	254 04 0 00 033074 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3438	033074	324 00 0 00 033075 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3439	033075	312 12 0 00 034424 		CAME	12,[76543,,654321]	;PASS IF C(E) UNCHANGED
  3440						STOP^
  3441	033076	254 04 0 00 033077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3442	033077	324 00 0 00 033100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3443
  3444					;**********
  3445
  3446					;THIS TEST VERIFIES THAT TSZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3447					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  3448					;C (E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  3449					;AC BITS ARE THEN CHANGED TO ZERO
  3450					;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 076543,,657321
  3451					;HENCE, TSZE SHOULD NOT SKIP AND THE RESULT IN AC
  3452					;SHOULD BE 120456,,701234 C(E) IS NOT AFFECTED
  3453
  3454	033100	200 10 0 00 034414 	C72010:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3455	033101	200 11 0 00 034436 		MOVE	11,[76543,,657321]	;PRELOAD E WITH 076543,,654321
  3456	033102	633 10 0 00 000011 		TSZE	10,11			;*TSZE SHOULD NOT SKIP AND
  3457										;PLACE 120456,,701234 INTO THE AC
  3458	033103	334 00 0 00 000000 		SKIPA				;PASS IF TSZE DID NOT SKIP
  3459						STOP^
  3460	033104	254 04 0 00 033105 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3461	033105	324 00 0 00 033106 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3462	033106	312 10 0 00 034437 		CAME	10,[120456,,701234]	;PASS IF C(AC)= 120456,,701234
  3463						STOP^
  3464	033107	254 04 0 00 033110 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3465	033110	324 00 0 00 033111 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3466	033111	312 11 0 00 034436 		CAME	11,[76543,,657321]	;PASS IF C(E) UNCHANGED
  3467						STOP^
  3468	033112	254 04 0 00 033113 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3469	033113	324 00 0 00 033114 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3470
  3471
  3472					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 70
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0097

  3473					;THIS TEST VERIFIES THAT TDZA CLEARS ALL BITS OF THE AC WHICH
  3474					;CORRESPOND TO 1'S IN C(E) AND ALWAYS
  3475					;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
  3476					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)= 654321,,076543
  3477					;HENCE, TD2A SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 123456,,701234
  3478
  3479	033114	200 07 0 00 034414 	C72100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3480	033115	200 10 0 00 034433 		MOVE	10,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  3481	033116	634 07 0 00 000010 		TDZA	7,10			;*TDZA SHOULD SKIP AND
  3482										;PLACE 123456,,701234 INTO THE AC
  3483						STOP^
  3484	033117	254 04 0 00 033120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3485	033120	324 00 0 00 033121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3486	033121	312 07 0 00 034414 		CAME	7,[123456,,701234]	;PASS IF C(AC)= 123456,,701234
  3487						STOP^
  3488	033122	254 04 0 00 033123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3489	033123	324 00 0 00 033124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3490	033124	312 10 0 00 034433 		CAME	10,[654321,,076543]	;PASS IF C(AC)=123456,,701234
  3491						STOP^
  3492	033125	254 04 0 00 033126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3493	033126	324 00 0 00 033127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3494	033127	312 10 0 00 034433 		CAME	10,[654321,,076543]	;PASS IF C(E) UNCHANGED
  3495						STOP^
  3496	033130	254 04 0 00 033131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3497	033131	324 00 0 00 033132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3498
  3499					;**********
  3500
  3501					;THIS TEST VERIFIES THAT TDZA CLEARS ALL BITS OF THE AC WHICH
  3502					;CORRESPOND TO 1'S IN C(E) AND ALWAYS
  3503					;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  3504					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
  3505					;HENCE, TDZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 121052,,000204
  3506
  3507	033132	200 06 0 00 034414 	C72110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3508	033133	200 07 0 00 034431 		MOVE	7,[252525,,707070]	;PRELOAD E WITH 252525,,707070
  3509	033134	634 06 0 00 000007 		TDZA	6,7			;*TDZA SHOULD SKIP AND
  3510									;PLACE 121052,,000204 INTO THE AC
  3511						STOP^
  3512	033135	254 04 0 00 033136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3513	033136	324 00 0 00 033137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3514	033137	312 06 0 00 034440 		CAME	6,[121052,,000204]	;PASS IF C(AC)=121052,,000204
  3515						STOP^
  3516	033140	254 04 0 00 033141 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3517	033141	324 00 0 00 033142 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3518	033142	312 07 0 00 034431 		CAME	7,[252525,,707070]	;PASS IF C(E) UNCHANGED
  3519						STOP^
  3520	033143	254 04 0 00 033144 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3521	033144	324 00 0 00 033145 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3522
  3523					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 71
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0098

  3524					;THIS TEST VERIFIES TH`T TSZA CLEARS AHL BITS OF THE AC WHICH
  3525					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
  3526					;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED.
  3527					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  3528					;HENCE, TSZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 123456,,701234
  3529
  3530	033145	200 05 0 00 034414 	C72200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3531	033146	200 06 0 00 034424 		MOVE	6,[076543,,654321]	;PRELOAD E WITH 076543,,654321
  3532	033147	635 05 0 00 000006 		TSZA	5,6			;*TSZA SHOULD SKIP AND
  3533										;PLACE 123456,,701234 INTO THE AC
  3534						STOP^
  3535	033150	254 04 0 00 033151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3536	033151	324 00 0 00 033152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3537	033152	312 05 0 00 034414 		CAME	5,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3538						STOP^
  3539	033153	254 04 0 00 033154 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3540	033154	324 00 0 00 033155 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3541	033155	312 06 0 00 034424 		CAME	6,[076543,,654321]	;PASS IF C(E) UNCHANGED
  3542						STOP^
  3543	033156	254 04 0 00 033157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3544	033157	324 00 0 00 033160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3545
  3546					;**********
  3547
  3548					;THIS TEST VERIFIES THAT TSZA CLEARS ALL BITS OF THE AC WHICH
  3549					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
  3550					;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED.
  3551					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456
  3552					;HENCE, TSZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 0
  3553
  3554	033160	200 04 0 00 034414 	C72210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3555	033161	200 05 0 00 034441 		MOVE	5,[701234,,123456]	;PRELOAD E WITH 701234,,123456
  3556	033162	635 04 0 00 000005 		TSZA	4,5			;*TSZA SHOULD SKIP AND
  3557										;PLACE 0 INTO THE AC
  3558						STOP^
  3559	033163	254 04 0 00 033164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3560	033164	324 00 0 00 033165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3561	033165	312 04 0 00 034407 		CAME	4,[0]			;PASS IF C(AC)=0
  3562						STOP^
  3563	033166	254 04 0 00 033167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3564	033167	324 00 0 00 033170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3565	033170	312 05 0 00 034441 		CAME	5,[701234,,123456]	;PASS IF C(E) UNCHANGED
  3566						SToP^
  3567	033171	254 04 0 00 033172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3568	033172	324 00 0 00 033173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3569
  3570					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 72
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0099

  3571					;THIS TEST VERIFIES THAT TDZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3572					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  3573					;C(E) ARE ZERO.  THESE MASKED
  3574					;AC BITS ARE THEN CHANGEDTO ZERO.
  3575					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547
  3576					;HENCE, TDZN SHOULD SKIP AND THE RESULT IN THE AC
  3577					;SHOULD BE 123456(,701230.  C(E) IS NOT AFFECTED.
  3578
  3579	033173	200 03 0 00 034414 	C72300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3580	033174	200 04 0 00 034442 		MOVE	4,[654321,,76547]	;PRELOAD E WITH 654321,,076547
  3581	033175	636 03 0 00 000004 		TDZN	3,4			;*TDZN SHoULD SKIP AND
  3582										;PLACE 123456,,701230 INTO THE AC
  3583						STOP^
  3584	033176	254 04 0 00 033177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3585	033177	324 00 0 00 033200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3586	033200	312 03 0 00 034443 		CAME	3,[123456,,701230]	;PASS IF C(AC)=123456,,701230
  3587						STOP^
  3588	033201	254 04 0 00 033202 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3589	033202	324 00 0 00 033203 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3590	033203	312 04 0 00 034442 		CAME	4,[654321,,076547]	;PASS IF C(E) UNCHANGED
  3591						STOP^
  3592	033204	254 04 0 00 033205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3593	033205	324 00 0 00 033206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3594
  3595					;**********
  3596
  3597					;THIS TEST VERIFIES THAT TDZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3598					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  3599					;C(E) ARE ZERO.  THESE MASKED
  3600					;AC BITS ARE THEN CHANGED TO ZERO.
  3601					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
  3602					;HENCE, TDZN SHOULD NOT SKIP AND THE RESULT IN THE AC
  3603					;SHOULD BE 123456,,701234.  C(E) IS NOT AFFECTED.
  3604
  3605	033206	200 02 0 00 034414 	C72310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3606	033207	200 03 0 00 034433 		MOVE	3,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  3607	033210	636 02 0 00 000003 		TDZN	2,3			;*TDZN SHOULD NOT SKIP AND
  3608										;PLACE 123456,,701234 INTO THE AC
  3609	033211	334 00 0 00 000000 		SKIPA				;PASS IF TDZN DOES NOT SKIP
  3610						STOP^
  3611	033212	254 04 0 00 033213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3612	033213	324 00 0 00 033214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3613	033214	312 02 0 00 034414 		CAME	2,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  3614						STOP^
  3615	033215	254 04 0 00 033216 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3616	033216	324 00 0 00 033217 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3617	033217	312 03 0 00 034433 		CAME	3,[654321,,076543]	;PASS IF C(E) UNCHANGED
  3618						STOP^
  3619	033220	254 04 0 00 033221 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3620	033221	324 00 0 00 033222 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3621
  3622					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 73
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0100

  3623					;THIS TEST VERIFIES THaT TSZN SKIPS THE NEXT SEQQENPIAL INSTRUCTION
  3624					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  3625					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  3626					;AC BITS ARE THEN CHANGED TO ZERO.
  3627					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321.
  3628					;HENCE, TSZN SHOULD SKIP AND THE RESULT IN THE AC
  3629					;SHOULD BE 123456,,700234.  C(E) IS NOT AFFECTED.
  3630
  3631	033222	200 01 0 00 034414 	C72400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3632	033223	200 02 0 00 034444 		MOVE	2,[077543,,654321]	;PRELOAD E WITH 077543,,654321
  3633	033224	637 01 0 00 000002 		TSZN	1,2			;*TSZN SHOULD SKIP AND
  3634										;PLACE 123456,,700234 INTO THE AC
  3635						STOP^
  3636	033225	254 04 0 00 033226 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3637	033226	324 00 0 00 033227 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3638	033227	312 01 0 00 034445 		CAME	1,[123456,,700234]	;PASS IF C(AC)=123456,,700234
  3639						STOP^
  3640	033230	254 04 0 00 033231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3641	033231	324 00 0 00 033232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3642	033232	312 02 0 00 034444 		CAME	2,[77543,,654321]	;PASS IF C(E) UNCHANGED
  3643						STOP^
  3644	033233	254 04 0 00 033234 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3645	033234	324 00 0 00 033235 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3646
  3647					;**********
  3648
  3649					;THIS TEST VERIFIES THAT TSZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3650					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  3651					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  3652					;AC BITS ARE THEN CHANGED TO ZERO.
  3653					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321.-
  3654					;HENCE, TSZN SHOULD NOT SKIP AND THE RESULT IN THE AC
  3655					;SHOULD BE 123456,,701234.  C(E) IS NOT AFFECTED.
  3656
  3657	033235	200 00 0 00 034414 	C72410:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3658	033236	200 01 0 00 034424 		MOVE	1,[76543,,654321]	;PRElOAD E WITH 076543,,654321
  3659	033237	637 00 0 00 000001 		TSZN	0,1			;*TSZN SHOULD NOT SKIP AND
  3660										;PLACE 123456,,701234 INTO THE AC
  3661	033240	334 00 0 00 000000 		SKIPA				;PASS IF TSZN DOES NOT SKIP
  3662						STOP^
  3663	033241	254 04 0 00 033242 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3664	033242	324 00 0 00 033243 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3665	033243	312 00 0 00 034414 		CAME	0,[123456,,701234]	;PASS IF C(AC)=123456,,701234]
  3666						STOP^
  3667	033244	254 04 0 00 033245 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3668	033245	324 00 0 00 033246 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3669	033246	312 01 0 00 034424 		CAME	1,[76543,,654321]	;PASS IF C(E) UNCHANGED
  3670						STOP^
  3671	033247	254 04 0 00 033250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3672	033250	324 00 0 00 033251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3673
  3674					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 74
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0101

  3675					;THIS TEST VERIFIES THAT TRC COMPLEMENTS ALL BITS IN THE AC-RIGHT WHICH
  3676					;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
  3677					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3678					;HENCE, THE RESULT IN THE AC SHOUHD BE 123456,,701237
  3679
  3680	033251	200 17 0 00 034414 	C72500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3681	033252	640 17 0 00 000003 		TRC	17,3			;*TRC SHOULD NOT SKIP AND
  3682										;PLACE 123456,,701237 INTO THE AC
  3683	033253	334 00 0 00 000000 		SKIPA				;PASS IF TRC DID NOT SKIP
  3684						STOP^
  3685	033254	254 04 0 00 033255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3686	033255	324 00 0 00 033256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3687	033256	312 17 0 00 034446 		CAME	17,[123456,,701237]	;PASS IF C(AC)=123456,,701237
  3688						STOP^
  3689	033257	254 04 0 00 033260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3690	033260	324 00 0 00 033261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3691
  3692					;**********
  3693
  3694					;THIS TEST VERIFIES THAT TRC COMPLEMENTS ALL BITS IN THE AC-RIGHT WHICH
  3695					;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
  3696					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3697					;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701134
  3698
  3699	033261	200 16 0 00 034414 	C72510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3700	033262	640 16 0 00 000300 		TRC	16,300			;*TRC SHOULD NOT SKIP AND
  3701										;PLACE 123456,,701134 INTO THE AC
  3702	033263	334 00 0 00 000000 		SKIPA				;PASS IF TRC DID NOT SKIP
  3703						STOP^
  3704	033264	254 04 0 00 033265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3705	033265	324 00 0 00 033266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3706	033266	312 16 0 00 034447 		CAME	16,[123456,,701134]	;PASS IF C(AC)=123456,,701134
  3707						STOP^
  3708	033267	254 04 0 00 033270 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3709	033270	324 00 0 00 033271 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3710
  3711					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 75
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0102

  3712					;THIS TEST VERIFIES THAT TLC COMPLEMENTS ALL BITS IN THE AC-LEFT WHICH
  3713					;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
  3714					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3715					;HENCE, ThE RESULT IN THE AC SHOULD BE 123756,,701234.
  3716
  3717	033271	200 15 0 00 034414 	C72600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3718	033272	641 15 0 00 000300 		TLC	15,300			;*TLC SHOULD NOT SKIP AND
  3719										;PLACE 123756,,701234 INTO THE AC
  3720	033273	334 00 0 00 000000 		SKIPA				;PASS IF TLC DID NOT SKIP
  3721						STOP^
  3722	033274	254 04 0 00 033275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3723	033275	324 00 0 00 033276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3724	033276	312 15 0 00 034450 		CAME	15,[123756,,701234]	;PASS IF A(AC)=123756,,701234
  3725						STOP^
  3726	033277	254 04 0 00 033300 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3727	033300	324 00 0 00 033301 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3728
  3729					;**********
  3730
  3731					;THIS TEST VERIFIES THAT TLC COMPLEMENTS ALL BITS IN THE AC-LEFT WHICH
  3732					;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
  3733					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3734					;HENCE, THE RESULT IN THE AC SHOULD BE 123455,,701234.
  3735
  3736	033301	200 14 0 00 034414 	C72610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3737	033302	641 14 0 00 000003 		TLC	14,3			;*TLC SHOULD NOT SKIP AND
  3738										;PLACE 123455,,701234 INTO THE AC
  3739	033303	334 00 0 00 000000 		SKIPA				;PASS IF TLC DID NOT SKIP
  3740						STOP^
  3741	033304	254 04 0 00 033305 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3742	033305	324 00 0 00 033306 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3743	033306	312 14 0 00 034451 		CAME	14,[123455,,701234]	;PASS IF C(AC)=123455,,701234
  3744						STOP^
  3745	033307	254 04 0 00 033310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3746	033310	324 00 0 00 033311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3747
  3748					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 76
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0103

  3749					;THIS TEST VERIFIES THAT TRCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3750					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  3751					;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
  3752					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3753					;HENCE, TRCE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3754					;AND THE RESULT IN THE AC SHOULD BE 123456,,701237.
  3755
  3756	033311	200 13 0 00 034414 	C72700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3757	033312	642 13 0 00 000003 		TRCE	13,3			;*TRCE SHOULD SKIP AND
  3758										;PLACE 123456,,701237 INTO ThE AC
  3759						STOP^
  3760	033313	254 04 0 00 033314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3761	033314	324 00 0 00 033315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3762	033315	312 13 0 00 034446 		CAME	13,[123456,,701237]	;PASS IF C(AC)=123456,,701237
  3763						STOP^
  3764	033316	254 04 0 00 033317 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3765	033317	324 00 0 00 033320 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3766
  3767					;**********
  3768
  3769					;THIS TEST VERIFIES THAT TRCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3770					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  3771					;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
  3772					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3773					;HENCE, TRCE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3774					;AND THE RESULT IN THE AC SHOULD BE 123456,,701134
  3775
  3776	033320	200 12 0 00 034414 	C72710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3777	033321	642 12 0 00 000300 		TRCE	12,300			;*TRCE SHOULD NOT SKIP AND
  3778										;PLACE 123456,,701134 INTO THE AC
  3779	033322	334 00 0 00 000000 		SKIPA				;PASS IF TRCE DID NOT SKIP
  3780						STOP^
  3781	033323	254 04 0 00 033324 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3782	033324	324 00 0 00 033325 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3783	033325	312 12 0 00 034447 		CAME	12,[123456,,701134]	;PASS IF C(AC)=123456,,701134
  3784						STOP^
  3785	033326	254 04 0 00 033327 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3786	033327	324 00 0 00 033330 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3787
  3788					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 77
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0104

  3789					;THIS TEST VERIFIES THAT TLCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3790					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  3791					;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
  3792					;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
  3793					;HENCE, TLCE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3794					;AND THE RESULT IN THE AC SHOULD BE 123756,,701234.
  3795
  3796	033330	200 11 0 00 034414 	C73000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3797	033331	643 11 0 00 000300 		TLCE	11,300			;*TLCE SHOULD SKIP AND
  3798										;PLACE 123756,,701234 INTO THE AC
  3799						STOP^
  3800	033332	254 04 0 00 033333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3801	033333	324 00 0 00 033334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3802	033334	312 11 0 00 034450 		CAME	11,[123756,,701234]	;PASS IF C(AC)=123756,,701234
  3803						STOP^
  3804	033335	254 04 0 00 033336 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3805	033336	324 00 0 00 033337 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3806
  3807					;**********
  3808
  3809					;THIS TEST VERIFIES THAT TLCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3810					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  3811					;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
  3812					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3813					;HENCE, TLCE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3814					;AND THE RESULT IN THE AC SHOULD BE 123455,,701234.
  3815
  3816	033337	200 10 0 00 034414 	C73010:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3817	033340	643 10 0 00 000003 		TLCE	10,3			;*TLCE SHOULD NOT SKIP AND
  3818										;PLACE 123455,,701234 INTO THE AC
  3819	033341	334 00 0 00 000000 		SKIPA				;PASS IF TLCE DID NOT SKIP
  3820						STOP^
  3821	033342	254 04 0 00 033343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3822	033343	324 00 0 00 033344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3823	033344	312 10 0 00 034451 		CAME	10,[123455,,701234]	;PASS IF C(AC)=123455,,701234]
  3824						STOP^
  3825	033345	254 04 0 00 033346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3826	033346	324 00 0 00 033347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3827
  3828					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 78
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0105

  3829					;THIS TEST VERIFIES THAT TRCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3830					;AND COMPLEMENTS ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E.
  3831					;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
  3832					;HENCE, TRCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3833					;THE AC SHOULD BE 123456,,701237.
  3834
  3835	033347	200 07 0 00 034414 	C73100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3836	033350	644 07 0 00 000003 		TRCA	7,3			;*TRCA SHOULD SKIP AND
  3837										;PLACE 123456,,701237 INTO THE AC
  3838						STOP^
  3839	033351	254 04 0 00 033352 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3840	033352	324 00 0 00 033353 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3841	033353	312 07 0 00 034446 		CAME	7,[123456,,701237]	;PASS IF C(AC)=123456,,701237
  3842						STOP^
  3843	033354	254 04 0 00 033355 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3844	033355	324 00 0 00 033356 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3845
  3846					;**********
  3847
  3848					;THIS TEST VERIFIES THAT TRCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3849					;AND COMPLEMENTS ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E
  3850					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  3851					;HENCE, TRCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3852					;THE AC SHOULD BE 123456,,701134
  3853
  3854	033356	200 06 0 00 034414 	C73110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3855	033357	644 06 0 00 000300 		TRCA	6,300			;*TRCA SHOULD SKIP AND
  3856										;PLACE 123456,,701134 INTO THE AC
  3857						STOP^
  3858	033360	254 04 0 00 033361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3859	033361	324 00 0 00 033362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3860	033362	312 06 0 00 034447 		CAME	6,[123456,,701134]	;PASS IF C(AC)=123456,,701134
  3861						STOP^
  3862	033363	254 04 0 00 033364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3863	033364	324 00 0 00 033365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3864
  3865					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 79
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0106

  3866					;THIS TEST VERIFIES THAT TLCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3867					;AND COMPLEMENTS ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E
  3868					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  3869					;HENCE, TLCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3870					;THE AC SHOULD 123456,,701234
  3871
  3872	033365	200 05 0 00 034414 	C73200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3873	033366	645 05 0 00 000003 		TLCA	5,3			;*TLCA SHOULD SKIP AND
  3874										;PLACE 12345,,701234 INTO THE AC
  3875						STOP^
  3876	033367	254 04 0 00 033370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3877	033370	324 00 0 00 033371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3878	033371	312 05 0 00 034451 		CAME	5,[123455,,701234]	;PASS IF C(AC)=123455,,701234
  3879						STOP^
  3880	033372	254 04 0 00 033373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3881	033373	324 00 0 00 033374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3882
  3883					;**********
  3884
  3885					;THIS TEST VERIFIES THAT TLCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3886					;AND COMPLEMENTS ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E
  3887					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  3888					;HENCE, TLCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  3889					;THE AC SHOULD BE 123756,,701234
  3890
  3891	033374	200 04 0 00 034414 	C73210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3892	033375	645 04 0 00 000300 		TLCA	4,300			;*TLCA SHOULD SKIP AND
  3893										;PLACE 123756,,701234 INTO THE AC
  3894						STOP^
  3895	033376	254 04 0 00 033377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3896	033377	324 00 0 00 033400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3897	033400	312 04 0 00 034450 		CAME	4,[123756,,701234]	;PASS IF C(AC)=123756,,701234
  3898						STOP^
  3899	033401	254 04 0 00 033402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3900	033402	324 00 0 00 033403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3901
  3902					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 80
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0107

  3903					;THIS TEST VERIFIES THAT TRCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3904					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  3905					;THESE MASKED AC BITS ARE THEN COMPLEMENTED
  3906					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  3907					;HENCE, TRCN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3908					;AND RESULT IN THE AC SHOULD BE 123456,,701134
  3909
  3910	033403	200 03 0 00 034414 	C73300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3911	033404	646 03 0 00 000300 		TRCN	3,300			;*SHOULD SKIP AND
  3912										;PLACE 123456,,701134 INTO THE AC
  3913						STOP^
  3914	033405	254 04 0 00 033406 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3915	033406	324 00 0 00 033407 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3916	033407	312 03 0 00 034447 		CAME	3,[123456,,701134]	;PASS IF C(AC)=123456,,701134
  3917						STOP^
  3918	033410	254 04 0 00 033411 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3919	033411	324 00 0 00 033412 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3920
  3921					;**********
  3922
  3923					;THIS TEST VERIFIES THAT TRCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3924					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  3925					;THESE MASKED AC BITS ARE THEN COMPLEMENTED
  3926					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  3927					;HENCE, TRCN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3928					;AND THE RESULT IN THE AC SHOULD BE 123456,,701237
  3929
  3930	033412	200 02 0 00 034414 	C73310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3931	033413	646 02 0 00 000003 		TRCN	2,3			;*TRCN SHOULD NOT SKIP AND
  3932										;PLACE 123456,,701237 INTO THE AC
  3933	033414	334 00 0 00 000000 		SKIPA				;PASS IF TRCN DID NOT SKIP
  3934						STOP^
  3935	033415	254 04 0 00 033416 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3936	033416	324 00 0 00 033417 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3937	033417	312 02 0 00 034446 		CAME	2,[123456,,701237]	;PASS IF C(AC)=123456,,701237
  3938						STOP^
  3939	033420	254 04 0 00 033421 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3940	033421	324 00 0 00 033422 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3941
  3942					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 81
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0108

  3943					;THIS TEST VERIFIES THAT TLCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3944					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  3945					;THESE MASKED AC BITS ARE THEN COMPLEMENTED
  3946					;IN THE CASE, C(AC)=123456,,701234 AND E=3
  3947					;HENCE, TLCN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3948					;AND THE RESULT IN THE AC SHOULD BE 123456,,701234
  3949
  3950	033422	200 01 0 00 034414 	C73400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3951	033423	647 01 0 00 000003 		TLCN	1,3			;*TLCN SHOULD SKIP AND
  3952										;PLACE 123455,701234 INTO THE AC
  3953						STOP^
  3954	033424	254 04 0 00 033425 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3955	033425	324 00 0 00 033426 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3956	033426	312 01 0 00 034451 		CAME	1,[123455,,701234]	;PASS IF C(AC)=123455,,701234
  3957						STOP^
  3958	033427	254 04 0 00 033430 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3959	033430	324 00 0 00 033431 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3960
  3961					;**********
  3962
  3963					;THIS TEST VERIFIES THAT TLCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  3964					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZER.
  3965					;THESE MASKED AC BITS ARE THEN COMPLEMENTED
  3966					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  3967					;HENCE, TLCN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  3968					;AND THE RESULT IN THE AC SHOULD BE 123756,,701234
  3969
  3970	033431	200 00 0 00 034414 	C73410:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3971	033432	647 00 0 00 000300 		TLCN	0,300			;*TLCN SHOULD NOT SKIP AND
  3972										;PLACE 123756,,701234 INTO THE AC
  3973	033433	334 00 0 00 000000 		SKIPA				;PASS IF TLCN DID NOT SKIP
  3974						STOP^
  3975	033434	254 04 0 00 033435 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3976	033435	324 00 0 00 033436 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3977	033436	312 00 0 00 034450 		CAME	0,[123756,,701234]	;PASS IF C(AC)=123756,,701234
  3978						STOP^
  3979	033437	254 04 0 00 033440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3980	033440	324 00 0 00 033441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3981
  3982					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 82
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0109

  3983					;THIS TEST VERIFIES THAT TSL COMPLEMENTS ALL BITS OF THE AC WHICH
  3984					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
  3985					;NOT SKIP THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  3986					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)6543,,654321
  3987					;HENCE, TSC SHOULD NOT SKIP AND C(AC) SHOULD BE -1,,-1
  3988
  3989	033441	200 17 0 00 034414 	C73500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  3990	033442	200 00 0 00 034424 		MOVE	0,[076543,,654321]	;PRELOAD E WITH 076543,,654321
  3991	033443	651 17 0 00 000000 		TSC	17,0			;*TSC SHOULD NOT SKIP AND
  3992										;PLACE -1,,-1 INTO THE AC
  3993	033444	334 00 0 00 000000 		SKIPA				;PASS IF TSC DOES NOT SKIP
  3994						STOP^
  3995	033445	254 04 0 00 033446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3996	033446	324 00 0 00 033447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3997	033447	312 17 0 00 034301 		CAME	17,[-1]			;PASS IF C(AC)=-1,,-1
  3998						STOP^
  3999	033450	254 04 0 00 033451 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4000	033451	324 00 0 00 033452 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4001	033452	312 00 0 00 034424 		CAME	0,[076543,,654321]	;PASS IF C(E) UNCHANGED
  4002						STOP^
  4003	033453	254 04 0 00 033454 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4004	033454	324 00 0 00 033455 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4005
  4006					;**********
  4007
  4008					;THIS TEST VERIFIES THAT TSC COMPLEMENTS ALL BITS OF THE AC WHICH
  4009					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
  4010					;NOT SKIP THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  4011					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
  4012					;HENCE, TSC SHOULD NOT SKIP AND C(AC) SHOULD BE 624426,,553711
  4013
  4014	033455	200 16 0 00 034414 	C73510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4015	033456	200 17 0 00 034431 		MOVE	17,[252525,,707070]	;PRELOAD E WITH 252525,,707070
  4016	033457	651 16 0 00 000017 		TSC	16,17			;*TSC SHOULD NOT SKIP AND
  4017										;PLACE 624426,,553711 INTO THE AC
  4018	033460	334 00 0 00 000000 		SKIPA				;PASS IF TSC DOES NOT SKIP
  4019						STOP^
  4020	033461	254 04 0 00 033462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4021	033462	324 00 0 00 033463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4022	033463	312 16 0 00 034452 		CAME	16,[624426,,553711]	;PASS IF C(AC)=624426,,553711
  4023						STOP^
  4024	033464	254 04 0 00 033465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4025	033465	324 00 0 00 033466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4026	033466	312 17 0 00 034431 		CAME	17,[252525,,707070]	;PASS IF C(E) UNCHANGED
  4027						STOP^
  4028	033467	254 04 0 00 033470 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4029	033470	324 00 0 00 033471 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4030
  4031					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 83
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0110

  4032					;THIS TEST VERIFIES THAT TDCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4033					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4034					;C(E) ARE ZERO.  THESE MASKED
  4035					;AC BITS ARE THEN COMPLEMENTED
  4036					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
  4037					;HENCE, TDCE SHOULD SKIP AND THE RESULT IN AC
  4038					;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED
  4039
  4040	033471	200 15 0 00 034414 	C73600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4041	033472	200 16 0 00 034433 		MOVE	16,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  4042	033473	652 15 0 00 000016 		TDCE	15,16			;*TDCE SHOULD SKIP AND
  4043										;PLACE -1,,-1 INTO THE AC
  4044						STOP^
  4045	033474	254 04 0 00 033475 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4046	033475	324 00 0 00 033476 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4047	033476	312 15 0 00 034301 		CAME	15,[-1]			;PASS IF C(AC)=-1,,-1
  4048						STOP^
  4049	033477	254 04 0 00 033500 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4050	033500	324 00 0 00 033501 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4051	033501	312 16 0 00 034433 		CAME	16,[654321,,076543]	;PASS IF C(E) UNCHANGED
  4052						STOP^
  4053	033502	254 04 0 00 033503 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4054	033503	324 00 0 00 033504 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4055
  4056					;**********
  4057
  4058					;THIS TEST VERIFIES THAT TDCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4059					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4060					;C(E) ARE ZERO.  THESE MASKED 
  4061					;AC BITS ARE THEN COMPLEMENTED
  4062					;IN THIS CASE, C(AC)=123456,,701234 AND C(E) 754321,,076543
  4063					;HENCE, TDCE SHOULD NOT SKIP AND THE RESULT IN AC
  4064					;SHOULD BE 677777,,-1 C(E) IS NOT AFFECTED.
  4065
  4066	033504	200 14 0 00 034414 	C73610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4067	033505	200 15 0 00 034434 		MOVE	15,[754321,,076543]	;PRELOAD E WITH 754321,,076543
  4068	033506	652 14 0 00 000015 		TDCE	14,15			;*TDCE SHOULD NOT SKIP AND
  4069										;PLACE 677777,,-1 INTO THE AC
  4070	033507	334 00 0 00 000000 		SKIPA				;PASS IF TDCE DOES NOT SKIP
  4071						STOP^
  4072	033510	254 04 0 00 033511 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4073	033511	324 00 0 00 033512 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4074	033512	312 14 0 00 034453 		CAME	14,[677777,,-1]		;PASS IF C(AC)=677777,,-1
  4075						STOP^
  4076	033513	254 04 0 00 033514 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4077	033514	324 00 0 00 033515 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4078	033515	312 15 0 00 034434 		CAME	15,[754321,,076543]	;PASS IF C(E) UNCHANGED
  4079						STOP^
  4080	033516	254 04 0 00 033517 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4081	033517	324 00 0 00 033520 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4082
  4083					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 84
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0111

  4084					;THIS TEST VERIFIES THAT TSCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4085					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4086					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  4087					;AC BITS ARE THEN COMPLEMENTED
  4088					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  4089					;HENCE, TSCE SHOULD SKIP AND THE RESULT IN THE AC
  4090					;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED
  4091
  4092	033520	200 13 0 00 034414 	C73700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4093	033521	200 14 0 00 034424 		MOVE	14,[76543,,654321]	;PRELOAD E WITH 076543,,654321
  4094	033522	653 13 0 00 000014 		TSCE	13,14			;*TSCE SHOULD SKIP AND
  4095										;PLACE -1,,-1 INTO THE AC
  4096						STOP^
  4097	033523	254 04 0 00 033524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4098	033524	324 00 0 00 033525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4099	033525	312 13 0 00 034301 		CAME 	13,[-1]			;PASS IF C(E) UNCHANGED
  4100						STOP^
  4101	033526	254 04 0 00 033527 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4102	033527	324 00 0 00 033530 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4103
  4104					;**********
  4105
  4106					;THIS TEST VERIFIES THAT TSCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4107					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4108					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  4109					;AC BITS ARE THEN COMPLEMENTED
  4110					;IN THIS CASE, C(AC)=123456,701234 AND C(E)=076543,,657321
  4111					;HENCE, TSCE SHOULD NOT SKIP AND THE RESULT IN THE AC
  4112					;SHOULD BE 774777,,-1.  C(E) IS NOT AFFECTED.
  4113
  4114	033530	200 12 0 00 034414 	C73710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4115	033531	200 13 0 00 034436 		MOVE	13,[76543,,657321]	;PRELOAD E WITH 076543,,657321
  4116	033532	653 12 0 00 000013 		TSCE	12,13			;*TSCE HOULD NOT SKIP AND
  4117										;PLACE 774777,,-1 INTO THE AC
  4118	033533	334 00 0 00 000000 		SKIPA				;PASS IF TSCE DOES NOT SKIP
  4119						STOP^
  4120	033534	254 04 0 00 033535 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4121	033535	324 00 0 00 033536 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4122	033536	312 12 0 00 034454 		CAME	12,[774777,,-1]		;PASS IF C(AC)=774777,,-1
  4123						STOP^
  4124	033537	254 04 0 00 033540 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4125	033540	324 00 0 00 033541 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4126	033541	312 13 0 00 034436 		CAME	13,[76543,,657321]	;PASS IF C(E) UNCHANGED
  4127						STOP^
  4128	033542	254 04 0 00 033543 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4129	033543	324 00 0 00 033544 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4130
  4131					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 85
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0112

  4132					;THIS TEST VERIFIES THAT TDCA COMPLEMENTS ALL BITS OF THE AC WHICH
  4133					;CORRESPOND TO 1'S IN C(E) AND ALWAYS
  4134					;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  4135					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
  4136					;HENCE, TDCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1
  4137
  4138	033544	200 11 0 00 034414 	C74000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4139	033545	200 12 0 00 034433 		MOVE	12,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  4140	033546	654 11 0 00 000012 		TDCA	11,12			;*TDCA SHOULD SKIP AND
  4141										;PLACE -1,,-1 INTO THE AC
  4142						STOP^
  4143	033547	254 04 0 00 033550 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4144	033550	324 00 0 00 033551 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4145	033551	312 11 0 00 034301 		CAME	11,[-1]			;PASS IF C(AC)=-1,,-1
  4146						STOP^
  4147	033552	254 04 0 00 033553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4148	033553	324 00 0 00 033554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4149	033554	312 12 0 00 034433 		CAME	12,[654321,,76543]	;PASS IF C(E) UNCHANGED
  4150						STOP^
  4151	033555	254 04 0 00 033556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4152	033556	324 00 0 00 033557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4153
  4154					;**********
  4155
  4156					;THIS TEST VERIFIES THAT TDCA COMPLEMENTS ALL BITS OF THE AC WHICH
  4157					;CORRESPOND TO 1'S IN C(E) AND SLWAYS
  4158					;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
  4159					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
  4160					;HENCE, TDCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 371173,,006244
  4161
  4162	033557	200 10 0 00 034414 	C74100:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4163	033560	200 11 0 00 034431 		MOVE	11,[252525,,707070]	;PRELOAD E WITH 252525,,707070
  4164	033561	654 10 0 00 000011 		TDCA	10,11			;*TDCA SHOULD SKP AND
  4165										;PLACE 371173,,006244 INTO THE AC
  4166						STOP^
  4167	033562	254 04 0 00 033563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4168	033563	324 00 0 00 033564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4169	033564	312 10 0 00 034455 		CAME	10,[371173,,6244]	;PASS IF C(AC)=371173,,006244
  4170						STOP^
  4171	033565	254 04 0 00 033566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4172	033566	324 00 0 00 033567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4173	033567	312 11 0 00 034431 		CAME	11,[252525,,707070]	;PASS IF C(E) UNCHANGED
  4174						STOP^
  4175	033570	254 04 0 00 033571 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4176	033571	324 00 0 00 033572 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4177
  4178					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 86
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0113

  4179					;THIS TEST VERIFIES THAT TSCA COMPLEMENTS ALL BITS OF THE AC WHICH
  4180					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
  4181					;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  4182					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  4183					;HENCE, TSCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1
  4184
  4185	033572	200 07 0 00 034414 	C74200:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4186	033573	200 10 0 00 034424 		MOVE	10,[076543,,654321]	;PRELOAD E WITH 076543,,654321
  4187	033574	655 07 0 00 000010 		TSCA	7,10			;*TSCA CHOULD SKIP AND
  4188										;PLACE -1,,-1 INTO THE AC
  4189						STOP^
  4190	033575	254 04 0 00 033576 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4191	033576	324 00 0 00 033577 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4192	033577	312 07 0 00 034301 		CAME	7,[-1]			;PASS IF C(AC)=-1,,-1
  4193						STOP^
  4194	033600	254 04 0 00 033601 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4195	033601	324 00 0 00 033602 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4196	033602	312 10 0 00 034424 		CAME	10,[076543,,654321]	;PASS IF C(E) UNCHANGED
  4197						STOP^
  4198	033603	254 04 0 00 033604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4199	033604	324 00 0 00 033605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4200
  4201					;**********
  4202
  4203					;THIS TEST VERIFIES THAT TSCA COMPLEMENTS ALL BITS OF THE AC WHICH
  4204					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
  4205					;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  4206					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456
  4207					;HENCE, TSCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 0
  4208
  4209	033605	200 06 0 00 034414 	C74210:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4210	033606	200 07 0 00 034441 		MOVE	7,[701234,,123456]	;PRELOAD E WITH 701234,,123456
  4211	033607	655 06 0 00 000007 		TSCA	6,7			;*TSCA SHOULD SKIP AND
  4212										;PLACE 0 INTO THE AC
  4213						STOP^
  4214	033610	254 04 0 00 033611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4215	033611	324 00 0 00 033612 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4216	033612	312 06 0 00 034407 		CAME	6,[0]			;PASS IF C(AC)=0
  4217						STOP^
  4218	033613	254 04 0 00 033614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4219	033614	324 00 0 00 033615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4220	033615	312 07 0 00 034441 		CAME	7,[701234,,123456]	;PASS IF C(E) UNCHANGED
  4221						STOP^
  4222	033616	254 04 0 00 033617 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4223	033617	324 00 0 00 033620 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4224
  4225					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 87
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0114

  4226					;THIS TEST VERIFIES THAT TDCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4227					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4228					;C(E) ARE ZERO.  THESE MASKED
  4229					;AC BITS ARE THEN COMPLEMENTED
  4230					;IN THE CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547
  4231					;HENCE, TDCN SHOULD SKIP AND THE RESULT IN AC
  4232					;SHOULD BE -1,,777773 C(E) IS NOT AFFECTED
  4233
  4234	033620	200 05 0 00 034414 	C74300:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4235	033621	200 06 0 00 034442 		MOVE	6,[654321,,76547]	;PRELOAD E WITH 654321,,076547
  4236	033622	656 05 0 00 000006 		TDCN	5,6			;*TDCN SHOULD SKIP AND
  4237										;PLACE -1,,777773 INTO THE AC
  4238						STOP^
  4239	033623	254 04 0 00 033624 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4240	033624	324 00 0 00 033625 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4241	033625	312 05 0 00 034456 		CAME	5,[-1,,777773]		;PASS IF C(AC)=-1,777773
  4242						STOP^
  4243	033626	254 04 0 00 033627 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4244	033627	324 00 0 00 033630 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4245	033630	312 06 0 00 034442 		CAME	6,[654321,,76547]	;PASS IF C(E) UNCHANGED
  4246						STOP^
  4247	033631	254 04 0 00 033632 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4248	033632	324 00 0 00 033633 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4249
  4250					;**********
  4251
  4252					;THIS TEST VERIFIES THAT TDCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4253					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4254					;C(E) ARE ZERO.  THESE MASKED
  4255					;AC BITS ARE THEN COMPLEMENTED
  4256					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
  4257					;HENCE, TDCN SHOULD NOT SKIP AND THE REUSLT IN AC
  4258					;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED
  4259
  4260	033633	200 04 0 00 034414 	C74310:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4261	033634	200 05 0 00 034433 		MOVE	5,[654321,,76543]	;PRELOAD E WITH 654321,,076543
  4262	033635	656 04 0 00 000005 		TDCN	4,5			;*TDCN SHOULD NOT SKIP AND
  4263										;PLACE -1,,-1 INTO THE AC
  4264	033636	334 00 0 00 000000 		SKIPA				;PASS IF TDCN DOES NOT SKIP
  4265						STOP^
  4266	033637	254 04 0 00 033640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4267	033640	324 00 0 00 033641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4268	033641	312 04 0 00 034301 		CAME	4,[-1]			;PASS IF C(AC)=-1,,-1
  4269						STOP^
  4270	033642	254 04 0 00 033643 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4271	033643	324 00 0 00 033644 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4272	033644	312 05 0 00 034433 		CAME	5,[654321,,76543]	;PASS IF C(E) UNCHANGED
  4273						STOP^
  4274	033645	254 04 0 00 033646 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4275	033646	324 00 0 00 033647 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4276
  4277					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 88
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0115

  4278					;THIS TEST VERIFIES THAT TSCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4279					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4280					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  4281					;AC BITS ARE THEN COMPLEMENTED
  4282					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321
  4283					;HENCE, TSCN SHOULD SKIP AND THE RESULT IN AC
  4284					;SHOULD BE -1,,776777.  C(E) IS NOT AFFECTED
  4285
  4286	033647	200 03 0 00 034414 	C74400:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4287	033650	200 04 0 00 034444 		MOVE	4,[77543,,654321]	;PRELOAD E WITH 077543,,654321
  4288	033651	657 03 0 00 000004 		TSCN	3,4			;*TSCN SHOULD SKIP AND
  4289										;PLACE -1,,776777 INTO THE AC
  4290						STOP^
  4291	033652	254 04 0 00 033653 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4292	033653	324 00 0 00 033654 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4293	033654	312 03 0 00 034457 		CAME	3,[-1,,776777]		;PASS IF C(AC)=-1,776777
  4294						STOP^
  4295	033655	254 04 0 00 033656 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4296	033656	324 00 0 00 033657 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4297	033657	312 04 0 00 034444 		CAME	4,[77543,,654321]	;PASS IF C(E) UNCHANGED
  4298						STOP^
  4299	033660	254 04 0 00 033661 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4300	033661	324 00 0 00 033662 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4301
  4302					;**********
  4303
  4304					;THIS TEST VERIFIES THAT TSCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4305					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4306					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  4307					;AC BITS ARE THEN COMPLEMENTD
  4308					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  4309					;HENCE, TSCN SHOULD NOT SKIP AND THE RESULT IN AC
  4310					;SHOULD BE -1,,-1.  C(E) IS NOT AFFECTED.
  4311
  4312	033662	200 02 0 00 034414 	C74410:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4313	033663	200 03 0 00 034424 		MOVE	3,[76543,,654321]	;PRELOAD E WITH 076543,,654321
  4314	033664	657 02 0 00 000003 		TSCN	2,3			;*TSCN SHOULD NOT SKIP AND
  4315										;PLACE -1,,-1 INTO THE AC
  4316	033665	334 00 0 00 000000 		SKIPA				;PASS IF TSCN DOES NOT SKIP
  4317						STOP^
  4318	033666	254 04 0 00 033667 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4319	033667	324 00 0 00 033670 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4320	033670	312 02 0 00 034301 		CAME	2,[-1]			;PASS IF C(AC)=-1,,-1
  4321						STOP^
  4322	033671	254 04 0 00 033672 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4323	033672	324 00 0 00 033673 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4324	033673	312 03 0 00 034424 		CAME	3,[76543,,654321]	;PASS IF C(E) UNCHANGED
  4325						STOP^
  4326	033674	254 04 0 00 033675 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4327	033675	324 00 0 00 033676 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4328
  4329					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 89
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0116

  4330					;THIS TEST VERIFIES THAT TRO CHANGES ALL BITS IN THE AC-RIGHT WHICH
  4331					;CORRESPOND TO 1'S IN E TO ONES AND DOES ANT SKIP
  4332					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  4333					;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701237
  4334
  4335	033676	200 01 0 00 034414 	C74500:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4336	033677	660 01 0 00 000003 		TRO	1,3			;*TRO SHOULD NOT SKIP AND
  4337										;PLACE 123456,,701237 INTO THE AC
  4338	033700	334 00 0 00 000000 		SKIPA				;PASS IF TRO DID NOT SKIP
  4339						STOP^
  4340	033701	254 04 0 00 033702 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4341	033702	324 00 0 00 033703 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4342	033703	312 01 0 00 034446 		CAME	1,[123456,,701237]	;PASS IF C(AC)=123456,,701237
  4343						STOP^
  4344	033704	254 04 0 00 033705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4345	033705	324 00 0 00 033706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4346
  4347					;**********
  4348
  4349					;THIS TEST VERIFIES THAT TRO CHANGES ALL BITS IN THE AC-RIGHT WHICH
  4350					;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP
  4351					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  4352					;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701224
  4353
  4354	033706	200 00 0 00 034414 	C74510:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4355	033707	660 00 0 00 000300 		TRO	0,300			;*TRO SHOULD NOT SKIP AND
  4356										;PLACE 123456,,701334 INTO THE AC
  4357	033710	334 00 0 00 000000 		SKIPA				;PASS IF TRO DID NOT SKIP
  4358						STOP^
  4359	033711	254 04 0 00 033712 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4360	033712	324 00 0 00 033713 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4361	033713	312 00 0 00 034460 		CAME	0,[123456,,701334]	;PASS IF C(AC)=123456,,701334
  4362						STOP^
  4363	033714	254 04 0 00 033715 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4364	033715	324 00 0 00 033716 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4365
  4366					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 90
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0117

  4367					;THIS TEST VERIFIES THAT TLO CHANGES ALL BITS IN THE AC-LEFT WHICH
  4368					;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP
  4369					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  4370					;HENCE, THE RESULT IN THE AC SHOULD BE 123756,,701234
  4371
  4372	033716	200 17 0 00 034414 	C74600:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4373	033717	661 17 0 00 000300 		TLO	17,300			;*TLO SHOULD NOT SKIP AND
  4374										;PLACE 123756,,701234 INTO THE AC
  4375	033720	334 00 0 00 000000 		SKIPA				;PASS IF TLO DID NOT SKIP
  4376						STOP^
  4377	033721	254 04 0 00 033722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4378	033722	324 00 0 00 033723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4379	033723	312 17 0 00 034450 		CAME	17,[123756,,701234]	;PASS IF C(AC)=123456,,701234
  4380						STOP^
  4381	033724	254 04 0 00 033725 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4382	033725	324 00 0 00 033726 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4383
  4384					;**********
  4385
  4386					;THIS TEST VERIFIES THAT TLO CHANGES ALL BITS IN THE AC-LEFT WHICH
  4387					;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP
  4388					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  4389					;HENCE, THE RESULT IN THE AC SHOULD BE 123457,,701234
  4390
  4391	033726	200 16 0 00 034461 	C74610:	MOVE	16,[123456,,70234]	;PRELOAD AC WITH 123456,,701234
  4392	033727	661 16 0 00 000003 		TLO	16,3			;*TLO SHOULD NOT SKIP AND
  4393										;PLACE 123457,,701234 INTO THE AC
  4394	033730	334 00 0 00 000000 		SKIPA				;PASS IF DID NOT SKIP
  4395						STOP^
  4396	033731	254 04 0 00 033732 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4397	033732	324 00 0 00 033733 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4398	033733	312 16 0 00 034462 		CAME	16,[123457,,70234]	;PASS IF C(AC)=123457,,701234
  4399						STOP^
  4400	033734	254 04 0 00 033735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4401	033735	324 00 0 00 033736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4402
  4403					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 91
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0118

  4404					;THIS TEST VERIFIES THAT TROE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4405					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  4406					;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
  4407					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  4408					;HENCE, TROE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4409					;AND RESULT IN THE AC SHOUD BE 123456,,701237
  4410
  4411	033736	200 15 0 00 034414 	C74700:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4412	033737	662 15 0 00 000003 		TROE	15,3			;TROE SHOULD SKIP AND
  4413										;PLACE 123456,,701237 IN TO THE AC
  4414						STOP^
  4415	033740	254 04 0 00 033741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4416	033741	324 00 0 00 033742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4417	033742	312 15 0 00 034446 		CAME	15,[123456,,701237]	;PASS IF C(AC)=123456,,701237
  4418						STOP^
  4419	033743	254 04 0 00 033744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4420	033744	324 00 0 00 033745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4421
  4422					;**********
  4423
  4424					;THIS TEST VERIFIES THAT TROE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4425					;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  4426					;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
  4427					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  4428					;HENCE, TROE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4429					;AND THE RESULT IN THE AC SHOULD BE 123456,,701334
  4430
  4431	033745	200 14 0 00 034414 	C74710:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4432	033746	662 14 0 00 000300 		TROE	14,300			;*TROE SHOULD NOT SKIP AND
  4433										;PLACE 123456,,701224 INTO THE AC
  4434	033747	334 00 0 00 000000 		SKIPA				;PASS IF DID NOT SKIP
  4435						STOP^
  4436	033750	254 04 0 00 033751 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4437	033751	324 00 0 00 033752 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4438	033752	312 14 0 00 034460 		CAME	14,[123456,,701334]	;PASS IF C(AC)=123456,,701334
  4439						STOP^
  4440	033753	254 04 0 00 033754 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4441	033754	324 00 0 00 033755 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4442
  4443					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 92
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0119

  4444					;THIS TEST VERIFIES THAT TLOE SKIPS THE NEXT SEQUENTIAL  INSTRUCTION
  4445					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  4446					;THESE MASKED AC BITS ARE TEN CHANGED TO ONES
  4447					;IN THES CASE, C(AC)=123456,,701234 AND E=300
  4448					;HENCE, TLOE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4449					;AND THE RESULT IN THE AC SHOULD BE 123756,,701234
  4450
  4451	033755	200 13 0 00 034414 	C75000:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4452	033756	663 13 0 00 000300 		TLOE	13,300			;*TLOE SOULD SKIP AND
  4453										;PLAND 123756,,701234 INTO THE AC
  4454						STOP^
  4455	033757	254 04 0 00 033760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4456	033760	324 00 0 00 033761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4457	033761	312 13 0 00 034450 		CAME	13,[123756,,701234]	;PASS IF C(AC)=123456,,701234
  4458						STOP^
  4459	033762	254 04 0 00 033763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4460	033763	324 00 0 00 033764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4461
  4462					;********
  4463
  4464					;THIS TEST VERIFIES THAT TLOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4465					;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING  TO 1'S IN E ARE ZERO.
  4466					;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
  4467					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  4468					;HENCE, TLOE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4469					;AND THE RESULT IN THE AC SHOULD BE 123457,,701234
  4470
  4471	033764	200 12 0 00 034414 	C75010:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4472	033765	663 12 0 00 000003 		TLOE	12,3			;*TLOE SHOULD NOT SKIP AND
  4473										;PLACE 123457,,701234 INTO THE AC
  4474	033766	334 00 0 00 000000 		SKIPA				;PASS IF TLOE DID NOT SKIP
  4475						STOP^
  4476	033767	254 04 0 00 033770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4477	033770	324 00 0 00 033771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4478	033771	312 12 0 00 034463 		CAME	12,[123457,,701234]	;PASS IF C(AC)=123457,,701234
  4479						STOP^
  4480	033772	254 04 0 00 033773 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4481	033773	324 00 0 00 033774 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4482
  4483					;*******
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 93
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0120

  4484					;THIS TEST VERIFIES THAT TROA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTUCTION
  4485					;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ONES
  4486					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  4487					;HENCE, TROA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  4488					;THE AC SHOULD BE 123456,,701237
  4489
  4490	033774	200 11 0 00 034414 	C75100:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4491	033775	664 11 0 00 000003 		TROA	11,3			;*TROA SHOULD SKIP AND
  4492										;PLACE 123456,,701237
  4493						STOP^
  4494	033776	254 04 0 00 033777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4495	033777	324 00 0 00 034000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4496	034000	312 11 0 00 034446 		CAME	11,[123456,,701237]	;PASS IF C(AC)=123456,,701237
  4497						STOP^
  4498	034001	254 04 0 00 034002 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4499	034002	324 00 0 00 034003 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4500
  4501					;**********
  4502
  4503					;THIS TEST VERIFIES THAT TROA ALWAYS SKIPS THE NEXT SEQUENTAIL INSTRUCTION
  4504					;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ONES
  4505					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  4506					;HENCE, TROA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  4507					;THE AC SHOULD BE 123456,,701334
  4508
  4509	034003	200 10 0 00 034414 	C75110:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4510	034004	664 10 0 00 000300 		TROA	10,300			;*TROA SHOULD SKIP AND
  4511										;PLACE 123456,,701334 INTO THE AC
  4512						STOP^
  4513	034005	254 04 0 00 034006 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4514	034006	324 00 0 00 034007 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4515	034007	312 10 0 00 034460 		CAME	10,[123456,,701334]	;PASS IF C (AC)=123456,,701334
  4516						STOP^
  4517	034010	254 04 0 00 034011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4518	034011	324 00 0 00 034012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4519
  4520					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 94
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0121

  4521					;THIS TEST VERIFIES THAT TLOA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTUCTION
  4522					;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND 1'S IN E TO ONES
  4523					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  4524					;HENCE, TLOA SHOULD SKIP THE NEXT INSTRUCTION AND RESULT IN
  4525					;THE AC SHOULD BE 123457,,701234
  4526
  4527	034012	200 07 0 00 034414 	C75200:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4528	034013	665 07 0 00 000003 		TLOA	7,3			;*TLOA SHOULD SKIP AND
  4529										;PLACE 123457,,701234 INTO THE AC
  4530						STOP^
  4531	034014	254 04 0 00 034015 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4532	034015	324 00 0 00 034016 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4533	034016	312 07 0 00 034463 		CAME	7,[123457,,701234]	;PASS IF C(AC)=123457,,701234]
  4534						STOP^
  4535	034017	254 04 0 00 034020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4536	034020	324 00 0 00 034021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4537
  4538					;**********
  4539
  4540					;THIS TEST VERIFIES THAT TLOA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4541					;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ONES
  4542					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  4543					;HENCE, TLOA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
  4544					;THE AC SHOULD BE 123756,,701234
  4545
  4546	034021	200 06 0 00 034414 	C75210:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4547	034022	665 06 0 00 000300 		TLOA	6,300			;*TLOA SHOULD SKIP AND
  4548										;PLACE 123756,,701234 INTO THE AC
  4549						STOP^
  4550	034023	254 04 0 00 034024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4551	034024	324 00 0 00 034025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4552	034025	312 06 0 00 034450 		CAME	6,[123756,,701234]	;PASS IF C(AC)=123756,,701234
  4553						STOP^
  4554	034026	254 04 0 00 034027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4555	034027	324 00 0 00 034030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4556
  4557					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 95
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0122

  4558					;THIS TEST VERIFIES THAT TRON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4559					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  4560					;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
  4561					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  4562					;HENCE, TRON SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4563					;AND THE RESULT IN THE AC SHOULD BE 123456,,701334
  4564
  4565	034030	200 05 0 00 034414 	C75300:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4566	034031	666 05 0 00 000300 		TRON	5,300			;*TRON SHOULD SKIP AND
  4567										;PLACE 123456,,701334 INTO THE AC
  4568						STOP^
  4569	034032	254 04 0 00 034033 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4570	034033	324 00 0 00 034034 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4571	034034	312 05 0 00 034460 		CAME	5,[123456,,701334]	;PASS IF C(AC)=123456,,701334
  4572						STOP^
  4573	034035	254 04 0 00 034036 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4574	034036	324 00 0 00 034037 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4575
  4576					;**********
  4577
  4578					;THIS TEST VERIFIES THAT TRON SKIPS THE NEXT SEQUENTIAL INSTUCTION
  4579					;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
  4580					;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
  4581					;IN THIS CASE, C(AC)=123456,,701234 AND E=3
  4582					;HENCE, TRON SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4583					;AND THE RESULT IN THE AC SHOULD BE 123456,,701237
  4584
  4585	034037	200 04 0 00 034414 	C75310:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4586	034040	666 04 0 00 000003 		TRON	4,3			;*TRON SHOULD NOT  SKIP AND
  4587										;PLACE 123456,,701237 INTO THE AC
  4588	034041	334 00 0 00 000000 		SKIPA				;PASS IF TRON DID NOT SKIP
  4589						STOP^
  4590	034042	254 04 0 00 034043 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4591	034043	324 00 0 00 034044 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4592	034044	312 04 0 00 034446 		CAME	4,[123456,,701237]	;PASS IF C(AC)=123456,701237
  4593						STOP^
  4594	034045	254 04 0 00 034046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4595	034046	324 00 0 00 034047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4596
  4597					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 96
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0123

  4598					;THIS TEST VERIFIES THAT TLON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4599					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  4600					;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
  4601					;IN THIS CASE, C(AC)-123456,,701234 AND E=3
  4602					;HENCE, TLON SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4603					;AND THE RESULT IN THE AC SHOULD BE 123457,,701234
  4604
  4605	034047	200 03 0 00 034414 	C75400:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4606	034050	667 03 0 00 000003 		TLON	3,3			;*TLON SHOULD SKIP AND
  4607										;PLACE 123457,,701234 INTO THE AC
  4608						STOP^
  4609	034051	254 04 0 00 034052 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4610	034052	324 00 0 00 034053 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4611	034053	312 03 0 00 034463 		CAME	3,[123457,,701234]	;PASS IF C(AC)=123457,,701234
  4612						STOP^
  4613	034054	254 04 0 00 034055 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4614	034055	324 00 0 00 034056 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4615
  4616					;*******
  4617
  4618					;THIS TEST VERIFIES THAT TLON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4619					;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
  4620					;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
  4621					;IN THIS CASE, C(AC)=123456,,701234 AND E=300
  4622					;HENCE, TLON SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
  4623					;AND THE RESULT IN THE AC SHOULD BE 123756,,701234
  4624
  4625	034056	200 02 0 00 034414 	C75410:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4626	034057	667 02 0 00 000300 		TLON	2,300			;*TLON SHOULD NOT SKIP AND
  4627										;PLACE 123756,,701234 INTO THE AC
  4628	034060	334 00 0 00 000000 		SKIPA				;PASS IF TLON DID NOT SKIP
  4629						STOP^
  4630	034061	254 04 0 00 034062 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4631	034062	324 00 0 00 034063 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4632	034063	312 02 0 00 034450 		CAME	2,[123756,,701234]	;PASS IF C(AC)=123756,,701234
  4633						STOP^
  4634	034064	254 04 0 00 034065 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4635	034065	324 00 0 00 034066 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4636
  4637					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 97
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0124

  4638					;THIS TEST VERIFIES THAT TDOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4639					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4640					;C(E)ARE ZERO.  THESE MASKED
  4641					;AC BITS ARE THEN CHANGED TO ONES
  4642					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543 
  4643					;HENCE, TDOE SHOULD SKIP AND THE RESULT IN AC
  4644					;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED
  4645
  4646	034066	200 01 0 00 034414 	C75500:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4647	034067	200 02 0 00 034433 		MOVE	2,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  4648	034070	672 01 0 00 000002 		TDOE	1,2			;*TDOE SHOULD SKIP AND
  4649										;PLACE -1,,-1 INTO THE AC
  4650						STOP^
  4651	034071	254 04 0 00 034072 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4652	034072	324 00 0 00 034073 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4653	034073	312 01 0 00 034301 		CAME	1,[-1]			;PASS IF C(AC)=-1,,-1
  4654						STOP^
  4655	034074	254 04 0 00 034075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4656	034075	324 00 0 00 034076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4657	034076	312 02 0 00 034433 		CAME	2,[654321,,76543]	;PASS IF C(E) UNCHANGED
  4658						STOP^
  4659	034077	254 04 0 00 034100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4660	034100	324 00 0 00 034101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4661
  4662					;**********
  4663
  4664					;THIS TEST VERIFIES THAT TDOE SKIPS THE NEXT SEQUENTAIL INSTRUCTION
  4665					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4666					;C(E) ARE ZERO.  THESE MASKED
  4667					;AC BITS ARE THEN CHANGED TO ONES
  4668					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=754321,,076543
  4669					;HENCE, TDOE SHOULD NOT SKIP AND THE RESULT IN AC
  4670					;SHOULD BE -1,,-1 C(E) IS NOT AFFECTD
  4671
  4672	034101	200 00 0 00 034414 	C75510:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4673	034102	200 01 0 00 034434 		MOVE	1,[754321,,76543]	;PRELOAD E WITH 754321,,076543
  4674	034103	672 00 0 00 000001 		TDOE	0,1			;*TDOE SHOULD NOT SKIP AND
  4675										;PLACE -1,,-1 INTO THE AC
  4676	034104	334 00 0 00 000000 		SKIPA				;PASS IF TDOE DOES NOT SKIP
  4677						STOP^
  4678	034105	254 04 0 00 034106 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4679	034106	324 00 0 00 034107 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4680	034107	312 00 0 00 034301 		CAME	0,[-1]			;PASS IF C(AC)=-1,,-1
  4681						STOP^
  4682	034110	254 04 0 00 034111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4683	034111	324 00 0 00 034112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4684	034112	312 01 0 00 034434 		CAME	1,[754321,,76543]	;PASS IF C(E) UNCHANGED
  4685						STOP^
  4686	034113	254 04 0 00 034114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4687	034114	324 00 0 00 034115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4688
  4689					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 98
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0125

  4690					;THIS TEST VERIFIES THAT TSOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4691					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4692					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  4693					;AC BITS ARE THEN CHANGED TO ONES.
  4694					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  4695					;HENCE, TSOE SHOULD SKIP AND THE RESULT IN AC
  4696					;SHOULD BE -1,,-1.  C(E) IS NOT AFFECTED
  4697
  4698	034115	200 17 0 00 034414 	C75600:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4699	034116	200 00 0 00 034424 		MOVE	0,[76543,,654321]	;PRELOAD E WITH 076543,,654321
  4700	034117	673 17 0 00 000000 		TSOE	17,0			;*TSOE SHOULD SKIP AND
  4701										;PLACE -1,,-1 INTO THE AC
  4702						STOP^
  4703	034120	254 04 0 00 034121 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4704	034121	324 00 0 00 034122 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4705	034122	312 17 0 00 034301 		CAME	17,[-1]			;PASS IF C(AC)=-1,,-1
  4706						STOP^
  4707	034123	254 04 0 00 034124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4708	034124	324 00 0 00 034125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4709	034125	312 00 0 00 034424 		CAME	0,[76543,,654321]	;PASS IF C(E) UNCHANGED
  4710						STOP^
  4711	034126	254 04 0 00 034127 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4712	034127	324 00 0 00 034130 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4713
  4714					;**********
  4715
  4716					;THIS TEST VERIFIES THAT TSOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4717					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4718					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  4719					;AC BITS ARE THEN  CHANGED TO ONES.
  4720					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,657321
  4721					;HENCE, TSOE SHOULD NOT SKIP AND THE RESULT IN THE AC
  4722					;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED.
  4723
  4724	034130	200 16 0 00 034414 	C75610:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,701234
  4725	034131	200 17 0 00 034436 		MOVE	17,[76543,,657321]	;PRELOAD E WITH 076543,,657321
  4726	034132	673 16 0 00 000017 		TSOE	16,17			;*TSOE SHOULD NOT SKIP AND
  4727										;*TSOE SHOULD NOT SKIP AND
  4728										;PLACE -1,,-1 INTO THE AC
  4729	034133	334 00 0 00 000000 		SKIPA				;PASS IF SKIP
  4730						STOP^
  4731	034134	254 04 0 00 034135 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4732	034135	324 00 0 00 034136 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4733	034136	312 16 0 00 034301 		CAME	16,[-1]			;PASS IF C(AC)=-1,,-1
  4734						STOP^
  4735	034137	254 04 0 00 034140 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4736	034140	324 00 0 00 034141 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4737	034141	312 17 0 00 034436 		CAME	17,[76543,,657321]	;PASS IF C(E) UNCHANGED
  4738						STOP^
  4739	034142	254 04 0 00 034143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4740	034143	324 00 0 00 034144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4741
  4742					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 99
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0126

  4743					;THIS TEST VERIFIES THAT TDOA PLACES ONES INTO ALL BITS OF THE AC WHICH
  4744					;CORRRESPOND TO 1'S IN C(E) AND ALWAYS
  4745					;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
  4746					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)= 654321,,076543
  4747					;HENCE, TDOA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1
  4748
  4749	034144	200 15 0 00 034414 	C75700:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4750	034145	200 16 0 00 034433 		MOVE	16,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  4751	034146	674 15 0 00 000016 		TDOA	15,16			;*TDOA SHOULD SKIP AND
  4752										;PLACE -1,,-1 INTO THE AC
  4753						STOP^
  4754	034147	254 04 0 00 034150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4755	034150	324 00 0 00 034151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4756	034151	312 15 0 00 034301 		CAME	15,[-1]			;PASS IF C(AC)=-1,,-1
  4757						STOP^
  4758	034152	254 04 0 00 034153 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4759	034153	324 00 0 00 034154 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4760	034154	312 16 0 00 034433 		CAME	16,[654321,,076543]	;PASS IF C(E) UNCHANGED
  4761						STOP^
  4762	034155	254 04 0 00 034156 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4763	034156	324 00 0 00 034157 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4764
  4765					;**********
  4766
  4767					;THIS TEST VERIFIES THAT TDOA PLACE ONES ALL BIT OF THE AC WHICH
  4768					;CORRESPOND TO 1'S IN C(E) AND ALWAYS
  4769					;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
  4770					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
  4771					;HENCE, TDOA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 373577,,707274
  4772
  4773	034157	200 14 0 00 034414 	C75710:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4774	034160	200 15 0 00 034431 		MOVE	15,[252525,,707070]	;PRELOAD E WITH 252525,,707070
  4775	034161	674 14 0 00 000015 		TDOA	14,15			;*TDOA SHOULD SKIP AND
  4776										;PLACE 373577,707274 ONTO THE AC
  4777						STOP^
  4778	034162	254 04 0 00 034163 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4779	034163	324 00 0 00 034164 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4780	034164	312 14 0 00 034464 		CAME	14,[373577,,707274]	;PASS IF C(AC)=373577,,707274
  4781						STOP^
  4782	034165	254 04 0 00 034166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4783	034166	324 00 0 00 034167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4784	034167	312 15 0 00 034431 		CAME	15,[252525,,707070]	;PASS IF C(E) UNCHANGED
  4785						STOP^
  4786	034170	254 04 0 00 034171 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4787	034171	324 00 0 00 034172 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4788
  4789					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 100
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0127

  4790					;THIS TEST VERIFIES THAT TSOA PLACE ONES INTO ALL BITS OF THE AC WHICH
  4791					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
  4792					;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  4793					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  4794					;HENCE, TSOA SHOULD SLAWAYS SKIP AND C(AC) SHOULD BE -1,,-1
  4795
  4796	034172	200 13 0 00 034414 	C76000:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4797	034173	200 14 0 00 034465 		MOVE	14,[176543,,654321]	;PRELOAD E WITH 076543,,654321
  4798	034174	675 13 0 00 000014 		TSOA	13,14			;*TSOA SHOULD SKIP AND
  4799										;PLACE -1,,-1 ONTO THE AC
  4800						STOP^
  4801	034175	254 04 0 00 034176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4802	034176	324 00 0 00 034177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4803	034177	312 13 0 00 034301 		CAME	13,[-1]			;PASS IF C(AC)=-1,,-1
  4804						STOP^
  4805	034200	254 04 0 00 034201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4806	034201	324 00 0 00 034202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4807	034202	312 14 0 00 034465 		CAME	14,[176543,,654321]	;PASS IF C(E) UNCHANGED
  4808						STOP^
  4809	034203	254 04 0 00 034204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4810	034204	324 00 0 00 034205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4811
  4812					;**********
  4813
  4814					;THIS TEST VERIFIES THAT TSOA PLACES ONES INTO ALL BITS OF THE AC WHICH
  4815					;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
  4816					;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
  4817					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456
  4818					;HENCE, TSOA SHOULD SLWAYS SKIP AND C(AC) SHOULD BE 123456,,701234
  4819
  4820	034205	200 12 0 00 034414 	C76010:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4821	034206	200 13 0 00 034441 		MOVE	13,[701234,,123456]	;PRELOAD E WITH 701234,123456
  4822	034207	675 12 0 00 000013 		TSOA	12,13			;*TSOA SHOULD SKIP AND
  4823										;PLACE 123456,,701234 INTO THE AC
  4824						STOP^
  4825	034210	254 04 0 00 034211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4826	034211	324 00 0 00 034212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4827	034212	312 12 0 00 034414 		CAME	12,[123456,,701234]	;PASS IF C(AC)=123456,,701234
  4828						STOP^
  4829	034213	254 04 0 00 034214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4830	034214	324 00 0 00 034215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4831	034215	312 13 0 00 034441 		CAME	13,[701234,,123456]	;PASS IF C(E) UNCHANGED
  4832						STOP^
  4833	034216	254 04 0 00 034217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4834	034217	324 00 0 00 034220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4835
  4836					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 101
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0128

  4837					;THIS TEST VERIFIES THAT TDON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4838					;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4839					;C(E) ARE ZERO.  THESE MASKED
  4840					;AC BITS ARE THEN CHANGED TO ONES
  4841					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547
  4842					;HENCE, TDON SHOULD SKIP AND THE RESULT IN AC
  4843					;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED
  4844
  4845	034220	200 11 0 00 034414 	C76100:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4846	034221	200 12 0 00 034442 		MOVE	12,[654321,,076547]	;PRELOAD E WITH 654321,,076547
  4847	034222	676 11 0 00 000012 		TDON	11,12			;*TDON SHOULD SKIP AND
  4848										;PLACE -1,,-1 INTO THE AC
  4849						STOP^
  4850	034223	254 04 0 00 034224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4851	034224	324 00 0 00 034225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4852	034225	312 11 0 00 034301 		CAME	11,[-1]			;PASS IF C(AC)=-1,,-1
  4853						STOP^
  4854	034226	254 04 0 00 034227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4855	034227	324 00 0 00 034230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4856	034230	312 12 0 00 034442 		CAME	12,[654321,,076547]	;PASS IF C(E) UNCHANGED
  4857						STOP^
  4858	034231	254 04 0 00 034232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4859	034232	324 00 0 00 034233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4860
  4861					;**********
  4862
  4863					;THIS TEST VERIFIES THAT TDON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4864					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4865					;C(E) ARE ZERO.  THESE MASKED
  4866					;AC BITS ARE THEN CHANGED TO ONES.
  4867					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
  4868					;THENC, TDON SHOULD NOT SKIP AND THE RESULT IN TH AC
  4869					;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED
  4870
  4871	034233	200 10 0 00 034414 	C76110:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4872	034234	200 11 0 00 034433 		MOVE	11,[654321,,076543]	;PRELOAD E WITH 654321,,076543
  4873	034235	676 10 0 00 000011 		TDON	10,11			;*TDON SHOULD NOT SKIP AND
  4874										;PLACE -1,,-1 INTO THE AC
  4875	034236	334 00 0 00 000000 		SKIPA				;PASS IF TDON DOES NOT SKIP
  4876						STOP	^
  4877	034237	254 04 0 00 034240 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4878	034240	324 00 0 00 034241 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4879	034241	312 10 0 00 034301 		CAME	10,[-1]			;PASS IF C(AC)=-1,,-1
  4880						STOP^
  4881	034242	254 04 0 00 034243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4882	034243	324 00 0 00 034244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4883	034244	312 11 0 00 034433 		CAME	11,[654321,,076543]	;PASS IF C(E) UNCHANGED
  4884						STOP^
  4885	034245	254 04 0 00 034246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4886	034246	324 00 0 00 034247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4887
  4888					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 102
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0129

  4889					;THIS TEST VERIFIES THAT TSON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4890					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4891					;C(E) WITH BOTH HALVE SWAPPED ARE ZERO.  THESE MASKED
  4892					;AC BITS ARE THEN CHANGED TO ONES
  4893					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321
  4894					;HENCE, TSON SHOULD SKIP AND THE RESULT IN AC
  4895					;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED
  4896
  4897	034247	200 07 0 00 034414 	C76200:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4898	034250	200 10 0 00 034444 		MOVE	10,[77543,,654321]	;PRELOAD E WITH 077543,,654321]
  4899	034251	677 07 0 00 000010 		TSON	7,10			;*TSON HOULD SKIP AND
  4900										;PLACE -1,,-1 INTO THE AC
  4901						STOP^
  4902	034252	254 04 0 00 034253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4903	034253	324 00 0 00 034254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4904	034254	312 07 0 00 034301 		CAME	7,[-1]			;PASS IF C(AC)=-1,,-1
  4905						STOP^
  4906	034255	254 04 0 00 034256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4907	034256	324 00 0 00 034257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4908	034257	312 10 0 00 034444 		CAME	10,[77543,,654321]	;PASS IF C(E) UNCHANGED
  4909						STOP^
  4910	034260	254 04 0 00 034261 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4911	034261	324 00 0 00 034262 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4912
  4913					;**********
  4914
  4915					;THIS TEST VERIFIES THAT TSON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
  4916					;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
  4917					;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
  4918					;AC BITS ARE THEN CHANGED TO ONES.
  4919					;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
  4920					;HENCE, TSON SHOULD NOT SKIP AND THE RESULT IN AC
  4921					;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED
  4922
  4923	034262	200 06 0 00 034414 	C76210:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
  4924	034263	200 07 0 00 034424 		MOVE	7,[76543,,654321]	;PRELOAD E WITH 076543MM654321
  4925	034264	677 06 0 00 000007 		TSON	6,7			;*TSON SHOULD NOT SKIP AND
  4926										;PLACE -1,,-1 INTO THE AC
  4927	034265	334 00 0 00 000000 		SKIPA				;PASS IF TSON DOES NOT SKIP
  4928						STOP^
  4929	034266	254 04 0 00 034267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4930	034267	324 00 0 00 034270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4931	034270	312 06 0 00 034301 		CAME	6,[-1]			;PASS IF C(AC)-=1,,-1
  4932						STOP^
  4933	034271	254 04 0 00 034272 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4934	034272	324 00 0 00 034273 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4935	034273	312 07 0 00 034424 		CAME	7,[76543,,654321]	;PASS IF C(E) UNCHANGED
  4936						STOP^
  4937	034274	254 04 0 00 034275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4938	034275	324 00 0 00 034276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4939
  4940					;**********
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 103
DBKAFM	MAC	30-APR-76 16:54		TEST OF MSCL LOGICAL TEST INSTRUCTIONS                                             SEQ 0130

  4941	034276	254 00 0 00 030057 		JRST	BEGEND
  4942					SUBTTL	*STOR* RESERVED STORAGE, JAN 5,1976
  4943
  4944					;PROGRAM LITERALS
  4945
  4946						XLIST
  4947					IFNDEF	$LPAPER,<LIST>
  4948	034277					LIT
  4949	034277	000001	000001
  4950	034300	254 00 0 00 030741 
  4951	034301	777777	777777
  4952	034302	777000	707070
  4953	034303	777000	000777
  4954	034304	123456	123456
  4955	034305	123000	000456
  4956	034306	121212	000000
  4957	034307	777350	777776
  4958	034310	000767	777777
  4959	034311	777010	000000
  4960	034312	000777	770077
  4961	034313	123456	246123
  4962	034314	123000	006100
  4963	034315	000100	777600
  4964	034316	123456	246135
  4965	034317	123456	040104
  4966	034320	123321	456654
  4967	034321	770077	007770
  4968	034322	003300	450004
  4969	034323	123456	663322
  4970	034324	777000	700770
  4971	034325	000456	063002
  4972	034326	123456	777776
  4973	034327	010203	123450
  4974	034330	123456	000000
  4975	034331	000777	123456
  4976	034332	000777	517067
  4977	034333	707077	555666
  4978	034334	123456	765432
  4979	034335	624421	230254
  4980	034336	707070	123456
  4981	034337	707070	767577
  4982	034340	123456	777666
  4983	034341	777001	123470
  4984	034342	777457	777676
  4985	034343	777000	123456
  4986	034344	000777	050321
  4987	034345	777007	771100
  4988	034346	063202	123477
  4989	034347	000570	004200
  4990	034350	707070	123426
  4991	034351	070707	777032
  4992	034352	123456	123457
  4993	034353	707633	121212
  4994	034354	153512	775132
  4995	034355	000777	654321
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 1
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0131

  4996	034356	654321	012345
  4997	034357	777000	123477
  4998	034360	000777	775701
  4999	034361	707070	707072
  5000	034362	707777	757372
  5001	034363	777777	070707
  5002	034364	777777	133777
  5003	034365	707070	070706
  5004	034366	777777	707777
  5005	034367	123456	770077
  5006	034370	777001	123324
  5007	034371	654777	657753
  5008	034372	123456	707070
  5009	034373	707070	707070
  5010	034374	123456	123422
  5011	034375	707070	717171
  5012	034376	123422	000000
  5013	034377	123456	707076
  5014	034400	707076	000000
  5015	034401	123456	777777
  5016	034402	123456	135724
  5017	034403	765432	246135
  5018	034404	246135	777777
  5019	034405	123123	456765
  5020	034406	456765	777777
  5021	034407	000000	000000
  5022	034410	707076	777777
  5023	034411	765432	777777
  5024	034412	365432	123456
  5025	034413	365432	000000
  5026	034414	123456	701234
  5027	034415	123123	246135
  5028	034416	123123	123123
  5029	034417	777777	701234
  5030	034420	765432	107654
  5031	034421	777777	765432
  5032	034422	777777	000000
  5033	034423	777777	123456
  5034	034424	076543	654321
  5035	034425	076543	654323
  5036	034426	076547	654321
  5037	034427	123456	701034
  5038	034430	123454	701234
  5039	034431	252525	707070
  5040	034432	020406	501210
  5041	034433	654321	076543
  5042	034434	754321	076543
  5043	034435	023456	701234
  5044	034436	076543	657321
  5045	034437	120456	701234
  5046	034440	121052	000204
  5047	034441	701234	123456
  5048	034442	654321	076547
  5049	034443	123456	701230
  5050	034444	077543	654321
DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER	MACRO %50A(432) 15:35  4-AUG-76 PAGE 1-1
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0132

  5051	034445	123456	700234
  5052	034446	123456	701237
  5053	034447	123456	701134
  5054	034450	123756	701234
  5055	034451	123455	701234
  5056	034452	624426	553711
  5057	034453	677777	777777
  5058	034454	774777	777777
  5059	034455	371173	006244
  5060	034456	777777	777773
  5061	034457	777777	776777
  5062	034460	123456	701334
  5063	034461	123456	070234
  5064	034462	123457	070234
  5065	034463	123457	701234
  5066	034464	373577	707274
  5067	034465	176543	654321
  5068						LIST
  5069	034466	000000	000000		ENDSLD:	0
  5070
  5071					IFDEF	DEBUG,<
  5072	034467				PATCH:	BLOCK DEBUG		;PATCHING AREA
  5073					>
  5074
  5075					;PROGRAM VARIABLES
  5076	034567					VAR
  5077
  5078					IFDEF	PGMEND,<
  5079	034567	000000	000000		END:	0
  5080			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 034570
CPU TIME USED 00:18.274

6K CORE USED

ABORT	   107#
AC0	   702#                                                                                                            SEQ 0133
ALTMGO	   461#
ANXM	   375#
APR	   799	   800	   801
AROV	    68#	   375#
AROVU	   375#
AST	   576#
ATSIN	   577#
BEGEND	   457#	  4941
BEGIN	   321	   322	   388#	   745	   867	  5080
BEGIN1	   404#	   458
BELL	   580#
BIS	    72#	   375#
C56100	   905#
C56200	   923#
C56300	   940#
C56400	   957#
C56500	   973#
C56600	   991#
C56700	  1005#
C56701	  1025#
C57000	  1048#
C57001	  1067#
C57100	  1090#
C57200	  1105#
C57300	  1124#
C57400	  1143#
C57500	  1155#
C57600	  1173#
C57700	  1191#
C60000	  1206#
C60100	  1224#
C60200	  1244#
C60300	  1261#
C60400	  1274#
C60500	  1292#
C60600	  1306#
C60700	  1325#
C61000	  1339#
C61100	  1358#
C61200	  1378#
C61300	  1392#
C61400	  1412#
C61500	  1431#
C61600	  1446#
C61700	  1464#
C62000	  1484#
C62100	  1498#
C62200	  1518#
C62300	  1537#
C62400	  1552#
C62500	  1571#
C62600	  1591#
C62700	  1605#                                                                                                            SEQ 0134
C63000	  1625#
C63100	  1644#
C63200	  1659#
C63300	  1678#
C63400	  1698#
C63500	  1711#
C63600	  1730#
C63700	  1752#
C64000	  1767#
C64010	  1786#
C64100	  1807#
C64110	  1828#
C64200	  1848#
C64300	  1868#
C64310	  1890#
C64400	  1909#
C64500	  1930#
C64510	  1951#
C64600	  1971#
C64700	  1988#
C65000	  2006#
C65100	  2018#
C65200	  2041#
C65210	  2062#
C65300	  2082#
C65400	  2102#
C65410	  2124#
C65500	  2143#
C65600	  2164#
C65610	  2185#
C65700	  2205#
C66000	  2225#
C66010	  2248#
C66100	  2269#
C66110	  2290#
C66200	  2308#
C66300	  2322#
C66301	  2340#
C66400	  2365#
C66410	  2386#
C66411	  2407#
C66500	  2430#
C66600	  2452#
C66610	  2472#
C66700	  2491#
C67000	  2508#
C67100	  2522#
C67200	  2542#
C67210	  2564#
C67300	  2585#
C67310	  2607#
C67400	  2628#
C67410	  2650#                                                                                                            SEQ 0135
C67500	  2674#
C67510	  2692#
C67600	  2710#
C67610	  2728#
C67700	  2745#
C67710	  2762#
C70000	  2778#
C70010	  2795#
C70100	  2811#
C70110	  2828#
C70200	  2845#
C70210	  2862#
C70300	  2881#
C70310	  2905#
C70400	  2928#
C70410	  2951#
C70500	  2970#
C70510	  2994#
C70600	  3016#
C70610	  3035#
C70700	  3053#
C70710	  3072#
C71000	  3092#
C71010	  3112#
C71100	  3132#
C71110	  3152#
C71200	  3171#
C71210	  3190#
C71300	  3208#
C71310	  3227#
C71400	  3246#
C71410	  3266#
C71500	  3286#
C71510	  3306#
C71600	  3325#
C71610	  3350#
C71700	  3376#
C71710	  3402#
C72000	  3428#
C72010	  3454#
C72100	  3479#
C72110	  3507#
C72200	  3530#
C72210	  3554#
C72300	  3579#
C72310	  3605#
C72400	  3631#
C72410	  3657#
C72500	  3680#
C72510	  3699#
C72600	  3717#
C72610	  3736#
C72700	  3756#                                                                                                            SEQ 0136
C72710	  3776#
C73000	  3796#
C73010	  3816#
C73100	  3835#
C73110	  3854#
C73200	  3872#
C73210	  3891#
C73300	  3910#
C73310	  3930#
C73400	  3950#
C73410	  3970#
C73500	  3989#
C73510	  4014#
C73600	  4040#
C73610	  4066#
C73700	  4092#
C73710	  4114#
C74000	  4138#
C74100	  4162#
C74200	  4185#
C74210	  4209#
C74300	  4234#
C74310	  4260#
C74400	  4286#
C74410	  4312#
C74500	  4335#
C74510	  4354#
C74600	  4372#
C74610	  4391#
C74700	  4411#
C74710	  4431#
C75000	  4451#
C75010	  4471#
C75100	  4490#
C75110	  4509#
C75200	  4527#
C75210	  4546#
C75300	  4565#
C75310	  4585#
C75400	  4605#
C75410	  4625#
C75500	  4646#
C75510	  4672#
C75600	  4698#
C75610	  4724#
C75700	  4749#
C75710	  4773#
C76000	  4796#
C76010	  4820#
C76100	  4845#
C76110	  4871#
C76200	  4897#
C76210	  4923#                                                                                                            SEQ 0137
CCA	   375#
CHAIN	   127#
CHNOFF	   375#
CHNON	   375#
CLK	   375#
CLKCLR	   375#
CLKDIS	   375#
CLKENB	   375#
CLKU	   375#
CLOCKF	   443#
CNTLC	   460#
COMMA	   569#
CONSW	   444#
CPOPJ	   464#
CPOPJ1	   462#
CRLF	   256	   257	   564#
CRLF2	   260	   261	   566#
CRY0	    69#	   375#
CRY1	    70#	   375#
CSHFLG	   623#
CSHMEM	   624#
CYCL60	   617#
DCK	    76#	   375#
DDT	   704#
DDTLNK	   141#	   402
DDTSRT	   402#
DEBUG	    30#	  5071	  5072
DECVER	    13#	    13	    14	   423
DF22F	   528#
DIAGMN	   391#
DIAGNO	   703#
DIAMON	   705#
DING	   113#
DOLLAR	   583#
DONG11	   706#	   846	   862
DSKUPD	   428
DTE	   710#	   846	   848	   862	   864
DTE0	   711#
DTE1	   712#
DTE2	   713#
DTE3	   714#
E56701	  1026	  1028	  1033	  1040#
E57001	  1069	  1070	  1075	  1082#
E66301	  2342	  2343	  2348	  2355#
E66411	  2409	  2410	  2416	  2423#
END	  5079#
ENDFIX	   697#
ENDSLD	  5069#
ERMORE	   477#
ERRPC	   448#
ERRTLS	   449#
ERSTOP	   116#
EXCASB	    27#	   426                                                                                                     SEQ 0138
EXIOT	    74#	   375#
FOV	    71#	   375#
FOVU	   375#
FRDLNK	   139#
FSELNK	   138#
FXU	    75#	   375#
HYPEN	   574#
INHCSH	   124#
INHPAG	   121#
INXM	   375#
IOCLR	   375#
ITERAT	    59#	   421
ITRCH1	   481#
ITRCNT	   421#	   791	   820	   824	   832	   833	   837
JOB41	   375#
JOBAPR	   375#
JOBCNI	   375#
JOBDDT	   375#
JOBFF	   375#
JOBOPC	   375#
JOBREL	   375#
JOBREN	   375#
JOBSA	   375#
JOBSYM	   375#
JOBTPC	   375#
JOBUSY	   375#
JOBUUO	   375#
JOBVER	   375#
KA10	   375
KAHZ50	   129#
KAIFLG	   438#
KI10	   375
KL10	   375
KLFLG	   439#	   793	   811	   830
KLOLD	   336
KLTYP	   655#	   792	   803	   845	   847	   861	   863
LDLNK	   140#	   391	   393
LFP	   578#
LOOPER	   115#
LUUO	   375#
LUUO1	   508	   509
LUUO10	   508	   513
LUUO11	   508	   513
LUUO12	   508	   514
LUUO13	   508	   514
LUUO14	   508	   515
LUUO15	   508	   515
LUUO16	   508	   516
LUUO17	   508	   516
LUUO2	   508	   510
LUUO20	   508	   517
LUUO21	   508	   517
LUUO22	   508	   518                                                                                                     SEQ 0139
LUUO23	   508	   518
LUUO24	   508	   519
LUUO25	   508	   519
LUUO26	   508	   520
LUUO27	   508	   520
LUUO3	   508	   510
LUUO30	   508	   521
LUUO31	   508	   521
LUUO32	   508	   522
LUUO33	   508	   522
LUUO4	   508	   511
LUUO5	   508	   511
LUUO6	   508	   512
LUUO7	   508	   512
LUUOI	   375#
MAPNEW	   529#
MARGIN	   451#
MCNVER	    13#	    13	    14	   423
MEMLOW	   531#
MEMMAP	   429
MEMSIZ	   532#
MEMTOT	   530#
MINUS	   573#
MODDVC	   123#
MODDVL	   321	   321#	   424
MODDVU	   322	   322#	   425
MODLNK	   142#	   388
MONCTL	   441#	   840	   878
MONFLG	   440#	   785	   874
MONTEN	   442#	   790	   826	   855
MPVU	   375#
NOPNT	   111#
NXMU	   375#
OPRSEL	   125#
OPTIME	   543#
P	   168	   169	   170	   171	   375#	   463
PAG	   375#
PALERS	   117#
PARCLR	   375#
PARDIS	   375#
PAREA0	    52#
PAREA1	    53#	   419
PAREA2	    54#	   420
PAREA3	    55#	   417
PAREA4	    56#	   418
PAREA5	    57#	   430
PAREA6	    58#	   431
PAREA7	   430#
PAREA8	   431#
PARENB	   375#
PARU	   375#
PASCNT	   445#	   819
PATCH	  5072#                                                                                                            SEQ 0140
PDISF	   540#
PDLOVU	   375#
PERIOD	   570#
PFSTRT	   397#
PGMEND	    29#	    60#	  5078
PGMNAM	   422	   879	   882#
PI	   832
PICHN1	   375#
PICHN2	   375#
PICHN3	   375#
PICHN4	   375#
PICHN5	   375#
PICHN6	   375#
PICHN7	   375#
PICHNA	   375#
PICLR	   375#
PIOFF	   375#
PION	   375#
PLIST	   609#	   609
PLISTE	   609	   611#	   695
PLISTS	   610#
PLUS	   575#
PNTENB	   539#
PNTEXT	   418#
PNTFLG	   538#
PNTINH	   541#
PNTLPT	   112#
PNTNAM	   417#
PNTSPC	   542#
PVPAGI	   636#
PWFCLR	   375#
QUEST	   581#
RADIX	   584#
RADLSC	   586#
RADLSP	   585#
RANDBS	   419#
REENTR	   399#
RELIAB	   119#
REPT	   375#
REPT1	   375#
REPTU	   497#
REQSET	   375#
RESRT1	   474#
RESRT2	   475#
RETURN	   406#	   828	   835	   856
RSTART	   108#
RTP	   579#
RUNFLG	   446#
SADR1	    40#	   395
SADR10	    49#	   411
SADR11	    50#	   412
SADR2	    41#	   397
SADR3	    42#	   399                                                                                                     SEQ 0141
SADR4	    43#
SADR5	    44#	   460
SADR6	    45#	   461
SADR7	    46#	   408
SADR8	    47#	   409
SADR9	    48#	   410
SBINIT	   181	   405#
SCOPE	   498#
SFSTRT	   395#
SLASH	   582#
SPACE	   571#
SRTDDT	   401#
START	    40	    41	    42	    43	    44	    45	    46	    47	    48	    49	    50	   389	   788	   797
	   812	   816	   870#
START1	   408#
START2	   409#
START3	   410#
START4	   411#
START5	   412#
STARTA	   404	   814	   825	   834	   841	   851	   877	   880	   896#
SUBLNK	   143#	   405
SWTEXR	   420#
SYSEXR	   393#
TAB	   572#
TESTPC	   447#
TICKS	   450#
TOTALS	   109#
TTNBRF	   630#
TTYFIL	   546#
TTYSPD	   547#
TXTINH	   120#
USER	   437#	   781	   784	   786	   787	   821	   870#	   870	   873	   875	   876
USERF	    33#	    73#	   375#	   783	   872
USRASB	    28#	   427
USRCRF	   556#
USRLFF	   555#
UUODIS	   509#
UUOEXT	   465#
UUORTN	   466#
UUOSKP	   463#
$$420	   755#
$$421	   756#
$$422	   757#
$$423	   758#
$$424	   759#
$$425	   760#
$$426	   761#
$$427	   762#
$$430	   763#
$$431	   764#
$$432	   765#
$$433	   766#
$$434	   767#                                                                                                            SEQ 0142
$$435	   768#
$$436	   769#
$$437	   770#
$$500	   773#
$$501	   774#
$$502	   775#
$$503	   776#
$$BEGI	   741#
$$DTE0	   807	   846#
$$DTE1	   808	   848#
$$DTE2	   809	   862#
$$DTE3	   810	   864#
$$LOC	   738#	   777
$$MUUO	   661#
$$OUTE	   667#
$$STAR	   741	   742	   781#
$$TAX1	   679#
$$TAX2	   680#
$$TOGG	   673#
$$UUO	   650#
$ACC0	   488#
$BEGEN	   750#
$BEND1	   458#
$BEND2	   459#
$CHRIN	   549#
$CRLF	   551#
$DDT	   719#
$DEVCH	   375#
$DSKUP	   428#
$DTCHR	   731#
$DTCI	   725#
$DTCLK	   724#	   805
$DTCMD	   728#	   843	   859
$DTF11	   727#
$DTFLG	   723#	   804	   844	   849	   860	   865
$DTMTD	   732#
$DTMTI	   733#
$DTOPR	   730#	   806
$DTSEQ	   729#
$DTSWR	   735#
$DTT11	   726#
$DVCH1	   375#
$DVOFF	   545#
$EMODE	   426#
$ENDFX	   695#	   696
$FFF	   553#
$IBUF	   601#
$INEXT	   603#
$INNM	   602#
$ITRHL	   469#
$ITRX1	   470#
$LPAPE	  4947
$MMAP	   429#                                                                                                            SEQ 0143
$MODVL	   424#
$MODVU	   425#
$OBUF	   592#
$ONETM	   452#
$OUTEX	   594#
$OUTNM	   593#
$PAPER	   375
$PARER	   476#
$PNAME	   422#
$PSHER	   480#
$PVER	   423#
$RSRTX	   472#
$RSRTY	   473#
$SPAG1	   492#
$SPB1	   815	   821#
$SPBEN	   750	   819#
$SPBEX	   822	   830#
$SPBKL	   831	   837#
$SPBUS	   824#
$SPEC	   747	   814#
$SPKLD	   838	   855#
$START	   389#
$STD	   718#	   745#
$STKIL	   790#
$STKL	   799#
$STL	   720#
$STM	   721#	   747#
$SVAPR	   490#
$SVPAG	   491#
$SVPI	   489#
$SVUPC	   495#
$SVUUO	   494#
$TABF	   552#
$TTCHR	   548#
$TWCNT	   544#
$TYPNB	   550#
$UMODE	   427#
$UORTX	   467#
$USRHL	   471#
$UUOER	   468#	   509
$VTF	   554#
%ACTFL	   501#
%ACTUL	   502#
%COREC	   500#
%CORFL	   499#
%DISCR	   503#
%ERHI1	   642#
%ERHI2	   643#
%ERHI3	   644#
.JB41	   375#
.JBAPR	   375#
.JBCNI	   375#
.JBDDT	   375#                                                                                                            SEQ 0144
.JBFF	   375#
.JBOPC	   375#
.JBREL	   375#
.JBREN	   375#
.JBSA	   375#
.JBSYM	   375#
.JBTPC	   375#
.JBUSY	   375#
.JBUUO	   375#
.JBVER	   375#

CFLUSH	   292#
CINVAL	   291#                                                                                                            SEQ 0145
CLOKOP	   286#
CWRTBI	   293#
DROPDV	   253#
ENDUUO	   299#	   457
EOPUUO	   300#	   459
ERLOOP	   344#
ERLP1	   345#
ERLP2	   346#
ERRHLT	   188#
ERROR	   353#
ERROR1	   365#
ERUUO	   343#
EXIT	   827
FATAL	   187#
FRD36	   328#
FRD8	   329#
FREAD	   327#
FSELEC	   326#
GET	   171#
GO	   168#
HALT	   173#	   478	   755	   757	   758	   762	   776	   867	   910	   914	   928	   932	   944	   948
	   961	   965	   977	   981	   995	  1010	  1014	  1031	  1036	  1053	  1057	  1073	  1078	  1094
	  1111	  1115	  1130	  1134	  1147	  1160	  1164	  1178	  1182	  1196	  1211	  1215	  1230	  1234
	  1249	  1253	  1265	  1279	  1283	  1296	  1312	  1316	  1329	  1345	  1349	  1364	  1368	  1383
	  1398	  1402	  1418	  1422	  1436	  1451	  1455	  1470	  1474	  1489	  1504	  1508	  1524	  1528
	  1542	  1558	  1562	  1577	  1581	  1596	  1611	  1615	  1631	  1635	  1649	  1665	  1669	  1684
	  1688	  1702	  1717	  1721	  1736	  1740	  1756	  1772	  1776	  1791	  1795	  1813	  1817	  1834
	  1838	  1853	  1857	  1873	  1877	  1896	  1900	  1914	  1918	  1936	  1940	  1957	  1961	  1976
	  1980	  1993	  1997	  2010	  2024	  2028	  2047	  2051	  2068	  2072	  2087	  2091	  2108	  2112
	  2130	  2134	  2148	  2152	  2170	  2174	  2191	  2195	  2210	  2214	  2231	  2235	  2254	  2258
	  2274	  2278	  2296	  2300	  2312	  2327	  2331	  2346	  2351	  2370	  2374	  2392	  2396	  2414
	  2419	  2435	  2439	  2457	  2461	  2478	  2482	  2496	  2500	  2512	  2527	  2531	  2548	  2552
	  2570	  2574	  2591	  2595	  2613	  2617	  2634	  2638	  2656	  2660	  2677	  2681	  2696	  2700
	  2713	  2717	  2732	  2736	  2748	  2752	  2765	  2769	  2781	  2785	  2798	  2802	  2814	  2818
	  2832	  2836	  2848	  2852	  2866	  2870	  2885	  2889	  2893	  2910	  2914	  2918	  2932	  2936
	  2940	  2955	  2959	  2974	  2978	  2982	  2999	  3003	  3007	  3021	  3025	  3040	  3044	  3058
	  3062	  3077	  3081	  3096	  3100	  3117	  3121	  3136	  3140	  3157	  3161	  3175	  3179	  3194
	  3198	  3212	  3216	  3231	  3235	  3250	  3254	  3271	  3275	  3290	  3294	  3311	  3315	  3331
	  3335	  3339	  3356	  3360	  3364	  3381	  3385	  3389	  3408	  3412	  3416	  3433	  3437	  3441
	  3460	  3464	  3468	  3484	  3488	  3492	  3496	  3512	  3516	  3520	  3535	  3539	  3543	  3559
	  3563	  3567	  3584	  3588	  3592	  3611	  3615	  3619	  3636	  3640	  3644	  3663	  3667	  3671
	  3685	  3689	  3704	  3708	  3722	  3726	  3741	  3745	  3760	  3764	  3781	  3785	  3800	  3804
	  3821	  3825	  3839	  3843	  3858	  3862	  3876	  3880	  3895	  3899	  3914	  3918	  3935	  3939
	  3954	  3958	  3975	  3979	  3995	  3999	  4003	  4020	  4024	  4028	  4045	  4049	  4053	  4072
	  4076	  4080	  4097	  4101	  4120	  4124	  4128	  4143	  4147	  4151	  4167	  4171	  4175	  4190
	  4194	  4198	  4214	  4218	  4222	  4239	  4243	  4247	  4266	  4270	  4274	  4291	  4295	  4299
	  4318	  4322	  4326	  4340	  4344	  4359	  4363	  4377	  4381	  4396	  4400	  4415	  4419	  4436
	  4440	  4455	  4459	  4476	  4480	  4494	  4498	  4513	  4517	  4531	  4535	  4550	  4554	  4569
	  4573	  4590	  4594	  4609	  4613	  4630	  4634	  4651	  4655	  4659	  4678	  4682	  4686	  4703
	  4707	  4711	  4731	  4735	  4739	  4754	  4758	  4762	  4778	  4782	  4786	  4801	  4805	  4809
	  4825	  4829	  4833	  4850	  4854	  4858	  4877	  4881	  4885	  4902	  4906	  4910	  4929	  4933
	  4937
JEN	   175#                                                                                                            SEQ 0146
JRSTF	   174#
MAPADR	   309#
MAPCNK	   310#
MAPMEM	   306#
MAPPNT	   312#
MAPSET	   311#
MEMSEG	   308#
MEMZRO	   307#
MODPCP	   319#
MODPCU	   318#
MTROP	   287#
NAME	    13#	    14
PBELL	   262#
PCRL	   256#
PCRL2	   260#
PCRL2F	   261#
PCRLF	   257#
PFORCE	   264#
PGMINT	   181#
PJRST	   172#
PMSG	   266#
PMSGF	   269#
PNT1	   222#
PNT11	   236#
PNT11F	   237#
PNT1F	   223#
PNT2	   224#
PNT2F	   225#
PNT3	   226#
PNT3F	   227#
PNT4	   228#
PNT4F	   229#
PNT5	   230#
PNT5F	   231#
PNT6	   232#
PNT6F	   233#
PNT7	   234#
PNT7F	   235#
PNTA	   208#
PNTADF	   239#
PNTADR	   238#
PNTAF	   209#
PNTAL	   210#
PNTALF	   211#
PNTCHF	   221#
PNTCHR	   220#
PNTCI	   218#
PNTCIF	   219#
PNTCW	   254#
PNTCWF	   255#
PNTDCF	   247#
PNTDEC	   246#
PNTDS	   248#                                                                                                            SEQ 0147
PNTDSF	   249#
PNTHW	   242#
PNTHWF	   243#
PNTMGN	   333#
PNTMSF	   215#
PNTMSG	   214#
PNTNM	   250#
PNTOCF	   245#
PNTOCS	   244#
PNTOCT	   240#
PNTOTF	   241#
PNTSIX	   251#
PNTSXF	   252#
PSIXL	   212#
PSIXLF	   213#
PSIXM	   216#
PSIXMF	   217#
PSP	   258#
PSPF	   259#
PUT	   170#
REPTUO	   347#
RTN	   169#	   465
S	    99#	   101	   105	   134	   136	   145	   148	   163	   164	   166	   177	   179	   183	   185
	   190	   194	   339	   341	   375	   380	   386	   413	   415	   433	   435	   453	   455	   484
	   486	   504	   506	   524	   526	   534	   536	   557	   562	   588	   590	   597	   599	   605
	   607	   613	   615	   619	   621	   626	   628	   632	   634	   638	   640	   646	   648	   651
	   653	   657	   659	   663	   665	   669	   671	   675	   677	   682	   687	   691	   693
SFLAG	    93#
SIXBTZ	   275#
STOP	    84#	   909	   913	   927	   931	   943	   947	   960	   964	   976	   980	   994	  1009	  1013
	  1030	  1035	  1052	  1056	  1072	  1077	  1093	  1110	  1114	  1129	  1133	  1146	  1159	  1163
	  1177	  1181	  1195	  1210	  1214	  1229	  1233	  1248	  1252	  1264	  1278	  1282	  1295	  1311
	  1315	  1328	  1344	  1348	  1363	  1367	  1382	  1397	  1401	  1417	  1421	  1435	  1450	  1454
	  1469	  1473	  1488	  1503	  1507	  1523	  1527	  1541	  1557	  1561	  1576	  1580	  1595	  1610
	  1614	  1630	  1634	  1648	  1664	  1668	  1683	  1687	  1701	  1716	  1720	  1735	  1739	  1755
	  1771	  1775	  1790	  1794	  1812	  1816	  1833	  1837	  1852	  1856	  1872	  1876	  1895	  1899
	  1913	  1917	  1935	  1939	  1956	  1960	  1975	  1979	  1992	  1996	  2009	  2023	  2027	  2046
	  2050	  2067	  2071	  2086	  2090	  2107	  2111	  2129	  2133	  2147	  2151	  2169	  2173	  2190
	  2194	  2209	  2213	  2230	  2234	  2253	  2257	  2273	  2277	  2295	  2299	  2311	  2326	  2330
	  2345	  2350	  2369	  2373	  2391	  2395	  2413	  2418	  2434	  2438	  2456	  2460	  2477	  2481
	  2495	  2499	  2511	  2526	  2530	  2547	  2551	  2569	  2573	  2590	  2594	  2612	  2616	  2633
	  2637	  2655	  2659	  2676	  2680	  2695	  2699	  2712	  2716	  2731	  2735	  2747	  2751	  2764
	  2768	  2780	  2784	  2797	  2801	  2813	  2817	  2831	  2835	  2847	  2851	  2865	  2869	  2884
	  2888	  2892	  2909	  2913	  2917	  2931	  2935	  2939	  2954	  2958	  2973	  2977	  2981	  2998
	  3002	  3006	  3020	  3024	  3039	  3043	  3057	  3061	  3076	  3080	  3095	  3099	  3116	  3120
	  3135	  3139	  3156	  3160	  3174	  3178	  3193	  3197	  3211	  3215	  3230	  3234	  3249	  3253
	  3270	  3274	  3289	  3293	  3310	  3314	  3330	  3334	  3338	  3355	  3359	  3363	  3380	  3384
	  3388	  3407	  3411	  3415	  3432	  3436	  3440	  3459	  3463	  3467	  3483	  3487	  3491	  3495
	  3511	  3515	  3519	  3534	  3538	  3542	  3558	  3562	  3566	  3583	  3587	  3591	  3610	  3614
	  3618	  3635	  3639	  3643	  3662	  3666	  3670	  3684	  3688	  3703	  3707	  3721	  3725	  3740
	  3744	  3759	  3763	  3780	  3784	  3799	  3803	  3820	  3824	  3838	  3842	  3857	  3861	  3875
	  3879	  3894	  3898	  3913	  3917	  3934	  3938	  3953	  3957	  3974	  3978	  3994	  3998	  4002
	  4019	  4023	  4027	  4044	  4048	  4052	  4071	  4075	  4079	  4096	  4100	  4119	  4123	  4127     SEQ 0148
	  4142	  4146	  4150	  4166	  4170	  4174	  4189	  4193	  4197	  4213	  4217	  4221	  4238	  4242
	  4246	  4265	  4269	  4273	  4290	  4294	  4298	  4317	  4321	  4325	  4339	  4343	  4358	  4362
	  4376	  4380	  4395	  4399	  4414	  4418	  4435	  4439	  4454	  4458	  4475	  4479	  4493	  4497
	  4512	  4516	  4530	  4534	  4549	  4553	  4568	  4572	  4589	  4593	  4608	  4612	  4629	  4633
	  4650	  4654	  4658	  4677	  4681	  4685	  4702	  4706	  4710	  4730	  4734	  4738	  4753	  4757
	  4761	  4777	  4781	  4785	  4800	  4804	  4808	  4824	  4828	  4832	  4849	  4853	  4857	  4876
	  4880	  4884	  4901	  4905	  4909	  4928	  4932	  4936
SWITCH	   281#
TTALTM	   203#
TTICHR	   196#
TTICNV	   201#
TTIDEC	   200#
TTINO	   198#
TTIOCT	   199#
TTIYES	   197#
TTLOOK	   202#
TTSIXB	   204#
TTYINP	   205#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC                                                         SEQ 0149
DBKAF	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 0150
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 0151
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 200040034277 *            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,034277

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

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030616 030616 030616 316040034277 777777777777 000000030615     000001000001 777777000001 777777777777 0   0   777 
IT1	*      *      034277 *            316040034277 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000034277     *            *            000000000000 0   0   *   
FT6	*      034277 *      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 0153
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 0154
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 *      474040000000 777777777777 254000030742     *            *            0            0   0   *   

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

*030742  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030742 030742 030742 474040000000 254000030742 000000030742     000000030714 254000030742 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                000001000001 *            0            0   0   *   
ET2	*      *      030743 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	030743 030743 *      474100000000 *            777777777777     777777777777 *            0            0   0   *   

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

*030743  SETO 	2,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030743 030743 030743 474100000000 777777777777 777777777777     777777777777 254000030742 0            0   0   777 
IT1	*      *      000000 *            474100000000 *                000000000000 *            0            0   0   *   SEQ 0155
ET2	*      *      030744 *            777777777777 000000000000     0            *            0            0   0   *   
ST1	030744 030744 *      401040000002 *            777777777777     777777777777 *            0            0   0   *   

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

*030744  SETZI	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030744 030744 030744 401040000002 777777777777 777777777777     777777777777 254000030742 0            0   0   777 
IT1	*      *      000002 *            401040000002 *                *            *            0            0   0   *   
ET2	*      *      030745 *            000000000000 000000000002     *            *            0            0   0   *   
ST1	030745 030745 *      332000000001 777777777777 000000000000     000000000000 *            0            0   0   *   

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

*030745  SKIPE	0,000001

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

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

*030747  JUMPA	0,030750

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030747 030747 030747 324000030750 777777777777 0                000000030714 254000030742 0            0   0   777 
IT1	*      *      030750 *            324000030750 0                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030750     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030750 *            000000030750 000000030714     *            000000030750 0            0   0   *   

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

*030750  CAME	2,034301
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0156
IT0	030750 030750 030750 312100034301 777777777777 000000030714     000000030714 000000030750 0            0   0   777 
IT1	*      *      034301 *            312100034301 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      030751 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	030751 *      030752 *            777777777777 *                *            *            0            0   0   *   

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

*030752  JUMPA	0,030753

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030752 030752 030752 324000030753 777777777777 777777777777     777777777777 000000030750 0            0   0   777 
IT1	*      *      030753 *            324000030753 *                000000030714 *            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  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030753 030753 030753 474040000000 777777777777 000000030714     000000030714 000000030753 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                000000000000 *            0            0   0   *   
ET2	*      *      030754 *            777777777777 000000000000     0            *            0            0   0   *   
ST1	030754 030754 *      474100000000 *            777777777777     777777777777 *            0            0   0   *   

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

*030754  SETO 	2,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030754 030754 030754 474100000000 777777777777 777777777777     777777777777 000000030753 0            0   0   777 
IT1	*      *      000000 *            474100000000 *                *            *            0            0   0   *   
ET2	*      *      030755 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	030755 030755 *      402040000002 *            777777777777     *            *            0            0   0   *   

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

*030755  SETZM	1,000002
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0157
IT0	030755 030755 030755 402040000002 777777777777 777777777777     777777777777 000000030753 0            0   0   777 
IT1	*      *      000002 *            402040000002 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 030756 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	030756 030756 *      312040034301 *            0                *            *            0            0   0   *   

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

*030756  CAME	1,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030756 030756 030756 312040034301 777777777777 0                777777777777 000000030753 0            0   0   777 
IT1	*      *      034301 *            312040034301 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      030757 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	030757 *      030760 *            777777777777 *                *            *            0            0   0   *   

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

*030760  JUMPA	0,030761

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

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

*030761  SKIPE	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030761 030761 030761 332000000002 777777777777 000000030714     000000030714 000000030761 0            0   0   777 
IT1	*      *      000002 *            332000000002 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      030762 *            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      *            0            0                *            *            0            0   0   *   
ST1	030762 *      030763 *            777777777777 0                *            *            0            0   0   *   

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

*030763  JUMPA	0,030764

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030763 030763 030763 324000030764 777777777777 0                000000030714 000000030761 0            0   0   777 
IT1	*      *      030764 *            324000030764 0                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030764     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030764 *            000000030764 000000030714     *            000000030764 0            0   0   *   

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

*030764  SETZB	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030764 030764 030764 403040000002 777777777777 000000030714     000000030714 000000030764 0            0   0   777 
IT1	*      *      000002 *            403040000002 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 030765 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                0            *            0            0   0   *   
ST5	030765 030765 *      475040000002 *            0                0            *            0            0   0   *   

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

*030765  SETOI	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030765 030765 030765 475040000002 777777777777 0                0            000000030764 0            0   0   777 
IT1	*      *      000002 *            475040000002 0                0            *            0            0   0   *   
ET2	*      *      030766 *            777777777777 000000000002     0            *            0            0   0   *   
ST1	030766 030766 *      312040034301 *            777777777777     777777777777 *            0            0   0   *   

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

*030766  CAME	1,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030766 030766 030766 312040034301 777777777777 777777777777     777777777777 000000030764 0            0   0   777 
IT1	*      *      034301 *            312040034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      030767 *            000000000000 *                *            *            0            0   0   *   SEQ 0159
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	030767 *      030770 *            777777777777 *                *            *            0            0   0   *   

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

*030770  JUMPA	0,030771

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030770 030770 030770 324000030771 777777777777 777777777777     777777777777 000000030764 0            0   0   777 
IT1	*      *      030771 *            324000030771 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030771     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030771 *            000000030771 000000030714     *            000000030771 0            0   0   *   

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

*030771  SKIPE	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030771 030771 030771 332000000002 777777777777 000000030714     000000030714 000000030771 0            0   0   777 
IT1	*      *      000002 *            332000000002 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      030772 *            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      *            0            0                *            *            0            0   0   *   
ST1	030772 *      030773 *            777777777777 0                *            *            0            0   0   *   

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

*030773  JUMPA	0,030774

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030773 030773 030773 324000030774 777777777777 0                000000030714 000000030771 0            0   0   777 
IT1	*      *      030774 *            324000030774 0                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030774     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030774 *            000000030774 000000030714     *            000000030774 0            0   0   *   

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

*030774  SETZB	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030774 030774 030774 403040000002 777777777777 000000030714     000000030714 000000030774 0            0   0   777 
IT1	*      *      000002 *            403040000002 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   SEQ 0160
FT6	*      000002 030775 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                0            *            0            0   0   *   
ST5	030775 030775 *      476040000002 *            0                0            *            0            0   0   *   

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

*030775  SETOM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030775 030775 030775 476040000002 777777777777 0                0            000000030774 0            0   0   777 
IT1	*      *      000002 *            476040000002 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 030776 *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                0            *            0            0   0   *   
ST5	030776 030776 *      332000000001 *            *                0            *            0            0   0   *   

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

*030776  SKIPE	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030776 030776 030776 332000000001 777777777777 777777777777     0            000000030774 0            0   0   777 
IT1	*      *      000001 *            332000000001 *                000000030714 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      030777 *            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      *            0            0                *            *            0            0   0   *   
ST1	030777 *      031000 *            777777777777 0                *            *            0            0   0   *   

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

*031000  JUMPA	0,031001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031000 031000 031000 324000031001 777777777777 0                000000030714 000000030774 0            0   0   777 
IT1	*      *      031001 *            324000031001 0                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031001     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031001 *            000000031001 000000030714     *            000000031001 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0161
INITIAL
C(AC)=000000 030714 E    =000000 031001 
----------

*031001  CAME	2,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031001 031001 031001 312100034301 777777777777 000000030714     000000030714 000000031001 0            0   0   777 
IT1	*      *      034301 *            312100034301 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031002 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031002 *      031003 *            777777777777 *                *            *            0            0   0   *   

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

*031003  JUMPA	0,031004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031003 031003 031003 324000031004 777777777777 777777777777     777777777777 000000031001 0            0   0   777 
IT1	*      *      031004 *            324000031004 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031004     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031004 *            000000031004 000000030714     *            000000031004 0            0   0   *   

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

*031004  SETZB	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031004 031004 031004 403040000002 777777777777 000000030714     000000030714 000000031004 0            0   0   777 
IT1	*      *      000002 *            403040000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 031005 *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     0            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	031005 031005 *      477040000002 *            0                000000000000 *            0            0   0   *   

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

*031005  SETOB	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031005 031005 031005 477040000002 777777777777 0                0            000000031004 0            0   0   777 
IT1	*      *      000002 *            477040000002 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 031006 *            777777777777 *                0            *            0            0   0   *   SEQ 0162
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000000 *            0            0   0   *   
ST5	031006 031006 *      312040034301 *            *                777777777777 *            0            0   0   *   

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

*031006  CAME	1,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031006 031006 031006 312040034301 777777777777 777777777777     777777777777 000000031004 0            0   0   777 
IT1	*      *      034301 *            312040034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031007 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031007 *      031010 *            777777777777 *                *            *            0            0   0   *   

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

*031010  JUMPA	0,031011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031010 031010 031010 324000031011 777777777777 777777777777     777777777777 000000031004 0            0   0   777 
IT1	*      *      031011 *            324000031011 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031011     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031011 *            000000031011 000000030714     *            000000031011 0            0   0   *   

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

*031011  CAME	2,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031011 031011 031011 312100034301 777777777777 000000030714     000000030714 000000031011 0            0   0   777 
IT1	*      *      034301 *            312100034301 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031012 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031012 *      031013 *            777777777777 *                *            *            0            0   0   *   

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

*031013  JUMPA	0,031014
                                                                                                                           SEQ 0163
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031013 031013 031013 324000031014 777777777777 777777777777     777777777777 000000031011 0            0   0   777 
IT1	*      *      031014 *            324000031014 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031014     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031014 *            000000031014 000000030714     *            000000031014 0            0   0   *   

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

*031014  MOVE 	1,034302

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031014 031014 031014 200040034302 777777777777 000000030714     000000030714 000000031014 0            0   0   777 
IT1	*      *      034302 *            200040034302 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034302     *            *            0            0   0   *   
FT6	031015 031015 031015 405040123123 777777777777 777000707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                777000707070 *            0            0   0   *   

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

*031015  ANDI	1,123123

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031015 031015 031015 405040123123 777777777777 777000707070     777000707070 000000031014 0            0   0   777 
IT1	*      *      123123 *            405040123123 *                *            *            0            0   0   *   
ET2	*      *      031016 *            000000103020 000000123123     *            *            0            0   0   *   
ST1	031016 031016 *      302040103020 777777777777 000000103020     000000103020 *            0            0   0   *   

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

*031016  CAIE	1,103020

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031016 031016 031016 302040103020 777777777777 000000103020     000000103020 000000031014 0            0   0   777 
IT1	*      *      103020 *            302040103020 *                *            *            0            0   0   *   
ET0	*      *      031017 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031017 *      031020 *            777777777777 *                *            *            0            0   0   *   

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

*031020  JUMPA	0,031021
                                                                                                                           SEQ 0164
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031020 031020 031020 324000031021 777777777777 000000103020     000000103020 000000031014 0            0   0   777 
IT1	*      *      031021 *            324000031021 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031021     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031021 *            000000031021 000000030714     *            000000031021 0            0   0   *   

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

*031021  MOVE 	1,034303

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031021 031021 031021 200040034303 777777777777 000000030714     000000030714 000000031021 0            0   0   777 
IT1	*      *      034303 *            200040034303 *                000000103020 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034303     *            *            0            0   0   *   
FT6	031022 031022 031022 200100034304 777777777777 777000000777     *            *            0            0   0   *   
ET2	*      *      *      *            000000103020 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000000777 *            0            0   0   *   

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

*031022  MOVE 	2,034304

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031022 031022 031022 200100034304 777777777777 777000000777     777000000777 000000031021 0            0   0   777 
IT1	*      *      034304 *            200100034304 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034304     *            *            0            0   0   *   
FT6	031023 031023 031023 406100000001 777777777777 123456123456     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                123456123456 *            0            0   0   *   

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

*031023  ANDM	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031023 031023 031023 406100000001 777777777777 123456123456     123456123456 000000031021 0            0   0   777 
IT1	*      *      000001 *            406100000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031024 *            777777777777 777000000777     *            *            0            0   0   *   
ET2	*      *      *      *            123000000456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123000000456     *            *            0            0   0   *   
ST2	*      *      *      123000000456 *            *                777000000777 *            0            0   0   *   
ST5	031024 031024 *      312100034304 *            *                123456123456 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0165
C(AC)=123456 123456 C(E) =777000 000777 
FINAL
C(E) =123000 000456 
----------

*031024  CAME	2,034304

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031024 031024 031024 312100034304 777777777777 123000000456     123456123456 000000031021 0            0   0   777 
IT1	*      *      034304 *            312100034304 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034304     *            *            0            0   0   *   
FT6	*      034304 *      123456123456 777777777777 123456123456     *            *            0            0   0   *   
ET0	*      *      031025 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031025 *      031026 *            777777777777 *                *            *            0            0   0   *   

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

*031026  JUMPA	0,031027

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031026 031026 031026 324000031027 777777777777 123456123456     123456123456 000000031021 0            0   0   777 
IT1	*      *      031027 *            324000031027 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031027     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031027 *            000000031027 000000030714     *            000000031027 0            0   0   *   

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

*031027  CAME	1,034305

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031027 031027 031027 312040034305 777777777777 000000030714     000000030714 000000031027 0            0   0   777 
IT1	*      *      034305 *            312040034305 *                123000000456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034305     *            *            0            0   0   *   
FT6	*      034305 *      123000000456 777777777777 123000000456     *            *            0            0   0   *   
ET0	*      *      031030 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031030 *      031031 *            777777777777 *                *            *            0            0   0   *   

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

*031031  JUMPA	0,031032

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031031 031031 031031 324000031032 777777777777 123000000456     123000000456 000000031027 0            0   0   777 
IT1	*      *      031032 *            324000031032 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031032     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031032 *            000000031032 000000030714     *            000000031032 0            0   0   *   
                                                                                                                           SEQ 0166
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030714 E    =000000 031032 
----------

*031032  MOVE 	1,034303

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031032 031032 031032 200040034303 777777777777 000000030714     000000030714 000000031032 0            0   0   777 
IT1	*      *      034303 *            200040034303 *                123000000456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034303     *            *            0            0   0   *   
FT6	031033 031033 031033 202040031046 777777777777 777000000777     *            *            0            0   0   *   
ET2	*      *      *      *            123000000456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000000777 *            0            0   0   *   

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

*031033  MOVEM	1,031046

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031033 031033 031033 202040031046 777777777777 777000000777     777000000777 000000031032 0            0   0   777 
IT1	*      *      031046 *            202040031046 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031046     *            *            0            0   0   *   
FT6	*      031046 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            777000000777 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 777000000777     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      777000000777 *            *                *            *            0            0   0   *   
ST5	031034 031034 031034 200100034304 *            *                *            *            0            0   0   *   

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

*031034  MOVE 	2,034304

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031034 031034 031034 200100034304 777777777777 777000000777     777000000777 000000031032 0            0   0   777 
IT1	*      *      034304 *            200100034304 *                123456123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034304     *            *            0            0   0   *   
FT6	031035 031035 031035 406100031046 777777777777 123456123456     *            *            0            0   0   *   
ET2	*      *      *      *            123456123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 123456 C(E) =123456 123456 
FINAL
C(AC)=123456 123456 
----------
*031035  ANDM	2,031046                                                                                                   SEQ 0167

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031035 031035 031035 406100031046 777777777777 123456123456     123456123456 000000031032 0            0   0   777 
IT1	*      *      031046 *            406100031046 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031046     *            *            0            0   0   *   
FT6	*      031046 *      777000000777 777777777777 777000000777     *            *            0            0   0   *   
ET2	*      *      *      *            123000000456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123000000456     *            *            0            0   0   *   
ST2	*      *      *      123000000456 *            *                *            *            0            0   0   *   
ST5	031036 031036 031036 312100034304 *            *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 123456 C(E) =777000 000777 
FINAL
C(E) =123000 000456 
----------

*031036  CAME	2,034304

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031036 031036 031036 312100034304 777777777777 123000000456     123456123456 000000031032 0            0   0   777 
IT1	*      *      034304 *            312100034304 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034304     *            *            0            0   0   *   
FT6	*      034304 *      123456123456 777777777777 123456123456     *            *            0            0   0   *   
ET0	*      *      031037 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031037 *      031040 *            777777777777 *                *            *            0            0   0   *   

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

*031040  JUMPA	0,031041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031040 031040 031040 324000031041 777777777777 123456123456     123456123456 000000031032 0            0   0   777 
IT1	*      *      031041 *            324000031041 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031041     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031041 *            000000031041 000000030714     *            000000031041 0            0   0   *   

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

*031041  MOVE 	1,031046

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031041 031041 031041 200040031046 777777777777 000000030714     000000030714 000000031041 0            0   0   777 
IT1	*      *      031046 *            200040031046 *                777000000777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031046     *            *            0            0   0   *   
FT6	031042 031042 031042 312040034305 777777777777 123000000456     *            *            0            0   0   *   
ET2	*      *      *      *            777000000777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123000000456 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0168
C(AC)=777000 000777 C(E) =123000 000456 
FINAL
C(AC)=123000 000456 
----------

*031042  CAME	1,034305

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031042 031042 031042 312040034305 777777777777 123000000456     123000000456 000000031041 0            0   0   777 
IT1	*      *      034305 *            312040034305 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034305     *            *            0            0   0   *   
FT6	*      034305 *      123000000456 777777777777 123000000456     *            *            0            0   0   *   
ET0	*      *      031043 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031043 *      031044 *            777777777777 *                *            *            0            0   0   *   

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

*031044  JUMPA	0,031045

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

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

*031045  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031045 031045 031045 334000000000 777777777777 000000030714     000000030714 000000031045 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      031046 *            000000030714 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031046 0      031047 *            777777777777 *                *            *            0            0   0   *   

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

*031047  HRROI	3,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031047 031047 031047 561140000000 777777777777 000000030714     000000030714 000000031045 0            0   0   777 
IT1	*      *      000000 *            561140000000 *                000000000000 *            0            0   0   *   
ET2	*      *      031050 *            777777000000 000000000000     0            *            0            0   0   *   
ST1	031050 031050 *      525300121212 777777777777 777777000000     777777000000 *            0            0   0   *   SEQ 0169

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

*031050  HRLOI	6,121212

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031050 031050 031050 525300121212 777777777777 777777000000     777777000000 000000031045 0            0   0   777 
IT1	*      *      121212 *            525300121212 *                000000000000 *            0            0   0   *   
ET2	*      *      031051 *            777777777777 000000121212     0            *            0            0   0   *   
ST1	031051 031051 *      407140000006 *            121212777777     121212777777 *            0            0   0   *   

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

*031051  ANDB	3,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031051 031051 031051 407140000006 777777777777 121212777777     121212777777 000000031045 0            0   0   777 
IT1	*      *      000006 *            407140000006 *                777777000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 031052 *            777777777777 121212777777     *            *            0            0   0   *   
ET2	*      *      *      *            121212000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 121212000000     121212000000 *            0            0   0   *   
ST2	*      *      *      121212000000 *            *                121212777777 *            0            0   0   *   
ST5	031052 031052 *      312140034306 *            *                121212000000 *            0            0   0   *   

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

*031052  CAME	3,034306

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031052 031052 031052 312140034306 777777777777 121212000000     121212000000 000000031045 0            0   0   777 
IT1	*      *      034306 *            312140034306 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034306     *            *            0            0   0   *   
FT6	*      034306 *      121212000000 777777777777 121212000000     *            *            0            0   0   *   
ET0	*      *      031053 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031053 *      031054 *            777777777777 *                *            *            0            0   0   *   

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

*031054  JUMPA	0,031055
                                                                                                                           SEQ 0170
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031054 031054 031054 324000031055 777777777777 121212000000     121212000000 000000031045 0            0   0   777 
IT1	*      *      031055 *            324000031055 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031055     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031055 *            000000031055 000000030714     *            000000031055 0            0   0   *   

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

*031055  CAME	6,034306

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031055 031055 031055 312300034306 777777777777 000000030714     000000030714 000000031055 0            0   0   777 
IT1	*      *      034306 *            312300034306 *                121212000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034306     *            *            0            0   0   *   
FT6	*      034306 *      121212000000 777777777777 121212000000     *            *            0            0   0   *   
ET0	*      *      031056 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031056 *      031057 *            777777777777 *                *            *            0            0   0   *   

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

*031057  JUMPA	0,031060

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031057 031057 031057 324000031060 777777777777 121212000000     121212000000 000000031055 0            0   0   777 
IT1	*      *      031060 *            324000031060 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031060     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031060 *            000000031060 000000030714     *            000000031060 0            0   0   *   

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

*031060  HRROI	3,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031060 031060 031060 561140000000 777777777777 000000030714     000000030714 000000031060 0            0   0   777 
IT1	*      *      000000 *            561140000000 *                121212000000 *            0            0   0   *   
ET2	*      *      031061 *            777777000000 000000000000     *            *            0            0   0   *   
ST1	031061 031061 *      525300121212 777777777777 777777000000     777777000000 *            0            0   0   *   

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

*031061  HRLOI	6,121212
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0171
IT0	031061 031061 031061 525300121212 777777777777 777777000000     777777000000 000000031060 0            0   0   777 
IT1	*      *      121212 *            525300121212 *                121212000000 *            0            0   0   *   
ET2	*      *      031062 *            777777777777 000000121212     *            *            0            0   0   *   
ST1	031062 031062 *      202300031074 *            121212777777     121212777777 *            0            0   0   *   

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

*031062  MOVEM	6,031074

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031062 031062 031062 202300031074 777777777777 121212777777     121212777777 000000031060 0            0   0   777 
IT1	*      *      031074 *            202300031074 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031074     *            *            0            0   0   *   
FT6	*      031074 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            121212777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 121212777777     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      121212777777 *            *                *            *            0            0   0   *   
ST5	031063 031063 031063 407140031074 *            *                *            *            0            0   0   *   

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

*031063  ANDB	3,031074

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031063 031063 031063 407140031074 777777777777 121212777777     121212777777 000000031060 0            0   0   777 
IT1	*      *      031074 *            407140031074 *                777777000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031074     *            *            0            0   0   *   
FT6	*      031074 *      121212777777 777777777777 121212777777     *            *            0            0   0   *   
ET2	*      *      *      *            121212000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 121212000000     121212000000 *            0            0   0   *   
ST2	*      *      *      121212000000 *            *                *            *            0            0   0   *   
ST5	031064 031064 031064 312140034306 *            *                *            *            0            0   0   *   

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

*031064  CAME	3,034306

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031064 031064 031064 312140034306 777777777777 121212000000     121212000000 000000031060 0            0   0   777 
IT1	*      *      034306 *            312140034306 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034306     *            *            0            0   0   *   
FT6	*      034306 *      121212000000 777777777777 121212000000     *            *            0            0   0   *   
ET0	*      *      031065 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   SEQ 0172
ST1	031065 *      031066 *            777777777777 *                *            *            0            0   0   *   

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

*031066  JUMPA	0,031067

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031066 031066 031066 324000031067 777777777777 121212000000     121212000000 000000031060 0            0   0   777 
IT1	*      *      031067 *            324000031067 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031067     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031067 *            000000031067 000000030714     *            000000031067 0            0   0   *   

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

*031067  MOVE 	6,031074

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031067 031067 031067 200300031074 777777777777 000000030714     000000030714 000000031067 0            0   0   777 
IT1	*      *      031074 *            200300031074 *                121212777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031074     *            *            0            0   0   *   
FT6	031070 031070 031070 312300034306 777777777777 121212000000     *            *            0            0   0   *   
ET2	*      *      *      *            121212777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                121212000000 *            0            0   0   *   

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

*031070  CAME	6,034306

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

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

*031072  JUMPA	0,031073

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031072 031072 031072 324000031073 777777777777 121212000000     121212000000 000000031067 0            0   0   777 
IT1	*      *      031073 *            324000031073 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031073     *            *            0            0   0   *   SEQ 0173
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031073 *            000000031073 000000030714     *            000000031073 0            0   0   *   

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

*031073  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031073 031073 031073 334000000000 777777777777 000000030714     000000030714 000000031073 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      031074 *            000000030714 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031074 0      031075 *            777777777777 *                *            *            0            0   0   *   

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

*031075  MOVE 	5,034302

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031075 031075 031075 200240034302 777777777777 000000030714     000000030714 000000031073 0            0   0   777 
IT1	*      *      034302 *            200240034302 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034302     0            *            0            0   0   *   
FT6	031076 031076 031076 411240135246 777777777777 777000707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000707070 *            0            0   0   *   

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

*031076  ANDCAI	5,135246

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031076 031076 031076 411240135246 777777777777 777000707070     777000707070 000000031073 0            0   0   777 
IT1	*      *      135246 *            411240135246 *                *            *            0            0   0   *   
ET2	*      *      031077 *            000000030206 000000135246     *            *            0            0   0   *   
ST1	031077 031077 *      302240030206 777777777777 000000030206     000000030206 *            0            0   0   *   

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

*031077  CAIE	5,030206
                                                                                                                           SEQ 0174
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031077 031077 031077 302240030206 777777777777 000000030206     000000030206 000000031073 0            0   0   777 
IT1	*      *      030206 *            302240030206 *                *            *            0            0   0   *   
ET0	*      *      031100 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031100 *      031101 *            777777777777 *                *            *            0            0   0   *   

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

*031101  JUMPA	0,031102

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031101 031101 031101 324000031102 777777777777 000000030206     000000030206 000000031073 0            0   0   777 
IT1	*      *      031102 *            324000031102 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031102     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031102 *            000000031102 000000030714     *            000000031102 0            0   0   *   

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

*031102  HRLOI	4,000767

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031102 031102 031102 525200000767 777777777777 000000030714     000000030714 000000031102 0            0   0   777 
IT1	*      *      000767 *            525200000767 *                000000000000 *            0            0   0   *   
ET2	*      *      031103 *            777777777777 000000000767     0            *            0            0   0   *   
ST1	031103 031103 *      200300034307 *            000767777777     000767777777 *            0            0   0   *   

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

*031103  MOVE 	6,034307

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031103 031103 031103 200300034307 777777777777 000767777777     000767777777 000000031102 0            0   0   777 
IT1	*      *      034307 *            200300034307 *                121212000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034307     *            *            0            0   0   *   
FT6	031104 031104 031104 412200000006 777777777777 777350777776     *            *            0            0   0   *   
ET2	*      *      *      *            121212000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777350777776 *            0            0   0   *   

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

*031104  ANDCAM	4,000006
                                                                                                                           SEQ 0175
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031104 031104 031104 412200000006 777777777777 777350777776     777350777776 000000031102 0            0   0   777 
IT1	*      *      000006 *            412200000006 *                000767777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 031105 *            777777777777 777350777776     *            *            0            0   0   *   
ET2	*      *      *      *            777010000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777010000000     *            *            0            0   0   *   
ST2	*      *      *      777010000000 *            *                777350777776 *            0            0   0   *   
ST5	031105 031105 *      312200034310 *            *                000767777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000767 777777 C(E) =777350 777776 
FINAL
C(E) =777010 000000 
----------

*031105  CAME	4,034310

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031105 031105 031105 312200034310 777777777777 777010000000     000767777777 000000031102 0            0   0   777 
IT1	*      *      034310 *            312200034310 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034310     *            *            0            0   0   *   
FT6	*      034310 *      000767777777 777777777777 000767777777     *            *            0            0   0   *   
ET0	*      *      031106 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031106 *      031107 *            777777777777 *                *            *            0            0   0   *   

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

*031107  JUMPA	0,031110

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031107 031107 031107 324000031110 777777777777 000767777777     000767777777 000000031102 0            0   0   777 
IT1	*      *      031110 *            324000031110 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031110     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031110 *            000000031110 000000030714     *            000000031110 0            0   0   *   

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

*031110  CAME	6,034311

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031110 031110 031110 312300034311 777777777777 000000030714     000000030714 000000031110 0            0   0   777 
IT1	*      *      034311 *            312300034311 *                777010000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034311     *            *            0            0   0   *   
FT6	*      034311 *      777010000000 777777777777 777010000000     *            *            0            0   0   *   
ET0	*      *      031111 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031111 *      031112 *            777777777777 *                *            *            0            0   0   *   

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

*031112  JUMPA	0,031113

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031112 031112 031112 324000031113 777777777777 777010000000     777010000000 000000031110 0            0   0   777 
IT1	*      *      031113 *            324000031113 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031113     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031113 *            000000031113 000000030714     *            000000031113 0            0   0   *   

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

*031113  MOVE 	1,034312

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031113 031113 031113 200040034312 777777777777 000000030714     000000030714 000000031113 0            0   0   777 
IT1	*      *      034312 *            200040034312 *                123000000456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034312     *            *            0            0   0   *   
FT6	031114 031114 031114 200100034313 777777777777 000777770077     *            *            0            0   0   *   
ET2	*      *      *      *            123000000456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000777770077 *            0            0   0   *   

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

*031114  MOVE 	2,034313

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031114 031114 031114 200100034313 777777777777 000777770077     000777770077 000000031113 0            0   0   777 
IT1	*      *      034313 *            200100034313 *                123456123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034313     *            *            0            0   0   *   
FT6	031115 031115 031115 413040000002 777777777777 123456246123     *            *            0            0   0   *   
ET2	*      *      *      *            123456123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456246123 *            0            0   0   *   

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

*031115  ANDCAB	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031115 031115 031115 413040000002 777777777777 123456246123     123456246123 000000031113 0            0   0   777 
IT1	*      *      000002 *            413040000002 *                000777770077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031116 *            777777777777 123456246123     *            *            0            0   0   *   
ET2	*      *      *      *            123000006100 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123000006100     123000006100 *            0            0   0   *   SEQ 0177
ST2	*      *      *      123000006100 *            *                123456246123 *            0            0   0   *   
ST5	031116 031116 *      312040034314 *            *                123000006100 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000777 770077 C(E) =123456 246123 
FINAL
C(AC)=123000 006100 C(E) =123000 006100 
----------

*031116  CAME	1,034314

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031116 031116 031116 312040034314 777777777777 123000006100     123000006100 000000031113 0            0   0   777 
IT1	*      *      034314 *            312040034314 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034314     *            *            0            0   0   *   
FT6	*      034314 *      123000006100 777777777777 123000006100     *            *            0            0   0   *   
ET0	*      *      031117 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031117 *      031120 *            777777777777 *                *            *            0            0   0   *   

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

*031120  JUMPA	0,031121

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031120 031120 031120 324000031121 777777777777 123000006100     123000006100 000000031113 0            0   0   777 
IT1	*      *      031121 *            324000031121 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031121     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031121 *            000000031121 000000030714     *            000000031121 0            0   0   *   

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

*031121  CAME	2,034314

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031121 031121 031121 312100034314 777777777777 000000030714     000000030714 000000031121 0            0   0   777 
IT1	*      *      034314 *            312100034314 *                123000006100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034314     *            *            0            0   0   *   
FT6	*      034314 *      123000006100 777777777777 123000006100     *            *            0            0   0   *   
ET0	*      *      031122 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031122 *      031123 *            777777777777 *                *            *            0            0   0   *   

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

*031123  JUMPA	0,031124

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031123 031123 031123 324000031124 777777777777 123000006100     123000006100 000000031121 0            0   0   77  SEQ 0178
IT1	*      *      031124 *            324000031124 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031124     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031124 *            000000031124 000000030714     *            000000031124 0            0   0   *   

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

*031124  SETO 	5,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031124 031124 031124 474240000000 777777777777 000000030714     000000030714 000000031124 0            0   0   777 
IT1	*      *      000000 *            474240000000 *                000000030206 *            0            0   0   *   
ET2	*      *      031125 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031125 031125 *      415240123456 *            777777777777     777777777777 *            0            0   0   *   

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

*031125  SETMI	5,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031125 031125 031125 415240123456 777777777777 777777777777     777777777777 000000031124 0            0   0   777 
IT1	*      *      123456 *            415240123456 *                *            *            0            0   0   *   
ET2	*      *      031126 *            000000123456 000000123456     *            *            0            0   0   *   
ST1	031126 031126 *      302240123456 777777777777 *                000000123456 *            0            0   0   *   

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

*031126  CAIE	5,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031126 031126 031126 302240123456 777777777777 000000123456     000000123456 000000031124 0            0   0   777 
IT1	*      *      123456 *            302240123456 *                *            *            0            0   0   *   
ET0	*      *      031127 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031127 *      031130 *            777777777777 *                *            *            0            0   0   *   

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

*031130  JUMPA	0,031131

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031130 031130 031130 324000031131 777777777777 000000123456     000000123456 000000031124 0            0   0   777 
IT1	*      *      031131 *            324000031131 *                000000030714 *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031131     *            *            0            0   0   *   SEQ 0179
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031131 *            000000031131 000000030714     *            000000031131 0            0   0   *   

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

*031131  SETZ 	16,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031131 031131 031131 400700000000 777777777777 000000030714     000000030714 000000031131 0            0   0   777 
IT1	*      *      000000 *            400700000000 *                000000000000 *            0            0   0   *   
ET2	*      *      031132 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	031132 031132 *      474740000000 777777777777 0                0            *            0            0   0   *   

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

*031132  SETO 	17,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031132 031132 031132 474740000000 777777777777 0                0            000000031131 0            0   0   777 
IT1	*      *      000000 *            474740000000 0                0            *            0            0   0   *   
ET2	*      *      031133 *            777777777777 0                0            *            0            0   0   *   
ST1	031133 031133 *      416700000017 *            777777777777     777777777777 *            0            0   0   *   

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

*031133  SETMM	16,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031133 031133 031133 416700000017 777777777777 777777777777     777777777777 000000031131 0            0   0   777 
IT1	*      *      000017 *            416700000017 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     0            *            0            0   0   *   
FT6	*      000017 031134 *            777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777777 *            0            0   0   *   
ST5	031134 031134 *      332000000016 *            *                000000000000 *            0            0   0   *   

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

*031134  SKIPE	0,000016
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0180
IT0	031134 031134 031134 332000000016 777777777777 777777777777     0            000000031131 0            0   0   777 
IT1	*      *      000016 *            332000000016 *                000000030714 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     *            *            0            0   0   *   
FT6	*      000016 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      031135 *            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      *            0            0                *            *            0            0   0   *   
ST1	031135 *      031136 *            777777777777 0                *            *            0            0   0   *   

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

*031136  JUMPA	0,031137

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031136 031136 031136 324000031137 777777777777 0                000000030714 000000031131 0            0   0   777 
IT1	*      *      031137 *            324000031137 0                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000031137     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031137 *            000000031137 000000030714     *            000000031137 0            0   0   *   

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

*031137  CAME	17,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031137 031137 031137 312740034301 777777777777 000000030714     000000030714 000000031137 0            0   0   777 
IT1	*      *      034301 *            312740034301 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031140 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031140 *      031141 *            777777777777 *                *            *            0            0   0   *   

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

*031141  JUMPA	0,031142

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

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030714 E    =000000 031142 
----------
*031142  SETO 	0,000000                                                                                                   SEQ 0181

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031142 031142 031142 474000000000 777777777777 000000030714     000000030714 000000031142 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                *            *            0            0   0   *   
ET2	*      *      031143 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031143 031143 *      200040034315 *            777777777777     777777777777 *            0            0   0   *   

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

*031143  MOVE 	1,034315

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031143 031143 031143 200040034315 777777777777 777777777777     777777777777 000000031142 0            0   0   777 
IT1	*      *      034315 *            200040034315 *                123000006100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034315     *            *            0            0   0   *   
FT6	031144 031144 031144 417000000001 777777777777 000100777600     *            *            0            0   0   *   
ET2	*      *      *      *            123000006100 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000100777600 *            0            0   0   *   

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

*031144  SETMB	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031144 031144 031144 417000000001 777777777777 000100777600     000100777600 000000031142 0            0   0   777 
IT1	*      *      000001 *            417000000001 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031145 *            777777777777 000100777600     *            *            0            0   0   *   
ET2	*      *      *      *            000100777600 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000100777600 *            0            0   0   *   
ST2	*      *      *      000100777600 *            *                *            *            0            0   0   *   
ST5	031145 031145 *      312000034315 *            *                *            *            0            0   0   *   

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

*031145  CAME	0,034315

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031145 031145 031145 312000034315 777777777777 000100777600     000100777600 000000031142 0            0   0   777 
IT1	*      *      034315 *            312000034315 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034315     *            *            0            0   0   *   
FT6	*      034315 *      000100777600 777777777777 000100777600     *            *            0            0   0   *   
ET0	*      *      031146 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031146 *      031147 *            777777777777 *                *            *            0            0   0   *   SEQ 0182

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

*031147  JUMPA	0,031150

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

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

*031150  CAME	1,034315

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031150 031150 031150 312040034315 777777777777 000100777600     000100777600 000000031150 0            0   0   777 
IT1	*      *      034315 *            312040034315 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034315     *            *            0            0   0   *   
FT6	*      034315 *      000100777600 777777777777 000100777600     *            *            0            0   0   *   
ET0	*      *      031151 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031151 *      031152 *            777777777777 *                *            *            0            0   0   *   

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

*031152  JUMPA	0,031153

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031152 031152 031152 324000031153 777777777777 000100777600     000100777600 000000031150 0            0   0   777 
IT1	*      *      031153 *            324000031153 *                *            *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031153     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031153 *            000000031153 000100777600     *            000000031153 0            0   0   *   

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

*031153  MOVE 	15,034316

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031153 031153 031153 200640034316 777777777777 000100777600     000100777600 000000031153 0            0   0   777 
IT1	*      *      034316 *            200640034316 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034316     0            *            0            0   0   *   
FT6	031154 031154 031154 421640717273 777777777777 123456246135     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456246135 *            0            0   0   *   
                                                                                                                           SEQ 0183
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =123456 246135 
FINAL
C(AC)=123456 246135 
----------

*031154  ANDCMI	15,717273

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031154 031154 031154 421640717273 777777777777 123456246135     123456246135 000000031153 0            0   0   777 
IT1	*      *      717273 *            421640717273 *                *            *            0            0   0   *   
ET2	*      *      031155 *            123456040104 000000717273     *            *            0            0   0   *   
ST1	031155 031155 *      312640034317 777777777777 123456040104     123456040104 *            0            0   0   *   

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

*031155  CAME	15,034317

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031155 031155 031155 312640034317 777777777777 123456040104     123456040104 000000031153 0            0   0   777 
IT1	*      *      034317 *            312640034317 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034317     *            *            0            0   0   *   
FT6	*      034317 *      123456040104 777777777777 123456040104     *            *            0            0   0   *   
ET0	*      *      031156 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031156 *      031157 *            777777777777 *                *            *            0            0   0   *   

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

*031157  JUMPA	0,031160

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031157 031157 031157 324000031160 777777777777 123456040104     123456040104 000000031153 0            0   0   777 
IT1	*      *      031160 *            324000031160 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031160     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031160 *            000000031160 000100777600     *            000000031160 0            0   0   *   

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

*031160  MOVE 	14,034320

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031160 031160 031160 200600034320 777777777777 000100777600     000100777600 000000031160 0            0   0   777 
IT1	*      *      034320 *            200600034320 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034320     0            *            0            0   0   *   
FT6	031161 031161 031161 200640034321 777777777777 123321456654     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   SEQ 0184
ST1	*      *      *      *            777777777777 *                123321456654 *            0            0   0   *   

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

*031161  MOVE 	15,034321

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031161 031161 031161 200640034321 777777777777 123321456654     123321456654 000000031160 0            0   0   777 
IT1	*      *      034321 *            200640034321 *                123456040104 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034321     *            *            0            0   0   *   
FT6	031162 031162 031162 422600000015 777777777777 770077007770     *            *            0            0   0   *   
ET2	*      *      *      *            123456040104 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                770077007770 *            0            0   0   *   

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

*031162  ANDCMM	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031162 031162 031162 422600000015 777777777777 770077007770     770077007770 000000031160 0            0   0   777 
IT1	*      *      000015 *            422600000015 *                123321456654 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031163 *            777777777777 770077007770     *            *            0            0   0   *   
ET2	*      *      *      *            003300450004 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 003300450004     *            *            0            0   0   *   
ST2	*      *      *      003300450004 *            *                770077007770 *            0            0   0   *   
ST5	031163 031163 *      312600034320 *            *                123321456654 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123321 456654 C(E) =770077 007770 
FINAL
C(E) =003300 450004 
----------

*031163  CAME	14,034320

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031163 031163 031163 312600034320 777777777777 003300450004     123321456654 000000031160 0            0   0   777 
IT1	*      *      034320 *            312600034320 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034320     *            *            0            0   0   *   
FT6	*      034320 *      123321456654 777777777777 123321456654     *            *            0            0   0   *   
ET0	*      *      031164 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031164 *      031165 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123321 456654 C(E) =123321 456654 
----------                                                                                                                 SEQ 0185

*031165  JUMPA	0,031166

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031165 031165 031165 324000031166 777777777777 123321456654     123321456654 000000031160 0            0   0   777 
IT1	*      *      031166 *            324000031166 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031166     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031166 *            000000031166 000100777600     *            000000031166 0            0   0   *   

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

*031166  CAME	15,034322

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031166 031166 031166 312640034322 777777777777 000100777600     000100777600 000000031166 0            0   0   777 
IT1	*      *      034322 *            312640034322 *                003300450004 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034322     *            *            0            0   0   *   
FT6	*      034322 *      003300450004 777777777777 003300450004     *            *            0            0   0   *   
ET0	*      *      031167 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031167 *      031170 *            777777777777 *                *            *            0            0   0   *   

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

*031170  JUMPA	0,031171

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031170 031170 031170 324000031171 777777777777 003300450004     003300450004 000000031166 0            0   0   777 
IT1	*      *      031171 *            324000031171 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031171     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031171 *            000000031171 000100777600     *            000000031171 0            0   0   *   

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

*031171  MOVE 	13,034323

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031171 031171 031171 200540034323 777777777777 000100777600     000100777600 000000031171 0            0   0   777 
IT1	*      *      034323 *            200540034323 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034323     0            *            0            0   0   *   
FT6	031172 031172 031172 200600034324 777777777777 123456663322     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456663322 *            0            0   0   *   

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

*031172  MOVE 	14,034324

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031172 031172 031172 200600034324 777777777777 123456663322     123456663322 000000031171 0            0   0   777 
IT1	*      *      034324 *            200600034324 *                123321456654 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034324     *            *            0            0   0   *   
FT6	031173 031173 031173 423540000014 777777777777 777000700770     *            *            0            0   0   *   
ET2	*      *      *      *            123321456654 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000700770 *            0            0   0   *   

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

*031173  ANDCMB	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031173 031173 031173 423540000014 777777777777 777000700770     777000700770 000000031171 0            0   0   777 
IT1	*      *      000014 *            423540000014 *                123456663322 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 031174 *            777777777777 777000700770     *            *            0            0   0   *   
ET2	*      *      *      *            000456063002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000456063002     000456063002 *            0            0   0   *   
ST2	*      *      *      000456063002 *            *                777000700770 *            0            0   0   *   
ST5	031174 031174 *      312540034325 *            *                000456063002 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 663322 C(E) =777000 700770 
FINAL
C(AC)=000456 063002 C(E) =000456 063002 
----------

*031174  CAME	13,034325

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031174 031174 031174 312540034325 777777777777 000456063002     000456063002 000000031171 0            0   0   777 
IT1	*      *      034325 *            312540034325 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034325     *            *            0            0   0   *   
FT6	*      034325 *      000456063002 777777777777 000456063002     *            *            0            0   0   *   
ET0	*      *      031175 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031175 *      031176 *            777777777777 *                *            *            0            0   0   *   

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

*031176  JUMPA	0,031177

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031176 031176 031176 324000031177 777777777777 000456063002     000456063002 000000031171 0            0   0   777 
IT1	*      *      031177 *            324000031177 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031177     *            *            0            0   0   *   SEQ 0187
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031177 *            000000031177 000100777600     *            000000031177 0            0   0   *   

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

*031177  CAME	14,034325

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031177 031177 031177 312600034325 777777777777 000100777600     000100777600 000000031177 0            0   0   777 
IT1	*      *      034325 *            312600034325 *                000456063002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034325     *            *            0            0   0   *   
FT6	*      034325 *      000456063002 777777777777 000456063002     *            *            0            0   0   *   
ET0	*      *      031200 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031200 *      031201 *            777777777777 *                *            *            0            0   0   *   

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

*031201  JUMPA	0,031202

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031201 031201 031201 324000031202 777777777777 000456063002     000456063002 000000031177 0            0   0   777 
IT1	*      *      031202 *            324000031202 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031202     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031202 *            000000031202 000100777600     *            000000031202 0            0   0   *   

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

*031202  MOVE 	12,034326

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031202 031202 031202 200500034326 777777777777 000100777600     000100777600 000000031202 0            0   0   777 
IT1	*      *      034326 *            200500034326 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034326     0            *            0            0   0   *   
FT6	031203 031203 031203 200540034327 777777777777 123456777776     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456777776 *            0            0   0   *   

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

*031203  MOVE 	13,034327

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031203 031203 031203 200540034327 777777777777 123456777776     123456777776 000000031202 0            0   0   777 
IT1	*      *      034327 *            200540034327 *                000456063002 *            0            0   0   *   SEQ 0188
MEMST	*      *      *      *            *            000000034327     *            *            0            0   0   *   
FT6	031204 031204 031204 424500000013 777777777777 010203123450     *            *            0            0   0   *   
ET2	*      *      *      *            000456063002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                010203123450 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000456 063002 C(E) =010203 123450 
FINAL
C(AC)=010203 123450 
----------

*031204  SETA 	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031204 031204 031204 424500000013 777777777777 010203123450     010203123450 000000031202 0            0   0   777 
IT1	*      *      000013 *            424500000013 *                123456777776 *            0            0   0   *   
ET2	*      *      031205 *            123456777776 000000000013     *            *            0            0   0   *   
ST1	031205 031205 *      312500034326 777777777777 123456777776     *            *            0            0   0   *   

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

*031205  CAME	12,034326

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031205 031205 031205 312500034326 777777777777 123456777776     123456777776 000000031202 0            0   0   777 
IT1	*      *      034326 *            312500034326 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034326     *            *            0            0   0   *   
FT6	*      034326 *      123456777776 777777777777 123456777776     *            *            0            0   0   *   
ET0	*      *      031206 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031206 *      031207 *            777777777777 *                *            *            0            0   0   *   

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

*031207  JUMPA	0,031210

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031207 031207 031207 324000031210 777777777777 123456777776     123456777776 000000031202 0            0   0   777 
IT1	*      *      031210 *            324000031210 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031210     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031210 *            000000031210 000100777600     *            000000031210 0            0   0   *   

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

*031210  CAME	13,034327
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0189
IT0	031210 031210 031210 312540034327 777777777777 000100777600     000100777600 000000031210 0            0   0   777 
IT1	*      *      034327 *            312540034327 *                010203123450 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034327     *            *            0            0   0   *   
FT6	*      034327 *      010203123450 777777777777 010203123450     *            *            0            0   0   *   
ET0	*      *      031211 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031211 *      031212 *            777777777777 *                *            *            0            0   0   *   

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

*031212  JUMPA	0,031213

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031212 031212 031212 324000031213 777777777777 010203123450     010203123450 000000031210 0            0   0   777 
IT1	*      *      031213 *            324000031213 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031213     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031213 *            000000031213 000100777600     *            000000031213 0            0   0   *   

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

*031213  MOVE 	12,034326

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031213 031213 031213 200500034326 777777777777 000100777600     000100777600 000000031213 0            0   0   777 
IT1	*      *      034326 *            200500034326 *                123456777776 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034326     *            *            0            0   0   *   
FT6	031214 031214 031214 425500123450 777777777777 123456777776     *            *            0            0   0   *   
ET2	*      *      *      *            123456777776 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031214  SETAI	12,123450

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031214 031214 031214 425500123450 777777777777 123456777776     123456777776 000000031213 0            0   0   777 
IT1	*      *      123450 *            425500123450 *                *            *            0            0   0   *   
ET2	*      *      031215 *            123456777776 000000123450     *            *            0            0   0   *   
ST1	031215 031215 *      312500034326 777777777777 123456777776     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 777776 E    =000000 123450 
FINAL
C(AC)=123456 777776 
----------
*031215  CAME	12,034326                                                                                                  SEQ 0190

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031215 031215 031215 312500034326 777777777777 123456777776     123456777776 000000031213 0            0   0   777 
IT1	*      *      034326 *            312500034326 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034326     *            *            0            0   0   *   
FT6	*      034326 *      123456777776 777777777777 123456777776     *            *            0            0   0   *   
ET0	*      *      031216 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031216 *      031217 *            777777777777 *                *            *            0            0   0   *   

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

*031217  JUMPA	0,031220

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031217 031217 031217 324000031220 777777777777 123456777776     123456777776 000000031213 0            0   0   777 
IT1	*      *      031220 *            324000031220 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031220     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031220 *            000000031220 000100777600     *            000000031220 0            0   0   *   

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

*031220  HRLZI	11,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031220 031220 031220 515440123456 777777777777 000100777600     000100777600 000000031220 0            0   0   777 
IT1	*      *      123456 *            515440123456 *                000000000000 *            0            0   0   *   
ET2	*      *      031221 *            777777777777 000000123456     0            *            0            0   0   *   
ST1	031221 031221 *      474500000000 *            123456000000     123456000000 *            0            0   0   *   

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

*031221  SETO 	12,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031221 031221 031221 474500000000 777777777777 123456000000     123456000000 000000031220 0            0   0   777 
IT1	*      *      000000 *            474500000000 *                123456777776 *            0            0   0   *   
ET2	*      *      031222 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031222 031222 *      426440000012 *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 777776 C(E) =000100 777600 
FINAL
C(AC)=777777 777777 
----------
*031222  SETAM	11,000012                                                                                                  SEQ 0191

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031222 031222 031222 426440000012 777777777777 777777777777     777777777777 000000031220 0            0   0   777 
IT1	*      *      000012 *            426440000012 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 031223 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123456000000     *            *            0            0   0   *   
ST2	*      *      *      123456000000 *            *                777777777777 *            0            0   0   *   
ST5	031223 031223 *      312440034330 *            *                123456000000 *            0            0   0   *   

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

*031223  CAME	11,034330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031223 031223 031223 312440034330 777777777777 123456000000     123456000000 000000031220 0            0   0   777 
IT1	*      *      034330 *            312440034330 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034330     *            *            0            0   0   *   
FT6	*      034330 *      123456000000 777777777777 123456000000     *            *            0            0   0   *   
ET0	*      *      031224 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031224 *      031225 *            777777777777 *                *            *            0            0   0   *   

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

*031225  JUMPA	0,031226

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031225 031225 031225 324000031226 777777777777 123456000000     123456000000 000000031220 0            0   0   777 
IT1	*      *      031226 *            324000031226 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031226     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031226 *            000000031226 000100777600     *            000000031226 0            0   0   *   

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

*031226  CAME	12,034330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031226 031226 031226 312500034330 777777777777 000100777600     000100777600 000000031226 0            0   0   777 
IT1	*      *      034330 *            312500034330 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034330     *            *            0            0   0   *   
FT6	*      034330 *      123456000000 777777777777 123456000000     *            *            0            0   0   *   
ET0	*      *      031227 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031227 *      031230 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0192
INITIAL
C(AC)=123456 000000 C(E) =123456 000000 
----------

*031230  JUMPA	0,031231

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031230 031230 031230 324000031231 777777777777 123456000000     123456000000 000000031226 0            0   0   777 
IT1	*      *      031231 *            324000031231 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031231     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031231 *            000000031231 000100777600     *            000000031231 0            0   0   *   

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

*031231  MOVE 	10,034331

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031231 031231 031231 200400034331 777777777777 000100777600     000100777600 000000031231 0            0   0   777 
IT1	*      *      034331 *            200400034331 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034331     0            *            0            0   0   *   
FT6	031232 031232 031232 431400434431 777777777777 000777123456     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000777123456 *            0            0   0   *   

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

*031232  XORI	10,434431

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031232 031232 031232 431400434431 777777777777 000777123456     000777123456 000000031231 0            0   0   777 
IT1	*      *      434431 *            431400434431 *                *            *            0            0   0   *   
ET2	*      *      031233 *            000777517067 000000434431     *            *            0            0   0   *   
ST1	031233 031233 *      312400034332 777777777777 000777517067     000777517067 *            0            0   0   *   

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

*031233  CAME	10,034332

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031233 031233 031233 312400034332 777777777777 000777517067     000777517067 000000031231 0            0   0   777 
IT1	*      *      034332 *            312400034332 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034332     *            *            0            0   0   *   
FT6	*      034332 *      000777517067 777777777777 000777517067     *            *            0            0   0   *   
ET0	*      *      031234 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031234 *      031235 *            777777777777 *                *            *            0            0   0   *   SEQ 0193

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

*031235  JUMPA	0,031236

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031235 031235 031235 324000031236 777777777777 000777517067     000777517067 000000031231 0            0   0   777 
IT1	*      *      031236 *            324000031236 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031236     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031236 *            000000031236 000100777600     *            000000031236 0            0   0   *   

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

*031236  MOVE 	7,034333

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031236 031236 031236 200340034333 777777777777 000100777600     000100777600 000000031236 0            0   0   777 
IT1	*      *      034333 *            200340034333 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034333     0            *            0            0   0   *   
FT6	031237 031237 031237 200400034334 777777777777 707077555666     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707077555666 *            0            0   0   *   

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

*031237  MOVE 	10,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031237 031237 031237 200400034334 777777777777 707077555666     707077555666 000000031236 0            0   0   777 
IT1	*      *      034334 *            200400034334 *                000777517067 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	031240 031240 031240 433340000010 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            000777517067 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456765432 *            0            0   0   *   

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

*031240  XORB	7,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031240 031240 031240 433340000010 777777777777 123456765432     123456765432 000000031236 0            0   0   777 
IT1	*      *      000010 *            433340000010 *                707077555666 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   SEQ 0194
FT6	*      000010 031241 *            777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            624421230254 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 624421230254     624421230254 *            0            0   0   *   
ST2	*      *      *      624421230254 *            *                123456765432 *            0            0   0   *   
ST5	031241 031241 *      312340034335 *            *                624421230254 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707077 555666 C(E) =123456 765432 
FINAL
C(AC)=624421 230254 C(E) =624421 230254 
----------

*031241  CAME	7,034335

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031241 031241 031241 312340034335 777777777777 624421230254     624421230254 000000031236 0            0   0   777 
IT1	*      *      034335 *            312340034335 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034335     *            *            0            0   0   *   
FT6	*      034335 *      624421230254 777777777777 624421230254     *            *            0            0   0   *   
ET0	*      *      031242 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031242 *      031243 *            777777777777 *                *            *            0            0   0   *   

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

*031243  JUMPA	0,031244

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031243 031243 031243 324000031244 777777777777 624421230254     624421230254 000000031236 0            0   0   777 
IT1	*      *      031244 *            324000031244 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031244     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031244 *            000000031244 000100777600     *            000000031244 0            0   0   *   

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

*031244  CAME	10,034335

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031244 031244 031244 312400034335 777777777777 000100777600     000100777600 000000031244 0            0   0   777 
IT1	*      *      034335 *            312400034335 *                624421230254 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034335     *            *            0            0   0   *   
FT6	*      034335 *      624421230254 777777777777 624421230254     *            *            0            0   0   *   
ET0	*      *      031245 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031245 *      031246 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=624421 230254 C(E) =624421 230254 
----------
*031246  JUMPA	0,031247                                                                                                   SEQ 0195

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031246 031246 031246 324000031247 777777777777 624421230254     624421230254 000000031244 0            0   0   777 
IT1	*      *      031247 *            324000031247 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031247     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031247 *            000000031247 000100777600     *            000000031247 0            0   0   *   

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

*031247  MOVE 	6,034336

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031247 031247 031247 200300034336 777777777777 000100777600     000100777600 000000031247 0            0   0   777 
IT1	*      *      034336 *            200300034336 *                777010000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034336     *            *            0            0   0   *   
FT6	031250 031250 031250 435300765567 777777777777 707070123456     *            *            0            0   0   *   
ET2	*      *      *      *            777010000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070123456 *            0            0   0   *   

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

*031250  IORI	6,765567

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031250 031250 031250 435300765567 777777777777 707070123456     707070123456 000000031247 0            0   0   777 
IT1	*      *      765567 *            435300765567 *                *            *            0            0   0   *   
ET0	*      *      031251 *            070707010200 000000765567     *            *            0            0   0   *   
ET2	031251 031251 *      312300034337 707070767577 070707010200     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 707070767577     707070767577 *            0            0   0   *   

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

*031251  CAME	6,034337

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031251 031251 031251 312300034337 777777777777 707070767577     707070767577 000000031247 0            0   0   777 
IT1	*      *      034337 *            312300034337 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034337     *            *            0            0   0   *   
FT6	*      034337 *      707070767577 777777777777 707070767577     *            *            0            0   0   *   
ET0	*      *      031252 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031252 *      031253 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707070 767577 C(E) =707070 767577                                                                                    SEQ 0196
----------

*031253  JUMPA	0,031254

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031253 031253 031253 324000031254 777777777777 707070767577     707070767577 000000031247 0            0   0   777 
IT1	*      *      031254 *            324000031254 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031254     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031254 *            000000031254 000100777600     *            000000031254 0            0   0   *   

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

*031254  MOVE 	5,034340

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031254 031254 031254 200240034340 777777777777 000100777600     000100777600 000000031254 0            0   0   777 
IT1	*      *      034340 *            200240034340 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034340     *            *            0            0   0   *   
FT6	031255 031255 031255 200300034341 777777777777 123456777666     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456777666 *            0            0   0   *   

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

*031255  MOVE 	6,034341

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031255 031255 031255 200300034341 777777777777 123456777666     123456777666 000000031254 0            0   0   777 
IT1	*      *      034341 *            200300034341 *                707070767577 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034341     *            *            0            0   0   *   
FT6	031256 031256 031256 436240000006 777777777777 777001123470     *            *            0            0   0   *   
ET2	*      *      *      *            707070767577 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777001123470 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707070 767577 C(E) =777001 123470 
FINAL
C(AC)=777001 123470 
----------

*031256  IORM	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031256 031256 031256 436240000006 777777777777 777001123470     777001123470 000000031254 0            0   0   777 
IT1	*      *      000006 *            436240000006 *                123456777666 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 031257 *            777777777777 777001123470     *            *            0            0   0   *   
ET0	*      *      *      *            000320000101 *                *            *            0            0   0   *   
ET2	*      *      *      *            777457777676 000320000101     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777457777676     *            *            0            0   0   *   SEQ 0197
ST2	*      *      *      777457777676 *            *                777001123470 *            0            0   0   *   
ST5	031257 031257 *      312240034340 *            *                123456777666 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 777666 C(E) =777001 123470 
FINAL
C(E) =777457 777676 
----------

*031257  CAME	5,034340

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031257 031257 031257 312240034340 777777777777 777457777676     123456777666 000000031254 0            0   0   777 
IT1	*      *      034340 *            312240034340 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034340     *            *            0            0   0   *   
FT6	*      034340 *      123456777666 777777777777 123456777666     *            *            0            0   0   *   
ET0	*      *      031260 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031260 *      031261 *            777777777777 *                *            *            0            0   0   *   

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

*031261  JUMPA	0,031262

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031261 031261 031261 324000031262 777777777777 123456777666     123456777666 000000031254 0            0   0   777 
IT1	*      *      031262 *            324000031262 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031262     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031262 *            000000031262 000100777600     *            000000031262 0            0   0   *   

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

*031262  CAME	6,034342

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031262 031262 031262 312300034342 777777777777 000100777600     000100777600 000000031262 0            0   0   777 
IT1	*      *      034342 *            312300034342 *                777457777676 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034342     *            *            0            0   0   *   
FT6	*      034342 *      777457777676 777777777777 777457777676     *            *            0            0   0   *   
ET0	*      *      031263 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031263 *      031264 *            777777777777 *                *            *            0            0   0   *   

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

*031264  JUMPA	0,031265

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031264 031264 031264 324000031265 777777777777 777457777676     777457777676 000000031262 0            0   0   77  SEQ 0198
IT1	*      *      031265 *            324000031265 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031265     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031265 *            000000031265 000100777600     *            000000031265 0            0   0   *   

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

*031265  MOVE 	5,034340

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031265 031265 031265 200240034340 777777777777 000100777600     000100777600 000000031265 0            0   0   777 
IT1	*      *      034340 *            200240034340 *                123456777666 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034340     *            *            0            0   0   *   
FT6	031266 031266 031266 200300034341 777777777777 123456777666     *            *            0            0   0   *   
ET2	*      *      *      *            123456777666 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031266  MOVE 	6,034341

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031266 031266 031266 200300034341 777777777777 123456777666     123456777666 000000031265 0            0   0   777 
IT1	*      *      034341 *            200300034341 *                777457777676 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034341     *            *            0            0   0   *   
FT6	031267 031267 031267 437240000006 777777777777 777001123470     *            *            0            0   0   *   
ET2	*      *      *      *            777457777676 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777001123470 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777457 777676 C(E) =777001 123470 
FINAL
C(AC)=777001 123470 
----------

*031267  IORB	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031267 031267 031267 437240000006 777777777777 777001123470     777001123470 000000031265 0            0   0   777 
IT1	*      *      000006 *            437240000006 *                123456777666 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 031270 *            777777777777 777001123470     *            *            0            0   0   *   
ET0	*      *      *      *            000320000101 *                *            *            0            0   0   *   
ET2	*      *      *      *            777457777676 000320000101     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777457777676     777457777676 *            0            0   0   *   
ST2	*      *      *      777457777676 *            *                777001123470 *            0            0   0   *   
ST5	031270 031270 *      312240034342 *            *                777457777676 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 777666 C(E) =777001 123470                                                                                    SEQ 0199
FINAL
C(AC)=777457 777676 C(E) =777457 777676 
----------

*031270  CAME	5,034342

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031270 031270 031270 312240034342 777777777777 777457777676     777457777676 000000031265 0            0   0   777 
IT1	*      *      034342 *            312240034342 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034342     *            *            0            0   0   *   
FT6	*      034342 *      777457777676 777777777777 777457777676     *            *            0            0   0   *   
ET0	*      *      031271 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031271 *      031272 *            777777777777 *                *            *            0            0   0   *   

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

*031272  JUMPA	0,031273

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031272 031272 031272 324000031273 777777777777 777457777676     777457777676 000000031265 0            0   0   777 
IT1	*      *      031273 *            324000031273 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031273     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031273 *            000000031273 000100777600     *            000000031273 0            0   0   *   

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

*031273  CAME	6,034342

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031273 031273 031273 312300034342 777777777777 000100777600     000100777600 000000031273 0            0   0   777 
IT1	*      *      034342 *            312300034342 *                777457777676 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034342     *            *            0            0   0   *   
FT6	*      034342 *      777457777676 777777777777 777457777676     *            *            0            0   0   *   
ET0	*      *      031274 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031274 *      031275 *            777777777777 *                *            *            0            0   0   *   

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

*031275  JUMPA	0,031276

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031275 031275 031275 324000031276 777777777777 777457777676     777457777676 000000031273 0            0   0   777 
IT1	*      *      031276 *            324000031276 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031276     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031276 *            000000031276 000100777600     *            000000031276 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0200
INITIAL
C(AC)=000100 777600 E    =000000 031276 
----------

*031276  MOVE 	4,034343

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031276 031276 031276 200200034343 777777777777 000100777600     000100777600 000000031276 0            0   0   777 
IT1	*      *      034343 *            200200034343 *                000767777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034343     *            *            0            0   0   *   
FT6	031277 031277 031277 441200706050 777777777777 777000123456     *            *            0            0   0   *   
ET2	*      *      *      *            000767777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123456 *            0            0   0   *   

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

*031277  ANDCBI	4,706050

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031277 031277 031277 441200706050 777777777777 777000123456     777000123456 000000031276 0            0   0   777 
IT1	*      *      706050 *            441200706050 *                *            *            0            0   0   *   
ET2	*      *      031300 *            000777050321 000000706050     *            *            0            0   0   *   
ST1	031300 031300 *      312200034344 777777777777 000777050321     000777050321 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 123456 E    =000000 706050 
FINAL
C(AC)=000777 050321 
----------

*031300  CAME	4,034344

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031300 031300 031300 312200034344 777777777777 000777050321     000777050321 000000031276 0            0   0   777 
IT1	*      *      034344 *            312200034344 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034344     *            *            0            0   0   *   
FT6	*      034344 *      000777050321 777777777777 000777050321     *            *            0            0   0   *   
ET0	*      *      031301 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031301 *      031302 *            777777777777 *                *            *            0            0   0   *   

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

*031302  JUMPA	0,031303

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031302 031302 031302 324000031303 777777777777 000777050321     000777050321 000000031276 0            0   0   777 
IT1	*      *      031303 *            324000031303 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031303     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031303 *            000000031303 000100777600     *            000000031303 0            0   0   *   SEQ 0201

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

*031303  MOVE 	3,034345

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031303 031303 031303 200140034345 777777777777 000100777600     000100777600 000000031303 0            0   0   777 
IT1	*      *      034345 *            200140034345 *                121212000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034345     *            *            0            0   0   *   
FT6	031304 031304 031304 200200034346 777777777777 777007771100     *            *            0            0   0   *   
ET2	*      *      *      *            121212000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777007771100 *            0            0   0   *   

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

*031304  MOVE 	4,034346

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031304 031304 031304 200200034346 777777777777 777007771100     777007771100 000000031303 0            0   0   777 
IT1	*      *      034346 *            200200034346 *                000777050321 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034346     *            *            0            0   0   *   
FT6	031305 031305 031305 442140000004 777777777777 063202123477     *            *            0            0   0   *   
ET2	*      *      *      *            000777050321 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                063202123477 *            0            0   0   *   

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

*031305  ANDCBM	3,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031305 031305 031305 442140000004 777777777777 063202123477     063202123477 000000031303 0            0   0   777 
IT1	*      *      000004 *            442140000004 *                777007771100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 031306 *            777777777777 063202123477     *            *            0            0   0   *   
ET2	*      *      *      *            000570004200 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000570004200     *            *            0            0   0   *   
ST2	*      *      *      000570004200 *            *                063202123477 *            0            0   0   *   
ST5	031306 031306 *      312140034345 *            *                777007771100 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777007 771100 C(E) =063202 123477 
FINAL
C(E) =000570 004200 
----------
*031306  CAME	3,034345                                                                                                   SEQ 0202

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031306 031306 031306 312140034345 777777777777 000570004200     777007771100 000000031303 0            0   0   777 
IT1	*      *      034345 *            312140034345 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034345     *            *            0            0   0   *   
FT6	*      034345 *      777007771100 777777777777 777007771100     *            *            0            0   0   *   
ET0	*      *      031307 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031307 *      031310 *            777777777777 *                *            *            0            0   0   *   

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

*031310  JUMPA	0,031311

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031310 031310 031310 324000031311 777777777777 777007771100     777007771100 000000031303 0            0   0   777 
IT1	*      *      031311 *            324000031311 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031311     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031311 *            000000031311 000100777600     *            000000031311 0            0   0   *   

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

*031311  CAME	4,034347

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031311 031311 031311 312200034347 777777777777 000100777600     000100777600 000000031311 0            0   0   777 
IT1	*      *      034347 *            312200034347 *                000570004200 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034347     *            *            0            0   0   *   
FT6	*      034347 *      000570004200 777777777777 000570004200     *            *            0            0   0   *   
ET0	*      *      031312 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031312 *      031313 *            777777777777 *                *            *            0            0   0   *   

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

*031313  JUMPA	0,031314

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031313 031313 031313 324000031314 777777777777 000570004200     000570004200 000000031311 0            0   0   777 
IT1	*      *      031314 *            324000031314 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031314     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031314 *            000000031314 000100777600     *            000000031314 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000100 777600 E    =000000 031314 
----------
*031314  MOVE 	3,034345                                                                                                   SEQ 0203

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031314 031314 031314 200140034345 777777777777 000100777600     000100777600 000000031314 0            0   0   777 
IT1	*      *      034345 *            200140034345 *                777007771100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034345     *            *            0            0   0   *   
FT6	031315 031315 031315 200200034346 777777777777 777007771100     *            *            0            0   0   *   
ET2	*      *      *      *            777007771100 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031315  MOVE 	4,034346

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031315 031315 031315 200200034346 777777777777 777007771100     777007771100 000000031314 0            0   0   777 
IT1	*      *      034346 *            200200034346 *                000570004200 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034346     *            *            0            0   0   *   
FT6	031316 031316 031316 443140000004 777777777777 063202123477     *            *            0            0   0   *   
ET2	*      *      *      *            000570004200 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                063202123477 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000570 004200 C(E) =063202 123477 
FINAL
C(AC)=063202 123477 
----------

*031316  ANDCBB	3,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031316 031316 031316 443140000004 777777777777 063202123477     063202123477 000000031314 0            0   0   777 
IT1	*      *      000004 *            443140000004 *                777007771100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 031317 *            777777777777 063202123477     *            *            0            0   0   *   
ET2	*      *      *      *            000570004200 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000570004200     000570004200 *            0            0   0   *   
ST2	*      *      *      000570004200 *            *                063202123477 *            0            0   0   *   
ST5	031317 031317 *      312140034347 *            *                000570004200 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777007 771100 C(E) =063202 123477 
FINAL
C(AC)=000570 004200 C(E) =000570 004200 
----------

*031317  CAME	3,034347

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031317 031317 031317 312140034347 777777777777 000570004200     000570004200 000000031314 0            0   0   777 
IT1	*      *      034347 *            312140034347 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034347     *            *            0            0   0   *   
FT6	*      034347 *      000570004200 777777777777 000570004200     *            *            0            0   0   *   
ET0	*      *      031320 *            000000000000 *                *            *            0            0   0   *   SEQ 0204
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031320 *      031321 *            777777777777 *                *            *            0            0   0   *   

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

*031321  JUMPA	0,031322

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031321 031321 031321 324000031322 777777777777 000570004200     000570004200 000000031314 0            0   0   777 
IT1	*      *      031322 *            324000031322 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031322     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031322 *            000000031322 000100777600     *            000000031322 0            0   0   *   

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

*031322  CAME	4,034347

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031322 031322 031322 312200034347 777777777777 000100777600     000100777600 000000031322 0            0   0   777 
IT1	*      *      034347 *            312200034347 *                000570004200 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034347     *            *            0            0   0   *   
FT6	*      034347 *      000570004200 777777777777 000570004200     *            *            0            0   0   *   
ET0	*      *      031323 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031323 *      031324 *            777777777777 *                *            *            0            0   0   *   

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

*031324  JUMPA	0,031325

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031324 031324 031324 324000031325 777777777777 000570004200     000570004200 000000031322 0            0   0   777 
IT1	*      *      031325 *            324000031325 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031325     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031325 *            000000031325 000100777600     *            000000031325 0            0   0   *   

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

*031325  MOVE 	2,034350

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031325 031325 031325 200100034350 777777777777 000100777600     000100777600 000000031325 0            0   0   777 
IT1	*      *      034350 *            200100034350 *                123000006100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034350     *            *            0            0   0   *   
FT6	031326 031326 031326 445100123363 777777777777 707070123426     *            *            0            0   0   *   
ET2	*      *      *      *            123000006100 *                *            *            0            0   0   *   SEQ 0205
ST1	*      *      *      *            777777777777 *                707070123426 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123000 006100 C(E) =707070 123426 
FINAL
C(AC)=707070 123426 
----------

*031326  EQVI	2,123363

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031326 031326 031326 445100123363 777777777777 707070123426     707070123426 000000031325 0            0   0   777 
IT1	*      *      123363 *            445100123363 *                *            *            0            0   0   *   
ET2	*      *      031327 *            070707777032 000000123363     *            *            0            0   0   *   
ST1	031327 031327 *      312100034351 777777777777 070707777032     070707777032 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707070 123426 E    =000000 123363 
FINAL
C(AC)=070707 777032 
----------

*031327  CAME	2,034351

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031327 031327 031327 312100034351 777777777777 070707777032     070707777032 000000031325 0            0   0   777 
IT1	*      *      034351 *            312100034351 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034351     *            *            0            0   0   *   
FT6	*      034351 *      070707777032 777777777777 070707777032     *            *            0            0   0   *   
ET0	*      *      031330 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031330 *      031331 *            777777777777 *                *            *            0            0   0   *   

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

*031331  JUMPA	0,031332

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031331 031331 031331 324000031332 777777777777 070707777032     070707777032 000000031325 0            0   0   777 
IT1	*      *      031332 *            324000031332 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031332     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031332 *            000000031332 000100777600     *            000000031332 0            0   0   *   

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

*031332  MOVE 	1,034352

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031332 031332 031332 200040034352 777777777777 000100777600     000100777600 000000031332 0            0   0   777 
IT1	*      *      034352 *            200040034352 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034352     *            *            0            0   0   *   SEQ 0206
FT6	031333 031333 031333 200100034353 777777777777 123456123457     *            *            0            0   0   *   
ET2	*      *      *      *            000100777600 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456123457 *            0            0   0   *   

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

*031333  MOVE 	2,034353

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031333 031333 031333 200100034353 777777777777 123456123457     123456123457 000000031332 0            0   0   777 
IT1	*      *      034353 *            200100034353 *                070707777032 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034353     *            *            0            0   0   *   
FT6	031334 031334 031334 446040000002 777777777777 707633121212     *            *            0            0   0   *   
ET2	*      *      *      *            070707777032 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707633121212 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=070707 777032 C(E) =707633 121212 
FINAL
C(AC)=707633 121212 
----------

*031334  EQVM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031334 031334 031334 446040000002 777777777777 707633121212     707633121212 000000031332 0            0   0   777 
IT1	*      *      000002 *            446040000002 *                123456123457 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031335 *            777777777777 707633121212     *            *            0            0   0   *   
ET2	*      *      *      *            153512775132 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 153512775132     *            *            0            0   0   *   
ST2	*      *      *      153512775132 *            *                707633121212 *            0            0   0   *   
ST5	031335 031335 *      312040034352 *            *                123456123457 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 123457 C(E) =707633 121212 
FINAL
C(E) =153512 775132 
----------

*031335  CAME	1,034352

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031335 031335 031335 312040034352 777777777777 153512775132     123456123457 000000031332 0            0   0   777 
IT1	*      *      034352 *            312040034352 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034352     *            *            0            0   0   *   
FT6	*      034352 *      123456123457 777777777777 123456123457     *            *            0            0   0   *   
ET0	*      *      031336 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031336 *      031337 *            777777777777 *                *            *            0            0   0   *   

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

*031337  JUMPA	0,031340

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031337 031337 031337 324000031340 777777777777 123456123457     123456123457 000000031332 0            0   0   777 
IT1	*      *      031340 *            324000031340 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031340     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031340 *            000000031340 000100777600     *            000000031340 0            0   0   *   

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

*031340  CAME	2,034354

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031340 031340 031340 312100034354 777777777777 000100777600     000100777600 000000031340 0            0   0   777 
IT1	*      *      034354 *            312100034354 *                153512775132 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034354     *            *            0            0   0   *   
FT6	*      034354 *      153512775132 777777777777 153512775132     *            *            0            0   0   *   
ET0	*      *      031341 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031341 *      031342 *            777777777777 *                *            *            0            0   0   *   

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

*031342  JUMPA	0,031343

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031342 031342 031342 324000031343 777777777777 153512775132     153512775132 000000031340 0            0   0   777 
IT1	*      *      031343 *            324000031343 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031343     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031343 *            000000031343 000100777600     *            000000031343 0            0   0   *   

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

*031343  MOVE 	1,034352

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031343 031343 031343 200040034352 777777777777 000100777600     000100777600 000000031343 0            0   0   777 
IT1	*      *      034352 *            200040034352 *                123456123457 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034352     *            *            0            0   0   *   
FT6	031344 031344 031344 200100034353 777777777777 123456123457     *            *            0            0   0   *   
ET2	*      *      *      *            123456123457 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031344  MOVE 	2,034353

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031344 031344 031344 200100034353 777777777777 123456123457     123456123457 000000031343 0            0   0   777 
IT1	*      *      034353 *            200100034353 *                153512775132 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034353     *            *            0            0   0   *   
FT6	031345 031345 031345 447040000002 777777777777 707633121212     *            *            0            0   0   *   
ET2	*      *      *      *            153512775132 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707633121212 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=153512 775132 C(E) =707633 121212 
FINAL
C(AC)=707633 121212 
----------

*031345  EQVB	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031345 031345 031345 447040000002 777777777777 707633121212     707633121212 000000031343 0            0   0   777 
IT1	*      *      000002 *            447040000002 *                123456123457 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031346 *            777777777777 707633121212     *            *            0            0   0   *   
ET2	*      *      *      *            153512775132 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 153512775132     153512775132 *            0            0   0   *   
ST2	*      *      *      153512775132 *            *                707633121212 *            0            0   0   *   
ST5	031346 031346 *      312040034354 *            *                153512775132 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 123457 C(E) =707633 121212 
FINAL
C(AC)=153512 775132 C(E) =153512 775132 
----------

*031346  CAME	1,034354

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031346 031346 031346 312040034354 777777777777 153512775132     153512775132 000000031343 0            0   0   777 
IT1	*      *      034354 *            312040034354 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034354     *            *            0            0   0   *   
FT6	*      034354 *      153512775132 777777777777 153512775132     *            *            0            0   0   *   
ET0	*      *      031347 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031347 *      031350 *            777777777777 *                *            *            0            0   0   *   

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

*031350  JUMPA	0,031351

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031350 031350 031350 324000031351 777777777777 153512775132     153512775132 000000031343 0            0   0   77  SEQ 0209
IT1	*      *      031351 *            324000031351 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031351     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031351 *            000000031351 000100777600     *            000000031351 0            0   0   *   

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

*031351  CAME	2,034354

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031351 031351 031351 312100034354 777777777777 000100777600     000100777600 000000031351 0            0   0   777 
IT1	*      *      034354 *            312100034354 *                153512775132 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034354     *            *            0            0   0   *   
FT6	*      034354 *      153512775132 777777777777 153512775132     *            *            0            0   0   *   
ET0	*      *      031352 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031352 *      031353 *            777777777777 *                *            *            0            0   0   *   

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

*031353  JUMPA	0,031354

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031353 031353 031353 324000031354 777777777777 153512775132     153512775132 000000031351 0            0   0   777 
IT1	*      *      031354 *            324000031354 *                000100777600 *            0            0   0   *   
ET0	*      *      777600 *            000100777600 000000031354     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031354 *            000000031354 000100777600     *            000000031354 0            0   0   *   

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

*031354  MOVE 	0,034343

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031354 031354 031354 200000034343 777777777777 000100777600     000100777600 000000031354 0            0   0   777 
IT1	*      *      034343 *            200000034343 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034343     *            *            0            0   0   *   
FT6	031355 031355 031355 451000707070 777777777777 777000123456     *            *            0            0   0   *   
ET2	*      *      *      *            000100777600 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123456 *            0            0   0   *   

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

*031355  SETCAI	0,707070
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0210
IT0	031355 031355 031355 451000707070 777777777777 777000123456     777000123456 000000031354 0            0   0   777 
IT1	*      *      707070 *            451000707070 *                *            *            0            0   0   *   
ET2	*      *      031356 *            000777654321 000000707070     *            *            0            0   0   *   
ST1	031356 031356 *      312000034355 777777777777 000777654321     000777654321 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 123456 E    =000000 707070 
FINAL
C(AC)=000777 654321 
----------

*031356  CAME	0,034355

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031356 031356 031356 312000034355 777777777777 000777654321     000777654321 000000031354 0            0   0   777 
IT1	*      *      034355 *            312000034355 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034355     *            *            0            0   0   *   
FT6	*      034355 *      000777654321 777777777777 000777654321     *            *            0            0   0   *   
ET0	*      *      031357 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031357 *      031360 *            777777777777 *                *            *            0            0   0   *   

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

*031360  JUMPA	0,031361

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031360 031360 031360 324000031361 777777777777 000777654321     000777654321 000000031354 0            0   0   777 
IT1	*      *      031361 *            324000031361 *                *            *            0            0   0   *   
ET0	*      *      654321 *            000777654321 000000031361     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031361 *            000000031361 000777654321     *            000000031361 0            0   0   *   

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

*031361  MOVE 	17,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031361 031361 031361 200740034334 777777777777 000777654321     000777654321 000000031361 0            0   0   777 
IT1	*      *      034334 *            200740034334 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	031362 031362 031362 474000000000 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                123456765432 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =123456 765432 
FINAL
C(AC)=123456 765432 
----------
*031362  SETO 	0,000000                                                                                                   SEQ 0211

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031362 031362 031362 474000000000 777777777777 123456765432     123456765432 000000031361 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                000777654321 *            0            0   0   *   
ET2	*      *      031363 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031363 031363 *      452740000000 *            777777777777     777777777777 *            0            0   0   *   

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

*031363  SETCAM	17,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031363 031363 031363 452740000000 777777777777 777777777777     777777777777 000000031361 0            0   0   777 
IT1	*      *      000000 *            452740000000 *                123456765432 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 031364 *            777777777777 0                *            *            0            0   0   *   
ET2	*      0      *      *            654321012345 0                *            *            0            0   0   *   
ST1	*      0      *      *            777777777777 654321012345     *            *            0            0   0   *   
ST2	*      0      *      654321012345 *            *                777777777777 *            0            0   0   *   
ST5	031364 031364 *      312740034334 *            *                123456765432 *            0            0   0   *   

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

*031364  CAME	17,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031364 031364 031364 312740034334 777777777777 654321012345     123456765432 000000031361 0            0   0   777 
IT1	*      *      034334 *            312740034334 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	*      034334 *      123456765432 777777777777 123456765432     *            *            0            0   0   *   
ET0	*      *      031365 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031365 *      031366 *            777777777777 *                *            *            0            0   0   *   

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

*031366  JUMPA	0,031367

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031366 031366 031366 324000031367 777777777777 123456765432     123456765432 000000031361 0            0   0   777 
IT1	*      *      031367 *            324000031367 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031367     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031367 *            000000031367 654321012345     *            000000031367 0            0   0   *   

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

*031367  CAME	0,034356

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031367 031367 031367 312000034356 777777777777 654321012345     654321012345 000000031367 0            0   0   777 
IT1	*      *      034356 *            312000034356 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034356     *            *            0            0   0   *   
FT6	*      034356 *      654321012345 777777777777 654321012345     *            *            0            0   0   *   
ET0	*      *      031370 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031370 *      031371 *            777777777777 *                *            *            0            0   0   *   

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

*031371  JUMPA	0,031372

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

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

*031372  MOVE 	17,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031372 031372 031372 200740034334 777777777777 654321012345     654321012345 000000031372 0            0   0   777 
IT1	*      *      034334 *            200740034334 *                123456765432 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	031373 031373 031373 474000000000 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031373  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031373 031373 031373 474000000000 777777777777 123456765432     123456765432 000000031372 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                654321012345 *            0            0   0   *   
ET2	*      *      031374 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031374 031374 *      453740000000 *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0213
C(AC)=654321 012345 C(E) =654321 012345 
FINAL
C(AC)=777777 777777 
----------

*031374  SETCAB	17,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031374 031374 031374 453740000000 777777777777 777777777777     777777777777 000000031372 0            0   0   777 
IT1	*      *      000000 *            453740000000 *                123456765432 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 031375 *            777777777777 0                *            *            0            0   0   *   
ET2	*      0      *      *            654321012345 0                *            *            0            0   0   *   
ST1	*      0      *      *            777777777777 654321012345     654321012345 *            0            0   0   *   
ST2	*      0      *      654321012345 *            *                777777777777 *            0            0   0   *   
ST5	031375 031375 *      312740034356 *            *                654321012345 *            0            0   0   *   

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

*031375  CAME	17,034356

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031375 031375 031375 312740034356 777777777777 654321012345     654321012345 000000031372 0            0   0   777 
IT1	*      *      034356 *            312740034356 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034356     *            *            0            0   0   *   
FT6	*      034356 *      654321012345 777777777777 654321012345     *            *            0            0   0   *   
ET0	*      *      031376 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031376 *      031377 *            777777777777 *                *            *            0            0   0   *   

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

*031377  JUMPA	0,031400

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

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

*031400  CAME	0,034356

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031400 031400 031400 312000034356 777777777777 654321012345     654321012345 000000031400 0            0   0   777 
IT1	*      *      034356 *            312000034356 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034356     *            *            0            0   0   *   SEQ 0214
FT6	*      034356 *      654321012345 777777777777 654321012345     *            *            0            0   0   *   
ET0	*      *      031401 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031401 *      031402 *            777777777777 *                *            *            0            0   0   *   

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

*031402  JUMPA	0,031403

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031402 031402 031402 324000031403 777777777777 654321012345     654321012345 000000031400 0            0   0   777 
IT1	*      *      031403 *            324000031403 *                *            *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031403     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031403 *            000000031403 654321012345     *            000000031403 0            0   0   *   

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

*031403  MOVE 	16,034357

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031403 031403 031403 200700034357 777777777777 654321012345     654321012345 000000031403 0            0   0   777 
IT1	*      *      034357 *            200700034357 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034357     0            *            0            0   0   *   
FT6	031404 031404 031404 455700765401 777777777777 777000123477     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123477 *            0            0   0   *   

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

*031404  ORCAI	16,765401

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031404 031404 031404 455700765401 777777777777 777000123477     777000123477 000000031403 0            0   0   777 
IT1	*      *      765401 *            455700765401 *                *            *            0            0   0   *   
ET0	*      *      031405 *            777000002076 000000765401     *            *            0            0   0   *   
ET2	031405 031405 *      312700034360 000777775701 777000002076     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000777775701     000777775701 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 123477 E    =000000 765401 
FINAL
C(AC)=000777 775701 
----------

*031405  CAME	16,034360
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0215
IT0	031405 031405 031405 312700034360 777777777777 000777775701     000777775701 000000031403 0            0   0   777 
IT1	*      *      034360 *            312700034360 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034360     *            *            0            0   0   *   
FT6	*      034360 *      000777775701 777777777777 000777775701     *            *            0            0   0   *   
ET0	*      *      031406 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031406 *      031407 *            777777777777 *                *            *            0            0   0   *   

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

*031407  JUMPA	0,031410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031407 031407 031407 324000031410 777777777777 000777775701     000777775701 000000031403 0            0   0   777 
IT1	*      *      031410 *            324000031410 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031410     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031410 *            000000031410 654321012345     *            000000031410 0            0   0   *   

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

*031410  MOVE 	15,034357

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031410 031410 031410 200640034357 777777777777 654321012345     654321012345 000000031410 0            0   0   777 
IT1	*      *      034357 *            200640034357 *                003300450004 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034357     *            *            0            0   0   *   
FT6	031411 031411 031411 200700034361 777777777777 777000123477     *            *            0            0   0   *   
ET2	*      *      *      *            003300450004 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123477 *            0            0   0   *   

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

*031411  MOVE 	16,034361

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031411 031411 031411 200700034361 777777777777 777000123477     777000123477 000000031410 0            0   0   777 
IT1	*      *      034361 *            200700034361 *                000777775701 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034361     *            *            0            0   0   *   
FT6	031412 031412 031412 456640000016 777777777777 707070707072     *            *            0            0   0   *   
ET2	*      *      *      *            000777775701 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707072 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000777 775701 C(E) =707070 707072 
FINAL
C(AC)=707070 707072 
----------                                                                                                                 SEQ 0216

*031412  ORCAM	15,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031412 031412 031412 456640000016 777777777777 707070707072     707070707072 000000031410 0            0   0   777 
IT1	*      *      000016 *            456640000016 *                777000123477 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     *            *            0            0   0   *   
FT6	*      000016 031413 *            777777777777 707070707072     *            *            0            0   0   *   
ET0	*      *      *      *            070000020405 *                *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 070000020405     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 707777757372     *            *            0            0   0   *   
ST2	*      *      *      707777757372 *            *                707070707072 *            0            0   0   *   
ST5	031413 031413 *      312640034357 *            *                777000123477 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 123477 C(E) =707070 707072 
FINAL
C(E) =707777 757372 
----------

*031413  CAME	15,034357

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031413 031413 031413 312640034357 777777777777 707777757372     777000123477 000000031410 0            0   0   777 
IT1	*      *      034357 *            312640034357 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034357     *            *            0            0   0   *   
FT6	*      034357 *      777000123477 777777777777 777000123477     *            *            0            0   0   *   
ET0	*      *      031414 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031414 *      031415 *            777777777777 *                *            *            0            0   0   *   

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

*031415  JUMPA	0,031416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031415 031415 031415 324000031416 777777777777 777000123477     777000123477 000000031410 0            0   0   777 
IT1	*      *      031416 *            324000031416 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031416     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031416 *            000000031416 654321012345     *            000000031416 0            0   0   *   

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

*031416  CAME	16,034362

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031416 031416 031416 312700034362 777777777777 654321012345     654321012345 000000031416 0            0   0   777 
IT1	*      *      034362 *            312700034362 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034362     *            *            0            0   0   *   
FT6	*      034362 *      707777757372 777777777777 707777757372     *            *            0            0   0   *   
ET0	*      *      031417 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   SEQ 0217
ST1	031417 *      031420 *            777777777777 *                *            *            0            0   0   *   

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

*031420  JUMPA	0,031421

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031420 031420 031420 324000031421 777777777777 707777757372     707777757372 000000031416 0            0   0   777 
IT1	*      *      031421 *            324000031421 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031421     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031421 *            000000031421 654321012345     *            000000031421 0            0   0   *   

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

*031421  MOVE 	15,034357

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031421 031421 031421 200640034357 777777777777 654321012345     654321012345 000000031421 0            0   0   777 
IT1	*      *      034357 *            200640034357 *                777000123477 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034357     *            *            0            0   0   *   
FT6	031422 031422 031422 200700034361 777777777777 777000123477     *            *            0            0   0   *   
ET2	*      *      *      *            777000123477 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031422  MOVE 	16,034361

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031422 031422 031422 200700034361 777777777777 777000123477     777000123477 000000031421 0            0   0   777 
IT1	*      *      034361 *            200700034361 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034361     *            *            0            0   0   *   
FT6	031423 031423 031423 457640000016 777777777777 707070707072     *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707072 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707777 757372 C(E) =707070 707072 
FINAL
C(AC)=707070 707072 
----------

*031423  ORCAB	15,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031423 031423 031423 457640000016 777777777777 707070707072     707070707072 000000031421 0            0   0   777 
IT1	*      *      000016 *            457640000016 *                777000123477 *            0            0   0   *   SEQ 0218
MEMST	*      *      *      *            *            000000000016     *            *            0            0   0   *   
FT6	*      000016 031424 *            777777777777 707070707072     *            *            0            0   0   *   
ET0	*      *      *      *            070000020405 *                *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 070000020405     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 707777757372     707777757372 *            0            0   0   *   
ST2	*      *      *      707777757372 *            *                707070707072 *            0            0   0   *   
ST5	031424 031424 *      312640034362 *            *                707777757372 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 123477 C(E) =707070 707072 
FINAL
C(AC)=707777 757372 C(E) =707777 757372 
----------

*031424  CAME	15,034362

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031424 031424 031424 312640034362 777777777777 707777757372     707777757372 000000031421 0            0   0   777 
IT1	*      *      034362 *            312640034362 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034362     *            *            0            0   0   *   
FT6	*      034362 *      707777757372 777777777777 707777757372     *            *            0            0   0   *   
ET0	*      *      031425 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031425 *      031426 *            777777777777 *                *            *            0            0   0   *   

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

*031426  JUMPA	0,031427

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031426 031426 031426 324000031427 777777777777 707777757372     707777757372 000000031421 0            0   0   777 
IT1	*      *      031427 *            324000031427 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031427     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031427 *            000000031427 654321012345     *            000000031427 0            0   0   *   

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

*031427  CAME	16,034362

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031427 031427 031427 312700034362 777777777777 654321012345     654321012345 000000031427 0            0   0   777 
IT1	*      *      034362 *            312700034362 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034362     *            *            0            0   0   *   
FT6	*      034362 *      707777757372 777777777777 707777757372     *            *            0            0   0   *   
ET0	*      *      031430 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031430 *      031431 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707777 757372 C(E) =707777 757372 
----------                                                                                                                 SEQ 0219

*031431  JUMPA	0,031432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031431 031431 031431 324000031432 777777777777 707777757372     707777757372 000000031427 0            0   0   777 
IT1	*      *      031432 *            324000031432 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031432     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031432 *            000000031432 654321012345     *            000000031432 0            0   0   *   

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

*031432  MOVE 	0,034343

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031432 031432 031432 200000034343 777777777777 654321012345     654321012345 000000031432 0            0   0   777 
IT1	*      *      034343 *            200000034343 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034343     *            *            0            0   0   *   
FT6	031433 031433 031433 461000707070 777777777777 777000123456     *            *            0            0   0   *   
ET2	*      *      *      *            654321012345 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123456 *            0            0   0   *   

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

*031433  SETCMI	0,707070

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031433 031433 031433 461000707070 777777777777 777000123456     777000123456 000000031432 0            0   0   777 
IT1	*      *      707070 *            461000707070 *                *            *            0            0   0   *   
ET2	*      *      031434 *            777777070707 000000707070     *            *            0            0   0   *   
ST1	031434 031434 *      312000034363 777777777777 777777070707     777777070707 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 123456 E    =000000 707070 
FINAL
C(AC)=777777 070707 
----------

*031434  CAME	0,034363

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031434 031434 031434 312000034363 777777777777 777777070707     777777070707 000000031432 0            0   0   777 
IT1	*      *      034363 *            312000034363 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034363     *            *            0            0   0   *   
FT6	*      034363 *      777777070707 777777777777 777777070707     *            *            0            0   0   *   
ET0	*      *      031435 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031435 *      031436 *            777777777777 *                *            *            0            0   0   *   

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

*031436  JUMPA	0,031437

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031436 031436 031436 324000031437 777777777777 777777070707     777777070707 000000031432 0            0   0   777 
IT1	*      *      031437 *            324000031437 *                *            *            0            0   0   *   
ET0	*      *      070707 *            777777070707 000000031437     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031437 *            000000031437 777777070707     *            000000031437 0            0   0   *   

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

*031437  MOVE 	17,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031437 031437 031437 200740034334 777777777777 777777070707     777777070707 000000031437 0            0   0   777 
IT1	*      *      034334 *            200740034334 *                654321012345 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	031440 031440 031440 474000000000 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            654321012345 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456765432 *            0            0   0   *   

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

*031440  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031440 031440 031440 474000000000 777777777777 123456765432     123456765432 000000031437 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                777777070707 *            0            0   0   *   
ET2	*      *      031441 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031441 031441 *      462000000017 *            777777777777     777777777777 *            0            0   0   *   

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

*031441  SETCMM	0,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031441 031441 031441 462000000017 777777777777 777777777777     777777777777 000000031437 0            0   0   777 
IT1	*      *      000017 *            462000000017 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     *            *            0            0   0   *   
FT6	*      000017 031442 *            777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            654321012345 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 654321012345     *            *            0            0   0   *   
ST2	*      *      *      654321012345 *            *                123456765432 *            0            0   0   *   
ST5	031442 031442 *      312000034301 *            *                777777777777 *            0            0   0   *   SEQ 0221

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

*031442  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031442 031442 031442 312000034301 777777777777 654321012345     777777777777 000000031437 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031443 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031443 *      031444 *            777777777777 *                *            *            0            0   0   *   

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

*031444  JUMPA	0,031445

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

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

*031445  CAME	17,034356

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031445 031445 031445 312740034356 777777777777 777777777777     777777777777 000000031445 0            0   0   777 
IT1	*      *      034356 *            312740034356 *                654321012345 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034356     *            *            0            0   0   *   
FT6	*      034356 *      654321012345 777777777777 654321012345     *            *            0            0   0   *   
ET0	*      *      031446 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031446 *      031447 *            777777777777 *                *            *            0            0   0   *   

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

*031447  JUMPA	0,031450

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031447 031447 031447 324000031450 777777777777 654321012345     654321012345 000000031445 0            0   0   777 
IT1	*      *      031450 *            324000031450 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031450     *            *            0            0   0   *   SEQ 0222
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031450 *            000000031450 777777777777     *            000000031450 0            0   0   *   

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

*031450  MOVE 	17,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031450 031450 031450 200740034334 777777777777 777777777777     777777777777 000000031450 0            0   0   777 
IT1	*      *      034334 *            200740034334 *                654321012345 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	031451 031451 031451 474000000000 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            654321012345 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456765432 *            0            0   0   *   

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

*031451  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031451 031451 031451 474000000000 777777777777 123456765432     123456765432 000000031450 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                777777777777 *            0            0   0   *   
ET2	*      *      031452 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031452 031452 *      463000000017 *            777777777777     *            *            0            0   0   *   

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

*031452  SETCMB	0,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031452 031452 031452 463000000017 777777777777 777777777777     777777777777 000000031450 0            0   0   777 
IT1	*      *      000017 *            463000000017 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     *            *            0            0   0   *   
FT6	*      000017 031453 *            777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            654321012345 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 654321012345     654321012345 *            0            0   0   *   
ST2	*      *      *      654321012345 *            *                123456765432 *            0            0   0   *   
ST5	031453 031453 *      312000034356 *            *                654321012345 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =123456 765432 
FINAL
C(AC)=654321 012345 C(E) =654321 012345 
----------
*031453  CAME	0,034356                                                                                                   SEQ 0223

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031453 031453 031453 312000034356 777777777777 654321012345     654321012345 000000031450 0            0   0   777 
IT1	*      *      034356 *            312000034356 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034356     *            *            0            0   0   *   
FT6	*      034356 *      654321012345 777777777777 654321012345     *            *            0            0   0   *   
ET0	*      *      031454 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031454 *      031455 *            777777777777 *                *            *            0            0   0   *   

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

*031455  JUMPA	0,031456

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

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

*031456  CAME	17,034356

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031456 031456 031456 312740034356 777777777777 654321012345     654321012345 000000031456 0            0   0   777 
IT1	*      *      034356 *            312740034356 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034356     *            *            0            0   0   *   
FT6	*      034356 *      654321012345 777777777777 654321012345     *            *            0            0   0   *   
ET0	*      *      031457 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031457 *      031460 *            777777777777 *                *            *            0            0   0   *   

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

*031460  JUMPA	0,031461

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031460 031460 031460 324000031461 777777777777 654321012345     654321012345 000000031456 0            0   0   777 
IT1	*      *      031461 *            324000031461 *                *            *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031461     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031461 *            000000031461 654321012345     *            000000031461 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=654321 012345 E    =000000 031461 
----------
*031461  MOVE 	16,034357                                                                                                  SEQ 0224

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031461 031461 031461 200700034357 777777777777 654321012345     654321012345 000000031461 0            0   0   777 
IT1	*      *      034357 *            200700034357 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034357     *            *            0            0   0   *   
FT6	031462 031462 031462 465700765401 777777777777 777000123477     *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123477 *            0            0   0   *   

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

*031462  ORCMI	16,765401

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031462 031462 031462 465700765401 777777777777 777000123477     777000123477 000000031461 0            0   0   777 
IT1	*      *      765401 *            465700765401 *                *            *            0            0   0   *   
ET0	*      *      031463 *            000000644000 000000765401     *            *            0            0   0   *   
ET2	031463 031463 *      312700034364 777777133777 000000644000     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777133777     777777133777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 123477 E    =000000 765401 
FINAL
C(AC)=777777 133777 
----------

*031463  CAME	16,034364

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031463 031463 031463 312700034364 777777777777 777777133777     777777133777 000000031461 0            0   0   777 
IT1	*      *      034364 *            312700034364 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034364     *            *            0            0   0   *   
FT6	*      034364 *      777777133777 777777777777 777777133777     *            *            0            0   0   *   
ET0	*      *      031464 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031464 *      031465 *            777777777777 *                *            *            0            0   0   *   

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

*031465  JUMPA	0,031466

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031465 031465 031465 324000031466 777777777777 777777133777     777777133777 000000031461 0            0   0   777 
IT1	*      *      031466 *            324000031466 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031466     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031466 *            000000031466 654321012345     *            000000031466 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=654321 012345 E    =000000 031466                                                                                    SEQ 0225
----------

*031466  MOVE 	15,034357

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031466 031466 031466 200640034357 777777777777 654321012345     654321012345 000000031466 0            0   0   777 
IT1	*      *      034357 *            200640034357 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034357     *            *            0            0   0   *   
FT6	031467 031467 031467 200700034361 777777777777 777000123477     *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123477 *            0            0   0   *   

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

*031467  MOVE 	16,034361

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031467 031467 031467 200700034361 777777777777 777000123477     777000123477 000000031466 0            0   0   777 
IT1	*      *      034361 *            200700034361 *                777777133777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034361     *            *            0            0   0   *   
FT6	031470 031470 031470 466700000015 777777777777 707070707072     *            *            0            0   0   *   
ET2	*      *      *      *            777777133777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707072 *            0            0   0   *   

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

*031470  ORCMM	16,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031470 031470 031470 466700000015 777777777777 707070707072     707070707072 000000031466 0            0   0   777 
IT1	*      *      000015 *            466700000015 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031471 *            777777777777 777000123477     *            *            0            0   0   *   
ET0	*      *      *      *            070000020405 *                *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 070000020405     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 707777757372     *            *            0            0   0   *   
ST2	*      *      *      707777757372 *            *                777000123477 *            0            0   0   *   
ST5	031471 031471 *      312700034361 *            *                707070707072 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707070 707072 C(E) =777000 123477 
FINAL
C(E) =707777 757372 
----------

*031471  CAME	16,034361

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031471 031471 031471 312700034361 777777777777 707777757372     707070707072 000000031466 0            0   0   77  SEQ 0226
IT1	*      *      034361 *            312700034361 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034361     *            *            0            0   0   *   
FT6	*      034361 *      707070707072 777777777777 707070707072     *            *            0            0   0   *   
ET0	*      *      031472 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031472 *      031473 *            777777777777 *                *            *            0            0   0   *   

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

*031473  JUMPA	0,031474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031473 031473 031473 324000031474 777777777777 707070707072     707070707072 000000031466 0            0   0   777 
IT1	*      *      031474 *            324000031474 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031474     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031474 *            000000031474 654321012345     *            000000031474 0            0   0   *   

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

*031474  CAME	15,034362

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031474 031474 031474 312640034362 777777777777 654321012345     654321012345 000000031474 0            0   0   777 
IT1	*      *      034362 *            312640034362 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034362     *            *            0            0   0   *   
FT6	*      034362 *      707777757372 777777777777 707777757372     *            *            0            0   0   *   
ET0	*      *      031475 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031475 *      031476 *            777777777777 *                *            *            0            0   0   *   

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

*031476  JUMPA	0,031477

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031476 031476 031476 324000031477 777777777777 707777757372     707777757372 000000031474 0            0   0   777 
IT1	*      *      031477 *            324000031477 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031477     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031477 *            000000031477 654321012345     *            000000031477 0            0   0   *   

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

*031477  MOVE 	15,034357

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031477 031477 031477 200640034357 777777777777 654321012345     654321012345 000000031477 0            0   0   77  SEQ 0227
IT1	*      *      034357 *            200640034357 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034357     *            *            0            0   0   *   
FT6	031500 031500 031500 200700034361 777777777777 777000123477     *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000123477 *            0            0   0   *   

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

*031500  MOVE 	16,034361

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031500 031500 031500 200700034361 777777777777 777000123477     777000123477 000000031477 0            0   0   777 
IT1	*      *      034361 *            200700034361 *                707070707072 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034361     *            *            0            0   0   *   
FT6	031501 031501 031501 467700000015 777777777777 707070707072     *            *            0            0   0   *   
ET2	*      *      *      *            707070707072 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031501  ORCMB	16,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031501 031501 031501 467700000015 777777777777 707070707072     707070707072 000000031477 0            0   0   777 
IT1	*      *      000015 *            467700000015 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031502 *            777777777777 777000123477     *            *            0            0   0   *   
ET0	*      *      *      *            070000020405 *                *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 070000020405     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 707777757372     707777757372 *            0            0   0   *   
ST2	*      *      *      707777757372 *            *                777000123477 *            0            0   0   *   
ST5	031502 031502 *      312700034362 *            *                707777757372 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707070 707072 C(E) =777000 123477 
FINAL
C(AC)=707777 757372 C(E) =707777 757372 
----------

*031502  CAME	16,034362

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031502 031502 031502 312700034362 777777777777 707777757372     707777757372 000000031477 0            0   0   777 
IT1	*      *      034362 *            312700034362 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034362     *            *            0            0   0   *   
FT6	*      034362 *      707777757372 777777777777 707777757372     *            *            0            0   0   *   
ET0	*      *      031503 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031503 *      031504 *            777777777777 *                *            *            0            0   0   *   SEQ 0228

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

*031504  JUMPA	0,031505

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031504 031504 031504 324000031505 777777777777 707777757372     707777757372 000000031477 0            0   0   777 
IT1	*      *      031505 *            324000031505 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031505     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031505 *            000000031505 654321012345     *            000000031505 0            0   0   *   

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

*031505  CAME	15,034362

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031505 031505 031505 312640034362 777777777777 654321012345     654321012345 000000031505 0            0   0   777 
IT1	*      *      034362 *            312640034362 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034362     *            *            0            0   0   *   
FT6	*      034362 *      707777757372 777777777777 707777757372     *            *            0            0   0   *   
ET0	*      *      031506 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031506 *      031507 *            777777777777 *                *            *            0            0   0   *   

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

*031507  JUMPA	0,031510

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031507 031507 031507 324000031510 777777777777 707777757372     707777757372 000000031505 0            0   0   777 
IT1	*      *      031510 *            324000031510 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031510     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031510 *            000000031510 654321012345     *            000000031510 0            0   0   *   

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

*031510  MOVE 	15,034365

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031510 031510 031510 200640034365 777777777777 654321012345     654321012345 000000031510 0            0   0   777 
IT1	*      *      034365 *            200640034365 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034365     *            *            0            0   0   *   
FT6	031511 031511 031511 471640770011 777777777777 707070070706     *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070070706 *            0            0   0   *   
                                                                                                                           SEQ 0229
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707777 757372 C(E) =707070 070706 
FINAL
C(AC)=707070 070706 
----------

*031511  ORCBI	15,770011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031511 031511 031511 471640770011 777777777777 707070070706     707070070706 000000031510 0            0   0   777 
IT1	*      *      770011 *            471640770011 *                *            *            0            0   0   *   
ET0	*      *      031512 *            000000070000 000000770011     *            *            0            0   0   *   
ET2	031512 031512 *      312640034366 777777707777 000000070000     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777707777     777777707777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707070 070706 E    =000000 770011 
FINAL
C(AC)=777777 707777 
----------

*031512  CAME	15,034366

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031512 031512 031512 312640034366 777777777777 777777707777     777777707777 000000031510 0            0   0   777 
IT1	*      *      034366 *            312640034366 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034366     *            *            0            0   0   *   
FT6	*      034366 *      777777707777 777777777777 777777707777     *            *            0            0   0   *   
ET0	*      *      031513 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031513 *      031514 *            777777777777 *                *            *            0            0   0   *   

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

*031514  JUMPA	0,031515

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031514 031514 031514 324000031515 777777777777 777777707777     777777707777 000000031510 0            0   0   777 
IT1	*      *      031515 *            324000031515 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031515     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031515 *            000000031515 654321012345     *            000000031515 0            0   0   *   

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

*031515  MOVE 	14,034367

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031515 031515 031515 200600034367 777777777777 654321012345     654321012345 000000031515 0            0   0   777 
IT1	*      *      034367 *            200600034367 *                000456063002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034367     *            *            0            0   0   *   
FT6	031516 031516 031516 200640034370 777777777777 123456770077     *            *            0            0   0   *   SEQ 0230
ET2	*      *      *      *            000456063002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456770077 *            0            0   0   *   

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

*031516  MOVE 	15,034370

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031516 031516 031516 200640034370 777777777777 123456770077     123456770077 000000031515 0            0   0   777 
IT1	*      *      034370 *            200640034370 *                777777707777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034370     *            *            0            0   0   *   
FT6	031517 031517 031517 472600000015 777777777777 777001123324     *            *            0            0   0   *   
ET2	*      *      *      *            777777707777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777001123324 *            0            0   0   *   

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

*031517  ORCBM	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031517 031517 031517 472600000015 777777777777 777001123324     777001123324 000000031515 0            0   0   777 
IT1	*      *      000015 *            472600000015 *                123456770077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031520 *            777777777777 777001123324     *            *            0            0   0   *   
ET0	*      *      *      *            123000120024 *                *            *            0            0   0   *   
ET2	*      *      *      *            654777657753 123000120024     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 654777657753     *            *            0            0   0   *   
ST2	*      *      *      654777657753 *            *                777001123324 *            0            0   0   *   
ST5	031520 031520 *      312600034367 *            *                123456770077 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 770077 C(E) =777001 123324 
FINAL
C(E) =654777 657753 
----------

*031520  CAME	14,034367

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031520 031520 031520 312600034367 777777777777 654777657753     123456770077 000000031515 0            0   0   777 
IT1	*      *      034367 *            312600034367 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034367     *            *            0            0   0   *   
FT6	*      034367 *      123456770077 777777777777 123456770077     *            *            0            0   0   *   
ET0	*      *      031521 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031521 *      031522 *            777777777777 *                *            *            0            0   0   *   

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

*031522  JUMPA	0,031523

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031522 031522 031522 324000031523 777777777777 123456770077     123456770077 000000031515 0            0   0   777 
IT1	*      *      031523 *            324000031523 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031523     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031523 *            000000031523 654321012345     *            000000031523 0            0   0   *   

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

*031523  CAME	15,034371

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031523 031523 031523 312640034371 777777777777 654321012345     654321012345 000000031523 0            0   0   777 
IT1	*      *      034371 *            312640034371 *                654777657753 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034371     *            *            0            0   0   *   
FT6	*      034371 *      654777657753 777777777777 654777657753     *            *            0            0   0   *   
ET0	*      *      031524 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031524 *      031525 *            777777777777 *                *            *            0            0   0   *   

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

*031525  JUMPA	0,031526

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

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

*031526  MOVE 	14,034367

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031526 031526 031526 200600034367 777777777777 654321012345     654321012345 000000031526 0            0   0   777 
IT1	*      *      034367 *            200600034367 *                123456770077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034367     *            *            0            0   0   *   
FT6	031527 031527 031527 200640034370 777777777777 123456770077     *            *            0            0   0   *   
ET2	*      *      *      *            123456770077 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031527  MOVE 	15,034370

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031527 031527 031527 200640034370 777777777777 123456770077     123456770077 000000031526 0            0   0   777 
IT1	*      *      034370 *            200640034370 *                654777657753 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034370     *            *            0            0   0   *   
FT6	031530 031530 031530 473600000015 777777777777 777001123324     *            *            0            0   0   *   
ET2	*      *      *      *            654777657753 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777001123324 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=654777 657753 C(E) =777001 123324 
FINAL
C(AC)=777001 123324 
----------

*031530  ORCBB	14,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031530 031530 031530 473600000015 777777777777 777001123324     777001123324 000000031526 0            0   0   777 
IT1	*      *      000015 *            473600000015 *                123456770077 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 031531 *            777777777777 777001123324     *            *            0            0   0   *   
ET0	*      *      *      *            123000120024 *                *            *            0            0   0   *   
ET2	*      *      *      *            654777657753 123000120024     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 654777657753     654777657753 *            0            0   0   *   
ST2	*      *      *      654777657753 *            *                777001123324 *            0            0   0   *   
ST5	031531 031531 *      312600034371 *            *                654777657753 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 770077 C(E) =777001 123324 
FINAL
C(AC)=654777 657753 C(E) =654777 657753 
----------

*031531  CAME	14,034371

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031531 031531 031531 312600034371 777777777777 654777657753     654777657753 000000031526 0            0   0   777 
IT1	*      *      034371 *            312600034371 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034371     *            *            0            0   0   *   
FT6	*      034371 *      654777657753 777777777777 654777657753     *            *            0            0   0   *   
ET0	*      *      031532 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031532 *      031533 *            777777777777 *                *            *            0            0   0   *   

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

*031533  JUMPA	0,031534
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0233
IT0	031533 031533 031533 324000031534 777777777777 654777657753     654777657753 000000031526 0            0   0   777 
IT1	*      *      031534 *            324000031534 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031534     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031534 *            000000031534 654321012345     *            000000031534 0            0   0   *   

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

*031534  CAME	15,034371

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031534 031534 031534 312640034371 777777777777 654321012345     654321012345 000000031534 0            0   0   777 
IT1	*      *      034371 *            312640034371 *                654777657753 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034371     *            *            0            0   0   *   
FT6	*      034371 *      654777657753 777777777777 654777657753     *            *            0            0   0   *   
ET0	*      *      031535 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031535 *      031536 *            777777777777 *                *            *            0            0   0   *   

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

*031536  JUMPA	0,031537

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031536 031536 031536 324000031537 777777777777 654777657753     654777657753 000000031534 0            0   0   777 
IT1	*      *      031537 *            324000031537 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031537     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031537 *            000000031537 654321012345     *            000000031537 0            0   0   *   

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

*031537  MOVE 	17,034336

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031537 031537 031537 200740034336 777777777777 654321012345     654321012345 000000031537 0            0   0   777 
IT1	*      *      034336 *            200740034336 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034336     *            *            0            0   0   *   
FT6	031540 031540 031540 501740777000 777777777777 707070123456     *            *            0            0   0   *   
ET2	*      *      *      *            654321012345 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070123456 *            0            0   0   *   

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

*031540  HLLI	17,777000
                                                                                                                           SEQ 0234
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031540 031540 031540 501740777000 777777777777 707070123456     707070123456 000000031537 0            0   0   777 
IT1	*      *      777000 *            501740777000 *                *            *            0            0   0   *   
ET2	*      *      031541 *            000000123456 000000777000     *            *            0            0   0   *   
ST1	031541 031541 *      302740123456 777777777777 000000123456     000000123456 *            0            0   0   *   

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

*031541  CAIE	17,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031541 031541 031541 302740123456 777777777777 000000123456     000000123456 000000031537 0            0   0   777 
IT1	*      *      123456 *            302740123456 *                *            *            0            0   0   *   
ET0	*      *      031542 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031542 *      031543 *            777777777777 *                *            *            0            0   0   *   

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

*031543  JUMPA	0,031544

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031543 031543 031543 324000031544 777777777777 000000123456     000000123456 000000031537 0            0   0   777 
IT1	*      *      031544 *            324000031544 *                654321012345 *            0            0   0   *   
ET0	*      *      012345 *            654321012345 000000031544     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031544 *            000000031544 654321012345     *            000000031544 0            0   0   *   

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

*031544  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031544 031544 031544 474000000000 777777777777 654321012345     654321012345 000000031544 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                *            *            0            0   0   *   
ET2	*      *      031545 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031545 031545 *      200100034334 *            777777777777     777777777777 *            0            0   0   *   

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

*031545  MOVE 	2,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031545 031545 031545 200100034334 777777777777 777777777777     777777777777 000000031544 0            0   0   77  SEQ 0235
IT1	*      *      034334 *            200100034334 *                153512775132 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	031546 031546 031546 503000000002 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            153512775132 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456765432 *            0            0   0   *   

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

*031546  HLLS	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031546 031546 031546 503000000002 777777777777 123456765432     123456765432 000000031544 0            0   0   777 
IT1	*      *      000002 *            503000000002 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031547 *            777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST2	*      *      *      123456765432 *            *                123456765432 *            0            0   0   *   
ST5	031547 031547 *      312000034301 *            *                777777777777 *            0            0   0   *   

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

*031547  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031547 031547 031547 312000034301 777777777777 123456765432     777777777777 000000031544 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031550 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031550 *      031551 *            777777777777 *                *            *            0            0   0   *   

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

*031551  JUMPA	0,031552

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031551 031551 031551 324000031552 777777777777 777777777777     777777777777 000000031544 0            0   0   777 
IT1	*      *      031552 *            324000031552 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031552     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031552 *            000000031552 777777777777     *            000000031552 0            0   0   *   

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

*031552  CAME	2,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031552 031552 031552 312100034334 777777777777 777777777777     777777777777 000000031552 0            0   0   777 
IT1	*      *      034334 *            312100034334 *                123456765432 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	*      034334 *      123456765432 777777777777 123456765432     *            *            0            0   0   *   
ET0	*      *      031553 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031553 *      031554 *            777777777777 *                *            *            0            0   0   *   

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

*031554  JUMPA	0,031555

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031554 031554 031554 324000031555 777777777777 123456765432     123456765432 000000031552 0            0   0   777 
IT1	*      *      031555 *            324000031555 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031555     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031555 *            000000031555 777777777777     *            000000031555 0            0   0   *   

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

*031555  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031555 031555 031555 474040000000 777777777777 777777777777     777777777777 000000031555 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                153512775132 *            0            0   0   *   
ET2	*      *      031556 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031556 031556 *      200100034334 *            777777777777     777777777777 *            0            0   0   *   

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

*031556  MOVE 	2,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031556 031556 031556 200100034334 777777777777 777777777777     777777777777 000000031555 0            0   0   777 
IT1	*      *      034334 *            200100034334 *                123456765432 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	031557 031557 031557 503040000002 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031557  HLLS	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031557 031557 031557 503040000002 777777777777 123456765432     123456765432 000000031555 0            0   0   777 
IT1	*      *      000002 *            503040000002 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031560 *            777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456765432 *            0            0   0   *   
ST2	*      *      *      123456765432 *            *                *            *            0            0   0   *   
ST5	031560 031560 *      312040034334 *            *                *            *            0            0   0   *   

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

*031560  CAME	1,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031560 031560 031560 312040034334 777777777777 123456765432     123456765432 000000031555 0            0   0   777 
IT1	*      *      034334 *            312040034334 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	*      034334 *      123456765432 777777777777 123456765432     *            *            0            0   0   *   
ET0	*      *      031561 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031561 *      031562 *            777777777777 *                *            *            0            0   0   *   

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

*031562  JUMPA	0,031563

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031562 031562 031562 324000031563 777777777777 123456765432     123456765432 000000031555 0            0   0   777 
IT1	*      *      031563 *            324000031563 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031563     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031563 *            000000031563 777777777777     *            000000031563 0            0   0   *   

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

*031563  CAME	2,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031563 031563 031563 312100034334 777777777777 777777777777     777777777777 000000031563 0            0   0   777 
IT1	*      *      034334 *            312100034334 *                123456765432 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	*      034334 *      123456765432 777777777777 123456765432     *            *            0            0   0   *   SEQ 0238
ET0	*      *      031564 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031564 *      031565 *            777777777777 *                *            *            0            0   0   *   

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

*031565  JUMPA	0,031566

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031565 031565 031565 324000031566 777777777777 123456765432     123456765432 000000031563 0            0   0   777 
IT1	*      *      031566 *            324000031566 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031566     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031566 *            000000031566 777777777777     *            000000031566 0            0   0   *   

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

*031566  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031566 031566 031566 474000000000 777777777777 777777777777     777777777777 000000031566 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                *            *            0            0   0   *   
ET2	*      *      031567 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031567 031567 *      200140034372 *            777777777777     *            *            0            0   0   *   

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

*031567  MOVE 	3,034372

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031567 031567 031567 200140034372 777777777777 777777777777     777777777777 000000031566 0            0   0   777 
IT1	*      *      034372 *            200140034372 *                000570004200 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034372     *            *            0            0   0   *   
FT6	031570 031570 031570 507000000003 777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            000570004200 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707070 *            0            0   0   *   

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

*031570  HRLS	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031570 031570 031570 507000000003 777777777777 123456707070     123456707070 000000031566 0            0   0   777 
IT1	*      *      000003 *            507000000003 *                777777777777 *            0            0   0   *   SEQ 0239
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031571 *            777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            777777707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 707070707070     *            *            0            0   0   *   
ST2	*      *      *      707070707070 *            *                123456707070 *            0            0   0   *   
ST5	031571 031571 *      312000034301 *            *                777777777777 *            0            0   0   *   

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

*031571  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031571 031571 031571 312000034301 777777777777 707070707070     777777777777 000000031566 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031572 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031572 *      031573 *            777777777777 *                *            *            0            0   0   *   

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

*031573  JUMPA	0,031574

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031573 031573 031573 324000031574 777777777777 777777777777     777777777777 000000031566 0            0   0   777 
IT1	*      *      031574 *            324000031574 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031574     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031574 *            000000031574 777777777777     *            000000031574 0            0   0   *   

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

*031574  CAME	3,034373

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031574 031574 031574 312140034373 777777777777 777777777777     777777777777 000000031574 0            0   0   777 
IT1	*      *      034373 *            312140034373 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034373     *            *            0            0   0   *   
FT6	*      034373 *      707070707070 777777777777 707070707070     *            *            0            0   0   *   
ET0	*      *      031575 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031575 *      031576 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707070 707070 C(E) =707070 707070 
----------
                                                                                                                           SEQ 0240
*031576  JUMPA	0,031577

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031576 031576 031576 324000031577 777777777777 707070707070     707070707070 000000031574 0            0   0   777 
IT1	*      *      031577 *            324000031577 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031577     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031577 *            000000031577 777777777777     *            000000031577 0            0   0   *   

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

*031577  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031577 031577 031577 474040000000 777777777777 777777777777     777777777777 000000031577 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                123456765432 *            0            0   0   *   
ET2	*      *      031600 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031600 031600 *      200140034372 *            777777777777     777777777777 *            0            0   0   *   

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

*031600  MOVE 	3,034372

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031600 031600 031600 200140034372 777777777777 777777777777     777777777777 000000031577 0            0   0   777 
IT1	*      *      034372 *            200140034372 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034372     *            *            0            0   0   *   
FT6	031601 031601 031601 507040000003 777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            707070707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707070 *            0            0   0   *   

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

*031601  HRLS	1,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031601 031601 031601 507040000003 777777777777 123456707070     123456707070 000000031577 0            0   0   777 
IT1	*      *      000003 *            507040000003 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031602 *            777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            777777707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 707070707070     707070707070 *            0            0   0   *   
ST2	*      *      *      707070707070 *            *                123456707070 *            0            0   0   *   
ST5	031602 031602 *      312040034373 *            *                707070707070 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0241
C(AC)=777777 777777 C(E) =123456 707070 
FINAL
C(AC)=707070 707070 C(E) =707070 707070 
----------

*031602  CAME	1,034373

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031602 031602 031602 312040034373 777777777777 707070707070     707070707070 000000031577 0            0   0   777 
IT1	*      *      034373 *            312040034373 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034373     *            *            0            0   0   *   
FT6	*      034373 *      707070707070 777777777777 707070707070     *            *            0            0   0   *   
ET0	*      *      031603 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031603 *      031604 *            777777777777 *                *            *            0            0   0   *   

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

*031604  JUMPA	0,031605

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031604 031604 031604 324000031605 777777777777 707070707070     707070707070 000000031577 0            0   0   777 
IT1	*      *      031605 *            324000031605 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031605     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031605 *            000000031605 777777777777     *            000000031605 0            0   0   *   

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

*031605  CAME	3,034373

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031605 031605 031605 312140034373 777777777777 777777777777     777777777777 000000031605 0            0   0   777 
IT1	*      *      034373 *            312140034373 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034373     *            *            0            0   0   *   
FT6	*      034373 *      707070707070 777777777777 707070707070     *            *            0            0   0   *   
ET0	*      *      031606 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031606 *      031607 *            777777777777 *                *            *            0            0   0   *   

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

*031607  JUMPA	0,031610

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031607 031607 031607 324000031610 777777777777 707070707070     707070707070 000000031605 0            0   0   777 
IT1	*      *      031610 *            324000031610 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031610     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031610 *            000000031610 777777777777     *            000000031610 0            0   0   *   
                                                                                                                           SEQ 0242
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 E    =000000 031610 
----------

*031610  MOVE 	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031610 031610 031610 200040034374 777777777777 777777777777     777777777777 000000031610 0            0   0   777 
IT1	*      *      034374 *            200040034374 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	031611 031611 031611 200100034375 777777777777 123456123422     *            *            0            0   0   *   
ET2	*      *      *      *            707070707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456123422 *            0            0   0   *   

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

*031611  MOVE 	2,034375

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031611 031611 031611 200100034375 777777777777 123456123422     123456123422 000000031610 0            0   0   777 
IT1	*      *      034375 *            200100034375 *                123456765432 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034375     *            *            0            0   0   *   
FT6	031612 031612 031612 512040000002 777777777777 707070717171     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070717171 *            0            0   0   *   

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

*031612  HLLZM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031612 031612 031612 512040000002 777777777777 707070717171     707070717171 000000031610 0            0   0   777 
IT1	*      *      000002 *            512040000002 *                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031613 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ET2	*      *      *      *            123456777777 123456123422     *            000000000002 0            0   0   *   
ST1	*      *      *      *            777777777777 123456000000     *            *            0            0   0   *   
ST2	*      *      *      123456000000 *            *                707070717171 *            0            0   0   *   
ST5	031613 031613 *      312040034374 *            *                123456123422 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 123422 C(E) =707070 717171 
FINAL
C(E) =123456 000000 
----------
*031613  CAME	1,034374                                                                                                   SEQ 0243

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031613 031613 031613 312040034374 777777777777 123456000000     123456123422 000000000002 0            0   0   777 
IT1	*      *      034374 *            312040034374 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	*      034374 *      123456123422 777777777777 123456123422     *            *            0            0   0   *   
ET0	*      *      031614 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031614 *      031615 *            777777777777 *                *            *            0            0   0   *   

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

*031615  JUMPA	0,031616

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031615 031615 031615 324000031616 777777777777 123456123422     123456123422 000000000002 0            0   0   777 
IT1	*      *      031616 *            324000031616 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031616     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031616 *            000000031616 777777777777     *            000000031616 0            0   0   *   

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

*031616  CAME	2,034330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031616 031616 031616 312100034330 777777777777 777777777777     777777777777 000000031616 0            0   0   777 
IT1	*      *      034330 *            312100034330 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034330     *            *            0            0   0   *   
FT6	*      034330 *      123456000000 777777777777 123456000000     *            *            0            0   0   *   
ET0	*      *      031617 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031617 *      031620 *            777777777777 *                *            *            0            0   0   *   

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

*031620  JUMPA	0,031621

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031620 031620 031620 324000031621 777777777777 123456000000     123456000000 000000031616 0            0   0   777 
IT1	*      *      031621 *            324000031621 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031621     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031621 *            000000031621 777777777777     *            000000031621 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 E    =000000 031621 
----------
*031621  SETO 	0,000000                                                                                                   SEQ 0244

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031621 031621 031621 474000000000 777777777777 777777777777     777777777777 000000031621 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                *            *            0            0   0   *   
ET2	*      *      031622 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031622 031622 *      200740034372 *            777777777777     *            *            0            0   0   *   

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

*031622  MOVE 	17,034372

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031622 031622 031622 200740034372 777777777777 777777777777     777777777777 000000031621 0            0   0   777 
IT1	*      *      034372 *            200740034372 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034372     *            *            0            0   0   *   
FT6	031623 031623 031623 513000000017 777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707070 *            0            0   0   *   

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

*031623  HLLZS	0,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031623 031623 031623 513000000017 777777777777 123456707070     123456707070 000000031621 0            0   0   777 
IT1	*      *      000017 *            513000000017 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     *            *            0            0   0   *   
FT6	*      000017 031624 *            777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            123456777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123456000000     *            *            0            0   0   *   
ST2	*      *      *      123456000000 *            *                123456707070 *            0            0   0   *   
ST5	031624 031624 *      312000034301 *            *                777777777777 *            0            0   0   *   

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

*031624  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031624 031624 031624 312000034301 777777777777 123456000000     777777777777 000000031621 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031625 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031625 *      031626 *            777777777777 *                *            *            0            0   0   *   SEQ 0245

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

*031626  JUMPA	0,031627

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031626 031626 031626 324000031627 777777777777 777777777777     777777777777 000000031621 0            0   0   777 
IT1	*      *      031627 *            324000031627 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031627     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031627 *            000000031627 777777777777     *            000000031627 0            0   0   *   

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

*031627  CAME	17,034330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031627 031627 031627 312740034330 777777777777 777777777777     777777777777 000000031627 0            0   0   777 
IT1	*      *      034330 *            312740034330 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034330     *            *            0            0   0   *   
FT6	*      034330 *      123456000000 777777777777 123456000000     *            *            0            0   0   *   
ET0	*      *      031630 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031630 *      031631 *            777777777777 *                *            *            0            0   0   *   

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

*031631  JUMPA	0,031632

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031631 031631 031631 324000031632 777777777777 123456000000     123456000000 000000031627 0            0   0   777 
IT1	*      *      031632 *            324000031632 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031632     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031632 *            000000031632 777777777777     *            000000031632 0            0   0   *   

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

*031632  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031632 031632 031632 474040000000 777777777777 777777777777     777777777777 000000031632 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                123456123422 *            0            0   0   *   
ET2	*      *      031633 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031633 031633 *      200740034372 *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0246
C(AC)=123456 123422 C(E) =777777 777777 
FINAL
C(AC)=777777 777777 
----------

*031633  MOVE 	17,034372

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031633 031633 031633 200740034372 777777777777 777777777777     777777777777 000000031632 0            0   0   777 
IT1	*      *      034372 *            200740034372 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034372     *            *            0            0   0   *   
FT6	031634 031634 031634 513040000017 777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707070 *            0            0   0   *   

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

*031634  HLLZS	1,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031634 031634 031634 513040000017 777777777777 123456707070     123456707070 000000031632 0            0   0   777 
IT1	*      *      000017 *            513040000017 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     *            *            0            0   0   *   
FT6	*      000017 031635 *            777777777777 123456707070     *            *            0            0   0   *   
ET2	*      *      *      *            123456777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123456000000     123456000000 *            0            0   0   *   
ST2	*      *      *      123456000000 *            *                123456707070 *            0            0   0   *   
ST5	031635 031635 *      312040034330 *            *                123456000000 *            0            0   0   *   

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

*031635  CAME	1,034330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031635 031635 031635 312040034330 777777777777 123456000000     123456000000 000000031632 0            0   0   777 
IT1	*      *      034330 *            312040034330 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034330     *            *            0            0   0   *   
FT6	*      034330 *      123456000000 777777777777 123456000000     *            *            0            0   0   *   
ET0	*      *      031636 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031636 *      031637 *            777777777777 *                *            *            0            0   0   *   

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

*031637  JUMPA	0,031640
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0247
IT0	031637 031637 031637 324000031640 777777777777 123456000000     123456000000 000000031632 0            0   0   777 
IT1	*      *      031640 *            324000031640 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031640     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031640 *            000000031640 777777777777     *            000000031640 0            0   0   *   

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

*031640  CAME	17,034330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031640 031640 031640 312740034330 777777777777 777777777777     777777777777 000000031640 0            0   0   777 
IT1	*      *      034330 *            312740034330 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034330     *            *            0            0   0   *   
FT6	*      034330 *      123456000000 777777777777 123456000000     *            *            0            0   0   *   
ET0	*      *      031641 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031641 *      031642 *            777777777777 *                *            *            0            0   0   *   

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

*031642  JUMPA	0,031643

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031642 031642 031642 324000031643 777777777777 123456000000     123456000000 000000031640 0            0   0   777 
IT1	*      *      031643 *            324000031643 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031643     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031643 *            000000031643 777777777777     *            000000031643 0            0   0   *   

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

*031643  MOVE 	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031643 031643 031643 200040034374 777777777777 777777777777     777777777777 000000031643 0            0   0   777 
IT1	*      *      034374 *            200040034374 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	031644 031644 031644 200100034375 777777777777 123456123422     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456123422 *            0            0   0   *   

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

*031644  MOVE 	2,034375
                                                                                                                           SEQ 0248
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031644 031644 031644 200100034375 777777777777 123456123422     123456123422 000000031643 0            0   0   777 
IT1	*      *      034375 *            200100034375 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034375     *            *            0            0   0   *   
FT6	031645 031645 031645 516040000002 777777777777 707070717171     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070717171 *            0            0   0   *   

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

*031645  HRLZM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031645 031645 031645 516040000002 777777777777 707070717171     707070717171 000000031643 0            0   0   777 
IT1	*      *      000002 *            516040000002 *                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031646 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 123456123422     *            000000000002 0            0   0   *   
ST1	*      *      *      *            *            123422000000     *            *            0            0   0   *   
ST2	*      *      *      123422000000 *            *                707070717171 *            0            0   0   *   
ST5	031646 031646 *      312040034374 *            *                123456123422 *            0            0   0   *   

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

*031646  CAME	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031646 031646 031646 312040034374 777777777777 123422000000     123456123422 000000000002 0            0   0   777 
IT1	*      *      034374 *            312040034374 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	*      034374 *      123456123422 777777777777 123456123422     *            *            0            0   0   *   
ET0	*      *      031647 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031647 *      031650 *            777777777777 *                *            *            0            0   0   *   

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

*031650  JUMPA	0,031651

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031650 031650 031650 324000031651 777777777777 123456123422     123456123422 000000000002 0            0   0   777 
IT1	*      *      031651 *            324000031651 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031651     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031651 *            000000031651 777777777777     *            000000031651 0            0   0   *   
                                                                                                                           SEQ 0249
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 E    =000000 031651 
----------

*031651  CAME	2,034376

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031651 031651 031651 312100034376 777777777777 777777777777     777777777777 000000031651 0            0   0   777 
IT1	*      *      034376 *            312100034376 *                123422000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034376     *            *            0            0   0   *   
FT6	*      034376 *      123422000000 777777777777 123422000000     *            *            0            0   0   *   
ET0	*      *      031652 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031652 *      031653 *            777777777777 *                *            *            0            0   0   *   

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

*031653  JUMPA	0,031654

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031653 031653 031653 324000031654 777777777777 123422000000     123422000000 000000031651 0            0   0   777 
IT1	*      *      031654 *            324000031654 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031654     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031654 *            000000031654 777777777777     *            000000031654 0            0   0   *   

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

*031654  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031654 031654 031654 474000000000 777777777777 777777777777     777777777777 000000031654 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                *            *            0            0   0   *   
ET2	*      *      031655 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031655 031655 *      200700034377 *            777777777777     *            *            0            0   0   *   

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

*031655  MOVE 	16,034377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031655 031655 031655 200700034377 777777777777 777777777777     777777777777 000000031654 0            0   0   777 
IT1	*      *      034377 *            200700034377 *                707777757372 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034377     *            *            0            0   0   *   
FT6	031656 031656 031656 517000000016 777777777777 123456707076     *            *            0            0   0   *   
ET2	*      *      *      *            707777757372 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707076 *            0            0   0   *   
                                                                                                                           SEQ 0250
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=707777 757372 C(E) =123456 707076 
FINAL
C(AC)=123456 707076 
----------

*031656  HRLZS	0,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031656 031656 031656 517000000016 777777777777 123456707076     123456707076 000000031654 0            0   0   777 
IT1	*      *      000016 *            517000000016 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     *            *            0            0   0   *   
FT6	*      000016 031657 *            777777777777 123456707076     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            707076000000     *            *            0            0   0   *   
ST2	*      *      *      707076000000 *            *                123456707076 *            0            0   0   *   
ST5	031657 031657 *      312000034301 *            *                777777777777 *            0            0   0   *   

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

*031657  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031657 031657 031657 312000034301 777777777777 707076000000     777777777777 000000031654 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031660 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031660 *      031661 *            777777777777 *                *            *            0            0   0   *   

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

*031661  JUMPA	0,031662

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031661 031661 031661 324000031662 777777777777 777777777777     777777777777 000000031654 0            0   0   777 
IT1	*      *      031662 *            324000031662 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031662     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031662 *            000000031662 777777777777     *            000000031662 0            0   0   *   

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

*031662  CAME	16,034400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031662 031662 031662 312700034400 777777777777 777777777777     777777777777 000000031662 0            0   0   77  SEQ 0251
IT1	*      *      034400 *            312700034400 *                707076000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034400     *            *            0            0   0   *   
FT6	*      034400 *      707076000000 777777777777 707076000000     *            *            0            0   0   *   
ET0	*      *      031663 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031663 *      031664 *            777777777777 *                *            *            0            0   0   *   

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

*031664  JUMPA	0,031665

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031664 031664 031664 324000031665 777777777777 707076000000     707076000000 000000031662 0            0   0   777 
IT1	*      *      031665 *            324000031665 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031665     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031665 *            000000031665 777777777777     *            000000031665 0            0   0   *   

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

*031665  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031665 031665 031665 474040000000 777777777777 777777777777     777777777777 000000031665 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                123456123422 *            0            0   0   *   
ET2	*      *      031666 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031666 031666 *      200700034377 *            777777777777     777777777777 *            0            0   0   *   

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

*031666  MOVE 	16,034377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031666 031666 031666 200700034377 777777777777 777777777777     777777777777 000000031665 0            0   0   777 
IT1	*      *      034377 *            200700034377 *                707076000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034377     *            *            0            0   0   *   
FT6	031667 031667 031667 517040000016 777777777777 123456707076     *            *            0            0   0   *   
ET2	*      *      *      *            707076000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707076 *            0            0   0   *   

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

*031667  HRLZS	1,000016
                                                                                                                           SEQ 0252
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031667 031667 031667 517040000016 777777777777 123456707076     123456707076 000000031665 0            0   0   777 
IT1	*      *      000016 *            517040000016 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     *            *            0            0   0   *   
FT6	*      000016 031670 *            777777777777 123456707076     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            707076000000     707076000000 *            0            0   0   *   
ST2	*      *      *      707076000000 *            *                123456707076 *            0            0   0   *   
ST5	031670 031670 *      312040034400 *            *                707076000000 *            0            0   0   *   

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

*031670  CAME	1,034400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031670 031670 031670 312040034400 777777777777 707076000000     707076000000 000000031665 0            0   0   777 
IT1	*      *      034400 *            312040034400 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034400     *            *            0            0   0   *   
FT6	*      034400 *      707076000000 777777777777 707076000000     *            *            0            0   0   *   
ET0	*      *      031671 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031671 *      031672 *            777777777777 *                *            *            0            0   0   *   

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

*031672  JUMPA	0,031673

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031672 031672 031672 324000031673 777777777777 707076000000     707076000000 000000031665 0            0   0   777 
IT1	*      *      031673 *            324000031673 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031673     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031673 *            000000031673 777777777777     *            000000031673 0            0   0   *   

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

*031673  CAME	16,034400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031673 031673 031673 312700034400 777777777777 777777777777     777777777777 000000031673 0            0   0   777 
IT1	*      *      034400 *            312700034400 *                707076000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034400     *            *            0            0   0   *   
FT6	*      034400 *      707076000000 777777777777 707076000000     *            *            0            0   0   *   
ET0	*      *      031674 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031674 *      031675 *            777777777777 *                *            *            0            0   0   *   

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

*031675  JUMPA	0,031676

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031675 031675 031675 324000031676 777777777777 707076000000     707076000000 000000031673 0            0   0   777 
IT1	*      *      031676 *            324000031676 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031676     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031676 *            000000031676 777777777777     *            000000031676 0            0   0   *   

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

*031676  MOVE 	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031676 031676 031676 200040034374 777777777777 777777777777     777777777777 000000031676 0            0   0   777 
IT1	*      *      034374 *            200040034374 *                707076000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	031677 031677 031677 200100034375 777777777777 123456123422     *            *            0            0   0   *   
ET2	*      *      *      *            707076000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456123422 *            0            0   0   *   

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

*031677  MOVE 	2,034375

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031677 031677 031677 200100034375 777777777777 123456123422     123456123422 000000031676 0            0   0   777 
IT1	*      *      034375 *            200100034375 *                123422000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034375     *            *            0            0   0   *   
FT6	031700 031700 031700 522040000002 777777777777 707070717171     *            *            0            0   0   *   
ET2	*      *      *      *            123422000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070717171 *            0            0   0   *   

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

*031700  HLLOM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031700 031700 031700 522040000002 777777777777 707070717171     707070717171 000000031676 0            0   0   777 
IT1	*      *      000002 *            522040000002 *                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031701 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ET2	*      *      *      *            123456777777 123456123422     *            000000000002 0            0   0   *   SEQ 0254
ST1	*      *      *      *            777777777777 123456777777     *            *            0            0   0   *   
ST2	*      *      *      123456777777 *            *                707070717171 *            0            0   0   *   
ST5	031701 031701 *      312040034374 *            *                123456123422 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 123422 C(E) =707070 717171 
FINAL
C(E) =123456 777777 
----------

*031701  CAME	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031701 031701 031701 312040034374 777777777777 123456777777     123456123422 000000000002 0            0   0   777 
IT1	*      *      034374 *            312040034374 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	*      034374 *      123456123422 777777777777 123456123422     *            *            0            0   0   *   
ET0	*      *      031702 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031702 *      031703 *            777777777777 *                *            *            0            0   0   *   

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

*031703  JUMPA	0,031704

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031703 031703 031703 324000031704 777777777777 123456123422     123456123422 000000000002 0            0   0   777 
IT1	*      *      031704 *            324000031704 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031704     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031704 *            000000031704 777777777777     *            000000031704 0            0   0   *   

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

*031704  CAME	2,034401

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031704 031704 031704 312100034401 777777777777 777777777777     777777777777 000000031704 0            0   0   777 
IT1	*      *      034401 *            312100034401 *                123456777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034401     *            *            0            0   0   *   
FT6	*      034401 *      123456777777 777777777777 123456777777     *            *            0            0   0   *   
ET0	*      *      031705 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031705 *      031706 *            777777777777 *                *            *            0            0   0   *   

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

*031706  JUMPA	0,031707
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0255
IT0	031706 031706 031706 324000031707 777777777777 123456777777     123456777777 000000031704 0            0   0   777 
IT1	*      *      031707 *            324000031707 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031707     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031707 *            000000031707 777777777777     *            000000031707 0            0   0   *   

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

*031707  MOVE 	15,034402

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031707 031707 031707 200640034402 777777777777 777777777777     777777777777 000000031707 0            0   0   777 
IT1	*      *      034402 *            200640034402 *                654777657753 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034402     *            *            0            0   0   *   
FT6	031710 031710 031710 200700034403 777777777777 123456135724     *            *            0            0   0   *   
ET2	*      *      *      *            654777657753 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456135724 *            0            0   0   *   

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

*031710  MOVE 	16,034403

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031710 031710 031710 200700034403 777777777777 123456135724     123456135724 000000031707 0            0   0   777 
IT1	*      *      034403 *            200700034403 *                707076000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034403     *            *            0            0   0   *   
FT6	031711 031711 031711 524640000016 777777777777 765432246135     *            *            0            0   0   *   
ET2	*      *      *      *            707076000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                765432246135 *            0            0   0   *   

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

*031711  HRLO 	15,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031711 031711 031711 524640000016 777777777777 765432246135     765432246135 000000031707 0            0   0   777 
IT1	*      *      000016 *            524640000016 *                123456135724 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     *            *            0            0   0   *   
FT6	031712 031712 031712 312640034404 777777777777 765432246135     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            246135777777     246135777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 135724 C(E) =765432 246135 
FINAL
C(AC)=246135 777777                                                                                                        SEQ 0256
----------

*031712  CAME	15,034404

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031712 031712 031712 312640034404 777777777777 246135777777     246135777777 000000031707 0            0   0   777 
IT1	*      *      034404 *            312640034404 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034404     *            *            0            0   0   *   
FT6	*      034404 *      246135777777 777777777777 246135777777     *            *            0            0   0   *   
ET0	*      *      031713 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031713 *      031714 *            777777777777 *                *            *            0            0   0   *   

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

*031714  JUMPA	0,031715

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031714 031714 031714 324000031715 777777777777 246135777777     246135777777 000000031707 0            0   0   777 
IT1	*      *      031715 *            324000031715 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031715     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031715 *            000000031715 777777777777     *            000000031715 0            0   0   *   

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

*031715  CAME	16,034403

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031715 031715 031715 312700034403 777777777777 777777777777     777777777777 000000031715 0            0   0   777 
IT1	*      *      034403 *            312700034403 *                765432246135 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034403     *            *            0            0   0   *   
FT6	*      034403 *      765432246135 777777777777 765432246135     *            *            0            0   0   *   
ET0	*      *      031716 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031716 *      031717 *            777777777777 *                *            *            0            0   0   *   

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

*031717  JUMPA	0,031720

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031717 031717 031717 324000031720 777777777777 765432246135     765432246135 000000031715 0            0   0   777 
IT1	*      *      031720 *            324000031720 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031720     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031720 *            000000031720 777777777777     *            000000031720 0            0   0   *   

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

*031720  SETZ 	14,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031720 031720 031720 400600000000 777777777777 777777777777     777777777777 000000031720 0            0   0   777 
IT1	*      *      000000 *            400600000000 *                654777657753 *            0            0   0   *   
ET2	*      *      031721 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	031721 031721 *      525600123456 777777777777 0                000000000000 *            0            0   0   *   

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

*031721  HRLOI	14,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031721 031721 031721 525600123456 777777777777 0                0            000000031720 0            0   0   777 
IT1	*      *      123456 *            525600123456 0                0            *            0            0   0   *   
ET2	*      *      031722 *            777777777777 000000123456     0            *            0            0   0   *   
ST1	031722 031722 *      312600034401 *            123456777777     123456777777 *            0            0   0   *   

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

*031722  CAME	14,034401

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031722 031722 031722 312600034401 777777777777 123456777777     123456777777 000000031720 0            0   0   777 
IT1	*      *      034401 *            312600034401 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034401     *            *            0            0   0   *   
FT6	*      034401 *      123456777777 777777777777 123456777777     *            *            0            0   0   *   
ET0	*      *      031723 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031723 *      031724 *            777777777777 *                *            *            0            0   0   *   

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

*031724  JUMPA	0,031725

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031724 031724 031724 324000031725 777777777777 123456777777     123456777777 000000031720 0            0   0   777 
IT1	*      *      031725 *            324000031725 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031725     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031725 *            000000031725 777777777777     *            000000031725 0            0   0   *   

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

*031725  SETZM	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031725 031725 031725 402000000014 777777777777 777777777777     777777777777 000000031725 0            0   0   777 
IT1	*      *      000014 *            402000000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 031726 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                123456777777 *            0            0   0   *   
ST5	031726 031726 *      200540034405 *            0                777777777777 *            0            0   0   *   

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

*031726  MOVE 	13,034405

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031726 031726 031726 200540034405 777777777777 0                777777777777 000000031725 0            0   0   777 
IT1	*      *      034405 *            200540034405 0                010203123450 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034405     *            *            0            0   0   *   
FT6	031727 031727 031727 526540000014 777777777777 123123456765     *            *            0            0   0   *   
ET2	*      *      *      *            010203123450 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123123456765 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=010203 123450 C(E) =123123 456765 
FINAL
C(AC)=123123 456765 
----------

*031727  HRLOM	13,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031727 031727 031727 526540000014 777777777777 123123456765     123123456765 000000031725 0            0   0   777 
IT1	*      *      000014 *            526540000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 031730 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123123456765 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 123123456765     *            000000000014 0            0   0   *   
ST1	*      *      *      *            *            456765777777     *            *            0            0   0   *   
ST2	*      *      *      456765777777 *            *                000000000000 *            0            0   0   *   
ST5	031730 031730 *      312540034405 *            *                123123456765 *            0            0   0   *   

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

*031730  CAME	13,034405
                                                                                                                           SEQ 0259
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031730 031730 031730 312540034405 777777777777 456765777777     123123456765 000000000014 0            0   0   777 
IT1	*      *      034405 *            312540034405 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034405     *            *            0            0   0   *   
FT6	*      034405 *      123123456765 777777777777 123123456765     *            *            0            0   0   *   
ET0	*      *      031731 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031731 *      031732 *            777777777777 *                *            *            0            0   0   *   

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

*031732  JUMPA	0,031733

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031732 031732 031732 324000031733 777777777777 123123456765     123123456765 000000000014 0            0   0   777 
IT1	*      *      031733 *            324000031733 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031733     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031733 *            000000031733 777777777777     *            000000031733 0            0   0   *   

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

*031733  CAME	14,034406

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031733 031733 031733 312600034406 777777777777 777777777777     777777777777 000000031733 0            0   0   777 
IT1	*      *      034406 *            312600034406 *                456765777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034406     *            *            0            0   0   *   
FT6	*      034406 *      456765777777 777777777777 456765777777     *            *            0            0   0   *   
ET0	*      *      031734 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031734 *      031735 *            777777777777 *                *            *            0            0   0   *   

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

*031735  JUMPA	0,031736

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031735 031735 031735 324000031736 777777777777 456765777777     456765777777 000000031733 0            0   0   777 
IT1	*      *      031736 *            324000031736 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031736     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031736 *            000000031736 777777777777     *            000000031736 0            0   0   *   

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

*031736  SETZ 	0,000000
                                                                                                                           SEQ 0260
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031736 031736 031736 400000000000 777777777777 777777777777     777777777777 000000031736 0            0   0   777 
IT1	*      *      000000 *            400000000000 *                *            *            0            0   0   *   
ET2	*      *      031737 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	031737 031737 *      200700034377 777777777777 0                000000000000 *            0            0   0   *   

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

*031737  MOVE 	16,034377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031737 031737 031737 200700034377 777777777777 0                0            000000031736 0            0   0   777 
IT1	*      *      034377 *            200700034377 0                765432246135 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034377     *            *            0            0   0   *   
FT6	031740 031740 031740 527000000016 777777777777 123456707076     *            *            0            0   0   *   
ET2	*      *      *      *            765432246135 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707076 *            0            0   0   *   

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

*031740  HRLOS	0,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031740 031740 031740 527000000016 777777777777 123456707076     123456707076 000000031736 0            0   0   777 
IT1	*      *      000016 *            527000000016 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     0            *            0            0   0   *   
FT6	*      000016 031741 *            777777777777 123456707076     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            707076777777     0            *            0            0   0   *   
ST2	*      *      *      707076777777 *            *                123456707076 *            0            0   0   *   
ST5	031741 031741 *      312000034407 *            *                000000000000 *            0            0   0   *   

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

*031741  CAME	0,034407

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031741 031741 031741 312000034407 777777777777 707076777777     0            000000031736 0            0   0   777 
IT1	*      *      034407 *            312000034407 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034407     0            *            0            0   0   *   
FT6	*      034407 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      031742 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	031742 *      031743 0            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0261
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
----------

*031743  JUMPA	0,031744

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031743 031743 031743 324000031744 777777777777 0                0            000000031736 0            0   0   777 
IT1	*      *      031744 *            324000031744 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031744     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031744 *            000000031744 000000000000     0            000000031744 0            0   0   *   

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

*031744  CAME	16,034410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031744 031744 031744 312700034410 777777777777 0                0            000000031744 0            0   0   777 
IT1	*      *      034410 *            312700034410 0                707076777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034410     *            *            0            0   0   *   
FT6	*      034410 *      707076777777 777777777777 707076777777     *            *            0            0   0   *   
ET0	*      *      031745 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031745 *      031746 *            777777777777 *                *            *            0            0   0   *   

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

*031746  JUMPA	0,031747

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031746 031746 031746 324000031747 777777777777 707076777777     707076777777 000000031744 0            0   0   777 
IT1	*      *      031747 *            324000031747 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031747     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031747 *            000000031747 000000000000     0            000000031747 0            0   0   *   

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

*031747  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031747 031747 031747 400040000000 777777777777 0                0            000000031747 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                123456123422 *            0            0   0   *   
ET2	*      *      031750 *            000000000000 0                *            *            0            0   0   *   
ST1	031750 031750 *      200700034377 777777777777 0                000000000000 *            0            0   0   *   

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

*031750  MOVE 	16,034377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031750 031750 031750 200700034377 777777777777 0                0            000000031747 0            0   0   777 
IT1	*      *      034377 *            200700034377 0                707076777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034377     *            *            0            0   0   *   
FT6	031751 031751 031751 527040000016 777777777777 123456707076     *            *            0            0   0   *   
ET2	*      *      *      *            707076777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707076 *            0            0   0   *   

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

*031751  HRLOS	1,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031751 031751 031751 527040000016 777777777777 123456707076     123456707076 000000031747 0            0   0   777 
IT1	*      *      000016 *            527040000016 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     0            *            0            0   0   *   
FT6	*      000016 031752 *            777777777777 123456707076     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            707076777777     707076777777 *            0            0   0   *   
ST2	*      *      *      707076777777 *            *                123456707076 *            0            0   0   *   
ST5	031752 031752 *      312040034410 *            *                707076777777 *            0            0   0   *   

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

*031752  CAME	1,034410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031752 031752 031752 312040034410 777777777777 707076777777     707076777777 000000031747 0            0   0   777 
IT1	*      *      034410 *            312040034410 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034410     *            *            0            0   0   *   
FT6	*      034410 *      707076777777 777777777777 707076777777     *            *            0            0   0   *   
ET0	*      *      031753 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031753 *      031754 *            777777777777 *                *            *            0            0   0   *   

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

*031754  JUMPA	0,031755

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031754 031754 031754 324000031755 777777777777 707076777777     707076777777 000000031747 0            0   0   77  SEQ 0263
IT1	*      *      031755 *            324000031755 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031755     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031755 *            000000031755 000000000000     0            000000031755 0            0   0   *   

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

*031755  CAME	16,034410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031755 031755 031755 312700034410 777777777777 0                0            000000031755 0            0   0   777 
IT1	*      *      034410 *            312700034410 0                707076777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034410     *            *            0            0   0   *   
FT6	*      034410 *      707076777777 777777777777 707076777777     *            *            0            0   0   *   
ET0	*      *      031756 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031756 *      031757 *            777777777777 *                *            *            0            0   0   *   

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

*031757  JUMPA	0,031760

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031757 031757 031757 324000031760 777777777777 707076777777     707076777777 000000031755 0            0   0   777 
IT1	*      *      031760 *            324000031760 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031760     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031760 *            000000031760 000000000000     0            000000031760 0            0   0   *   

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

*031760  MOVE 	12,034377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031760 031760 031760 200500034377 777777777777 0                0            000000031760 0            0   0   777 
IT1	*      *      034377 *            200500034377 0                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034377     *            *            0            0   0   *   
FT6	031761 031761 031761 476000000013 777777777777 123456707076     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456707076 *            0            0   0   *   

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

*031761  SETOM	0,000013
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0264
IT0	031761 031761 031761 476000000013 777777777777 123456707076     123456707076 000000031760 0            0   0   777 
IT1	*      *      000013 *            476000000013 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     0            *            0            0   0   *   
FT6	*      000013 031762 *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                123123456765 *            0            0   0   *   
ST5	031762 031762 *      532500000013 *            *                000000000000 *            0            0   0   *   

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

*031762  HLLEM	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031762 031762 031762 532500000013 777777777777 777777777777     0            000000031760 0            0   0   777 
IT1	*      *      000013 *            532500000013 *                123456707076 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 031763 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456707076 *                *            *            0            0   0   *   
ET2	*      *      *      *            123456777777 123456707076     *            000000000013 0            0   0   *   
ST1	*      *      *      *            777777777777 123456000000     *            *            0            0   0   *   
ST2	*      *      *      123456000000 *            *                777777777777 *            0            0   0   *   
ST5	031763 031763 *      312500034377 *            *                123456707076 *            0            0   0   *   

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

*031763  CAME	12,034377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031763 031763 031763 312500034377 777777777777 123456000000     123456707076 000000000013 0            0   0   777 
IT1	*      *      034377 *            312500034377 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034377     *            *            0            0   0   *   
FT6	*      034377 *      123456707076 777777777777 123456707076     *            *            0            0   0   *   
ET0	*      *      031764 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031764 *      031765 *            777777777777 *                *            *            0            0   0   *   

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

*031765  JUMPA	0,031766

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031765 031765 031765 324000031766 777777777777 123456707076     123456707076 000000000013 0            0   0   777 
IT1	*      *      031766 *            324000031766 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031766     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031766 *            000000031766 000000000000     0            000000031766 0            0   0   *   SEQ 0265

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

*031766  CAME	13,034330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031766 031766 031766 312540034330 777777777777 0                0            000000031766 0            0   0   777 
IT1	*      *      034330 *            312540034330 0                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034330     *            *            0            0   0   *   
FT6	*      034330 *      123456000000 777777777777 123456000000     *            *            0            0   0   *   
ET0	*      *      031767 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031767 *      031770 *            777777777777 *                *            *            0            0   0   *   

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

*031770  JUMPA	0,031771

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031770 031770 031770 324000031771 777777777777 123456000000     123456000000 000000031766 0            0   0   777 
IT1	*      *      031771 *            324000031771 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031771     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031771 *            000000031771 000000000000     0            000000031771 0            0   0   *   

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

*031771  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031771 031771 031771 400000000000 777777777777 0                0            000000031771 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      031772 *            000000000000 0                0            *            0            0   0   *   
ST1	031772 031772 *      515100765432 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 
----------

*031772  HRLZI	2,765432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031772 031772 031772 515100765432 777777777777 0                0            000000031771 0            0   0   777 
IT1	*      *      765432 *            515100765432 0                123456777777 *            0            0   0   *   
ET2	*      *      031773 *            777777777777 000000765432     *            *            0            0   0   *   
ST1	031773 031773 *      533000000002 *            765432000000     765432000000 *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0266
INITIAL
C(AC)=123456 777777 E    =000000 765432 
FINAL
C(AC)=765432 000000 
----------

*031773  HLLES	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031773 031773 031773 533000000002 777777777777 765432000000     765432000000 000000031771 0            0   0   777 
IT1	*      *      000002 *            533000000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 031774 *            777777777777 765432000000     0            *            0            0   0   *   
ET2	*      *      *      *            765432777777 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 765432777777     0            *            0            0   0   *   
ST2	*      *      *      765432777777 *            *                765432000000 *            0            0   0   *   
ST5	031774 031774 *      312000034407 *            *                000000000000 *            0            0   0   *   

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

*031774  CAME	0,034407

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031774 031774 031774 312000034407 777777777777 765432777777     0            000000031771 0            0   0   777 
IT1	*      *      034407 *            312000034407 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034407     0            *            0            0   0   *   
FT6	*      034407 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      031775 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	031775 *      031776 0            777777777777 0                0            *            0            0   0   *   

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

*031776  JUMPA	0,031777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031776 031776 031776 324000031777 777777777777 0                0            000000031771 0            0   0   777 
IT1	*      *      031777 *            324000031777 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031777     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031777 *            000000031777 000000000000     0            000000031777 0            0   0   *   

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

*031777  CAME	2,034411

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031777 031777 031777 312100034411 777777777777 0                0            000000031777 0            0   0   777 
IT1	*      *      034411 *            312100034411 0                765432777777 *            0            0   0   *   SEQ 0267
MEMST	*      *      *      *            *            000000034411     *            *            0            0   0   *   
FT6	*      034411 *      765432777777 777777777777 765432777777     *            *            0            0   0   *   
ET0	*      *      032000 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032000 *      032001 *            777777777777 *                *            *            0            0   0   *   

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

*032001  JUMPA	0,032002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032001 032001 032001 324000032002 777777777777 765432777777     765432777777 000000031777 0            0   0   777 
IT1	*      *      032002 *            324000032002 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032002     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032002 *            000000032002 000000000000     0            000000032002 0            0   0   *   

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

*032002  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032002 032002 032002 400040000000 777777777777 0                0            000000032002 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                707076777777 *            0            0   0   *   
ET2	*      *      032003 *            000000000000 0                *            *            0            0   0   *   
ST1	032003 032003 *      515100765432 777777777777 0                000000000000 *            0            0   0   *   

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

*032003  HRLZI	2,765432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032003 032003 032003 515100765432 777777777777 0                0            000000032002 0            0   0   777 
IT1	*      *      765432 *            515100765432 0                765432777777 *            0            0   0   *   
ET2	*      *      032004 *            777777777777 000000765432     *            *            0            0   0   *   
ST1	032004 032004 *      533040000002 *            765432000000     765432000000 *            0            0   0   *   

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

*032004  HLLES	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032004 032004 032004 533040000002 777777777777 765432000000     765432000000 000000032002 0            0   0   777 
IT1	*      *      000002 *            533040000002 *                000000000000 *            0            0   0   *   SEQ 0268
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 032005 *            777777777777 765432000000     0            *            0            0   0   *   
ET2	*      *      *      *            765432777777 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 765432777777     765432777777 *            0            0   0   *   
ST2	*      *      *      765432777777 *            *                765432000000 *            0            0   0   *   
ST5	032005 032005 *      312040034411 *            *                765432777777 *            0            0   0   *   

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

*032005  CAME	1,034411

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032005 032005 032005 312040034411 777777777777 765432777777     765432777777 000000032002 0            0   0   777 
IT1	*      *      034411 *            312040034411 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034411     *            *            0            0   0   *   
FT6	*      034411 *      765432777777 777777777777 765432777777     *            *            0            0   0   *   
ET0	*      *      032006 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032006 *      032007 *            777777777777 *                *            *            0            0   0   *   

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

*032007  JUMPA	0,032010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032007 032007 032007 324000032010 777777777777 765432777777     765432777777 000000032002 0            0   0   777 
IT1	*      *      032010 *            324000032010 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032010     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032010 *            000000032010 000000000000     0            000000032010 0            0   0   *   

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

*032010  CAME	2,034411

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032010 032010 032010 312100034411 777777777777 0                0            000000032010 0            0   0   777 
IT1	*      *      034411 *            312100034411 0                765432777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034411     *            *            0            0   0   *   
FT6	*      034411 *      765432777777 777777777777 765432777777     *            *            0            0   0   *   
ET0	*      *      032011 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032011 *      032012 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=765432 777777 C(E) =765432 777777 
----------
                                                                                                                           SEQ 0269
*032012  JUMPA	0,032013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032012 032012 032012 324000032013 777777777777 765432777777     765432777777 000000032010 0            0   0   777 
IT1	*      *      032013 *            324000032013 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032013     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032013 *            000000032013 000000000000     0            000000032013 0            0   0   *   

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

*032013  MOVE 	12,034412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032013 032013 032013 200500034412 777777777777 0                0            000000032013 0            0   0   777 
IT1	*      *      034412 *            200500034412 0                123456707076 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034412     *            *            0            0   0   *   
FT6	032014 032014 032014 476000000013 777777777777 365432123456     *            *            0            0   0   *   
ET2	*      *      *      *            123456707076 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                365432123456 *            0            0   0   *   

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

*032014  SETOM	0,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032014 032014 032014 476000000013 777777777777 365432123456     365432123456 000000032013 0            0   0   777 
IT1	*      *      000013 *            476000000013 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     0            *            0            0   0   *   
FT6	*      000013 032015 *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                123456000000 *            0            0   0   *   
ST5	032015 032015 *      532500000013 *            *                000000000000 *            0            0   0   *   

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

*032015  HLLEM	12,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032015 032015 032015 532500000013 777777777777 777777777777     0            000000032013 0            0   0   777 
IT1	*      *      000013 *            532500000013 *                365432123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 032016 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            365432123456 *                *            *            0            0   0   *   
ET2	*      *      *      *            365432777777 365432123456     *            000000000013 0            0   0   *   
ST1	*      *      *      *            777777777777 365432000000     *            *            0            0   0   *   SEQ 0270
ST2	*      *      *      365432000000 *            *                777777777777 *            0            0   0   *   
ST5	032016 032016 *      312500034412 *            *                365432123456 *            0            0   0   *   

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

*032016  CAME	12,034412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032016 032016 032016 312500034412 777777777777 365432000000     365432123456 000000000013 0            0   0   777 
IT1	*      *      034412 *            312500034412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034412     *            *            0            0   0   *   
FT6	*      034412 *      365432123456 777777777777 365432123456     *            *            0            0   0   *   
ET0	*      *      032017 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032017 *      032020 *            777777777777 *                *            *            0            0   0   *   

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

*032020  JUMPA	0,032021

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032020 032020 032020 324000032021 777777777777 365432123456     365432123456 000000000013 0            0   0   777 
IT1	*      *      032021 *            324000032021 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032021     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032021 *            000000032021 000000000000     0            000000032021 0            0   0   *   

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

*032021  CAME	13,034413

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032021 032021 032021 312540034413 777777777777 0                0            000000032021 0            0   0   777 
IT1	*      *      034413 *            312540034413 0                365432000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034413     *            *            0            0   0   *   
FT6	*      034413 *      365432000000 777777777777 365432000000     *            *            0            0   0   *   
ET0	*      *      032022 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032022 *      032023 *            777777777777 *                *            *            0            0   0   *   

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

*032023  JUMPA	0,032024

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032023 032023 032023 324000032024 777777777777 365432000000     365432000000 000000032021 0            0   0   77  SEQ 0271
IT1	*      *      032024 *            324000032024 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032024     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032024 *            000000032024 000000000000     0            000000032024 0            0   0   *   

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

*032024  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032024 032024 032024 400000000000 777777777777 0                0            000000032024 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      032025 *            000000000000 0                0            *            0            0   0   *   
ST1	032025 032025 *      551100765432 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 
----------

*032025  HRRZI	2,765432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032025 032025 032025 551100765432 777777777777 0                0            000000032024 0            0   0   777 
IT1	*      *      765432 *            551100765432 0                765432777777 *            0            0   0   *   
ET2	*      *      032026 *            777777765432 000000765432     *            *            0            0   0   *   
ST1	032026 032026 *      537000000002 777777777777 *                000000765432 *            0            0   0   *   

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

*032026  HRLES	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032026 032026 032026 537000000002 777777777777 000000765432     000000765432 000000032024 0            0   0   777 
IT1	*      *      000002 *            537000000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 032027 *            777777777777 000000765432     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            765432777777     0            *            0            0   0   *   
ST2	*      *      *      765432777777 *            *                000000765432 *            0            0   0   *   
ST5	032027 032027 *      312000034407 *            *                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 765432 
FINAL
C(AC)=000000 000000 C(E) =765432 777777 
----------
*032027  CAME	0,034407                                                                                                   SEQ 0272

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032027 032027 032027 312000034407 777777777777 765432777777     0            000000032024 0            0   0   777 
IT1	*      *      034407 *            312000034407 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034407     0            *            0            0   0   *   
FT6	*      034407 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032030 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032030 *      032031 0            777777777777 0                0            *            0            0   0   *   

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

*032031  JUMPA	0,032032

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032031 032031 032031 324000032032 777777777777 0                0            000000032024 0            0   0   777 
IT1	*      *      032032 *            324000032032 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032032     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032032 *            000000032032 000000000000     0            000000032032 0            0   0   *   

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

*032032  CAME	2,034411

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032032 032032 032032 312100034411 777777777777 0                0            000000032032 0            0   0   777 
IT1	*      *      034411 *            312100034411 0                765432777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034411     *            *            0            0   0   *   
FT6	*      034411 *      765432777777 777777777777 765432777777     *            *            0            0   0   *   
ET0	*      *      032033 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032033 *      032034 *            777777777777 *                *            *            0            0   0   *   

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

*032034  JUMPA	0,032035

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032034 032034 032034 324000032035 777777777777 765432777777     765432777777 000000032032 0            0   0   777 
IT1	*      *      032035 *            324000032035 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032035     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032035 *            000000032035 000000000000     0            000000032035 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 032035 
----------
*032035  SETZ 	1,000000                                                                                                   SEQ 0273

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032035 032035 032035 400040000000 777777777777 0                0            000000032035 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                765432777777 *            0            0   0   *   
ET2	*      *      032036 *            000000000000 0                *            *            0            0   0   *   
ST1	032036 032036 *      551100765432 777777777777 0                000000000000 *            0            0   0   *   

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

*032036  HRRZI	2,765432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032036 032036 032036 551100765432 777777777777 0                0            000000032035 0            0   0   777 
IT1	*      *      765432 *            551100765432 0                765432777777 *            0            0   0   *   
ET2	*      *      032037 *            777777765432 000000765432     *            *            0            0   0   *   
ST1	032037 032037 *      537040000002 777777777777 *                000000765432 *            0            0   0   *   

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

*032037  HRLES	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032037 032037 032037 537040000002 777777777777 000000765432     000000765432 000000032035 0            0   0   777 
IT1	*      *      000002 *            537040000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 032040 *            777777777777 000000765432     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            765432777777     765432777777 *            0            0   0   *   
ST2	*      *      *      765432777777 *            *                000000765432 *            0            0   0   *   
ST5	032040 032040 *      312040034411 *            *                765432777777 *            0            0   0   *   

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

*032040  CAME	1,034411

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032040 032040 032040 312040034411 777777777777 765432777777     765432777777 000000032035 0            0   0   777 
IT1	*      *      034411 *            312040034411 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034411     *            *            0            0   0   *   
FT6	*      034411 *      765432777777 777777777777 765432777777     *            *            0            0   0   *   
ET0	*      *      032041 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032041 *      032042 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0274
INITIAL
C(AC)=765432 777777 C(E) =765432 777777 
----------

*032042  JUMPA	0,032043

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032042 032042 032042 324000032043 777777777777 765432777777     765432777777 000000032035 0            0   0   777 
IT1	*      *      032043 *            324000032043 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032043     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032043 *            000000032043 000000000000     0            000000032043 0            0   0   *   

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

*032043  CAME	2,034411

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032043 032043 032043 312100034411 777777777777 0                0            000000032043 0            0   0   777 
IT1	*      *      034411 *            312100034411 0                765432777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034411     *            *            0            0   0   *   
FT6	*      034411 *      765432777777 777777777777 765432777777     *            *            0            0   0   *   
ET0	*      *      032044 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032044 *      032045 *            777777777777 *                *            *            0            0   0   *   

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

*032045  JUMPA	0,032046

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032045 032045 032045 324000032046 777777777777 765432777777     765432777777 000000032043 0            0   0   777 
IT1	*      *      032046 *            324000032046 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032046     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032046 *            000000032046 000000000000     0            000000032046 0            0   0   *   

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

*032046  MOVE 	11,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032046 032046 032046 200440034414 777777777777 0                0            000000032046 0            0   0   777 
IT1	*      *      034414 *            200440034414 0                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032047 032047 032047 402000000012 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032047  SETZM	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032047 032047 032047 402000000012 777777777777 123456701234     123456701234 000000032046 0            0   0   777 
IT1	*      *      000012 *            402000000012 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     0            *            0            0   0   *   
FT6	*      000012 032050 *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     0            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                365432123456 *            0            0   0   *   
ST5	032050 032050 *      546440000012 *            0                000000000000 *            0            0   0   *   

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

*032050  HLRM	11,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032050 032050 032050 546440000012 777777777777 0                0            000000032046 0            0   0   777 
IT1	*      *      000012 *            546440000012 0                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 032051 *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      *      *            123456701234 0                *            *            0            0   0   *   
ET2	*      *      *      *            000000777777 123456701234     *            000000000000 0            0   0   *   
ST1	*      *      *      *            777777777777 000000123456     *            0            0            0   0   *   
ST2	*      *      *      000000123456 *            *                000000000000 0            0            0   0   *   
ST5	032051 032051 *      312440034414 *            *                123456701234 0            0            0   0   *   

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

*032051  CAME	11,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032051 032051 032051 312440034414 777777777777 000000123456     123456701234 0            0            0   0   777 
IT1	*      *      034414 *            312440034414 *                *            0            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            0            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            0            0            0   0   *   
ET0	*      *      032052 *            000000000000 *                *            0            0            0   0   *   
ET2	*      *      *      *            0            *                *            0            0            0   0   *   
ST1	032052 *      032053 *            777777777777 *                *            0            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 701234 C(E) =123456 701234 
----------
                                                                                                                           SEQ 0276
*032053  JUMPA	0,032054

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032053 032053 032053 324000032054 777777777777 123456701234     123456701234 0            0            0   0   777 
IT1	*      *      032054 *            324000032054 *                000000000000 0            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032054     0            0            0            0   0   *   
ET2	*      *      0      *            0            *                0            0            0            0   0   *   
ST1	*      *      032054 *            000000032054 000000000000     0            000000032054 0            0   0   *   

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

*032054  CAIE	12,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032054 032054 032054 302500123456 777777777777 0                0            000000032054 0            0   0   777 
IT1	*      *      123456 *            302500123456 0                000000123456 *            0            0   0   *   
ET0	*      *      032055 *            000000000000 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032055 *      032056 *            777777777777 *                *            *            0            0   0   *   

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

*032056  JUMPA	0,032057

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032056 032056 032056 324000032057 777777777777 000000123456     000000123456 000000032054 0            0   0   777 
IT1	*      *      032057 *            324000032057 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032057     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032057 *            000000032057 000000000000     0            000000032057 0            0   0   *   

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

*032057  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032057 032057 032057 400000000000 777777777777 0                0            000000032057 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      032060 *            000000000000 0                0            *            0            0   0   *   
ST1	032060 032060 *      200500034415 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 
----------

*032060  MOVE 	12,034415
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0277
IT0	032060 032060 032060 200500034415 777777777777 0                0            000000032057 0            0   0   777 
IT1	*      *      034415 *            200500034415 0                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034415     *            *            0            0   0   *   
FT6	032061 032061 032061 547000000012 777777777777 123123246135     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123123246135 *            0            0   0   *   

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

*032061  HLRS	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032061 032061 032061 547000000012 777777777777 123123246135     123123246135 000000032057 0            0   0   777 
IT1	*      *      000012 *            547000000012 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     0            *            0            0   0   *   
FT6	*      000012 032062 *            777777777777 123123246135     0            *            0            0   0   *   
ET2	*      *      *      *            123123777777 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123123123123     0            *            0            0   0   *   
ST2	*      *      *      123123123123 *            *                123123246135 *            0            0   0   *   
ST5	032062 032062 *      312000034407 *            *                000000000000 *            0            0   0   *   

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

*032062  CAME	0,034407

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032062 032062 032062 312000034407 777777777777 123123123123     0            000000032057 0            0   0   777 
IT1	*      *      034407 *            312000034407 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034407     0            *            0            0   0   *   
FT6	*      034407 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032063 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032063 *      032064 0            777777777777 0                0            *            0            0   0   *   

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

*032064  JUMPA	0,032065

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032064 032064 032064 324000032065 777777777777 0                0            000000032057 0            0   0   777 
IT1	*      *      032065 *            324000032065 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032065     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032065 *            000000032065 000000000000     0            000000032065 0            0   0   *   

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

*032065  CAME	12,034416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032065 032065 032065 312500034416 777777777777 0                0            000000032065 0            0   0   777 
IT1	*      *      034416 *            312500034416 0                123123123123 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034416     *            *            0            0   0   *   
FT6	*      034416 *      123123123123 777777777777 123123123123     *            *            0            0   0   *   
ET0	*      *      032066 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032066 *      032067 *            777777777777 *                *            *            0            0   0   *   

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

*032067  JUMPA	0,032070

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032067 032067 032067 324000032070 777777777777 123123123123     123123123123 000000032065 0            0   0   777 
IT1	*      *      032070 *            324000032070 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032070     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032070 *            000000032070 000000000000     0            000000032070 0            0   0   *   

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

*032070  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032070 032070 032070 400040000000 777777777777 0                0            000000032070 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                765432777777 *            0            0   0   *   
ET2	*      *      032071 *            000000000000 0                *            *            0            0   0   *   
ST1	032071 032071 *      200500034415 777777777777 0                000000000000 *            0            0   0   *   

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

*032071  MOVE 	12,034415

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032071 032071 032071 200500034415 777777777777 0                0            000000032070 0            0   0   777 
IT1	*      *      034415 *            200500034415 0                123123123123 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034415     *            *            0            0   0   *   
FT6	032072 032072 032072 547040000012 777777777777 123123246135     *            *            0            0   0   *   
ET2	*      *      *      *            123123123123 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123123246135 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0279
C(AC)=123123 123123 C(E) =123123 246135 
FINAL
C(AC)=123123 246135 
----------

*032072  HLRS	1,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032072 032072 032072 547040000012 777777777777 123123246135     123123246135 000000032070 0            0   0   777 
IT1	*      *      000012 *            547040000012 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     0            *            0            0   0   *   
FT6	*      000012 032073 *            777777777777 123123246135     0            *            0            0   0   *   
ET2	*      *      *      *            123123777777 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123123123123     123123123123 *            0            0   0   *   
ST2	*      *      *      123123123123 *            *                123123246135 *            0            0   0   *   
ST5	032073 032073 *      312040034416 *            *                123123123123 *            0            0   0   *   

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

*032073  CAME	1,034416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032073 032073 032073 312040034416 777777777777 123123123123     123123123123 000000032070 0            0   0   777 
IT1	*      *      034416 *            312040034416 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034416     *            *            0            0   0   *   
FT6	*      034416 *      123123123123 777777777777 123123123123     *            *            0            0   0   *   
ET0	*      *      032074 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032074 *      032075 *            777777777777 *                *            *            0            0   0   *   

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

*032075  JUMPA	0,032076

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032075 032075 032075 324000032076 777777777777 123123123123     123123123123 000000032070 0            0   0   777 
IT1	*      *      032076 *            324000032076 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032076     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032076 *            000000032076 000000000000     0            000000032076 0            0   0   *   

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

*032076  CAME	12,034416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032076 032076 032076 312500034416 777777777777 0                0            000000032076 0            0   0   777 
IT1	*      *      034416 *            312500034416 0                123123123123 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034416     *            *            0            0   0   *   SEQ 0280
FT6	*      034416 *      123123123123 777777777777 123123123123     *            *            0            0   0   *   
ET0	*      *      032077 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032077 *      032100 *            777777777777 *                *            *            0            0   0   *   

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

*032100  JUMPA	0,032101

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032100 032100 032100 324000032101 777777777777 123123123123     123123123123 000000032076 0            0   0   777 
IT1	*      *      032101 *            324000032101 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032101     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032101 *            000000032101 000000000000     0            000000032101 0            0   0   *   

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

*032101  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032101 032101 032101 474000000000 777777777777 0                0            000000032101 0            0   0   777 
IT1	*      *      000000 *            474000000000 0                0            *            0            0   0   *   
ET2	*      *      032102 *            777777777777 0                0            *            0            0   0   *   
ST1	032102 032102 *      200740034414 *            777777777777     777777777777 *            0            0   0   *   

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

*032102  MOVE 	17,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032102 032102 032102 200740034414 777777777777 777777777777     777777777777 000000032101 0            0   0   777 
IT1	*      *      034414 *            200740034414 *                123456000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032103 032103 032103 553000000017 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032103  HRRZS	0,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032103 032103 032103 553000000017 777777777777 123456701234     123456701234 000000032101 0            0   0   77  SEQ 0281
IT1	*      *      000017 *            553000000017 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     *            *            0            0   0   *   
FT6	*      000017 032104 *            777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000701234     *            *            0            0   0   *   
ST2	*      *      *      000000701234 *            *                123456701234 *            0            0   0   *   
ST5	032104 032104 *      312000034301 *            *                777777777777 *            0            0   0   *   

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

*032104  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032104 032104 032104 312000034301 777777777777 000000701234     777777777777 000000032101 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032105 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032105 *      032106 *            777777777777 *                *            *            0            0   0   *   

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

*032106  JUMPA	0,032107

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032106 032106 032106 324000032107 777777777777 777777777777     777777777777 000000032101 0            0   0   777 
IT1	*      *      032107 *            324000032107 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032107     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032107 *            000000032107 777777777777     *            000000032107 0            0   0   *   

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

*032107  CAIE	17,701234

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032107 032107 032107 302740701234 777777777777 777777777777     777777777777 000000032107 0            0   0   777 
IT1	*      *      701234 *            302740701234 *                000000701234 *            0            0   0   *   
ET0	*      *      032110 *            000000000000 000000701234     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032110 *      032111 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 701234 E    =000000 701234 
----------
*032111  JUMPA	0,032112                                                                                                   SEQ 0282

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032111 032111 032111 324000032112 777777777777 000000701234     000000701234 000000032107 0            0   0   777 
IT1	*      *      032112 *            324000032112 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032112     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032112 *            000000032112 777777777777     *            000000032112 0            0   0   *   

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

*032112  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032112 032112 032112 474040000000 777777777777 777777777777     777777777777 000000032112 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                123123123123 *            0            0   0   *   
ET2	*      *      032113 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032113 032113 *      200740034414 *            777777777777     777777777777 *            0            0   0   *   

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

*032113  MOVE 	17,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032113 032113 032113 200740034414 777777777777 777777777777     777777777777 000000032112 0            0   0   777 
IT1	*      *      034414 *            200740034414 *                000000701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032114 032114 032114 553040000017 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            000000701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032114  HRRZS	1,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032114 032114 032114 553040000017 777777777777 123456701234     123456701234 000000032112 0            0   0   777 
IT1	*      *      000017 *            553040000017 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     *            *            0            0   0   *   
FT6	*      000017 032115 *            777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000701234     000000701234 *            0            0   0   *   
ST2	*      *      *      000000701234 *            *                123456701234 *            0            0   0   *   
ST5	032115 032115 *      302040701234 *            *                000000701234 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =123456 701234                                                                                    SEQ 0283
FINAL
C(AC)=000000 701234 C(E) =000000 701234 
----------

*032115  CAIE	1,701234

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032115 032115 032115 302040701234 777777777777 000000701234     000000701234 000000032112 0            0   0   777 
IT1	*      *      701234 *            302040701234 *                *            *            0            0   0   *   
ET0	*      *      032116 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032116 *      032117 *            777777777777 *                *            *            0            0   0   *   

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

*032117  JUMPA	0,032120

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032117 032117 032117 324000032120 777777777777 000000701234     000000701234 000000032112 0            0   0   777 
IT1	*      *      032120 *            324000032120 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032120     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032120 *            000000032120 777777777777     *            000000032120 0            0   0   *   

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

*032120  CAIE	17,701234

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032120 032120 032120 302740701234 777777777777 777777777777     777777777777 000000032120 0            0   0   777 
IT1	*      *      701234 *            302740701234 *                000000701234 *            0            0   0   *   
ET0	*      *      032121 *            000000000000 000000701234     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032121 *      032122 *            777777777777 *                *            *            0            0   0   *   

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

*032122  JUMPA	0,032123

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032122 032122 032122 324000032123 777777777777 000000701234     000000701234 000000032120 0            0   0   777 
IT1	*      *      032123 *            324000032123 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032123     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032123 *            000000032123 777777777777     *            000000032123 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 E    =000000 032123 
----------
                                                                                                                           SEQ 0284
*032123  SETO 	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032123 032123 032123 474000000007 777777777777 777777777777     777777777777 000000032123 0            0   0   777 
IT1	*      *      000007 *            474000000007 *                *            *            0            0   0   *   
ET2	*      *      032124 *            777777777777 000000000007     *            *            0            0   0   *   
ST1	032124 032124 *      555340777777 *            777777777777     *            *            0            0   0   *   

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

*032124  HLRZI	7,777777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032124 032124 032124 555340777777 777777777777 777777777777     777777777777 000000032123 0            0   0   777 
IT1	*      *      777777 *            555340777777 *                624421230254 *            0            0   0   *   
ET2	*      *      032125 *            777777777777 000000777777     *            *            0            0   0   *   
ST1	032125 032125 *      332000000007 *            000000000000     000000000000 *            0            0   0   *   

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

*032125  SKIPE	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032125 032125 032125 332000000007 777777777777 0                0            000000032123 0            0   0   777 
IT1	*      *      000007 *            332000000007 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032126 *            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      *            0            0                *            *            0            0   0   *   
ST1	032126 *      032127 *            777777777777 0                *            *            0            0   0   *   

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

*032127  JUMPA	0,032130

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032127 032127 032127 324000032130 777777777777 0                777777777777 000000032123 0            0   0   777 
IT1	*      *      032130 *            324000032130 0                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032130     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032130 *            000000032130 777777777777     *            000000032130 0            0   0   *   

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

*032130  MOVE 	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032130 032130 032130 200040034374 777777777777 777777777777     777777777777 000000032130 0            0   0   777 
IT1	*      *      034374 *            200040034374 *                000000701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	032131 032131 032131 200100034375 777777777777 123456123422     *            *            0            0   0   *   
ET2	*      *      *      *            000000701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456123422 *            0            0   0   *   

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

*032131  MOVE 	2,034375

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032131 032131 032131 200100034375 777777777777 123456123422     123456123422 000000032130 0            0   0   777 
IT1	*      *      034375 *            200100034375 *                765432777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034375     *            *            0            0   0   *   
FT6	032132 032132 032132 556040000002 777777777777 707070717171     *            *            0            0   0   *   
ET2	*      *      *      *            765432777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070717171 *            0            0   0   *   

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

*032132  HLRZM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032132 032132 032132 556040000002 777777777777 707070717171     707070717171 000000032130 0            0   0   777 
IT1	*      *      000002 *            556040000002 *                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 032133 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 123456123422     *            000000000002 0            0   0   *   
ST1	*      *      *      *            *            000000123456     *            *            0            0   0   *   
ST2	*      *      *      000000123456 *            *                707070717171 *            0            0   0   *   
ST5	032133 032133 *      312040034374 *            *                123456123422 *            0            0   0   *   

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

*032133  CAME	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032133 032133 032133 312040034374 777777777777 000000123456     123456123422 000000000002 0            0   0   77  SEQ 0286
IT1	*      *      034374 *            312040034374 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	*      034374 *      123456123422 777777777777 123456123422     *            *            0            0   0   *   
ET0	*      *      032134 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032134 *      032135 *            777777777777 *                *            *            0            0   0   *   

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

*032135  JUMPA	0,032136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032135 032135 032135 324000032136 777777777777 123456123422     123456123422 000000000002 0            0   0   777 
IT1	*      *      032136 *            324000032136 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032136     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032136 *            000000032136 777777777777     *            000000032136 0            0   0   *   

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

*032136  CAIE	2,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032136 032136 032136 302100123456 777777777777 777777777777     777777777777 000000032136 0            0   0   777 
IT1	*      *      123456 *            302100123456 *                000000123456 *            0            0   0   *   
ET0	*      *      032137 *            000000000000 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032137 *      032140 *            777777777777 *                *            *            0            0   0   *   

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

*032140  JUMPA	0,032141

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032140 032140 032140 324000032141 777777777777 000000123456     000000123456 000000032136 0            0   0   777 
IT1	*      *      032141 *            324000032141 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032141     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032141 *            000000032141 777777777777     *            000000032141 0            0   0   *   

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

*032141  MOVE 	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032141 032141 032141 200040034374 777777777777 777777777777     777777777777 000000032141 0            0   0   777 
IT1	*      *      034374 *            200040034374 *                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   SEQ 0287
FT6	032142 032142 032142 200100034375 777777777777 123456123422     *            *            0            0   0   *   
ET2	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*032142  MOVE 	2,034375

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032142 032142 032142 200100034375 777777777777 123456123422     123456123422 000000032141 0            0   0   777 
IT1	*      *      034375 *            200100034375 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034375     *            *            0            0   0   *   
FT6	032143 032143 032143 202100032155 777777777777 707070717171     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070717171 *            0            0   0   *   

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

*032143  MOVEM	2,032155

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032143 032143 032143 202100032155 777777777777 707070717171     707070717171 000000032141 0            0   0   777 
IT1	*      *      032155 *            202100032155 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000032155     *            *            0            0   0   *   
FT6	*      032155 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            707070717171 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 707070717171     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      707070717171 *            *                *            *            0            0   0   *   
ST5	032144 032144 032144 556040032155 *            *                *            *            0            0   0   *   

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

*032144  HLRZM	1,032155

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032144 032144 032144 556040032155 777777777777 707070717171     707070717171 000000032141 0            0   0   777 
IT1	*      *      032155 *            556040032155 *                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000032155     *            *            0            0   0   *   
FT6	*      032155 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 123456123422     *            000000032155 0            0   0   *   
ST1	*      *      *      *            *            000000123456     *            *            0            0   0   *   
ST2	*      *      *      000000123456 *            *                *            *            0            0   0   *   
ST5	032145 032145 032145 312040034374 *            *                *            *            0            0   0   *   SEQ 0288

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

*032145  CAME	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032145 032145 032145 312040034374 777777777777 000000123456     123456123422 000000032155 0            0   0   777 
IT1	*      *      034374 *            312040034374 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	*      034374 *      123456123422 777777777777 123456123422     *            *            0            0   0   *   
ET0	*      *      032146 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032146 *      032147 *            777777777777 *                *            *            0            0   0   *   

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

*032147  JUMPA	0,032150

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032147 032147 032147 324000032150 777777777777 123456123422     123456123422 000000032155 0            0   0   777 
IT1	*      *      032150 *            324000032150 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032150     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032150 *            000000032150 777777777777     *            000000032150 0            0   0   *   

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

*032150  MOVE 	2,032155

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032150 032150 032150 200100032155 777777777777 777777777777     777777777777 000000032150 0            0   0   777 
IT1	*      *      032155 *            200100032155 *                707070717171 *            0            0   0   *   
MEMST	*      *      *      *            *            000000032155     *            *            0            0   0   *   
FT6	032151 032151 032151 302100123456 777777777777 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            707070717171 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000123456 *            0            0   0   *   

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

*032151  CAIE	2,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032151 032151 032151 302100123456 777777777777 000000123456     000000123456 000000032150 0            0   0   777 
IT1	*      *      123456 *            302100123456 *                *            *            0            0   0   *   SEQ 0289
ET0	*      *      032152 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032152 *      032153 *            777777777777 *                *            *            0            0   0   *   

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

*032153  JUMPA	0,032154

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032153 032153 032153 324000032154 777777777777 000000123456     000000123456 000000032150 0            0   0   777 
IT1	*      *      032154 *            324000032154 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032154     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032154 *            000000032154 777777777777     *            000000032154 0            0   0   *   

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

*032154  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032154 032154 032154 334000000000 777777777777 777777777777     777777777777 000000032154 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      032155 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032155 0      032156 *            *            *                *            *            0            0   0   *   

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

*032156  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032156 032156 032156 474000000000 777777777777 777777777777     777777777777 000000032154 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                *            *            0            0   0   *   
ET2	*      *      032157 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032157 032157 *      200340034414 *            777777777777     *            *            0            0   0   *   

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

*032157  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032157 032157 032157 200340034414 777777777777 777777777777     777777777777 000000032154 0            0   0   77  SEQ 0290
IT1	*      *      034414 *            200340034414 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     0            *            0            0   0   *   
FT6	032160 032160 032160 557000000007 777777777777 123456701234     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032160  HLRZS	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032160 032160 032160 557000000007 777777777777 123456701234     123456701234 000000032154 0            0   0   777 
IT1	*      *      000007 *            557000000007 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 032161 *            777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            000000123456     *            *            0            0   0   *   
ST2	*      *      *      000000123456 *            *                123456701234 *            0            0   0   *   
ST5	032161 032161 *      312000034301 *            *                777777777777 *            0            0   0   *   

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

*032161  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032161 032161 032161 312000034301 777777777777 000000123456     777777777777 000000032154 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032162 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032162 *      032163 *            777777777777 *                *            *            0            0   0   *   

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

*032163  JUMPA	0,032164

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032163 032163 032163 324000032164 777777777777 777777777777     777777777777 000000032154 0            0   0   777 
IT1	*      *      032164 *            324000032164 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032164     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032164 *            000000032164 777777777777     *            000000032164 0            0   0   *   

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

*032164  CAIE	7,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032164 032164 032164 302340123456 777777777777 777777777777     777777777777 000000032164 0            0   0   777 
IT1	*      *      123456 *            302340123456 *                000000123456 *            0            0   0   *   
ET0	*      *      032165 *            000000000000 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032165 *      032166 *            777777777777 *                *            *            0            0   0   *   

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

*032166  JUMPA	0,032167

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032166 032166 032166 324000032167 777777777777 000000123456     000000123456 000000032164 0            0   0   777 
IT1	*      *      032167 *            324000032167 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032167     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032167 *            000000032167 777777777777     *            000000032167 0            0   0   *   

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

*032167  SETO 	6,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032167 032167 032167 474300000000 777777777777 777777777777     777777777777 000000032167 0            0   0   777 
IT1	*      *      000000 *            474300000000 *                777457777676 *            0            0   0   *   
ET2	*      *      032170 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032170 032170 *      200340034414 *            777777777777     777777777777 *            0            0   0   *   

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

*032170  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032170 032170 032170 200340034414 777777777777 777777777777     777777777777 000000032167 0            0   0   777 
IT1	*      *      034414 *            200340034414 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032171 032171 032171 557300000007 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032171  HLRZS	6,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032171 032171 032171 557300000007 777777777777 123456701234     123456701234 000000032167 0            0   0   777 
IT1	*      *      000007 *            557300000007 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 032172 *            777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            000000123456     000000123456 *            0            0   0   *   
ST2	*      *      *      000000123456 *            *                123456701234 *            0            0   0   *   
ST5	032172 032172 *      302300123456 *            *                000000123456 *            0            0   0   *   

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

*032172  CAIE	6,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032172 032172 032172 302300123456 777777777777 000000123456     000000123456 000000032167 0            0   0   777 
IT1	*      *      123456 *            302300123456 *                *            *            0            0   0   *   
ET0	*      *      032173 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032173 *      032174 *            777777777777 *                *            *            0            0   0   *   

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

*032174  JUMPA	0,032175

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032174 032174 032174 324000032175 777777777777 000000123456     000000123456 000000032167 0            0   0   777 
IT1	*      *      032175 *            324000032175 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032175     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032175 *            000000032175 777777777777     *            000000032175 0            0   0   *   

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

*032175  CAIE	7,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032175 032175 032175 302340123456 777777777777 777777777777     777777777777 000000032175 0            0   0   777 
IT1	*      *      123456 *            302340123456 *                000000123456 *            0            0   0   *   
ET0	*      *      032176 *            000000000000 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032176 *      032177 *            777777777777 *                *            *            0            0   0   *   

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

*032177  JUMPA	0,032200

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032177 032177 032177 324000032200 777777777777 000000123456     000000123456 000000032175 0            0   0   777 
IT1	*      *      032200 *            324000032200 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032200     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032200 *            000000032200 777777777777     *            000000032200 0            0   0   *   

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

*032200  SETO 	6,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032200 032200 032200 474300000000 777777777777 777777777777     777777777777 000000032200 0            0   0   777 
IT1	*      *      000000 *            474300000000 *                000000123456 *            0            0   0   *   
ET2	*      *      032201 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032201 032201 *      200340034414 *            777777777777     777777777777 *            0            0   0   *   

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

*032201  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032201 032201 032201 200340034414 777777777777 777777777777     777777777777 000000032200 0            0   0   777 
IT1	*      *      034414 *            200340034414 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032202 032202 032202 202340032214 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032202  MOVEM	7,032214

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032202 032202 032202 202340032214 777777777777 123456701234     123456701234 000000032200 0            0   0   777 
IT1	*      *      032214 *            202340032214 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000032214     *            *            0            0   0   *   
FT6	*      032214 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456701234 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 123456701234     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      123456701234 *            *                *            *            0            0   0   *   SEQ 0294
ST5	032203 032203 032203 557300032214 *            *                *            *            0            0   0   *   

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

*032203  HLRZS	6,032214

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032203 032203 032203 557300032214 777777777777 123456701234     123456701234 000000032200 0            0   0   777 
IT1	*      *      032214 *            557300032214 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000032214     *            *            0            0   0   *   
FT6	*      032214 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            000000123456     000000123456 *            0            0   0   *   
ST2	*      *      *      000000123456 *            *                *            *            0            0   0   *   
ST5	032204 032204 032204 302300123456 *            *                *            *            0            0   0   *   

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

*032204  CAIE	6,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032204 032204 032204 302300123456 777777777777 000000123456     000000123456 000000032200 0            0   0   777 
IT1	*      *      123456 *            302300123456 *                *            *            0            0   0   *   
ET0	*      *      032205 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032205 *      032206 *            777777777777 *                *            *            0            0   0   *   

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

*032206  JUMPA	0,032207

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032206 032206 032206 324000032207 777777777777 000000123456     000000123456 000000032200 0            0   0   777 
IT1	*      *      032207 *            324000032207 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032207     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032207 *            000000032207 777777777777     *            000000032207 0            0   0   *   

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

*032207  MOVE 	7,032214

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032207 032207 032207 200340032214 777777777777 777777777777     777777777777 000000032207 0            0   0   77  SEQ 0295
IT1	*      *      032214 *            200340032214 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000032214     *            *            0            0   0   *   
FT6	032210 032210 032210 302340123456 777777777777 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            123456701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000123456 *            0            0   0   *   

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

*032210  CAIE	7,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032210 032210 032210 302340123456 777777777777 000000123456     000000123456 000000032207 0            0   0   777 
IT1	*      *      123456 *            302340123456 *                *            *            0            0   0   *   
ET0	*      *      032211 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032211 *      032212 *            777777777777 *                *            *            0            0   0   *   

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

*032212  JUMPA	0,032213

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032212 032212 032212 324000032213 777777777777 000000123456     000000123456 000000032207 0            0   0   777 
IT1	*      *      032213 *            324000032213 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032213     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032213 *            000000032213 777777777777     *            000000032213 0            0   0   *   

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

*032213  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032213 032213 032213 334000000000 777777777777 777777777777     777777777777 000000032213 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      032214 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032214 0      032215 *            *            *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =777777 777777 
FINAL
C(AC)=777777 777777 
----------
*032215  MOVE 	5,034414                                                                                                   SEQ 0296

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032215 032215 032215 200240034414 777777777777 777777777777     777777777777 000000032213 0            0   0   777 
IT1	*      *      034414 *            200240034414 *                777457777676 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032216 032216 032216 402000000006 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777457777676 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032216  SETZM	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032216 032216 032216 402000000006 777777777777 123456701234     123456701234 000000032213 0            0   0   777 
IT1	*      *      000006 *            402000000006 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 032217 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                000000123456 *            0            0   0   *   
ST5	032217 032217 *      562240000006 *            0                777777777777 *            0            0   0   *   

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

*032217  HRROM	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032217 032217 032217 562240000006 777777777777 0                777777777777 000000032213 0            0   0   777 
IT1	*      *      000006 *            562240000006 0                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 032220 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456701234 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 123456701234     *            000000000006 0            0   0   *   
ST1	*      *      *      *            777777777777 777777701234     *            *            0            0   0   *   
ST2	*      *      *      777777701234 *            *                000000000000 *            0            0   0   *   
ST5	032220 032220 *      312240034414 *            *                123456701234 *            0            0   0   *   

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

*032220  CAME	5,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032220 032220 032220 312240034414 777777777777 777777701234     123456701234 000000000006 0            0   0   777 
IT1	*      *      034414 *            312240034414 *                *            *            0            0   0   *   SEQ 0297
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032221 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032221 *      032222 *            777777777777 *                *            *            0            0   0   *   

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

*032222  JUMPA	0,032223

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032222 032222 032222 324000032223 777777777777 123456701234     123456701234 000000000006 0            0   0   777 
IT1	*      *      032223 *            324000032223 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032223     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032223 *            000000032223 777777777777     *            000000032223 0            0   0   *   

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

*032223  CAME	6,034417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032223 032223 032223 312300034417 777777777777 777777777777     777777777777 000000032223 0            0   0   777 
IT1	*      *      034417 *            312300034417 *                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034417     *            *            0            0   0   *   
FT6	*      034417 *      777777701234 777777777777 777777701234     *            *            0            0   0   *   
ET0	*      *      032224 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032224 *      032225 *            777777777777 *                *            *            0            0   0   *   

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

*032225  JUMPA	0,032226

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032225 032225 032225 324000032226 777777777777 777777701234     777777701234 000000032223 0            0   0   777 
IT1	*      *      032226 *            324000032226 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032226     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032226 *            000000032226 777777777777     *            000000032226 0            0   0   *   

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

*032226  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032226 032226 032226 400000000000 777777777777 777777777777     777777777777 000000032226 0            0   0   777 
IT1	*      *      000000 *            400000000000 *                *            *            0            0   0   *   SEQ 0298
ET2	*      *      032227 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	032227 032227 *      200740034414 777777777777 0                000000000000 *            0            0   0   *   

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

*032227  MOVE 	17,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032227 032227 032227 200740034414 777777777777 0                0            000000032226 0            0   0   777 
IT1	*      *      034414 *            200740034414 0                000000701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032230 032230 032230 563000000017 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            000000701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032230  HRROS	0,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032230 032230 032230 563000000017 777777777777 123456701234     123456701234 000000032226 0            0   0   777 
IT1	*      *      000017 *            563000000017 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     0            *            0            0   0   *   
FT6	*      000017 032231 *            777777777777 123456701234     0            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777701234     0            *            0            0   0   *   
ST2	*      *      *      777777701234 *            *                123456701234 *            0            0   0   *   
ST5	032231 032231 *      312000034407 *            *                000000000000 *            0            0   0   *   

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

*032231  CAME	0,034407

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032231 032231 032231 312000034407 777777777777 777777701234     0            000000032226 0            0   0   777 
IT1	*      *      034407 *            312000034407 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034407     0            *            0            0   0   *   
FT6	*      034407 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032232 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032232 *      032233 0            777777777777 0                0            *            0            0   0   *   

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

*032233  JUMPA	0,032234

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032233 032233 032233 324000032234 777777777777 0                0            000000032226 0            0   0   777 
IT1	*      *      032234 *            324000032234 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032234     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032234 *            000000032234 000000000000     0            000000032234 0            0   0   *   

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

*032234  CAME	17,034417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032234 032234 032234 312740034417 777777777777 0                0            000000032234 0            0   0   777 
IT1	*      *      034417 *            312740034417 0                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034417     *            *            0            0   0   *   
FT6	*      034417 *      777777701234 777777777777 777777701234     *            *            0            0   0   *   
ET0	*      *      032235 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032235 *      032236 *            777777777777 *                *            *            0            0   0   *   

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

*032236  JUMPA	0,032237

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032236 032236 032236 324000032237 777777777777 777777701234     777777701234 000000032234 0            0   0   777 
IT1	*      *      032237 *            324000032237 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032237     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032237 *            000000032237 000000000000     0            000000032237 0            0   0   *   

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

*032237  SETZ 	16,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032237 032237 032237 400700000000 777777777777 0                0            000000032237 0            0   0   777 
IT1	*      *      000000 *            400700000000 0                707076777777 *            0            0   0   *   
ET2	*      *      032240 *            000000000000 0                *            *            0            0   0   *   
ST1	032240 032240 *      200740034414 777777777777 0                000000000000 *            0            0   0   *   

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

*032240  MOVE 	17,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032240 032240 032240 200740034414 777777777777 0                0            000000032237 0            0   0   777 
IT1	*      *      034414 *            200740034414 0                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032241 032241 032241 563700000017 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032241  HRROS	16,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032241 032241 032241 563700000017 777777777777 123456701234     123456701234 000000032237 0            0   0   777 
IT1	*      *      000017 *            563700000017 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     0            *            0            0   0   *   
FT6	*      000017 032242 *            777777777777 123456701234     0            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777701234     777777701234 *            0            0   0   *   
ST2	*      *      *      777777701234 *            *                123456701234 *            0            0   0   *   
ST5	032242 032242 *      312700034417 *            *                777777701234 *            0            0   0   *   

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

*032242  CAME	16,034417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032242 032242 032242 312700034417 777777777777 777777701234     777777701234 000000032237 0            0   0   777 
IT1	*      *      034417 *            312700034417 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034417     *            *            0            0   0   *   
FT6	*      034417 *      777777701234 777777777777 777777701234     *            *            0            0   0   *   
ET0	*      *      032243 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032243 *      032244 *            777777777777 *                *            *            0            0   0   *   

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

*032244  JUMPA	0,032245

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032244 032244 032244 324000032245 777777777777 777777701234     777777701234 000000032237 0            0   0   777 
IT1	*      *      032245 *            324000032245 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032245     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   SEQ 0301
ST1	*      *      032245 *            000000032245 000000000000     0            000000032245 0            0   0   *   

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

*032245  CAME	17,034417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032245 032245 032245 312740034417 777777777777 0                0            000000032245 0            0   0   777 
IT1	*      *      034417 *            312740034417 0                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034417     *            *            0            0   0   *   
FT6	*      034417 *      777777701234 777777777777 777777701234     *            *            0            0   0   *   
ET0	*      *      032246 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032246 *      032247 *            777777777777 *                *            *            0            0   0   *   

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

*032247  JUMPA	0,032250

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032247 032247 032247 324000032250 777777777777 777777701234     777777701234 000000032245 0            0   0   777 
IT1	*      *      032250 *            324000032250 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032250     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032250 *            000000032250 000000000000     0            000000032250 0            0   0   *   

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

*032250  SETZ 	4,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032250 032250 032250 400200000000 777777777777 0                0            000000032250 0            0   0   777 
IT1	*      *      000000 *            400200000000 0                000570004200 *            0            0   0   *   
ET2	*      *      032251 *            000000000000 0                *            *            0            0   0   *   
ST1	032251 032251 *      200240034420 777777777777 0                000000000000 *            0            0   0   *   

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

*032251  MOVE 	5,034420

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032251 032251 032251 200240034420 777777777777 0                0            000000032250 0            0   0   777 
IT1	*      *      034420 *            200240034420 0                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034420     *            *            0            0   0   *   
FT6	032252 032252 032252 564200000005 777777777777 765432107654     *            *            0            0   0   *   
ET2	*      *      *      *            123456701234 *                *            *            0            0   0   *   SEQ 0302
ST1	*      *      *      *            777777777777 *                765432107654 *            0            0   0   *   

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

*032252  HLRO 	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032252 032252 032252 564200000005 777777777777 765432107654     765432107654 000000032250 0            0   0   777 
IT1	*      *      000005 *            564200000005 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     0            *            0            0   0   *   
FT6	032253 032253 032253 312200034421 777777777777 765432107654     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777765432     777777765432 *            0            0   0   *   

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

*032253  CAME	4,034421

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032253 032253 032253 312200034421 777777777777 777777765432     777777765432 000000032250 0            0   0   777 
IT1	*      *      034421 *            312200034421 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034421     *            *            0            0   0   *   
FT6	*      034421 *      777777765432 777777777777 777777765432     *            *            0            0   0   *   
ET0	*      *      032254 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032254 *      032255 *            777777777777 *                *            *            0            0   0   *   

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

*032255  JUMPA	0,032256

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032255 032255 032255 324000032256 777777777777 777777765432     777777765432 000000032250 0            0   0   777 
IT1	*      *      032256 *            324000032256 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032256     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032256 *            000000032256 000000000000     0            000000032256 0            0   0   *   

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

*032256  CAME	5,034420

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032256 032256 032256 312240034420 777777777777 0                0            000000032256 0            0   0   77  SEQ 0303
IT1	*      *      034420 *            312240034420 0                765432107654 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034420     *            *            0            0   0   *   
FT6	*      034420 *      765432107654 777777777777 765432107654     *            *            0            0   0   *   
ET0	*      *      032257 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032257 *      032260 *            777777777777 *                *            *            0            0   0   *   

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

*032260  JUMPA	0,032261

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032260 032260 032260 324000032261 777777777777 765432107654     765432107654 000000032256 0            0   0   777 
IT1	*      *      032261 *            324000032261 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032261     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032261 *            000000032261 000000000000     0            000000032261 0            0   0   *   

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

*032261  MOVE 	3,034334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032261 032261 032261 200140034334 777777777777 0                0            000000032261 0            0   0   777 
IT1	*      *      034334 *            200140034334 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034334     *            *            0            0   0   *   
FT6	032262 032262 032262 565140070707 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            707070707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456765432 *            0            0   0   *   

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

*032262  HLROI	3,070707

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032262 032262 032262 565140070707 777777777777 123456765432     123456765432 000000032261 0            0   0   777 
IT1	*      *      070707 *            565140070707 *                *            *            0            0   0   *   
ET2	*      *      032263 *            777777777777 000000070707     *            *            0            0   0   *   
ST1	032263 032263 *      312140034422 *            777777000000     777777000000 *            0            0   0   *   

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

*032263  CAME	3,034422
                                                                                                                           SEQ 0304
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032263 032263 032263 312140034422 777777777777 777777000000     777777000000 000000032261 0            0   0   777 
IT1	*      *      034422 *            312140034422 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034422     *            *            0            0   0   *   
FT6	*      034422 *      777777000000 777777777777 777777000000     *            *            0            0   0   *   
ET0	*      *      032264 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032264 *      032265 *            777777777777 *                *            *            0            0   0   *   

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

*032265  JUMPA	0,032266

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032265 032265 032265 324000032266 777777777777 777777000000     777777000000 000000032261 0            0   0   777 
IT1	*      *      032266 *            324000032266 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032266     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032266 *            000000032266 000000000000     0            000000032266 0            0   0   *   

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

*032266  MOVE 	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032266 032266 032266 200040034374 777777777777 0                0            000000032266 0            0   0   777 
IT1	*      *      034374 *            200040034374 0                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	032267 032267 032267 200100034375 777777777777 123456123422     *            *            0            0   0   *   
ET2	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*032267  MOVE 	2,034375

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032267 032267 032267 200100034375 777777777777 123456123422     123456123422 000000032266 0            0   0   777 
IT1	*      *      034375 *            200100034375 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034375     *            *            0            0   0   *   
FT6	032270 032270 032270 566040000002 777777777777 707070717171     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070717171 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 C(E) =707070 717171 
FINAL
C(AC)=707070 717171                                                                                                        SEQ 0305
----------

*032270  HLROM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032270 032270 032270 566040000002 777777777777 707070717171     707070717171 000000032266 0            0   0   777 
IT1	*      *      000002 *            566040000002 *                123456123422 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 032271 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            123456123422 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 123456123422     *            000000000002 0            0   0   *   
ST1	*      *      *      *            *            777777123456     *            *            0            0   0   *   
ST2	*      *      *      777777123456 *            *                707070717171 *            0            0   0   *   
ST5	032271 032271 *      312040034374 *            *                123456123422 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 123422 C(E) =707070 717171 
FINAL
C(E) =777777 123456 
----------

*032271  CAME	1,034374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032271 032271 032271 312040034374 777777777777 777777123456     123456123422 000000000002 0            0   0   777 
IT1	*      *      034374 *            312040034374 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034374     *            *            0            0   0   *   
FT6	*      034374 *      123456123422 777777777777 123456123422     *            *            0            0   0   *   
ET0	*      *      032272 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032272 *      032273 *            777777777777 *                *            *            0            0   0   *   

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

*032273  JUMPA	0,032274

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032273 032273 032273 324000032274 777777777777 123456123422     123456123422 000000000002 0            0   0   777 
IT1	*      *      032274 *            324000032274 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032274     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032274 *            000000032274 000000000000     0            000000032274 0            0   0   *   

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

*032274  CAME	2,034423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032274 032274 032274 312100034423 777777777777 0                0            000000032274 0            0   0   777 
IT1	*      *      034423 *            312100034423 0                777777123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034423     *            *            0            0   0   *   
FT6	*      034423 *      777777123456 777777777777 777777123456     *            *            0            0   0   *   
ET0	*      *      032275 *            000000000000 *                *            *            0            0   0   *   SEQ 0306
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032275 *      032276 *            777777777777 *                *            *            0            0   0   *   

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

*032276  JUMPA	0,032277

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032276 032276 032276 324000032277 777777777777 777777123456     777777123456 000000032274 0            0   0   777 
IT1	*      *      032277 *            324000032277 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032277     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032277 *            000000032277 000000000000     0            000000032277 0            0   0   *   

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

*032277  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032277 032277 032277 400000000000 777777777777 0                0            000000032277 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      032300 *            000000000000 0                0            *            0            0   0   *   
ST1	032300 032300 *      200340034414 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 
----------

*032300  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032300 032300 032300 200340034414 777777777777 0                0            000000032277 0            0   0   777 
IT1	*      *      034414 *            200340034414 0                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032301 032301 032301 567000000007 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032301  HLROS	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032301 032301 032301 567000000007 777777777777 123456701234     123456701234 000000032277 0            0   0   777 
IT1	*      *      000007 *            567000000007 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     0            *            0            0   0   *   SEQ 0307
FT6	*      000007 032302 *            777777777777 123456701234     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777123456     0            *            0            0   0   *   
ST2	*      *      *      777777123456 *            *                123456701234 *            0            0   0   *   
ST5	032302 032302 *      302000000000 *            *                000000000000 *            0            0   0   *   

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

*032302  CAIE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032302 032302 032302 302000000000 777777777777 777777123456     0            000000032277 0            0   0   777 
IT1	*      *      000000 *            302000000000 *                0            *            0            0   0   *   
ET0	*      *      032303 *            000000000000 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032303 *      032304 *            777777777777 0                0            *            0            0   0   *   

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

*032304  JUMPA	0,032305

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032304 032304 032304 324000032305 777777777777 0                0            000000032277 0            0   0   777 
IT1	*      *      032305 *            324000032305 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032305     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032305 *            000000032305 000000000000     0            000000032305 0            0   0   *   

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

*032305  CAME	7,034423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032305 032305 032305 312340034423 777777777777 0                0            000000032305 0            0   0   777 
IT1	*      *      034423 *            312340034423 0                777777123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034423     *            *            0            0   0   *   
FT6	*      034423 *      777777123456 777777777777 777777123456     *            *            0            0   0   *   
ET0	*      *      032306 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032306 *      032307 *            777777777777 *                *            *            0            0   0   *   

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

*032307  JUMPA	0,032310
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0308
IT0	032307 032307 032307 324000032310 777777777777 777777123456     777777123456 000000032305 0            0   0   777 
IT1	*      *      032310 *            324000032310 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032310     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032310 *            000000032310 000000000000     0            000000032310 0            0   0   *   

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

*032310  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032310 032310 032310 400040000000 777777777777 0                0            000000032310 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                123456123422 *            0            0   0   *   
ET2	*      *      032311 *            000000000000 0                *            *            0            0   0   *   
ST1	032311 032311 *      200340034414 777777777777 0                000000000000 *            0            0   0   *   

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

*032311  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032311 032311 032311 200340034414 777777777777 0                0            000000032310 0            0   0   777 
IT1	*      *      034414 *            200340034414 0                777777123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032312 032312 032312 567040000007 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032312  HLROS	1,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032312 032312 032312 567040000007 777777777777 123456701234     123456701234 000000032310 0            0   0   777 
IT1	*      *      000007 *            567040000007 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     0            *            0            0   0   *   
FT6	*      000007 032313 *            777777777777 123456701234     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777123456     777777123456 *            0            0   0   *   
ST2	*      *      *      777777123456 *            *                123456701234 *            0            0   0   *   
ST5	032313 032313 *      312040034423 *            *                777777123456 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =123456 701234 
FINAL
C(AC)=777777 123456 C(E) =777777 123456                                                                                    SEQ 0309
----------

*032313  CAME	1,034423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032313 032313 032313 312040034423 777777777777 777777123456     777777123456 000000032310 0            0   0   777 
IT1	*      *      034423 *            312040034423 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034423     *            *            0            0   0   *   
FT6	*      034423 *      777777123456 777777777777 777777123456     *            *            0            0   0   *   
ET0	*      *      032314 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032314 *      032315 *            777777777777 *                *            *            0            0   0   *   

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

*032315  JUMPA	0,032316

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032315 032315 032315 324000032316 777777777777 777777123456     777777123456 000000032310 0            0   0   777 
IT1	*      *      032316 *            324000032316 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032316     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032316 *            000000032316 000000000000     0            000000032316 0            0   0   *   

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

*032316  CAME	7,034423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032316 032316 032316 312340034423 777777777777 0                0            000000032316 0            0   0   777 
IT1	*      *      034423 *            312340034423 0                777777123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034423     *            *            0            0   0   *   
FT6	*      034423 *      777777123456 777777777777 777777123456     *            *            0            0   0   *   
ET0	*      *      032317 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032317 *      032320 *            777777777777 *                *            *            0            0   0   *   

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

*032320  JUMPA	0,032321

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032320 032320 032320 324000032321 777777777777 777777123456     777777123456 000000032316 0            0   0   777 
IT1	*      *      032321 *            324000032321 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032321     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032321 *            000000032321 000000000000     0            000000032321 0            0   0   *   

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

*032321  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032321 032321 032321 400000000000 777777777777 0                0            000000032321 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      032322 *            000000000000 0                0            *            0            0   0   *   
ST1	032322 032322 *      200140034414 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 
----------

*032322  MOVE 	3,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032322 032322 032322 200140034414 777777777777 0                0            000000032321 0            0   0   777 
IT1	*      *      034414 *            200140034414 0                777777000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032323 032323 032323 573000000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032323  HRRES	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032323 032323 032323 573000000003 777777777777 123456701234     123456701234 000000032321 0            0   0   777 
IT1	*      *      000003 *            573000000003 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     0            *            0            0   0   *   
FT6	*      000003 032324 *            777777777777 123456701234     0            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777701234     0            *            0            0   0   *   
ST2	*      *      *      777777701234 *            *                123456701234 *            0            0   0   *   
ST5	032324 032324 *      332000000000 *            *                000000000000 *            0            0   0   *   

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

*032324  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032324 032324 032324 332000000000 777777777777 777777701234     0            000000032321 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   *   SEQ 0311
ET0	*      0      032325 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032325 0      032326 *            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 
----------

*032326  JUMPA	0,032327

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032326 032326 032326 324000032327 777777777777 0                0            000000032321 0            0   0   777 
IT1	*      *      032327 *            324000032327 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032327     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032327 *            000000032327 000000000000     0            000000032327 0            0   0   *   

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

*032327  CAME	3,034417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032327 032327 032327 312140034417 777777777777 0                0            000000032327 0            0   0   777 
IT1	*      *      034417 *            312140034417 0                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034417     *            *            0            0   0   *   
FT6	*      034417 *      777777701234 777777777777 777777701234     *            *            0            0   0   *   
ET0	*      *      032330 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032330 *      032331 *            777777777777 *                *            *            0            0   0   *   

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

*032331  JUMPA	0,032332

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032331 032331 032331 324000032332 777777777777 777777701234     777777701234 000000032327 0            0   0   777 
IT1	*      *      032332 *            324000032332 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032332     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032332 *            000000032332 000000000000     0            000000032332 0            0   0   *   

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

*032332  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032332 032332 032332 400040000000 777777777777 0                0            000000032332 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                777777123456 *            0            0   0   *   SEQ 0312
ET2	*      *      032333 *            000000000000 0                *            *            0            0   0   *   
ST1	032333 032333 *      200140034414 777777777777 0                000000000000 *            0            0   0   *   

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

*032333  MOVE 	3,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032333 032333 032333 200140034414 777777777777 0                0            000000032332 0            0   0   777 
IT1	*      *      034414 *            200140034414 0                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032334 032334 032334 573040000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032334  HRRES	1,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032334 032334 032334 573040000003 777777777777 123456701234     123456701234 000000032332 0            0   0   777 
IT1	*      *      000003 *            573040000003 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     0            *            0            0   0   *   
FT6	*      000003 032335 *            777777777777 123456701234     0            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777701234     777777701234 *            0            0   0   *   
ST2	*      *      *      777777701234 *            *                123456701234 *            0            0   0   *   
ST5	032335 032335 *      312040034417 *            *                777777701234 *            0            0   0   *   

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

*032335  CAME	1,034417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032335 032335 032335 312040034417 777777777777 777777701234     777777701234 000000032332 0            0   0   777 
IT1	*      *      034417 *            312040034417 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034417     *            *            0            0   0   *   
FT6	*      034417 *      777777701234 777777777777 777777701234     *            *            0            0   0   *   
ET0	*      *      032336 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032336 *      032337 *            777777777777 *                *            *            0            0   0   *   

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

*032337  JUMPA	0,032340

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032337 032337 032337 324000032340 777777777777 777777701234     777777701234 000000032332 0            0   0   777 
IT1	*      *      032340 *            324000032340 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032340     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032340 *            000000032340 000000000000     0            000000032340 0            0   0   *   

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

*032340  CAME	3,034417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032340 032340 032340 312140034417 777777777777 0                0            000000032340 0            0   0   777 
IT1	*      *      034417 *            312140034417 0                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034417     *            *            0            0   0   *   
FT6	*      034417 *      777777701234 777777777777 777777701234     *            *            0            0   0   *   
ET0	*      *      032341 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032341 *      032342 *            777777777777 *                *            *            0            0   0   *   

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

*032342  JUMPA	0,032343

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032342 032342 032342 324000032343 777777777777 777777701234     777777701234 000000032340 0            0   0   777 
IT1	*      *      032343 *            324000032343 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032343     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032343 *            000000032343 000000000000     0            000000032343 0            0   0   *   

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

*032343  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032343 032343 032343 474000000000 777777777777 0                0            000000032343 0            0   0   777 
IT1	*      *      000000 *            474000000000 0                0            *            0            0   0   *   
ET2	*      *      032344 *            777777777777 0                0            *            0            0   0   *   
ST1	032344 032344 *      200340034414 *            777777777777     777777777777 *            0            0   0   *   

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

*032344  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032344 032344 032344 200340034414 777777777777 777777777777     777777777777 000000032343 0            0   0   777 
IT1	*      *      034414 *            200340034414 *                777777123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032345 032345 032345 577000000007 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032345  HLRES	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032345 032345 032345 577000000007 777777777777 123456701234     123456701234 000000032343 0            0   0   777 
IT1	*      *      000007 *            577000000007 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 032346 *            777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            000000123456     *            *            0            0   0   *   
ST2	*      *      *      000000123456 *            *                123456701234 *            0            0   0   *   
ST5	032346 032346 *      312000034301 *            *                777777777777 *            0            0   0   *   

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

*032346  CAME	0,034301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032346 032346 032346 312000034301 777777777777 000000123456     777777777777 000000032343 0            0   0   777 
IT1	*      *      034301 *            312000034301 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034301     *            *            0            0   0   *   
FT6	*      034301 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032347 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032347 *      032350 *            777777777777 *                *            *            0            0   0   *   

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

*032350  JUMPA	0,032351

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032350 032350 032350 324000032351 777777777777 777777777777     777777777777 000000032343 0            0   0   777 
IT1	*      *      032351 *            324000032351 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032351     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   SEQ 0315
ST1	*      *      032351 *            000000032351 777777777777     *            000000032351 0            0   0   *   

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

*032351  CAIE	7,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032351 032351 032351 302340123456 777777777777 777777777777     777777777777 000000032351 0            0   0   777 
IT1	*      *      123456 *            302340123456 *                000000123456 *            0            0   0   *   
ET0	*      *      032352 *            000000000000 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032352 *      032353 *            777777777777 *                *            *            0            0   0   *   

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

*032353  JUMPA	0,032354

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032353 032353 032353 324000032354 777777777777 000000123456     000000123456 000000032351 0            0   0   777 
IT1	*      *      032354 *            324000032354 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032354     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032354 *            000000032354 777777777777     *            000000032354 0            0   0   *   

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

*032354  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032354 032354 032354 474040000000 777777777777 777777777777     777777777777 000000032354 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                777777701234 *            0            0   0   *   
ET2	*      *      032355 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032355 032355 *      200340034414 *            777777777777     777777777777 *            0            0   0   *   

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

*032355  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032355 032355 032355 200340034414 777777777777 777777777777     777777777777 000000032354 0            0   0   777 
IT1	*      *      034414 *            200340034414 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032356 032356 032356 577040000007 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   
                                                                                                                           SEQ 0316
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 C(E) =123456 701234 
FINAL
C(AC)=123456 701234 
----------

*032356  HLRES	1,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032356 032356 032356 577040000007 777777777777 123456701234     123456701234 000000032354 0            0   0   777 
IT1	*      *      000007 *            577040000007 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 032357 *            777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            000000123456     000000123456 *            0            0   0   *   
ST2	*      *      *      000000123456 *            *                123456701234 *            0            0   0   *   
ST5	032357 032357 *      302040123456 *            *                000000123456 *            0            0   0   *   

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

*032357  CAIE	1,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032357 032357 032357 302040123456 777777777777 000000123456     000000123456 000000032354 0            0   0   777 
IT1	*      *      123456 *            302040123456 *                *            *            0            0   0   *   
ET0	*      *      032360 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032360 *      032361 *            777777777777 *                *            *            0            0   0   *   

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

*032361  JUMPA	0,032362

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032361 032361 032361 324000032362 777777777777 000000123456     000000123456 000000032354 0            0   0   777 
IT1	*      *      032362 *            324000032362 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032362     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032362 *            000000032362 777777777777     *            000000032362 0            0   0   *   

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

*032362  CAIE	7,123456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032362 032362 032362 302340123456 777777777777 777777777777     777777777777 000000032362 0            0   0   777 
IT1	*      *      123456 *            302340123456 *                000000123456 *            0            0   0   *   
ET0	*      *      032363 *            000000000000 000000123456     *            *            0            0   0   *   SEQ 0317
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032363 *      032364 *            777777777777 *                *            *            0            0   0   *   

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

*032364  JUMPA	0,032365

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032364 032364 032364 324000032365 777777777777 000000123456     000000123456 000000032362 0            0   0   777 
IT1	*      *      032365 *            324000032365 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032365     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032365 *            000000032365 777777777777     *            000000032365 0            0   0   *   

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

*032365  MOVE 	17,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032365 032365 032365 200740034414 777777777777 777777777777     777777777777 000000032365 0            0   0   777 
IT1	*      *      034414 *            200740034414 *                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032366 032366 032366 602740000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032366  TRNE	17,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032366 032366 032366 602740000003 777777777777 123456701234     123456701234 000000032365 0            0   0   777 
IT1	*      *      000003 *            602740000003 *                *            *            0            0   0   *   
ET1	*      *      032367 *            000000000000 000000000003     *            *            0            0   0   *   
ET2	032367 *      032370 *            777777777777 *                *            000000000003 0            0   0   *   

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

*032370  JUMPA	0,032371

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032370 032370 032370 324000032371 777777777777 777777777777     123456701234 000000000003 0            0   0   777 
IT1	*      *      032371 *            324000032371 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032371     *            *            0            0   0   *   SEQ 0318
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032371 *            000000032371 777777777777     *            000000032371 0            0   0   *   

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

*032371  CAME	17,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032371 032371 032371 312740034414 777777777777 777777777777     777777777777 000000032371 0            0   0   777 
IT1	*      *      034414 *            312740034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032372 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032372 *      032373 *            777777777777 *                *            *            0            0   0   *   

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

*032373  JUMPA	0,032374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032373 032373 032373 324000032374 777777777777 123456701234     123456701234 000000032371 0            0   0   777 
IT1	*      *      032374 *            324000032374 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032374     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032374 *            000000032374 777777777777     *            000000032374 0            0   0   *   

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

*032374  MOVE 	16,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032374 032374 032374 200700034414 777777777777 777777777777     777777777777 000000032374 0            0   0   777 
IT1	*      *      034414 *            200700034414 *                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032375 032375 032375 602700000300 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032375  TRNE	16,000300

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032375 032375 032375 602700000300 777777777777 123456701234     123456701234 000000032374 0            0   0   777 
IT1	*      *      000300 *            602700000300 *                *            *            0            0   0   *   SEQ 0319
ET1	*      *      032376 *            000000000200 000000000300     *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            000000000300 0            0   0   *   

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

*032376  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032376 032376 032376 334000000000 777777777777 777777777777     123456701234 000000000300 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                777777777777 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      032377 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032377 0      032400 *            *            *                *            *            0            0   0   *   

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

*032400  JUMPA	0,032401

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032400 032400 032400 324000032401 777777777777 777777777777     777777777777 000000000300 0            0   0   777 
IT1	*      *      032401 *            324000032401 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032401     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032401 *            000000032401 777777777777     *            000000032401 0            0   0   *   

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

*032401  CAME	16,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032401 032401 032401 312700034414 777777777777 777777777777     777777777777 000000032401 0            0   0   777 
IT1	*      *      034414 *            312700034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032402 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032402 *      032403 *            777777777777 *                *            *            0            0   0   *   

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

*032403  JUMPA	0,032404
                                                                                                                           SEQ 0320
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032403 032403 032403 324000032404 777777777777 123456701234     123456701234 000000032401 0            0   0   777 
IT1	*      *      032404 *            324000032404 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032404     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032404 *            000000032404 777777777777     *            000000032404 0            0   0   *   

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

*032404  MOVE 	15,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032404 032404 032404 200640034414 777777777777 777777777777     777777777777 000000032404 0            0   0   777 
IT1	*      *      034414 *            200640034414 *                246135777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032405 032405 032405 603640000300 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            246135777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032405  TLNE	15,000300

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032405 032405 032405 603640000300 777777777777 123456701234     123456701234 000000032404 0            0   0   777 
IT1	*      *      000300 *            603640000300 *                *            *            0            0   0   *   
ET0	*      *      032406 *            000000000200 000000000300     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 000300000000     *            *            0            0   0   *   
ET2	032406 *      032407 *            777777777777 *                *            000300000000 0            0   0   *   

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

*032407  JUMPA	0,032410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032407 032407 032407 324000032410 777777777777 777777777777     123456701234 000300000000 0            0   0   777 
IT1	*      *      032410 *            324000032410 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032410     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032410 *            000000032410 777777777777     *            000000032410 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 E    =000000 032410 
----------
*032410  CAME	15,034414                                                                                                  SEQ 0321

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032410 032410 032410 312640034414 777777777777 777777777777     777777777777 000000032410 0            0   0   777 
IT1	*      *      034414 *            312640034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032411 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032411 *      032412 *            777777777777 *                *            *            0            0   0   *   

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

*032412  JUMPA	0,032413

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032412 032412 032412 324000032413 777777777777 123456701234     123456701234 000000032410 0            0   0   777 
IT1	*      *      032413 *            324000032413 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032413     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032413 *            000000032413 777777777777     *            000000032413 0            0   0   *   

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

*032413  MOVE 	14,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032413 032413 032413 200600034414 777777777777 777777777777     777777777777 000000032413 0            0   0   777 
IT1	*      *      034414 *            200600034414 *                456765777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032414 032414 032414 603600000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            456765777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032414  TLNE	14,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032414 032414 032414 603600000003 777777777777 123456701234     123456701234 000000032413 0            0   0   777 
IT1	*      *      000003 *            603600000003 *                *            *            0            0   0   *   
ET0	*      *      032415 *            000000000000 000000000003     *            *            0            0   0   *   
ET1	*      *      *      *            000002000000 000003000000     *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            000003000000 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 701234 E    =000000 000003 
FINAL
C(AC)=123456 701234                                                                                                        SEQ 0322
----------

*032415  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032415 032415 032415 334000000000 777777777777 777777777777     123456701234 000003000000 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                777777777777 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      032416 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032416 0      032417 *            *            *                *            *            0            0   0   *   

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

*032417  JUMPA	0,032420

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032417 032417 032417 324000032420 777777777777 777777777777     777777777777 000003000000 0            0   0   777 
IT1	*      *      032420 *            324000032420 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032420     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032420 *            000000032420 777777777777     *            000000032420 0            0   0   *   

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

*032420  CAME	14,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032420 032420 032420 312600034414 777777777777 777777777777     777777777777 000000032420 0            0   0   777 
IT1	*      *      034414 *            312600034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032421 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032421 *      032422 *            777777777777 *                *            *            0            0   0   *   

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

*032422  JUMPA	0,032423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032422 032422 032422 324000032423 777777777777 123456701234     123456701234 000000032420 0            0   0   777 
IT1	*      *      032423 *            324000032423 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032423     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032423 *            000000032423 777777777777     *            000000032423 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0323
INITIAL
C(AC)=777777 777777 E    =000000 032423 
----------

*032423  MOVE 	13,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032423 032423 032423 200540034414 777777777777 777777777777     777777777777 000000032423 0            0   0   777 
IT1	*      *      034414 *            200540034414 *                365432000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032424 032424 032424 604540000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            365432000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032424  TRNA	13,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032424 032424 032424 604540000003 777777777777 123456701234     123456701234 000000032423 0            0   0   777 
IT1	*      *      000003 *            604540000003 *                *            *            0            0   0   *   
ET1	*      *      032425 *            000000000000 000000000003     *            *            0            0   0   *   
ET2	032425 *      032426 *            777777777777 *                *            000000000003 0            0   0   *   

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

*032426  JUMPA	0,032427

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032426 032426 032426 324000032427 777777777777 777777777777     123456701234 000000000003 0            0   0   777 
IT1	*      *      032427 *            324000032427 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032427     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032427 *            000000032427 777777777777     *            000000032427 0            0   0   *   

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

*032427  CAME	13,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032427 032427 032427 312540034414 777777777777 777777777777     777777777777 000000032427 0            0   0   777 
IT1	*      *      034414 *            312540034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032430 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032430 *      032431 *            777777777777 *                *            *            0            0   0   *   SEQ 0324

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

*032431  JUMPA	0,032432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032431 032431 032431 324000032432 777777777777 123456701234     123456701234 000000032427 0            0   0   777 
IT1	*      *      032432 *            324000032432 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032432     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032432 *            000000032432 777777777777     *            000000032432 0            0   0   *   

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

*032432  MOVE 	12,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032432 032432 032432 200500034414 777777777777 777777777777     777777777777 000000032432 0            0   0   777 
IT1	*      *      034414 *            200500034414 *                123123123123 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032433 032433 032433 604500000300 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            123123123123 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032433  TRNA	12,000300

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032433 032433 032433 604500000300 777777777777 123456701234     123456701234 000000032432 0            0   0   777 
IT1	*      *      000300 *            604500000300 *                *            *            0            0   0   *   
ET1	*      *      032434 *            000000000200 000000000300     *            *            0            0   0   *   
ET2	032434 *      032435 *            777777777777 *                *            000000000300 0            0   0   *   

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

*032435  JUMPA	0,032436

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032435 032435 032435 324000032436 777777777777 777777777777     123456701234 000000000300 0            0   0   777 
IT1	*      *      032436 *            324000032436 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032436     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032436 *            000000032436 777777777777     *            000000032436 0            0   0   *   SEQ 0325

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

*032436  CAME	12,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032436 032436 032436 312500034414 777777777777 777777777777     777777777777 000000032436 0            0   0   777 
IT1	*      *      034414 *            312500034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032437 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032437 *      032440 *            777777777777 *                *            *            0            0   0   *   

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

*032440  JUMPA	0,032441

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032440 032440 032440 324000032441 777777777777 123456701234     123456701234 000000032436 0            0   0   777 
IT1	*      *      032441 *            324000032441 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032441     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032441 *            000000032441 777777777777     *            000000032441 0            0   0   *   

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

*032441  MOVE 	11,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032441 032441 032441 200440034414 777777777777 777777777777     777777777777 000000032441 0            0   0   777 
IT1	*      *      034414 *            200440034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032442 032442 032442 605440000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            123456701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*032442  TLNA	11,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032442 032442 032442 605440000003 777777777777 123456701234     123456701234 000000032441 0            0   0   777 
IT1	*      *      000003 *            605440000003 *                *            *            0            0   0   *   
ET0	*      *      032443 *            000000000000 000000000003     *            *            0            0   0   *   
ET1	*      *      *      *            000002000000 000003000000     *            *            0            0   0   *   SEQ 0326
ET2	032443 *      032444 *            777777777777 *                *            000003000000 0            0   0   *   

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

*032444  JUMPA	0,032445

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032444 032444 032444 324000032445 777777777777 777777777777     123456701234 000003000000 0            0   0   777 
IT1	*      *      032445 *            324000032445 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032445     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032445 *            000000032445 777777777777     *            000000032445 0            0   0   *   

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

*032445  CAME	11,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032445 032445 032445 312440034414 777777777777 777777777777     777777777777 000000032445 0            0   0   777 
IT1	*      *      034414 *            312440034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032446 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032446 *      032447 *            777777777777 *                *            *            0            0   0   *   

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

*032447  JUMPA	0,032450

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032447 032447 032447 324000032450 777777777777 123456701234     123456701234 000000032445 0            0   0   777 
IT1	*      *      032450 *            324000032450 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032450     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032450 *            000000032450 777777777777     *            000000032450 0            0   0   *   

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

*032450  MOVE 	10,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032450 032450 032450 200400034414 777777777777 777777777777     777777777777 000000032450 0            0   0   777 
IT1	*      *      034414 *            200400034414 *                624421230254 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032451 032451 032451 605400000300 777777777777 123456701234     *            *            0            0   0   *   SEQ 0327
ET2	*      *      *      *            624421230254 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032451  TLNA	10,000300

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032451 032451 032451 605400000300 777777777777 123456701234     123456701234 000000032450 0            0   0   777 
IT1	*      *      000300 *            605400000300 *                *            *            0            0   0   *   
ET0	*      *      032452 *            000000000200 000000000300     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 000300000000     *            *            0            0   0   *   
ET2	032452 *      032453 *            777777777777 *                *            000300000000 0            0   0   *   

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

*032453  JUMPA	0,032454

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032453 032453 032453 324000032454 777777777777 777777777777     123456701234 000300000000 0            0   0   777 
IT1	*      *      032454 *            324000032454 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032454     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032454 *            000000032454 777777777777     *            000000032454 0            0   0   *   

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

*032454  CAME	10,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032454 032454 032454 312400034414 777777777777 777777777777     777777777777 000000032454 0            0   0   777 
IT1	*      *      034414 *            312400034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032455 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032455 *      032456 *            777777777777 *                *            *            0            0   0   *   

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

*032456  JUMPA	0,032457

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032456 032456 032456 324000032457 777777777777 123456701234     123456701234 000000032454 0            0   0   77  SEQ 0328
IT1	*      *      032457 *            324000032457 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032457     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032457 *            000000032457 777777777777     *            000000032457 0            0   0   *   

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

*032457  MOVE 	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032457 032457 032457 200340034414 777777777777 777777777777     777777777777 000000032457 0            0   0   777 
IT1	*      *      034414 *            200340034414 *                000000123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032460 032460 032460 606340000300 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032460  TRNN	7,000300

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032460 032460 032460 606340000300 777777777777 123456701234     123456701234 000000032457 0            0   0   777 
IT1	*      *      000300 *            606340000300 *                *            *            0            0   0   *   
ET1	*      *      032461 *            000000000200 000000000300     *            *            0            0   0   *   
ET2	032461 *      032462 *            777777777777 *                *            000000000300 0            0   0   *   

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

*032462  JUMPA	0,032463

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032462 032462 032462 324000032463 777777777777 777777777777     123456701234 000000000300 0            0   0   777 
IT1	*      *      032463 *            324000032463 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032463     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032463 *            000000032463 777777777777     *            000000032463 0            0   0   *   

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

*032463  CAME	7,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032463 032463 032463 312340034414 777777777777 777777777777     777777777777 000000032463 0            0   0   77  SEQ 0329
IT1	*      *      034414 *            312340034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032464 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032464 *      032465 *            777777777777 *                *            *            0            0   0   *   

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

*032465  JUMPA	0,032466

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032465 032465 032465 324000032466 777777777777 123456701234     123456701234 000000032463 0            0   0   777 
IT1	*      *      032466 *            324000032466 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032466     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032466 *            000000032466 777777777777     *            000000032466 0            0   0   *   

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

*032466  MOVE 	6,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032466 032466 032466 200300034414 777777777777 777777777777     777777777777 000000032466 0            0   0   777 
IT1	*      *      034414 *            200300034414 *                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032467 032467 032467 606300000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032467  TRNN	6,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032467 032467 032467 606300000003 777777777777 123456701234     123456701234 000000032466 0            0   0   777 
IT1	*      *      000003 *            606300000003 *                *            *            0            0   0   *   
ET1	*      *      032470 *            000000000000 000000000003     *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            000000000003 0            0   0   *   

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

*032470  SKIPA	0,000000
                                                                                                                           SEQ 0330
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032470 032470 032470 334000000000 777777777777 777777777777     123456701234 000000000003 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                777777777777 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      032471 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032471 0      032472 *            *            *                *            *            0            0   0   *   

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

*032472  JUMPA	0,032473

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032472 032472 032472 324000032473 777777777777 777777777777     777777777777 000000000003 0            0   0   777 
IT1	*      *      032473 *            324000032473 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032473     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032473 *            000000032473 777777777777     *            000000032473 0            0   0   *   

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

*032473  CAME	6,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032473 032473 032473 312300034414 777777777777 777777777777     777777777777 000000032473 0            0   0   777 
IT1	*      *      034414 *            312300034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032474 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032474 *      032475 *            777777777777 *                *            *            0            0   0   *   

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

*032475  JUMPA	0,032476

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032475 032475 032475 324000032476 777777777777 123456701234     123456701234 000000032473 0            0   0   777 
IT1	*      *      032476 *            324000032476 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032476     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032476 *            000000032476 777777777777     *            000000032476 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 E    =000000 032476 
----------
                                                                                                                           SEQ 0331
*032476  MOVE 	5,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032476 032476 032476 200240034414 777777777777 777777777777     777777777777 000000032476 0            0   0   777 
IT1	*      *      034414 *            200240034414 *                765432107654 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032477 032477 032477 607240000003 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            765432107654 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032477  TLNN	5,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032477 032477 032477 607240000003 777777777777 123456701234     123456701234 000000032476 0            0   0   777 
IT1	*      *      000003 *            607240000003 *                *            *            0            0   0   *   
ET0	*      *      032500 *            000000000000 000000000003     *            *            0            0   0   *   
ET1	*      *      *      *            000002000000 000003000000     *            *            0            0   0   *   
ET2	032500 *      032501 *            777777777777 *                *            000003000000 0            0   0   *   

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

*032501  JUMPA	0,032502

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032501 032501 032501 324000032502 777777777777 777777777777     123456701234 000003000000 0            0   0   777 
IT1	*      *      032502 *            324000032502 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032502     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032502 *            000000032502 777777777777     *            000000032502 0            0   0   *   

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

*032502  CAME	5,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032502 032502 032502 312240034414 777777777777 777777777777     777777777777 000000032502 0            0   0   777 
IT1	*      *      034414 *            312240034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032503 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032503 *      032504 *            777777777777 *                *            *            0            0   0   *   

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

*032504  JUMPA	0,032505

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032504 032504 032504 324000032505 777777777777 123456701234     123456701234 000000032502 0            0   0   777 
IT1	*      *      032505 *            324000032505 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032505     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032505 *            000000032505 777777777777     *            000000032505 0            0   0   *   

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

*032505  MOVE 	4,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032505 032505 032505 200200034414 777777777777 777777777777     777777777777 000000032505 0            0   0   777 
IT1	*      *      034414 *            200200034414 *                777777765432 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032506 032506 032506 607200000300 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032506  TLNN	4,000300

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032506 032506 032506 607200000300 777777777777 123456701234     123456701234 000000032505 0            0   0   777 
IT1	*      *      000300 *            607200000300 *                *            *            0            0   0   *   
ET0	*      *      032507 *            000000000200 000000000300     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 000300000000     *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            000300000000 0            0   0   *   

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

*032507  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032507 032507 032507 334000000000 777777777777 777777777777     123456701234 000300000000 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                777777777777 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      032510 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032510 0      032511 *            *            *                *            *            0            0   0   *   SEQ 0333

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

*032511  JUMPA	0,032512

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032511 032511 032511 324000032512 777777777777 777777777777     777777777777 000300000000 0            0   0   777 
IT1	*      *      032512 *            324000032512 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032512     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032512 *            000000032512 777777777777     *            000000032512 0            0   0   *   

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

*032512  CAME	4,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032512 032512 032512 312200034414 777777777777 777777777777     777777777777 000000032512 0            0   0   777 
IT1	*      *      034414 *            312200034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032513 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032513 *      032514 *            777777777777 *                *            *            0            0   0   *   

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

*032514  JUMPA	0,032515

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032514 032514 032514 324000032515 777777777777 123456701234     123456701234 000000032512 0            0   0   777 
IT1	*      *      032515 *            324000032515 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032515     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032515 *            000000032515 777777777777     *            000000032515 0            0   0   *   

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

*032515  MOVE 	3,034414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032515 032515 032515 200140034414 777777777777 777777777777     777777777777 000000032515 0            0   0   777 
IT1	*      *      034414 *            200140034414 *                777777701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032516 032516 032516 200200034424 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777701234 *                *            *            0            0   0   *   SEQ 0334
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032516  MOVE 	4,034424

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032516 032516 032516 200200034424 777777777777 123456701234     123456701234 000000032515 0            0   0   777 
IT1	*      *      034424 *            200200034424 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034424     *            *            0            0   0   *   
FT6	032517 032517 032517 613140000004 777777777777 076543654321     *            *            0            0   0   *   
ET2	*      *      *      *            123456701234 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                076543654321 *            0            0   0   *   

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

*032517  TSNE	3,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032517 032517 032517 613140000004 777777777777 076543654321     076543654321 000000032515 0            0   0   777 
IT1	*      *      000004 *            613140000004 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 076543654321     *            *            0            0   0   *   
ET0	*      *      032520 *            022442600220 *                *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 654321076543     *            *            0            0   0   *   
ET2	032520 *      032521 *            777777777777 *                *            654321076543 0            0   0   *   

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

*032521  JUMPA	0,032522

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032521 032521 032521 324000032522 777777777777 777777777777     123456701234 654321076543 0            0   0   777 
IT1	*      *      032522 *            324000032522 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032522     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032522 *            000000032522 777777777777     *            000000032522 0            0   0   *   

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

*032522  CAME	3,034414
                                                                                                                           SEQ 0335
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032522 032522 032522 312140034414 777777777777 777777777777     777777777777 000000032522 0            0   0   777 
IT1	*      *      034414 *            312140034414 *                123456701234 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	*      034414 *      123456701234 777777777777 123456701234     *            *            0            0   0   *   
ET0	*      *      032523 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032523 *      032524 *            777777777777 *                *            *            0            0   0   *   

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

*032524  JUMPA	0,032525

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032524 032524 032524 324000032525 777777777777 123456701234     123456701234 000000032522 0            0   0   777 
IT1	*      *      032525 *            324000032525 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032525     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032525 *            000000032525 777777777777     *            000000032525 0            0   0   *   

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

*032525  CAME	4,034424

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032525 032525 032525 312200034424 777777777777 777777777777     777777777777 000000032525 0            0   0   777 
IT1	*      *      034424 *            312200034424 *                076543654321 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034424     *            *            0            0   0   *   
FT6	*      034424 *      076543654321 777777777777 076543654321     *            *            0            0   0   *   
ET0	*      *      032526 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032526 *      032527 *            777777777777 *                *            *            0            0   0   *   

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

*032527  JUMPA	0,032530

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032527 032527 032527 324000032530 777777777777 076543654321     076543654321 000000032525 0            0   0   777 
IT1	*      *      032530 *            324000032530 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032530     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032530 *            000000032530 777777777777     *            000000032530 0            0   0   *   

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

*032530  MOVE 	2,034414
                                                                                                                           SEQ 0336
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032530 032530 032530 200100034414 777777777777 777777777777     777777777777 000000032530 0            0   0   777 
IT1	*      *      034414 *            200100034414 *                777777123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000034414     *            *            0            0   0   *   
FT6	032531 032531 032531 200140034425 777777777777 123456701234     *            *            0            0   0   *   
ET2	*      *      *      *            777777123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456701234 *            0            0   0   *   

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

*032531  MOVE 	3,034425

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032531 032531 032531 200140034425 777777777777 123456701234     123456701234 000000032530 0            0   0   777 
IT1	*      *      034425 *            200140034425 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034425     *