Google
 

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





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


	PRODUCT CODE:	MAINDEC-10-DBKAD

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

	FUNCTION:	REGISTER ADDRESSING, PC CHANGE, XCT

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


1.0	ABSTRACT

	THIS PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	FOURTH IN A SERIES OF PDP-10 KI10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS REGISTER ADDRESSING, JFCL, AR FLAGS,
	AOS, SOS, JRST, AOBJX, JSP, XCT, INDIRECT AND
	INDEXED ADDRESSING.

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-DBKAD.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-DBKAD.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-DBKAD
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DBKAD

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #4

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

************************************************************************
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 1
DBKADT	MAC	30-JUL-76 12:23		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DBKAD
     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: DBKADT,BEGIN,DBKADM
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 2
DBKADT	MAC	30-JUL-76 12:23		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	414400		PAREA3=SIXBIT/DBKAD/
    56		605664	000000		PAREA4=SIXBIT/PNT/
    57			000000		PAREA5=0
    58			000000		PAREA6=0
    59			001000		ITERAT==1000
    60			000001		PGMEND=1
    61						NOSYM
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 1
PARAM	KLM	26-FEB-76		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, FEB 26,1976                               SEQ 0009

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   833					SUBTTL	DIAGNOSTIC PARAMETERS
   834
   835					;ACCUMULATOR ASSIGNMENTS
   836
   837					;CONTROL WORDS
   838
   839			400000		AROV=400000		;ARITHMETIC OVERFLOW
   840			200000		CRY0=200000		;CARRY 0
   841			100000		CRY1=100000		;CARRY 1
   842			040000		FOV=40000		;FLOATING OVERFLOW
   843			020000		BIS=20000		;BYTE INTERRUPT
   844			010000		USERF=10000		;USER MODE FLAG
   845			004000		EXIOT=4000		;USER PRIV I/O FLAG
   846			000100		FXU=100			;FLOATING UNDERFLOW
   847			000040		DCK=40			;DIVIDE CHECK
   848
   849
   850					;MACROS
   851
   852					; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
   853					;	 TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION
   854
   855					DEFINE	STOP	(A)<
   856						HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   857						JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   858									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   859									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   860									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1>
   861
   862					; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG
   863
   864					DEFINE	SFLAG	(A)<
   865						MOVSI	1,A
   866						JFCL	17,.+1		;RESET ALL FLAGS
   867						JRST	2,.+1(1)	;SET A FLAG>
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 3
DBKADM	MAC	30-APR-76 16:59		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 030742 		JRST	C00
   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 (4) [DBKAD]
   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 064 
   892	030736	051 040 133 104 102 
   893	030737	113 101 104 135 015 
   894	030740	012 000 000 000 000 	/
   895
   896					;BASIC INSTRUCTION TEST (3)
   897					;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF
   898					;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES
   899					;IN THE FIELD.
   900
   901	030741	254 00 0 00 030742 	STARTA:	JRST	.+1
   902	030742				C00:
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 4
DBKADM	MAC	30-APR-76 16:59		DIAGNOSTIC SECTION                                                                 SEQ 0029

   903					;TESTING BEGINS HERE
   904
   905					;IF ANY LOADING PROBLEMS OCCUR, START PROGRAM HERE.
   906
   907					;NOTE:	AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT
   908					;	IT IS THE TESTED INSTRUCTION.
   909
   910					SUBTTL	TEST OF AC HARDWARE AND INDEX REGISTERS
   911
   912					;**********
   913
   914					;THIS TEST VERIFIES THAT AC1 IS ACCESSABLE
   915					;IN THIS CASE, AC1 IS PRELOADED WITH 1.
   916					;C(AC1) IS THEN CHECKED FOR A1.  THIS TEST PASSES IF C(AC1)=1.
   917					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   918
   919	030742	400 00 0 00 000000 	C100:	SETZ			;CLEAR AC0
   920	030743	201 01 0 00 000001 		MOVEI	1,1		;PRELOAD AC1 WITH 1
   921	030744	302 01 0 00 000001 		CAIE	1,1		;PASS IF C(AC1)=1
   922						STOP^
   923	030745	254 04 0 00 030746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   924	030746	324 00 0 00 030747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   925
   926					;**********
   927
   928					;THIS TEST VERIFIES THAT AC2 IS ACCESSABLE.
   929					;IN THIS CASE, AC2 IS PRELOADED WITH 2.
   930					;C(AC2) IS THEN CHECKED FOR 2.  THIS TEST PASSES IF C(AC2)=2.
   931					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   932
   933	030747	201 02 0 00 000002 	C200:	MOVEI	2,2		;PRELOAD AC2 WITH 2
   934	030750	302 02 0 00 000002 		CAIE	2,2		;PASS IF C(AC2)=2
   935						STOP^
   936	030751	254 04 0 00 030752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   937	030752	324 00 0 00 030753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   938
   939					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 5
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0030

   940					;THIS TEST VERIFIES THAT AC4 IS ACCESSABLE.
   941					;IN THIS CASE, AC4 IS PRELOADED WITH 4.
   942					;C(AC4) IS THEN CHECKED FOR 4.  THIS TEST PASSES IF C(AC4)=4.
   943					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   944
   945	030753	201 04 0 00 000004 	C300:	MOVEI	4,4		;PRELOAD AC4 WITH 4 
   946	030754	302 04 0 00 000004 		CAIE	4,4		;PASS IF C(AC4)=4
   947						STOP^
   948	030755	254 04 0 00 030756 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   949	030756	324 00 0 00 030757 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   950
   951					;**********
   952
   953					;THIS TEST VERIFIES THAT AC10 IS ACCESSABLE.
   954					;IN THIS CASE, AC10 IS PRELOADED WITH 10.
   955					;C(AC10) IS THEN CHECKED FOR 10.  THIS TEST PASSES IF C(AC10)=10.
   956					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   957
   958	030757	201 10 0 00 000010 	C400:	MOVEI	10,10		;PRELOAD AC10 WITH 10
   959	030760	302 10 0 00 000010 		CAIE	10,10		;PASS IF C(AC10)=10
   960						STOP^
   961	030761	254 04 0 00 030762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   962	030762	324 00 0 00 030763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   963
   964					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 6
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0031

   965			000500		SN=500
   966		777777	777777			ZZ=-1
   967
   968					;THIS TEST VERIFIES THAT ALL ACS EXIST
   969					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
   970					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
   971					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
   972
   973					C500:	REPEAT	^D16,
   974					<	ZZ=ZZ+1
   975						MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR>
   976			000000			ZZ=ZZ+1
   977	030763	201 00 0 00 000000 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   978			000001			ZZ=ZZ+1
   979	030764	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   980			000002			ZZ=ZZ+1
   981	030765	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   982			000003			ZZ=ZZ+1
   983	030766	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   984			000004			ZZ=ZZ+1
   985	030767	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   986			000005			ZZ=ZZ+1
   987	030770	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   988			000006			ZZ=ZZ+1
   989	030771	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   990			000007			ZZ=ZZ+1
   991	030772	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   992			000010			ZZ=ZZ+1
   993	030773	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   994			000011			ZZ=ZZ+1
   995	030774	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   996			000012			ZZ=ZZ+1
   997	030775	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   998			000013			ZZ=ZZ+1
   999	030776	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1000			000014			ZZ=ZZ+1
  1001	030777	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1002			000015			ZZ=ZZ+1
  1003	031000	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1004			000016			ZZ=ZZ+1
  1005	031001	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1006			000017			ZZ=ZZ+1
  1007	031002	201 17 0 00 000017 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1008					PAGE
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 6-1
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0032

  1009			000020			ZZ=20
  1010
  1011						REPEAT	^D16,<
  1012					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1013					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1014					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1015					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1016					
  1017					SN=SN+1
  1018						ZZ=ZZ-1
  1019						CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1020						STOP
  1021									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1022					
  1023					;**********
  1024					>
  1025
  1026					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1027					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1028					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1029					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1030
  1031			000501		SN=SN+1
  1032			000017			ZZ=ZZ-1
  1033	031003	302 17 0 00 000017 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1034						STOP^
  1035	031004	254 04 0 00 031005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1036	031005	324 00 0 00 031006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1037									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1038
  1039					;**********
  1040
  1041
  1042					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1043					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1044					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1045					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1046
  1047			000502		SN=SN+1
  1048			000016			ZZ=ZZ-1
  1049	031006	302 16 0 00 000016 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1050						STOP^
  1051	031007	254 04 0 00 031010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1052	031010	324 00 0 00 031011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1053									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1054
  1055					;**********
  1056
  1057
  1058					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1059					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1060					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1061					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1062
  1063			000503		SN=SN+1
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 6-2
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0033

  1064			000015			ZZ=ZZ-1
  1065	031011	302 15 0 00 000015 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1066						STOP^
  1067	031012	254 04 0 00 031013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1068	031013	324 00 0 00 031014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1069									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1070
  1071					;**********
  1072
  1073
  1074					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1075					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1076					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1077					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1078
  1079			000504		SN=SN+1
  1080			000014			ZZ=ZZ-1
  1081	031014	302 14 0 00 000014 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1082						STOP^
  1083	031015	254 04 0 00 031016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1084	031016	324 00 0 00 031017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1085									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1086
  1087					;**********
  1088
  1089
  1090					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1091					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1092					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1093					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1094
  1095			000505		SN=SN+1
  1096			000013			ZZ=ZZ-1
  1097	031017	302 13 0 00 000013 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1098						STOP^
  1099	031020	254 04 0 00 031021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1100	031021	324 00 0 00 031022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1101									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1102
  1103					;**********
  1104
  1105
  1106					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1107					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1108					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1109					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1110
  1111			000506		SN=SN+1
  1112			000012			ZZ=ZZ-1
  1113	031022	302 12 0 00 000012 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1114						STOP^
  1115	031023	254 04 0 00 031024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1116	031024	324 00 0 00 031025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1117									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1118
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 6-3
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0034

  1119					;**********
  1120
  1121
  1122					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1123					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1124					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1125					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1126
  1127			000507		SN=SN+1
  1128			000011			ZZ=ZZ-1
  1129	031025	302 11 0 00 000011 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1130						STOP^
  1131	031026	254 04 0 00 031027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1132	031027	324 00 0 00 031030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1133									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1134
  1135					;**********
  1136
  1137
  1138					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1139					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1140					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1141					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1142
  1143			000510		SN=SN+1
  1144			000010			ZZ=ZZ-1
  1145	031030	302 10 0 00 000010 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1146						STOP^
  1147	031031	254 04 0 00 031032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1148	031032	324 00 0 00 031033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1149									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1150
  1151					;**********
  1152
  1153
  1154					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1155					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1156					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1157					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1158
  1159			000511		SN=SN+1
  1160			000007			ZZ=ZZ-1
  1161	031033	302 07 0 00 000007 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1162						STOP^
  1163	031034	254 04 0 00 031035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1164	031035	324 00 0 00 031036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1165									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1166
  1167					;**********
  1168
  1169
  1170					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1171					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1172					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1173					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 6-4
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0035

  1174
  1175			000512		SN=SN+1
  1176			000006			ZZ=ZZ-1
  1177	031036	302 06 0 00 000006 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1178						STOP^
  1179	031037	254 04 0 00 031040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1180	031040	324 00 0 00 031041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1181									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1182
  1183					;**********
  1184
  1185
  1186					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1187					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1188					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1189					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1190
  1191			000513		SN=SN+1
  1192			000005			ZZ=ZZ-1
  1193	031041	302 05 0 00 000005 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1194						STOP^
  1195	031042	254 04 0 00 031043 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1196	031043	324 00 0 00 031044 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1197									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1198
  1199					;**********
  1200
  1201
  1202					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1203					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1204					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1205					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1206
  1207			000514		SN=SN+1
  1208			000004			ZZ=ZZ-1
  1209	031044	302 04 0 00 000004 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1210						STOP^
  1211	031045	254 04 0 00 031046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1212	031046	324 00 0 00 031047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1213									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1214
  1215					;**********
  1216
  1217
  1218					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1219					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1220					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1221					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1222
  1223			000515		SN=SN+1
  1224			000003			ZZ=ZZ-1
  1225	031047	302 03 0 00 000003 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1226						STOP^
  1227	031050	254 04 0 00 031051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1228	031051	324 00 0 00 031052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 6-5
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0036

  1229									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1230
  1231					;**********
  1232
  1233
  1234					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1235					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1236					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1237					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1238
  1239			000516		SN=SN+1
  1240			000002			ZZ=ZZ-1
  1241	031052	302 02 0 00 000002 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1242						STOP^
  1243	031053	254 04 0 00 031054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1244	031054	324 00 0 00 031055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1245									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1246
  1247					;**********
  1248
  1249
  1250					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1251					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1252					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1253					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1254
  1255			000517		SN=SN+1
  1256			000001			ZZ=ZZ-1
  1257	031055	302 01 0 00 000001 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1258						STOP^
  1259	031056	254 04 0 00 031057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1260	031057	324 00 0 00 031060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1261									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1262
  1263					;**********
  1264
  1265
  1266					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1267					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1268					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1269					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1270
  1271			000520		SN=SN+1
  1272			000000			ZZ=ZZ-1
  1273	031060	302 00 0 00 000000 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1274						STOP^
  1275	031061	254 04 0 00 031062 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1276	031062	324 00 0 00 031063 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1277									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1278
  1279					;**********
  1280
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 7
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0037

  1281			000600		SN=600
  1282			000000			ZZ=0
  1283
  1284					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1285					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1286					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS; THEN THE CONTENTS OF EACH
  1287					;AC IS CHECKED FOR ITS ADDRESS.  IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1288
  1289					C600:	REPEAT	^D15,
  1290					<	ZZ=ZZ+1
  1291						MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1292						MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.>
  1293			000001			ZZ=ZZ+1
  1294	031063	201 00 0 00 000001 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1295	031064	202 00 0 00 000001 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1296			000002			ZZ=ZZ+1
  1297	031065	201 00 0 00 000002 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1298	031066	202 00 0 00 000002 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1299			000003			ZZ=ZZ+1
  1300	031067	201 00 0 00 000003 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1301	031070	202 00 0 00 000003 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1302			000004			ZZ=ZZ+1
  1303	031071	201 00 0 00 000004 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1304	031072	202 00 0 00 000004 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1305			000005			ZZ=ZZ+1
  1306	031073	201 00 0 00 000005 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1307	031074	202 00 0 00 000005 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1308			000006			ZZ=ZZ+1
  1309	031075	201 00 0 00 000006 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1310	031076	202 00 0 00 000006 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1311			000007			ZZ=ZZ+1
  1312	031077	201 00 0 00 000007 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1313	031100	202 00 0 00 000007 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1314			000010			ZZ=ZZ+1
  1315	031101	201 00 0 00 000010 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1316	031102	202 00 0 00 000010 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1317			000011			ZZ=ZZ+1
  1318	031103	201 00 0 00 000011 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1319	031104	202 00 0 00 000011 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1320			000012			ZZ=ZZ+1
  1321	031105	201 00 0 00 000012 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1322	031106	202 00 0 00 000012 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1323			000013			ZZ=ZZ+1
  1324	031107	201 00 0 00 000013 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1325	031110	202 00 0 00 000013 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1326			000014			ZZ=ZZ+1
  1327	031111	201 00 0 00 000014 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1328	031112	202 00 0 00 000014 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1329			000015			ZZ=ZZ+1
  1330	031113	201 00 0 00 000015 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1331	031114	202 00 0 00 000015 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1332			000016			ZZ=ZZ+1
  1333	031115	201 00 0 00 000016 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1334	031116	202 00 0 00 000016 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1335			000017			ZZ=ZZ+1
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 7-1
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0038

  1336	031117	201 00 0 00 000017 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1337	031120	202 00 0 00 000017 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1338
  1339			000020			ZZ=20
  1340
  1341						REPEAT	^D15,<
  1342					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1343					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1344					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1345					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1346					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1347					
  1348					SN=SN+1
  1349						ZZ=ZZ-1
  1350						CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1351						STOP
  1352									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1353					
  1354					;**********
  1355					>
  1356
  1357					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1358					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1359					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1360					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1361					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1362
  1363			000601		SN=SN+1
  1364			000017			ZZ=ZZ-1
  1365	031121	302 17 0 00 000017 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1366						STOP^
  1367	031122	254 04 0 00 031123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1368	031123	324 00 0 00 031124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1369									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1370
  1371					;**********
  1372
  1373
  1374					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1375					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1376					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1377					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1378					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1379
  1380			000602		SN=SN+1
  1381			000016			ZZ=ZZ-1
  1382	031124	302 16 0 00 000016 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1383						STOP^
  1384	031125	254 04 0 00 031126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1385	031126	324 00 0 00 031127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1386									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1387
  1388					;**********
  1389
  1390
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 7-2
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0039

  1391					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1392					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1393					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1394					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1395					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1396
  1397			000603		SN=SN+1
  1398			000015			ZZ=ZZ-1
  1399	031127	302 15 0 00 000015 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1400						STOP^
  1401	031130	254 04 0 00 031131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1402	031131	324 00 0 00 031132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1403									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1404
  1405					;**********
  1406
  1407
  1408					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1409					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1410					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1411					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1412					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1413
  1414			000604		SN=SN+1
  1415			000014			ZZ=ZZ-1
  1416	031132	302 14 0 00 000014 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1417						STOP^
  1418	031133	254 04 0 00 031134 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1419	031134	324 00 0 00 031135 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1420									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1421
  1422					;**********
  1423
  1424
  1425					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1426					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1427					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1428					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1429					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1430
  1431			000605		SN=SN+1
  1432			000013			ZZ=ZZ-1
  1433	031135	302 13 0 00 000013 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1434						STOP^
  1435	031136	254 04 0 00 031137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1436	031137	324 00 0 00 031140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1437									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1438
  1439					;**********
  1440
  1441
  1442					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1443					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1444					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1445					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 7-3
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0040

  1446					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1447
  1448			000606		SN=SN+1
  1449			000012			ZZ=ZZ-1
  1450	031140	302 12 0 00 000012 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1451						STOP^
  1452	031141	254 04 0 00 031142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1453	031142	324 00 0 00 031143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1454									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1455
  1456					;**********
  1457
  1458
  1459					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1460					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1461					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1462					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1463					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1464
  1465			000607		SN=SN+1
  1466			000011			ZZ=ZZ-1
  1467	031143	302 11 0 00 000011 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1468						STOP^
  1469	031144	254 04 0 00 031145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1470	031145	324 00 0 00 031146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1471									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1472
  1473					;**********
  1474
  1475
  1476					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1477					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1478					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1479					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1480					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1481
  1482			000610		SN=SN+1
  1483			000010			ZZ=ZZ-1
  1484	031146	302 10 0 00 000010 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1485						STOP^
  1486	031147	254 04 0 00 031150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1487	031150	324 00 0 00 031151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1488									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1489
  1490					;**********
  1491
  1492
  1493					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1494					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1495					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1496					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1497					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1498
  1499			000611		SN=SN+1
  1500			000007			ZZ=ZZ-1
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 7-4
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0041

  1501	031151	302 07 0 00 000007 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1502						STOP^
  1503	031152	254 04 0 00 031153 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1504	031153	324 00 0 00 031154 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1505									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1506
  1507					;**********
  1508
  1509
  1510					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1511					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1512					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1513					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1514					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1515
  1516			000612		SN=SN+1
  1517			000006			ZZ=ZZ-1
  1518	031154	302 06 0 00 000006 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1519						STOP^
  1520	031155	254 04 0 00 031156 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1521	031156	324 00 0 00 031157 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1522									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1523
  1524					;**********
  1525
  1526
  1527					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1528					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1529					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1530					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1531					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1532
  1533			000613		SN=SN+1
  1534			000005			ZZ=ZZ-1
  1535	031157	302 05 0 00 000005 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1536						STOP^
  1537	031160	254 04 0 00 031161 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1538	031161	324 00 0 00 031162 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1539									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1540
  1541					;**********
  1542
  1543
  1544					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1545					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1546					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1547					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1548					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1549
  1550			000614		SN=SN+1
  1551			000004			ZZ=ZZ-1
  1552	031162	302 04 0 00 000004 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1553						STOP^
  1554	031163	254 04 0 00 031164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1555	031164	324 00 0 00 031165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 7-5
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0042

  1556									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1557
  1558					;**********
  1559
  1560
  1561					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1562					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1563					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1564					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1565					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1566
  1567			000615		SN=SN+1
  1568			000003			ZZ=ZZ-1
  1569	031165	302 03 0 00 000003 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1570						STOP^
  1571	031166	254 04 0 00 031167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1572	031167	324 00 0 00 031170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1573									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1574
  1575					;**********
  1576
  1577
  1578					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1579					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1580					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1581					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1582					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1583
  1584			000616		SN=SN+1
  1585			000002			ZZ=ZZ-1
  1586	031170	302 02 0 00 000002 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1587						STOP^
  1588	031171	254 04 0 00 031172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1589	031172	324 00 0 00 031173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1590									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1591
  1592					;**********
  1593
  1594
  1595					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1596					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1597					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1598					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1599					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1600
  1601			000617		SN=SN+1
  1602			000001			ZZ=ZZ-1
  1603	031173	302 01 0 00 000001 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1604						STOP^
  1605	031174	254 04 0 00 031175 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1606	031175	324 00 0 00 031176 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1607									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1608
  1609					;**********
  1610
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 8
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0043

  1611			000700		SN=700
  1612			000000			ZZ=0
  1613
  1614					C700:	REPEAT	^D15,<
  1615					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1616					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1617					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1618					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1619					
  1620					SN=SN+1
  1621						ZZ=ZZ+1
  1622						MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1623						CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1624						STOP
  1625					
  1626					;**********
  1627					>
  1628
  1629					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1630					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1631					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1632					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1633
  1634			000701		SN=SN+1
  1635			000001			ZZ=ZZ+1
  1636	031176	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1637	031177	302 01 0 01 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1638						STOP^
  1639	031200	254 04 0 00 031201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1640	031201	324 00 0 00 031202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1641
  1642					;**********
  1643
  1644
  1645					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1646					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1647					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1648					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1649
  1650			000702		SN=SN+1
  1651			000002			ZZ=ZZ+1
  1652	031202	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1653	031203	302 02 0 02 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1654						STOP^
  1655	031204	254 04 0 00 031205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1656	031205	324 00 0 00 031206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1657
  1658					;**********
  1659
  1660
  1661					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1662					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1663					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1664					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1665
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 8-1
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0044

  1666			000703		SN=SN+1
  1667			000003			ZZ=ZZ+1
  1668	031206	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1669	031207	302 03 0 03 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1670						STOP^
  1671	031210	254 04 0 00 031211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1672	031211	324 00 0 00 031212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1673
  1674					;**********
  1675
  1676
  1677					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1678					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1679					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1680					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1681
  1682			000704		SN=SN+1
  1683			000004			ZZ=ZZ+1
  1684	031212	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1685	031213	302 04 0 04 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1686						STOP^
  1687	031214	254 04 0 00 031215 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1688	031215	324 00 0 00 031216 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1689
  1690					;**********
  1691
  1692
  1693					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1694					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1695					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1696					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1697
  1698			000705		SN=SN+1
  1699			000005			ZZ=ZZ+1
  1700	031216	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1701	031217	302 05 0 05 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1702						STOP^
  1703	031220	254 04 0 00 031221 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1704	031221	324 00 0 00 031222 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1705
  1706					;**********
  1707
  1708
  1709					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1710					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1711					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1712					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1713
  1714			000706		SN=SN+1
  1715			000006			ZZ=ZZ+1
  1716	031222	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1717	031223	302 06 0 06 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1718						STOP^
  1719	031224	254 04 0 00 031225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1720	031225	324 00 0 00 031226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 8-2
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0045

  1721
  1722					;**********
  1723
  1724
  1725					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1726					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1727					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1728					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1729
  1730			000707		SN=SN+1
  1731			000007			ZZ=ZZ+1
  1732	031226	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1733	031227	302 07 0 07 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1734						STOP^
  1735	031230	254 04 0 00 031231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1736	031231	324 00 0 00 031232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1737
  1738					;**********
  1739
  1740
  1741					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1742					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1743					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1744					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1745
  1746			000710		SN=SN+1
  1747			000010			ZZ=ZZ+1
  1748	031232	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1749	031233	302 10 0 10 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1750						STOP^
  1751	031234	254 04 0 00 031235 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1752	031235	324 00 0 00 031236 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1753
  1754					;**********
  1755
  1756
  1757					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1758					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1759					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1760					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1761
  1762			000711		SN=SN+1
  1763			000011			ZZ=ZZ+1
  1764	031236	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1765	031237	302 11 0 11 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1766						STOP^
  1767	031240	254 04 0 00 031241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1768	031241	324 00 0 00 031242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1769
  1770					;**********
  1771
  1772
  1773					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1774					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1775					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 8-3
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0046

  1776					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1777
  1778			000712		SN=SN+1
  1779			000012			ZZ=ZZ+1
  1780	031242	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1781	031243	302 12 0 12 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1782						STOP^
  1783	031244	254 04 0 00 031245 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1784	031245	324 00 0 00 031246 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1785
  1786					;**********
  1787
  1788
  1789					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1790					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1791					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1792					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1793
  1794			000713		SN=SN+1
  1795			000013			ZZ=ZZ+1
  1796	031246	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1797	031247	302 13 0 13 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1798						STOP^
  1799	031250	254 04 0 00 031251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1800	031251	324 00 0 00 031252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1801
  1802					;**********
  1803
  1804
  1805					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1806					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1807					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1808					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1809
  1810			000714		SN=SN+1
  1811			000014			ZZ=ZZ+1
  1812	031252	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1813	031253	302 14 0 14 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1814						STOP^
  1815	031254	254 04 0 00 031255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1816	031255	324 00 0 00 031256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1817
  1818					;**********
  1819
  1820
  1821					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1822					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1823					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1824					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1825
  1826			000715		SN=SN+1
  1827			000015			ZZ=ZZ+1
  1828	031256	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1829	031257	302 15 0 15 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1830						STOP^
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 8-4
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0047

  1831	031260	254 04 0 00 031261 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1832	031261	324 00 0 00 031262 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1833
  1834					;**********
  1835
  1836
  1837					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1838					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1839					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1840					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1841
  1842			000716		SN=SN+1
  1843			000016			ZZ=ZZ+1
  1844	031262	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1845	031263	302 16 0 16 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1846						STOP^
  1847	031264	254 04 0 00 031265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1848	031265	324 00 0 00 031266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1849
  1850					;**********
  1851
  1852
  1853					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1854					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1855					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1856					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1857
  1858			000717		SN=SN+1
  1859			000017			ZZ=ZZ+1
  1860	031266	201 17 0 00 000017 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1861	031267	302 17 0 17 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1862						STOP^
  1863	031270	254 04 0 00 031271 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1864	031271	324 00 0 00 031272 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1865
  1866					;**********
  1867
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 9
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0048

  1868			001000		SN=1000
  1869			000000			ZZ=0
  1870
  1871					C1000:	REPEAT	^D15,<
  1872					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  1873					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  1874					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  1875					.
  1876					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  1877					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  1878					
  1879					SN=SN+1
  1880						ZZ=ZZ+1
  1881						MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  1882						HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1883						CAME	ZZ,(ZZ)		;IN BOTH HALVES
  1884						STOP
  1885					
  1886					;**********
  1887					>
  1888
  1889					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  1890					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  1891					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  1892					.
  1893					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  1894					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  1895
  1896			001001		SN=SN+1
  1897			000001			ZZ=ZZ+1
  1898	031272	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  1899	031273	505 01 0 00 000001 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1900	031274	312 01 0 01 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  1901						STOP^
  1902	031275	254 04 0 00 031276 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1903	031276	324 00 0 00 031277 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1904
  1905					;**********
  1906
  1907
  1908					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  1909					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  1910					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  1911					.
  1912					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  1913					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  1914
  1915			001002		SN=SN+1
  1916			000002			ZZ=ZZ+1
  1917	031277	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  1918	031300	505 02 0 00 000002 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1919	031301	312 02 0 02 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  1920						STOP^
  1921	031302	254 04 0 00 031303 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1922	031303	324 00 0 00 031304 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 9-1
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0049

  1923
  1924					;**********
  1925
  1926
  1927					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  1928					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  1929					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  1930					.
  1931					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  1932					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  1933
  1934			001003		SN=SN+1
  1935			000003			ZZ=ZZ+1
  1936	031304	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  1937	031305	505 03 0 00 000003 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1938	031306	312 03 0 03 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  1939						STOP^
  1940	031307	254 04 0 00 031310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1941	031310	324 00 0 00 031311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1942
  1943					;**********
  1944
  1945
  1946					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  1947					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  1948					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  1949					.
  1950					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  1951					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  1952
  1953			001004		SN=SN+1
  1954			000004			ZZ=ZZ+1
  1955	031311	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  1956	031312	505 04 0 00 000004 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1957	031313	312 04 0 04 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  1958						STOP^
  1959	031314	254 04 0 00 031315 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1960	031315	324 00 0 00 031316 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1961
  1962					;**********
  1963
  1964
  1965					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  1966					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  1967					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  1968					.
  1969					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  1970					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  1971
  1972			001005		SN=SN+1
  1973			000005			ZZ=ZZ+1
  1974	031316	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  1975	031317	505 05 0 00 000005 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1976	031320	312 05 0 05 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  1977						STOP^
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 9-2
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0050

  1978	031321	254 04 0 00 031322 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1979	031322	324 00 0 00 031323 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1980
  1981					;**********
  1982
  1983
  1984					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  1985					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  1986					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  1987					.
  1988					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  1989					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  1990
  1991			001006		SN=SN+1
  1992			000006			ZZ=ZZ+1
  1993	031323	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  1994	031324	505 06 0 00 000006 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1995	031325	312 06 0 06 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  1996						STOP^
  1997	031326	254 04 0 00 031327 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1998	031327	324 00 0 00 031330 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1999
  2000					;**********
  2001
  2002
  2003					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2004					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2005					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2006					.
  2007					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2008					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2009
  2010			001007		SN=SN+1
  2011			000007			ZZ=ZZ+1
  2012	031330	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2013	031331	505 07 0 00 000007 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2014	031332	312 07 0 07 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2015						STOP^
  2016	031333	254 04 0 00 031334 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2017	031334	324 00 0 00 031335 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2018
  2019					;**********
  2020
  2021
  2022					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2023					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2024					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2025					.
  2026					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2027					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2028
  2029			001010		SN=SN+1
  2030			000010			ZZ=ZZ+1
  2031	031335	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2032	031336	505 10 0 00 000010 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 9-3
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0051

  2033	031337	312 10 0 10 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2034						STOP^
  2035	031340	254 04 0 00 031341 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2036	031341	324 00 0 00 031342 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2037
  2038					;**********
  2039
  2040
  2041					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2042					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2043					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2044					.
  2045					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2046					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2047
  2048			001011		SN=SN+1
  2049			000011			ZZ=ZZ+1
  2050	031342	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2051	031343	505 11 0 00 000011 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2052	031344	312 11 0 11 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2053						STOP^
  2054	031345	254 04 0 00 031346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2055	031346	324 00 0 00 031347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2056
  2057					;**********
  2058
  2059
  2060					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2061					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2062					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2063					.
  2064					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2065					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2066
  2067			001012		SN=SN+1
  2068			000012			ZZ=ZZ+1
  2069	031347	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2070	031350	505 12 0 00 000012 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2071	031351	312 12 0 12 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2072						STOP^
  2073	031352	254 04 0 00 031353 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2074	031353	324 00 0 00 031354 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2075
  2076					;**********
  2077
  2078
  2079					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2080					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2081					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2082					.
  2083					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2084					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2085
  2086			001013		SN=SN+1
  2087			000013			ZZ=ZZ+1
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 9-4
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0052

  2088	031354	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2089	031355	505 13 0 00 000013 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2090	031356	312 13 0 13 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2091						STOP^
  2092	031357	254 04 0 00 031360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2093	031360	324 00 0 00 031361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2094
  2095					;**********
  2096
  2097
  2098					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2099					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2100					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2101					.
  2102					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2103					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2104
  2105			001014		SN=SN+1
  2106			000014			ZZ=ZZ+1
  2107	031361	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2108	031362	505 14 0 00 000014 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2109	031363	312 14 0 14 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2110						STOP^
  2111	031364	254 04 0 00 031365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2112	031365	324 00 0 00 031366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2113
  2114					;**********
  2115
  2116
  2117					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2118					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2119					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2120					.
  2121					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2122					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2123
  2124			001015		SN=SN+1
  2125			000015			ZZ=ZZ+1
  2126	031366	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2127	031367	505 15 0 00 000015 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2128	031370	312 15 0 15 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2129						STOP^
  2130	031371	254 04 0 00 031372 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2131	031372	324 00 0 00 031373 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2132
  2133					;**********
  2134
  2135
  2136					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2137					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2138					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2139					.
  2140					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2141					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2142
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 9-5
DBKADM	MAC	30-APR-76 16:59		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0053

  2143			001016		SN=SN+1
  2144			000016			ZZ=ZZ+1
  2145	031373	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2146	031374	505 16 0 00 000016 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2147	031375	312 16 0 16 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2148						STOP^
  2149	031376	254 04 0 00 031377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2150	031377	324 00 0 00 031400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2151
  2152					;**********
  2153
  2154
  2155					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2156					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2157					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2158					.
  2159					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2160					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2161
  2162			001017		SN=SN+1
  2163			000017			ZZ=ZZ+1
  2164	031400	201 17 0 00 000017 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2165	031401	505 17 0 00 000017 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2166	031402	312 17 0 17 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2167						STOP^
  2168	031403	254 04 0 00 031404 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2169	031404	324 00 0 00 031405 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2170
  2171					;**********
  2172
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0054

  2173					SUBTTL	TEST OF INDEX REGISTER ADDRESSING
  2174
  2175					;**********
  2176
  2177					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2178					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2179					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2180					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 0,
  2181					;THE FINAL RESULT IN AC3 SHOULD BE 0.  IF C(AC3)=0, THIS TEST PASSES.
  2182
  2183	031405	476 00 0 00 000003 	C1100:	SETOM	3		;PRELOAD AC3 WITH -1,,1
  2184	031406	402 00 0 00 000001 		SETZM	1		;PRELOAD AC1 WITH 0
  2185	031407	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER 2 WITH 1
  2186	031410	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2187	031411	332 00 0 00 000003 		SKIPE	3		;TEST INDEXING
  2188						STOP^
  2189	031412	254 04 0 00 031413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2190	031413	324 00 0 00 031414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2191
  2192					;**********
  2193
  2194			001200		SN=1200
  2195			000000			ZZ=0
  2196
  2197					C1200:	REPEAT	^D18,<
  2198					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2199					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2200					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2201					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2202					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2203					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2204					
  2205					SN=SN+1
  2206						ZZ=ZZ+ZZ
  2207						IFE	ZZ,<ZZ=1>
  2208						SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2209						MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2210						MOVEI	2,1		;SETUP INDEX REGISTER
  2211						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2212						CAIE	3,ZZ		;TEST INDEXING
  2213						STOP
  2214					
  2215					;**********
  2216					>
  2217
  2218					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2219					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2220					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2221					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2222					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2223					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2224
  2225			001201		SN=SN+1
  2226			000000			ZZ=ZZ+ZZ
  2227			000001			IFE	ZZ,<ZZ=1>
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10-1
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0055

  2228	031414	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2229	031415	201 01 0 00 000001 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2230	031416	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2231	031417	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2232	031420	302 03 0 00 000001 		CAIE	3,ZZ		;TEST INDEXING
  2233						STOP^
  2234	031421	254 04 0 00 031422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2235	031422	324 00 0 00 031423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2236
  2237					;**********
  2238
  2239
  2240					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2241					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2242					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2243					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2244					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2245					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2246
  2247			001202		SN=SN+1
  2248			000002			ZZ=ZZ+ZZ
  2249						IFE	ZZ,<ZZ=1>
  2250	031423	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2251	031424	201 01 0 00 000002 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2252	031425	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2253	031426	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2254	031427	302 03 0 00 000002 		CAIE	3,ZZ		;TEST INDEXING
  2255						STOP^
  2256	031430	254 04 0 00 031431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2257	031431	324 00 0 00 031432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2258
  2259					;**********
  2260
  2261
  2262					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2263					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2264					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2265					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2266					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2267					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2268
  2269			001203		SN=SN+1
  2270			000004			ZZ=ZZ+ZZ
  2271						IFE	ZZ,<ZZ=1>
  2272	031432	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2273	031433	201 01 0 00 000004 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2274	031434	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2275	031435	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2276	031436	302 03 0 00 000004 		CAIE	3,ZZ		;TEST INDEXING
  2277						STOP^
  2278	031437	254 04 0 00 031440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2279	031440	324 00 0 00 031441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2280
  2281					;**********
  2282
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10-2
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0056

  2283
  2284					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2285					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2286					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2287					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2288					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2289					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2290
  2291			001204		SN=SN+1
  2292			000010			ZZ=ZZ+ZZ
  2293						IFE	ZZ,<ZZ=1>
  2294	031441	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2295	031442	201 01 0 00 000010 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2296	031443	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2297	031444	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2298	031445	302 03 0 00 000010 		CAIE	3,ZZ		;TEST INDEXING
  2299						STOP^
  2300	031446	254 04 0 00 031447 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2301	031447	324 00 0 00 031450 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2302
  2303					;**********
  2304
  2305
  2306					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2307					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2308					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2309					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2310					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2311					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2312
  2313			001205		SN=SN+1
  2314			000020			ZZ=ZZ+ZZ
  2315						IFE	ZZ,<ZZ=1>
  2316	031450	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2317	031451	201 01 0 00 000020 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2318	031452	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2319	031453	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2320	031454	302 03 0 00 000020 		CAIE	3,ZZ		;TEST INDEXING
  2321						STOP^
  2322	031455	254 04 0 00 031456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2323	031456	324 00 0 00 031457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2324
  2325					;**********
  2326
  2327
  2328					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2329					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2330					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2331					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2332					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2333					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2334
  2335			001206		SN=SN+1
  2336			000040			ZZ=ZZ+ZZ
  2337						IFE	ZZ,<ZZ=1>
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10-3
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0057

  2338	031457	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2339	031460	201 01 0 00 000040 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2340	031461	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2341	031462	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2342	031463	302 03 0 00 000040 		CAIE	3,ZZ		;TEST INDEXING
  2343						STOP^
  2344	031464	254 04 0 00 031465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2345	031465	324 00 0 00 031466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2346
  2347					;**********
  2348
  2349
  2350					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2351					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2352					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2353					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2354					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2355					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2356
  2357			001207		SN=SN+1
  2358			000100			ZZ=ZZ+ZZ
  2359						IFE	ZZ,<ZZ=1>
  2360	031466	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2361	031467	201 01 0 00 000100 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2362	031470	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2363	031471	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2364	031472	302 03 0 00 000100 		CAIE	3,ZZ		;TEST INDEXING
  2365						STOP^
  2366	031473	254 04 0 00 031474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2367	031474	324 00 0 00 031475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2368
  2369					;**********
  2370
  2371
  2372					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2373					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2374					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2375					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2376					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2377					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2378
  2379			001210		SN=SN+1
  2380			000200			ZZ=ZZ+ZZ
  2381						IFE	ZZ,<ZZ=1>
  2382	031475	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2383	031476	201 01 0 00 000200 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2384	031477	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2385	031500	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2386	031501	302 03 0 00 000200 		CAIE	3,ZZ		;TEST INDEXING
  2387						STOP^
  2388	031502	254 04 0 00 031503 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2389	031503	324 00 0 00 031504 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2390
  2391					;**********
  2392
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10-4
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0058

  2393
  2394					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2395					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2396					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2397					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2398					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2399					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2400
  2401			001211		SN=SN+1
  2402			000400			ZZ=ZZ+ZZ
  2403						IFE	ZZ,<ZZ=1>
  2404	031504	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2405	031505	201 01 0 00 000400 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2406	031506	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2407	031507	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2408	031510	302 03 0 00 000400 		CAIE	3,ZZ		;TEST INDEXING
  2409						STOP^
  2410	031511	254 04 0 00 031512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2411	031512	324 00 0 00 031513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2412
  2413					;**********
  2414
  2415
  2416					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2417					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2418					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2419					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2420					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2421					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2422
  2423			001212		SN=SN+1
  2424			001000			ZZ=ZZ+ZZ
  2425						IFE	ZZ,<ZZ=1>
  2426	031513	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2427	031514	201 01 0 00 001000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2428	031515	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2429	031516	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2430	031517	302 03 0 00 001000 		CAIE	3,ZZ		;TEST INDEXING
  2431						STOP^
  2432	031520	254 04 0 00 031521 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2433	031521	324 00 0 00 031522 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2434
  2435					;**********
  2436
  2437
  2438					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2439					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2440					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2441					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2442					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2443					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2444
  2445			001213		SN=SN+1
  2446			002000			ZZ=ZZ+ZZ
  2447						IFE	ZZ,<ZZ=1>
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10-5
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0059

  2448	031522	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2449	031523	201 01 0 00 002000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2450	031524	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2451	031525	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2452	031526	302 03 0 00 002000 		CAIE	3,ZZ		;TEST INDEXING
  2453						STOP^
  2454	031527	254 04 0 00 031530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2455	031530	324 00 0 00 031531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2456
  2457					;**********
  2458
  2459
  2460					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2461					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2462					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2463					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2464					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2465					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2466
  2467			001214		SN=SN+1
  2468			004000			ZZ=ZZ+ZZ
  2469						IFE	ZZ,<ZZ=1>
  2470	031531	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2471	031532	201 01 0 00 004000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2472	031533	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2473	031534	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2474	031535	302 03 0 00 004000 		CAIE	3,ZZ		;TEST INDEXING
  2475						STOP^
  2476	031536	254 04 0 00 031537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2477	031537	324 00 0 00 031540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2478
  2479					;**********
  2480
  2481
  2482					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2483					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2484					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2485					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2486					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2487					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2488
  2489			001215		SN=SN+1
  2490			010000			ZZ=ZZ+ZZ
  2491						IFE	ZZ,<ZZ=1>
  2492	031540	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2493	031541	201 01 0 00 010000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2494	031542	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2495	031543	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2496	031544	302 03 0 00 010000 		CAIE	3,ZZ		;TEST INDEXING
  2497						STOP^
  2498	031545	254 04 0 00 031546 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2499	031546	324 00 0 00 031547 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2500
  2501					;**********
  2502
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10-6
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0060

  2503
  2504					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2505					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2506					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2507					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2508					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2509					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2510
  2511			001216		SN=SN+1
  2512			020000			ZZ=ZZ+ZZ
  2513						IFE	ZZ,<ZZ=1>
  2514	031547	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2515	031550	201 01 0 00 020000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2516	031551	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2517	031552	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2518	031553	302 03 0 00 020000 		CAIE	3,ZZ		;TEST INDEXING
  2519						STOP^
  2520	031554	254 04 0 00 031555 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2521	031555	324 00 0 00 031556 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2522
  2523					;**********
  2524
  2525
  2526					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2527					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2528					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2529					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2530					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2531					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2532
  2533			001217		SN=SN+1
  2534			040000			ZZ=ZZ+ZZ
  2535						IFE	ZZ,<ZZ=1>
  2536	031556	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2537	031557	201 01 0 00 040000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2538	031560	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2539	031561	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2540	031562	302 03 0 00 040000 		CAIE	3,ZZ		;TEST INDEXING
  2541						STOP^
  2542	031563	254 04 0 00 031564 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2543	031564	324 00 0 00 031565 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2544
  2545					;**********
  2546
  2547
  2548					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2549					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2550					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2551					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2552					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2553					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2554
  2555			001220		SN=SN+1
  2556			100000			ZZ=ZZ+ZZ
  2557						IFE	ZZ,<ZZ=1>
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 10-7
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0061

  2558	031565	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2559	031566	201 01 0 00 100000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2560	031567	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2561	031570	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2562	031571	302 03 0 00 100000 		CAIE	3,ZZ		;TEST INDEXING
  2563						STOP^
  2564	031572	254 04 0 00 031573 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2565	031573	324 00 0 00 031574 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2566
  2567					;**********
  2568
  2569
  2570					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2571					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2572					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2573					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2574					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2575					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2576
  2577			001221		SN=SN+1
  2578			200000			ZZ=ZZ+ZZ
  2579						IFE	ZZ,<ZZ=1>
  2580	031574	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2581	031575	201 01 0 00 200000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2582	031576	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2583	031577	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2584	031600	302 03 0 00 200000 		CAIE	3,ZZ		;TEST INDEXING
  2585						STOP^
  2586	031601	254 04 0 00 031602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2587	031602	324 00 0 00 031603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2588
  2589					;**********
  2590
  2591
  2592					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2593					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2594					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2595					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2596					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2597					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2598
  2599			001222		SN=SN+1
  2600			400000			ZZ=ZZ+ZZ
  2601						IFE	ZZ,<ZZ=1>
  2602	031603	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2603	031604	201 01 0 00 400000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2604	031605	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2605	031606	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2606	031607	302 03 0 00 400000 		CAIE	3,ZZ		;TEST INDEXING
  2607						STOP^
  2608	031610	254 04 0 00 031611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2609	031611	324 00 0 00 031612 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2610
  2611					;**********
  2612
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0062

  2613			001300		SN=1300
  2614			000000			ZZ=0
  2615
  2616					C1300:	REPEAT	^D18,<
  2617					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2618					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2619					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2620					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2621					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2622					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2623					
  2624					SN=SN+1
  2625						ZZ=ZZ+ZZ
  2626						IFE	ZZ,<ZZ=1>
  2627						SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2628						MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2629						MOVEI	2,1		;SETUP INDEX REGISTER
  2630						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2631						CAME	3,[ZZ,,0]	;TEST INDEXING
  2632						STOP
  2633					
  2634					;**********
  2635					>
  2636
  2637					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2638					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2639					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2640					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2641					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2642					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2643
  2644			001301		SN=SN+1
  2645			000000			ZZ=ZZ+ZZ
  2646			000001			IFE	ZZ,<ZZ=1>
  2647	031612	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2648	031613	205 01 0 00 000001 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2649	031614	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2650	031615	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2651	031616	312 03 0 00 034444 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2652						STOP^
  2653	031617	254 04 0 00 031620 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2654	031620	324 00 0 00 031621 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2655
  2656					;**********
  2657
  2658
  2659					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2660					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2661					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2662					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2663					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2664					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2665
  2666			001302		SN=SN+1
  2667			000002			ZZ=ZZ+ZZ
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11-1
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0063

  2668						IFE	ZZ,<ZZ=1>
  2669	031621	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2670	031622	205 01 0 00 000002 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2671	031623	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2672	031624	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2673	031625	312 03 0 00 034445 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2674						STOP^
  2675	031626	254 04 0 00 031627 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2676	031627	324 00 0 00 031630 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2677
  2678					;**********
  2679
  2680
  2681					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2682					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2683					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2684					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2685					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2686					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2687
  2688			001303		SN=SN+1
  2689			000004			ZZ=ZZ+ZZ
  2690						IFE	ZZ,<ZZ=1>
  2691	031630	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2692	031631	205 01 0 00 000004 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2693	031632	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2694	031633	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2695	031634	312 03 0 00 034446 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2696						STOP^
  2697	031635	254 04 0 00 031636 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2698	031636	324 00 0 00 031637 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2699
  2700					;**********
  2701
  2702
  2703					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2704					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2705					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2706					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2707					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2708					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2709
  2710			001304		SN=SN+1
  2711			000010			ZZ=ZZ+ZZ
  2712						IFE	ZZ,<ZZ=1>
  2713	031637	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2714	031640	205 01 0 00 000010 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2715	031641	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2716	031642	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2717	031643	312 03 0 00 034447 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2718						STOP^
  2719	031644	254 04 0 00 031645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2720	031645	324 00 0 00 031646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2721
  2722					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11-2
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0064

  2723
  2724
  2725					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2726					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2727					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2728					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2729					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2730					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2731
  2732			001305		SN=SN+1
  2733			000020			ZZ=ZZ+ZZ
  2734						IFE	ZZ,<ZZ=1>
  2735	031646	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2736	031647	205 01 0 00 000020 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2737	031650	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2738	031651	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2739	031652	312 03 0 00 034450 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2740						STOP^
  2741	031653	254 04 0 00 031654 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2742	031654	324 00 0 00 031655 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2743
  2744					;**********
  2745
  2746
  2747					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2748					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2749					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2750					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2751					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2752					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2753
  2754			001306		SN=SN+1
  2755			000040			ZZ=ZZ+ZZ
  2756						IFE	ZZ,<ZZ=1>
  2757	031655	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2758	031656	205 01 0 00 000040 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2759	031657	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2760	031660	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2761	031661	312 03 0 00 034451 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2762						STOP^
  2763	031662	254 04 0 00 031663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2764	031663	324 00 0 00 031664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2765
  2766					;**********
  2767
  2768
  2769					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2770					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2771					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2772					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2773					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2774					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2775
  2776			001307		SN=SN+1
  2777			000100			ZZ=ZZ+ZZ
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11-3
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0065

  2778						IFE	ZZ,<ZZ=1>
  2779	031664	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2780	031665	205 01 0 00 000100 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2781	031666	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2782	031667	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2783	031670	312 03 0 00 034452 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2784						STOP^
  2785	031671	254 04 0 00 031672 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2786	031672	324 00 0 00 031673 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2787
  2788					;**********
  2789
  2790
  2791					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2792					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2793					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2794					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2795					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2796					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2797
  2798			001310		SN=SN+1
  2799			000200			ZZ=ZZ+ZZ
  2800						IFE	ZZ,<ZZ=1>
  2801	031673	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2802	031674	205 01 0 00 000200 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2803	031675	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2804	031676	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2805	031677	312 03 0 00 034453 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2806						STOP^
  2807	031700	254 04 0 00 031701 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2808	031701	324 00 0 00 031702 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2809
  2810					;**********
  2811
  2812
  2813					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2814					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2815					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2816					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2817					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2818					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2819
  2820			001311		SN=SN+1
  2821			000400			ZZ=ZZ+ZZ
  2822						IFE	ZZ,<ZZ=1>
  2823	031702	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2824	031703	205 01 0 00 000400 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2825	031704	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2826	031705	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2827	031706	312 03 0 00 034454 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2828						STOP^
  2829	031707	254 04 0 00 031710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2830	031710	324 00 0 00 031711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2831
  2832					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11-4
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0066

  2833
  2834
  2835					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2836					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2837					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2838					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2839					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2840					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2841
  2842			001312		SN=SN+1
  2843			001000			ZZ=ZZ+ZZ
  2844						IFE	ZZ,<ZZ=1>
  2845	031711	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2846	031712	205 01 0 00 001000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2847	031713	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2848	031714	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2849	031715	312 03 0 00 034455 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2850						STOP^
  2851	031716	254 04 0 00 031717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2852	031717	324 00 0 00 031720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2853
  2854					;**********
  2855
  2856
  2857					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2858					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2859					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2860					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2861					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2862					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2863
  2864			001313		SN=SN+1
  2865			002000			ZZ=ZZ+ZZ
  2866						IFE	ZZ,<ZZ=1>
  2867	031720	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2868	031721	205 01 0 00 002000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2869	031722	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2870	031723	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2871	031724	312 03 0 00 034456 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2872						STOP^
  2873	031725	254 04 0 00 031726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2874	031726	324 00 0 00 031727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2875
  2876					;**********
  2877
  2878
  2879					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2880					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2881					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2882					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2883					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2884					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2885
  2886			001314		SN=SN+1
  2887			004000			ZZ=ZZ+ZZ
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11-5
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0067

  2888						IFE	ZZ,<ZZ=1>
  2889	031727	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2890	031730	205 01 0 00 004000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2891	031731	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2892	031732	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2893	031733	312 03 0 00 034457 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2894						STOP^
  2895	031734	254 04 0 00 031735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2896	031735	324 00 0 00 031736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2897
  2898					;**********
  2899
  2900
  2901					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2902					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2903					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2904					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2905					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2906					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2907
  2908			001315		SN=SN+1
  2909			010000			ZZ=ZZ+ZZ
  2910						IFE	ZZ,<ZZ=1>
  2911	031736	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2912	031737	205 01 0 00 010000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2913	031740	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2914	031741	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2915	031742	312 03 0 00 034460 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2916						STOP^
  2917	031743	254 04 0 00 031744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2918	031744	324 00 0 00 031745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2919
  2920					;**********
  2921
  2922
  2923					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2924					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2925					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2926					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2927					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2928					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2929
  2930			001316		SN=SN+1
  2931			020000			ZZ=ZZ+ZZ
  2932						IFE	ZZ,<ZZ=1>
  2933	031745	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2934	031746	205 01 0 00 020000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2935	031747	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2936	031750	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2937	031751	312 03 0 00 034461 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2938						STOP^
  2939	031752	254 04 0 00 031753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2940	031753	324 00 0 00 031754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2941
  2942					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11-6
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0068

  2943
  2944
  2945					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2946					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2947					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2948					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2949					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2950					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2951
  2952			001317		SN=SN+1
  2953			040000			ZZ=ZZ+ZZ
  2954						IFE	ZZ,<ZZ=1>
  2955	031754	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2956	031755	205 01 0 00 040000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2957	031756	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2958	031757	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2959	031760	312 03 0 00 034462 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2960						STOP^
  2961	031761	254 04 0 00 031762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2962	031762	324 00 0 00 031763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2963
  2964					;**********
  2965
  2966
  2967					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2968					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2969					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2970					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2971					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2972					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2973
  2974			001320		SN=SN+1
  2975			100000			ZZ=ZZ+ZZ
  2976						IFE	ZZ,<ZZ=1>
  2977	031763	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2978	031764	205 01 0 00 100000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2979	031765	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2980	031766	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2981	031767	312 03 0 00 034463 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2982						STOP^
  2983	031770	254 04 0 00 031771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2984	031771	324 00 0 00 031772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2985
  2986					;**********
  2987
  2988
  2989					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2990					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2991					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2992					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2993					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2994					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2995
  2996			001321		SN=SN+1
  2997			200000			ZZ=ZZ+ZZ
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 11-7
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0069

  2998						IFE	ZZ,<ZZ=1>
  2999	031772	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3000	031773	205 01 0 00 200000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3001	031774	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3002	031775	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3003	031776	312 03 0 00 034464 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3004						STOP^
  3005	031777	254 04 0 00 032000 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3006	032000	324 00 0 00 032001 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3007
  3008					;**********
  3009
  3010
  3011					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3012					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3013					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3014					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3015					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3016					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3017
  3018			001322		SN=SN+1
  3019			400000			ZZ=ZZ+ZZ
  3020						IFE	ZZ,<ZZ=1>
  3021	032001	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3022	032002	205 01 0 00 400000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3023	032003	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3024	032004	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3025	032005	312 03 0 00 034465 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3026						STOP^
  3027	032006	254 04 0 00 032007 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3028	032007	324 00 0 00 032010 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3029
  3030					;**********
  3031
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0070

  3032					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3033					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3034					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3035					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH -1,,-1,
  3036					;THE FINAL RESULT IN AC3 SHOULD BE -1,,-1.  IF C(AC3)=-1,,-1, THIS TEST PASSES.
  3037
  3038	032010	402 00 0 00 000003 	C1400:	SETZM	3		;PRELOAD AC3 WITH 0
  3039	032011	476 00 0 00 000001 		SETOM	1		;PRELOAD AC1 WITH -1,,-1
  3040	032012	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3041	032013	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3042	032014	312 03 0 00 034466 		CAME	3,[-1,,-1]	;TEST INDEXING
  3043						STOP^
  3044	032015	254 04 0 00 032016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3045	032016	324 00 0 00 032017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3046
  3047					;**********
  3048
  3049			001500		SN=1500
  3050			000000			ZZ=0
  3051
  3052					C1500:	REPEAT	^D18,<
  3053					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3054					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3055					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3056					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3057					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3058					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3059					
  3060					SN=SN+1
  3061						ZZ=<ZZ+ZZ+1>&777777
  3062						IFE	<ZZ-1>,<ZZ=777776>
  3063						SETZM	3		;PRELOAD AC3 WITH 0
  3064						HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3065						MOVEI	2,1		;SETUP INDEX REGISTER
  3066						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3067						CAME	3,[-1,,ZZ]	;TEST INDEXING
  3068						STOP
  3069					
  3070					;**********
  3071					>
  3072
  3073					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3074					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3075					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3076					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3077					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3078					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3079
  3080			001501		SN=SN+1
  3081			000001			ZZ=<ZZ+ZZ+1>&777777
  3082			777776			IFE	<ZZ-1>,<ZZ=777776>
  3083	032017	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3084	032020	561 01 0 00 777776 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3085	032021	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3086	032022	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12-1
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0071

  3087	032023	312 03 0 00 034467 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3088						STOP^
  3089	032024	254 04 0 00 032025 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3090	032025	324 00 0 00 032026 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3091
  3092					;**********
  3093
  3094
  3095					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3096					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3097					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3098					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3099					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3100					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3101
  3102			001502		SN=SN+1
  3103			777775			ZZ=<ZZ+ZZ+1>&777777
  3104						IFE	<ZZ-1>,<ZZ=777776>
  3105	032026	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3106	032027	561 01 0 00 777775 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3107	032030	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3108	032031	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3109	032032	312 03 0 00 034470 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3110						STOP^
  3111	032033	254 04 0 00 032034 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3112	032034	324 00 0 00 032035 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3113
  3114					;**********
  3115
  3116
  3117					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3118					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3119					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3120					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3121					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3122					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3123
  3124			001503		SN=SN+1
  3125			777773			ZZ=<ZZ+ZZ+1>&777777
  3126						IFE	<ZZ-1>,<ZZ=777776>
  3127	032035	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3128	032036	561 01 0 00 777773 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3129	032037	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3130	032040	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3131	032041	312 03 0 00 034471 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3132						STOP^
  3133	032042	254 04 0 00 032043 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3134	032043	324 00 0 00 032044 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3135
  3136					;**********
  3137
  3138
  3139					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3140					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3141					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12-2
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0072

  3142					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3143					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3144					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3145
  3146			001504		SN=SN+1
  3147			777767			ZZ=<ZZ+ZZ+1>&777777
  3148						IFE	<ZZ-1>,<ZZ=777776>
  3149	032044	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3150	032045	561 01 0 00 777767 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3151	032046	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3152	032047	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3153	032050	312 03 0 00 034472 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3154						STOP^
  3155	032051	254 04 0 00 032052 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3156	032052	324 00 0 00 032053 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3157
  3158					;**********
  3159
  3160
  3161					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3162					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3163					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3164					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3165					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3166					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3167
  3168			001505		SN=SN+1
  3169			777757			ZZ=<ZZ+ZZ+1>&777777
  3170						IFE	<ZZ-1>,<ZZ=777776>
  3171	032053	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3172	032054	561 01 0 00 777757 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3173	032055	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3174	032056	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3175	032057	312 03 0 00 034473 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3176						STOP^
  3177	032060	254 04 0 00 032061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3178	032061	324 00 0 00 032062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3179
  3180					;**********
  3181
  3182
  3183					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3184					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3185					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3186					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3187					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3188					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3189
  3190			001506		SN=SN+1
  3191			777737			ZZ=<ZZ+ZZ+1>&777777
  3192						IFE	<ZZ-1>,<ZZ=777776>
  3193	032062	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3194	032063	561 01 0 00 777737 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3195	032064	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3196	032065	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12-3
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0073

  3197	032066	312 03 0 00 034474 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3198						STOP^
  3199	032067	254 04 0 00 032070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3200	032070	324 00 0 00 032071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3201
  3202					;**********
  3203
  3204
  3205					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3206					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3207					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3208					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3209					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3210					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3211
  3212			001507		SN=SN+1
  3213			777677			ZZ=<ZZ+ZZ+1>&777777
  3214						IFE	<ZZ-1>,<ZZ=777776>
  3215	032071	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3216	032072	561 01 0 00 777677 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3217	032073	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3218	032074	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3219	032075	312 03 0 00 034475 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3220						STOP^
  3221	032076	254 04 0 00 032077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3222	032077	324 00 0 00 032100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3223
  3224					;**********
  3225
  3226
  3227					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3228					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3229					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3230					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3231					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3232					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3233
  3234			001510		SN=SN+1
  3235			777577			ZZ=<ZZ+ZZ+1>&777777
  3236						IFE	<ZZ-1>,<ZZ=777776>
  3237	032100	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3238	032101	561 01 0 00 777577 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3239	032102	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3240	032103	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3241	032104	312 03 0 00 034476 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3242						STOP^
  3243	032105	254 04 0 00 032106 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3244	032106	324 00 0 00 032107 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3245
  3246					;**********
  3247
  3248
  3249					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3250					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3251					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12-4
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0074

  3252					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3253					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3254					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3255
  3256			001511		SN=SN+1
  3257			777377			ZZ=<ZZ+ZZ+1>&777777
  3258						IFE	<ZZ-1>,<ZZ=777776>
  3259	032107	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3260	032110	561 01 0 00 777377 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3261	032111	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3262	032112	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3263	032113	312 03 0 00 034477 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3264						STOP^
  3265	032114	254 04 0 00 032115 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3266	032115	324 00 0 00 032116 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3267
  3268					;**********
  3269
  3270
  3271					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3272					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3273					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3274					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3275					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3276					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3277
  3278			001512		SN=SN+1
  3279			776777			ZZ=<ZZ+ZZ+1>&777777
  3280						IFE	<ZZ-1>,<ZZ=777776>
  3281	032116	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3282	032117	561 01 0 00 776777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3283	032120	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3284	032121	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3285	032122	312 03 0 00 034500 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3286						STOP^
  3287	032123	254 04 0 00 032124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3288	032124	324 00 0 00 032125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3289
  3290					;**********
  3291
  3292
  3293					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3294					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3295					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3296					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3297					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3298					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3299
  3300			001513		SN=SN+1
  3301			775777			ZZ=<ZZ+ZZ+1>&777777
  3302						IFE	<ZZ-1>,<ZZ=777776>
  3303	032125	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3304	032126	561 01 0 00 775777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3305	032127	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3306	032130	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12-5
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0075

  3307	032131	312 03 0 00 034501 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3308						STOP^
  3309	032132	254 04 0 00 032133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3310	032133	324 00 0 00 032134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3311
  3312					;**********
  3313
  3314
  3315					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3316					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3317					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3318					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3319					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3320					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3321
  3322			001514		SN=SN+1
  3323			773777			ZZ=<ZZ+ZZ+1>&777777
  3324						IFE	<ZZ-1>,<ZZ=777776>
  3325	032134	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3326	032135	561 01 0 00 773777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3327	032136	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3328	032137	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3329	032140	312 03 0 00 034502 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3330						STOP^
  3331	032141	254 04 0 00 032142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3332	032142	324 00 0 00 032143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3333
  3334					;**********
  3335
  3336
  3337					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3338					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3339					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3340					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3341					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3342					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3343
  3344			001515		SN=SN+1
  3345			767777			ZZ=<ZZ+ZZ+1>&777777
  3346						IFE	<ZZ-1>,<ZZ=777776>
  3347	032143	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3348	032144	561 01 0 00 767777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3349	032145	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3350	032146	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3351	032147	312 03 0 00 034503 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3352						STOP^
  3353	032150	254 04 0 00 032151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3354	032151	324 00 0 00 032152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3355
  3356					;**********
  3357
  3358
  3359					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3360					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3361					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12-6
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0076

  3362					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3363					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3364					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3365
  3366			001516		SN=SN+1
  3367			757777			ZZ=<ZZ+ZZ+1>&777777
  3368						IFE	<ZZ-1>,<ZZ=777776>
  3369	032152	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3370	032153	561 01 0 00 757777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3371	032154	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3372	032155	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3373	032156	312 03 0 00 034504 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3374						STOP^
  3375	032157	254 04 0 00 032160 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3376	032160	324 00 0 00 032161 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3377
  3378					;**********
  3379
  3380
  3381					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3382					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3383					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3384					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3385					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3386					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3387
  3388			001517		SN=SN+1
  3389			737777			ZZ=<ZZ+ZZ+1>&777777
  3390						IFE	<ZZ-1>,<ZZ=777776>
  3391	032161	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3392	032162	561 01 0 00 737777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3393	032163	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3394	032164	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3395	032165	312 03 0 00 034505 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3396						STOP^
  3397	032166	254 04 0 00 032167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3398	032167	324 00 0 00 032170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3399
  3400					;**********
  3401
  3402
  3403					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3404					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3405					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3406					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3407					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3408					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3409
  3410			001520		SN=SN+1
  3411			677777			ZZ=<ZZ+ZZ+1>&777777
  3412						IFE	<ZZ-1>,<ZZ=777776>
  3413	032170	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3414	032171	561 01 0 00 677777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3415	032172	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3416	032173	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 12-7
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0077

  3417	032174	312 03 0 00 034506 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3418						STOP^
  3419	032175	254 04 0 00 032176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3420	032176	324 00 0 00 032177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3421
  3422					;**********
  3423
  3424
  3425					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3426					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3427					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3428					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3429					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3430					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3431
  3432			001521		SN=SN+1
  3433			577777			ZZ=<ZZ+ZZ+1>&777777
  3434						IFE	<ZZ-1>,<ZZ=777776>
  3435	032177	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3436	032200	561 01 0 00 577777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3437	032201	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3438	032202	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3439	032203	312 03 0 00 034507 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3440						STOP^
  3441	032204	254 04 0 00 032205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3442	032205	324 00 0 00 032206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3443
  3444					;**********
  3445
  3446
  3447					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3448					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3449					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3450					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3451					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3452					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3453
  3454			001522		SN=SN+1
  3455			377777			ZZ=<ZZ+ZZ+1>&777777
  3456						IFE	<ZZ-1>,<ZZ=777776>
  3457	032206	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3458	032207	561 01 0 00 377777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3459	032210	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3460	032211	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3461	032212	312 03 0 00 034510 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3462						STOP^
  3463	032213	254 04 0 00 032214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3464	032214	324 00 0 00 032215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3465
  3466					;**********
  3467
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0078

  3468			001600		SN=1600
  3469			000000			ZZ=0 
  3470
  3471					C1600:	REPEAT	^D18,<
  3472					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3473					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3474					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3475					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3476					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3477					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3478					
  3479					SN=SN+1
  3480						ZZ=<ZZ+ZZ+1>&777777
  3481						IFE	<ZZ-1>,<ZZ=777776>
  3482						SETZM	3		;PRELOAD AC3 WITH 0
  3483						HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3484						MOVEI	2,1		;SETUP INDEX REGISTER
  3485						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3486						CAME	3,[ZZ,,-1]	;TEST INDEXING
  3487						STOP
  3488					
  3489					;**********
  3490					>
  3491
  3492					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3493					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3494					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3495					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3496					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3497					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3498
  3499			001601		SN=SN+1
  3500			000001			ZZ=<ZZ+ZZ+1>&777777
  3501			777776			IFE	<ZZ-1>,<ZZ=777776>
  3502	032215	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3503	032216	525 01 0 00 777776 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3504	032217	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3505	032220	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3506	032221	312 03 0 00 034511 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3507						STOP^
  3508	032222	254 04 0 00 032223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3509	032223	324 00 0 00 032224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3510
  3511					;**********
  3512
  3513
  3514					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3515					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3516					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3517					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3518					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3519					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3520
  3521			001602		SN=SN+1
  3522			777775			ZZ=<ZZ+ZZ+1>&777777
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13-1
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0079

  3523						IFE	<ZZ-1>,<ZZ=777776>
  3524	032224	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3525	032225	525 01 0 00 777775 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3526	032226	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3527	032227	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3528	032230	312 03 0 00 034512 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3529						STOP^
  3530	032231	254 04 0 00 032232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3531	032232	324 00 0 00 032233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3532
  3533					;**********
  3534
  3535
  3536					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3537					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3538					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3539					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3540					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3541					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3542
  3543			001603		SN=SN+1
  3544			777773			ZZ=<ZZ+ZZ+1>&777777
  3545						IFE	<ZZ-1>,<ZZ=777776>
  3546	032233	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3547	032234	525 01 0 00 777773 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3548	032235	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3549	032236	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3550	032237	312 03 0 00 034513 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3551						STOP^
  3552	032240	254 04 0 00 032241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3553	032241	324 00 0 00 032242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3554
  3555					;**********
  3556
  3557
  3558					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3559					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3560					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3561					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3562					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3563					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3564
  3565			001604		SN=SN+1
  3566			777767			ZZ=<ZZ+ZZ+1>&777777
  3567						IFE	<ZZ-1>,<ZZ=777776>
  3568	032242	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3569	032243	525 01 0 00 777767 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3570	032244	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3571	032245	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3572	032246	312 03 0 00 034514 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3573						STOP^
  3574	032247	254 04 0 00 032250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3575	032250	324 00 0 00 032251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3576
  3577					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13-2
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0080

  3578
  3579
  3580					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3581					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3582					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3583					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3584					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3585					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3586
  3587			001605		SN=SN+1
  3588			777757			ZZ=<ZZ+ZZ+1>&777777
  3589						IFE	<ZZ-1>,<ZZ=777776>
  3590	032251	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3591	032252	525 01 0 00 777757 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3592	032253	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3593	032254	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3594	032255	312 03 0 00 034515 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3595						STOP^
  3596	032256	254 04 0 00 032257 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3597	032257	324 00 0 00 032260 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3598
  3599					;**********
  3600
  3601
  3602					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3603					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3604					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3605					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3606					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3607					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3608
  3609			001606		SN=SN+1
  3610			777737			ZZ=<ZZ+ZZ+1>&777777
  3611						IFE	<ZZ-1>,<ZZ=777776>
  3612	032260	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3613	032261	525 01 0 00 777737 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3614	032262	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3615	032263	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3616	032264	312 03 0 00 034516 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3617						STOP^
  3618	032265	254 04 0 00 032266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3619	032266	324 00 0 00 032267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3620
  3621					;**********
  3622
  3623
  3624					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3625					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3626					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3627					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3628					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3629					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3630
  3631			001607		SN=SN+1
  3632			777677			ZZ=<ZZ+ZZ+1>&777777
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13-3
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0081

  3633						IFE	<ZZ-1>,<ZZ=777776>
  3634	032267	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3635	032270	525 01 0 00 777677 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3636	032271	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3637	032272	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3638	032273	312 03 0 00 034517 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3639						STOP^
  3640	032274	254 04 0 00 032275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3641	032275	324 00 0 00 032276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3642
  3643					;**********
  3644
  3645
  3646					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3647					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3648					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3649					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3650					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3651					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3652
  3653			001610		SN=SN+1
  3654			777577			ZZ=<ZZ+ZZ+1>&777777
  3655						IFE	<ZZ-1>,<ZZ=777776>
  3656	032276	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3657	032277	525 01 0 00 777577 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3658	032300	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3659	032301	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3660	032302	312 03 0 00 034520 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3661						STOP^
  3662	032303	254 04 0 00 032304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3663	032304	324 00 0 00 032305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3664
  3665					;**********
  3666
  3667
  3668					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3669					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3670					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3671					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3672					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3673					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3674
  3675			001611		SN=SN+1
  3676			777377			ZZ=<ZZ+ZZ+1>&777777
  3677						IFE	<ZZ-1>,<ZZ=777776>
  3678	032305	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3679	032306	525 01 0 00 777377 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3680	032307	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3681	032310	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3682	032311	312 03 0 00 034521 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3683						STOP^
  3684	032312	254 04 0 00 032313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3685	032313	324 00 0 00 032314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3686
  3687					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13-4
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0082

  3688
  3689
  3690					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3691					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3692					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3693					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3694					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3695					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3696
  3697			001612		SN=SN+1
  3698			776777			ZZ=<ZZ+ZZ+1>&777777
  3699						IFE	<ZZ-1>,<ZZ=777776>
  3700	032314	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3701	032315	525 01 0 00 776777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3702	032316	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3703	032317	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3704	032320	312 03 0 00 034522 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3705						STOP^
  3706	032321	254 04 0 00 032322 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3707	032322	324 00 0 00 032323 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3708
  3709					;**********
  3710
  3711
  3712					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3713					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3714					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3715					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3716					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3717					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3718
  3719			001613		SN=SN+1
  3720			775777			ZZ=<ZZ+ZZ+1>&777777
  3721						IFE	<ZZ-1>,<ZZ=777776>
  3722	032323	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3723	032324	525 01 0 00 775777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3724	032325	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3725	032326	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3726	032327	312 03 0 00 034523 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3727						STOP^
  3728	032330	254 04 0 00 032331 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3729	032331	324 00 0 00 032332 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3730
  3731					;**********
  3732
  3733
  3734					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3735					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3736					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3737					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3738					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3739					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3740
  3741			001614		SN=SN+1
  3742			773777			ZZ=<ZZ+ZZ+1>&777777
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13-5
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0083

  3743						IFE	<ZZ-1>,<ZZ=777776>
  3744	032332	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3745	032333	525 01 0 00 773777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3746	032334	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3747	032335	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3748	032336	312 03 0 00 034524 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3749						STOP^
  3750	032337	254 04 0 00 032340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3751	032340	324 00 0 00 032341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3752
  3753					;**********
  3754
  3755
  3756					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3757					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3758					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3759					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3760					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3761					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3762
  3763			001615		SN=SN+1
  3764			767777			ZZ=<ZZ+ZZ+1>&777777
  3765						IFE	<ZZ-1>,<ZZ=777776>
  3766	032341	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3767	032342	525 01 0 00 767777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3768	032343	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3769	032344	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3770	032345	312 03 0 00 034525 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3771						STOP^
  3772	032346	254 04 0 00 032347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3773	032347	324 00 0 00 032350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3774
  3775					;**********
  3776
  3777
  3778					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3779					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3780					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3781					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3782					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3783					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3784
  3785			001616		SN=SN+1
  3786			757777			ZZ=<ZZ+ZZ+1>&777777
  3787						IFE	<ZZ-1>,<ZZ=777776>
  3788	032350	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3789	032351	525 01 0 00 757777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3790	032352	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3791	032353	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3792	032354	312 03 0 00 034526 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3793						STOP^
  3794	032355	254 04 0 00 032356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3795	032356	324 00 0 00 032357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3796
  3797					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13-6
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0084

  3798
  3799
  3800					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3801					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3802					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3803					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3804					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3805					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3806
  3807			001617		SN=SN+1
  3808			737777			ZZ=<ZZ+ZZ+1>&777777
  3809						IFE	<ZZ-1>,<ZZ=777776>
  3810	032357	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3811	032360	525 01 0 00 737777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3812	032361	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3813	032362	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3814	032363	312 03 0 00 034527 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3815						STOP^
  3816	032364	254 04 0 00 032365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3817	032365	324 00 0 00 032366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3818
  3819					;**********
  3820
  3821
  3822					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3823					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3824					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3825					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3826					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3827					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3828
  3829			001620		SN=SN+1
  3830			677777			ZZ=<ZZ+ZZ+1>&777777
  3831						IFE	<ZZ-1>,<ZZ=777776>
  3832	032366	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3833	032367	525 01 0 00 677777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3834	032370	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3835	032371	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3836	032372	312 03 0 00 034530 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3837						STOP^
  3838	032373	254 04 0 00 032374 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3839	032374	324 00 0 00 032375 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3840
  3841					;**********
  3842
  3843
  3844					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3845					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3846					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3847					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3848					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3849					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3850
  3851			001621		SN=SN+1
  3852			577777			ZZ=<ZZ+ZZ+1>&777777
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 13-7
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0085

  3853						IFE	<ZZ-1>,<ZZ=777776>
  3854	032375	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3855	032376	525 01 0 00 577777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3856	032377	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3857	032400	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3858	032401	312 03 0 00 034531 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3859						STOP^
  3860	032402	254 04 0 00 032403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3861	032403	324 00 0 00 032404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3862
  3863					;**********
  3864
  3865
  3866					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3867					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3868					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3869					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3870					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3871					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3872
  3873			001622		SN=SN+1
  3874			377777			ZZ=<ZZ+ZZ+1>&777777
  3875						IFE	<ZZ-1>,<ZZ=777776>
  3876	032404	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3877	032405	525 01 0 00 377777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3878	032406	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3879	032407	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3880	032410	312 03 0 00 034532 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3881						STOP^
  3882	032411	254 04 0 00 032412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3883	032412	324 00 0 00 032413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3884
  3885					;**********
  3886
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0086

  3887					;VERIFY INDEXING WHERE 'E' IS NON-ZERO
  3888
  3889			001700		SN=1700
  3890		777777	777777			ZZ=-1
  3891		777777	777770			XX=-10
  3892
  3893					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3894					;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX,
  3895					;WHERE ZZ+1 IS THE INDEX REG.  THE AC IS PRELOADED WITH ITS OWN ADDRESS, 0,,ZZ.
  3896					;CAIE IS USED TO TEST THE INDEXING OPERATION.
  3897					;IF THE RESULT IN C(AC)=XX+C(ZZ+1 - RIGHT), THIS TEST PASSES.
  3898					;XX+C(ZZ+1 - RIGHT) SHOULD = ZZ.
  3899
  3900					C1700:	REPEAT	^D15,
  3901					<SN=SN+1
  3902						ZZ=ZZ+1
  3903						XX=XX+3
  3904						MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3905						MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3906						CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3907						STOP
  3908					
  3909					;**********
  3910					>
  3911			001701		SN=SN+1
  3912			000000			ZZ=ZZ+1
  3913		777777	777773			XX=XX+3
  3914	032413	201 01 0 00 000005 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3915	032414	201 00 0 00 000000 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3916	032415	302 00 0 01 777773 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3917						STOP^
  3918	032416	254 04 0 00 032417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3919	032417	324 00 0 00 032420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3920
  3921					;**********
  3922
  3923			001702		SN=SN+1
  3924			000001			ZZ=ZZ+1
  3925		777777	777776			XX=XX+3
  3926	032420	201 02 0 00 000003 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3927	032421	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3928	032422	302 01 0 02 777776 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3929						STOP^
  3930	032423	254 04 0 00 032424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3931	032424	324 00 0 00 032425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3932
  3933					;**********
  3934
  3935			001703		SN=SN+1
  3936			000002			ZZ=ZZ+1
  3937			000001			XX=XX+3
  3938	032425	201 03 0 00 000001 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3939	032426	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3940	032427	302 02 0 03 000001 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3941						STOP^
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14-1
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0087

  3942	032430	254 04 0 00 032431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3943	032431	324 00 0 00 032432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3944
  3945					;**********
  3946
  3947			001704		SN=SN+1
  3948			000003			ZZ=ZZ+1
  3949			000004			XX=XX+3
  3950	032432	201 04 0 00 777777 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3951	032433	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3952	032434	302 03 0 04 000004 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3953						STOP^
  3954	032435	254 04 0 00 032436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3955	032436	324 00 0 00 032437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3956
  3957					;**********
  3958
  3959			001705		SN=SN+1
  3960			000004			ZZ=ZZ+1
  3961			000007			XX=XX+3
  3962	032437	201 05 0 00 777775 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3963	032440	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3964	032441	302 04 0 05 000007 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3965						STOP^
  3966	032442	254 04 0 00 032443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3967	032443	324 00 0 00 032444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3968
  3969					;**********
  3970
  3971			001706		SN=SN+1
  3972			000005			ZZ=ZZ+1
  3973			000012			XX=XX+3
  3974	032444	201 06 0 00 777773 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3975	032445	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3976	032446	302 05 0 06 000012 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3977						STOP^
  3978	032447	254 04 0 00 032450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3979	032450	324 00 0 00 032451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3980
  3981					;**********
  3982
  3983			001707		SN=SN+1
  3984			000006			ZZ=ZZ+1
  3985			000015			XX=XX+3
  3986	032451	201 07 0 00 777771 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3987	032452	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  3988	032453	302 06 0 07 000015 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  3989						STOP^
  3990	032454	254 04 0 00 032455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3991	032455	324 00 0 00 032456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3992
  3993					;**********
  3994
  3995			001710		SN=SN+1
  3996			000007			ZZ=ZZ+1
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14-2
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0088

  3997			000020			XX=XX+3
  3998	032456	201 10 0 00 777767 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  3999	032457	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4000	032460	302 07 0 10 000020 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4001						STOP^
  4002	032461	254 04 0 00 032462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4003	032462	324 00 0 00 032463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4004
  4005					;**********
  4006
  4007			001711		SN=SN+1
  4008			000010			ZZ=ZZ+1
  4009			000023			XX=XX+3
  4010	032463	201 11 0 00 777765 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4011	032464	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4012	032465	302 10 0 11 000023 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4013						STOP^
  4014	032466	254 04 0 00 032467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4015	032467	324 00 0 00 032470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4016
  4017					;**********
  4018
  4019			001712		SN=SN+1
  4020			000011			ZZ=ZZ+1
  4021			000026			XX=XX+3
  4022	032470	201 12 0 00 777763 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4023	032471	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4024	032472	302 11 0 12 000026 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4025						STOP^
  4026	032473	254 04 0 00 032474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4027	032474	324 00 0 00 032475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4028
  4029					;**********
  4030
  4031			001713		SN=SN+1
  4032			000012			ZZ=ZZ+1
  4033			000031			XX=XX+3
  4034	032475	201 13 0 00 777761 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4035	032476	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4036	032477	302 12 0 13 000031 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4037						STOP^
  4038	032500	254 04 0 00 032501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4039	032501	324 00 0 00 032502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4040
  4041					;**********
  4042
  4043			001714		SN=SN+1
  4044			000013			ZZ=ZZ+1
  4045			000034			XX=XX+3
  4046	032502	201 14 0 00 777757 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4047	032503	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4048	032504	302 13 0 14 000034 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4049						STOP^
  4050	032505	254 04 0 00 032506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4051	032506	324 00 0 00 032507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14-3
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0089

  4052
  4053					;**********
  4054
  4055			001715		SN=SN+1
  4056			000014			ZZ=ZZ+1
  4057			000037			XX=XX+3
  4058	032507	201 15 0 00 777755 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4059	032510	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4060	032511	302 14 0 15 000037 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4061						STOP^
  4062	032512	254 04 0 00 032513 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4063	032513	324 00 0 00 032514 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4064
  4065					;**********
  4066
  4067			001716		SN=SN+1
  4068			000015			ZZ=ZZ+1
  4069			000042			XX=XX+3
  4070	032514	201 16 0 00 777753 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4071	032515	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4072	032516	302 15 0 16 000042 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4073						STOP^
  4074	032517	254 04 0 00 032520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4075	032520	324 00 0 00 032521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4076
  4077					;**********
  4078
  4079			001717		SN=SN+1
  4080			000016			ZZ=ZZ+1
  4081			000045			XX=XX+3
  4082	032521	201 17 0 00 777751 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4083	032522	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4084	032523	302 16 0 17 000045 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4085						STOP^
  4086	032524	254 04 0 00 032525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4087	032525	324 00 0 00 032526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4088
  4089					;**********
  4090
  4091					PAGE
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14-4
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0090

  4092			002000		SN=2000
  4093		777777	777777			ZZ=-1
  4094		777777	777760			XX=-20
  4095
  4096					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4097					;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX,
  4098					;WHERE ZZ+1 IS THE INDEX REG.  INDEXING IS TESTED BY LOADING
  4099					;THE AC VIA MOVEI ZZ,XX(ZZ+1), WHERE XX+C(ZZ+1)=ZZ.
  4100					;IF THE RESULT IN THE AC EQUALS 0,,ZZ, THIS TEST PASSES.
  4101
  4102					C2000:	REPEAT	^D15,
  4103					<SN=SN+1
  4104						ZZ=ZZ+1
  4105						XX=XX+5
  4106						MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4107						MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4108						CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4109						STOP
  4110					
  4111					;**********
  4112					>
  4113			002001		SN=SN+1
  4114			000000			ZZ=ZZ+1
  4115		777777	777765			XX=XX+5
  4116	032526	201 01 0 00 000013 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4117	032527	201 00 0 01 777765 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4118	032530	302 00 0 00 000000 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4119						STOP^
  4120	032531	254 04 0 00 032532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4121	032532	324 00 0 00 032533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4122
  4123					;**********
  4124
  4125			002002		SN=SN+1
  4126			000001			ZZ=ZZ+1
  4127		777777	777772			XX=XX+5
  4128	032533	201 02 0 00 000007 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4129	032534	201 01 0 02 777772 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4130	032535	302 01 0 00 000001 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4131						STOP^
  4132	032536	254 04 0 00 032537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4133	032537	324 00 0 00 032540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4134
  4135					;**********
  4136
  4137			002003		SN=SN+1
  4138			000002			ZZ=ZZ+1
  4139		777777	777777			XX=XX+5
  4140	032540	201 03 0 00 000003 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4141	032541	201 02 0 03 777777 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4142	032542	302 02 0 00 000002 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4143						STOP^
  4144	032543	254 04 0 00 032544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4145	032544	324 00 0 00 032545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4146
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14-5
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0091

  4147					;**********
  4148
  4149			002004		SN=SN+1
  4150			000003			ZZ=ZZ+1
  4151			000004			XX=XX+5
  4152	032545	201 04 0 00 777777 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4153	032546	201 03 0 04 000004 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4154	032547	302 03 0 00 000003 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4155						STOP^
  4156	032550	254 04 0 00 032551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4157	032551	324 00 0 00 032552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4158
  4159					;**********
  4160
  4161			002005		SN=SN+1
  4162			000004			ZZ=ZZ+1
  4163			000011			XX=XX+5
  4164	032552	201 05 0 00 777773 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4165	032553	201 04 0 05 000011 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4166	032554	302 04 0 00 000004 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4167						STOP^
  4168	032555	254 04 0 00 032556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4169	032556	324 00 0 00 032557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4170
  4171					;**********
  4172
  4173			002006		SN=SN+1
  4174			000005			ZZ=ZZ+1
  4175			000016			XX=XX+5
  4176	032557	201 06 0 00 777767 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4177	032560	201 05 0 06 000016 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4178	032561	302 05 0 00 000005 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4179						STOP^
  4180	032562	254 04 0 00 032563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4181	032563	324 00 0 00 032564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4182
  4183					;**********
  4184
  4185			002007		SN=SN+1
  4186			000006			ZZ=ZZ+1
  4187			000023			XX=XX+5
  4188	032564	201 07 0 00 777763 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4189	032565	201 06 0 07 000023 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4190	032566	302 06 0 00 000006 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4191						STOP^
  4192	032567	254 04 0 00 032570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4193	032570	324 00 0 00 032571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4194
  4195					;**********
  4196
  4197			002010		SN=SN+1
  4198			000007			ZZ=ZZ+1
  4199			000030			XX=XX+5
  4200	032571	201 10 0 00 777757 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4201	032572	201 07 0 10 000030 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14-6
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0092

  4202	032573	302 07 0 00 000007 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4203						STOP^
  4204	032574	254 04 0 00 032575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4205	032575	324 00 0 00 032576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4206
  4207					;**********
  4208
  4209			002011		SN=SN+1
  4210			000010			ZZ=ZZ+1
  4211			000035			XX=XX+5
  4212	032576	201 11 0 00 777753 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4213	032577	201 10 0 11 000035 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4214	032600	302 10 0 00 000010 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4215						STOP^
  4216	032601	254 04 0 00 032602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4217	032602	324 00 0 00 032603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4218
  4219					;**********
  4220
  4221			002012		SN=SN+1
  4222			000011			ZZ=ZZ+1
  4223			000042			XX=XX+5
  4224	032603	201 12 0 00 777747 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4225	032604	201 11 0 12 000042 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4226	032605	302 11 0 00 000011 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4227						STOP^
  4228	032606	254 04 0 00 032607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4229	032607	324 00 0 00 032610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4230
  4231					;**********
  4232
  4233			002013		SN=SN+1
  4234			000012			ZZ=ZZ+1
  4235			000047			XX=XX+5
  4236	032610	201 13 0 00 777743 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4237	032611	201 12 0 13 000047 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4238	032612	302 12 0 00 000012 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4239						STOP^
  4240	032613	254 04 0 00 032614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4241	032614	324 00 0 00 032615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4242
  4243					;**********
  4244
  4245			002014		SN=SN+1
  4246			000013			ZZ=ZZ+1
  4247			000054			XX=XX+5
  4248	032615	201 14 0 00 777737 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4249	032616	201 13 0 14 000054 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4250	032617	302 13 0 00 000013 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4251						STOP^
  4252	032620	254 04 0 00 032621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4253	032621	324 00 0 00 032622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4254
  4255					;**********
  4256
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 14-7
DBKADM	MAC	30-APR-76 16:59		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0093

  4257			002015		SN=SN+1
  4258			000014			ZZ=ZZ+1
  4259			000061			XX=XX+5
  4260	032622	201 15 0 00 777733 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4261	032623	201 14 0 15 000061 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4262	032624	302 14 0 00 000014 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4263						STOP^
  4264	032625	254 04 0 00 032626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4265	032626	324 00 0 00 032627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4266
  4267					;**********
  4268
  4269			002016		SN=SN+1
  4270			000015			ZZ=ZZ+1
  4271			000066			XX=XX+5
  4272	032627	201 16 0 00 777727 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4273	032630	201 15 0 16 000066 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4274	032631	302 15 0 00 000015 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4275						STOP^
  4276	032632	254 04 0 00 032633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4277	032633	324 00 0 00 032634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4278
  4279					;**********
  4280
  4281			002017		SN=SN+1
  4282			000016			ZZ=ZZ+1
  4283			000073			XX=XX+5
  4284	032634	201 17 0 00 777723 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4285	032635	201 16 0 17 000073 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4286	032636	302 16 0 00 000016 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4287						STOP^
  4288	032637	254 04 0 00 032640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4289	032640	324 00 0 00 032641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4290
  4291					;**********
  4292
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 15
DBKADM	MAC	30-APR-76 16:59		TEST OF EXCH INSTRUCTION                                                           SEQ 0094

  4293					SUBTTL	TEST OF EXCH INSTRUCTION
  4294
  4295					;**********
  4296
  4297					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4298					;MOVES C(AC) INTO E.
  4299					;IN THIS CASE, AC=E=0 AND C(AC)=C(E).  HENCE, THE FINAL RESULT
  4300					;IN AC0 SHOULD BE 0.  IF C(AC)=0, THE TEST PASSES.
  4301
  4302	032641	400 00 0 00 000000 	C2100:	SETZ			;PRELOAD AC,E WITH 0
  4303	032642	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 0 INTO AC0
  4304	032643	332 00 0 00 000000 		SKIPE			;PASS IF C(AC0)=0
  4305						STOP^
  4306	032644	254 04 0 00 032645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4307	032645	324 00 0 00 032646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4308
  4309					;**********
  4310
  4311					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4312					;MOVES C(AC) INTO E.
  4313					;IN THIS CASE, AC=E=-1,,-1 AND C(AC)=C(E).  HENCE, THE FINAL RESULT
  4314					;IN AC0 SHOULD BE -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
  4315
  4316	032646	474 00 0 00 000000 	C2200:	SETO			;PRELOAD AC,E WITH -1,,-1
  4317	032647	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE -1,,-1 INTO AC0
  4318	032650	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC0)=-1,,-1
  4319						STOP^
  4320	032651	254 04 0 00 032652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4321	032652	324 00 0 00 032653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4322
  4323					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 16
DBKADM	MAC	30-APR-76 16:59		TEST OF EXCH INSTRUCTION                                                           SEQ 0095

  4324					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4325					;MOVES C(AC) INTO E.
  4326					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1.  HENCE, THE FINAL RESULT
  4327					;IN THE AC SHOULD BE 0,,-1 AND THE RESULT IN E SHOULD BE -1,,0,
  4328					;IF THESE RESULTS OCCUR, THE TEST PASSES.
  4329
  4330	032653	205 00 0 00 777777 	C2400:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  4331	032654	201 01 0 00 777777 		MOVEI	1,-1		;PRELOAD E WITH 0,,-1
  4332	032655	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD PLACE 0,,-1 INTO THE AC AND -1,,0 INTO E
  4333	032656	312 01 0 00 034533 		CAME	1,[-1,,0]	;PASS IF C(E)=-1,,0
  4334						STOP^
  4335	032657	254 04 0 00 032660 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4336	032660	324 00 0 00 032661 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4337	032661	312 00 0 00 034534 	C2410:	CAME	0,[0,,-1]	;PASS IF C(AC)=0,,-1
  4338						STOP^
  4339	032662	254 04 0 00 032663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4340	032663	324 00 0 00 032664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4341
  4342					;**********
  4343
  4344					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4345					;MOVES C(AC) INTO E.
  4346					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0.  HENCE, THE FINAL RESULT
  4347					;IN THE AC SHOULD BE -1,,0 AND THE RESULT IN E SHOULD BE 0,,-1.
  4348					;IF THESE RESULTS OCCUR, THE TEST PASSES.
  4349
  4350	032664	201 00 0 00 777777 	C2700:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  4351	032665	205 01 0 00 777777 		MOVSI	1,-1		;PRELOAD E WITH -1,,0
  4352	032666	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD PLACE -1,,0 INTO THE AC AND 0,,-1 INTO E
  4353	032667	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  4354						STOP^
  4355	032670	254 04 0 00 032671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4356	032671	324 00 0 00 032672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4357	032672	312 00 0 00 034533 	C2710:	CAME	,[XWD -1,0]	;PASS IF C(AC)=-1,,0
  4358						STOP^
  4359	032673	254 04 0 00 032674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4360	032674	324 00 0 00 032675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4361
  4362					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 17
DBKADM	MAC	30-APR-76 16:59		TEST OF EXCH INSTRUCTION                                                           SEQ 0096

  4363					;THIS TEST IS A RELIABILITY CHECK OF EXCH.
  4364					;FIRST, AC, E ARE PRELOADED WITH 252525,,252525.  THERE, EXCH IS
  4365					;EXECUTED 7 TIMES.  THE AC IS THEN CHECKED FOR 252525,,252525.
  4366					;IF C(AC)=C(E)=252525,,252525, THIS TEST PASSES.
  4367					;IN THIS TEST AC=E=AC0
  4368
  4369	032675	200 00 0 00 034535 	C3000:	MOVE	[252525252525]	;PRELOAD AC,E WITH 252525,,252525
  4370						REPEAT	7,
  4371					<	EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0>
  4372	032676	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4373	032677	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4374	032700	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4375	032701	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4376	032702	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4377	032703	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4378	032704	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4379	032705	312 00 0 00 034535 		CAME	[252525252525]	;PASS IF C(AC0)=252525,,252525
  4380						STOP^
  4381	032706	254 04 0 00 032707 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4382	032707	324 00 0 00 032710 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4383
  4384					;**********
  4385					PAGE
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 17-1
DBKADM	MAC	30-APR-76 16:59		TEST OF EXCH INSTRUCTION                                                           SEQ 0097

  4386					;THIS TEST VERIFIES THAT EXCH MOVES C(AC) INTO E AND C(E) INTO THE AC.
  4387					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  EXCH IS EXECUTED 7 TIMES; THEN,
  4388					;THE AC IS CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0.  IF EITHER OF THESE
  4389					;RESULTS ARE NOT FOUND, THIS TEST FAILS.
  4390
  4391	032710	400 00 0 00 000000 	C3100:	SETZ			;PRELOAD AC WITH 0
  4392	032711	474 01 0 00 000000 		SETO	1,0		;PRELOAD E WITH -1,,-1
  4393						REPEAT	7,
  4394					<	EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)>
  4395	032712	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4396	032713	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4397	032714	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4398	032715	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4399	032716	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4400	032717	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4401	032720	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4402	032721	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  4403						STOP^
  4404	032722	254 04 0 00 032723 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4405	032723	324 00 0 00 032724 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4406	032724	312 01 0 00 034536 	C3110:	CAME	1,[0]		;PASS IF C(E)=0
  4407						STOP^
  4408	032725	254 04 0 00 032726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4409	032726	324 00 0 00 032727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4410
  4411					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 18
DBKADM	MAC	30-APR-76 16:59		TEST OF MOVEM INSTRUCTION                                                          SEQ 0098

  4412					SUBTTL	TEST OF MOVEM INSTRUCTION
  4413
  4414					;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES NOT MODIFY C(AC)
  4415					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN AC AND E SHOULD
  4416					;BE -1,,-1.  IF C(AC) AND C(E)=-1,,-1, THIS TEST PASSES
  4417
  4418	032727	474 00 0 00 000000 	C3200:	SETO			;PRELOAD AC WITH -1,,-1
  4419	032730	400 01 0 00 000000 		SETZ	1,0		;PRELOAD E WITH 0
  4420	032731	202 00 0 00 000001 		MOVEM	1		;*MOVEM SHOULD PLACE -1,,-1 INTO E
  4421	032732	312 01 0 00 034466 		CAME	1,[-1]		;PASS IF C(E)=-1,,-1
  4422						STOP^
  4423	032733	254 04 0 00 032734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4424	032734	324 00 0 00 032735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4425	032735	312 00 0 00 034466 	C3210:	CAME	0,[-1]		;PASS IF C(AC)=-1,,-1
  4426						STOP^
  4427	032736	254 04 0 00 032737 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4428	032737	324 00 0 00 032740 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4429
  4430					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 19
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0099

  4431					SUBTTL	TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS
  4432
  4433					;**********
  4434
  4435					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION
  4436					;IF JFCL SKIPS THE NEXT INSTRUCTION, THIS TEST FAILS
  4437
  4438	032740	200 00 0 00 034537 	C3300:	MOVE	[HALT .+3]	;THIS INSTRUCTION SHOULD NOT AFFECT THE TEST
  4439	032741	255 17 0 00 032742 		JFCL	17,.+1		;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION
  4440	032742	304 00 0 00 000000 		CAIA			;SKIP HALT INSTRUCTION IF JFCL PASSES
  4441						STOP^
  4442	032743	254 04 0 00 032744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4443	032744	324 00 0 00 032745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4444
  4445					;**********
  4446
  4447					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY0 FLAG.
  4448					;ADDI IS USED TO SET CRY0.  THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY0.
  4449					;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY0 WAS RESET BY THE PREVIOUS JFCL.
  4450					;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY0
  4451
  4452	032745	200 00 0 00 034466 	C3400:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  4453	032746	271 00 0 00 000001 		ADDI	1		;SET CRY0 FLAG
  4454	032747	255 17 0 00 032750 		JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  4455	032750	255 04 0 00 032752 		JFCL	4,.+2		;PASS IF CRY0 WAS RESET BY PREVIOUS INSTRUCTION
  4456	032751	334 00 0 00 000000 		SKIPA			;SKIP HALT IF CRY0 WAS CLEARED
  4457						STOP^
  4458	032752	254 04 0 00 032753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4459	032753	324 00 0 00 032754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4460
  4461					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 20
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0100

  4462					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY1 FLAG.
  4463					;ADDI IS USED TO SET CRY1.  THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY1.
  4464					;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY1 WAS RESET BY THE PREVIOUS JFCL.
  4465					;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY1
  4466
  4467	032754	200 00 0 00 034466 	C3500:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  4468	032755	271 00 0 00 000001 		ADDI	1		;SET CRY1 FLAG
  4469	032756	255 17 0 00 032757 		JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  4470	032757	255 02 0 00 032761 		JFCL	2,.+2		;PASS IF CRY1 WAS RESET BY PREVIOUS INSTRUCTION
  4471	032760	334 00 0 00 000000 		SKIPA			;SKIP HALT IF CRY1 WAS CLEARED
  4472						STOP^
  4473	032761	254 04 0 00 032762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4474	032762	324 00 0 00 032763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4475
  4476					;**********
  4477
  4478					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE AROV FLAG.
  4479					;ADDI IS USED TO SET AROV.  THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR AROV.
  4480					;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER AROV WAS RESET BY THE PREVIOUS JFCL.
  4481					;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR AROV
  4482
  4483	032763	205 00 0 00 400000 	C3600:	MOVSI	400000		;PRELOAD AC WITH -1,,-1
  4484	032764	270 00 0 00 034465 		ADD	[XWD 400000,0]	;SET AROV FLAG
  4485	032765	255 17 0 00 032766 		JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  4486	032766	255 10 0 00 032770 		JFCL	10,.+2		;PASS IF AROV WAS RESET BY PREVIOUS INSTRUCTION
  4487	032767	334 00 0 00 000000 		SKIPA			;SKIP HALT IF AROV WAS CLEARED
  4488						STOP^
  4489	032770	254 04 0 00 032771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4490	032771	324 00 0 00 032772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4491
  4492					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 21
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0101

  4493					;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP.
  4494					;IN THIS TEST, ADD IS USED TO SET CRY0.  THEN JFCL 0,.+2 IS EXECUTED.
  4495					;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  4496
  4497	032772	205 00 0 00 400000 	C3700:	MOVSI	400000		;PRELOAD AC WITH MOST NEGATIVE NUMBER
  4498	032773	270 00 0 00 034466 		ADD	[-1]		;SET CRY0 FLAG
  4499	032774	255 00 0 00 032776 		JFCL	.+2		;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION
  4500	032775	334 00 0 00 000000 		SKIPA			;PASS IF JFCL DID NOT SKIP
  4501						STOP^
  4502	032776	254 04 0 00 032777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4503	032777	324 00 0 00 033000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4504
  4505					;**********
  4506
  4507					;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP.
  4508					;IN THIS TEST, ADD IS USED TO SET CRY1.  THEN JFCL 0,.+2 IS EXECUTED.
  4509					;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  4510
  4511	033000	205 00 0 00 200000 	C4000:	MOVSI	200000		;PRELOAD AC WITH MOST NEGATIVE NUMBER
  4512	033001	270 00 0 00 034464 		ADD	[XWD 200000,0]	;SET CRY1 FLAG
  4513	033002	255 00 0 00 033004 		JFCL	.+2		;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION
  4514	033003	334 00 0 00 000000 		SKIPA			;PASS IF JFCL DID NOT SKIP
  4515						STOP^
  4516	033004	254 04 0 00 033005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4517	033005	324 00 0 00 033006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4518
  4519					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 22
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0102

  4520					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  4521					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  4522					;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1.  THEN, JFCL SHOULD SKIP
  4523					;BECAUSE A FLAG WAS SET BY ADDI
  4524					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR
  4525					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  4526
  4527	033006	200 00 0 00 034466 	C4100:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  4528	033007	271 00 0 00 000001 		ADDI	1		;*ADDI SHOULD SET CRY0/1 FLAGS
  4529	033010	255 17 0 00 033012 		JFCL	17,.+2		;*JFCL SHOULD JUMP BECAUSE FLAGS ARE SET
  4530						STOP^
  4531	033011	254 04 0 00 033012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4532	033012	324 00 0 00 033013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4533
  4534					;**********
  4535
  4536					;THIS TEST VERIFIES THAT CAI DOES NOT CLEAR ANY ARITHMETIC FLAGS.
  4537					;FIRST, CRY0 AND CRY1 ARE SET BY ADDI; THEN CAI IS EXECUTED.
  4538					;JFCL SHOULD JUMP BECAUSE FLAGS ARE SET.  IF JFCL DOES NOT JUMP,
  4539					;THE FLAGS WERE CLEARED BY CAI.  HENCE, CAI FAILED
  4540
  4541	033013	200 00 0 00 034466 	C4200:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  4542	033014	271 00 0 00 000001 		ADDI	1		;SET CYR0/1 FLAGS
  4543	033015	300 17 0 00 000017 		CAI	17,17		;*CAI SHOULD NOT CLEAR FLAGS
  4544	033016	255 17 0 00 033020 		JFCL	17,.+2		;PASS IF CAI CLEARED FLAGS
  4545						STOP^
  4546	033017	254 04 0 00 033020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4547	033020	324 00 0 00 033021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4548
  4549					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 23
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0103

  4550					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  4551					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  4552					;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1.  THEN JFCL SHOULD SKIP
  4553					;BECAUSE A FLAG WAS SET BY ADDI
  4554					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR
  4555					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  4556
  4557	033021	200 00 0 00 034466 	C4300:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  4558	033022	271 00 0 00 000001 		ADDI	1		;*ADDI SHOULD SET CRY1 FLAGS
  4559	033023	255 02 0 00 033025 		JFCL	2,.+2		;*JFCL SHOULD JUMP BECAUSE CRY1 FLAG IS SET
  4560						STOP^
  4561	033024	254 04 0 00 033025 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4562	033025	324 00 0 00 033026 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4563
  4564					;**********
  4565
  4566					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  4567					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  4568					;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1.  THEN, JFCL SHOULD SKIP
  4569					;BECAUSE A FLAG WAS SET BY ADDI
  4570					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR
  4571					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  4572
  4573	033026	200 00 0 00 034466 	C4400:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  4574	033027	271 00 0 00 000001 		ADDI	1		;*ADDI SHOULD SET CRY0 FLAG
  4575	033030	255 04 0 00 033032 		JFCL	4,.+2		;*JFCL SHOULD JUMP BECAUSE CRY0 FLAG IS SET
  4576						STOP^
  4577	033031	254 04 0 00 033032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4578	033032	324 00 0 00 033033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4579
  4580					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 24
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0104

  4581					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  4582					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  4583					;BECAUSE A FLAG WAS SET BY ADD
  4584					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR 
  4585					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  4586
  4587	033033	205 00 0 00 400000 	C4500:	MOVSI	400000		;PRELOAD AC WITH ALL ONES
  4588	033034	270 00 0 00 034465 		ADD	[XWD 400000,0]	;*ADD SHOULD SET AROV FLAG
  4589	033035	255 10 0 00 033037 		JFCL	10,.+2		;*JFCL SHOULD JUMP BECAUSE AROV FLAG IS SET
  4590						STOP^
  4591	033036	254 04 0 00 033037 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4592	033037	324 00 0 00 033040 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4593
  4594					;**********
  4595
  4596					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE FLOATING OVERFLOW FLAG (FOV).
  4597					;FIRST JFCL 17,.+1 IS EXECUTED TO CLEAR FOV.  THEN, JFCL 1,.+2 IS EXECUTED TO DETERMINE
  4598					;WHETHER FOV WAS CLEARED.  IF FOV WAS CLEAR, THIS TEST PASSES
  4599
  4600	033040	255 17 0 00 033041 	C4600:	JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  4601	033041	255 01 0 00 033043 		JFCL	1,.+2		;PASS IF FOV WAS CLEARED
  4602	033042	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TEST PASSED
  4603						STOP^
  4604	033043	254 04 0 00 033044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4605	033044	324 00 0 00 033045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4606
  4607					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 25
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0105

  4608					;THIS TEST VERIFIES THAT JFCL 13, DOES NOT RESET CRY0.
  4609					;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL 13,.+2 IS EXECUTED
  4610					;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY0.
  4611					;THIS TEST PASSES IF JFCL 13,.+1 DID NOT RESET CRY0.
  4612
  4613	033045	200 00 0 00 034466 	C4700:	MOVE	[-1]		;RELOAD AC WITH -1,,-1
  4614	033046	271 00 0 00 000001 		ADDI	1		;SET CRY0/1
  4615	033047	255 13 0 00 033050 		JFCL	13,.+1		;*JFCL 13, SHOULD NOT RESET CRY0
  4616	033050	255 04 0 00 033052 		JFCL	4,.+2		;FAIL IF CRY 0 WAS RESET
  4617						STOP^
  4618	033051	254 04 0 00 033052 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4619	033052	324 00 0 00 033053 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4620
  4621					;**********
  4622
  4623					;THIS TEST VERIFIES THAT JFCL 15, DOES NOT RESET CRY1.
  4624					;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL15,.+2 IS EXECUTED
  4625					;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY1.
  4626					;THIS TEST PASSES IF JFCL 15,.+1 DID NOT RESET CRY1.
  4627
  4628	033053	200 00 0 00 034466 	C5000:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  4629	033054	271 00 0 00 000001 		ADDI	1		;SET CRY0/1
  4630	033055	255 15 0 00 033056 		JFCL	15,.+1		;*JFCL15, SHOULD NOT RESET CRY0
  4631	033056	255 02 0 00 033060 		JFCL	2,.+2		;FAIL IF CRY1 WAS RESET
  4632						STOP^
  4633	033057	254 04 0 00 033060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4634	033060	324 00 0 00 033061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4635
  4636					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 26
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0106

  4637					;THIS TEST VERIFIES THAT JFCL 17, DOES NOT RESET AROV.
  4638					;FIRST AROV IS SET BY ADD; THEN, JFCL 17,.+2 IS EXECUTED
  4639					;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT AROV.
  4640					;THIS TEST PASSES IF JFCL 17,.+1 DID NOT RESET AROV.
  4641
  4642	033061	205 00 0 00 400000 	C5100:	MOVSI	400000		;PRELOAD AC WITH -1,,-1
  4643	033062	270 00 0 00 034465 		ADD	[XWD 400000,0]	;SET AROV 
  4644	033063	255 07 0 00 033064 		JFCL	7,.+1		;*JFCL 17, SHOULD NOT RESET AROV
  4645	033064	255 10 0 00 033066 		JFCL	10,.+2		;FAIL IF AROV WAS RESET
  4646						STOP^
  4647	033065	254 04 0 00 033066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4648	033066	324 00 0 00 033067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4649
  4650					;**********
  4651
  4652					;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET AROV.
  4653					;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD.
  4654					;AROV IS THEN CHECKED.  IF AROV IS SET, THIS TEST FAILS.
  4655
  4656	033067	255 17 0 00 033070 	C5200:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  4657	033070	400 00 0 00 000000 		SETZ			;PRELOAD AC,E WITH 0
  4658	033071	270 00 0 00 000000 		ADD			;*ADD SHOULD NOT SET AROV
  4659	033072	255 10 0 00 033074 		JFCL	10,.+2		;PASS IF AROV WAS RESET
  4660	033073	334 00 0 00 000000 		SKIPA			;SKIP HALT IF ADD PASSED
  4661						STOP^
  4662	033074	254 04 0 00 033075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4663	033075	324 00 0 00 033076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4664
  4665					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 27
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0107

  4666					;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY0.
  4667					;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD.
  4668					;CRY0 IS THEN CHECKED.  IF CRY0 IS SET, THIS TEST FAILS.
  4669
  4670
  4671	033076	400 00 0 00 000000 	C5300:	SETZ			;RESET ARITHMETIC FLAGS
  4672	033077	255 17 0 00 033100 		JFCL	17,.+1		;PRELOAD AC,E WITH 0
  4673	033100	270 00 0 00 000000 		ADD			;*ADD SHOULD NOT SET CRY0
  4674	033101	255 04 0 00 033103 		JFCL	4,.+2		;PASS IF CRY0 WAS RESET
  4675	033102	334 00 0 00 000000 		SKIPA			;SKIP HALT IF ADD PASSED
  4676						STOP^
  4677	033103	254 04 0 00 033104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4678	033104	324 00 0 00 033105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4679
  4680					;**********
  4681
  4682					;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY1.
  4683					;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD.
  4684					;CRY1 IS THEN CHECKED.  IF CRY1 IS SET, THIS TEST FAILS.
  4685
  4686	033105	400 00 0 00 000000 	C5400:	SETZ			;RESET ARITHMETIC FLAGS
  4687	033106	255 17 0 00 033107 		JFCL	17,.+1		;PRELOAD AC,E WITH 0
  4688	033107	270 00 0 00 000000 		ADD			;*ADD SHOULD NOT SET CRY1
  4689	033110	255 02 0 00 033112 		JFCL	2,.+2		;PASS IF CRY1 WAS RESET
  4690	033111	334 00 0 00 000000 		SKIPA			;SKIP HALT IF ADD PASSED
  4691						STOP^
  4692	033112	254 04 0 00 033113 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4693	033113	324 00 0 00 033114 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4694
  4695					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 28
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0108

  4696					;THIS TEST VERIFIES THAT THE 30X AND THE 31X INSTRUCTION GROUPS DO NOT AFFECT
  4697					;THE ARITHMETIC FLAGS.  FIRST, THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, CAI
  4698					;AND CAM ARE EXECUTED.  THE FLAGS ARE THEN CHECKED.  IF ANY OF THE FLAGS ARE SET,
  4699					;THIS TEST FAILS AND CAI OR CAM IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS
  4700
  4701	033114	255 17 0 00 033115 	C5500:	JFCL	17,.+1		;CLEAR ALL FLAGS
  4702	033115	400 00 0 00 000000 		SETZ			;CLEAR AC,0
  4703	033116	300 00 0 00 000000 		CAI			;*CAI SHOULD NOT SET ANY ARITHMETIC FLAG
  4704	033117	310 00 0 00 034466 		CAM	[-1]		;*CAM SHOULD NOT SET ANY ARITHMETIC FLAG
  4705	033120	255 17 0 00 033122 		JFCL	17,.+2		;FAIL IF ANY FLAG WAS SET
  4706	033121	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TEST PASSED
  4707						STOP^
  4708	033122	254 04 0 00 033123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4709	033123	324 00 0 00 033124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4710
  4711					;**********
  4712
  4713					;THIS TEST VERIFIES THAT THE BOOLEAN INSTRUCTION GROUPS DO NOT AFFECT
  4714					;THE ARITHMETIC FLAGS.  FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, XOR [0]
  4715					;AND XOR [-1] ARE EXECUTED.  THE FLAGS ARE THEN CHECKED.  IF ANY OF THE FLAGS ARE SET,
  4716					;THIS TEST FAILS AND XOR IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS
  4717
  4718	033124	255 17 0 00 033125 	C5600:	JFCL	17,.+1		;CLEAR ALL FLAGS
  4719	033125	474 00 0 00 000000 		SETO			;CLEAR AC,0
  4720	033126	430 00 0 00 034536 		XOR	[0]		;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG
  4721	033127	430 00 0 00 034466 		XOR	[-1]		;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG
  4722	033130	255 17 0 00 033132 		JFCL	17,.+2		;FAIL IF ANY FLAG WAS SET
  4723	033131	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TEST PASSED
  4724						STOP^
  4725	033132	254 04 0 00 033133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4726	033133	324 00 0 00 033134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4727
  4728					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 29
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0109

  4729					;THIS TEST VERIFIES THAT THE AOBJX INSTRUCTION GROUP DOES DO NOT AFFECT
  4730					;THE ARITHMETIC FLAGS.  FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, AOBJN
  4731					;AND AOBJP ARE EXECUTED.  THE FLAGS ARE THEN CHECKED.  IF ANY OF THE FLAGS ARE SET,
  4732					;THIS TEST FAILS AND AOBJN OR AOBJP IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS
  4733
  4734	033134	474 00 0 00 000000 	C5700:	SETO			;CLEAR ALL FLAGS
  4735	033135	255 17 0 00 033136 		JFCL	17,.+1		;CLEAR AC,0
  4736	033136	253 00 0 00 033137 		AOBJN	.+1		;*AOBJN SHOULD NOT SET ANY ARITHMETIC ARITHMETIC
  4737	033137	252 00 0 00 033140 		AOBJP	.+1		;*AOBJP SHOULD NOT SET ANY ARITHMETIC FLAG
  4738	033140	255 17 0 00 033142 		JFCL	17,.+2		;FAIL IF ANY FLAG WAS SET
  4739	033141	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TST PASSED
  4740						STOP^
  4741	033142	254 04 0 00 033143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4742	033143	324 00 0 00 033144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4743
  4744					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 30
DBKADM	MAC	30-APR-76 16:59		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0110

  4745					;THIS TEST VERIFIES THAT SKIP DOES NOT AFFECT THE FLAGS.
  4746					;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, SKIP IS EXECUTED.
  4747					;IF SKIP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS.
  4748
  4749	033144	255 17 0 00 033145 	C5701:	JFCL	17,.+1		;CLEAR ALL FLAGS
  4750	033145	330 00 0 00 034466 		SKIP	0,[-1]		;*SKIP SHOULD NOT SET ANY FLAGS
  4751	033146	255 17 0 00 033150 		JFCL	17,.+2		;FAIL IF ANY FLAG IS SET
  4752	033147	334 00 0 00 000000 		SKIPA			;PASS IF NO FLAG IS SET
  4753						STOP^
  4754	033150	254 04 0 00 033151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4755	033151	324 00 0 00 033152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4756
  4757					;**********
  4758
  4759					;THIS TEST VERIFIES THAT JUMP DOES NOT AFFECT THE FLAGS.
  4760					;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, JUMP IS EXECUTED.
  4761					;IF JUMP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS.
  4762
  4763	033152	255 17 0 00 033153 	C5702:	JFCL	17,.+1		;CLEAR ALL FLAGS
  4764	033153	320 00 0 00 034466 		JUMP	0,[-1]		;*JUMP SHOULD NOT SET ANY FLAGS
  4765	033154	255 17 0 00 033156 		JFCL	17,.+2		;FAIL IF ANY FLAG IS SET
  4766	033155	334 00 0 00 000000 		SKIPA			;PASS IF NO FLAG IS SET
  4767						STOP^
  4768	033156	254 04 0 00 033157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4769	033157	324 00 0 00 033160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4770
  4771					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 31
DBKADM	MAC	30-APR-76 16:59		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0111

  4772					SUBTTL	TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS
  4773
  4774					;**********
  4775
  4776					;THIS TEST VERIFIES THAT 'JRST, 0' DOES NOT SET ANY FLAGS.
  4777					;FIRST THE ARITHMETIC FLAGS ARE RESET; THEN, 'JRST 0,.+1' IS EXECUTED
  4778					;THE AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY
  4779					;OF THESE FLAGS ARE SET, THIS TEST FAILS
  4780
  4781	033160	255 17 0 00 033161 	C6000:	JFCL	17,.+1		;RESET ALL FLAGS
  4782	033161	254 00 0 00 033162 		JRST	.+1		;*JRST SHOULD NOT SET ANY FLAGS
  4783	033162	255 16 0 00 033164 		JFCL	16,.+2		;PASS IF NO FLAGS ARE SET
  4784	033163	334 00 0 00 000000 		SKIPA			;SKIP HALT IF JRST PASSES
  4785						STOP^
  4786	033164	254 04 0 00 033165 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4787	033165	324 00 0 00 033166 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4788
  4789					;**********
  4790
  4791					;THIS TEST VERIFIES THAT 'MOVE 2,2' DOES NOT SET ANY FLAGS.
  4792					;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, 'MOVE 2,2' IS EXECUTED.
  4793					;THE FOV,AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED.  IF ANY
  4794					;OF THESE FLAGS ARE SET, THIS TEST FAILS
  4795
  4796	033166	255 17 0 00 033167 	C6100:	JFCL	17,.+1		;RESET ALL FLAGS
  4797	033167	200 02 0 00 000002 		MOVE	2,2		;*MOVE SHOULD NOT SET ANY FLAGS
  4798	033170	255 17 0 00 033172 		JFCL	17,.+2		;PASS IF NO FLAGS ARE SET
  4799	033171	334 00 0 00 000000 		SKIPA			;SKIP HALT IF MOVE PASSED
  4800						STOP^
  4801	033172	254 04 0 00 033173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4802	033173	324 00 0 00 033174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4803
  4804					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 32
DBKADM	MAC	30-APR-76 16:59		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0112

  4805					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  4806					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE CRY0 FLAG.
  4807					;FIRST, ALL FLAGS ARE RESET; THEN AC1 IS SET TO SPECIFY CRY0.
  4808					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY0.  CRY0 IS THEN CHECKED.  IF
  4809					;CRY0 IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4810
  4811	033174	255 17 0 00 033175 	C6200:	JFCL	17,.+1		;CLEAR ALL FLAGS
  4812						SFLAG	CRY0		^;SET CRY0 FLAG
  4813	033175	205 01 0 00 200000 		MOVSI	1,CRY0		
  4814	033176	255 17 0 00 033177 		JFCL	17,.+1		;RESET ALL FLAGS
  4815	033177	254 02 0 01 033200 		JRST	2,.+1(1)	;SET CRY0		 FLAG
  4816	033200	255 04 0 00 033202 		JFCL	4,.+2		;PASS IF CRY0 IS SET
  4817						STOP^
  4818	033201	254 04 0 00 033202 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4819	033202	324 00 0 00 033203 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4820
  4821					;**********
  4822
  4823					;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG
  4824					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAIN 0.  HENCE, JRST 2,.+1(1)
  4825					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE CRY0/1, FLAGS ARE SET BY ADDI;
  4826					;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1.  IF CRY1 WAS CLEARED, THE
  4827					;TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4828
  4829	033203	200 00 0 00 034466 	C6300:	MOVE	[-1]		;PRELOAD AC0 WITH -1,,-1
  4830	033204	271 00 0 00 000001 		ADDI	1		;SET CRY0/1 FLAGS
  4831						SFLAG	0		^;RESET ALL ARITHMETIC FLAGS
  4832	033205	205 01 0 00 000000 		MOVSI	1,0		
  4833	033206	255 17 0 00 033207 		JFCL	17,.+1		;RESET ALL FLAGS
  4834	033207	254 02 0 01 033210 		JRST	2,.+1(1)	;SET 0		 FLAG
  4835	033210	255 02 0 00 033212 		JFCL	2,.+2		;PASS IF CRY1 IS RESET
  4836	033211	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSED
  4837						STOP^
  4838	033212	254 04 0 00 033213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4839	033213	324 00 0 00 033214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4840
  4841					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 33
DBKADM	MAC	30-APR-76 16:59		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0113

  4842
  4843					;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG
  4844					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAIN 0.  HENCE, JRST 2,.+1(1)
  4845					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE CRY0/1, FLAGS ARE SET BY ADD
  4846					;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1.  IF AROV WAS CLEARED, THE
  4847					;TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4848
  4849	033214	205 00 0 00 400000 	C6400:	MOVSI	400000		;PRELOAD AC0 WITH -1,,-1
  4850	033215	270 00 0 00 034466 		ADD	[-1]		;SET CRY0 AND AROV FLAGS
  4851						SFLAG	0		^;RESET ALL ARITHMETIC FLAGS
  4852	033216	205 01 0 00 000000 		MOVSI	1,0		
  4853	033217	255 17 0 00 033220 		JFCL	17,.+1		;RESET ALL FLAGS
  4854	033220	254 02 0 01 033221 		JRST	2,.+1(1)	;SET 0		 FLAG
  4855	033221	255 10 0 00 033223 		JFCL	10,.+2		;PASS IF AROV IS RESET
  4856	033222	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSED
  4857						STOP^
  4858	033223	254 04 0 00 033224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4859	033224	324 00 0 00 033225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4860
  4861					;**********
  4862
  4863					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  4864					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE AROV FLAG.
  4865					;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY AROV.
  4866					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET AROV.  AROV IS THEN CHECKED.  IF
  4867					;AROV IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4868
  4869	033225				C6500:	SFLAG	AROV		^;SET AROV FLAG
  4870	033225	205 01 0 00 400000 		MOVSI	1,AROV		
  4871	033226	255 17 0 00 033227 		JFCL	17,.+1		;RESET ALL FLAGS
  4872	033227	254 02 0 01 033230 		JRST	2,.+1(1)	;SET AROV		 FLAG
  4873	033230	255 10 0 00 033232 		JFCL	10,.+2		;PASS IF AROV WAS SET
  4874						STOP^
  4875	033231	254 04 0 00 033232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4876	033232	324 00 0 00 033233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4877
  4878					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 34
DBKADM	MAC	30-APR-76 16:59		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0114

  4879					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  4880					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE CRY1 FLAG.
  4881					;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY CRY1.
  4882					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY1.  CRY1 IS THEN CHECKED.  IF
  4883					;CRY1 IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4884
  4885	033233				C6600:	SFLAG	CRY1		^;SET CRY1 FLAG
  4886	033233	205 01 0 00 100000 		MOVSI	1,CRY1		
  4887	033234	255 17 0 00 033235 		JFCL	17,.+1		;RESET ALL FLAGS
  4888	033235	254 02 0 01 033236 		JRST	2,.+1(1)	;SET CRY1		 FLAG
  4889	033236	255 02 0 00 033240 		JFCL	2,.+2		;PASS IF CRY1 WAS SET
  4890						STOP^
  4891	033237	254 04 0 00 033240 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4892	033240	324 00 0 00 033241 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4893
  4894					;**********
  4895
  4896					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  4897					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE FOV FLAG.
  4898					;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY FOV.
  4899					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET FOV.  FOV IS THEN CHECKED.  IF
  4900					;FOV IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4901
  4902	033241				C6700:	SFLAG	FOV		^;SET FOV FLAG
  4903	033241	205 01 0 00 040000 		MOVSI	1,FOV		
  4904	033242	255 17 0 00 033243 		JFCL	17,.+1		;RESET ALL FLAGS
  4905	033243	254 02 0 01 033244 		JRST	2,.+1(1)	;SET FOV		 FLAG
  4906	033244	255 01 0 00 033246 		JFCL	1,.+2		;PASS IF FOV WAS SET
  4907						STOP^
  4908	033245	254 04 0 00 033246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4909	033246	324 00 0 00 033247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4910
  4911					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 35
DBKADM	MAC	30-APR-76 16:59		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0115

  4912					;THIS TEST VERIFIES THAT JFCL 0, SHOULD NEVER JUMP.
  4913					;FIRST, FOV IS SET VIA JRST2, ;THEN JFCL 0,
  4914					;IS EXECUTED.  IF JFCL 0, DOES NOT SKIP, THIS TEST PASSES
  4915
  4916	033247				C7000:	SFLAG	FOV		^;SET FOV FLAG
  4917	033247	205 01 0 00 040000 		MOVSI	1,FOV		
  4918	033250	255 17 0 00 033251 		JFCL	17,.+1		;RESET ALL FLAGS
  4919	033251	254 02 0 01 033252 		JRST	2,.+1(1)	;SET FOV		 FLAG
  4920	033252	255 00 0 00 033254 		JFCL	,.+2		;*JFCL SHOULD NOT JUMP
  4921	033253	334 00 0 00 000000 		SKIPA			;PASS IF JFCL DID NOT JUMP
  4922						STOP^
  4923	033254	254 04 0 00 033255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4924	033255	324 00 0 00 033256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4925
  4926					;**********
  4927
  4928					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  4929					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAINS 0.  HENCE, JRST 2,.+1(1)
  4930					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE CRY0, FLAG IS SET BY JRST 2,.+1(1)
  4931					;WITH C(AC1)=CRY0.  THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0.
  4932					;IF CRY0 WAS CLEARED, THE TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4933
  4934	033256				C7100:	SFLAG	CRY0		^;SET CRY0 FLAGS
  4935	033256	205 01 0 00 200000 		MOVSI	1,CRY0		
  4936	033257	255 17 0 00 033260 		JFCL	17,.+1		;RESET ALL FLAGS
  4937	033260	254 02 0 01 033261 		JRST	2,.+1(1)	;SET CRY0		 FLAG
  4938	033261	400 01 0 00 000000 		SETZ	1,		;SETUP MASK TO CLEAR ARITHMETIC FLAGS
  4939	033262	254 02 0 01 033263 		JRST	2,.+1(1)	;*RESET ARITHMETIC FLAGS
  4940	033263	255 04 0 00 033265 		JFCL	4,.+2		;PASS IF CRY0 FLAG WAS RESET
  4941	033264	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PSSED
  4942						STOP^
  4943	033265	254 04 0 00 033266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4944	033266	324 00 0 00 033267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4945
  4946					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 36
DBKADM	MAC	30-APR-76 16:59		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0116

  4947					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  4948					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAINS 0.  HENCE, JRST 2,.+1(1)
  4949					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE FOV, FLAG IS SET BY JRST 2,.+1(1)
  4950					;WITH C(AC1)=FOV.  THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0.
  4951					;IF FOV WAS CLEARED, THE TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4952
  4953	033267				C7200:	SFLAG	FOV		^;SET FOV FLAG
  4954	033267	205 01 0 00 040000 		MOVSI	1,FOV		
  4955	033270	255 17 0 00 033271 		JFCL	17,.+1		;RESET ALL FLAGS
  4956	033271	254 02 0 01 033272 		JRST	2,.+1(1)	;SET FOV		 FLAG
  4957	033272	400 01 0 00 000000 		SETZ	1,		;SETUP MASK TO CLEAR ARITHMETIC FLAGS,
  4958	033273	254 02 0 01 033274 		JRST	2,.+1(1)	;*RESET ARITHMETIC FLAGS
  4959	033274	255 01 0 00 033276 		JFCL	1,.+2		;PASS IF FOV FLAG WAS RESET
  4960	033275	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PSSED
  4961						STOP^
  4962	033276	254 04 0 00 033277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4963	033277	324 00 0 00 033300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4964
  4965					;**********
  4966
  4967					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  4968					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAINS 0.  HENCE, JRST 2,.+1(1)
  4969					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE ARITHMETIC FLAGS ARE RESET BY
  4970					;JFCL 17,.+1.  THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1.
  4971					;IF ALL THE ARITHMETIC FLAGS WERE CLEARED,
  4972					;THE TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  4973
  4974	033300	255 17 0 00 033301 	C7300:	JFCL	17,.+1		;CLEAR FLAGS
  4975	033301	400 01 0 00 000000 		SETZ	1,		;SETUP MASK TO CLEAR ARITMETIC FLAGS
  4976	033302	254 02 0 01 033303 		JRST	2,.+1(1)	;*RESET ARITHMETIC FLAGS
  4977	033303	255 17 0 00 033305 		JFCL	17,.+2		;PASS IF ALL FLAGS ARE RESET
  4978	033304	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSED
  4979						STOP^
  4980	033305	254 04 0 00 033306 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4981	033306	324 00 0 00 033307 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4982
  4983					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 37
DBKADM	MAC	30-APR-76 16:59		TEST OF JSP INSTRUCTION                                                            SEQ 0117

  4984					SUBTTL	TEST OF JSP INSTRUCTION
  4985
  4986					;**********
  4987
  4988					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS AND PC IN THE AC.
  4989					;IN THIS CASE, THE FLAGS ARE RESET; THEN, JSP IS EXECUTED.  THE AC IS THEN
  4990					;CHECKED FOR ITS CONTENTS NON-ZERO.  IF C(AC)=0, IT INDICATES
  4991					;THAT NEITHER THE FLAGS NOR THE PC WAS SAVED.  HENCE, THIS TEST FAILS.
  4992
  4993	033307	403 00 0 00 000001 	C7400:	SETZB	1		;CLEAR AC AND SETUP MASK TO RESET FLAGS
  4994	033310	254 02 0 01 033311 		JRST	2,.+1(1)	;RESET FLAGS
  4995	033311	265 00 0 00 033312 		JSP	.+1		;*JSP SHOULD STORE FLAGS AND PC IN THE AC
  4996	033312	336 00 0 00 000000 		SKIPN			;PASS IF C(AC) IS NON-ZERO
  4997						STOP			^;IT DID NOT STORE ANY FLAGS OR PC
  4998	033313	254 04 0 00 033314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4999	033314	324 00 0 00 033315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5000
  5001					;**********
  5002
  5003					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE PC IN THE RIGHT HALF OF THE AC.
  5004					;IN THIS CASE, THE AC IS CLEARED, THEN, JSP IS EXECUTED.  THE RIGHT HALF OF
  5005					;THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO.  IF C(AC RIGHT HALF)
  5006					;IS NON-ZERO, IT INDICATED THAT THE PC WAS SAVED; AND THIS TEST PASSES.
  5007
  5008	033315	400 00 0 00 000000 	C7500:	SETZ			;CLEAN AC
  5009	033316	265 00 0 00 033317 		JSP	.+1		;*JSP SHOULD STORE THE PC IN THE AC
  5010	033317	606 00 0 00 777777 		TRNN	-1		;PASS IF C(AC) IN NON-ZERO
  5011						STOP^
  5012	033320	254 04 0 00 033321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5013	033321	324 00 0 00 033322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5014
  5015					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 38
DBKADM	MAC	30-APR-76 16:59		TEST OF JSP INSTRUCTION                                                            SEQ 0118

  5016					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5017					;FIST, THE AC IS CLEARED; THEN, SOME FLAGS ARE SET AND JSP IS EXECUTED.
  5018					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5019					;WHETHER THE FLAGS WERE SAVED.  IF C(AC-LEFT) IS NON-ZERO, THIS TEST PASSES
  5020
  5021	033322	402 00 0 00 000000 	C7600:	SETZM	0		;CLEAR AC
  5022	033323	205 01 0 00 740000 		MOVSI	1,740000	;SET UP MASK TO SET FLAGS
  5023	033324	254 02 0 01 033325 		JRST	2,.+1(1)	;SET SOME ARITHMETIC FLAGS
  5024	033325	265 00 0 00 033326 		JSP	.+1		;*JSP SHOULD STORE FLAGS IN THE AC
  5025	033326	607 00 0 00 777777 		TLNN	-1		;PASS IF C(AC) IS NON-ZERO
  5026						STOP^
  5027	033327	254 04 0 00 033330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5028	033330	324 00 0 00 033331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5029
  5030					;**********
  5031
  5032					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5033					;FIRST, THE AC IS CLEARED; THEN, THE AROV FLAG IS SET AND JSP IS EXECUTED.
  5034					;THEN, THE AROV FLAG BIT OF
  5035					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5036					;WHETHER THE AROV FLAG WAS SAVED.  IF THE AROV FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5037
  5038	033331	402 00 0 00 000000 	C7700:	SETZM	0		;CLEAR THE AC
  5039						SFLAG	AROV		^;SET AROV FLAG
  5040	033332	205 01 0 00 400000 		MOVSI	1,AROV		
  5041	033333	255 17 0 00 033334 		JFCL	17,.+1		;RESET ALL FLAGS
  5042	033334	254 02 0 01 033335 		JRST	2,.+1(1)	;SET AROV		 FLAG
  5043	033335	265 00 0 00 033336 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5044	033336	607 00 0 00 400000 		TLNN	AROV		;PASS IF AROV WAS SAVED
  5045						STOP^
  5046	033337	254 04 0 00 033340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5047	033340	324 00 0 00 033341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5048
  5049					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 39
DBKADM	MAC	30-APR-76 16:59		TEST OF JSP INSTRUCTION                                                            SEQ 0119

  5050					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5051					;FIRST, THE AC IS CLEARED; THEN, THE CRY0 FLAG IS SET AND JSP IS EXECUTED.
  5052					;THEN, THE CRY0 FLAG BIT OF
  5053					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5054					;WHETHER THE CRY0 FLAG WAS SAVED.  IF THE CRY0 FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5055
  5056	033341	402 00 0 00 000000 	C10000:	SETZM	0		;CLEAR THE AC
  5057						SFLAG	CRY0		^;SET CRY0 FLAG
  5058	033342	205 01 0 00 200000 		MOVSI	1,CRY0		
  5059	033343	255 17 0 00 033344 		JFCL	17,.+1		;RESET ALL FLAGS
  5060	033344	254 02 0 01 033345 		JRST	2,.+1(1)	;SET CRY0		 FLAG
  5061	033345	265 00 0 00 033346 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5062	033346	607 00 0 00 200000 		TLNN	CRY0		;PASS IF CRY0 WAS SAVED
  5063						STOP^
  5064	033347	254 04 0 00 033350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5065	033350	324 00 0 00 033351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5066
  5067					;**********
  5068
  5069					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5070					;FIRST, THE AC IS CLEARED; THEN, THE CRY1 FLAG IS SET AND JSP IS EXECUTED.
  5071					;THEN, THE CRY1 FLAG BIT OF
  5072					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5073					;WHETHER THE FLAG WAS SAVED.  IF THE CRY1 FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5074
  5075	033351	400 00 0 00 000000 	C10100:	SETZ			;CLEAR AC
  5076						SFLAG	CRY1		^;SET CRY1 FLAG
  5077	033352	205 01 0 00 100000 		MOVSI	1,CRY1		
  5078	033353	255 17 0 00 033354 		JFCL	17,.+1		;RESET ALL FLAGS
  5079	033354	254 02 0 01 033355 		JRST	2,.+1(1)	;SET CRY1		 FLAG
  5080	033355	265 00 0 00 033356 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5081	033356	607 00 0 00 100000 		TLNN	CRY1		;PASS IF AROV WAS SAVED
  5082						STOP^
  5083	033357	254 04 0 00 033360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5084	033360	324 00 0 00 033361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5085
  5086					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 40
DBKADM	MAC	30-APR-76 16:59		TEST OF JSP INSTRUCTION                                                            SEQ 0120

  5087					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5088					;FRIST, THE AC IS CLEARED; THEN, THE FOV FLAG IS SET AND JSP IS EXECUTED.
  5089					;THEN, THE FOV FLAG BIT OF THE LEFT HALF OF THE AC IS CHECKED FOR
  5090					;ITS CONTENTS NON-ZERO TO DETERMINE WHETHER THE FOV FLAG WAS SAVED.
  5091					;IF THE FOV FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5092
  5093	033361	400 00 0 00 000000 	C10200:	SETZ			;CLEAR THE AC
  5094						SFLAG	FOV		^;SET FOV FLAG
  5095	033362	205 01 0 00 040000 		MOVSI	1,FOV		
  5096	033363	255 17 0 00 033364 		JFCL	17,.+1		;RESET ALL FLAGS
  5097	033364	254 02 0 01 033365 		JRST	2,.+1(1)	;SET FOV		 FLAG
  5098	033365	265 00 0 00 033366 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5099	033366	607 00 0 00 040000 		TLNN	FOV		;PASS IF FOV WAS SAVED
  5100						STOP^
  5101	033367	254 04 0 00 033370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5102	033370	324 00 0 00 033371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5103
  5104					;**********
  5105
  5106					;THIS TEST VERIFIES THAT JSP WILL STORE ONLY FLAGS THAT EXIST.
  5107					;I.E. RESET FLAGS WILL NOT BE SET IN THE AC.  ONLY FLAGS THAT ARE
  5108					;CLEARABLE BY JRSTF WILL BE CHECKED HERE.  FIRST ALL CLEARABLE
  5109					;FLAGS ARE RESET BY JRSTF;  THEN JSP IS EXECUTED.  THE AC IS THEN CHECKED.
  5110					;IF ANY CLEARABLE FLAGS ARE SET IN THE AC, THIS TEST FAILS.
  5111
  5112	033371				C10300:	SFLAG	0		^;CLEAR ALL CLEARABLE FLAGS
  5113	033371	205 01 0 00 000000 		MOVSI	1,0		
  5114	033372	255 17 0 00 033373 		JFCL	17,.+1		;RESET ALL FLAGS
  5115	033373	254 02 0 01 033374 		JRST	2,.+1(1)	;SET 0		 FLAG
  5116	033374	265 00 0 00 033375 		JSP	.+1		;*JSP SHOULD NOT STORE CLEARABLE FALGS
  5117	033375	603 00 0 00 761777 		TLNE	761777		;FAIL IF ANY CLEARABLE FLAG IS SET
  5118						STOP^
  5119	033376	254 04 0 00 033377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5120	033377	324 00 0 00 033400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5121
  5122					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 41
DBKADM	MAC	30-APR-76 16:59		TEST OF JSP INSTRUCTION                                                            SEQ 0121

  5123					;THIS TEST VERIFIES THAT JSP ALWAYS JUMPS.
  5124					;IN THIS TEST, JSP .+2 IS EXECUTED.  IF JSP JUMPS, THE TEST PASSES;
  5125					;OTHERWISE, THIS TEST HALTS
  5126
  5127	033400	265 00 0 00 033402 	C10400:	JSP	.+2		;*JSP SHOULD ALWAYS JUMP
  5128						STOP^
  5129	033401	254 04 0 00 033402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5130	033402	324 00 0 00 033403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5131
  5132					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 42
DBKADM	MAC	30-APR-76 16:59		TEST JRST INSTRUCTION                                                              SEQ 0122

  5133					SUBTTL	TEST JRST INSTRUCTION
  5134
  5135					;**********
  5136
  5137					;THIS TEST VERIFIES THAT JRST ALWAYS JUMPS.
  5138					;IN THIS TEST, JRST .+2 IS EXECUTED.  IF JRST JUMPS, THE TEST PASSES;
  5139					;OTHERWISE, THIS TEST HALTS
  5140
  5141	033403	254 00 0 00 033405 	C10500:	JRST	.+2		;*JRST 0, SHOULD ALWAYS JUMP
  5142						STOP^
  5143	033404	254 04 0 00 033405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5144	033405	324 00 0 00 033406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5145
  5146					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 43
DBKADM	MAC	30-APR-76 16:59		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0123

  5147					SUBTTL	TEST OF AOBJX INSTRUCTIONS
  5148
  5149					;**********
  5150
  5151					;THIS TEST VERIFIES THAT AOBJN ALWAYS ADDS 1 TO BOTH HALVES OF THE AC.
  5152					;FIRST, THE AC IS CLEARED; THEN, AOBJN IS EXECUTED AND THE AC IS CHECKED
  5153					;FOR 1,,1.  IF C(AC)=1,,1, THIS TEST PASSES.
  5154
  5155	033406	400 00 0 00 000000 	C11200:	SETZ			;CLEAR THE AC
  5156	033407	253 00 0 00 033410 		AOBJN	.+1		;*AOBJN SHOULD ADD 1 TO BOTH HALVES OF THE AC
  5157	033410	312 00 0 00 034442 		CAME	[XWD 1,1]	;PASS IF C(AC)=1,,1
  5158						STOP^
  5159	033411	254 04 0 00 033412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5160	033412	324 00 0 00 033413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5161
  5162					;**********
  5163
  5164					;THIS TEST VERIFIES THAT AOBJP ALWAYS ADDS 1 TO BOTH HALVES OF THE AC.
  5165					;FIRST, THE AC IS CLEARED; THEN AOBJP IS EXECUTED AND THE AC IS CHECKED
  5166					;FOR 1,,1.  IF C(AC)=1,,1, THIS TEST PASSES.
  5167
  5168	033413	200 00 0 00 034540 	C11300:	MOVE	[XWD 377777,377777]	;PRELOAD AC WITH 377777,,377777
  5169	033414	252 00 0 00 033415 		AOBJP	.+1			;*AOBJP SHOULD ADD, TO BOTH HALVES OF THE AC
  5170	033415	312 00 0 00 034541 		CAME	[XWD 400000,400000]	;PASS IF C(AC)=400000,400000
  5171						STOP^
  5172	033416	254 04 0 00 033417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5173	033417	324 00 0 00 033420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5174
  5175					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 44
DBKADM	MAC	30-APR-76 16:59		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0124

  5176					;THIS TEST VERIFIES THAT AOBJN WILL NOT JUMP WHEN C(AC) IS POSITIVE
  5177					;FIRST, THE AC IS CLEARED; AND AOBJN IS EXECUTED.  AOBJN SHOULD NOT JUMP
  5178					;BECAUSE C(AC) IS POSITIVE.  IF AOBJN JUMPS, THIS TEST FAILS
  5179
  5180	033420	400 00 0 00 000000 	C11400:	SETZ			;CLEAR THE AC
  5181	033421	253 00 0 00 033423 		AOBJN	.+2		;*AOBJN SHOULD NOT JUMP WHEN C(AC) IS POSITIVE
  5182	033422	334 00 0 00 000000 		SKIPA			;PASS IF AOBJN DOES NOT JUMP
  5183						STOP^
  5184	033423	254 04 0 00 033424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5185	033424	324 00 0 00 033425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5186
  5187					;**********
  5188
  5189					;THIS TEST VERIFIES THAT AOBJP WILL JUMP WHEN C(AC) IS POSITIVE
  5190					;FIRST, THE AC IS CLEARED; AND AOBJP IS EXECUTED.  AOBJP SHOULD JUMP
  5191					;BECAUSE C(AC) IS POSITIVE.  IF AOBJP DOES NOT JUMP, THIS TEST FAILS
  5192
  5193	033425	400 00 0 00 000000 	C11500:	SETZ			;CLEAR THE AC
  5194	033426	252 00 0 00 033430 		AOBJP 	.+2		;*AOBJP SHOULD JUMP BECAUSE C(AC) IS POSITIVE
  5195						STOP^
  5196	033427	254 04 0 00 033430 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5197	033430	324 00 0 00 033431 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5198
  5199					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 45
DBKADM	MAC	30-APR-76 16:59		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0125

  5200					;THIS TEST VERIFIES THAT AOBJN WILL JUMP WHEN C(AC) IS NEGATIVE
  5201					;FIRST, THE AC IS PRELOADED WITH 400000,,0; AND AOBJN IS EXECUTED.  AOBJN SHOULD JUMP
  5202					;BECAUSE C(AC) IS NEGATIVE.  IF AOBJN DOES NOT JUMP, THIS TEST FAILS
  5203
  5204	033431	200 00 0 00 034541 	C11600:	MOVE	[XWD 400000,400000]	;PRELOAD AC WITH 400000,,400000
  5205	033432	253 00 0 00 033434 		AOBJN	.+2		;*AOBJN SHOULD JUMP BECAUSE C(AC) IS NEGATIVE
  5206						STOP^
  5207	033433	254 04 0 00 033434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5208	033434	324 00 0 00 033435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5209
  5210					;**********
  5211
  5212					;THIS TEST VERIFIES THAT AOBJP WILL NOT JUMP WHEN C(AC) IS NEGATIVE.  FIRST,
  5213					;THE AC IS PRELOADED WITH 400000,,0; AND AOBJP IS EXECUTED.  AOBJP SHOULD NOT JUMP
  5214					;BECAUSE C(AC) IS NEGATIVE.  IF AOBJP JUMPS, THIS TEST FAILS
  5215
  5216	033435	200 00 0 00 034541 	C11700:	MOVE	[XWD 400000,400000]	;PRELOAD AC WITH 400000,,400000
  5217	033436	252 00 0 00 033440 		AOBJP	.+2		;*AOBJP SHOULD NOT JUMP BECAUSE C(AC) IS NEGATIVE
  5218	033437	334 00 0 00 000000 		SKIPA			;PASS IF AOBJP DOES NOT JUMP
  5219						STOP^
  5220	033440	254 04 0 00 033441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5221	033441	324 00 0 00 033442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5222
  5223					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 46
DBKADM	MAC	30-APR-76 16:59		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0126

  5224					;THIS TEST VERIFIES THAT THERE IS NO CARRY FROM BIT 18 TO BIT 17 OF THE AC ON AOBJN.
  5225					;THE AC IS PRELOADED WITH -1,,-1; THEN AOBJN IS EXECUTED. AOBJN SHOULD ADD ONE
  5226					;TO BOTH HALVES OF THE AC WITHOUT GENERATING A CARRY FROM BIT 18 TO BIT 17. IF NO
  5227					;CARRY WAS GENERATED, THIS TEST PASSES
  5228
  5229	033442	474 00 0 00 000000 	C12000:	SETO			;PRELOAD AC WITH -1,, -1
  5230	033443	253 00 0 00 033444 		AOBJN	.+1		;*AOBJN SHOULD NOT GENERATE A CARRY FROM BIT 18 TO 17
  5231	033444	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0 (NO CARRY WAS GENERATED)
  5232						STOP^
  5233	033445	254 04 0 00 033446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5234	033446	324 00 0 00 033447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5235
  5236					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 47
DBKADM	MAC	30-APR-76 16:59		TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX                               SEQ 0127

  5237					SUBTTL	TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX
  5238
  5239					;THIS TEST VERIFIES THAT MOVNI SETS CRY0 AND CRY1 FLAGS ONLY WHEN THE DATA IS 0.
  5240					;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, MOVNI IS EXECUTED WITH DATA OF ZEROS.
  5241					;THE ARITHMETIC FLAGS ARE CHECKED.
  5242					; CRY0/1 ARE SET AND AROV AND FOV RESET, THIS TEST PASSES.
  5243
  5244	033447	255 17 0 00 033450 	C12100:	JFCL	17,.+1		;CLEAR FLAGS
  5245	033450	211 00 0 00 000000 		MOVNI	0		;* MOVNI 0 SHOULD SET CRY0/1
  5246	033451	255 04 0 00 033453 		JCRY0	.+2		;PASS IF CRY0 IS SET
  5247						STOP^
  5248	033452	254 04 0 00 033453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5249	033453	324 00 0 00 033454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5250	033454	255 02 0 00 033456 		JCRY1	.+2		;PASS IF CRY1 IS SET
  5251						STOP^
  5252	033455	254 04 0 00 033456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5253	033456	324 00 0 00 033457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5254	033457	255 10 0 00 033461 		JOV	.+2		;PASS IF AROV RESET
  5255	033460	334 00 0 00 000000 		SKIPA
  5256						STOP^
  5257	033461	254 04 0 00 033462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5258	033462	324 00 0 00 033463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5259	033463	255 01 0 00 033465 		JFOV	.+2		;PASS IF FOV RESET
  5260	033464	334 00 0 00 000000 		SKIPA
  5261						STOP^
  5262	033465	254 04 0 00 033466 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5263	033466	324 00 0 00 033467 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5264
  5265					;**********
  5266
  5267					;THIS TEST VERIFIES THAT MOVN WILL NOT SET ARITHMETIC FLAGS WHEN THE DATA IS -1,,-1.
  5268					;FIRST, THE FLAGS ARE RESET; THEN, MOVN [-1,,-1] IS EXECUTED.
  5269					;THE ARITHMETIC FLAGS ARE CHECKED.
  5270					;IF ANY ARITHMETIC FLAG IS SET, THIS TEST FAILS.
  5271
  5272	033467	255 17 0 00 033470 	C12200:	JFCL	17,.+1		;CLEAR FLAGS
  5273	033470	210 00 0 00 034466 		MOVN	[-1]		;*MOVN [-1,,-1] SHOULD SET ARITHMETIC FLAGS
  5274	033471	255 17 0 00 033473 		JFCL	17,.+2		;FAIL IF AN ARITHMETIC FLAG IS SET
  5275	033472	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF MOVN PASSED.
  5276						STOP^
  5277	033473	254 04 0 00 033474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5278	033474	324 00 0 00 033475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5279
  5280					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 48
DBKADM	MAC	30-APR-76 16:59		TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX                               SEQ 0128

  5281					;THIS TEST VERIFIES THAT MOVN WILL SET THE AROV AND
  5282					;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0
  5283					;FIRST, THE FLAGS ARE RESET; THEN, MOVN [400000,,0] IS EXECUTED.
  5284					;THE ARITHMETIC FLAGS ARE CHECKED.
  5285					;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES.
  5286
  5287	033475	255 17 0 00 033476 	C12300:	JFCL	17,.+1		;CLEAR ARITHMETIC FLAGS
  5288	033476	210 00 0 00 034465 		MOVN	[XWD 400000,0]	;*MOVN [400000,,0] SHOULD SET AROV AND CRY1 ONLY
  5289	033477	255 10 0 00 033501 		JOV	.+2		;PASS IF AROV IS SET
  5290						STOP^
  5291	033500	254 04 0 00 033501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5292	033501	324 00 0 00 033502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5293	033502	255 02 0 00 033504 		JCRY1	.+2		;PASS IF CRY0 IS SET
  5294						STOP^
  5295	033503	254 04 0 00 033504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5296	033504	324 00 0 00 033505 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5297	033505	255 04 0 00 033507 		JCRY0	.+2		;PASS IF CRY0 IS RESET
  5298	033506	334 00 0 00 000000 		SKIPA
  5299						STOP^
  5300	033507	254 04 0 00 033510 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5301	033510	324 00 0 00 033511 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5302	033511	255 01 0 00 033513 		JFOV	.+2		;PASS IF FOV IS RESET
  5303	033512	334 00 0 00 000000 		SKIPA
  5304						STOP^
  5305	033513	254 04 0 00 033514 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5306	033514	324 00 0 00 033515 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5307
  5308					;**********
  5309
  5310					;THIS TEST VERIFIES THAT MOVM WILL SET THE AROV AND
  5311					;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0
  5312					;FIRST, THE FLAGS ARE RESET; THEN, MOVM [400000,,0] IS EXECUTED.
  5313					;THE ARITHMETIC FLAGS ARE CHECKED.
  5314					;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES.
  5315
  5316	033515	255 17 0 00 033516 	C12301:	JFCL	17,.+1		;CLEAR ARITHMETIC FLAGS
  5317	033516	214 00 0 00 034465 		MOVM	[XWD 400000,0]	;*MOVM [400000,,0] SHOULD SET AROV AND CRY1 ONLY
  5318	033517	255 10 0 00 033521 		JOV	.+2		;PASS IF AROV IS SET
  5319						STOP^
  5320	033520	254 04 0 00 033521 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5321	033521	324 00 0 00 033522 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5322	033522	255 02 0 00 033524 		JCRY1	.+2		;PASS IF CRY0 IS SET
  5323						STOP^
  5324	033523	254 04 0 00 033524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5325	033524	324 00 0 00 033525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5326	033525	255 04 0 00 033527 		JCRY0	.+2		;PASS IF CRY0 IS RESET
  5327	033526	334 00 0 00 000000 		SKIPA
  5328						STOP^
  5329	033527	254 04 0 00 033530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5330	033530	324 00 0 00 033531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5331	033531	255 01 0 00 033533 		JFOV	.+2		;PASS IF FOV IS RESET
  5332	033532	334 00 0 00 000000 		SKIPA
  5333						STOP^
  5334	033533	254 04 0 00 033534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5335	033534	324 00 0 00 033535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 48-1
DBKADM	MAC	30-APR-76 16:59		TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX                               SEQ 0129

  5336
  5337					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 49
DBKADM	MAC	30-APR-76 16:59		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0130

  5338					SUBTTL	TEST OF AOS AND SOS INSTRUCTIONS
  5339
  5340					;**********
  5341
  5342					;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP.
  5343					;FIRST, E IS CLEARED; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 1.
  5344					;IF C(E) IS NOT 1 OR AOS SKIPPED, THIS TEST FAILS
  5345
  5346	033535	400 00 0 00 000000 	C12600:	SETZ			;CLEAR E
  5347	033536	350 00 0 00 000000 		AOS			;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP
  5348	033537	302 00 0 00 000001 		CAIE	1		;PASS IF C(E)=0,,1 ANDAOS DID NOT SKIP
  5349						STOP^
  5350	033540	254 04 0 00 033541 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5351	033541	324 00 0 00 033542 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5352
  5353					;**********
  5354
  5355					;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP.
  5356					;FIRST, E IS PRELOADED WITH -1,,-1; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 0.
  5357					;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS
  5358
  5359	033542	474 00 0 00 000000 	C12700:	SETO			;PRELOAD E WITH -1,,-1
  5360	033543	350 00 0 00 000000 		AOS			;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP
  5361	033544	302 00 0 00 000000 		CAIE			;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP
  5362						STOP^
  5363	033545	254 04 0 00 033546 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5364	033546	324 00 0 00 033547 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5365
  5366					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 50
DBKADM	MAC	30-APR-76 16:59		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0131

  5367					;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP.
  5368					;FIRST, E IS CLEARED; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR -1,,-1.
  5369					;IF C(E) IS NOT -1,,-1 OR SOS SKIPPED, THIS TEST FAILS
  5370
  5371	033547	400 00 0 00 000000 	C13100:	SETZ			;CLEAR E
  5372	033550	370 00 0 00 000000 		SOS			;*SOS SHOULD SUBTRACT 1 FROM C(E) AND NOT SKIP
  5373	033551	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(E)=-1,,-1 AND SOS DID NOT SKIP
  5374						STOP^
  5375	033552	254 04 0 00 033553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5376	033553	324 00 0 00 033554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5377
  5378					;**********
  5379
  5380					;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP.
  5381					;FIRST, E IS PRELOADED WITH A; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR 0.
  5382					;IF C(E) IS NOT 0 OR SOS SKIPPED, THIS TEST FAILS
  5383
  5384	033554	201 00 0 00 000001 	C13200:	MOVEI	1		;PRELOAD E WITH 1
  5385	033555	370 00 0 00 000000 		SOS			;*SOS SHOULD SUBTRACT 1 FROM C(E) AND DID NOT SKIP
  5386	033556	302 00 0 00 000000 		CAIE	0		;PASS IF C(E)=0 AND SOS DID NOT SKIP
  5387						STOP^
  5388	033557	254 04 0 00 033560 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5389	033560	324 00 0 00 033561 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5390
  5391					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 51
DBKADM	MAC	30-APR-76 16:59		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0132

  5392					;THIS TEST VERIFIES THAT SOS SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER
  5393					;THAN 400000,,0.  IN THIS CASE, C(E)=1.  FIRST THE FLAGS ARE RESET; THEN
  5394					;SOS IS EXECUTED.  THE  FLAGS ARE CHECKED.  IF CRY0 AND CRY1 ARE SET
  5395					;AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  5396
  5397	033561	255 17 0 00 033562 	C13300:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  5398	033562	201 00 0 00 000001 		MOVEI	1		;PRELOAD E WITH 1
  5399	033563	370 00 0 00 000000 		SOS			;*SOS SHOULD SET CRY0/1
  5400	033564	255 04 0 00 033566 		JCRY0	.+2		;PASS IF CRY0 IS SET
  5401						STOP^
  5402	033565	254 04 0 00 033566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5403	033566	324 00 0 00 033567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5404	033567	255 02 0 00 033571 		JCRY1	.+2		;PASS IF CRY1 IS SET
  5405						STOP^
  5406	033570	254 04 0 00 033571 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5407	033571	324 00 0 00 033572 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5408	033572	255 10 0 00 033574 		JOV	.+2		;PASS IF AROV IS RESET
  5409	033573	334 00 0 00 000000 		SKIPA
  5410						STOP^
  5411	033574	254 04 0 00 033575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5412	033575	324 00 0 00 033576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5413	033576	255 01 0 00 033600 		JFOV	.+2		;PASS IF FOV IS RESET
  5414	033577	334 00 0 00 000000 		SKIPA
  5415						STOP^
  5416	033600	254 04 0 00 033601 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5417	033601	324 00 0 00 033602 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5418
  5419					;**********
  5420
  5421					;THIS TEST VERIFIES THAT AOS SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1
  5422					;FIRST THE FLAGS ARE RESET; THEN
  5423					;AOS IS EXECUTED.  THE FLAGS ARE CHECKED.
  5424					;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  5425
  5426	033602	255 17 0 00 033603 	C13400:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  5427	033603	474 00 0 00 000000 		SETO			;PRELOAD E WITH 1
  5428	033604	350 00 0 00 000000 		AOS			;*AOS SHOULD SET CRY0 AND CRY1
  5429	033605	255 04 0 00 033607 		JCRY0	.+2		;PASS IF CRY0 IS SET
  5430						STOP^
  5431	033606	254 04 0 00 033607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5432	033607	324 00 0 00 033610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5433	033610	255 02 0 00 033612 		JCRY1	.+2		;PASS IF CRY1 IS SET
  5434						STOP^
  5435	033611	254 04 0 00 033612 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5436	033612	324 00 0 00 033613 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5437	033613	255 10 0 00 033615 		JOV	.+2		;PASS IF AROV IS RESET
  5438	033614	334 00 0 00 000000 		SKIPA
  5439						STOP^
  5440	033615	254 04 0 00 033616 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5441	033616	324 00 0 00 033617 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5442	033617	255 01 0 00 033621 		JFOV	.+2		;PASS IF FOV IS RESET
  5443	033620	334 00 0 00 000000 		SKIPA
  5444						STOP^
  5445	033621	254 04 0 00 033622 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5446	033622	324 00 0 00 033623 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 51-1
DBKADM	MAC	30-APR-76 16:59		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0133

  5447
  5448					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 52
DBKADM	MAC	30-APR-76 16:59		TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS                   SEQ 0134

  5449					SUBTTL	TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS
  5450
  5451					;**********
  5452
  5453					;THIS TEST VERIFIES THAT JFCL 1, WILL ALWAYS CLEAR FOV FLAG.
  5454					;FIRST, FOV IS SET VIA JRST 2, ;THEN JFCL 1,.+1 IS EXECUTED TO CLEAR FOV.
  5455					;IF FOV WAS CLEARED, THIS TEST PASSES.
  5456
  5457	033623				C13600:	SFLAG	FOV		^;SET FOV FLAG
  5458	033623	205 01 0 00 040000 		MOVSI	1,FOV		
  5459	033624	255 17 0 00 033625 		JFCL	17,.+1		;RESET ALL FLAGS
  5460	033625	254 02 0 01 033626 		JRST	2,.+1(1)	;SET FOV		 FLAG
  5461	033626	255 01 0 00 033627 		JFCL	1,.+1		;*JFCL SHOULD RESET FOV
  5462	033627	255 01 0 00 033631 		JFCL	1,.+2		;PASS IF FOV IS RESET
  5463	033630	334 00 0 00 000000 		SKIPA			;SKIP HALT IF JFCL 1,.+1 PASSED
  5464						STOP^
  5465	033631	254 04 0 00 033632 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5466	033632	324 00 0 00 033633 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5467
  5468					;**********
  5469
  5470					;THIS TEST VERIFIES THAT JRST 2, CAN SET FXU AND JSP CAN SAVE FXU IN THE AC.
  5471					;FIRST, FXU IS SET VIA JRST 2, ;THEN, JSP IS EXECUTED. THE AC IS CHECKED
  5472					;FOR FXU.  IF FXU IS SET, THIS TEST PASSES; OTHERWISE, EITHER JRST 2, OR JSP FAILED.
  5473
  5474	033633				C13700:	SFLAG	FXU		^;*SET FXU FLAG
  5475	033633	205 01 0 00 000100 		MOVSI	1,FXU		
  5476	033634	255 17 0 00 033635 		JFCL	17,.+1		;RESET ALL FLAGS
  5477	033635	254 02 0 01 033636 		JRST	2,.+1(1)	;SET FXU		 FLAG
  5478	033636	265 00 0 00 033637 		JSP	.+1		;*STORE FXU FLAG IN AC
  5479	033637	607 00 0 00 000100 		TLNN	FXU		;PASS IF FXU IS SET IN THE AC
  5480						STOP^
  5481	033640	254 04 0 00 033641 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5482	033641	324 00 0 00 033642 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5483
  5484					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 53
DBKADM	MAC	30-APR-76 16:59		TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS                   SEQ 0135

  5485					;THIS TEST VERIFIES THAT JRST 2, CAN RESET FXU AND JSP CAN SAVE FXU IN THE AC.
  5486					;FIRST, FXU IS SET; THEN, FXU IS RESET VIA JRST 2,.  NEXT, JSP IS EXECUTED; AND
  5487					;THE AC IS CHECKED FOR FXU RESET.  IF FXU IS RESET IN THE AC, THIS TEST PASSES;
  5488					;OTHERWISE, JRST 2, FAILED TO CLEAR FXU OR JSP STORED FXU INCORECTLY.
  5489
  5490	033642				C14000:	SFLAG	FXU		^;SET FXU FLAG
  5491	033642	205 01 0 00 000100 		MOVSI	1,FXU		
  5492	033643	255 17 0 00 033644 		JFCL	17,.+1		;RESET ALL FLAGS
  5493	033644	254 02 0 01 033645 		JRST	2,.+1(1)	;SET FXU		 FLAG
  5494						SFLAG			^;*RESET FXU FLAG
  5495	033645	205 01 0 00 000000 		MOVSI	1,		
  5496	033646	255 17 0 00 033647 		JFCL	17,.+1		;RESET ALL FLAGS
  5497	033647	254 02 0 01 033650 		JRST	2,.+1(1)	;SET 		 FLAG
  5498	033650	265 00 0 00 033651 		JSP	.+1		;*STORE FXU FLAG IN THE AC
  5499	033651	603 00 0 00 000100 		TLNE	FXU		;PASS IF FXU IS RESET IN THE AC
  5500						STOP^
  5501	033652	254 04 0 00 033653 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5502	033653	324 00 0 00 033654 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5503
  5504					;**********
  5505
  5506					;THIS TEST VERIFIES THAT JRST 2, CAN SET DCK AND JSP CAN SAVE DCK IN THE AC.
  5507					;FIRST, DCK IS SET VIA JRST 2, ;THEN JSP IS EXECUTED.  THE AC IS CHECKED
  5508					;FOR DCK.  IF DCK IS SET, THIS TEST PASSES, OTHERWISE JRST 2, OR JSP FAILED.
  5509
  5510	033654				C14100:	SFLAG	DCK		^;*SET DCK FLAG
  5511	033654	205 01 0 00 000040 		MOVSI	1,DCK		
  5512	033655	255 17 0 00 033656 		JFCL	17,.+1		;RESET ALL FLAGS
  5513	033656	254 02 0 01 033657 		JRST	2,.+1(1)	;SET DCK		 FLAG
  5514	033657	265 00 0 00 033660 		JSP	.+1		;*STORE FXU FLAG IN AC
  5515	033660	607 00 0 00 000040 		TLNN	DCK		;PASS IF FXU IS SET IN THE AC
  5516						STOP^
  5517	033661	254 04 0 00 033662 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5518	033662	324 00 0 00 033663 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5519
  5520					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 54
DBKADM	MAC	30-APR-76 16:59		TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS                   SEQ 0136

  5521					;THIS TEST VERIFIES THAT JRST 2, CAN RESET DCK AND JSP CAN SAVE DCK IN THE AC.
  5522					;FIRST, FXU IS SET; THEN, DCK IS RESET VIA JRST 2,.  NEXT, JSP IS EXPECTED; AND
  5523					;THE AC IS CHECKED FOR DCK RESET.  IF DCK IS RESET IN THE AC, THIS TEST PASSES;
  5524					;OTHERWISE, JRST 2, FAILED TO CLEAR DCK OR JSP STORED DCK INCORRECTLY.
  5525
  5526	033663				C14200:	SFLAG	DCK		^;SET DCK FLAG
  5527	033663	205 01 0 00 000040 		MOVSI	1,DCK		
  5528	033664	255 17 0 00 033665 		JFCL	17,.+1		;RESET ALL FLAGS
  5529	033665	254 02 0 01 033666 		JRST	2,.+1(1)	;SET DCK		 FLAG
  5530						SFLAG			^;*RESET DCK FLAG
  5531	033666	205 01 0 00 000000 		MOVSI	1,		
  5532	033667	255 17 0 00 033670 		JFCL	17,.+1		;RESET ALL FLAGS
  5533	033670	254 02 0 01 033671 		JRST	2,.+1(1)	;SET 		 FLAG
  5534	033671	265 00 0 00 033672 		JSP	.+1		;*STORE DCK FLAG IN THE AC
  5535	033672	603 00 0 00 000040 		TLNE	DCK		;PASS IF DCK IS RESET IN THE AC
  5536						STOP^
  5537	033673	254 04 0 00 033674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5538	033674	324 00 0 00 033675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5539
  5540					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 55
DBKADM	MAC	30-APR-76 16:59		TEST OF JUMPX INSTRUCTIONS                                                         SEQ 0137

  5541					SUBTTL	TEST OF JUMPX INSTRUCTIONS
  5542
  5543					;**********
  5544
  5545					;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5546					;C(AC) IS NEGATIVE.  IN THIS TEST, THE AC CONTAINS -1,,-1.  HENCE,
  5547					;JUMPL SHOULD JUMP.  IF JUMPL JUMPS, THIS TEST PASSES.
  5548
  5549	033675	474 00 0 00 000000 	C14500:	SETO			;PRELOAD AC WITH -1,,-1
  5550	033676	321 00 0 00 033700 		JUMPL	.+2		;*JUMPL SHOULD JUMP BECAUSE C(AC) IS NEGATIVE
  5551						STOP^
  5552	033677	254 04 0 00 033700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5553	033700	324 00 0 00 033701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5554
  5555					;**********
  5556
  5557					;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5558					;C(AC) IS NEGATIVE.  IN THIS TEST, THE AC CONTAINS 0.  HENCE,
  5559					;JUMPL SHOULD NOT JUMP.  IF JUMPL DOES NOT JUMP, THIS TEST PASSES.
  5560
  5561	033701	400 00 0 00 000000 	C14600:	SETZ			;PRELOAD AC WITH 0
  5562	033702	321 00 0 00 033704 		JUMPL	.+2		;*JUMPL SHOULD NOT JUMP
  5563	033703	334 00 0 00 000000 		SKIPA			;PASS IF JUMPL DOES NOT JUMP
  5564						STOP^
  5565	033704	254 04 0 00 033705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5566	033705	324 00 0 00 033706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5567
  5568					;**********
  5569
  5570					;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5571					;C(AC)=0.  IN THIS TEST, THE AC CONTAINS 0.  HENCE,
  5572					;JUMPE SHOULD JUMP.  IF JUMPE JUMPS, THIS TEST PASSES.
  5573
  5574	033706	400 00 0 00 000000 	C14700:	SETZ			;PRELOAD AC WITH 0
  5575	033707	322 00 0 00 033711 		JUMPE	.+2		;*JUMPE SHOULD JUMP
  5576						STOP^
  5577	033710	254 04 0 00 033711 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5578	033711	324 00 0 00 033712 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5579
  5580					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 56
DBKADM	MAC	30-APR-76 16:59		TEST OF JUMPX INSTRUCTIONS                                                         SEQ 0138

  5581					;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5582					;C(AC) IS NON-ZERO.  IN THIS TEST, THE AC CONTAINS 1.  HENCE,
  5583					;JUMPN SHOULD JUMP.  IF JUMPN JUMPS, THIS TEST PASSES.
  5584
  5585	033712	201 00 0 00 000001 	C15000:	MOVEI	1		;PRELOAD AC WITH 1
  5586	033713	326 00 0 00 033715 		JUMPN	.+2		;*JUMPN SHOULD JUMP
  5587						STOP^
  5588	033714	254 04 0 00 033715 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5589	033715	324 00 0 00 033716 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5590
  5591					;**********
  5592
  5593					;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5594					;C(AC)=0.  IN THIS TEST, THE AC CONTAINS 2.  HENCE,
  5595					;JUMPL SHOULD NOT JUMP.  IF JUMPE DOES NOT JUMP, THIS TEST PASSES.
  5596
  5597	033716	201 00 0 00 000002 	C15100:	MOVEI	2		;PRELOAD AC WITH 2
  5598	033717	322 00 0 00 033721 		JUMPE	.+2		;*JUMPE SHOULD NOT JUMP
  5599	033720	334 00 0 00 000000 		SKIPA			;PASS IF JUMPE DID NOT JUMP
  5600						STOP^
  5601	033721	254 04 0 00 033722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5602	033722	324 00 0 00 033723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5603
  5604					;**********
  5605
  5606					;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5607					;C(AC) IS NON-ZERO.  IN THIS TEST, THE AC CONTAINS 0.  HENCE,
  5608					;JUMPN SHOULD NOT JUMP.  IF JUMPN DOES NOT JUMP, THIS TEST PASSES.
  5609
  5610	033723	400 00 0 00 000000 	C15200:	SETZ			;PRELOAD AC WITH 0
  5611	033724	326 00 0 00 033726 		JUMPN	.+2		;*JUMPN SHOULD NOT JUMP
  5612	033725	334 00 0 00 000000 		SKIPA			;PASS IF JUMPN DID NOT JUMP
  5613						STOP^
  5614	033726	254 04 0 00 033727 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5615	033727	324 00 0 00 033730 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5616
  5617					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 57
DBKADM	MAC	30-APR-76 16:59		TEST OF JUMPX INSTRUCTIONS                                                         SEQ 0139

  5618					;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5619					;C(AC) IS GREATER THAN 0.  IN THIS TEST, THE AC CONTAINS 1.  HENCE,
  5620					;JUMPG SHOULD JUMP.  IF JUMPG JUMPS, THIS TEST PASSES.
  5621
  5622	033730	201 00 0 00 000001 	C15300:	MOVEI	1		;PRELOAD  AC WITH 1
  5623	033731	327 00 0 00 033733 		JUMPG	.+2		;*JUMPG SHOULD JUMP
  5624						STOP^
  5625	033732	254 04 0 00 033733 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5626	033733	324 00 0 00 033734 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5627
  5628					;**********
  5629
  5630					;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  5631					;C(AC) IS GREATER THAN 0.  IN THIS TEST, THE AC CONTAINS -1,,0.  HENCE,
  5632					;JUMPG SHOULD NOT JUMP.  IF JUMPG DOES NOT JUMP, THIS TEST PASSES.
  5633
  5634	033734	205 00 0 00 777777 	C15400:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  5635	033735	327 00 0 00 033737 		JUMPG	.+2		;*JUMPG SHOULD NOT JUMP
  5636	033736	334 00 0 00 000000 		SKIPA			;PASS IF JUMPG DID NOT JUMP
  5637						STOP^
  5638	033737	254 04 0 00 033740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5639	033740	324 00 0 00 033741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5640
  5641					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 58
DBKADM	MAC	30-APR-76 16:59		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0140

  5642					SUBTTL	TEST OF AOJ AND SOJ INSTRUCTIONS
  5643
  5644					;**********
  5645
  5646					;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP.
  5647					;FIRST, THE AC IS PRELOADED WITH 0; THEN, AOJ IS EXECUTED.  NEXT, THE
  5648					;AC IS CHECKED FOR 1.  IF C(AC) IS NOT 1 OR AOJ SKIPPED, THIS TEST FAILS.
  5649
  5650	033741	400 00 0 00 000000 	C15500:	SETZ			;PRELOAD AC WITH 0
  5651	033742	340 00 0 00 033744 		AOJ	.+2		;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP
  5652	033743	302 00 0 00 000001 		CAIE	1		;PASS IF C(AC)=1 AND AOJ DID NOT JUMP
  5653						STOP^
  5654	033744	254 04 0 00 033745 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5655	033745	324 00 0 00 033746 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5656
  5657					;**********
  5658
  5659					;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP.
  5660					;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, AOJ IS EXECUTED.  NEXT, THE
  5661					;AC IS CHECKED FOR 0.  IF C(AC) IS NOT 0 OR AOJ SKIPPED, THIS TEST FAILS.
  5662
  5663	033746	474 00 0 00 000000 	C15600:	SETO			;PRELOAD AC WITH 0
  5664	033747	340 00 0 00 033751 		AOJ	.+2		;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP
  5665	033750	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=1 AND AOJ DID NOT JUMP
  5666						STOP^
  5667	033751	254 04 0 00 033752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5668	033752	324 00 0 00 033753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5669
  5670					;**********
  5671
  5672					;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP.
  5673					;FIRST, THE AC IS PRELOADED WITH 0; THEN, SOJ IS EXECUTED.  NEXT, THE
  5674					;AC IS CHECKED FOR -1,,-1.  IF C(AC) IS NOT -1,,-1 OR SOJ SKIPPED, THIS TEST FAILS.
  5675
  5676	033753	400 00 0 00 000000 	C15700:	SETZ			;PRELOAD AC WITH 0
  5677	033754	360 00 0 00 033756 		SOJ	.+2		;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP
  5678	033755	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC)=-1,,-1 AND SOJ DID NOT JUMP
  5679						STOP^
  5680	033756	254 04 0 00 033757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5681	033757	324 00 0 00 033760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5682
  5683					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 59
DBKADM	MAC	30-APR-76 16:59		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0141

  5684					;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP.
  5685					;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, SOJ IS EXECUTED.  NEXT, THE
  5686					;AC IS CHECKED FOR -1,,-2.  IF C(AC) IS NOT -1,,-2 OR SOJ SKIPPED, THIS TEST FAILS.
  5687
  5688	033760	474 00 0 00 000000 	C16000:	SETO			;PRELOAD AC WITH -1,,-1
  5689	033761	360 00 0 00 033763 		SOJ	.+2		;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP
  5690	033762	312 00 0 00 034467 		CAME	[-2]		;PASS IF C(AC)=-1,,-2 AND SOJ DID NOT JUMP
  5691						STOP^
  5692	033763	254 04 0 00 033764 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5693	033764	324 00 0 00 033765 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5694
  5695					;**********
  5696
  5697					;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP.
  5698					;FIRST, THE AC IS PRELOADED WITH 0,,1; THEN, SOJ IS EXECUTED.  NEXT, THE
  5699					;AC IS CHECKED FOR 0.  IF C(AC) IS NOT 0 OR SOJ SKIPPED, THIS TEST FAILS.
  5700
  5701	033765	201 00 0 00 000001 	C16100:	MOVEI	1		;PRELOAD AC WITH 1
  5702	033766	360 00 0 00 033770 		SOJ	.+2		;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP
  5703	033767	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=0 AND SOJ DID NOT JUMP
  5704						STOP^
  5705	033770	254 04 0 00 033771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5706	033771	324 00 0 00 033772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5707
  5708					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 60
DBKADM	MAC	30-APR-76 16:59		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0142

  5709					;THIS TEST VERIFIES THAT SOJ AC, FOLLOWED BY AOJ AC, HAS NO NET EFFECT ON C(AC).
  5710					;IN THIS CASE, THE AC IS PRELOADED WITH 0; THEN, SOJ AC, FOLLOWED BY AOJ. 
  5711					;AC, IS REPEATED 7 TIMES.  THE AC IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, 0.
  5712					;IF C(AC)=0, THIS TEST PASSES; OTHERWISE AOJ OR SOJ FAILED.
  5713
  5714			000017		C16200:	AC=17
  5715	033772	400 17 0 00 000000 		SETZ	AC,		;PRELOAD AC WITH 0
  5716						REPEAT	^D10,<
  5717						SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5718						AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC>
  5719
  5720	033773	360 17 0 00 033773 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5721	033774	340 17 0 00 033774 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5722
  5723	033775	360 17 0 00 033775 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5724	033776	340 17 0 00 033776 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5725
  5726	033777	360 17 0 00 033777 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5727	034000	340 17 0 00 034000 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5728
  5729	034001	360 17 0 00 034001 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5730	034002	340 17 0 00 034002 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5731
  5732	034003	360 17 0 00 034003 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5733	034004	340 17 0 00 034004 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5734
  5735	034005	360 17 0 00 034005 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5736	034006	340 17 0 00 034006 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5737
  5738	034007	360 17 0 00 034007 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5739	034010	340 17 0 00 034010 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5740
  5741	034011	360 17 0 00 034011 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5742	034012	340 17 0 00 034012 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5743
  5744	034013	360 17 0 00 034013 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5745	034014	340 17 0 00 034014 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5746
  5747	034015	360 17 0 00 034015 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  5748	034016	340 17 0 00 034016 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  5749	034017	332 00 0 00 000017 		SKIPE	AC		;PASS IF C(AC) IS UNCHANGED. I.E. C(AC)=0
  5750						STOP^
  5751	034020	254 04 0 00 034021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5752	034021	324 00 0 00 034022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5753
  5754					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 61
DBKADM	MAC	30-APR-76 16:59		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0143

  5755					;THIS TEST VERIFIES THAT SOJ SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER
  5756					;THAN 400000,,0.  IN THIS CASE, C(E)=1.  FIRST THE FLAGS ARE RESET; THEN
  5757					;SOJ IS EXECUTED.  THE  FLAGS ARE CHECKED.  IF CRY0 AND CRY1 ARE SET
  5758					;AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  5759
  5760	034022	255 17 0 00 034023 	C16201:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  5761	034023	201 00 0 00 000001 		MOVEI	1		;PRELOAD E WITH 1
  5762	034024	360 00 0 00 000000 		SOJ			;*SOJ SHOULD SET CRY0/1
  5763	034025	255 04 0 00 034027 		JCRY0	.+2		;PASS IF CRY0 IS SET
  5764						STOP^
  5765	034026	254 04 0 00 034027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5766	034027	324 00 0 00 034030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5767	034030	255 02 0 00 034032 		JCRY1	.+2		;PASS IF CRY1 IS SET
  5768						STOP^
  5769	034031	254 04 0 00 034032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5770	034032	324 00 0 00 034033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5771	034033	255 10 0 00 034035 		JOV	.+2		;PASS IF AROV IS RESET
  5772	034034	334 00 0 00 000000 		SKIPA
  5773						STOP^
  5774	034035	254 04 0 00 034036 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5775	034036	324 00 0 00 034037 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5776	034037	255 01 0 00 034041 		JFOV	.+2		;PASS IF FOV IS RESET
  5777	034040	334 00 0 00 000000 		SKIPA
  5778						STOP^
  5779	034041	254 04 0 00 034042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5780	034042	324 00 0 00 034043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5781
  5782					;**********
  5783
  5784					;THIS TEST VERIFIES THAT AOJ SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1
  5785					;FIRST THE FLAGS ARE RESET; THEN
  5786					;AOJ IS EXECUTED.  THE FLAGS ARE CHECKED.
  5787					;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  5788
  5789	034043	255 17 0 00 034044 	C16202:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  5790	034044	474 00 0 00 000000 		SETO			;PRELOAD E WITH 1
  5791	034045	340 00 0 00 000000 		AOJ			;*AOJ SHOULD SET CRY0 AND CRY1
  5792	034046	255 04 0 00 034050 		JCRY0	.+2		;PASS IF CRY0 IS SET
  5793						STOP^
  5794	034047	254 04 0 00 034050 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5795	034050	324 00 0 00 034051 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5796	034051	255 02 0 00 034053 		JCRY1	.+2		;PASS IF CRY1 IS SET
  5797						STOP^
  5798	034052	254 04 0 00 034053 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5799	034053	324 00 0 00 034054 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5800	034054	255 10 0 00 034056 		JOV	.+2		;PASS IF AROV IS RESET
  5801	034055	334 00 0 00 000000 		SKIPA
  5802						STOP^
  5803	034056	254 04 0 00 034057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5804	034057	324 00 0 00 034060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5805	034060	255 01 0 00 034062 		JFOV	.+2		;PASS IF FOV IS RESET
  5806	034061	334 00 0 00 000000 		SKIPA
  5807						STOP^
  5808	034062	254 04 0 00 034063 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5809	034063	324 00 0 00 034064 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 61-1
DBKADM	MAC	30-APR-76 16:59		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0144

  5810
  5811					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 62
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0145

  5812					SUBTTL	TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS
  5813
  5814					;**********
  5815
  5816					;THIS TEST VERIFIES THAT ADDM DOES NOT MODIFY C(AC)
  5817					;BOTH AC AND E ARE PRELOADED WITH -1,,-1.  THEN ADDM IS EXECUTED.
  5818					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  5819
  5820	034064	477 00 0 00 000001 	C16400:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  5821	034065	272 00 0 00 000001 		ADDM	1		;*ADDM SHOULD NOT AFFECT C(AC)
  5822	034066	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC) IS UNMODIFIED BY ADDM
  5823						STOP^
  5824	034067	254 04 0 00 034070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5825	034070	324 00 0 00 034071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5826
  5827					;**********
  5828
  5829					;THIS TEST VERIFIES THAT HRREM DOES NOT MODIFY C(AC)
  5830					;THE AC IS PRELOADED WITH 0,,-1.  THEN HRRM IS EXECUTED.
  5831					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  5832
  5833	034071	201 00 0 00 777777 	C16500:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  5834	034072	572 00 0 00 000001 		HRREM	1		;*HRRM SHOULD NOT AFFECT C(AC)
  5835	034073	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC) IS UNMODIFIED BY HRRM
  5836						STOP^
  5837	034074	254 04 0 00 034075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5838	034075	324 00 0 00 034076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5839
  5840					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 63
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0146

  5841					;THIS TEST VERIFIES THAT MOVSM DOES NOT MODIFY C(AC)
  5842					;THE AC IS PRELOADED WITH 0,,-1.  THEN MOVSM IS EXECUTED.
  5843					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  5844
  5845	034076	201 00 0 00 777777 	C16600:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  5846	034077	206 00 0 00 000001 		MOVSM	1		;*MOVSM SHOULD NOT AFFECT C(AC)
  5847	034100	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC) IS UNMODIFIED BY MOVSM
  5848						STOP^
  5849	034101	254 04 0 00 034102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5850	034102	324 00 0 00 034103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5851
  5852					;**********
  5853
  5854					;THIS TEST VERIFIES THAT XORM DOES NOT MODIFY C(AC)
  5855					;BOTH AC AND E ARE PRELOADED WITH -1,,-1.  THEN XORM IS EXECUTED.
  5856					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  5857
  5858	034103	477 00 0 00 000001 	C16700:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  5859	034104	432 00 0 00 000001 		XORM	1		;*XORM SHOULD NOT AFFECT C(AC)
  5860	034105	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC) IS UNMODIFIED BY XORM
  5861						STOP^
  5862	034106	254 04 0 00 034107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5863	034107	324 00 0 00 034110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5864
  5865					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 64
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0147

  5866					;THIS TEST VERIFIES THAT ADDB ADDS C(AC) TO C(E) AND PLACES THE
  5867					;RESULT IN BOTH AC AND E.  IN THIS TEST, BOTH AC AND E ARE PRELOADED
  5868					;WITH -1,,-1, THEN, ADDB IS EXECUTED.  C(AC) IS THEN COMPARED TO C(E);
  5869					;AND C(AC) IS THEN COMPARED TO -2.  IF BOTH OF THESE COMPARISONS SUCCEED, THIS
  5870					;TEST PASSES; OTHERWISE, ADDB FAILED
  5871
  5872	034110	477 00 0 00 000001 	C17000:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  5873	034111	273 00 0 00 000001 		ADDB	1		;*ADDB SHOULD ADD C(AC) TO C(E) AND PLACE RESULT
  5874									;INTO BOTH AC AND E
  5875	034112	312 00 0 00 000001 		CAME	1		;PASS IF C(AC)=C(E)
  5876						STOP^
  5877	034113	254 04 0 00 034114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5878	034114	324 00 0 00 034115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5879	034115	312 00 0 00 034467 		CAME	[-2]		;PASS IF C(AC)=-2
  5880						STOP^
  5881	034116	254 04 0 00 034117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5882	034117	324 00 0 00 034120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5883
  5884					;**********
  5885
  5886					;THIS TEST VERIFIES THAT ADDM ADDS C(AC) TO C(E) AND PLACES THE RESULT IN E
  5887					;IN THIS CASE, AC, E ARE BOTH PRELOADED WITH -1; THEN, ADDM IS EXECUTED.
  5888					;E IS THEN CHECKED FOR -2.  IF C(E)=-2, THIS TEST PASSES; OTHERWISE, ADDM FAILED
  5889
  5890	034120	477 00 0 00 000001 	C17100:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  5891	034121	272 00 0 00 000001 		ADDM	1		;*ADDM SHOULD ADD C(AC) TO C(E)
  5892	034122	312 01 0 00 034467 		CAME	1,[-2]		;PASS IF C(E)=-2
  5893						STOP^
  5894	034123	254 04 0 00 034124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5895	034124	324 00 0 00 034125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5896
  5897					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 65
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0148

  5898					;THIS TEST VERIFIES THAT HLLOS PLACES ONES ON THE RIGHT HALF OF E
  5899					;BUT DOES NOT AFFECT THE LEFT HALF OF E.  IN THIS CASE,
  5900					;E IS PRELOADED WITH 0; THE, HLLOS IS EXECUTED.  THE RESULT
  5901					;IN E SHOULD BE 0,,-1.  IF C(E)=0,,-1, THIS TEST PASSES
  5902
  5903	034125	402 00 0 00 000001 	C17200:	SETZM	1		;PRELOAD E WITH 0
  5904	034126	523 00 0 00 000001 		HLLOS	1		;*HLLOS SHOULD PLACE 0,,-1 INTO E
  5905	034127	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  5906						STOP^
  5907	034130	254 04 0 00 034131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5908	034131	324 00 0 00 034132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5909
  5910					;**********
  5911
  5912					;THIS TEST VERIFIES THAT MOVSS SWAPS BOTHS HALVES OF E AND
  5913					;PLACES THE RESULT IN E.  IN THIS CASE, E IS PRELOADED WITH
  5914					;-1,,0; THEN, MOVSS IS EXECUTED.  THE RESULT IN E SHOULD BE 0,,-1.
  5915					;IF C(E)=0,,-1, THIS TEST PASSES
  5916
  5917	034132	205 01 0 00 777777 	C17300:	MOVSI	1,-1		;PRELOAD E WITH -1,,0
  5918	034133	207 00 0 00 000001 		MOVSS	1		;*MOVSS SHOULD PLACE 0,,-1 INTO E
  5919	034134	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  5920						STOP^
  5921	034135	254 04 0 00 034136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5922	034136	324 00 0 00 034137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5923
  5924					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 66
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0149

  5925					;THIS TEST VERIFIES THAT AOS ADDS ONE TO MEMORY BUT DOES NOT SKIP
  5926					;FIRST, E IS PRELOADED WITH -1,-1; THEN, AOS IS EXECUTED.  NEXT, E IS CHECKED FOR 0.
  5927					;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS
  5928
  5929	034137	477 00 0 00 000001 	C17400:	SETOB	1		;PRELOAD E WITH -1,,-1
  5930	034140	350 00 0 00 000001 		AOS	1		;*AOS SHOULD ADD TO C(E) AND NOT SKIP
  5931	034141	302 01 0 00 000000 		CAIE	1,0		;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP
  5932						STOP^
  5933	034142	254 04 0 00 034143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5934	034143	324 00 0 00 034144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5935
  5936					;**********
  5937
  5938					;THIS TEST VERIFIES THAT HRLM PLACES C(AC-RIGHT) INTO E-LEFT AND DOES
  5939					;NOT MODIFY E-RIGHT.  IN THIS CASE, AC IS PRELOADED WITH 0 AND E IS PRELOADED
  5940					;WITH -1,,-1.  THEN, HRLM IS EXECUTED.  E IS THEN CHECKED FOR 0,,-1.  IF
  5941					;C(E)=0,,-1, THIS TEST PASSES
  5942
  5943	034144	400 00 0 00 000000 	C17500:	SETZ			;PRELOAD AC WITH 0
  5944	034145	474 01 0 00 000000 		SETO	1,		;PRELOAD E WITH -1,,-1
  5945	034146	506 00 0 00 000001 		HRLM	1		;*HRLM SHOULD PLACE 0,,-1 INTO E
  5946	034147	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  5947						STOP^
  5948	034150	254 04 0 00 034151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5949	034151	324 00 0 00 034152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5950
  5951					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 67
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0150

  5952					;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY E
  5953					;E IS PRELOADED WITH 0 AND AC IS PRELOADED WITH -1,,-1.
  5954					;HRRS IS EXECUTED; THEN E IS CHECKED.  IF C(E) DOES
  5955					;NOT CHANGE, THIS TEST PASSES
  5956
  5957	034152	474 00 0 00 000000 	C17600:	SETO			;PRELOAD AC WITH -1,,-1
  5958	034153	400 01 0 00 000000 		SETZ	1,		;PRELOAD E WITH 0,,0
  5959	034154	543 00 0 00 000001 		HRRS	1		;*HRRS SHOULD PLACE 0,,0 INTO E
  5960	034155	332 00 0 00 000001 		SKIPE	1
  5961						STOP^
  5962	034156	254 04 0 00 034157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5963	034157	324 00 0 00 034160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5964
  5965					;**********
  5966
  5967					;THIS TEST VERIFIES THAT HRRZM PLACES C(AC-RIGHT) INTO E-RIGHT AND PLACES
  5968					;ZEROS INTO E-LEFT.  IN THIS CASE, AC=E=AC1 AND C(AC)=C(E)=-1,,0.  HRRZM
  5969					;IS EXECUTED AND AC1 IS CHECKED FOR 0.  IF AC1=0, THIS TEST PASSES.
  5970
  5971	034160	474 00 0 00 000000 	C17700:	SETO			;PRELOAD AC0 WITH -1,,-1
  5972	034161	205 01 0 00 777777 		MOVSI	1,-1		;PRELOAD AC1 WITH -1,,0
  5973	034162	552 01 0 00 000001 		HRRZM	1,1		;*HRRZM SHOULD PLACE 0 INTO AC1
  5974	034163	332 00 0 00 000001 		SKIPE	1		;PASS IF C(AC1)=0
  5975						STOP^
  5976	034164	254 04 0 00 034165 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5977	034165	324 00 0 00 034166 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5978
  5979					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 68
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0151

  5980					;THIS TEST VERIFIES THAT JFCL 17,.+1 NEVER JUMPS AND DOES NOT MODIFY C(AC0).
  5981					;FIRST, AC0 IS PRELOADED; THEN, JFCL IS EXECUTED.  IF AC0 IS MODIFIED
  5982					;OR JFCL SKIPS, THIS TEST FAILS
  5983
  5984	034166	400 00 0 00 000000 	C20000:	SETZ			;CLEAR AC0
  5985	034167	255 17 0 00 034170 		JFCL	17,.+1		;*JFCL SHOULD NOT JUMP OR MODIFY C(AC0).
  5986	034170	332 00 0 00 000000 		SKIPE			;PASS IF C(AC0)=0 AND JFCL DID NOT JUMP
  5987						STOP^
  5988	034171	254 04 0 00 034172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5989	034172	324 00 0 00 034173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5990
  5991					;**********
  5992
  5993					;THIS TEST VERIFIES THAT XORM PERFORMS THE LOGICAL EXCLUSIVE OR FUNCTION
  5994					;BETWEEN C(AC) AND C(E) AND PLACES THE RESULT INTO E
  5995					;IN THIS CASE, AC AND E ARE PRELOADED WITH -1,,-1; THEN, XORM IS
  5996					;EXECUTED.  IF THE RESULT IN E IS 0, THE TEST PASSES
  5997
  5998	034173	477 00 0 00 000001 	C20100:	SETOB	1		;PRELOAD AC,E WITH -1,,-1
  5999	034174	432 00 0 00 000001 		XORM	1		;*XORM SHOULD PLACE 0 INTO E
  6000	034175	302 01 0 00 000000 		CAIE	1,0		;PASS IF C(E)=0
  6001						STOP^
  6002	034176	254 04 0 00 034177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6003	034177	324 00 0 00 034200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6004
  6005					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 69
DBKADM	MAC	30-APR-76 16:59		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0152

  6006					;THIS TEST VERIFIES THAT SETZB PLACES ZEROS INTO BOTH AC AND E.
  6007					;AFTER SETZB IS EXECUTED, BOTH AC AND E ARE CHECKED
  6008					;FOR 0.  IF EITHER AC OR E CONTAINS ANY ONES, THIS TEST FAILS
  6009
  6010	034200	403 00 0 00 000001 	C20200:	SETZB	1		;*SETZB SHOULD PLACE ZEROES IN BOTH AC AND E
  6011	034201	316 00 0 00 034536 		CAMN	[0]		;FAIL IF C(AC) IS NON-ZERO
  6012	034202	312 00 0 00 000001 		CAME	1		;FAIL IF C(E) IS NON-ZERO
  6013						STOP^
  6014	034203	254 04 0 00 034204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6015	034204	324 00 0 00 034205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6016
  6017					;**********
  6018
  6019					;THIS TEST VERIFIES THAT SETAB PLACES C(AC) INTO BOTH AC AND E.
  6020					;FIRST, AC IS PRELOADED WITH -1,,-1 AND E IS PRELOADED WITH 0;
  6021					;THEN, SETAB IS EXECUTED.  BOTH AC AND E ARE CHECKED FOR -1,,-1
  6022					;IF EITHER AC OR E CONTAIN ANY ZEROS, THIS TEST FAILS.
  6023
  6024	034205	400 01 0 00 000000 	C20300:	SETZ	1,		;PRELOAD E WITH 0
  6025	034206	474 00 0 00 000000 		SETO			;PRELOAD AC WITH -1,,-1
  6026	034207	427 00 0 00 000001 		SETAB	1		;*SETAB SHOULD PLACE -1,,-1 INTO BOTH AC AND E
  6027	034210	316 00 0 00 034466 		CAMN	[-1]		;FAIL IF C(AC) IS NOT -1,-1
  6028	034211	312 00 0 00 000001 		CAME	1		;FAIL IF C(E) IS NOT -1,,-1
  6029						STOP^
  6030	034212	254 04 0 00 034213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6031	034213	324 00 0 00 034214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6032
  6033					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 70
DBKADM	MAC	30-APR-76 16:59		XCT INSTRUCTION - BASIC TESTS                                                      SEQ 0153

  6034					SUBTTL	XCT INSTRUCTION - BASIC TESTS
  6035
  6036					;**********
  6037
  6038					;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E)
  6039					;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION
  6040					;AFTER EXECUTING MOVEI, CONTROL SHOULD RETURN TO
  6041					;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT.
  6042					;THIS TEST PASSES IF CONTROL RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT
  6043
  6044	034214	403 00 0 00 000001 	C20400:	SETZB	1		;CLEAR AC0 AND AC1
  6045	034215	256 00 0 00 034542 		XCT	[MOVEI 1,.+2]	;*XCT SHOULD RETURN CONTROL TO NEXT INSTRUCTION
  6046	034216	334 00 0 00 000000 		SKIPA
  6047						STOP^
  6048	034217	254 04 0 00 034220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6049	034220	324 00 0 00 034221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6050
  6051					;**********
  6052
  6053					;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E)
  6054					;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION.
  6055					;AFTER EXECUTING MOVEI, THE AC SPECIFIED BY MOVEI IS CHECKED FOR
  6056					;0,,1 (THE EXPECTED RESULT).  IF C(AC)=0,,1, THIS TEST PASSES
  6057
  6058	034221	403 00 0 00 000001 	C20500:	SETZB	1		;CLEAR AC
  6059	034222	256 00 0 00 034543 		XCT	[MOVEI 1,1]	;*XCT OF MOVEI SHOULD PLACE 1 IN THE AC
  6060	034223	302 01 0 00 000001 		CAIE	1,1		;PASS IF C(AC)=1
  6061						STOP^
  6062	034224	254 04 0 00 034225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6063	034225	324 00 0 00 034226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6064
  6065					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 71
DBKADM	MAC	30-APR-76 16:59		XCT INSTRUCTION - BASIC TESTS                                                      SEQ 0154

  6066					;THIS TEST VERIFIES THAT A NEST OF XCT INSTRUCTIONS WILL EXECUTE
  6067					;THE INSTRUCTION SPECIFIED BY THE MOST NESTED XCT AND RETURN CONTROL TO
  6068					;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING THE FIRST XCT.
  6069					;IN THIS CASE, THE EXECUTED INSTRUCTION IS MOVEI.  AFTER EXECUTING THE MOVEI,
  6070					;C(AC) IS CHECKED FOR 0,,-1 (THE EXPECTED RESULT).  IF C(AC)=0,,-1, THIS TEST PASSES
  6071
  6072	034226	403 00 0 00 000001 	C20600:	SETZB	1		;CLEAR AC
  6073	034227	256 00 0 00 034550 		XCT	[XCT[XCT[XCT[XCT[MOVEI 1,-1]]]]] ;*NESTED XCT OF MOVEI
  6074									;SHOULD PLACE 0,,-1 INTO AC
  6075	034230	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(AC)=0,,-1
  6076						STOP^
  6077	034231	254 04 0 00 034232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6078	034232	324 00 0 00 034233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6079
  6080					;**********
  6081
  6082					;THIS TEST VERIFIES THAT XCT WILL NOT MODIFY AN AC WHICH IS NOT SPECIFIED BY THE
  6083					;EXECUTED INSTRUCTION.  IN THIS CASE, AC0 IS CLEARED AND THEN CHECKED FOR ZERO AFTER
  6084					;THE XCT INSTRUCTION IS EXECUTED.  AC0 SHOULD NOT BE MODIFIED.
  6085
  6086	034233	403 00 0 00 000001 	C20700:	SETZB	1		;CLEAR AC0,AC1
  6087	034234	256 00 0 00 034551 		XCT	[MOVE 1,[-1]]	;*XCT SHOULD NOT MODIFY AC0
  6088	034235	332 00 0 00 000000 		SKIPE			;PASS IF AC0 WAS NOT MODIFIED
  6089						STOP^
  6090	034236	254 04 0 00 034237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6091	034237	324 00 0 00 034240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6092
  6093					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 72
DBKADM	MAC	30-APR-76 16:59		XCT INSTRUCTION - BASIC TESTS                                                      SEQ 0155

  6094					;THIS TEST VERIFIES THAT XCT OF SKIPA SHOULD RETURN CONTROL TO THE
  6095					;SECOND SEQUENTIAL INSTRUCTION FOLLOWING XCT
  6096
  6097	034240	256 00 0 00 034552 	C21000:	XCT	[SKIPA]		;XCT OF SKIPA SHOULD RETURN CONTROL TO .+2
  6098						STOP^
  6099	034241	254 04 0 00 034242 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6100	034242	324 00 0 00 034243 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6101
  6102					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 73
DBKADM	MAC	30-APR-76 16:59		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0156

  6103					SUBTTL	INDIRECT ADDRESSING - BASIC TESTS
  6104
  6105					;**********
  6106
  6107					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  6108					;ARE WITHIN THE AC RANGE.
  6109					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  6110					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 0,
  6111					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  6112
  6113	034243	476 00 0 00 000001 	C21100:	SETOM	1		;PRELOAD AC WITH -1,,-1
  6114	034244	201 07 0 00 000003 		MOVEI	7,3		;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  6115	034245	402 00 0 00 000003 		SETZM	3		;PRELOAD INDIRECT ADDRESS WITH 0
  6116	034246	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESSS SHOULD
  6117									;PLACE 0 INTO THE AC
  6118	034247	332 00 0 00 000001 		SKIPE	1		;PASS IF C(AC)=0
  6119						STOP^
  6120	034250	254 04 0 00 034251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6121	034251	324 00 0 00 034252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6122
  6123					;**********
  6124
  6125					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  6126					;ARE WITHIN THE AC RANGE.
  6127					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  6128					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR -1,,-1,
  6129					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  6130
  6131	034252	402 00 0 00 000001 	C21200:	SETZM	1		;PRELOAD AC WITH -1,,-1
  6132	034253	201 07 0 00 000003 		MOVEI	7,3		;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  6133	034254	476 00 0 00 000003 		SETOM	3		;PRELOAD INDIRECT ADDRESS WITH -1,,-1
  6134	034255	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESS SHOULD
  6135									;PLACE -1,,-1 INTO THE AC
  6136	034256	312 01 0 00 034466 		CAME	1,[-1,,-1]	;PASS IF C(AC)=-1,,-1
  6137						STOP^
  6138	034257	254 04 0 00 034260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6139	034260	324 00 0 00 034261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6140
  6141					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 74
DBKADM	MAC	30-APR-76 16:59		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0157

  6142					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  6143					;ARE WITHIN THE AC RANGE.
  6144					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  6145					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070,
  6146					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  6147
  6148	034261	402 00 0 00 000001 	C21300:	SETZM	1		;PRELOAD AC WITH 0
  6149	034262	201 07 0 00 000003 		MOVEI	7,3		;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  6150	034263	200 03 0 00 034553 		MOVE	3,[707070,,707070] ;PRELOAD INDIRECT ADDRESS WITH 707070,,707070
  6151	034264	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESS SHOULD
  6152									;PLACE 707070,,707070 INTO THE AC
  6153	034265	312 01 0 00 034553 		CAME	1,[707070,,707070]	;PASS IF C(AC)=707070,,707070
  6154						STOP^
  6155	034266	254 04 0 00 034267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6156	034267	324 00 0 00 034270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6157
  6158					;**********
  6159
  6160					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE
  6161					;AND @E IS BEYOND THE AC RANGE.
  6162					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  6163					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070,
  6164					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  6165
  6166	034270	254 00 0 00 034272 	C21400:	JRST	.+2
  6167	034271	707070	707070			XWD	707070,707070	;INDIRECT ADDRESS AND ITS DATA
  6168	034272	402 00 0 00 000001 		SETZM	1		;PRELOAD AC WITH 0
  6169	034273	201 07 0 00 034271 		MOVEI	7,C21400+1	;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  6170	034274	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESS SHOULD
  6171									;PLACE 707070,,707070 INTO AC
  6172	034275	312 01 0 00 034271 		CAME	1,C21400+1	;PASS IF C(AC)=707070,,707070
  6173						STOP^
  6174	034276	254 04 0 00 034277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6175	034277	324 00 0 00 034300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6176
  6177					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 75
DBKADM	MAC	30-APR-76 16:59		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0158

  6178					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  6179					;ARE BEYOND THE AC RANGE.
  6180					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  6181					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 202020,,202020,
  6182					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  6183
  6184	034300	254 00 0 00 034303 	C21500:	JRST	.+3
  6185	034301	000000	034302				.+1		;DIRECT ADDRESS AND ITS DATA
  6186	034302	202020	202020			XWD	202020,202020	;INDIRECT ADDRESS AND ITS DATA
  6187	034303	402 00 0 00 000001 		SETZM	1		;PRELOAD AC WITH 0
  6188	034304	200 01 1 00 034301 		MOVE	1,@C21500+1	;*FWT FROM INDIRECT ADDRESS SHOULD
  6189									;PLACE 202020,,202020 INTO AC
  6190	034305	312 01 0 00 034302 		CAME	1,C21500+2	;PASS IF C(AC)=202020,,202020
  6191						STOP^
  6192	034306	254 04 0 00 034307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6193	034307	324 00 0 00 034310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6194
  6195					;**********
  6196
  6197					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  6198					;ARE BEYOND THE AC RANGE.
  6199					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME.
  6200
  6201	034310	254 00 0 00 034313 	C21600:	JRST	.+3
  6202	034311	000000	034312				.+1		;DIRECT ADDRESS AND ITS DATA
  6203	034312	272727	272727			XWD	272727,272727	;INDIRECT ADDRESS AND ITS DATA
  6204	034313	200 01 0 00 034312 		MOVE	1,C21600+2	;PRELOAD AC
  6205	034314	312 01 1 00 034311 		CAME	1,@C21600+1	;*CAME OF DATA FROM INDIRECT ADDRESS - NON-AC RANGE
  6206						STOP^
  6207	034315	254 04 0 00 034316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6208	034316	324 00 0 00 034317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6209
  6210					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 76
DBKADM	MAC	30-APR-76 16:59		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0159

  6211					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE
  6212					;AND @E IS BEYOND THE AC RANGE.
  6213					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME.
  6214
  6215	034317	254 00 0 00 034321 	C21700:	JRST	.+2
  6216	034320	252525	252525			XWD	252525,252525	;INDIRECT ADDRESS AND ITS DATA
  6217	034321	201 07 0 00 034320 		MOVEI	7,C21700+1	;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  6218	034322	200 01 0 00 034320 		MOVE	1,C21700+1	;SETUP AC
  6219	034323	312 01 1 00 000007 		CAME	1,@7		;*CAME IF DATA FROM INDIRECT ADDRESS - AC RANGE
  6220						STOP^
  6221	034324	254 04 0 00 034325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6222	034325	324 00 0 00 034326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6223
  6224					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 77
DBKADM	MAC	30-APR-76 16:59		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0160

  6225					SUBTTL	TEST INDIRECT ADDRESSING WITH INDEXING
  6226
  6227					;SETUP INDEX REGISTERS
  6228
  6229	034326	201 01 0 00 777774 		MOVEI	1,-4
  6230	034327	201 03 0 00 000002 		MOVEI	3,2
  6231	034330	201 04 0 00 000010 		MOVEI	4,10
  6232	034331	201 05 0 00 000001 		MOVEI	5,1
  6233	034332	201 06 0 00 000005 		MOVEI	6,5
  6234	034333	201 07 0 00 000007 		MOVEI	7,7
  6235	034334	201 10 0 00 000004 		MOVEI	10,4
  6236	034335	201 11 0 00 777772 		MOVEI	11,-6
  6237	034336	201 12 0 00 000005 		MOVEI	12,5
  6238	034337	201 13 0 00 000002 		MOVEI	13,2
  6239
  6240	034340	254 00 0 00 034371 		JRST	C22000		;RESUME TEST
  6241
  6242					;INDIRECT ADDRESSING/INDEXING TEST TABLE
  6243
  6244					;;;;;;;;;;;          ;;;;;;;;;;          ;;;;;;;;;;
  6245
  6246					;DO NOT MODIFY THIS TABLE OR TESTS C21700 THRU C22600 INDEPENDENTLY !
  6247
  6248					;;;;;;;;;;          ;;;;;;;;;;          ;;;;;;;;;;
  6249
  6250	034341	000003	034344		E217:		E217A(3)
  6251	034342	000020	034347		E220:		@E220A
  6252	034343	220220	220220		E220B:	220220,,220220
  6253	034344	000020	034351		E217A:		@E221A		;E221-4
  6254	034345	221221	221221		E221B:	221221,,221221
  6255	034346	217217	217217		E222A:	217217,,217217		;E217A+2
  6256	034347	000000	034343		E220A:		E220B
  6257	034350	000000	034350		E221:		E221
  6258	034351	000000	034345		E221A:		E221B
  6259	034352	000000	034350		E222:		E221
  6260	034353	223223	223223		E223A:	223223,,223223
  6261	034354	000004	034354		E224A:		E224A(4)	;E223-6
  6262	034355	222222	222222			222222,,222222		;E222A+7
  6263	034356	000000	034356		E225:		E225
  6264	034357	000007	034346				E222A(7)	;E222+5
  6265	034360	000020	034363				@E225A		;E225+2
  6266	034361	225225	225225		E225B:	225225,,225225
  6267	034362	000000	034362		E223:		E223
  6268	034363	000000	034361		E225A:		E225B
  6269	034364	224224	224224			224224,,224224		;E224A+10
  6270	034365	226226	226226		E226B:	226226,,226226
  6271	034366	000000	034353				E223A		;E223+4
  6272	034367	000025	034367		E226A:		@E226A(5)	;E223+5
  6273	034370	000000	034365				E226B		;E226A+1
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 78
DBKADM	MAC	30-APR-76 16:59		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0161

  6274					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6275					LY.
  6276					;IN THIS CASE, MOVE 2,@E217 IS TESTED WHERE C(E217)=E217A(3) AND C(3)=0,,2.
  6277					;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A+2)=217217,,217217
  6278
  6279	034371	476 00 0 00 000002 	C22000:	SETOM	2		;INITIALIZE AC
  6280	034372	200 02 1 00 034341 		MOVE	2,@E217		;TEST INDIRECT ADDRESSING WITH INDEXING
  6281	034373	312 02 0 00 034346 		CAME	2,E217A+2	;PASS IF C(AC)=217217,,217217
  6282						STOP^
  6283	034374	254 04 0 00 034375 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6284	034375	324 00 0 00 034376 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6285
  6286					;**********
  6287
  6288					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6289					LY.
  6290					;IN THIS CASE, MOVE 2,@E220 IS TESTED WHERE C(E220)=@E220A AND C(E220A)=E220B.
  6291					;HENCE, THE RESULT IN THE AC SHOULD BE C(E220B)=220220,,220220
  6292
  6293	034376	402 00 0 00 000002 	C22100:	SETZM	2		;INITIALIZE AC
  6294	034377	200 02 1 00 034342 		MOVE	2,@E220		;TEST INDIRECT ADDRESSING WITH INDEXING
  6295	034400	312 02 0 00 034343 		CAME	2,E220B		;PASS IF C(AC)=220220,,220220
  6296						STOP^
  6297	034401	254 04 0 00 034402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6298	034402	324 00 0 00 034403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6299
  6300					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 79
DBKADM	MAC	30-APR-76 16:59		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0162

  6301					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6302					LY.
  6303					;IN THIS CASE,E221(1) 2,@E217 IS TESTED WHERE C(1)=-4 AND E221-4=E217A
  6304					;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A)=@E221A=20,,E221A
  6305
  6306	034403	476 00 0 00 000002 	C22200:	SETOM	2		;INITIALIZE AC
  6307	034404	200 02 0 01 034350 		MOVE	2,E221(1)	;TEST INDIRECT ADDRESSING WITH INDEXING
  6308	034405	312 02 0 00 034344 		CAME	2,E217A		;PASS IF C(AC)=@E221A=20,,E221A
  6309						STOP^
  6310	034406	254 04 0 00 034407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6311	034407	324 00 0 00 034410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6312
  6313					;**********
  6314
  6315					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6316					LY.
  6317					;IN THIS CASE, MOVE 2,E222(6) IS TESTED WHERE C(6)=5
  6318					;HENCE, THE RESULT IN THE AC SHOULD BE C(E222+5)=E222A(7)=7,,E222A
  6319
  6320	034410	402 00 0 00 000002 	C22300:	SETZM	2		;INITIALIZE AC
  6321	034411	200 02 0 06 034352 		MOVE	2,E222(6)	;TEST INDIRECT ADDRESSING WITH INDEXING
  6322	034412	312 02 0 00 034357 		CAME	2,E222+5	;PASS IF C(AC)=E222A(7)=7,,E222A
  6323						STOP^
  6324	034413	254 04 0 00 034414 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6325	034414	324 00 0 00 034415 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6326
  6327					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 80
DBKADM	MAC	30-APR-76 16:59		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0163

  6328					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6329					LY.
  6330					;IN THIS CASE, MOVE 2,@E223(10) IS TESTED WHERE C(10)=4 AND C(E223+4)=E223A
  6331					;HENCE, THE RESULT IN THE AC SHOULD BE C(E223A)=223223,,223223
  6332
  6333	034415	476 00 0 00 000002 	C22400:	SETOM	2		;INITIALIZE AC
  6334	034416	200 02 1 10 034362 		MOVE	2,@E223(10)	;TEST INDIRECT ADDRESSING WITH INDEXING
  6335	034417	312 02 0 00 034353 		CAME	2,E223A		;PASS IF C(AC)=223223,,223223
  6336						STOP^
  6337	034420	254 04 0 00 034421 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6338	034421	324 00 0 00 034422 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6339
  6340					;**********
  6341
  6342					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6343					LY.
  6344					;IN THIS CASE, MOVE 2,@E223(11) IS TESTED WHERE C(11)=-6, C(E223-6)=E224A(4) AND C(4)=10
  6345					;HENCE, THE RESULT IN THE AC SHOULD BE C(E224A+10)=224224,,224224
  6346
  6347	034422	402 00 0 00 000002 	C22500:	SETZM	2		;INITIALIZE AC
  6348	034423	200 02 1 11 034362 		MOVE	2,@E223(11)	;TEST INDIRECT ADDRESSING WITH INDEXING
  6349	034424	312 02 0 00 034364 		CAME	2,E224A+10	;PASS IF C(AC)=224224,,224224
  6350						STOP^
  6351	034425	254 04 0 00 034426 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6352	034426	324 00 0 00 034427 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6353
  6354					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 81
DBKADM	MAC	30-APR-76 16:59		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0164

  6355					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6356					LY.
  6357					;IN THIS CASE, MOVE 2,@E225(13) IS TESTED WHERE C(13)=2, C(E225+2)=@E225A
  6358					;AND C(E225A)=E225B
  6359					;HENCE, THE RESULT IN THE AC SHOULD BE C(E225B)=225225,,225225
  6360
  6361	034427	476 00 0 00 000002 	C22600:	SETOM	2		;INITIALIZE AC
  6362	034430	200 02 1 13 034356 		MOVE	2,@E225(13)	;TEST INDIRECT ADDRESSING WITH INDEXING
  6363	034431	312 02 0 00 034361 		CAME	2,E225B		;PASS IF C(AC)=225225,,225225
  6364						STOP^
  6365	034432	254 04 0 00 034433 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6366	034433	324 00 0 00 034434 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6367
  6368					;**********
  6369
  6370					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  6371					LY.
  6372					;IN THIS CASE, MOVE 2,@E223(12) IS TESTED WHERE C(12)=5, C(E223+5)=@E226A(5),
  6373					;C(5)=1 AND C(E226A+1)=E226B
  6374					;HENCE, THE RESULT IN THE AC SHOULD BE C(E226B)=226226,,226226
  6375
  6376	034434	402 00 0 00 000002 	C22700:	SETZM	2		;INITIALIZE AC
  6377	034435	200 02 1 12 034362 		MOVE	2,@E223(12)	;TEST INDIRECT ADDRESSING WITH INDEXING
  6378	034436	312 02 0 00 034365 		CAME	2,E226B		;PASS IF C(AC)=226226,,226226
  6379						STOP^
  6380	034437	254 04 0 00 034440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6381	034440	324 00 0 00 034441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6382
  6383					;**********
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 82
DBKADM	MAC	30-APR-76 16:59		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0165

  6384
  6385	034441	254 00 0 00 030057 		JRST	BEGEND
  6386					SUBTTL	*STOR* RESERVED STORAGE, JAN 5,1976
  6387
  6388					;PROGRAM LITERALS
  6389
  6390						XLIST
  6391					IFNDEF	$LPAPER,<LIST>
  6392	034442					LIT
  6393	034442	000001	000001
  6394	034443	254 00 0 00 030741 
  6395	034444	000001	000000
  6396	034445	000002	000000
  6397	034446	000004	000000
  6398	034447	000010	000000
  6399	034450	000020	000000
  6400	034451	000040	000000
  6401	034452	000100	000000
  6402	034453	000200	000000
  6403	034454	000400	000000
  6404	034455	001000	000000
  6405	034456	002000	000000
  6406	034457	004000	000000
  6407	034460	010000	000000
  6408	034461	020000	000000
  6409	034462	040000	000000
  6410	034463	100000	000000
  6411	034464	200000	000000
  6412	034465	400000	000000
  6413	034466	777777	777777
  6414	034467	777777	777776
  6415	034470	777777	777775
  6416	034471	777777	777773
  6417	034472	777777	777767
  6418	034473	777777	777757
  6419	034474	777777	777737
  6420	034475	777777	777677
  6421	034476	777777	777577
  6422	034477	777777	777377
  6423	034500	777777	776777
  6424	034501	777777	775777
  6425	034502	777777	773777
  6426	034503	777777	767777
  6427	034504	777777	757777
  6428	034505	777777	737777
  6429	034506	777777	677777
  6430	034507	777777	577777
  6431	034510	777777	377777
  6432	034511	777776	777777
  6433	034512	777775	777777
  6434	034513	777773	777777
  6435	034514	777767	777777
  6436	034515	777757	777777
  6437	034516	777737	777777
  6438	034517	777677	777777
DBKAD PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER	MACRO %50A(432) 13:57  4-AUG-76 PAGE 1
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0166

  6439	034520	777577	777777
  6440	034521	777377	777777
  6441	034522	776777	777777
  6442	034523	775777	777777
  6443	034524	773777	777777
  6444	034525	767777	777777
  6445	034526	757777	777777
  6446	034527	737777	777777
  6447	034530	677777	777777
  6448	034531	577777	777777
  6449	034532	377777	777777
  6450	034533	777777	000000
  6451	034534	000000	777777
  6452	034535	252525	252525
  6453	034536	000000	000000
  6454	034537	254 04 0 00 032743 
  6455	034540	377777	377777
  6456	034541	400000	400000
  6457	034542	201 01 0 00 034217 
  6458	034543	201 01 0 00 000001 
  6459	034544	201 01 0 00 777777 
  6460	034545	256 00 0 00 034544 
  6461	034546	256 00 0 00 034545 
  6462	034547	256 00 0 00 034546 
  6463	034550	256 00 0 00 034547 
  6464	034551	200 01 0 00 034466 
  6465	034552	334 00 0 00 000000 
  6466	034553	707070	707070
  6467						LIST
  6468	034554	000000	000000		ENDSLD:	0
  6469
  6470					IFDEF	DEBUG,<
  6471	034555				PATCH:	BLOCK DEBUG		;PATCHING AREA
  6472					>
  6473
  6474					;PROGRAM VARIABLES
  6475	034655					VAR
  6476
  6477					IFDEF	PGMEND,<
  6478	034655	000000	000000		END:	0
  6479			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 034656
CPU TIME USED 00:19.777

6K CORE USED

ABORT	    72#
AC	  5714#	  5715	  5720	  5721	  5723	  5724	  5726	  5727	  5729	  5730	  5732	  5733	  5735	  5736     SEQ 0167
	  5738	  5739	  5741	  5742	  5744	  5745	  5747	  5748	  5749
AC0	   667#
ALTMGO	   426#
ANXM	   340#
APR	   764	   765	   766
AROV	   340#	   839#	  4870	  5040	  5044
AROVU	   340#
AST	   541#
ATSIN	   542#
BEGEND	   422#	  6385
BEGIN	   286	   287	   353#	   710	   832	  6479
BEGIN1	   369#	   423
BELL	   545#
BIS	   340#	   843#
C00	   877	   902#
C100	   919#
C1000	  1871#
C10000	  5056#
C10100	  5075#
C10200	  5093#
C10300	  5112#
C10400	  5127#
C10500	  5141#
C1100	  2183#
C11200	  5155#
C11300	  5168#
C11400	  5180#
C11500	  5193#
C11600	  5204#
C11700	  5216#
C1200	  2197#
C12000	  5229#
C12100	  5244#
C12200	  5272#
C12300	  5287#
C12301	  5316#
C12600	  5346#
C12700	  5359#
C1300	  2616#
C13100	  5371#
C13200	  5384#
C13300	  5397#
C13400	  5426#
C13600	  5457#
C13700	  5474#
C1400	  3038#
C14000	  5490#
C14100	  5510#
C14200	  5526#
C14500	  5549#
C14600	  5561#
C14700	  5574#
C1500	  3052#                                                                                                            SEQ 0168
C15000	  5585#
C15100	  5597#
C15200	  5610#
C15300	  5622#
C15400	  5634#
C15500	  5650#
C15600	  5663#
C15700	  5676#
C1600	  3471#
C16000	  5688#
C16100	  5701#
C16200	  5714#
C16201	  5760#
C16202	  5789#
C16400	  5820#
C16500	  5833#
C16600	  5845#
C16700	  5858#
C1700	  3900#
C17000	  5872#
C17100	  5890#
C17200	  5903#
C17300	  5917#
C17400	  5929#
C17500	  5943#
C17600	  5957#
C17700	  5971#
C200	   933#
C2000	  4102#
C20000	  5984#
C20100	  5998#
C20200	  6010#
C20300	  6024#
C20400	  6044#
C20500	  6058#
C20600	  6072#
C20700	  6086#
C2100	  4302#
C21000	  6097#
C21100	  6113#
C21200	  6131#
C21300	  6148#
C21400	  6166#	  6169	  6172
C21500	  6184#	  6188	  6190
C21600	  6201#	  6204	  6205
C21700	  6215#	  6217	  6218
C2200	  4316#
C22000	  6240	  6279#
C22100	  6293#
C22200	  6306#
C22300	  6320#
C22400	  6333#
C22500	  6347#                                                                                                            SEQ 0169
C22600	  6361#
C22700	  6376#
C2400	  4330#
C2410	  4337#
C2700	  4350#
C2710	  4357#
C300	   945#
C3000	  4369#
C3100	  4391#
C3110	  4406#
C3200	  4418#
C3210	  4425#
C3300	  4438#
C3400	  4452#
C3500	  4467#
C3600	  4483#
C3700	  4497#
C400	   958#
C4000	  4511#
C4100	  4527#
C4200	  4541#
C4300	  4557#
C4400	  4573#
C4500	  4587#
C4600	  4600#
C4700	  4613#
C500	   973#
C5000	  4628#
C5100	  4642#
C5200	  4656#
C5300	  4671#
C5400	  4686#
C5500	  4701#
C5600	  4718#
C5700	  4734#
C5701	  4749#
C5702	  4763#
C600	  1289#
C6000	  4781#
C6100	  4796#
C6200	  4811#
C6300	  4829#
C6400	  4849#
C6500	  4869#
C6600	  4885#
C6700	  4902#
C700	  1614#
C7000	  4916#
C7100	  4934#
C7200	  4953#
C7300	  4974#
C7400	  4993#
C7500	  5008#                                                                                                            SEQ 0170
C7600	  5021#
C7700	  5038#
CCA	   340#
CHAIN	    92#
CHNOFF	   340#
CHNON	   340#
CLK	   340#
CLKCLR	   340#
CLKDIS	   340#
CLKENB	   340#
CLKU	   340#
CLOCKF	   408#
CNTLC	   425#
COMMA	   534#
CONSW	   409#
CPOPJ	   429#
CPOPJ1	   427#
CRLF	   221	   222	   529#
CRLF2	   225	   226	   531#
CRY0	   340#	   840#	  4813	  4935	  5058	  5062
CRY1	   340#	   841#	  4886	  5077	  5081
CSHFLG	   588#
CSHMEM	   589#
CYCL60	   582#
DCK	   340#	   847#	  5511	  5515	  5527	  5535
DDT	   669#
DDTLNK	   106#	   367
DDTSRT	   367#
DEBUG	    30#	  6470	  6471
DECVER	    13#	    13	    14	   388
DF22F	   493#
DIAGMN	   356#
DIAGNO	   668#
DIAMON	   670#
DING	    78#
DOLLAR	   548#
DONG11	   671#	   811	   827
DSKUPD	   393
DTE	   675#	   811	   813	   827	   829
DTE0	   676#
DTE1	   677#
DTE2	   678#
DTE3	   679#
E217	  6250#	  6280
E217A	  6250	  6253#	  6281	  6308
E220	  6251#	  6294
E220A	  6251	  6256#
E220B	  6252#	  6256	  6295
E221	  6257#	  6257	  6259	  6307
E221A	  6253	  6258#
E221B	  6254#	  6258
E222	  6259#	  6321	  6322
E222A	  6255#	  6264                                                                                                     SEQ 0171
E223	  6267#	  6267	  6334	  6348	  6377
E223A	  6260#	  6271	  6335
E224A	  6261#	  6261	  6349
E225	  6263#	  6263	  6362
E225A	  6265	  6268#
E225B	  6266#	  6268	  6363
E226A	  6272#	  6272
E226B	  6270#	  6273	  6378
END	  6478#
ENDFIX	   662#
ENDSLD	  6468#
ERMORE	   442#
ERRPC	   413#
ERRTLS	   414#
ERSTOP	    81#
EXCASB	    27#	   391
EXIOT	   340#	   845#
FOV	   340#	   842#	  4903	  4917	  4954	  5095	  5099	  5458
FOVU	   340#
FRDLNK	   104#
FSELNK	   103#
FXU	   340#	   846#	  5475	  5479	  5491	  5499
HYPEN	   539#
INHCSH	    89#
INHPAG	    86#
INXM	   340#
IOCLR	   340#
ITERAT	    59#	   386
ITRCH1	   446#
ITRCNT	   386#	   756	   785	   789	   797	   798	   802
JOB41	   340#
JOBAPR	   340#
JOBCNI	   340#
JOBDDT	   340#
JOBFF	   340#
JOBOPC	   340#
JOBREL	   340#
JOBREN	   340#
JOBSA	   340#
JOBSYM	   340#
JOBTPC	   340#
JOBUSY	   340#
JOBUUO	   340#
JOBVER	   340#
KA10	   340
KAHZ50	    94#
KAIFLG	   403#
KI10	   340
KL10	   340
KLFLG	   404#	   758	   776	   795
KLOLD	   301
KLTYP	   620#	   757	   768	   810	   812	   826	   828
LDLNK	   105#	   356	   358                                                                                             SEQ 0172
LFP	   543#
LOOPER	    80#
LUUO	   340#
LUUO1	   473	   474
LUUO10	   473	   478
LUUO11	   473	   478
LUUO12	   473	   479
LUUO13	   473	   479
LUUO14	   473	   480
LUUO15	   473	   480
LUUO16	   473	   481
LUUO17	   473	   481
LUUO2	   473	   475
LUUO20	   473	   482
LUUO21	   473	   482
LUUO22	   473	   483
LUUO23	   473	   483
LUUO24	   473	   484
LUUO25	   473	   484
LUUO26	   473	   485
LUUO27	   473	   485
LUUO3	   473	   475
LUUO30	   473	   486
LUUO31	   473	   486
LUUO32	   473	   487
LUUO33	   473	   487
LUUO4	   473	   476
LUUO5	   473	   476
LUUO6	   473	   477
LUUO7	   473	   477
LUUOI	   340#
MAPNEW	   494#
MARGIN	   416#
MCNVER	    13#	    13	    14	   388
MEMLOW	   496#
MEMMAP	   394
MEMSIZ	   497#
MEMTOT	   495#
MINUS	   538#
MODDVC	    88#
MODDVL	   286	   286#	   389
MODDVU	   287	   287#	   390
MODLNK	   107#	   353
MONCTL	   406#	   805	   878
MONFLG	   405#	   750	   874
MONTEN	   407#	   755	   791	   820
MPVU	   340#
NOPNT	    76#
NXMU	   340#
OPRSEL	    90#
OPTIME	   508#
P	   133	   134	   135	   136	   340#	   428
PAG	   340#                                                                                                            SEQ 0173
PALERS	    82#
PARCLR	   340#
PARDIS	   340#
PAREA0	    52#
PAREA1	    53#	   384
PAREA2	    54#	   385
PAREA3	    55#	   382
PAREA4	    56#	   383
PAREA5	    57#	   395
PAREA6	    58#	   396
PAREA7	   395#
PAREA8	   396#
PARENB	   340#
PARU	   340#
PASCNT	   410#	   784
PATCH	  6471#
PDISF	   505#
PDLOVU	   340#
PERIOD	   535#
PFSTRT	   362#
PGMEND	    29#	    60#	  6477
PGMNAM	   387	   879	   882#
PI	   797
PICHN1	   340#
PICHN2	   340#
PICHN3	   340#
PICHN4	   340#
PICHN5	   340#
PICHN6	   340#
PICHN7	   340#
PICHNA	   340#
PICLR	   340#
PIOFF	   340#
PION	   340#
PLIST	   574#	   574
PLISTE	   574	   576#	   660
PLISTS	   575#
PLUS	   540#
PNTENB	   504#
PNTEXT	   383#
PNTFLG	   503#
PNTINH	   506#
PNTLPT	    77#
PNTNAM	   382#
PNTSPC	   507#
PVPAGI	   601#
PWFCLR	   340#
QUEST	   546#
RADIX	   549#
RADLSC	   551#
RADLSP	   550#
RANDBS	   384#
REENTR	   364#                                                                                                            SEQ 0174
RELIAB	    84#
REPT	   340#
REPT1	   340#
REPTU	   462#
REQSET	   340#
RESRT1	   439#
RESRT2	   440#
RETURN	   371#	   793	   800	   821
RSTART	    73#
RTP	   544#
RUNFLG	   411#
SADR1	    40#	   360
SADR10	    49#	   376
SADR11	    50#	   377
SADR2	    41#	   362
SADR3	    42#	   364
SADR4	    43#
SADR5	    44#	   425
SADR6	    45#	   426
SADR7	    46#	   373
SADR8	    47#	   374
SADR9	    48#	   375
SBINIT	   146	   370#
SCOPE	   463#
SFSTRT	   360#
SLASH	   547#
SN	   965#	  1031	  1031#	  1047	  1047#	  1063	  1063#	  1079	  1079#	  1095	  1095#	  1111	  1111#	  1127
	  1127#	  1143	  1143#	  1159	  1159#	  1175	  1175#	  1191	  1191#	  1207	  1207#	  1223	  1223#	  1239
	  1239#	  1255	  1255#	  1271	  1271#	  1281#	  1363	  1363#	  1380	  1380#	  1397	  1397#	  1414	  1414#
	  1431	  1431#	  1448	  1448#	  1465	  1465#	  1482	  1482#	  1499	  1499#	  1516	  1516#	  1533	  1533#
	  1550	  1550#	  1567	  1567#	  1584	  1584#	  1601	  1601#	  1611#	  1634	  1634#	  1650	  1650#	  1666
	  1666#	  1682	  1682#	  1698	  1698#	  1714	  1714#	  1730	  1730#	  1746	  1746#	  1762	  1762#	  1778
	  1778#	  1794	  1794#	  1810	  1810#	  1826	  1826#	  1842	  1842#	  1858	  1858#	  1868#	  1896	  1896#
	  1915	  1915#	  1934	  1934#	  1953	  1953#	  1972	  1972#	  1991	  1991#	  2010	  2010#	  2029	  2029#
	  2048	  2048#	  2067	  2067#	  2086	  2086#	  2105	  2105#	  2124	  2124#	  2143	  2143#	  2162	  2162#
	  2194#	  2225	  2225#	  2247	  2247#	  2269	  2269#	  2291	  2291#	  2313	  2313#	  2335	  2335#	  2357
	  2357#	  2379	  2379#	  2401	  2401#	  2423	  2423#	  2445	  2445#	  2467	  2467#	  2489	  2489#	  2511
	  2511#	  2533	  2533#	  2555	  2555#	  2577	  2577#	  2599	  2599#	  2613#	  2644	  2644#	  2666	  2666#
	  2688	  2688#	  2710	  2710#	  2732	  2732#	  2754	  2754#	  2776	  2776#	  2798	  2798#	  2820	  2820#
	  2842	  2842#	  2864	  2864#	  2886	  2886#	  2908	  2908#	  2930	  2930#	  2952	  2952#	  2974	  2974#
	  2996	  2996#	  3018	  3018#	  3049#	  3080	  3080#	  3102	  3102#	  3124	  3124#	  3146	  3146#	  3168
	  3168#	  3190	  3190#	  3212	  3212#	  3234	  3234#	  3256	  3256#	  3278	  3278#	  3300	  3300#	  3322
	  3322#	  3344	  3344#	  3366	  3366#	  3388	  3388#	  3410	  3410#	  3432	  3432#	  3454	  3454#	  3468#
	  3499	  3499#	  3521	  3521#	  3543	  3543#	  3565	  3565#	  3587	  3587#	  3609	  3609#	  3631	  3631#
	  3653	  3653#	  3675	  3675#	  3697	  3697#	  3719	  3719#	  3741	  3741#	  3763	  3763#	  3785	  3785#
	  3807	  3807#	  3829	  3829#	  3851	  3851#	  3873	  3873#	  3889#	  3911	  3911#	  3923	  3923#	  3935
	  3935#	  3947	  3947#	  3959	  3959#	  3971	  3971#	  3983	  3983#	  3995	  3995#	  4007	  4007#	  4019
	  4019#	  4031	  4031#	  4043	  4043#	  4055	  4055#	  4067	  4067#	  4079	  4079#	  4092#	  4113	  4113#
	  4125	  4125#	  4137	  4137#	  4149	  4149#	  4161	  4161#	  4173	  4173#	  4185	  4185#	  4197	  4197#
	  4209	  4209#	  4221	  4221#	  4233	  4233#	  4245	  4245#	  4257	  4257#	  4269	  4269#	  4281	  4281#
SPACE	   536#
SRTDDT	   366#
START	    40	    41	    42	    43	    44	    45	    46	    47	    48	    49	    50	   354	   753	   762     SEQ 0175
	   777	   781	   870#
START1	   373#
START2	   374#
START3	   375#
START4	   376#
START5	   377#
STARTA	   369	   779	   790	   799	   806	   816	   880	   901#
SUBLNK	   108#	   370
SWTEXR	   385#
SYSEXR	   358#
TAB	   537#
TESTPC	   412#
TICKS	   415#
TOTALS	    74#
TTNBRF	   595#
TTYFIL	   511#
TTYSPD	   512#
TXTINH	    85#
USER	   402#	   746	   749	   751	   752	   786	   870#	   870	   873	   875	   876
USERF	    33#	   340#	   748	   844#	   872
USRASB	    28#	   392
USRCRF	   521#
USRLFF	   520#
UUODIS	   474#
UUOEXT	   430#
UUORTN	   431#
UUOSKP	   428#
XX	  3891#	  3913	  3913#	  3914	  3916	  3925	  3925#	  3926	  3928	  3937	  3937#	  3938	  3940	  3949
	  3949#	  3950	  3952	  3961	  3961#	  3962	  3964	  3973	  3973#	  3974	  3976	  3985	  3985#	  3986
	  3988	  3997	  3997#	  3998	  4000	  4009	  4009#	  4010	  4012	  4021	  4021#	  4022	  4024	  4033
	  4033#	  4034	  4036	  4045	  4045#	  4046	  4048	  4057	  4057#	  4058	  4060	  4069	  4069#	  4070
	  4072	  4081	  4081#	  4082	  4084	  4094#	  4115	  4115#	  4116	  4117	  4127	  4127#	  4128	  4129
	  4139	  4139#	  4140	  4141	  4151	  4151#	  4152	  4153	  4163	  4163#	  4164	  4165	  4175	  4175#
	  4176	  4177	  4187	  4187#	  4188	  4189	  4199	  4199#	  4200	  4201	  4211	  4211#	  4212	  4213
	  4223	  4223#	  4224	  4225	  4235	  4235#	  4236	  4237	  4247	  4247#	  4248	  4249	  4259	  4259#
	  4260	  4261	  4271	  4271#	  4272	  4273	  4283	  4283#	  4284	  4285
ZZ	   966#	   976	   976#	   977	   978	   978#	   979	   980	   980#	   981	   982	   982#	   983	   984
	   984#	   985	   986	   986#	   987	   988	   988#	   989	   990	   990#	   991	   992	   992#	   993
	   994	   994#	   995	   996	   996#	   997	   998	   998#	   999	  1000	  1000#	  1001	  1002	  1002#
	  1003	  1004	  1004#	  1005	  1006	  1006#	  1007	  1009#	  1032	  1032#	  1033	  1048	  1048#	  1049
	  1064	  1064#	  1065	  1080	  1080#	  1081	  1096	  1096#	  1097	  1112	  1112#	  1113	  1128	  1128#
	  1129	  1144	  1144#	  1145	  1160	  1160#	  1161	  1176	  1176#	  1177	  1192	  1192#	  1193	  1208
	  1208#	  1209	  1224	  1224#	  1225	  1240	  1240#	  1241	  1256	  1256#	  1257	  1272	  1272#	  1273
	  1282#	  1293	  1293#	  1294	  1295	  1296	  1296#	  1297	  1298	  1299	  1299#	  1300	  1301	  1302
	  1302#	  1303	  1304	  1305	  1305#	  1306	  1307	  1308	  1308#	  1309	  1310	  1311	  1311#	  1312
	  1313	  1314	  1314#	  1315	  1316	  1317	  1317#	  1318	  1319	  1320	  1320#	  1321	  1322	  1323
	  1323#	  1324	  1325	  1326	  1326#	  1327	  1328	  1329	  1329#	  1330	  1331	  1332	  1332#	  1333
	  1334	  1335	  1335#	  1336	  1337	  1339#	  1364	  1364#	  1365	  1381	  1381#	  1382	  1398	  1398#
	  1399	  1415	  1415#	  1416	  1432	  1432#	  1433	  1449	  1449#	  1450	  1466	  1466#	  1467	  1483
	  1483#	  1484	  1500	  1500#	  1501	  1517	  1517#	  1518	  1534	  1534#	  1535	  1551	  1551#	  1552
	  1568	  1568#	  1569	  1585	  1585#	  1586	  1602	  1602#	  1603	  1612#	  1635	  1635#	  1636	  1637
	  1651	  1651#	  1652	  1653	  1667	  1667#	  1668	  1669	  1683	  1683#	  1684	  1685	  1699	  1699#
	  1700	  1701	  1715	  1715#	  1716	  1717	  1731	  1731#	  1732	  1733	  1747	  1747#	  1748	  1749     SEQ 0176
	  1763	  1763#	  1764	  1765	  1779	  1779#	  1780	  1781	  1795	  1795#	  1796	  1797	  1811	  1811#
	  1812	  1813	  1827	  1827#	  1828	  1829	  1843	  1843#	  1844	  1845	  1859	  1859#	  1860	  1861
	  1869#	  1897	  1897#	  1898	  1899	  1900	  1916	  1916#	  1917	  1918	  1919	  1935	  1935#	  1936
	  1937	  1938	  1954	  1954#	  1955	  1956	  1957	  1973	  1973#	  1974	  1975	  1976	  1992	  1992#
	  1993	  1994	  1995	  2011	  2011#	  2012	  2013	  2014	  2030	  2030#	  2031	  2032	  2033	  2049
	  2049#	  2050	  2051	  2052	  2068	  2068#	  2069	  2070	  2071	  2087	  2087#	  2088	  2089	  2090
	  2106	  2106#	  2107	  2108	  2109	  2125	  2125#	  2126	  2127	  2128	  2144	  2144#	  2145	  2146
	  2147	  2163	  2163#	  2164	  2165	  2166	  2195#	  2226	  2226#	  2227	  2227#	  2229	  2232	  2248
	  2248#	  2249	  2251	  2254	  2270	  2270#	  2271	  2273	  2276	  2292	  2292#	  2293	  2295	  2298
	  2314	  2314#	  2315	  2317	  2320	  2336	  2336#	  2337	  2339	  2342	  2358	  2358#	  2359	  2361
	  2364	  2380	  2380#	  2381	  2383	  2386	  2402	  2402#	  2403	  2405	  2408	  2424	  2424#	  2425
	  2427	  2430	  2446	  2446#	  2447	  2449	  2452	  2468	  2468#	  2469	  2471	  2474	  2490	  2490#
	  2491	  2493	  2496	  2512	  2512#	  2513	  2515	  2518	  2534	  2534#	  2535	  2537	  2540	  2556
	  2556#	  2557	  2559	  2562	  2578	  2578#	  2579	  2581	  2584	  2600	  2600#	  2601	  2603	  2606
	  2614#	  2645	  2645#	  2646	  2646#	  2648	  2651	  2667	  2667#	  2668	  2670	  2673	  2689	  2689#
	  2690	  2692	  2695	  2711	  2711#	  2712	  2714	  2717	  2733	  2733#	  2734	  2736	  2739	  2755
	  2755#	  2756	  2758	  2761	  2777	  2777#	  2778	  2780	  2783	  2799	  2799#	  2800	  2802	  2805
	  2821	  2821#	  2822	  2824	  2827	  2843	  2843#	  2844	  2846	  2849	  2865	  2865#	  2866	  2868
	  2871	  2887	  2887#	  2888	  2890	  2893	  2909	  2909#	  2910	  2912	  2915	  2931	  2931#	  2932
	  2934	  2937	  2953	  2953#	  2954	  2956	  2959	  2975	  2975#	  2976	  2978	  2981	  2997	  2997#
	  2998	  3000	  3003	  3019	  3019#	  3020	  3022	  3025	  3050#	  3081	  3081#	  3082	  3082#	  3084
	  3087	  3103	  3103#	  3104	  3106	  3109	  3125	  3125#	  3126	  3128	  3131	  3147	  3147#	  3148
	  3150	  3153	  3169	  3169#	  3170	  3172	  3175	  3191	  3191#	  3192	  3194	  3197	  3213	  3213#
	  3214	  3216	  3219	  3235	  3235#	  3236	  3238	  3241	  3257	  3257#	  3258	  3260	  3263	  3279
	  3279#	  3280	  3282	  3285	  3301	  3301#	  3302	  3304	  3307	  3323	  3323#	  3324	  3326	  3329
	  3345	  3345#	  3346	  3348	  3351	  3367	  3367#	  3368	  3370	  3373	  3389	  3389#	  3390	  3392
	  3395	  3411	  3411#	  3412	  3414	  3417	  3433	  3433#	  3434	  3436	  3439	  3455	  3455#	  3456
	  3458	  3461	  3469#	  3500	  3500#	  3501	  3501#	  3503	  3506	  3522	  3522#	  3523	  3525	  3528
	  3544	  3544#	  3545	  3547	  3550	  3566	  3566#	  3567	  3569	  3572	  3588	  3588#	  3589	  3591
	  3594	  3610	  3610#	  3611	  3613	  3616	  3632	  3632#	  3633	  3635	  3638	  3654	  3654#	  3655
	  3657	  3660	  3676	  3676#	  3677	  3679	  3682	  3698	  3698#	  3699	  3701	  3704	  3720	  3720#
	  3721	  3723	  3726	  3742	  3742#	  3743	  3745	  3748	  3764	  3764#	  3765	  3767	  3770	  3786
	  3786#	  3787	  3789	  3792	  3808	  3808#	  3809	  3811	  3814	  3830	  3830#	  3831	  3833	  3836
	  3852	  3852#	  3853	  3855	  3858	  3874	  3874#	  3875	  3877	  3880	  3890#	  3912	  3912#	  3914
	  3915	  3916	  3924	  3924#	  3926	  3927	  3928	  3936	  3936#	  3938	  3939	  3940	  3948	  3948#
	  3950	  3951	  3952	  3960	  3960#	  3962	  3963	  3964	  3972	  3972#	  3974	  3975	  3976	  3984
	  3984#	  3986	  3987	  3988	  3996	  3996#	  3998	  3999	  4000	  4008	  4008#	  4010	  4011	  4012
	  4020	  4020#	  4022	  4023	  4024	  4032	  4032#	  4034	  4035	  4036	  4044	  4044#	  4046	  4047
	  4048	  4056	  4056#	  4058	  4059	  4060	  4068	  4068#	  4070	  4071	  4072	  4080	  4080#	  4082
	  4083	  4084	  4093#	  4114	  4114#	  4116	  4117	  4118	  4126	  4126#	  4128	  4129	  4130	  4138
	  4138#	  4140	  4141	  4142	  4150	  4150#	  4152	  4153	  4154	  4162	  4162#	  4164	  4165	  4166
	  4174	  4174#	  4176	  4177	  4178	  4186	  4186#	  4188	  4189	  4190	  4198	  4198#	  4200	  4201
	  4202	  4210	  4210#	  4212	  4213	  4214	  4222	  4222#	  4224	  4225	  4226	  4234	  4234#	  4236
	  4237	  4238	  4246	  4246#	  4248	  4249	  4250	  4258	  4258#	  4260	  4261	  4262	  4270	  4270#
	  4272	  4273	  4274	  4282	  4282#	  4284	  4285	  4286
$$420	   720#
$$421	   721#
$$422	   722#
$$423	   723#
$$424	   724#
$$425	   725#
$$426	   726#
$$427	   727#                                                                                                            SEQ 0177
$$430	   728#
$$431	   729#
$$432	   730#
$$433	   731#
$$434	   732#
$$435	   733#
$$436	   734#
$$437	   735#
$$500	   738#
$$501	   739#
$$502	   740#
$$503	   741#
$$BEGI	   706#
$$DTE0	   772	   811#
$$DTE1	   773	   813#
$$DTE2	   774	   827#
$$DTE3	   775	   829#
$$LOC	   703#	   742
$$MUUO	   626#
$$OUTE	   632#
$$STAR	   706	   707	   746#
$$TAX1	   644#
$$TAX2	   645#
$$TOGG	   638#
$$UUO	   615#
$ACC0	   453#
$BEGEN	   715#
$BEND1	   423#
$BEND2	   424#
$CHRIN	   514#
$CRLF	   516#
$DDT	   684#
$DEVCH	   340#
$DSKUP	   393#
$DTCHR	   696#
$DTCI	   690#
$DTCLK	   689#	   770
$DTCMD	   693#	   808	   824
$DTF11	   692#
$DTFLG	   688#	   769	   809	   814	   825	   830
$DTMTD	   697#
$DTMTI	   698#
$DTOPR	   695#	   771
$DTSEQ	   694#
$DTSWR	   700#
$DTT11	   691#
$DVCH1	   340#
$DVOFF	   510#
$EMODE	   391#
$ENDFX	   660#	   661
$FFF	   518#
$IBUF	   566#
$INEXT	   568#                                                                                                            SEQ 0178
$INNM	   567#
$ITRHL	   434#
$ITRX1	   435#
$LPAPE	  6391
$MMAP	   394#
$MODVL	   389#
$MODVU	   390#
$OBUF	   557#
$ONETM	   417#
$OUTEX	   559#
$OUTNM	   558#
$PAPER	   340
$PARER	   441#
$PNAME	   387#
$PSHER	   445#
$PVER	   388#
$RSRTX	   437#
$RSRTY	   438#
$SPAG1	   457#
$SPB1	   780	   786#
$SPBEN	   715	   784#
$SPBEX	   787	   795#
$SPBKL	   796	   802#
$SPBUS	   789#
$SPEC	   712	   779#
$SPKLD	   803	   820#
$START	   354#
$STD	   683#	   710#
$STKIL	   755#
$STKL	   764#
$STL	   685#
$STM	   686#	   712#
$SVAPR	   455#
$SVPAG	   456#
$SVPI	   454#
$SVUPC	   460#
$SVUUO	   459#
$TABF	   517#
$TTCHR	   513#
$TWCNT	   509#
$TYPNB	   515#
$UMODE	   392#
$UORTX	   432#
$USRHL	   436#
$UUOER	   433#	   474
$VTF	   519#
%ACTFL	   466#
%ACTUL	   467#
%COREC	   465#
%CORFL	   464#
%DISCR	   468#
%ERHI1	   607#
%ERHI2	   608#                                                                                                            SEQ 0179
%ERHI3	   609#
.JB41	   340#
.JBAPR	   340#
.JBCNI	   340#
.JBDDT	   340#
.JBFF	   340#
.JBOPC	   340#
.JBREL	   340#
.JBREN	   340#
.JBSA	   340#
.JBSYM	   340#
.JBTPC	   340#
.JBUSY	   340#
.JBUUO	   340#
.JBVER	   340#

CFLUSH	   257#
CINVAL	   256#                                                                                                            SEQ 0180
CLOKOP	   251#
CWRTBI	   258#
DROPDV	   218#
ENDUUO	   264#	   422
EOPUUO	   265#	   424
ERLOOP	   309#
ERLP1	   310#
ERLP2	   311#
ERRHLT	   153#
ERROR	   318#
ERROR1	   330#
ERUUO	   308#
EXIT	   792
FATAL	   152#
FRD36	   293#
FRD8	   294#
FREAD	   292#
FSELEC	   291#
GET	   136#
GO	   133#
HALT	   138#	   443	   720	   722	   723	   727	   741	   832	   923	   936	   948	   961	  1035	  1051
	  1067	  1083	  1099	  1115	  1131	  1147	  1163	  1179	  1195	  1211	  1227	  1243	  1259	  1275
	  1367	  1384	  1401	  1418	  1435	  1452	  1469	  1486	  1503	  1520	  1537	  1554	  1571	  1588
	  1605	  1639	  1655	  1671	  1687	  1703	  1719	  1735	  1751	  1767	  1783	  1799	  1815	  1831
	  1847	  1863	  1902	  1921	  1940	  1959	  1978	  1997	  2016	  2035	  2054	  2073	  2092	  2111
	  2130	  2149	  2168	  2189	  2234	  2256	  2278	  2300	  2322	  2344	  2366	  2388	  2410	  2432
	  2454	  2476	  2498	  2520	  2542	  2564	  2586	  2608	  2653	  2675	  2697	  2719	  2741	  2763
	  2785	  2807	  2829	  2851	  2873	  2895	  2917	  2939	  2961	  2983	  3005	  3027	  3044	  3089
	  3111	  3133	  3155	  3177	  3199	  3221	  3243	  3265	  3287	  3309	  3331	  3353	  3375	  3397
	  3419	  3441	  3463	  3508	  3530	  3552	  3574	  3596	  3618	  3640	  3662	  3684	  3706	  3728
	  3750	  3772	  3794	  3816	  3838	  3860	  3882	  3918	  3930	  3942	  3954	  3966	  3978	  3990
	  4002	  4014	  4026	  4038	  4050	  4062	  4074	  4086	  4120	  4132	  4144	  4156	  4168	  4180
	  4192	  4204	  4216	  4228	  4240	  4252	  4264	  4276	  4288	  4306	  4320	  4335	  4339	  4355
	  4359	  4381	  4404	  4408	  4423	  4427	  4438	  4442	  4458	  4473	  4489	  4502	  4516	  4531
	  4546	  4561	  4577	  4591	  4604	  4618	  4633	  4647	  4662	  4677	  4692	  4708	  4725	  4741
	  4754	  4768	  4786	  4801	  4818	  4838	  4858	  4875	  4891	  4908	  4923	  4943	  4962	  4980
	  4998	  5012	  5027	  5046	  5064	  5083	  5101	  5119	  5129	  5143	  5159	  5172	  5184	  5196
	  5207	  5220	  5233	  5248	  5252	  5257	  5262	  5277	  5291	  5295	  5300	  5305	  5320	  5324
	  5329	  5334	  5350	  5363	  5375	  5388	  5402	  5406	  5411	  5416	  5431	  5435	  5440	  5445
	  5465	  5481	  5501	  5517	  5537	  5552	  5565	  5577	  5588	  5601	  5614	  5625	  5638	  5654
	  5667	  5680	  5692	  5705	  5751	  5765	  5769	  5774	  5779	  5794	  5798	  5803	  5808	  5824
	  5837	  5849	  5862	  5877	  5881	  5894	  5907	  5921	  5933	  5948	  5962	  5976	  5988	  6002
	  6014	  6030	  6048	  6062	  6077	  6090	  6099	  6120	  6138	  6155	  6174	  6192	  6207	  6221
	  6283	  6297	  6310	  6324	  6337	  6351	  6365	  6380
JEN	   140#
JRSTF	   139#
MAPADR	   274#
MAPCNK	   275#
MAPMEM	   271#
MAPPNT	   277#
MAPSET	   276#
MEMSEG	   273#
MEMZRO	   272#                                                                                                            SEQ 0181
MODPCP	   284#
MODPCU	   283#
MTROP	   252#
NAME	    13#	    14
PBELL	   227#
PCRL	   221#
PCRL2	   225#
PCRL2F	   226#
PCRLF	   222#
PFORCE	   229#
PGMINT	   146#
PJRST	   137#
PMSG	   231#
PMSGF	   234#
PNT1	   187#
PNT11	   201#
PNT11F	   202#
PNT1F	   188#
PNT2	   189#
PNT2F	   190#
PNT3	   191#
PNT3F	   192#
PNT4	   193#
PNT4F	   194#
PNT5	   195#
PNT5F	   196#
PNT6	   197#
PNT6F	   198#
PNT7	   199#
PNT7F	   200#
PNTA	   173#
PNTADF	   204#
PNTADR	   203#
PNTAF	   174#
PNTAL	   175#
PNTALF	   176#
PNTCHF	   186#
PNTCHR	   185#
PNTCI	   183#
PNTCIF	   184#
PNTCW	   219#
PNTCWF	   220#
PNTDCF	   212#
PNTDEC	   211#
PNTDS	   213#
PNTDSF	   214#
PNTHW	   207#
PNTHWF	   208#
PNTMGN	   298#
PNTMSF	   180#
PNTMSG	   179#
PNTNM	   215#
PNTOCF	   210#                                                                                                            SEQ 0182
PNTOCS	   209#
PNTOCT	   205#
PNTOTF	   206#
PNTSIX	   216#
PNTSXF	   217#
PSIXL	   177#
PSIXLF	   178#
PSIXM	   181#
PSIXMF	   182#
PSP	   223#
PSPF	   224#
PUT	   135#
REPTUO	   312#
RTN	   134#	   430
S	    64#	    66	    70	    99	   101	   110	   113	   128	   129	   131	   142	   144	   148	   150
	   155	   159	   304	   306	   340	   345	   351	   378	   380	   398	   400	   418	   420	   449
	   451	   469	   471	   489	   491	   499	   501	   522	   527	   553	   555	   562	   564	   570
	   572	   578	   580	   584	   586	   591	   593	   597	   599	   603	   605	   611	   613	   616
	   618	   622	   624	   628	   630	   634	   636	   640	   642	   647	   652	   656	   658
SFLAG	   864#	  4812	  4831	  4851	  4869	  4885	  4902	  4916	  4934	  4953	  5039	  5057	  5076	  5094
	  5112	  5457	  5474	  5490	  5494	  5510	  5526	  5530
SIXBTZ	   240#
STOP	   855#	   922	   935	   947	   960	  1034	  1050	  1066	  1082	  1098	  1114	  1130	  1146	  1162
	  1178	  1194	  1210	  1226	  1242	  1258	  1274	  1366	  1383	  1400	  1417	  1434	  1451	  1468
	  1485	  1502	  1519	  1536	  1553	  1570	  1587	  1604	  1638	  1654	  1670	  1686	  1702	  1718
	  1734	  1750	  1766	  1782	  1798	  1814	  1830	  1846	  1862	  1901	  1920	  1939	  1958	  1977
	  1996	  2015	  2034	  2053	  2072	  2091	  2110	  2129	  2148	  2167	  2188	  2233	  2255	  2277
	  2299	  2321	  2343	  2365	  2387	  2409	  2431	  2453	  2475	  2497	  2519	  2541	  2563	  2585
	  2607	  2652	  2674	  2696	  2718	  2740	  2762	  2784	  2806	  2828	  2850	  2872	  2894	  2916
	  2938	  2960	  2982	  3004	  3026	  3043	  3088	  3110	  3132	  3154	  3176	  3198	  3220	  3242
	  3264	  3286	  3308	  3330	  3352	  3374	  3396	  3418	  3440	  3462	  3507	  3529	  3551	  3573
	  3595	  3617	  3639	  3661	  3683	  3705	  3727	  3749	  3771	  3793	  3815	  3837	  3859	  3881
	  3917	  3929	  3941	  3953	  3965	  3977	  3989	  4001	  4013	  4025	  4037	  4049	  4061	  4073
	  4085	  4119	  4131	  4143	  4155	  4167	  4179	  4191	  4203	  4215	  4227	  4239	  4251	  4263
	  4275	  4287	  4305	  4319	  4334	  4338	  4354	  4358	  4380	  4403	  4407	  4422	  4426	  4441
	  4457	  4472	  4488	  4501	  4515	  4530	  4545	  4560	  4576	  4590	  4603	  4617	  4632	  4646
	  4661	  4676	  4691	  4707	  4724	  4740	  4753	  4767	  4785	  4800	  4817	  4837	  4857	  4874
	  4890	  4907	  4922	  4942	  4961	  4979	  4997	  5011	  5026	  5045	  5063	  5082	  5100	  5118
	  5128	  5142	  5158	  5171	  5183	  5195	  5206	  5219	  5232	  5247	  5251	  5256	  5261	  5276
	  5290	  5294	  5299	  5304	  5319	  5323	  5328	  5333	  5349	  5362	  5374	  5387	  5401	  5405
	  5410	  5415	  5430	  5434	  5439	  5444	  5464	  5480	  5500	  5516	  5536	  5551	  5564	  5576
	  5587	  5600	  5613	  5624	  5637	  5653	  5666	  5679	  5691	  5704	  5750	  5764	  5768	  5773
	  5778	  5793	  5797	  5802	  5807	  5823	  5836	  5848	  5861	  5876	  5880	  5893	  5906	  5920
	  5932	  5947	  5961	  5975	  5987	  6001	  6013	  6029	  6047	  6061	  6076	  6089	  6098	  6119
	  6137	  6154	  6173	  6191	  6206	  6220	  6282	  6296	  6309	  6323	  6336	  6350	  6364	  6379
SWITCH	   246#
TTALTM	   168#
TTICHR	   161#
TTICNV	   166#
TTIDEC	   165#
TTINO	   163#
TTIOCT	   164#
TTIYES	   162#                                                                                                            SEQ 0183
TTLOOK	   167#
TTSIXB	   169#
TTYINP	   170#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC                                                         SEQ 0184
DBKAD	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 0185
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 0186
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 200040034442 *            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,034442

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

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030616 030616 030616 316040034442 777777777777 000000030615     000001000001 777777000001 777777777777 0   0   777 
IT1	*      *      034442 *            316040034442 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000034442     *            *            000000000000 0   0   *   
FT6	*      034442 *      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 0188
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 0189
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030720 030720 030720 336000030037 777777777777 777777777777     000000030714 010000000000 0            0   0   777 
IT1	*      *      030037 *            336000030037 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030037     *            *            0            0   0   *   
FT6	*      030037 *      000000000000 777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      030721 0            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      0            0            0                *            *            0            0   0   *   
ST1	*      *      *      0            777777777777 0                *            *            0            0   0   *   

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

*030721  JRST	0,030742

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

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

*030742  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030742 030742 030742 400000000000 254000030742 000000030722     000000030714 254000030742 0            0   0   777 
IT1	*      *      000000 *            400000000000 *                *            *            0            0   0   *   
ET2	*      *      030743 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	030743 030743 *      201040000001 777777777777 0                000000000000 *            0            0   0   *   

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

*030743  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030743 030743 030743 201040000001 777777777777 0                0            254000030742 0            0   0   777 
IT1	*      *      000001 *            201040000001 0                000001000001 *            0            0   0   *   
ET2	*      *      030744 *            000001000001 000000000001     *            *            0            0   0   *   
ST1	030744 030744 *      302040000001 777777777777 *                000000000001 *            0            0   0   *   

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

*030744  CAIE	1,000001
                                                                                                                           SEQ 0190
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030744 030744 030744 302040000001 777777777777 000000000001     000000000001 254000030742 0            0   0   777 
IT1	*      *      000001 *            302040000001 *                *            *            0            0   0   *   
ET0	*      *      030745 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	030745 *      030746 *            777777777777 *                *            *            0            0   0   *   

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

*030746  JUMPA	0,030747

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

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

*030747  MOVEI	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030747 030747 030747 201100000002 777777777777 0                0            000000030747 0            0   0   777 
IT1	*      *      000002 *            201100000002 0                0            *            0            0   0   *   
ET2	*      *      030750 *            000000000000 000000000002     0            *            0            0   0   *   
ST1	030750 030750 *      302100000002 777777777777 *                000000000002 *            0            0   0   *   

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

*030750  CAIE	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030750 030750 030750 302100000002 777777777777 000000000002     000000000002 000000030747 0            0   0   777 
IT1	*      *      000002 *            302100000002 *                *            *            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)=000000 000002 E    =000000 000002 
----------

*030752  JUMPA	0,030753

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030752 030752 030752 324000030753 777777777777 000000000002     000000000002 000000030747 0            0   0   777 
IT1	*      *      030753 *            324000030753 *                000000000000 *            0            0   0   *   SEQ 0191
ET0	*      *      000000 *            000000000000 000000030753     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      030753 *            000000030753 000000000000     0            000000030753 0            0   0   *   

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

*030753  MOVEI	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030753 030753 030753 201200000004 777777777777 0                0            000000030753 0            0   0   777 
IT1	*      *      000004 *            201200000004 0                0            *            0            0   0   *   
ET2	*      *      030754 *            000000000000 000000000004     0            *            0            0   0   *   
ST1	030754 030754 *      302200000004 777777777777 *                000000000004 *            0            0   0   *   

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

*030754  CAIE	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030754 030754 030754 302200000004 777777777777 000000000004     000000000004 000000030753 0            0   0   777 
IT1	*      *      000004 *            302200000004 *                *            *            0            0   0   *   
ET0	*      *      030755 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	030755 *      030756 *            777777777777 *                *            *            0            0   0   *   

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

*030756  JUMPA	0,030757

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030756 030756 030756 324000030757 777777777777 000000000004     000000000004 000000030753 0            0   0   777 
IT1	*      *      030757 *            324000030757 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000030757     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      030757 *            000000030757 000000000000     0            000000030757 0            0   0   *   

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

*030757  MOVEI	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030757 030757 030757 201400000010 777777777777 0                0            000000030757 0            0   0   777 
IT1	*      *      000010 *            201400000010 0                0            *            0            0   0   *   
ET2	*      *      030760 *            000000000000 000000000010     0            *            0            0   0   *   
ST1	030760 030760 *      302400000010 777777777777 *                000000000010 *            0            0   0   *   
                                                                                                                           SEQ 0192
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 000010 
FINAL
C(AC)=000000 000010 
----------

*030760  CAIE	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030760 030760 030760 302400000010 777777777777 000000000010     000000000010 000000030757 0            0   0   777 
IT1	*      *      000010 *            302400000010 *                *            *            0            0   0   *   
ET0	*      *      030761 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	030761 *      030762 *            777777777777 *                *            *            0            0   0   *   

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

*030762  JUMPA	0,030763

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

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

*030763  MOVEI	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030763 030763 030763 201000000000 777777777777 0                0            000000030763 0            0   0   777 
IT1	*      *      000000 *            201000000000 0                0            *            0            0   0   *   
ET2	*      *      030764 *            000000000000 0                0            *            0            0   0   *   
ST1	030764 030764 *      201040000001 777777777777 0                0            *            0            0   0   *   

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

*030764  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030764 030764 030764 201040000001 777777777777 0                0            000000030763 0            0   0   777 
IT1	*      *      000001 *            201040000001 0                000000000001 *            0            0   0   *   
ET2	*      *      030765 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	030765 030765 *      201100000002 777777777777 *                *            *            0            0   0   *   

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

*030765  MOVEI	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030765 030765 030765 201100000002 777777777777 000000000001     000000000001 000000030763 0            0   0   777 
IT1	*      *      000002 *            201100000002 *                000000000002 *            0            0   0   *   
ET2	*      *      030766 *            000000000002 000000000002     *            *            0            0   0   *   
ST1	030766 030766 *      201140000003 777777777777 *                *            *            0            0   0   *   

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

*030766  MOVEI	3,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030766 030766 030766 201140000003 777777777777 000000000002     000000000002 000000030763 0            0   0   777 
IT1	*      *      000003 *            201140000003 *                000000000000 *            0            0   0   *   
ET2	*      *      030767 *            000000000000 000000000003     0            *            0            0   0   *   
ST1	030767 030767 *      201200000004 777777777777 *                000000000003 *            0            0   0   *   

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

*030767  MOVEI	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030767 030767 030767 201200000004 777777777777 000000000003     000000000003 000000030763 0            0   0   777 
IT1	*      *      000004 *            201200000004 *                000000000004 *            0            0   0   *   
ET2	*      *      030770 *            000000000004 000000000004     *            *            0            0   0   *   
ST1	030770 030770 *      201240000005 777777777777 *                *            *            0            0   0   *   

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

*030770  MOVEI	5,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030770 030770 030770 201240000005 777777777777 000000000004     000000000004 000000030763 0            0   0   777 
IT1	*      *      000005 *            201240000005 *                000000000000 *            0            0   0   *   
ET2	*      *      030771 *            000000000000 000000000005     0            *            0            0   0   *   
ST1	030771 030771 *      201300000006 777777777777 *                000000000005 *            0            0   0   *   

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

*030771  MOVEI	6,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030771 030771 030771 201300000006 777777777777 000000000005     000000000005 000000030763 0            0   0   777 
IT1	*      *      000006 *            201300000006 *                000000000000 *            0            0   0   *   
ET2	*      *      030772 *            000000000000 000000000006     0            *            0            0   0   *   
ST1	030772 030772 *      201340000007 777777777777 *                000000000006 *            0            0   0   *   

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

*030772  MOVEI	7,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030772 030772 030772 201340000007 777777777777 000000000006     000000000006 000000030763 0            0   0   777 
IT1	*      *      000007 *            201340000007 *                000000000000 *            0            0   0   *   
ET2	*      *      030773 *            000000000000 000000000007     0            *            0            0   0   *   
ST1	030773 030773 *      201400000010 777777777777 *                000000000007 *            0            0   0   *   

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

*030773  MOVEI	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030773 030773 030773 201400000010 777777777777 000000000007     000000000007 000000030763 0            0   0   777 
IT1	*      *      000010 *            201400000010 *                000000000010 *            0            0   0   *   
ET2	*      *      030774 *            000000000010 000000000010     *            *            0            0   0   *   
ST1	030774 030774 *      201440000011 777777777777 *                *            *            0            0   0   *   

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

*030774  MOVEI	11,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030774 030774 030774 201440000011 777777777777 000000000010     000000000010 000000030763 0            0   0   777 
IT1	*      *      000011 *            201440000011 *                000000000000 *            0            0   0   *   
ET2	*      *      030775 *            000000000000 000000000011     0            *            0            0   0   *   
ST1	030775 030775 *      201500000012 777777777777 *                000000000011 *            0            0   0   *   

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

*030775  MOVEI	12,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030775 030775 030775 201500000012 777777777777 000000000011     000000000011 000000030763 0            0   0   777 
IT1	*      *      000012 *            201500000012 *                000000000000 *            0            0   0   *   
ET2	*      *      030776 *            000000000000 000000000012     0            *            0            0   0   *   
ST1	030776 030776 *      201540000013 777777777777 *                000000000012 *            0            0   0   *   

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

*030776  MOVEI	13,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030776 030776 030776 201540000013 777777777777 000000000012     000000000012 000000030763 0            0   0   777 
IT1	*      *      000013 *            201540000013 *                000000000000 *            0            0   0   *   
ET2	*      *      030777 *            000000000000 000000000013     0            *            0            0   0   *   
ST1	030777 030777 *      201600000014 777777777777 *                000000000013 *            0            0   0   *   

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

*030777  MOVEI	14,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030777 030777 030777 201600000014 777777777777 000000000013     000000000013 000000030763 0            0   0   777 
IT1	*      *      000014 *            201600000014 *                000000000000 *            0            0   0   *   
ET2	*      *      031000 *            000000000000 000000000014     0            *            0            0   0   *   
ST1	031000 031000 *      201640000015 777777777777 *                000000000014 *            0            0   0   *   

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

*031000  MOVEI	15,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031000 031000 031000 201640000015 777777777777 000000000014     000000000014 000000030763 0            0   0   777 
IT1	*      *      000015 *            201640000015 *                000000000000 *            0            0   0   *   
ET2	*      *      031001 *            000000000000 000000000015     0            *            0            0   0   *   
ST1	031001 031001 *      201700000016 777777777777 *                000000000015 *            0            0   0   *   

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

*031001  MOVEI	16,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031001 031001 031001 201700000016 777777777777 000000000015     000000000015 000000030763 0            0   0   777 
IT1	*      *      000016 *            201700000016 *                000000000000 *            0            0   0   *   
ET2	*      *      031002 *            000000000000 000000000016     0            *            0            0   0   *   
ST1	031002 031002 *      201740000017 777777777777 *                000000000016 *            0            0   0   *   

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

*031002  MOVEI	17,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031002 031002 031002 201740000017 777777777777 000000000016     000000000016 000000030763 0            0   0   777 
IT1	*      *      000017 *            201740000017 *                000000000000 *            0            0   0   *   
ET2	*      *      031003 *            000000000000 000000000017     0            *            0            0   0   *   
ST1	031003 031003 *      302740000017 777777777777 *                000000000017 *            0            0   0   *   

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

*031003  CAIE	17,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031003 031003 031003 302740000017 777777777777 000000000017     000000000017 000000030763 0            0   0   777 
IT1	*      *      000017 *            302740000017 *                *            *            0            0   0   *   
ET0	*      *      031004 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031004 *      031005 *            777777777777 *                *            *            0            0   0   *   

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

*031005  JUMPA	0,031006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031005 031005 031005 324000031006 777777777777 000000000017     000000000017 000000030763 0            0   0   777 
IT1	*      *      031006 *            324000031006 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031006     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031006 *            000000031006 000000000000     0            000000031006 0            0   0   *   

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

*031006  CAIE	16,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031006 031006 031006 302700000016 777777777777 0                0            000000031006 0            0   0   777 
IT1	*      *      000016 *            302700000016 0                000000000016 *            0            0   0   *   
ET0	*      *      031007 *            000000000000 000000000016     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031007 *      031010 *            777777777777 *                *            *            0            0   0   *   

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

*031010  JUMPA	0,031011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031010 031010 031010 324000031011 777777777777 000000000016     000000000016 000000031006 0            0   0   777 
IT1	*      *      031011 *            324000031011 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031011     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031011 *            000000031011 000000000000     0            000000031011 0            0   0   *   

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

*031011  CAIE	15,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031011 031011 031011 302640000015 777777777777 0                0            000000031011 0            0   0   777 
IT1	*      *      000015 *            302640000015 0                000000000015 *            0            0   0   *   
ET0	*      *      031012 *            000000000000 000000000015     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031012 *      031013 *            777777777777 *                *            *            0            0   0   *   

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

*031013  JUMPA	0,031014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031013 031013 031013 324000031014 777777777777 000000000015     000000000015 000000031011 0            0   0   777 
IT1	*      *      031014 *            324000031014 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031014     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031014 *            000000031014 000000000000     0            000000031014 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031014 
----------
*031014  CAIE	14,000014                                                                                                  SEQ 0198

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031014 031014 031014 302600000014 777777777777 0                0            000000031014 0            0   0   777 
IT1	*      *      000014 *            302600000014 0                000000000014 *            0            0   0   *   
ET0	*      *      031015 *            000000000000 000000000014     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031015 *      031016 *            777777777777 *                *            *            0            0   0   *   

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

*031016  JUMPA	0,031017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031016 031016 031016 324000031017 777777777777 000000000014     000000000014 000000031014 0            0   0   777 
IT1	*      *      031017 *            324000031017 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031017     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031017 *            000000031017 000000000000     0            000000031017 0            0   0   *   

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

*031017  CAIE	13,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031017 031017 031017 302540000013 777777777777 0                0            000000031017 0            0   0   777 
IT1	*      *      000013 *            302540000013 0                000000000013 *            0            0   0   *   
ET0	*      *      031020 *            000000000000 000000000013     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031020 *      031021 *            777777777777 *                *            *            0            0   0   *   

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

*031021  JUMPA	0,031022

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031021 031021 031021 324000031022 777777777777 000000000013     000000000013 000000031017 0            0   0   777 
IT1	*      *      031022 *            324000031022 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031022     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031022 *            000000031022 000000000000     0            000000031022 0            0   0   *   

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

*031022  CAIE	12,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031022 031022 031022 302500000012 777777777777 0                0            000000031022 0            0   0   777 
IT1	*      *      000012 *            302500000012 0                000000000012 *            0            0   0   *   SEQ 0199
ET0	*      *      031023 *            000000000000 000000000012     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031023 *      031024 *            777777777777 *                *            *            0            0   0   *   

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

*031024  JUMPA	0,031025

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031024 031024 031024 324000031025 777777777777 000000000012     000000000012 000000031022 0            0   0   777 
IT1	*      *      031025 *            324000031025 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031025     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031025 *            000000031025 000000000000     0            000000031025 0            0   0   *   

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

*031025  CAIE	11,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031025 031025 031025 302440000011 777777777777 0                0            000000031025 0            0   0   777 
IT1	*      *      000011 *            302440000011 0                000000000011 *            0            0   0   *   
ET0	*      *      031026 *            000000000000 000000000011     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031026 *      031027 *            777777777777 *                *            *            0            0   0   *   

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

*031027  JUMPA	0,031030

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031027 031027 031027 324000031030 777777777777 000000000011     000000000011 000000031025 0            0   0   777 
IT1	*      *      031030 *            324000031030 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031030     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031030 *            000000031030 000000000000     0            000000031030 0            0   0   *   

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

*031030  CAIE	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031030 031030 031030 302400000010 777777777777 0                0            000000031030 0            0   0   777 
IT1	*      *      000010 *            302400000010 0                000000000010 *            0            0   0   *   
ET0	*      *      031031 *            000000000000 000000000010     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031031 *      031032 *            777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0200
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000010 E    =000000 000010 
----------

*031032  JUMPA	0,031033

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031032 031032 031032 324000031033 777777777777 000000000010     000000000010 000000031030 0            0   0   777 
IT1	*      *      031033 *            324000031033 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031033     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031033 *            000000031033 000000000000     0            000000031033 0            0   0   *   

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

*031033  CAIE	7,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031033 031033 031033 302340000007 777777777777 0                0            000000031033 0            0   0   777 
IT1	*      *      000007 *            302340000007 0                000000000007 *            0            0   0   *   
ET0	*      *      031034 *            000000000000 000000000007     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031034 *      031035 *            777777777777 *                *            *            0            0   0   *   

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

*031035  JUMPA	0,031036

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031035 031035 031035 324000031036 777777777777 000000000007     000000000007 000000031033 0            0   0   777 
IT1	*      *      031036 *            324000031036 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031036     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031036 *            000000031036 000000000000     0            000000031036 0            0   0   *   

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

*031036  CAIE	6,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031036 031036 031036 302300000006 777777777777 0                0            000000031036 0            0   0   777 
IT1	*      *      000006 *            302300000006 0                000000000006 *            0            0   0   *   
ET0	*      *      031037 *            000000000000 000000000006     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031037 *      031040 *            777777777777 *                *            *            0            0   0   *   

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

*031040  JUMPA	0,031041

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

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

*031041  CAIE	5,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031041 031041 031041 302240000005 777777777777 0                0            000000031041 0            0   0   777 
IT1	*      *      000005 *            302240000005 0                000000000005 *            0            0   0   *   
ET0	*      *      031042 *            000000000000 000000000005     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031042 *      031043 *            777777777777 *                *            *            0            0   0   *   

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

*031043  JUMPA	0,031044

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031043 031043 031043 324000031044 777777777777 000000000005     000000000005 000000031041 0            0   0   777 
IT1	*      *      031044 *            324000031044 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031044     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031044 *            000000031044 000000000000     0            000000031044 0            0   0   *   

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

*031044  CAIE	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031044 031044 031044 302200000004 777777777777 0                0            000000031044 0            0   0   777 
IT1	*      *      000004 *            302200000004 0                000000000004 *            0            0   0   *   
ET0	*      *      031045 *            000000000000 000000000004     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031045 *      031046 *            777777777777 *                *            *            0            0   0   *   

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

*031046  JUMPA	0,031047
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0202
IT0	031046 031046 031046 324000031047 777777777777 000000000004     000000000004 000000031044 0            0   0   777 
IT1	*      *      031047 *            324000031047 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031047     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031047 *            000000031047 000000000000     0            000000031047 0            0   0   *   

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

*031047  CAIE	3,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031047 031047 031047 302140000003 777777777777 0                0            000000031047 0            0   0   777 
IT1	*      *      000003 *            302140000003 0                000000000003 *            0            0   0   *   
ET0	*      *      031050 *            000000000000 000000000003     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031050 *      031051 *            777777777777 *                *            *            0            0   0   *   

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

*031051  JUMPA	0,031052

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031051 031051 031051 324000031052 777777777777 000000000003     000000000003 000000031047 0            0   0   777 
IT1	*      *      031052 *            324000031052 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031052     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031052 *            000000031052 000000000000     0            000000031052 0            0   0   *   

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

*031052  CAIE	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031052 031052 031052 302100000002 777777777777 0                0            000000031052 0            0   0   777 
IT1	*      *      000002 *            302100000002 0                000000000002 *            0            0   0   *   
ET0	*      *      031053 *            000000000000 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031053 *      031054 *            777777777777 *                *            *            0            0   0   *   

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

*031054  JUMPA	0,031055

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031054 031054 031054 324000031055 777777777777 000000000002     000000000002 000000031052 0            0   0   777 
IT1	*      *      031055 *            324000031055 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031055     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   SEQ 0203
ST1	*      *      031055 *            000000031055 000000000000     0            000000031055 0            0   0   *   

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

*031055  CAIE	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031055 031055 031055 302040000001 777777777777 0                0            000000031055 0            0   0   777 
IT1	*      *      000001 *            302040000001 0                000000000001 *            0            0   0   *   
ET0	*      *      031056 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031056 *      031057 *            777777777777 *                *            *            0            0   0   *   

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

*031057  JUMPA	0,031060

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

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

*031060  CAIE	0,000000

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

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

*031062  JUMPA	0,031063

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

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

*031063  MOVEI	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031063 031063 031063 201000000001 777777777777 0                0            000000031063 0            0   0   777 
IT1	*      *      000001 *            201000000001 0                0            *            0            0   0   *   
ET2	*      *      031064 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031064 031064 *      202000000001 777777777777 *                000000000001 *            0            0   0   *   

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

*031064  MOVEM	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031064 031064 031064 202000000001 777777777777 000000000001     000000000001 000000031063 0            0   0   777 
IT1	*      *      000001 *            202000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000001 031065 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000001 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                *            *            0            0   0   *   
ST5	031065 031065 *      201000000002 *            *                *            *            0            0   0   *   

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

*031065  MOVEI	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031065 031065 031065 201000000002 777777777777 000000000001     000000000001 000000031063 0            0   0   777 
IT1	*      *      000002 *            201000000002 *                *            *            0            0   0   *   
ET2	*      *      031066 *            000000000001 000000000002     *            *            0            0   0   *   
ST1	031066 031066 *      202000000002 777777777777 *                000000000002 *            0            0   0   *   

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

*031066  MOVEM	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031066 031066 031066 202000000002 777777777777 000000000002     000000000002 000000031063 0            0   0   777 
IT1	*      *      000002 *            202000000002 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000002 031067 *            777777777777 *                *            *            0            0   0   *   SEQ 0205
ET0	*      *      *      *            000000000002 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000002 *            *                *            *            0            0   0   *   
ST5	031067 031067 *      201000000003 *            *                *            *            0            0   0   *   

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

*031067  MOVEI	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031067 031067 031067 201000000003 777777777777 000000000002     000000000002 000000031063 0            0   0   777 
IT1	*      *      000003 *            201000000003 *                *            *            0            0   0   *   
ET2	*      *      031070 *            000000000002 000000000003     *            *            0            0   0   *   
ST1	031070 031070 *      202000000003 777777777777 *                000000000003 *            0            0   0   *   

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

*031070  MOVEM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031070 031070 031070 202000000003 777777777777 000000000003     000000000003 000000031063 0            0   0   777 
IT1	*      *      000003 *            202000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000003 031071 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000003 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000003 *            *                *            *            0            0   0   *   
ST5	031071 031071 *      201000000004 *            *                *            *            0            0   0   *   

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

*031071  MOVEI	0,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031071 031071 031071 201000000004 777777777777 000000000003     000000000003 000000031063 0            0   0   777 
IT1	*      *      000004 *            201000000004 *                *            *            0            0   0   *   
ET2	*      *      031072 *            000000000003 000000000004     *            *            0            0   0   *   
ST1	031072 031072 *      202000000004 777777777777 *                000000000004 *            0            0   0   *   

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

*031072  MOVEM	0,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031072 031072 031072 202000000004 777777777777 000000000004     000000000004 000000031063 0            0   0   777 
IT1	*      *      000004 *            202000000004 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000004 031073 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000004 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000004 *            *                *            *            0            0   0   *   
ST5	031073 031073 *      201000000005 *            *                *            *            0            0   0   *   

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

*031073  MOVEI	0,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031073 031073 031073 201000000005 777777777777 000000000004     000000000004 000000031063 0            0   0   777 
IT1	*      *      000005 *            201000000005 *                *            *            0            0   0   *   
ET2	*      *      031074 *            000000000004 000000000005     *            *            0            0   0   *   
ST1	031074 031074 *      202000000005 777777777777 *                000000000005 *            0            0   0   *   

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

*031074  MOVEM	0,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031074 031074 031074 202000000005 777777777777 000000000005     000000000005 000000031063 0            0   0   777 
IT1	*      *      000005 *            202000000005 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000005 031075 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000005 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000005 *            *                *            *            0            0   0   *   
ST5	031075 031075 *      201000000006 *            *                *            *            0            0   0   *   

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

*031075  MOVEI	0,000006
                                                                                                                           SEQ 0207
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031075 031075 031075 201000000006 777777777777 000000000005     000000000005 000000031063 0            0   0   777 
IT1	*      *      000006 *            201000000006 *                *            *            0            0   0   *   
ET2	*      *      031076 *            000000000005 000000000006     *            *            0            0   0   *   
ST1	031076 031076 *      202000000006 777777777777 *                000000000006 *            0            0   0   *   

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

*031076  MOVEM	0,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031076 031076 031076 202000000006 777777777777 000000000006     000000000006 000000031063 0            0   0   777 
IT1	*      *      000006 *            202000000006 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000006 031077 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000006 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000006 *            *                *            *            0            0   0   *   
ST5	031077 031077 *      201000000007 *            *                *            *            0            0   0   *   

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

*031077  MOVEI	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031077 031077 031077 201000000007 777777777777 000000000006     000000000006 000000031063 0            0   0   777 
IT1	*      *      000007 *            201000000007 *                *            *            0            0   0   *   
ET2	*      *      031100 *            000000000006 000000000007     *            *            0            0   0   *   
ST1	031100 031100 *      202000000007 777777777777 *                000000000007 *            0            0   0   *   

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

*031100  MOVEM	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031100 031100 031100 202000000007 777777777777 000000000007     000000000007 000000031063 0            0   0   777 
IT1	*      *      000007 *            202000000007 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000007 031101 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000007 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000007 *            *                *            *            0            0   0   *   
ST5	031101 031101 *      201000000010 *            *                *            *            0            0   0   *   SEQ 0208

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

*031101  MOVEI	0,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031101 031101 031101 201000000010 777777777777 000000000007     000000000007 000000031063 0            0   0   777 
IT1	*      *      000010 *            201000000010 *                *            *            0            0   0   *   
ET2	*      *      031102 *            000000000007 000000000010     *            *            0            0   0   *   
ST1	031102 031102 *      202000000010 777777777777 *                000000000010 *            0            0   0   *   

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

*031102  MOVEM	0,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031102 031102 031102 202000000010 777777777777 000000000010     000000000010 000000031063 0            0   0   777 
IT1	*      *      000010 *            202000000010 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000010 031103 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000010 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000010 *            *                *            *            0            0   0   *   
ST5	031103 031103 *      201000000011 *            *                *            *            0            0   0   *   

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

*031103  MOVEI	0,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031103 031103 031103 201000000011 777777777777 000000000010     000000000010 000000031063 0            0   0   777 
IT1	*      *      000011 *            201000000011 *                *            *            0            0   0   *   
ET2	*      *      031104 *            000000000010 000000000011     *            *            0            0   0   *   
ST1	031104 031104 *      202000000011 777777777777 *                000000000011 *            0            0   0   *   

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

*031104  MOVEM	0,000011
                                                                                                                           SEQ 0209
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031104 031104 031104 202000000011 777777777777 000000000011     000000000011 000000031063 0            0   0   777 
IT1	*      *      000011 *            202000000011 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000011 031105 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000011 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000011 *            *                *            *            0            0   0   *   
ST5	031105 031105 *      201000000012 *            *                *            *            0            0   0   *   

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

*031105  MOVEI	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031105 031105 031105 201000000012 777777777777 000000000011     000000000011 000000031063 0            0   0   777 
IT1	*      *      000012 *            201000000012 *                *            *            0            0   0   *   
ET2	*      *      031106 *            000000000011 000000000012     *            *            0            0   0   *   
ST1	031106 031106 *      202000000012 777777777777 *                000000000012 *            0            0   0   *   

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

*031106  MOVEM	0,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031106 031106 031106 202000000012 777777777777 000000000012     000000000012 000000031063 0            0   0   777 
IT1	*      *      000012 *            202000000012 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000012 031107 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000012 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000012 *            *                *            *            0            0   0   *   
ST5	031107 031107 *      201000000013 *            *                *            *            0            0   0   *   

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

*031107  MOVEI	0,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031107 031107 031107 201000000013 777777777777 000000000012     000000000012 000000031063 0            0   0   777 
IT1	*      *      000013 *            201000000013 *                *            *            0            0   0   *   
ET2	*      *      031110 *            000000000012 000000000013     *            *            0            0   0   *   
ST1	031110 031110 *      202000000013 777777777777 *                000000000013 *            0            0   0   *   SEQ 0210

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

*031110  MOVEM	0,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031110 031110 031110 202000000013 777777777777 000000000013     000000000013 000000031063 0            0   0   777 
IT1	*      *      000013 *            202000000013 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000013 031111 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000013 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000013 *            *                *            *            0            0   0   *   
ST5	031111 031111 *      201000000014 *            *                *            *            0            0   0   *   

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

*031111  MOVEI	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031111 031111 031111 201000000014 777777777777 000000000013     000000000013 000000031063 0            0   0   777 
IT1	*      *      000014 *            201000000014 *                *            *            0            0   0   *   
ET2	*      *      031112 *            000000000013 000000000014     *            *            0            0   0   *   
ST1	031112 031112 *      202000000014 777777777777 *                000000000014 *            0            0   0   *   

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

*031112  MOVEM	0,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031112 031112 031112 202000000014 777777777777 000000000014     000000000014 000000031063 0            0   0   777 
IT1	*      *      000014 *            202000000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000014 031113 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000014 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000014 *            *                *            *            0            0   0   *   
ST5	031113 031113 *      201000000015 *            *                *            *            0            0   0   *   

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

*031113  MOVEI	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031113 031113 031113 201000000015 777777777777 000000000014     000000000014 000000031063 0            0   0   777 
IT1	*      *      000015 *            201000000015 *                *            *            0            0   0   *   
ET2	*      *      031114 *            000000000014 000000000015     *            *            0            0   0   *   
ST1	031114 031114 *      202000000015 777777777777 *                000000000015 *            0            0   0   *   

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

*031114  MOVEM	0,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031114 031114 031114 202000000015 777777777777 000000000015     000000000015 000000031063 0            0   0   777 
IT1	*      *      000015 *            202000000015 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000015 031115 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000015 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000015 *            *                *            *            0            0   0   *   
ST5	031115 031115 *      201000000016 *            *                *            *            0            0   0   *   

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

*031115  MOVEI	0,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031115 031115 031115 201000000016 777777777777 000000000015     000000000015 000000031063 0            0   0   777 
IT1	*      *      000016 *            201000000016 *                *            *            0            0   0   *   
ET2	*      *      031116 *            000000000015 000000000016     *            *            0            0   0   *   
ST1	031116 031116 *      202000000016 777777777777 *                000000000016 *            0            0   0   *   

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

*031116  MOVEM	0,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031116 031116 031116 202000000016 777777777777 000000000016     000000000016 000000031063 0            0   0   777 
IT1	*      *      000016 *            202000000016 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000016 031117 *            777777777777 *                *            *            0            0   0   *   SEQ 0212
ET0	*      *      *      *            000000000016 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000016 *            *                *            *            0            0   0   *   
ST5	031117 031117 *      201000000017 *            *                *            *            0            0   0   *   

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

*031117  MOVEI	0,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031117 031117 031117 201000000017 777777777777 000000000016     000000000016 000000031063 0            0   0   777 
IT1	*      *      000017 *            201000000017 *                *            *            0            0   0   *   
ET2	*      *      031120 *            000000000016 000000000017     *            *            0            0   0   *   
ST1	031120 031120 *      202000000017 777777777777 *                000000000017 *            0            0   0   *   

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

*031120  MOVEM	0,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031120 031120 031120 202000000017 777777777777 000000000017     000000000017 000000031063 0            0   0   777 
IT1	*      *      000017 *            202000000017 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000017 031121 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000017 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000017 *            *                *            *            0            0   0   *   
ST5	031121 031121 *      302740000017 *            *                *            *            0            0   0   *   

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

*031121  CAIE	17,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031121 031121 031121 302740000017 777777777777 000000000017     000000000017 000000031063 0            0   0   777 
IT1	*      *      000017 *            302740000017 *                *            *            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)=000000 000017 E    =000000 000017                                                                                    SEQ 0213
----------

*031123  JUMPA	0,031124

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

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

*031124  CAIE	16,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031124 031124 031124 302700000016 777777777777 000000000017     000000000017 000000031124 0            0   0   777 
IT1	*      *      000016 *            302700000016 *                000000000016 *            0            0   0   *   
ET0	*      *      031125 *            000000000000 000000000016     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031125 *      031126 *            777777777777 *                *            *            0            0   0   *   

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

*031126  JUMPA	0,031127

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031126 031126 031126 324000031127 777777777777 000000000016     000000000016 000000031124 0            0   0   777 
IT1	*      *      031127 *            324000031127 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031127     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031127 *            000000031127 000000000017     *            000000031127 0            0   0   *   

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

*031127  CAIE	15,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031127 031127 031127 302640000015 777777777777 000000000017     000000000017 000000031127 0            0   0   777 
IT1	*      *      000015 *            302640000015 *                000000000015 *            0            0   0   *   
ET0	*      *      031130 *            000000000000 000000000015     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031130 *      031131 *            777777777777 *                *            *            0            0   0   *   

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

*031131  JUMPA	0,031132
                                                                                                                           SEQ 0214
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031131 031131 031131 324000031132 777777777777 000000000015     000000000015 000000031127 0            0   0   777 
IT1	*      *      031132 *            324000031132 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031132     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031132 *            000000031132 000000000017     *            000000031132 0            0   0   *   

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

*031132  CAIE	14,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031132 031132 031132 302600000014 777777777777 000000000017     000000000017 000000031132 0            0   0   777 
IT1	*      *      000014 *            302600000014 *                000000000014 *            0            0   0   *   
ET0	*      *      031133 *            000000000000 000000000014     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031133 *      031134 *            777777777777 *                *            *            0            0   0   *   

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

*031134  JUMPA	0,031135

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031134 031134 031134 324000031135 777777777777 000000000014     000000000014 000000031132 0            0   0   777 
IT1	*      *      031135 *            324000031135 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031135     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031135 *            000000031135 000000000017     *            000000031135 0            0   0   *   

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

*031135  CAIE	13,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031135 031135 031135 302540000013 777777777777 000000000017     000000000017 000000031135 0            0   0   777 
IT1	*      *      000013 *            302540000013 *                000000000013 *            0            0   0   *   
ET0	*      *      031136 *            000000000000 000000000013     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031136 *      031137 *            777777777777 *                *            *            0            0   0   *   

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

*031137  JUMPA	0,031140

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031137 031137 031137 324000031140 777777777777 000000000013     000000000013 000000031135 0            0   0   777 
IT1	*      *      031140 *            324000031140 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031140     *            *            0            0   0   *   SEQ 0215
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031140 *            000000031140 000000000017     *            000000031140 0            0   0   *   

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

*031140  CAIE	12,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031140 031140 031140 302500000012 777777777777 000000000017     000000000017 000000031140 0            0   0   777 
IT1	*      *      000012 *            302500000012 *                000000000012 *            0            0   0   *   
ET0	*      *      031141 *            000000000000 000000000012     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031141 *      031142 *            777777777777 *                *            *            0            0   0   *   

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

*031142  JUMPA	0,031143

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031142 031142 031142 324000031143 777777777777 000000000012     000000000012 000000031140 0            0   0   777 
IT1	*      *      031143 *            324000031143 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031143     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031143 *            000000031143 000000000017     *            000000031143 0            0   0   *   

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

*031143  CAIE	11,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031143 031143 031143 302440000011 777777777777 000000000017     000000000017 000000031143 0            0   0   777 
IT1	*      *      000011 *            302440000011 *                000000000011 *            0            0   0   *   
ET0	*      *      031144 *            000000000000 000000000011     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031144 *      031145 *            777777777777 *                *            *            0            0   0   *   

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

*031145  JUMPA	0,031146

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031145 031145 031145 324000031146 777777777777 000000000011     000000000011 000000031143 0            0   0   777 
IT1	*      *      031146 *            324000031146 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031146     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031146 *            000000031146 000000000017     *            000000031146 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0216
INITIAL
C(AC)=000000 000017 E    =000000 031146 
----------

*031146  CAIE	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031146 031146 031146 302400000010 777777777777 000000000017     000000000017 000000031146 0            0   0   777 
IT1	*      *      000010 *            302400000010 *                000000000010 *            0            0   0   *   
ET0	*      *      031147 *            000000000000 000000000010     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031147 *      031150 *            777777777777 *                *            *            0            0   0   *   

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

*031150  JUMPA	0,031151

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031150 031150 031150 324000031151 777777777777 000000000010     000000000010 000000031146 0            0   0   777 
IT1	*      *      031151 *            324000031151 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031151     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031151 *            000000031151 000000000017     *            000000031151 0            0   0   *   

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

*031151  CAIE	7,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031151 031151 031151 302340000007 777777777777 000000000017     000000000017 000000031151 0            0   0   777 
IT1	*      *      000007 *            302340000007 *                000000000007 *            0            0   0   *   
ET0	*      *      031152 *            000000000000 000000000007     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031152 *      031153 *            777777777777 *                *            *            0            0   0   *   

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

*031153  JUMPA	0,031154

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031153 031153 031153 324000031154 777777777777 000000000007     000000000007 000000031151 0            0   0   777 
IT1	*      *      031154 *            324000031154 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031154     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031154 *            000000031154 000000000017     *            000000031154 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000017 E    =000000 031154 
----------
                                                                                                                           SEQ 0217
*031154  CAIE	6,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031154 031154 031154 302300000006 777777777777 000000000017     000000000017 000000031154 0            0   0   777 
IT1	*      *      000006 *            302300000006 *                000000000006 *            0            0   0   *   
ET0	*      *      031155 *            000000000000 000000000006     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031155 *      031156 *            777777777777 *                *            *            0            0   0   *   

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

*031156  JUMPA	0,031157

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031156 031156 031156 324000031157 777777777777 000000000006     000000000006 000000031154 0            0   0   777 
IT1	*      *      031157 *            324000031157 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031157     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031157 *            000000031157 000000000017     *            000000031157 0            0   0   *   

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

*031157  CAIE	5,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031157 031157 031157 302240000005 777777777777 000000000017     000000000017 000000031157 0            0   0   777 
IT1	*      *      000005 *            302240000005 *                000000000005 *            0            0   0   *   
ET0	*      *      031160 *            000000000000 000000000005     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031160 *      031161 *            777777777777 *                *            *            0            0   0   *   

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

*031161  JUMPA	0,031162

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031161 031161 031161 324000031162 777777777777 000000000005     000000000005 000000031157 0            0   0   777 
IT1	*      *      031162 *            324000031162 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031162     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031162 *            000000031162 000000000017     *            000000031162 0            0   0   *   

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

*031162  CAIE	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031162 031162 031162 302200000004 777777777777 000000000017     000000000017 000000031162 0            0   0   77  SEQ 0218
IT1	*      *      000004 *            302200000004 *                000000000004 *            0            0   0   *   
ET0	*      *      031163 *            000000000000 000000000004     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031163 *      031164 *            777777777777 *                *            *            0            0   0   *   

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

*031164  JUMPA	0,031165

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031164 031164 031164 324000031165 777777777777 000000000004     000000000004 000000031162 0            0   0   777 
IT1	*      *      031165 *            324000031165 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031165     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031165 *            000000031165 000000000017     *            000000031165 0            0   0   *   

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

*031165  CAIE	3,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031165 031165 031165 302140000003 777777777777 000000000017     000000000017 000000031165 0            0   0   777 
IT1	*      *      000003 *            302140000003 *                000000000003 *            0            0   0   *   
ET0	*      *      031166 *            000000000000 000000000003     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031166 *      031167 *            777777777777 *                *            *            0            0   0   *   

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

*031167  JUMPA	0,031170

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031167 031167 031167 324000031170 777777777777 000000000003     000000000003 000000031165 0            0   0   777 
IT1	*      *      031170 *            324000031170 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031170     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031170 *            000000031170 000000000017     *            000000031170 0            0   0   *   

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

*031170  CAIE	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031170 031170 031170 302100000002 777777777777 000000000017     000000000017 000000031170 0            0   0   777 
IT1	*      *      000002 *            302100000002 *                000000000002 *            0            0   0   *   
ET0	*      *      031171 *            000000000000 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031171 *      031172 *            777777777777 *                *            *            0            0   0   *   SEQ 0219

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

*031172  JUMPA	0,031173

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031172 031172 031172 324000031173 777777777777 000000000002     000000000002 000000031170 0            0   0   777 
IT1	*      *      031173 *            324000031173 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031173     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031173 *            000000031173 000000000017     *            000000031173 0            0   0   *   

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

*031173  CAIE	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031173 031173 031173 302040000001 777777777777 000000000017     000000000017 000000031173 0            0   0   777 
IT1	*      *      000001 *            302040000001 *                000000000001 *            0            0   0   *   
ET0	*      *      031174 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031174 *      031175 *            777777777777 *                *            *            0            0   0   *   

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

*031175  JUMPA	0,031176

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031175 031175 031175 324000031176 777777777777 000000000001     000000000001 000000031173 0            0   0   777 
IT1	*      *      031176 *            324000031176 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031176     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031176 *            000000031176 000000000017     *            000000031176 0            0   0   *   

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

*031176  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031176 031176 031176 201040000001 777777777777 000000000017     000000000017 000000031176 0            0   0   777 
IT1	*      *      000001 *            201040000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031177 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031177 031177 *      302041000000 777777777777 *                *            *            0            0   0   *   

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

*031177  CAIE	1,000000(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031177 031177 031177 302041000000 777777777777 000000000001     000000000001 000000031176 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            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)=000000 000001 E    =000000 000001 
----------

*031201  JUMPA	0,031202

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031201 031201 031201 324000031202 777777777777 000000000001     000000000001 000000031176 0            0   0   777 
IT1	*      *      031202 *            324000031202 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031202     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031202 *            000000031202 000000000017     *            000000031202 0            0   0   *   

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

*031202  MOVEI	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031202 031202 031202 201100000002 777777777777 000000000017     000000000017 000000031202 0            0   0   777 
IT1	*      *      000002 *            201100000002 *                000000000002 *            0            0   0   *   
ET2	*      *      031203 *            000000000002 000000000002     *            *            0            0   0   *   
ST1	031203 031203 *      302102000000 777777777777 *                *            *            0            0   0   *   

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

*031203  CAIE	2,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031203 031203 031203 302102000000 777777777777 000000000002     000000000002 000000031202 0            0   0   777 
IT1	*      *      000002 *            000000000002 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031204 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031204 *      031205 *            777777777777 *                *            *            0            0   0   *   

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

*031205  JUMPA	0,031206

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031205 031205 031205 324000031206 777777777777 000000000002     000000000002 000000031202 0            0   0   777 
IT1	*      *      031206 *            324000031206 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031206     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031206 *            000000031206 000000000017     *            000000031206 0            0   0   *   

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

*031206  MOVEI	3,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031206 031206 031206 201140000003 777777777777 000000000017     000000000017 000000031206 0            0   0   777 
IT1	*      *      000003 *            201140000003 *                000000000003 *            0            0   0   *   
ET2	*      *      031207 *            000000000003 000000000003     *            *            0            0   0   *   
ST1	031207 031207 *      302143000000 777777777777 *                *            *            0            0   0   *   

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

*031207  CAIE	3,000000(3)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031207 031207 031207 302143000000 777777777777 000000000003     000000000003 000000031206 0            0   0   777 
IT1	*      *      000003 *            000000000003 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031210 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031210 *      031211 *            777777777777 *                *            *            0            0   0   *   

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

*031211  JUMPA	0,031212

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031211 031211 031211 324000031212 777777777777 000000000003     000000000003 000000031206 0            0   0   777 
IT1	*      *      031212 *            324000031212 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031212     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031212 *            000000031212 000000000017     *            000000031212 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000017 E    =000000 031212 
----------
                                                                                                                           SEQ 0222
*031212  MOVEI	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031212 031212 031212 201200000004 777777777777 000000000017     000000000017 000000031212 0            0   0   777 
IT1	*      *      000004 *            201200000004 *                000000000004 *            0            0   0   *   
ET2	*      *      031213 *            000000000004 000000000004     *            *            0            0   0   *   
ST1	031213 031213 *      302204000000 777777777777 *                *            *            0            0   0   *   

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

*031213  CAIE	4,000000(4)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031213 031213 031213 302204000000 777777777777 000000000004     000000000004 000000031212 0            0   0   777 
IT1	*      *      000004 *            000000000004 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031214 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031214 *      031215 *            777777777777 *                *            *            0            0   0   *   

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

*031215  JUMPA	0,031216

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031215 031215 031215 324000031216 777777777777 000000000004     000000000004 000000031212 0            0   0   777 
IT1	*      *      031216 *            324000031216 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031216     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031216 *            000000031216 000000000017     *            000000031216 0            0   0   *   

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

*031216  MOVEI	5,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031216 031216 031216 201240000005 777777777777 000000000017     000000000017 000000031216 0            0   0   777 
IT1	*      *      000005 *            201240000005 *                000000000005 *            0            0   0   *   
ET2	*      *      031217 *            000000000005 000000000005     *            *            0            0   0   *   
ST1	031217 031217 *      302245000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000005 E    =000000 000005 
FINAL
C(AC)=000000 000005 
----------
*031217  CAIE	5,000000(5)                                                                                                SEQ 0223

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031217 031217 031217 302245000000 777777777777 000000000005     000000000005 000000031216 0            0   0   777 
IT1	*      *      000005 *            000000000005 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031220 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031220 *      031221 *            777777777777 *                *            *            0            0   0   *   

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

*031221  JUMPA	0,031222

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031221 031221 031221 324000031222 777777777777 000000000005     000000000005 000000031216 0            0   0   777 
IT1	*      *      031222 *            324000031222 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031222     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031222 *            000000031222 000000000017     *            000000031222 0            0   0   *   

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

*031222  MOVEI	6,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031222 031222 031222 201300000006 777777777777 000000000017     000000000017 000000031222 0            0   0   777 
IT1	*      *      000006 *            201300000006 *                000000000006 *            0            0   0   *   
ET2	*      *      031223 *            000000000006 000000000006     *            *            0            0   0   *   
ST1	031223 031223 *      302306000000 777777777777 *                *            *            0            0   0   *   

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

*031223  CAIE	6,000000(6)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031223 031223 031223 302306000000 777777777777 000000000006     000000000006 000000031222 0            0   0   777 
IT1	*      *      000006 *            000000000006 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            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)=000000 000006 E    =000000 000006 
----------

*031225  JUMPA	0,031226
                                                                                                                           SEQ 0224
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031225 031225 031225 324000031226 777777777777 000000000006     000000000006 000000031222 0            0   0   777 
IT1	*      *      031226 *            324000031226 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031226     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031226 *            000000031226 000000000017     *            000000031226 0            0   0   *   

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

*031226  MOVEI	7,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031226 031226 031226 201340000007 777777777777 000000000017     000000000017 000000031226 0            0   0   777 
IT1	*      *      000007 *            201340000007 *                000000000007 *            0            0   0   *   
ET2	*      *      031227 *            000000000007 000000000007     *            *            0            0   0   *   
ST1	031227 031227 *      302347000000 777777777777 *                *            *            0            0   0   *   

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

*031227  CAIE	7,000000(7)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031227 031227 031227 302347000000 777777777777 000000000007     000000000007 000000031226 0            0   0   777 
IT1	*      *      000007 *            000000000007 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031230 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031230 *      031231 *            777777777777 *                *            *            0            0   0   *   

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

*031231  JUMPA	0,031232

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031231 031231 031231 324000031232 777777777777 000000000007     000000000007 000000031226 0            0   0   777 
IT1	*      *      031232 *            324000031232 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031232     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031232 *            000000031232 000000000017     *            000000031232 0            0   0   *   

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

*031232  MOVEI	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031232 031232 031232 201400000010 777777777777 000000000017     000000000017 000000031232 0            0   0   77  SEQ 0225
IT1	*      *      000010 *            201400000010 *                000000000010 *            0            0   0   *   
ET2	*      *      031233 *            000000000010 000000000010     *            *            0            0   0   *   
ST1	031233 031233 *      302410000000 777777777777 *                *            *            0            0   0   *   

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

*031233  CAIE	10,000000(10)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031233 031233 031233 302410000000 777777777777 000000000010     000000000010 000000031232 0            0   0   777 
IT1	*      *      000010 *            000000000010 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031234 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031234 *      031235 *            777777777777 *                *            *            0            0   0   *   

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

*031235  JUMPA	0,031236

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031235 031235 031235 324000031236 777777777777 000000000010     000000000010 000000031232 0            0   0   777 
IT1	*      *      031236 *            324000031236 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031236     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031236 *            000000031236 000000000017     *            000000031236 0            0   0   *   

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

*031236  MOVEI	11,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031236 031236 031236 201440000011 777777777777 000000000017     000000000017 000000031236 0            0   0   777 
IT1	*      *      000011 *            201440000011 *                000000000011 *            0            0   0   *   
ET2	*      *      031237 *            000000000011 000000000011     *            *            0            0   0   *   
ST1	031237 031237 *      302451000000 777777777777 *                *            *            0            0   0   *   

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

*031237  CAIE	11,000000(11)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031237 031237 031237 302451000000 777777777777 000000000011     000000000011 000000031236 0            0   0   777 
IT1	*      *      000011 *            000000000011 *                *            *            0            0   0   *   SEQ 0226
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031240 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031240 *      031241 *            777777777777 *                *            *            0            0   0   *   

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

*031241  JUMPA	0,031242

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031241 031241 031241 324000031242 777777777777 000000000011     000000000011 000000031236 0            0   0   777 
IT1	*      *      031242 *            324000031242 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031242     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031242 *            000000031242 000000000017     *            000000031242 0            0   0   *   

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

*031242  MOVEI	12,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031242 031242 031242 201500000012 777777777777 000000000017     000000000017 000000031242 0            0   0   777 
IT1	*      *      000012 *            201500000012 *                000000000012 *            0            0   0   *   
ET2	*      *      031243 *            000000000012 000000000012     *            *            0            0   0   *   
ST1	031243 031243 *      302512000000 777777777777 *                *            *            0            0   0   *   

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

*031243  CAIE	12,000000(12)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031243 031243 031243 302512000000 777777777777 000000000012     000000000012 000000031242 0            0   0   777 
IT1	*      *      000012 *            000000000012 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031244 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031244 *      031245 *            777777777777 *                *            *            0            0   0   *   

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

*031245  JUMPA	0,031246

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031245 031245 031245 324000031246 777777777777 000000000012     000000000012 000000031242 0            0   0   777 
IT1	*      *      031246 *            324000031246 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031246     *            *            0            0   0   *   SEQ 0227
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031246 *            000000031246 000000000017     *            000000031246 0            0   0   *   

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

*031246  MOVEI	13,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031246 031246 031246 201540000013 777777777777 000000000017     000000000017 000000031246 0            0   0   777 
IT1	*      *      000013 *            201540000013 *                000000000013 *            0            0   0   *   
ET2	*      *      031247 *            000000000013 000000000013     *            *            0            0   0   *   
ST1	031247 031247 *      302553000000 777777777777 *                *            *            0            0   0   *   

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

*031247  CAIE	13,000000(13)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031247 031247 031247 302553000000 777777777777 000000000013     000000000013 000000031246 0            0   0   777 
IT1	*      *      000013 *            000000000013 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031250 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031250 *      031251 *            777777777777 *                *            *            0            0   0   *   

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

*031251  JUMPA	0,031252

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031251 031251 031251 324000031252 777777777777 000000000013     000000000013 000000031246 0            0   0   777 
IT1	*      *      031252 *            324000031252 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031252     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031252 *            000000031252 000000000017     *            000000031252 0            0   0   *   

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

*031252  MOVEI	14,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031252 031252 031252 201600000014 777777777777 000000000017     000000000017 000000031252 0            0   0   777 
IT1	*      *      000014 *            201600000014 *                000000000014 *            0            0   0   *   
ET2	*      *      031253 *            000000000014 000000000014     *            *            0            0   0   *   
ST1	031253 031253 *      302614000000 777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0228
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000014 E    =000000 000014 
FINAL
C(AC)=000000 000014 
----------

*031253  CAIE	14,000000(14)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031253 031253 031253 302614000000 777777777777 000000000014     000000000014 000000031252 0            0   0   777 
IT1	*      *      000014 *            000000000014 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031254 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031254 *      031255 *            777777777777 *                *            *            0            0   0   *   

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

*031255  JUMPA	0,031256

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031255 031255 031255 324000031256 777777777777 000000000014     000000000014 000000031252 0            0   0   777 
IT1	*      *      031256 *            324000031256 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031256     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031256 *            000000031256 000000000017     *            000000031256 0            0   0   *   

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

*031256  MOVEI	15,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031256 031256 031256 201640000015 777777777777 000000000017     000000000017 000000031256 0            0   0   777 
IT1	*      *      000015 *            201640000015 *                000000000015 *            0            0   0   *   
ET2	*      *      031257 *            000000000015 000000000015     *            *            0            0   0   *   
ST1	031257 031257 *      302655000000 777777777777 *                *            *            0            0   0   *   

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

*031257  CAIE	15,000000(15)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031257 031257 031257 302655000000 777777777777 000000000015     000000000015 000000031256 0            0   0   777 
IT1	*      *      000015 *            000000000015 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031260 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031260 *      031261 *            777777777777 *                *            *            0            0   0   *   SEQ 0229

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

*031261  JUMPA	0,031262

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031261 031261 031261 324000031262 777777777777 000000000015     000000000015 000000031256 0            0   0   777 
IT1	*      *      031262 *            324000031262 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031262     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031262 *            000000031262 000000000017     *            000000031262 0            0   0   *   

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

*031262  MOVEI	16,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031262 031262 031262 201700000016 777777777777 000000000017     000000000017 000000031262 0            0   0   777 
IT1	*      *      000016 *            201700000016 *                000000000016 *            0            0   0   *   
ET2	*      *      031263 *            000000000016 000000000016     *            *            0            0   0   *   
ST1	031263 031263 *      302716000000 777777777777 *                *            *            0            0   0   *   

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

*031263  CAIE	16,000000(16)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031263 031263 031263 302716000000 777777777777 000000000016     000000000016 000000031262 0            0   0   777 
IT1	*      *      000016 *            000000000016 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031264 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031264 *      031265 *            777777777777 *                *            *            0            0   0   *   

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

*031265  JUMPA	0,031266

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031265 031265 031265 324000031266 777777777777 000000000016     000000000016 000000031262 0            0   0   777 
IT1	*      *      031266 *            324000031266 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031266     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031266 *            000000031266 000000000017     *            000000031266 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0230
INITIAL
C(AC)=000000 000017 E    =000000 031266 
----------

*031266  MOVEI	17,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031266 031266 031266 201740000017 777777777777 000000000017     000000000017 000000031266 0            0   0   777 
IT1	*      *      000017 *            201740000017 *                *            *            0            0   0   *   
ET2	*      *      031267 *            000000000017 *                *            *            0            0   0   *   
ST1	031267 031267 *      302757000000 777777777777 *                *            *            0            0   0   *   

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

*031267  CAIE	17,000000(17)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031267 031267 031267 302757000000 777777777777 000000000017     000000000017 000000031266 0            0   0   777 
IT1	*      *      000017 *            000000000017 *                *            *            0            0   0   *   
FT6	*      *      *      *            *            *                *            *            0            0   0   *   
ET0	*      *      031270 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031270 *      031271 *            777777777777 *                *            *            0            0   0   *   

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

*031271  JUMPA	0,031272

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031271 031271 031271 324000031272 777777777777 000000000017     000000000017 000000031266 0            0   0   777 
IT1	*      *      031272 *            324000031272 *                *            *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031272     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031272 *            000000031272 000000000017     *            000000031272 0            0   0   *   

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

*031272  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031272 031272 031272 201040000001 777777777777 000000000017     000000000017 000000031272 0            0   0   777 
IT1	*      *      000001 *            201040000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031273 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031273 031273 *      505040000001 777777777777 *                *            *            0            0   0   *   

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

*031273  HRLI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031273 031273 031273 505040000001 777777777777 000000000001     000000000001 000000031272 0            0   0   777 
IT1	*      *      000001 *            505040000001 *                *            *            0            0   0   *   
ET2	*      *      031274 *            777777000001 *                *            *            0            0   0   *   
ST1	031274 031274 *      312041000000 777777777777 000001000001     000001000001 *            0            0   0   *   

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

*031274  CAME	1,000000(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031274 031274 031274 312041000000 777777777777 000001000001     000001000001 000000031272 0            0   0   777 
IT1	*      *      000001 *            000001000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000001000001     *            *            0            0   0   *   
ET0	*      *      031275 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031275 *      031276 *            777777777777 *                *            *            0            0   0   *   

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

*031276  JUMPA	0,031277

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031276 031276 031276 324000031277 777777777777 000001000001     000001000001 000000031272 0            0   0   777 
IT1	*      *      031277 *            324000031277 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031277     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031277 *            000000031277 000000000017     *            000000031277 0            0   0   *   

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

*031277  MOVEI	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031277 031277 031277 201100000002 777777777777 000000000017     000000000017 000000031277 0            0   0   777 
IT1	*      *      000002 *            201100000002 *                000000000002 *            0            0   0   *   
ET2	*      *      031300 *            000000000002 000000000002     *            *            0            0   0   *   
ST1	031300 031300 *      505100000002 777777777777 *                *            *            0            0   0   *   

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

*031300  HRLI	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031300 031300 031300 505100000002 777777777777 000000000002     000000000002 000000031277 0            0   0   777 
IT1	*      *      000002 *            505100000002 *                *            *            0            0   0   *   
ET2	*      *      031301 *            777777000002 *                *            *            0            0   0   *   
ST1	031301 031301 *      312102000000 777777777777 000002000002     000002000002 *            0            0   0   *   

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

*031301  CAME	2,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031301 031301 031301 312102000000 777777777777 000002000002     000002000002 000000031277 0            0   0   777 
IT1	*      *      000002 *            000002000002 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 000002000002     *            *            0            0   0   *   
ET0	*      *      031302 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031302 *      031303 *            777777777777 *                *            *            0            0   0   *   

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

*031303  JUMPA	0,031304

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031303 031303 031303 324000031304 777777777777 000002000002     000002000002 000000031277 0            0   0   777 
IT1	*      *      031304 *            324000031304 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031304     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031304 *            000000031304 000000000017     *            000000031304 0            0   0   *   

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

*031304  MOVEI	3,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031304 031304 031304 201140000003 777777777777 000000000017     000000000017 000000031304 0            0   0   777 
IT1	*      *      000003 *            201140000003 *                000000000003 *            0            0   0   *   
ET2	*      *      031305 *            000000000003 000000000003     *            *            0            0   0   *   
ST1	031305 031305 *      505140000003 777777777777 *                *            *            0            0   0   *   

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

*031305  HRLI	3,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031305 031305 031305 505140000003 777777777777 000000000003     000000000003 000000031304 0            0   0   777 
IT1	*      *      000003 *            505140000003 *                *            *            0            0   0   *   
ET2	*      *      031306 *            777777000003 *                *            *            0            0   0   *   
ST1	031306 031306 *      312143000000 777777777777 000003000003     000003000003 *            0            0   0   *   

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

*031306  CAME	3,000000(3)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031306 031306 031306 312143000000 777777777777 000003000003     000003000003 000000031304 0            0   0   777 
IT1	*      *      000003 *            000003000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 *      *            777777777777 000003000003     *            *            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)=000003 000003 C(E) =000003 000003 
----------

*031310  JUMPA	0,031311

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031310 031310 031310 324000031311 777777777777 000003000003     000003000003 000000031304 0            0   0   777 
IT1	*      *      031311 *            324000031311 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031311     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031311 *            000000031311 000000000017     *            000000031311 0            0   0   *   

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

*031311  MOVEI	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031311 031311 031311 201200000004 777777777777 000000000017     000000000017 000000031311 0            0   0   777 
IT1	*      *      000004 *            201200000004 *                000000000004 *            0            0   0   *   
ET2	*      *      031312 *            000000000004 000000000004     *            *            0            0   0   *   
ST1	031312 031312 *      505200000004 777777777777 *                *            *            0            0   0   *   

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

*031312  HRLI	4,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031312 031312 031312 505200000004 777777777777 000000000004     000000000004 000000031311 0            0   0   777 
IT1	*      *      000004 *            505200000004 *                *            *            0            0   0   *   
ET2	*      *      031313 *            777777000004 *                *            *            0            0   0   *   
ST1	031313 031313 *      312204000000 777777777777 000004000004     000004000004 *            0            0   0   *   

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

*031313  CAME	4,000000(4)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031313 031313 031313 312204000000 777777777777 000004000004     000004000004 000000031311 0            0   0   777 
IT1	*      *      000004 *            000004000004 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 000004000004     *            *            0            0   0   *   
ET0	*      *      031314 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031314 *      031315 *            777777777777 *                *            *            0            0   0   *   

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

*031315  JUMPA	0,031316

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031315 031315 031315 324000031316 777777777777 000004000004     000004000004 000000031311 0            0   0   777 
IT1	*      *      031316 *            324000031316 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031316     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031316 *            000000031316 000000000017     *            000000031316 0            0   0   *   

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

*031316  MOVEI	5,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031316 031316 031316 201240000005 777777777777 000000000017     000000000017 000000031316 0            0   0   777 
IT1	*      *      000005 *            201240000005 *                000000000005 *            0            0   0   *   
ET2	*      *      031317 *            000000000005 000000000005     *            *            0            0   0   *   
ST1	031317 031317 *      505240000005 777777777777 *                *            *            0            0   0   *   

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

*031317  HRLI	5,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031317 031317 031317 505240000005 777777777777 000000000005     000000000005 000000031316 0            0   0   777 
IT1	*      *      000005 *            505240000005 *                *            *            0            0   0   *   
ET2	*      *      031320 *            777777000005 *                *            *            0            0   0   *   
ST1	031320 031320 *      312245000000 777777777777 000005000005     000005000005 *            0            0   0   *   

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

*031320  CAME	5,000000(5)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031320 031320 031320 312245000000 777777777777 000005000005     000005000005 000000031316 0            0   0   777 
IT1	*      *      000005 *            000005000005 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000005000005     *            *            0            0   0   *   
ET0	*      *      031321 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031321 *      031322 *            777777777777 *                *            *            0            0   0   *   

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

*031322  JUMPA	0,031323

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031322 031322 031322 324000031323 777777777777 000005000005     000005000005 000000031316 0            0   0   777 
IT1	*      *      031323 *            324000031323 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031323     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031323 *            000000031323 000000000017     *            000000031323 0            0   0   *   

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

*031323  MOVEI	6,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031323 031323 031323 201300000006 777777777777 000000000017     000000000017 000000031323 0            0   0   777 
IT1	*      *      000006 *            201300000006 *                000000000006 *            0            0   0   *   
ET2	*      *      031324 *            000000000006 000000000006     *            *            0            0   0   *   
ST1	031324 031324 *      505300000006 777777777777 *                *            *            0            0   0   *   

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

*031324  HRLI	6,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031324 031324 031324 505300000006 777777777777 000000000006     000000000006 000000031323 0            0   0   777 
IT1	*      *      000006 *            505300000006 *                *            *            0            0   0   *   
ET2	*      *      031325 *            777777000006 *                *            *            0            0   0   *   
ST1	031325 031325 *      312306000000 777777777777 000006000006     000006000006 *            0            0   0   *   

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

*031325  CAME	6,000000(6)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031325 031325 031325 312306000000 777777777777 000006000006     000006000006 000000031323 0            0   0   777 
IT1	*      *      000006 *            000006000006 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 000006000006     *            *            0            0   0   *   
ET0	*      *      031326 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031326 *      031327 *            777777777777 *                *            *            0            0   0   *   

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

*031327  JUMPA	0,031330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031327 031327 031327 324000031330 777777777777 000006000006     000006000006 000000031323 0            0   0   777 
IT1	*      *      031330 *            324000031330 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031330     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031330 *            000000031330 000000000017     *            000000031330 0            0   0   *   

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

*031330  MOVEI	7,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031330 031330 031330 201340000007 777777777777 000000000017     000000000017 000000031330 0            0   0   777 
IT1	*      *      000007 *            201340000007 *                000000000007 *            0            0   0   *   
ET2	*      *      031331 *            000000000007 000000000007     *            *            0            0   0   *   
ST1	031331 031331 *      505340000007 777777777777 *                *            *            0            0   0   *   

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

*031331  HRLI	7,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031331 031331 031331 505340000007 777777777777 000000000007     000000000007 000000031330 0            0   0   777 
IT1	*      *      000007 *            505340000007 *                *            *            0            0   0   *   
ET2	*      *      031332 *            777777000007 *                *            *            0            0   0   *   
ST1	031332 031332 *      312347000000 777777777777 000007000007     000007000007 *            0            0   0   *   

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

*031332  CAME	7,000000(7)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031332 031332 031332 312347000000 777777777777 000007000007     000007000007 000000031330 0            0   0   777 
IT1	*      *      000007 *            000007000007 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 000007000007     *            *            0            0   0   *   
ET0	*      *      031333 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031333 *      031334 *            777777777777 *                *            *            0            0   0   *   

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

*031334  JUMPA	0,031335

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031334 031334 031334 324000031335 777777777777 000007000007     000007000007 000000031330 0            0   0   777 
IT1	*      *      031335 *            324000031335 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031335     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031335 *            000000031335 000000000017     *            000000031335 0            0   0   *   

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

*031335  MOVEI	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031335 031335 031335 201400000010 777777777777 000000000017     000000000017 000000031335 0            0   0   777 
IT1	*      *      000010 *            201400000010 *                000000000010 *            0            0   0   *   
ET2	*      *      031336 *            000000000010 000000000010     *            *            0            0   0   *   
ST1	031336 031336 *      505400000010 777777777777 *                *            *            0            0   0   *   

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

*031336  HRLI	10,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031336 031336 031336 505400000010 777777777777 000000000010     000000000010 000000031335 0            0   0   777 
IT1	*      *      000010 *            505400000010 *                *            *            0            0   0   *   
ET2	*      *      031337 *            777777000010 *                *            *            0            0   0   *   
ST1	031337 031337 *      312410000000 777777777777 000010000010     000010000010 *            0            0   0   *   

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

*031337  CAME	10,000000(10)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031337 031337 031337 312410000000 777777777777 000010000010     000010000010 000000031335 0            0   0   777 
IT1	*      *      000010 *            000010000010 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     *            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 000010000010     *            *            0            0   0   *   
ET0	*      *      031340 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031340 *      031341 *            777777777777 *                *            *            0            0   0   *   

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

*031341  JUMPA	0,031342

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031341 031341 031341 324000031342 777777777777 000010000010     000010000010 000000031335 0            0   0   777 
IT1	*      *      031342 *            324000031342 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031342     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031342 *            000000031342 000000000017     *            000000031342 0            0   0   *   

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

*031342  MOVEI	11,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031342 031342 031342 201440000011 777777777777 000000000017     000000000017 000000031342 0            0   0   777 
IT1	*      *      000011 *            201440000011 *                000000000011 *            0            0   0   *   
ET2	*      *      031343 *            000000000011 000000000011     *            *            0            0   0   *   
ST1	031343 031343 *      505440000011 777777777777 *                *            *            0            0   0   *   

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

*031343  HRLI	11,000011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031343 031343 031343 505440000011 777777777777 000000000011     000000000011 000000031342 0            0   0   777 
IT1	*      *      000011 *            505440000011 *                *            *            0            0   0   *   
ET2	*      *      031344 *            777777000011 *                *            *            0            0   0   *   
ST1	031344 031344 *      312451000000 777777777777 000011000011     000011000011 *            0            0   0   *   

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

*031344  CAME	11,000000(11)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031344 031344 031344 312451000000 777777777777 000011000011     000011000011 000000031342 0            0   0   777 
IT1	*      *      000011 *            000011000011 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000011     *            *            0            0   0   *   
FT6	*      000011 *      *            777777777777 000011000011     *            *            0            0   0   *   
ET0	*      *      031345 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031345 *      031346 *            777777777777 *                *            *            0            0   0   *   

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

*031346  JUMPA	0,031347

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031346 031346 031346 324000031347 777777777777 000011000011     000011000011 000000031342 0            0   0   777 
IT1	*      *      031347 *            324000031347 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031347     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031347 *            000000031347 000000000017     *            000000031347 0            0   0   *   

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

*031347  MOVEI	12,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031347 031347 031347 201500000012 777777777777 000000000017     000000000017 000000031347 0            0   0   777 
IT1	*      *      000012 *            201500000012 *                000000000012 *            0            0   0   *   
ET2	*      *      031350 *            000000000012 000000000012     *            *            0            0   0   *   
ST1	031350 031350 *      505500000012 777777777777 *                *            *            0            0   0   *   

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

*031350  HRLI	12,000012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031350 031350 031350 505500000012 777777777777 000000000012     000000000012 000000031347 0            0   0   777 
IT1	*      *      000012 *            505500000012 *                *            *            0            0   0   *   
ET2	*      *      031351 *            777777000012 *                *            *            0            0   0   *   
ST1	031351 031351 *      312512000000 777777777777 000012000012     000012000012 *            0            0   0   *   

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

*031351  CAME	12,000000(12)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031351 031351 031351 312512000000 777777777777 000012000012     000012000012 000000031347 0            0   0   777 
IT1	*      *      000012 *            000012000012 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000012     *            *            0            0   0   *   
FT6	*      000012 *      *            777777777777 000012000012     *            *            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)=000012 000012 C(E) =000012 000012 
----------

*031353  JUMPA	0,031354

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031353 031353 031353 324000031354 777777777777 000012000012     000012000012 000000031347 0            0   0   777 
IT1	*      *      031354 *            324000031354 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031354     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031354 *            000000031354 000000000017     *            000000031354 0            0   0   *   

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

*031354  MOVEI	13,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031354 031354 031354 201540000013 777777777777 000000000017     000000000017 000000031354 0            0   0   777 
IT1	*      *      000013 *            201540000013 *                000000000013 *            0            0   0   *   
ET2	*      *      031355 *            000000000013 000000000013     *            *            0            0   0   *   
ST1	031355 031355 *      505540000013 777777777777 *                *            *            0            0   0   *   

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

*031355  HRLI	13,000013

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031355 031355 031355 505540000013 777777777777 000000000013     000000000013 000000031354 0            0   0   777 
IT1	*      *      000013 *            505540000013 *                *            *            0            0   0   *   
ET2	*      *      031356 *            777777000013 *                *            *            0            0   0   *   
ST1	031356 031356 *      312553000000 777777777777 000013000013     000013000013 *            0            0   0   *   

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

*031356  CAME	13,000000(13)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031356 031356 031356 312553000000 777777777777 000013000013     000013000013 000000031354 0            0   0   777 
IT1	*      *      000013 *            000013000013 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000013     *            *            0            0   0   *   
FT6	*      000013 *      *            777777777777 000013000013     *            *            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)=000013 000013 C(E) =000013 000013 
----------

*031360  JUMPA	0,031361

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

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

*031361  MOVEI	14,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031361 031361 031361 201600000014 777777777777 000000000017     000000000017 000000031361 0            0   0   777 
IT1	*      *      000014 *            201600000014 *                000000000014 *            0            0   0   *   
ET2	*      *      031362 *            000000000014 000000000014     *            *            0            0   0   *   
ST1	031362 031362 *      505600000014 777777777777 *                *            *            0            0   0   *   

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

*031362  HRLI	14,000014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031362 031362 031362 505600000014 777777777777 000000000014     000000000014 000000031361 0            0   0   777 
IT1	*      *      000014 *            505600000014 *                *            *            0            0   0   *   
ET2	*      *      031363 *            777777000014 *                *            *            0            0   0   *   
ST1	031363 031363 *      312614000000 777777777777 000014000014     000014000014 *            0            0   0   *   

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

*031363  CAME	14,000000(14)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031363 031363 031363 312614000000 777777777777 000014000014     000014000014 000000031361 0            0   0   777 
IT1	*      *      000014 *            000014000014 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000014     *            *            0            0   0   *   
FT6	*      000014 *      *            777777777777 000014000014     *            *            0            0   0   *   
ET0	*      *      031364 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031364 *      031365 *            777777777777 *                *            *            0            0   0   *   

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

*031365  JUMPA	0,031366

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031365 031365 031365 324000031366 777777777777 000014000014     000014000014 000000031361 0            0   0   777 
IT1	*      *      031366 *            324000031366 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031366     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031366 *            000000031366 000000000017     *            000000031366 0            0   0   *   

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

*031366  MOVEI	15,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031366 031366 031366 201640000015 777777777777 000000000017     000000000017 000000031366 0            0   0   777 
IT1	*      *      000015 *            201640000015 *                000000000015 *            0            0   0   *   
ET2	*      *      031367 *            000000000015 000000000015     *            *            0            0   0   *   
ST1	031367 031367 *      505640000015 777777777777 *                *            *            0            0   0   *   

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

*031367  HRLI	15,000015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031367 031367 031367 505640000015 777777777777 000000000015     000000000015 000000031366 0            0   0   777 
IT1	*      *      000015 *            505640000015 *                *            *            0            0   0   *   
ET2	*      *      031370 *            777777000015 *                *            *            0            0   0   *   
ST1	031370 031370 *      312655000000 777777777777 000015000015     000015000015 *            0            0   0   *   

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

*031370  CAME	15,000000(15)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031370 031370 031370 312655000000 777777777777 000015000015     000015000015 000000031366 0            0   0   777 
IT1	*      *      000015 *            000015000015 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000015     *            *            0            0   0   *   
FT6	*      000015 *      *            777777777777 000015000015     *            *            0            0   0   *   
ET0	*      *      031371 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031371 *      031372 *            777777777777 *                *            *            0            0   0   *   

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

*031372  JUMPA	0,031373

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031372 031372 031372 324000031373 777777777777 000015000015     000015000015 000000031366 0            0   0   777 
IT1	*      *      031373 *            324000031373 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031373     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031373 *            000000031373 000000000017     *            000000031373 0            0   0   *   

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

*031373  MOVEI	16,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031373 031373 031373 201700000016 777777777777 000000000017     000000000017 000000031373 0            0   0   777 
IT1	*      *      000016 *            201700000016 *                000000000016 *            0            0   0   *   
ET2	*      *      031374 *            000000000016 000000000016     *            *            0            0   0   *   
ST1	031374 031374 *      505700000016 777777777777 *                *            *            0            0   0   *   

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

*031374  HRLI	16,000016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031374 031374 031374 505700000016 777777777777 000000000016     000000000016 000000031373 0            0   0   777 
IT1	*      *      000016 *            505700000016 *                *            *            0            0   0   *   
ET2	*      *      031375 *            777777000016 *                *            *            0            0   0   *   
ST1	031375 031375 *      312716000000 777777777777 000016000016     000016000016 *            0            0   0   *   

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

*031375  CAME	16,000000(16)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031375 031375 031375 312716000000 777777777777 000016000016     000016000016 000000031373 0            0   0   777 
IT1	*      *      000016 *            000016000016 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000016     *            *            0            0   0   *   
FT6	*      000016 *      *            777777777777 000016000016     *            *            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)=000016 000016 C(E) =000016 000016 
----------

*031377  JUMPA	0,031400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031377 031377 031377 324000031400 777777777777 000016000016     000016000016 000000031373 0            0   0   777 
IT1	*      *      031400 *            324000031400 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031400     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031400 *            000000031400 000000000017     *            000000031400 0            0   0   *   

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

*031400  MOVEI	17,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031400 031400 031400 201740000017 777777777777 000000000017     000000000017 000000031400 0            0   0   777 
IT1	*      *      000017 *            201740000017 *                *            *            0            0   0   *   
ET2	*      *      031401 *            000000000017 *                *            *            0            0   0   *   
ST1	031401 031401 *      505740000017 777777777777 *                *            *            0            0   0   *   

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

*031401  HRLI	17,000017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031401 031401 031401 505740000017 777777777777 000000000017     000000000017 000000031400 0            0   0   777 
IT1	*      *      000017 *            505740000017 *                *            *            0            0   0   *   
ET2	*      *      031402 *            777777000017 *                *            *            0            0   0   *   
ST1	031402 031402 *      312757000000 777777777777 000017000017     000017000017 *            0            0   0   *   

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

*031402  CAME	17,000000(17)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031402 031402 031402 312757000000 777777777777 000017000017     000017000017 000000031400 0            0   0   777 
IT1	*      *      000017 *            000017000017 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000017     *            *            0            0   0   *   
FT6	*      000017 *      *            777777777777 000017000017     *            *            0            0   0   *   
ET0	*      *      031403 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031403 *      031404 *            777777777777 *                *            *            0            0   0   *   

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

*031404  JUMPA	0,031405

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031404 031404 031404 324000031405 777777777777 000017000017     000017000017 000000031400 0            0   0   777 
IT1	*      *      031405 *            324000031405 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031405     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031405 *            000000031405 000000000017     *            000000031405 0            0   0   *   

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

*031405  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031405 031405 031405 476000000003 777777777777 000000000017     000000000017 000000031405 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031406 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000003000003 *            0            0   0   *   
ST5	031406 031406 *      402000000001 *            *                000000000017 *            0            0   0   *   
                                                                                                                           SEQ 0246
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000017 C(E) =000003 000003 
FINAL
C(E) =777777 777777 
----------

*031406  SETZM	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031406 031406 031406 402000000001 777777777777 777777777777     000000000017 000000031405 0            0   0   777 
IT1	*      *      000001 *            402000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031407 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                000001000001 *            0            0   0   *   
ST5	031407 031407 *      201100000001 *            0                000000000017 *            0            0   0   *   

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

*031407  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031407 031407 031407 201100000001 777777777777 0                000000000017 000000031405 0            0   0   777 
IT1	*      *      000001 *            201100000001 0                000002000002 *            0            0   0   *   
ET2	*      *      031410 *            000002000002 000000000001     *            *            0            0   0   *   
ST1	031410 031410 *      200142000000 777777777777 *                000000000001 *            0            0   0   *   

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

*031410  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031410 031410 031410 200142000000 777777777777 000000000001     000000000001 000000031405 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031411 031411 031411 332000000003 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            0                000000000000 *            0            0   0   *   

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

*031411  SKIPE	0,000003
                                                                                                                           SEQ 0247
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031411 031411 031411 332000000003 777777777777 0                0            000000031405 0            0   0   777 
IT1	*      *      000003 *            332000000003 0                000000000017 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      031412 *            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      *            0            0                *            *            0            0   0   *   
ST1	031412 *      031413 *            777777777777 0                *            *            0            0   0   *   

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

*031413  JUMPA	0,031414

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

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

*031414  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031414 031414 031414 476000000003 777777777777 000000000017     000000000017 000000031414 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031415 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000000 *            0            0   0   *   
ST5	031415 031415 *      201040000001 *            *                000000000017 *            0            0   0   *   

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

*031415  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031415 031415 031415 201040000001 777777777777 777777777777     000000000017 000000031414 0            0   0   777 
IT1	*      *      000001 *            201040000001 *                000000000000 *            0            0   0   *   
ET2	*      *      031416 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031416 031416 *      201100000001 777777777777 *                000000000001 *            0            0   0   *   

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

*031416  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031416 031416 031416 201100000001 777777777777 000000000001     000000000001 000000031414 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                *            *            0            0   0   *   
ET2	*      *      031417 *            000000000001 *                *            *            0            0   0   *   
ST1	031417 031417 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031417  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031417 031417 031417 200142000000 777777777777 000000000001     000000000001 000000031414 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031420 031420 031420 302140000001 777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000001 *            0            0   0   *   

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

*031420  CAIE	3,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031420 031420 031420 302140000001 777777777777 000000000001     000000000001 000000031414 0            0   0   777 
IT1	*      *      000001 *            302140000001 *                *            *            0            0   0   *   
ET0	*      *      031421 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031421 *      031422 *            777777777777 *                *            *            0            0   0   *   

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

*031422  JUMPA	0,031423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031422 031422 031422 324000031423 777777777777 000000000001     000000000001 000000031414 0            0   0   777 
IT1	*      *      031423 *            324000031423 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031423     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031423 *            000000031423 000000000017     *            000000031423 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0249
INITIAL
C(AC)=000000 000017 E    =000000 031423 
----------

*031423  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031423 031423 031423 476000000003 777777777777 000000000017     000000000017 000000031423 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031424 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000001 *            0            0   0   *   
ST5	031424 031424 *      201040000002 *            *                000000000017 *            0            0   0   *   

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

*031424  MOVEI	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031424 031424 031424 201040000002 777777777777 777777777777     000000000017 000000031423 0            0   0   777 
IT1	*      *      000002 *            201040000002 *                000000000001 *            0            0   0   *   
ET2	*      *      031425 *            000000000001 000000000002     *            *            0            0   0   *   
ST1	031425 031425 *      201100000001 777777777777 *                000000000002 *            0            0   0   *   

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

*031425  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031425 031425 031425 201100000001 777777777777 000000000002     000000000002 000000031423 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031426 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031426 031426 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031426  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031426 031426 031426 200142000000 777777777777 000000000001     000000000001 000000031423 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031427 031427 031427 302140000002 777777777777 000000000002     *            *            0            0   0   *   SEQ 0250
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000002 *            0            0   0   *   

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

*031427  CAIE	3,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031427 031427 031427 302140000002 777777777777 000000000002     000000000002 000000031423 0            0   0   777 
IT1	*      *      000002 *            302140000002 *                *            *            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)=000000 000002 E    =000000 000002 
----------

*031431  JUMPA	0,031432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031431 031431 031431 324000031432 777777777777 000000000002     000000000002 000000031423 0            0   0   777 
IT1	*      *      031432 *            324000031432 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031432     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031432 *            000000031432 000000000017     *            000000031432 0            0   0   *   

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

*031432  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031432 031432 031432 476000000003 777777777777 000000000017     000000000017 000000031432 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031433 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000002 *            0            0   0   *   
ST5	031433 031433 *      201040000004 *            *                000000000017 *            0            0   0   *   

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

*031433  MOVEI	1,000004
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0251
IT0	031433 031433 031433 201040000004 777777777777 777777777777     000000000017 000000031432 0            0   0   777 
IT1	*      *      000004 *            201040000004 *                000000000002 *            0            0   0   *   
ET2	*      *      031434 *            000000000002 000000000004     *            *            0            0   0   *   
ST1	031434 031434 *      201100000001 777777777777 *                000000000004 *            0            0   0   *   

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

*031434  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031434 031434 031434 201100000001 777777777777 000000000004     000000000004 000000031432 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031435 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031435 031435 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031435  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031435 031435 031435 200142000000 777777777777 000000000001     000000000001 000000031432 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031436 031436 031436 302140000004 777777777777 000000000004     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000004 *            0            0   0   *   

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

*031436  CAIE	3,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031436 031436 031436 302140000004 777777777777 000000000004     000000000004 000000031432 0            0   0   777 
IT1	*      *      000004 *            302140000004 *                *            *            0            0   0   *   
ET0	*      *      031437 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031437 *      031440 *            777777777777 *                *            *            0            0   0   *   

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

*031440  JUMPA	0,031441
                                                                                                                           SEQ 0252
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031440 031440 031440 324000031441 777777777777 000000000004     000000000004 000000031432 0            0   0   777 
IT1	*      *      031441 *            324000031441 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031441     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031441 *            000000031441 000000000017     *            000000031441 0            0   0   *   

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

*031441  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031441 031441 031441 476000000003 777777777777 000000000017     000000000017 000000031441 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031442 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000004 *            0            0   0   *   
ST5	031442 031442 *      201040000010 *            *                000000000017 *            0            0   0   *   

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

*031442  MOVEI	1,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031442 031442 031442 201040000010 777777777777 777777777777     000000000017 000000031441 0            0   0   777 
IT1	*      *      000010 *            201040000010 *                000000000004 *            0            0   0   *   
ET2	*      *      031443 *            000000000004 000000000010     *            *            0            0   0   *   
ST1	031443 031443 *      201100000001 777777777777 *                000000000010 *            0            0   0   *   

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

*031443  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031443 031443 031443 201100000001 777777777777 000000000010     000000000010 000000031441 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031444 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031444 031444 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031444  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031444 031444 031444 200142000000 777777777777 000000000001     000000000001 000000031441 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031445 031445 031445 302140000010 777777777777 000000000010     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000010 *            0            0   0   *   

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

*031445  CAIE	3,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031445 031445 031445 302140000010 777777777777 000000000010     000000000010 000000031441 0            0   0   777 
IT1	*      *      000010 *            302140000010 *                *            *            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)=000000 000010 E    =000000 000010 
----------

*031447  JUMPA	0,031450

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031447 031447 031447 324000031450 777777777777 000000000010     000000000010 000000031441 0            0   0   777 
IT1	*      *      031450 *            324000031450 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031450     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031450 *            000000031450 000000000017     *            000000031450 0            0   0   *   

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

*031450  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031450 031450 031450 476000000003 777777777777 000000000017     000000000017 000000031450 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031451 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000010 *            0            0   0   *   
ST5	031451 031451 *      201040000020 *            *                000000000017 *            0            0   0   *   

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

*031451  MOVEI	1,000020

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031451 031451 031451 201040000020 777777777777 777777777777     000000000017 000000031450 0            0   0   777 
IT1	*      *      000020 *            201040000020 *                000000000010 *            0            0   0   *   
ET2	*      *      031452 *            000000000010 000000000020     *            *            0            0   0   *   
ST1	031452 031452 *      201100000001 777777777777 *                000000000020 *            0            0   0   *   

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

*031452  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031452 031452 031452 201100000001 777777777777 000000000020     000000000020 000000031450 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031453 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031453 031453 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031453  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031453 031453 031453 200142000000 777777777777 000000000001     000000000001 000000031450 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031454 031454 031454 302140000020 777777777777 000000000020     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000020 *            0            0   0   *   

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

*031454  CAIE	3,000020

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031454 031454 031454 302140000020 777777777777 000000000020     000000000020 000000031450 0            0   0   777 
IT1	*      *      000020 *            302140000020 *                *            *            0            0   0   *   
ET0	*      *      031455 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031455 *      031456 *            777777777777 *                *            *            0            0   0   *   SEQ 0255

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

*031456  JUMPA	0,031457

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031456 031456 031456 324000031457 777777777777 000000000020     000000000020 000000031450 0            0   0   777 
IT1	*      *      031457 *            324000031457 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031457     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031457 *            000000031457 000000000017     *            000000031457 0            0   0   *   

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

*031457  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031457 031457 031457 476000000003 777777777777 000000000017     000000000017 000000031457 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031460 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000020 *            0            0   0   *   
ST5	031460 031460 *      201040000040 *            *                000000000017 *            0            0   0   *   

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

*031460  MOVEI	1,000040

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031460 031460 031460 201040000040 777777777777 777777777777     000000000017 000000031457 0            0   0   777 
IT1	*      *      000040 *            201040000040 *                000000000020 *            0            0   0   *   
ET2	*      *      031461 *            000000000020 000000000040     *            *            0            0   0   *   
ST1	031461 031461 *      201100000001 777777777777 *                000000000040 *            0            0   0   *   

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

*031461  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031461 031461 031461 201100000001 777777777777 000000000040     000000000040 000000031457 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031462 *            000000000001 000000000001     *            *            0            0   0   *   SEQ 0256
ST1	031462 031462 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031462  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031462 031462 031462 200142000000 777777777777 000000000001     000000000001 000000031457 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031463 031463 031463 302140000040 777777777777 000000000040     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000040 *            0            0   0   *   

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

*031463  CAIE	3,000040

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031463 031463 031463 302140000040 777777777777 000000000040     000000000040 000000031457 0            0   0   777 
IT1	*      *      000040 *            302140000040 *                *            *            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)=000000 000040 E    =000000 000040 
----------

*031465  JUMPA	0,031466

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031465 031465 031465 324000031466 777777777777 000000000040     000000000040 000000031457 0            0   0   777 
IT1	*      *      031466 *            324000031466 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031466     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031466 *            000000031466 000000000017     *            000000031466 0            0   0   *   

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

*031466  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031466 031466 031466 476000000003 777777777777 000000000017     000000000017 000000031466 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   SEQ 0257
FT6	*      000003 031467 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000040 *            0            0   0   *   
ST5	031467 031467 *      201040000100 *            *                000000000017 *            0            0   0   *   

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

*031467  MOVEI	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031467 031467 031467 201040000100 777777777777 777777777777     000000000017 000000031466 0            0   0   777 
IT1	*      *      000100 *            201040000100 *                000000000040 *            0            0   0   *   
ET2	*      *      031470 *            000000000040 000000000100     *            *            0            0   0   *   
ST1	031470 031470 *      201100000001 777777777777 *                000000000100 *            0            0   0   *   

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

*031470  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031470 031470 031470 201100000001 777777777777 000000000100     000000000100 000000031466 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031471 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031471 031471 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031471  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031471 031471 031471 200142000000 777777777777 000000000001     000000000001 000000031466 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031472 031472 031472 302140000100 777777777777 000000000100     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000100 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000100 
FINAL
C(AC)=000000 000100 
----------
                                                                                                                           SEQ 0258
*031472  CAIE	3,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031472 031472 031472 302140000100 777777777777 000000000100     000000000100 000000031466 0            0   0   777 
IT1	*      *      000100 *            302140000100 *                *            *            0            0   0   *   
ET0	*      *      031473 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031473 *      031474 *            777777777777 *                *            *            0            0   0   *   

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

*031474  JUMPA	0,031475

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031474 031474 031474 324000031475 777777777777 000000000100     000000000100 000000031466 0            0   0   777 
IT1	*      *      031475 *            324000031475 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031475     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031475 *            000000031475 000000000017     *            000000031475 0            0   0   *   

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

*031475  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031475 031475 031475 476000000003 777777777777 000000000017     000000000017 000000031475 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031476 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000100 *            0            0   0   *   
ST5	031476 031476 *      201040000200 *            *                000000000017 *            0            0   0   *   

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

*031476  MOVEI	1,000200

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031476 031476 031476 201040000200 777777777777 777777777777     000000000017 000000031475 0            0   0   777 
IT1	*      *      000200 *            201040000200 *                000000000100 *            0            0   0   *   
ET2	*      *      031477 *            000000000100 000000000200     *            *            0            0   0   *   
ST1	031477 031477 *      201100000001 777777777777 *                000000000200 *            0            0   0   *   

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

*031477  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031477 031477 031477 201100000001 777777777777 000000000200     000000000200 000000031475 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031500 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031500 031500 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031500  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031500 031500 031500 200142000000 777777777777 000000000001     000000000001 000000031475 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031501 031501 031501 302140000200 777777777777 000000000200     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000200 *            0            0   0   *   

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

*031501  CAIE	3,000200

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031501 031501 031501 302140000200 777777777777 000000000200     000000000200 000000031475 0            0   0   777 
IT1	*      *      000200 *            302140000200 *                *            *            0            0   0   *   
ET0	*      *      031502 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031502 *      031503 *            777777777777 *                *            *            0            0   0   *   

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

*031503  JUMPA	0,031504

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031503 031503 031503 324000031504 777777777777 000000000200     000000000200 000000031475 0            0   0   777 
IT1	*      *      031504 *            324000031504 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031504     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031504 *            000000031504 000000000017     *            000000031504 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000017 E    =000000 031504                                                                                    SEQ 0260
----------

*031504  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031504 031504 031504 476000000003 777777777777 000000000017     000000000017 000000031504 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031505 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000200 *            0            0   0   *   
ST5	031505 031505 *      201040000400 *            *                000000000017 *            0            0   0   *   

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

*031505  MOVEI	1,000400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031505 031505 031505 201040000400 777777777777 777777777777     000000000017 000000031504 0            0   0   777 
IT1	*      *      000400 *            201040000400 *                000000000200 *            0            0   0   *   
ET2	*      *      031506 *            000000000200 000000000400     *            *            0            0   0   *   
ST1	031506 031506 *      201100000001 777777777777 *                000000000400 *            0            0   0   *   

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

*031506  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031506 031506 031506 201100000001 777777777777 000000000400     000000000400 000000031504 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031507 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031507 031507 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031507  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031507 031507 031507 200142000000 777777777777 000000000001     000000000001 000000031504 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031510 031510 031510 302140000400 777777777777 000000000400     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000000400 *            0            0   0   *   SEQ 0261

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

*031510  CAIE	3,000400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031510 031510 031510 302140000400 777777777777 000000000400     000000000400 000000031504 0            0   0   777 
IT1	*      *      000400 *            302140000400 *                *            *            0            0   0   *   
ET0	*      *      031511 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031511 *      031512 *            777777777777 *                *            *            0            0   0   *   

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

*031512  JUMPA	0,031513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031512 031512 031512 324000031513 777777777777 000000000400     000000000400 000000031504 0            0   0   777 
IT1	*      *      031513 *            324000031513 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031513     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031513 *            000000031513 000000000017     *            000000031513 0            0   0   *   

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

*031513  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031513 031513 031513 476000000003 777777777777 000000000017     000000000017 000000031513 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031514 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000400 *            0            0   0   *   
ST5	031514 031514 *      201040001000 *            *                000000000017 *            0            0   0   *   

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

*031514  MOVEI	1,001000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031514 031514 031514 201040001000 777777777777 777777777777     000000000017 000000031513 0            0   0   777 
IT1	*      *      001000 *            201040001000 *                000000000400 *            0            0   0   *   SEQ 0262
ET2	*      *      031515 *            000000000400 000000001000     *            *            0            0   0   *   
ST1	031515 031515 *      201100000001 777777777777 *                000000001000 *            0            0   0   *   

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

*031515  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031515 031515 031515 201100000001 777777777777 000000001000     000000001000 000000031513 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031516 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031516 031516 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031516  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031516 031516 031516 200142000000 777777777777 000000000001     000000000001 000000031513 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031517 031517 031517 302140001000 777777777777 000000001000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000001000 *            0            0   0   *   

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

*031517  CAIE	3,001000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031517 031517 031517 302140001000 777777777777 000000001000     000000001000 000000031513 0            0   0   777 
IT1	*      *      001000 *            302140001000 *                *            *            0            0   0   *   
ET0	*      *      031520 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031520 *      031521 *            777777777777 *                *            *            0            0   0   *   

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

*031521  JUMPA	0,031522

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031521 031521 031521 324000031522 777777777777 000000001000     000000001000 000000031513 0            0   0   77  SEQ 0263
IT1	*      *      031522 *            324000031522 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031522     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031522 *            000000031522 000000000017     *            000000031522 0            0   0   *   

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

*031522  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031522 031522 031522 476000000003 777777777777 000000000017     000000000017 000000031522 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031523 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000001000 *            0            0   0   *   
ST5	031523 031523 *      201040002000 *            *                000000000017 *            0            0   0   *   

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

*031523  MOVEI	1,002000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031523 031523 031523 201040002000 777777777777 777777777777     000000000017 000000031522 0            0   0   777 
IT1	*      *      002000 *            201040002000 *                000000001000 *            0            0   0   *   
ET2	*      *      031524 *            000000001000 000000002000     *            *            0            0   0   *   
ST1	031524 031524 *      201100000001 777777777777 *                000000002000 *            0            0   0   *   

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

*031524  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031524 031524 031524 201100000001 777777777777 000000002000     000000002000 000000031522 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031525 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031525 031525 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*031525  MOVE 	3,000000(2)                                                                                                SEQ 0264

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031525 031525 031525 200142000000 777777777777 000000000001     000000000001 000000031522 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031526 031526 031526 302140002000 777777777777 000000002000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000002000 *            0            0   0   *   

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

*031526  CAIE	3,002000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031526 031526 031526 302140002000 777777777777 000000002000     000000002000 000000031522 0            0   0   777 
IT1	*      *      002000 *            302140002000 *                *            *            0            0   0   *   
ET0	*      *      031527 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031527 *      031530 *            777777777777 *                *            *            0            0   0   *   

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

*031530  JUMPA	0,031531

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031530 031530 031530 324000031531 777777777777 000000002000     000000002000 000000031522 0            0   0   777 
IT1	*      *      031531 *            324000031531 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031531     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031531 *            000000031531 000000000017     *            000000031531 0            0   0   *   

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

*031531  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031531 031531 031531 476000000003 777777777777 000000000017     000000000017 000000031531 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031532 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000002000 *            0            0   0   *   
ST5	031532 031532 *      201040004000 *            *                000000000017 *            0            0   0   *   

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

*031532  MOVEI	1,004000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031532 031532 031532 201040004000 777777777777 777777777777     000000000017 000000031531 0            0   0   777 
IT1	*      *      004000 *            201040004000 *                000000002000 *            0            0   0   *   
ET2	*      *      031533 *            000000002000 000000004000     *            *            0            0   0   *   
ST1	031533 031533 *      201100000001 777777777777 *                000000004000 *            0            0   0   *   

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

*031533  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031533 031533 031533 201100000001 777777777777 000000004000     000000004000 000000031531 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031534 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031534 031534 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031534  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031534 031534 031534 200142000000 777777777777 000000000001     000000000001 000000031531 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031535 031535 031535 302140004000 777777777777 000000004000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000004000 *            0            0   0   *   

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

*031535  CAIE	3,004000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031535 031535 031535 302140004000 777777777777 000000004000     000000004000 000000031531 0            0   0   777 
IT1	*      *      004000 *            302140004000 *                *            *            0            0   0   *   
ET0	*      *      031536 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031536 *      031537 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0266
INITIAL
C(AC)=000000 004000 E    =000000 004000 
----------

*031537  JUMPA	0,031540

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031537 031537 031537 324000031540 777777777777 000000004000     000000004000 000000031531 0            0   0   777 
IT1	*      *      031540 *            324000031540 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031540     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031540 *            000000031540 000000000017     *            000000031540 0            0   0   *   

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

*031540  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031540 031540 031540 476000000003 777777777777 000000000017     000000000017 000000031540 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031541 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000004000 *            0            0   0   *   
ST5	031541 031541 *      201040010000 *            *                000000000017 *            0            0   0   *   

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

*031541  MOVEI	1,010000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031541 031541 031541 201040010000 777777777777 777777777777     000000000017 000000031540 0            0   0   777 
IT1	*      *      010000 *            201040010000 *                000000004000 *            0            0   0   *   
ET2	*      *      031542 *            000000004000 000000010000     *            *            0            0   0   *   
ST1	031542 031542 *      201100000001 777777777777 *                000000010000 *            0            0   0   *   

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

*031542  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031542 031542 031542 201100000001 777777777777 000000010000     000000010000 000000031540 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031543 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031543 031543 *      200142000000 777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0267
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------

*031543  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031543 031543 031543 200142000000 777777777777 000000000001     000000000001 000000031540 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031544 031544 031544 302140010000 777777777777 000000010000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000010000 *            0            0   0   *   

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

*031544  CAIE	3,010000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031544 031544 031544 302140010000 777777777777 000000010000     000000010000 000000031540 0            0   0   777 
IT1	*      *      010000 *            302140010000 *                *            *            0            0   0   *   
ET0	*      *      031545 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031545 *      031546 *            777777777777 *                *            *            0            0   0   *   

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

*031546  JUMPA	0,031547

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031546 031546 031546 324000031547 777777777777 000000010000     000000010000 000000031540 0            0   0   777 
IT1	*      *      031547 *            324000031547 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031547     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031547 *            000000031547 000000000017     *            000000031547 0            0   0   *   

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

*031547  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031547 031547 031547 476000000003 777777777777 000000000017     000000000017 000000031547 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031550 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   SEQ 0268
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000010000 *            0            0   0   *   
ST5	031550 031550 *      201040020000 *            *                000000000017 *            0            0   0   *   

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

*031550  MOVEI	1,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031550 031550 031550 201040020000 777777777777 777777777777     000000000017 000000031547 0            0   0   777 
IT1	*      *      020000 *            201040020000 *                000000010000 *            0            0   0   *   
ET2	*      *      031551 *            000000010000 000000020000     *            *            0            0   0   *   
ST1	031551 031551 *      201100000001 777777777777 *                000000020000 *            0            0   0   *   

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

*031551  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031551 031551 031551 201100000001 777777777777 000000020000     000000020000 000000031547 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031552 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031552 031552 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031552  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031552 031552 031552 200142000000 777777777777 000000000001     000000000001 000000031547 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031553 031553 031553 302140020000 777777777777 000000020000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000020000 *            0            0   0   *   

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

*031553  CAIE	3,020000
                                                                                                                           SEQ 0269
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031553 031553 031553 302140020000 777777777777 000000020000     000000020000 000000031547 0            0   0   777 
IT1	*      *      020000 *            302140020000 *                *            *            0            0   0   *   
ET0	*      *      031554 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031554 *      031555 *            777777777777 *                *            *            0            0   0   *   

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

*031555  JUMPA	0,031556

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031555 031555 031555 324000031556 777777777777 000000020000     000000020000 000000031547 0            0   0   777 
IT1	*      *      031556 *            324000031556 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031556     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031556 *            000000031556 000000000017     *            000000031556 0            0   0   *   

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

*031556  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031556 031556 031556 476000000003 777777777777 000000000017     000000000017 000000031556 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031557 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000020000 *            0            0   0   *   
ST5	031557 031557 *      201040040000 *            *                000000000017 *            0            0   0   *   

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

*031557  MOVEI	1,040000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031557 031557 031557 201040040000 777777777777 777777777777     000000000017 000000031556 0            0   0   777 
IT1	*      *      040000 *            201040040000 *                000000020000 *            0            0   0   *   
ET2	*      *      031560 *            000000020000 000000040000     *            *            0            0   0   *   
ST1	031560 031560 *      201100000001 777777777777 *                000000040000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 020000 E    =000000 040000 
FINAL
C(AC)=000000 040000 
----------
                                                                                                                           SEQ 0270
*031560  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031560 031560 031560 201100000001 777777777777 000000040000     000000040000 000000031556 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031561 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031561 031561 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031561  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031561 031561 031561 200142000000 777777777777 000000000001     000000000001 000000031556 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031562 031562 031562 302140040000 777777777777 000000040000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000040000 *            0            0   0   *   

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

*031562  CAIE	3,040000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031562 031562 031562 302140040000 777777777777 000000040000     000000040000 000000031556 0            0   0   777 
IT1	*      *      040000 *            302140040000 *                *            *            0            0   0   *   
ET0	*      *      031563 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031563 *      031564 *            777777777777 *                *            *            0            0   0   *   

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

*031564  JUMPA	0,031565

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031564 031564 031564 324000031565 777777777777 000000040000     000000040000 000000031556 0            0   0   777 
IT1	*      *      031565 *            324000031565 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031565     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031565 *            000000031565 000000000017     *            000000031565 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000017 E    =000000 031565 
----------
                                                                                                                           SEQ 0271
*031565  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031565 031565 031565 476000000003 777777777777 000000000017     000000000017 000000031565 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031566 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000040000 *            0            0   0   *   
ST5	031566 031566 *      201040100000 *            *                000000000017 *            0            0   0   *   

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

*031566  MOVEI	1,100000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031566 031566 031566 201040100000 777777777777 777777777777     000000000017 000000031565 0            0   0   777 
IT1	*      *      100000 *            201040100000 *                000000040000 *            0            0   0   *   
ET2	*      *      031567 *            000000040000 000000100000     *            *            0            0   0   *   
ST1	031567 031567 *      201100000001 777777777777 *                000000100000 *            0            0   0   *   

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

*031567  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031567 031567 031567 201100000001 777777777777 000000100000     000000100000 000000031565 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031570 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031570 031570 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031570  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031570 031570 031570 200142000000 777777777777 000000000001     000000000001 000000031565 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031571 031571 031571 302140100000 777777777777 000000100000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000100000 *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0272
INITIAL
C(AC)=777777 777777 C(E) =000000 100000 
FINAL
C(AC)=000000 100000 
----------

*031571  CAIE	3,100000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031571 031571 031571 302140100000 777777777777 000000100000     000000100000 000000031565 0            0   0   777 
IT1	*      *      100000 *            302140100000 *                *            *            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)=000000 100000 E    =000000 100000 
----------

*031573  JUMPA	0,031574

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

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

*031574  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031574 031574 031574 476000000003 777777777777 000000000017     000000000017 000000031574 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031575 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000100000 *            0            0   0   *   
ST5	031575 031575 *      201040200000 *            *                000000000017 *            0            0   0   *   

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

*031575  MOVEI	1,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031575 031575 031575 201040200000 777777777777 777777777777     000000000017 000000031574 0            0   0   777 
IT1	*      *      200000 *            201040200000 *                000000100000 *            0            0   0   *   
ET2	*      *      031576 *            000000100000 000000200000     *            *            0            0   0   *   
ST1	031576 031576 *      201100000001 777777777777 *                000000200000 *            0            0   0   *   SEQ 0273

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

*031576  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031576 031576 031576 201100000001 777777777777 000000200000     000000200000 000000031574 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031577 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031577 031577 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031577  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031577 031577 031577 200142000000 777777777777 000000000001     000000000001 000000031574 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031600 031600 031600 302140200000 777777777777 000000200000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000200000 *            0            0   0   *   

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

*031600  CAIE	3,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031600 031600 031600 302140200000 777777777777 000000200000     000000200000 000000031574 0            0   0   777 
IT1	*      *      200000 *            302140200000 *                *            *            0            0   0   *   
ET0	*      *      031601 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031601 *      031602 *            777777777777 *                *            *            0            0   0   *   

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

*031602  JUMPA	0,031603

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031602 031602 031602 324000031603 777777777777 000000200000     000000200000 000000031574 0            0   0   777 
IT1	*      *      031603 *            324000031603 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031603     *            *            0            0   0   *   SEQ 0274
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031603 *            000000031603 000000000017     *            000000031603 0            0   0   *   

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

*031603  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031603 031603 031603 476000000003 777777777777 000000000017     000000000017 000000031603 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031604 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000200000 *            0            0   0   *   
ST5	031604 031604 *      201040400000 *            *                000000000017 *            0            0   0   *   

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

*031604  MOVEI	1,400000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031604 031604 031604 201040400000 777777777777 777777777777     000000000017 000000031603 0            0   0   777 
IT1	*      *      400000 *            201040400000 *                000000200000 *            0            0   0   *   
ET2	*      *      031605 *            000000200000 000000400000     *            *            0            0   0   *   
ST1	031605 031605 *      201100000001 777777777777 *                000000400000 *            0            0   0   *   

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

*031605  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031605 031605 031605 201100000001 777777777777 000000400000     000000400000 000000031603 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031606 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031606 031606 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031606  MOVE 	3,000000(2)
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0275
IT0	031606 031606 031606 200142000000 777777777777 000000000001     000000000001 000000031603 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031607 031607 031607 302140400000 777777777777 000000400000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000000400000 *            0            0   0   *   

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

*031607  CAIE	3,400000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031607 031607 031607 302140400000 777777777777 000000400000     000000400000 000000031603 0            0   0   777 
IT1	*      *      400000 *            302140400000 *                *            *            0            0   0   *   
ET0	*      *      031610 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031610 *      031611 *            777777777777 *                *            *            0            0   0   *   

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

*031611  JUMPA	0,031612

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031611 031611 031611 324000031612 777777777777 000000400000     000000400000 000000031603 0            0   0   777 
IT1	*      *      031612 *            324000031612 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031612     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031612 *            000000031612 000000000017     *            000000031612 0            0   0   *   

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

*031612  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031612 031612 031612 476000000003 777777777777 000000000017     000000000017 000000031612 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031613 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000400000 *            0            0   0   *   
ST5	031613 031613 *      205040000001 *            *                000000000017 *            0            0   0   *   

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

*031613  MOVSI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031613 031613 031613 205040000001 777777777777 777777777777     000000000017 000000031612 0            0   0   777 
IT1	*      *      000001 *            205040000001 *                000000400000 *            0            0   0   *   
ET2	*      *      031614 *            000000400000 000000000001     *            *            0            0   0   *   
ST1	031614 031614 *      201100000001 777777777777 000001000000     000001000000 *            0            0   0   *   

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

*031614  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031614 031614 031614 201100000001 777777777777 000001000000     000001000000 000000031612 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031615 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031615 031615 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031615  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031615 031615 031615 200142000000 777777777777 000000000001     000000000001 000000031612 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031616 031616 031616 312140034444 777777777777 000001000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000001000000 *            0            0   0   *   

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

*031616  CAME	3,034444

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031616 031616 031616 312140034444 777777777777 000001000000     000001000000 000000031612 0            0   0   777 
IT1	*      *      034444 *            312140034444 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034444     *            *            0            0   0   *   
FT6	*      034444 *      000001000000 777777777777 000001000000     *            *            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                                                                                          SEQ 0277
INITIAL
C(AC)=000001 000000 C(E) =000001 000000 
----------

*031620  JUMPA	0,031621

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031620 031620 031620 324000031621 777777777777 000001000000     000001000000 000000031612 0            0   0   777 
IT1	*      *      031621 *            324000031621 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031621     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031621 *            000000031621 000000000017     *            000000031621 0            0   0   *   

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

*031621  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031621 031621 031621 476000000003 777777777777 000000000017     000000000017 000000031621 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031622 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000001000000 *            0            0   0   *   
ST5	031622 031622 *      205040000002 *            *                000000000017 *            0            0   0   *   

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

*031622  MOVSI	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031622 031622 031622 205040000002 777777777777 777777777777     000000000017 000000031621 0            0   0   777 
IT1	*      *      000002 *            205040000002 *                000001000000 *            0            0   0   *   
ET2	*      *      031623 *            000001000000 000000000002     *            *            0            0   0   *   
ST1	031623 031623 *      201100000001 777777777777 000002000000     000002000000 *            0            0   0   *   

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

*031623  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031623 031623 031623 201100000001 777777777777 000002000000     000002000000 000000031621 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031624 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031624 031624 *      200142000000 777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0278
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------

*031624  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031624 031624 031624 200142000000 777777777777 000000000001     000000000001 000000031621 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031625 031625 031625 312140034445 777777777777 000002000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000002000000 *            0            0   0   *   

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

*031625  CAME	3,034445

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031625 031625 031625 312140034445 777777777777 000002000000     000002000000 000000031621 0            0   0   777 
IT1	*      *      034445 *            312140034445 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034445     *            *            0            0   0   *   
FT6	*      034445 *      000002000000 777777777777 000002000000     *            *            0            0   0   *   
ET0	*      *      031626 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031626 *      031627 *            777777777777 *                *            *            0            0   0   *   

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

*031627  JUMPA	0,031630

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031627 031627 031627 324000031630 777777777777 000002000000     000002000000 000000031621 0            0   0   777 
IT1	*      *      031630 *            324000031630 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031630     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031630 *            000000031630 000000000017     *            000000031630 0            0   0   *   

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

*031630  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031630 031630 031630 476000000003 777777777777 000000000017     000000000017 000000031630 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   SEQ 0279
FT6	*      000003 031631 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000002000000 *            0            0   0   *   
ST5	031631 031631 *      205040000004 *            *                000000000017 *            0            0   0   *   

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

*031631  MOVSI	1,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031631 031631 031631 205040000004 777777777777 777777777777     000000000017 000000031630 0            0   0   777 
IT1	*      *      000004 *            205040000004 *                000002000000 *            0            0   0   *   
ET2	*      *      031632 *            000002000000 000000000004     *            *            0            0   0   *   
ST1	031632 031632 *      201100000001 777777777777 000004000000     000004000000 *            0            0   0   *   

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

*031632  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031632 031632 031632 201100000001 777777777777 000004000000     000004000000 000000031630 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031633 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031633 031633 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031633  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031633 031633 031633 200142000000 777777777777 000000000001     000000000001 000000031630 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031634 031634 031634 312140034446 777777777777 000004000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000004000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000004 000000 
FINAL
C(AC)=000004 000000 
----------
                                                                                                                           SEQ 0280
*031634  CAME	3,034446

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031634 031634 031634 312140034446 777777777777 000004000000     000004000000 000000031630 0            0   0   777 
IT1	*      *      034446 *            312140034446 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034446     *            *            0            0   0   *   
FT6	*      034446 *      000004000000 777777777777 000004000000     *            *            0            0   0   *   
ET0	*      *      031635 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031635 *      031636 *            777777777777 *                *            *            0            0   0   *   

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

*031636  JUMPA	0,031637

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031636 031636 031636 324000031637 777777777777 000004000000     000004000000 000000031630 0            0   0   777 
IT1	*      *      031637 *            324000031637 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031637     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031637 *            000000031637 000000000017     *            000000031637 0            0   0   *   

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

*031637  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031637 031637 031637 476000000003 777777777777 000000000017     000000000017 000000031637 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031640 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000004000000 *            0            0   0   *   
ST5	031640 031640 *      205040000010 *            *                000000000017 *            0            0   0   *   

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

*031640  MOVSI	1,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031640 031640 031640 205040000010 777777777777 777777777777     000000000017 000000031637 0            0   0   777 
IT1	*      *      000010 *            205040000010 *                000004000000 *            0            0   0   *   
ET2	*      *      031641 *            000004000000 000000000010     *            *            0            0   0   *   
ST1	031641 031641 *      201100000001 777777777777 000010000000     000010000000 *            0            0   0   *   

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

*031641  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031641 031641 031641 201100000001 777777777777 000010000000     000010000000 000000031637 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031642 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031642 031642 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031642  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031642 031642 031642 200142000000 777777777777 000000000001     000000000001 000000031637 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031643 031643 031643 312140034447 777777777777 000010000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000010000000 *            0            0   0   *   

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

*031643  CAME	3,034447

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031643 031643 031643 312140034447 777777777777 000010000000     000010000000 000000031637 0            0   0   777 
IT1	*      *      034447 *            312140034447 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034447     *            *            0            0   0   *   
FT6	*      034447 *      000010000000 777777777777 000010000000     *            *            0            0   0   *   
ET0	*      *      031644 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031644 *      031645 *            777777777777 *                *            *            0            0   0   *   

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

*031645  JUMPA	0,031646

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031645 031645 031645 324000031646 777777777777 000010000000     000010000000 000000031637 0            0   0   777 
IT1	*      *      031646 *            324000031646 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031646     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031646 *            000000031646 000000000017     *            000000031646 0            0   0   *   SEQ 0282

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

*031646  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031646 031646 031646 476000000003 777777777777 000000000017     000000000017 000000031646 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031647 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000010000000 *            0            0   0   *   
ST5	031647 031647 *      205040000020 *            *                000000000017 *            0            0   0   *   

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

*031647  MOVSI	1,000020

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031647 031647 031647 205040000020 777777777777 777777777777     000000000017 000000031646 0            0   0   777 
IT1	*      *      000020 *            205040000020 *                000010000000 *            0            0   0   *   
ET2	*      *      031650 *            000010000000 000000000020     *            *            0            0   0   *   
ST1	031650 031650 *      201100000001 777777777777 000020000000     000020000000 *            0            0   0   *   

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

*031650  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031650 031650 031650 201100000001 777777777777 000020000000     000020000000 000000031646 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031651 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031651 031651 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031651  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031651 031651 031651 200142000000 777777777777 000000000001     000000000001 000000031646 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   SEQ 0283
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031652 031652 031652 312140034450 777777777777 000020000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000020000000 *            0            0   0   *   

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

*031652  CAME	3,034450

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031652 031652 031652 312140034450 777777777777 000020000000     000020000000 000000031646 0            0   0   777 
IT1	*      *      034450 *            312140034450 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034450     *            *            0            0   0   *   
FT6	*      034450 *      000020000000 777777777777 000020000000     *            *            0            0   0   *   
ET0	*      *      031653 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031653 *      031654 *            777777777777 *                *            *            0            0   0   *   

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

*031654  JUMPA	0,031655

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031654 031654 031654 324000031655 777777777777 000020000000     000020000000 000000031646 0            0   0   777 
IT1	*      *      031655 *            324000031655 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031655     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031655 *            000000031655 000000000017     *            000000031655 0            0   0   *   

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

*031655  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031655 031655 031655 476000000003 777777777777 000000000017     000000000017 000000031655 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031656 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000020000000 *            0            0   0   *   
ST5	031656 031656 *      205040000040 *            *                000000000017 *            0            0   0   *   

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

*031656  MOVSI	1,000040

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031656 031656 031656 205040000040 777777777777 777777777777     000000000017 000000031655 0            0   0   777 
IT1	*      *      000040 *            205040000040 *                000020000000 *            0            0   0   *   
ET2	*      *      031657 *            000020000000 000000000040     *            *            0            0   0   *   
ST1	031657 031657 *      201100000001 777777777777 000040000000     000040000000 *            0            0   0   *   

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

*031657  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031657 031657 031657 201100000001 777777777777 000040000000     000040000000 000000031655 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031660 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031660 031660 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031660  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031660 031660 031660 200142000000 777777777777 000000000001     000000000001 000000031655 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031661 031661 031661 312140034451 777777777777 000040000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000040000000 *            0            0   0   *   

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

*031661  CAME	3,034451

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031661 031661 031661 312140034451 777777777777 000040000000     000040000000 000000031655 0            0   0   777 
IT1	*      *      034451 *            312140034451 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034451     *            *            0            0   0   *   
FT6	*      034451 *      000040000000 777777777777 000040000000     *            *            0            0   0   *   
ET0	*      *      031662 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031662 *      031663 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0285
INITIAL
C(AC)=000040 000000 C(E) =000040 000000 
----------

*031663  JUMPA	0,031664

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031663 031663 031663 324000031664 777777777777 000040000000     000040000000 000000031655 0            0   0   777 
IT1	*      *      031664 *            324000031664 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031664     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031664 *            000000031664 000000000017     *            000000031664 0            0   0   *   

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

*031664  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031664 031664 031664 476000000003 777777777777 000000000017     000000000017 000000031664 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031665 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000040000000 *            0            0   0   *   
ST5	031665 031665 *      205040000100 *            *                000000000017 *            0            0   0   *   

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

*031665  MOVSI	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031665 031665 031665 205040000100 777777777777 777777777777     000000000017 000000031664 0            0   0   777 
IT1	*      *      000100 *            205040000100 *                000040000000 *            0            0   0   *   
ET2	*      *      031666 *            000040000000 000000000100     *            *            0            0   0   *   
ST1	031666 031666 *      201100000001 777777777777 000100000000     000100000000 *            0            0   0   *   

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

*031666  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031666 031666 031666 201100000001 777777777777 000100000000     000100000000 000000031664 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031667 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031667 031667 *      200142000000 777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0286
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------

*031667  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031667 031667 031667 200142000000 777777777777 000000000001     000000000001 000000031664 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031670 031670 031670 312140034452 777777777777 000100000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000100000000 *            0            0   0   *   

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

*031670  CAME	3,034452

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031670 031670 031670 312140034452 777777777777 000100000000     000100000000 000000031664 0            0   0   777 
IT1	*      *      034452 *            312140034452 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034452     *            *            0            0   0   *   
FT6	*      034452 *      000100000000 777777777777 000100000000     *            *            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)=000100 000000 C(E) =000100 000000 
----------

*031672  JUMPA	0,031673

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031672 031672 031672 324000031673 777777777777 000100000000     000100000000 000000031664 0            0   0   777 
IT1	*      *      031673 *            324000031673 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031673     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031673 *            000000031673 000000000017     *            000000031673 0            0   0   *   

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

*031673  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031673 031673 031673 476000000003 777777777777 000000000017     000000000017 000000031673 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   SEQ 0287
FT6	*      000003 031674 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000100000000 *            0            0   0   *   
ST5	031674 031674 *      205040000200 *            *                000000000017 *            0            0   0   *   

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

*031674  MOVSI	1,000200

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031674 031674 031674 205040000200 777777777777 777777777777     000000000017 000000031673 0            0   0   777 
IT1	*      *      000200 *            205040000200 *                000100000000 *            0            0   0   *   
ET2	*      *      031675 *            000100000000 000000000200     *            *            0            0   0   *   
ST1	031675 031675 *      201100000001 777777777777 000200000000     000200000000 *            0            0   0   *   

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

*031675  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031675 031675 031675 201100000001 777777777777 000200000000     000200000000 000000031673 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031676 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031676 031676 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031676  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031676 031676 031676 200142000000 777777777777 000000000001     000000000001 000000031673 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031677 031677 031677 312140034453 777777777777 000200000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000200000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000200 000000 
FINAL
C(AC)=000200 000000 
----------
                                                                                                                           SEQ 0288
*031677  CAME	3,034453

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031677 031677 031677 312140034453 777777777777 000200000000     000200000000 000000031673 0            0   0   777 
IT1	*      *      034453 *            312140034453 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034453     *            *            0            0   0   *   
FT6	*      034453 *      000200000000 777777777777 000200000000     *            *            0            0   0   *   
ET0	*      *      031700 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031700 *      031701 *            777777777777 *                *            *            0            0   0   *   

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

*031701  JUMPA	0,031702

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031701 031701 031701 324000031702 777777777777 000200000000     000200000000 000000031673 0            0   0   777 
IT1	*      *      031702 *            324000031702 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031702     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031702 *            000000031702 000000000017     *            000000031702 0            0   0   *   

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

*031702  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031702 031702 031702 476000000003 777777777777 000000000017     000000000017 000000031702 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031703 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000200000000 *            0            0   0   *   
ST5	031703 031703 *      205040000400 *            *                000000000017 *            0            0   0   *   

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

*031703  MOVSI	1,000400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031703 031703 031703 205040000400 777777777777 777777777777     000000000017 000000031702 0            0   0   777 
IT1	*      *      000400 *            205040000400 *                000200000000 *            0            0   0   *   
ET2	*      *      031704 *            000200000000 000000000400     *            *            0            0   0   *   
ST1	031704 031704 *      201100000001 777777777777 000400000000     000400000000 *            0            0   0   *   

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

*031704  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031704 031704 031704 201100000001 777777777777 000400000000     000400000000 000000031702 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031705 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031705 031705 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031705  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031705 031705 031705 200142000000 777777777777 000000000001     000000000001 000000031702 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031706 031706 031706 312140034454 777777777777 000400000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                000400000000 *            0            0   0   *   

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

*031706  CAME	3,034454

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031706 031706 031706 312140034454 777777777777 000400000000     000400000000 000000031702 0            0   0   777 
IT1	*      *      034454 *            312140034454 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034454     *            *            0            0   0   *   
FT6	*      034454 *      000400000000 777777777777 000400000000     *            *            0            0   0   *   
ET0	*      *      031707 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031707 *      031710 *            777777777777 *                *            *            0            0   0   *   

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

*031710  JUMPA	0,031711

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031710 031710 031710 324000031711 777777777777 000400000000     000400000000 000000031702 0            0   0   777 
IT1	*      *      031711 *            324000031711 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031711     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031711 *            000000031711 000000000017     *            000000031711 0            0   0   *   SEQ 0290

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

*031711  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031711 031711 031711 476000000003 777777777777 000000000017     000000000017 000000031711 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031712 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000400000000 *            0            0   0   *   
ST5	031712 031712 *      205040001000 *            *                000000000017 *            0            0   0   *   

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

*031712  MOVSI	1,001000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031712 031712 031712 205040001000 777777777777 777777777777     000000000017 000000031711 0            0   0   777 
IT1	*      *      001000 *            205040001000 *                000400000000 *            0            0   0   *   
ET2	*      *      031713 *            000400000000 000000001000     *            *            0            0   0   *   
ST1	031713 031713 *      201100000001 777777777777 001000000000     001000000000 *            0            0   0   *   

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

*031713  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031713 031713 031713 201100000001 777777777777 001000000000     001000000000 000000031711 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031714 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031714 031714 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031714  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031714 031714 031714 200142000000 777777777777 000000000001     000000000001 000000031711 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   SEQ 0291
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031715 031715 031715 312140034455 777777777777 001000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                001000000000 *            0            0   0   *   

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

*031715  CAME	3,034455

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031715 031715 031715 312140034455 777777777777 001000000000     001000000000 000000031711 0            0   0   777 
IT1	*      *      034455 *            312140034455 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034455     *            *            0            0   0   *   
FT6	*      034455 *      001000000000 777777777777 001000000000     *            *            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)=001000 000000 C(E) =001000 000000 
----------

*031717  JUMPA	0,031720

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031717 031717 031717 324000031720 777777777777 001000000000     001000000000 000000031711 0            0   0   777 
IT1	*      *      031720 *            324000031720 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031720     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031720 *            000000031720 000000000017     *            000000031720 0            0   0   *   

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

*031720  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031720 031720 031720 476000000003 777777777777 000000000017     000000000017 000000031720 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031721 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                001000000000 *            0            0   0   *   
ST5	031721 031721 *      205040002000 *            *                000000000017 *            0            0   0   *   

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

*031721  MOVSI	1,002000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031721 031721 031721 205040002000 777777777777 777777777777     000000000017 000000031720 0            0   0   777 
IT1	*      *      002000 *            205040002000 *                001000000000 *            0            0   0   *   
ET2	*      *      031722 *            001000000000 000000002000     *            *            0            0   0   *   
ST1	031722 031722 *      201100000001 777777777777 002000000000     002000000000 *            0            0   0   *   

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

*031722  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031722 031722 031722 201100000001 777777777777 002000000000     002000000000 000000031720 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031723 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031723 031723 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031723  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031723 031723 031723 200142000000 777777777777 000000000001     000000000001 000000031720 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031724 031724 031724 312140034456 777777777777 002000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                002000000000 *            0            0   0   *   

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

*031724  CAME	3,034456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031724 031724 031724 312140034456 777777777777 002000000000     002000000000 000000031720 0            0   0   777 
IT1	*      *      034456 *            312140034456 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034456     *            *            0            0   0   *   
FT6	*      034456 *      002000000000 777777777777 002000000000     *            *            0            0   0   *   
ET0	*      *      031725 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031725 *      031726 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0293
INITIAL
C(AC)=002000 000000 C(E) =002000 000000 
----------

*031726  JUMPA	0,031727

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031726 031726 031726 324000031727 777777777777 002000000000     002000000000 000000031720 0            0   0   777 
IT1	*      *      031727 *            324000031727 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031727     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031727 *            000000031727 000000000017     *            000000031727 0            0   0   *   

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

*031727  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031727 031727 031727 476000000003 777777777777 000000000017     000000000017 000000031727 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031730 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                002000000000 *            0            0   0   *   
ST5	031730 031730 *      205040004000 *            *                000000000017 *            0            0   0   *   

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

*031730  MOVSI	1,004000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031730 031730 031730 205040004000 777777777777 777777777777     000000000017 000000031727 0            0   0   777 
IT1	*      *      004000 *            205040004000 *                002000000000 *            0            0   0   *   
ET2	*      *      031731 *            002000000000 000000004000     *            *            0            0   0   *   
ST1	031731 031731 *      201100000001 777777777777 004000000000     004000000000 *            0            0   0   *   

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

*031731  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031731 031731 031731 201100000001 777777777777 004000000000     004000000000 000000031727 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031732 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031732 031732 *      200142000000 777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0294
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------

*031732  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031732 031732 031732 200142000000 777777777777 000000000001     000000000001 000000031727 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031733 031733 031733 312140034457 777777777777 004000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                004000000000 *            0            0   0   *   

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

*031733  CAME	3,034457

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031733 031733 031733 312140034457 777777777777 004000000000     004000000000 000000031727 0            0   0   777 
IT1	*      *      034457 *            312140034457 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034457     *            *            0            0   0   *   
FT6	*      034457 *      004000000000 777777777777 004000000000     *            *            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)=004000 000000 C(E) =004000 000000 
----------

*031735  JUMPA	0,031736

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031735 031735 031735 324000031736 777777777777 004000000000     004000000000 000000031727 0            0   0   777 
IT1	*      *      031736 *            324000031736 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031736     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031736 *            000000031736 000000000017     *            000000031736 0            0   0   *   

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

*031736  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031736 031736 031736 476000000003 777777777777 000000000017     000000000017 000000031736 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   SEQ 0295
FT6	*      000003 031737 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                004000000000 *            0            0   0   *   
ST5	031737 031737 *      205040010000 *            *                000000000017 *            0            0   0   *   

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

*031737  MOVSI	1,010000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031737 031737 031737 205040010000 777777777777 777777777777     000000000017 000000031736 0            0   0   777 
IT1	*      *      010000 *            205040010000 *                004000000000 *            0            0   0   *   
ET2	*      *      031740 *            004000000000 000000010000     *            *            0            0   0   *   
ST1	031740 031740 *      201100000001 777777777777 010000000000     010000000000 *            0            0   0   *   

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

*031740  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031740 031740 031740 201100000001 777777777777 010000000000     010000000000 000000031736 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031741 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031741 031741 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031741  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031741 031741 031741 200142000000 777777777777 000000000001     000000000001 000000031736 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031742 031742 031742 312140034460 777777777777 010000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                010000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =010000 000000 
FINAL
C(AC)=010000 000000 
----------
                                                                                                                           SEQ 0296
*031742  CAME	3,034460

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031742 031742 031742 312140034460 777777777777 010000000000     010000000000 000000031736 0            0   0   777 
IT1	*      *      034460 *            312140034460 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034460     *            *            0            0   0   *   
FT6	*      034460 *      010000000000 777777777777 010000000000     *            *            0            0   0   *   
ET0	*      *      031743 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031743 *      031744 *            777777777777 *                *            *            0            0   0   *   

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

*031744  JUMPA	0,031745

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031744 031744 031744 324000031745 777777777777 010000000000     010000000000 000000031736 0            0   0   777 
IT1	*      *      031745 *            324000031745 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031745     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031745 *            000000031745 000000000017     *            000000031745 0            0   0   *   

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

*031745  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031745 031745 031745 476000000003 777777777777 000000000017     000000000017 000000031745 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031746 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                010000000000 *            0            0   0   *   
ST5	031746 031746 *      205040020000 *            *                000000000017 *            0            0   0   *   

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

*031746  MOVSI	1,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031746 031746 031746 205040020000 777777777777 777777777777     000000000017 000000031745 0            0   0   777 
IT1	*      *      020000 *            205040020000 *                010000000000 *            0            0   0   *   
ET2	*      *      031747 *            010000000000 000000020000     *            *            0            0   0   *   
ST1	031747 031747 *      201100000001 777777777777 020000000000     020000000000 *            0            0   0   *   

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

*031747  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031747 031747 031747 201100000001 777777777777 020000000000     020000000000 000000031745 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031750 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031750 031750 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031750  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031750 031750 031750 200142000000 777777777777 000000000001     000000000001 000000031745 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031751 031751 031751 312140034461 777777777777 020000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                020000000000 *            0            0   0   *   

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

*031751  CAME	3,034461

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031751 031751 031751 312140034461 777777777777 020000000000     020000000000 000000031745 0            0   0   777 
IT1	*      *      034461 *            312140034461 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034461     *            *            0            0   0   *   
FT6	*      034461 *      020000000000 777777777777 020000000000     *            *            0            0   0   *   
ET0	*      *      031752 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031752 *      031753 *            777777777777 *                *            *            0            0   0   *   

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

*031753  JUMPA	0,031754

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031753 031753 031753 324000031754 777777777777 020000000000     020000000000 000000031745 0            0   0   777 
IT1	*      *      031754 *            324000031754 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031754     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031754 *            000000031754 000000000017     *            000000031754 0            0   0   *   SEQ 0298

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

*031754  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031754 031754 031754 476000000003 777777777777 000000000017     000000000017 000000031754 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031755 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                020000000000 *            0            0   0   *   
ST5	031755 031755 *      205040040000 *            *                000000000017 *            0            0   0   *   

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

*031755  MOVSI	1,040000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031755 031755 031755 205040040000 777777777777 777777777777     000000000017 000000031754 0            0   0   777 
IT1	*      *      040000 *            205040040000 *                020000000000 *            0            0   0   *   
ET2	*      *      031756 *            020000000000 000000040000     *            *            0            0   0   *   
ST1	031756 031756 *      201100000001 777777777777 040000000000     040000000000 *            0            0   0   *   

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

*031756  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031756 031756 031756 201100000001 777777777777 040000000000     040000000000 000000031754 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031757 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031757 031757 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031757  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031757 031757 031757 200142000000 777777777777 000000000001     000000000001 000000031754 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   SEQ 0299
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031760 031760 031760 312140034462 777777777777 040000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                040000000000 *            0            0   0   *   

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

*031760  CAME	3,034462

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031760 031760 031760 312140034462 777777777777 040000000000     040000000000 000000031754 0            0   0   777 
IT1	*      *      034462 *            312140034462 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034462     *            *            0            0   0   *   
FT6	*      034462 *      040000000000 777777777777 040000000000     *            *            0            0   0   *   
ET0	*      *      031761 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031761 *      031762 *            777777777777 *                *            *            0            0   0   *   

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

*031762  JUMPA	0,031763

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031762 031762 031762 324000031763 777777777777 040000000000     040000000000 000000031754 0            0   0   777 
IT1	*      *      031763 *            324000031763 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031763     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031763 *            000000031763 000000000017     *            000000031763 0            0   0   *   

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

*031763  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031763 031763 031763 476000000003 777777777777 000000000017     000000000017 000000031763 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031764 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                040000000000 *            0            0   0   *   
ST5	031764 031764 *      205040100000 *            *                000000000017 *            0            0   0   *   

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

*031764  MOVSI	1,100000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031764 031764 031764 205040100000 777777777777 777777777777     000000000017 000000031763 0            0   0   777 
IT1	*      *      100000 *            205040100000 *                040000000000 *            0            0   0   *   
ET2	*      *      031765 *            040000000000 000000100000     *            *            0            0   0   *   
ST1	031765 031765 *      201100000001 777777777777 100000000000     100000000000 *            0            0   0   *   

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

*031765  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031765 031765 031765 201100000001 777777777777 100000000000     100000000000 000000031763 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031766 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031766 031766 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*031766  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031766 031766 031766 200142000000 777777777777 000000000001     000000000001 000000031763 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031767 031767 031767 312140034463 777777777777 100000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                100000000000 *            0            0   0   *   

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

*031767  CAME	3,034463

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031767 031767 031767 312140034463 777777777777 100000000000     100000000000 000000031763 0            0   0   777 
IT1	*      *      034463 *            312140034463 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034463     *            *            0            0   0   *   
FT6	*      034463 *      100000000000 777777777777 100000000000     *            *            0            0   0   *   
ET0	*      *      031770 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031770 *      031771 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0301
INITIAL
C(AC)=100000 000000 C(E) =100000 000000 
----------

*031771  JUMPA	0,031772

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031771 031771 031771 324000031772 777777777777 100000000000     100000000000 000000031763 0            0   0   777 
IT1	*      *      031772 *            324000031772 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000031772     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031772 *            000000031772 000000000017     *            000000031772 0            0   0   *   

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

*031772  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031772 031772 031772 476000000003 777777777777 000000000017     000000000017 000000031772 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 031773 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                100000000000 *            0            0   0   *   
ST5	031773 031773 *      205040200000 *            *                000000000017 *            0            0   0   *   

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

*031773  MOVSI	1,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031773 031773 031773 205040200000 777777777777 777777777777     000000000017 000000031772 0            0   0   777 
IT1	*      *      200000 *            205040200000 *                100000000000 *            0            0   0   *   
ET2	*      *      031774 *            100000000000 000000200000     *            *            0            0   0   *   
ST1	031774 031774 *      201100000001 777777777777 200000000000     200000000000 *            0            0   0   *   

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

*031774  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031774 031774 031774 201100000001 777777777777 200000000000     200000000000 000000031772 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      031775 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	031775 031775 *      200142000000 777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0302
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------

*031775  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031775 031775 031775 200142000000 777777777777 000000000001     000000000001 000000031772 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	031776 031776 031776 312140034464 777777777777 200000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                200000000000 *            0            0   0   *   

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

*031776  CAME	3,034464

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031776 031776 031776 312140034464 777777777777 200000000000     200000000000 000000031772 0            0   0   777 
IT1	*      *      034464 *            312140034464 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034464     *            *            0            0   0   *   
FT6	*      034464 *      200000000000 777777777777 200000000000     *            *            0            0   0   *   
ET0	*      *      031777 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031777 *      032000 *            777777777777 *                *            *            0            0   0   *   

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

*032000  JUMPA	0,032001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032000 032000 032000 324000032001 777777777777 200000000000     200000000000 000000031772 0            0   0   777 
IT1	*      *      032001 *            324000032001 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032001     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032001 *            000000032001 000000000017     *            000000032001 0            0   0   *   

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

*032001  SETOM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032001 032001 032001 476000000003 777777777777 000000000017     000000000017 000000032001 0            0   0   777 
IT1	*      *      000003 *            476000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   SEQ 0303
FT6	*      000003 032002 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                200000000000 *            0            0   0   *   
ST5	032002 032002 *      205040400000 *            *                000000000017 *            0            0   0   *   

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

*032002  MOVSI	1,400000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032002 032002 032002 205040400000 777777777777 777777777777     000000000017 000000032001 0            0   0   777 
IT1	*      *      400000 *            205040400000 *                200000000000 *            0            0   0   *   
ET2	*      *      032003 *            200000000000 000000400000     *            *            0            0   0   *   
ST1	032003 032003 *      201100000001 777777777777 400000000000     400000000000 *            0            0   0   *   

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

*032003  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032003 032003 032003 201100000001 777777777777 400000000000     400000000000 000000032001 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032004 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032004 032004 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032004  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032004 032004 032004 200142000000 777777777777 000000000001     000000000001 000000032001 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032005 032005 032005 312140034465 777777777777 400000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                777777777777 *            0            0   0   *   
ST1	*      *      *      *            *            *                400000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =400000 000000 
FINAL
C(AC)=400000 000000 
----------
                                                                                                                           SEQ 0304
*032005  CAME	3,034465

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032005 032005 032005 312140034465 777777777777 400000000000     400000000000 000000032001 0            0   0   777 
IT1	*      *      034465 *            312140034465 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034465     *            *            0            0   0   *   
FT6	*      034465 *      400000000000 777777777777 400000000000     *            *            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)=400000 000000 C(E) =400000 000000 
----------

*032007  JUMPA	0,032010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032007 032007 032007 324000032010 777777777777 400000000000     400000000000 000000032001 0            0   0   777 
IT1	*      *      032010 *            324000032010 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032010     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032010 *            000000032010 000000000017     *            000000032010 0            0   0   *   

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

*032010  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032010 032010 032010 402000000003 777777777777 000000000017     000000000017 000000032010 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032011 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                400000000000 *            0            0   0   *   
ST5	032011 032011 *      476000000001 *            0                000000000017 *            0            0   0   *   

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

*032011  SETOM	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032011 032011 032011 476000000001 777777777777 0                000000000017 000000032010 0            0   0   777 
IT1	*      *      000001 *            476000000001 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 032012 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                400000000000 *            0            0   0   *   
ST5	032012 032012 *      201100000001 *            *                000000000017 *            0            0   0   *   SEQ 0305

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

*032012  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032012 032012 032012 201100000001 777777777777 777777777777     000000000017 000000032010 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032013 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032013 032013 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032013  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032013 032013 032013 200142000000 777777777777 000000000001     000000000001 000000032010 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032014 032014 032014 312140034466 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*032014  CAME	3,034466

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032014 032014 032014 312140034466 777777777777 777777777777     777777777777 000000032010 0            0   0   777 
IT1	*      *      034466 *            312140034466 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034466     *            *            0            0   0   *   
FT6	*      034466 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032015 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032015 *      032016 *            777777777777 *                *            *            0            0   0   *   

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

*032016  JUMPA	0,032017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032016 032016 032016 324000032017 777777777777 777777777777     777777777777 000000032010 0            0   0   77  SEQ 0306
IT1	*      *      032017 *            324000032017 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032017     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032017 *            000000032017 000000000017     *            000000032017 0            0   0   *   

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

*032017  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032017 032017 032017 402000000003 777777777777 000000000017     000000000017 000000032017 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032020 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032020 032020 *      561040777776 *            0                000000000017 *            0            0   0   *   

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

*032020  HRROI	1,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032020 032020 032020 561040777776 777777777777 0                000000000017 000000032017 0            0   0   777 
IT1	*      *      777776 *            561040777776 0                777777777777 *            0            0   0   *   
ET2	*      *      032021 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032021 032021 *      201100000001 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032021  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032021 032021 032021 201100000001 777777777777 777777777776     777777777776 000000032017 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032022 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032022 032022 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*032022  MOVE 	3,000000(2)                                                                                                SEQ 0307

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032022 032022 032022 200142000000 777777777777 000000000001     000000000001 000000032017 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032023 032023 032023 312140034467 777777777777 777777777776     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777776 *            0            0   0   *   

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

*032023  CAME	3,034467

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032023 032023 032023 312140034467 777777777777 777777777776     777777777776 000000032017 0            0   0   777 
IT1	*      *      034467 *            312140034467 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034467     *            *            0            0   0   *   
FT6	*      034467 *      777777777776 777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032024 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032024 *      032025 *            777777777777 *                *            *            0            0   0   *   

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

*032025  JUMPA	0,032026

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032025 032025 032025 324000032026 777777777777 777777777776     777777777776 000000032017 0            0   0   777 
IT1	*      *      032026 *            324000032026 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032026     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032026 *            000000032026 000000000017     *            000000032026 0            0   0   *   

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

*032026  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032026 032026 032026 402000000003 777777777777 000000000017     000000000017 000000032026 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032027 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777776 *            0            0   0   *   
ST5	032027 032027 *      561040777775 *            0                000000000017 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0308
C(AC)=000000 000017 C(E) =777777 777776 
FINAL
C(E) =000000 000000 
----------

*032027  HRROI	1,777775

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032027 032027 032027 561040777775 777777777777 0                000000000017 000000032026 0            0   0   777 
IT1	*      *      777775 *            561040777775 0                777777777776 *            0            0   0   *   
ET2	*      *      032030 *            777777777775 000000777775     *            *            0            0   0   *   
ST1	032030 032030 *      201100000001 777777777777 777777777775     777777777775 *            0            0   0   *   

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

*032030  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032030 032030 032030 201100000001 777777777777 777777777775     777777777775 000000032026 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032031 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032031 032031 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032031  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032031 032031 032031 200142000000 777777777777 000000000001     000000000001 000000032026 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032032 032032 032032 312140034470 777777777777 777777777775     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777775 *            0            0   0   *   

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

*032032  CAME	3,034470

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032032 032032 032032 312140034470 777777777777 777777777775     777777777775 000000032026 0            0   0   777 
IT1	*      *      034470 *            312140034470 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034470     *            *            0            0   0   *   
FT6	*      034470 *      777777777775 777777777777 777777777775     *            *            0            0   0   *   
ET0	*      *      032033 *            000000000000 *                *            *            0            0   0   *   SEQ 0309
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032033 *      032034 *            777777777777 *                *            *            0            0   0   *   

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

*032034  JUMPA	0,032035

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032034 032034 032034 324000032035 777777777777 777777777775     777777777775 000000032026 0            0   0   777 
IT1	*      *      032035 *            324000032035 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032035     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032035 *            000000032035 000000000017     *            000000032035 0            0   0   *   

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

*032035  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032035 032035 032035 402000000003 777777777777 000000000017     000000000017 000000032035 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032036 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777775 *            0            0   0   *   
ST5	032036 032036 *      561040777773 *            0                000000000017 *            0            0   0   *   

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

*032036  HRROI	1,777773

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032036 032036 032036 561040777773 777777777777 0                000000000017 000000032035 0            0   0   777 
IT1	*      *      777773 *            561040777773 0                777777777775 *            0            0   0   *   
ET2	*      *      032037 *            777777777773 000000777773     *            *            0            0   0   *   
ST1	032037 032037 *      201100000001 777777777777 777777777773     777777777773 *            0            0   0   *   

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

*032037  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032037 032037 032037 201100000001 777777777777 777777777773     777777777773 000000032035 0            0   0   77  SEQ 0310
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032040 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032040 032040 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032040  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032040 032040 032040 200142000000 777777777777 000000000001     000000000001 000000032035 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032041 032041 032041 312140034471 777777777777 777777777773     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777773 *            0            0   0   *   

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

*032041  CAME	3,034471

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032041 032041 032041 312140034471 777777777777 777777777773     777777777773 000000032035 0            0   0   777 
IT1	*      *      034471 *            312140034471 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034471     *            *            0            0   0   *   
FT6	*      034471 *      777777777773 777777777777 777777777773     *            *            0            0   0   *   
ET0	*      *      032042 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032042 *      032043 *            777777777777 *                *            *            0            0   0   *   

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

*032043  JUMPA	0,032044

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032043 032043 032043 324000032044 777777777777 777777777773     777777777773 000000032035 0            0   0   777 
IT1	*      *      032044 *            324000032044 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032044     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032044 *            000000032044 000000000017     *            000000032044 0            0   0   *   

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

*032044  SETZM	0,000003
                                                                                                                           SEQ 0311
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032044 032044 032044 402000000003 777777777777 000000000017     000000000017 000000032044 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032045 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777773 *            0            0   0   *   
ST5	032045 032045 *      561040777767 *            0                000000000017 *            0            0   0   *   

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

*032045  HRROI	1,777767

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032045 032045 032045 561040777767 777777777777 0                000000000017 000000032044 0            0   0   777 
IT1	*      *      777767 *            561040777767 0                777777777773 *            0            0   0   *   
ET2	*      *      032046 *            777777777767 000000777767     *            *            0            0   0   *   
ST1	032046 032046 *      201100000001 777777777777 777777777767     777777777767 *            0            0   0   *   

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

*032046  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032046 032046 032046 201100000001 777777777777 777777777767     777777777767 000000032044 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032047 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032047 032047 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032047  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032047 032047 032047 200142000000 777777777777 000000000001     000000000001 000000032044 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032050 032050 032050 312140034472 777777777777 777777777767     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777767 *            0            0   0   *   

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

*032050  CAME	3,034472

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032050 032050 032050 312140034472 777777777777 777777777767     777777777767 000000032044 0            0   0   777 
IT1	*      *      034472 *            312140034472 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034472     *            *            0            0   0   *   
FT6	*      034472 *      777777777767 777777777777 777777777767     *            *            0            0   0   *   
ET0	*      *      032051 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032051 *      032052 *            777777777777 *                *            *            0            0   0   *   

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

*032052  JUMPA	0,032053

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032052 032052 032052 324000032053 777777777777 777777777767     777777777767 000000032044 0            0   0   777 
IT1	*      *      032053 *            324000032053 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032053     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032053 *            000000032053 000000000017     *            000000032053 0            0   0   *   

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

*032053  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032053 032053 032053 402000000003 777777777777 000000000017     000000000017 000000032053 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032054 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777767 *            0            0   0   *   
ST5	032054 032054 *      561040777757 *            0                000000000017 *            0            0   0   *   

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

*032054  HRROI	1,777757

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032054 032054 032054 561040777757 777777777777 0                000000000017 000000032053 0            0   0   777 
IT1	*      *      777757 *            561040777757 0                777777777767 *            0            0   0   *   
ET2	*      *      032055 *            777777777757 000000777757     *            *            0            0   0   *   
ST1	032055 032055 *      201100000001 777777777777 777777777757     777777777757 *            0            0   0   *   SEQ 0313

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

*032055  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032055 032055 032055 201100000001 777777777777 777777777757     777777777757 000000032053 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032056 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032056 032056 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032056  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032056 032056 032056 200142000000 777777777777 000000000001     000000000001 000000032053 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032057 032057 032057 312140034473 777777777777 777777777757     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777757 *            0            0   0   *   

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

*032057  CAME	3,034473

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032057 032057 032057 312140034473 777777777777 777777777757     777777777757 000000032053 0            0   0   777 
IT1	*      *      034473 *            312140034473 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034473     *            *            0            0   0   *   
FT6	*      034473 *      777777777757 777777777777 777777777757     *            *            0            0   0   *   
ET0	*      *      032060 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032060 *      032061 *            777777777777 *                *            *            0            0   0   *   

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

*032061  JUMPA	0,032062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032061 032061 032061 324000032062 777777777777 777777777757     777777777757 000000032053 0            0   0   77  SEQ 0314
IT1	*      *      032062 *            324000032062 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032062     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032062 *            000000032062 000000000017     *            000000032062 0            0   0   *   

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

*032062  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032062 032062 032062 402000000003 777777777777 000000000017     000000000017 000000032062 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032063 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777757 *            0            0   0   *   
ST5	032063 032063 *      561040777737 *            0                000000000017 *            0            0   0   *   

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

*032063  HRROI	1,777737

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032063 032063 032063 561040777737 777777777777 0                000000000017 000000032062 0            0   0   777 
IT1	*      *      777737 *            561040777737 0                777777777757 *            0            0   0   *   
ET2	*      *      032064 *            777777777737 000000777737     *            *            0            0   0   *   
ST1	032064 032064 *      201100000001 777777777777 777777777737     777777777737 *            0            0   0   *   

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

*032064  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032064 032064 032064 201100000001 777777777777 777777777737     777777777737 000000032062 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032065 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032065 032065 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*032065  MOVE 	3,000000(2)                                                                                                SEQ 0315

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032065 032065 032065 200142000000 777777777777 000000000001     000000000001 000000032062 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032066 032066 032066 312140034474 777777777777 777777777737     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777737 *            0            0   0   *   

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

*032066  CAME	3,034474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032066 032066 032066 312140034474 777777777777 777777777737     777777777737 000000032062 0            0   0   777 
IT1	*      *      034474 *            312140034474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034474     *            *            0            0   0   *   
FT6	*      034474 *      777777777737 777777777777 777777777737     *            *            0            0   0   *   
ET0	*      *      032067 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032067 *      032070 *            777777777777 *                *            *            0            0   0   *   

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

*032070  JUMPA	0,032071

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032070 032070 032070 324000032071 777777777777 777777777737     777777777737 000000032062 0            0   0   777 
IT1	*      *      032071 *            324000032071 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032071     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032071 *            000000032071 000000000017     *            000000032071 0            0   0   *   

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

*032071  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032071 032071 032071 402000000003 777777777777 000000000017     000000000017 000000032071 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032072 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777737 *            0            0   0   *   
ST5	032072 032072 *      561040777677 *            0                000000000017 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0316
C(AC)=000000 000017 C(E) =777777 777737 
FINAL
C(E) =000000 000000 
----------

*032072  HRROI	1,777677

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032072 032072 032072 561040777677 777777777777 0                000000000017 000000032071 0            0   0   777 
IT1	*      *      777677 *            561040777677 0                777777777737 *            0            0   0   *   
ET2	*      *      032073 *            777777777677 000000777677     *            *            0            0   0   *   
ST1	032073 032073 *      201100000001 777777777777 777777777677     777777777677 *            0            0   0   *   

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

*032073  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032073 032073 032073 201100000001 777777777777 777777777677     777777777677 000000032071 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032074 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032074 032074 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032074  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032074 032074 032074 200142000000 777777777777 000000000001     000000000001 000000032071 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032075 032075 032075 312140034475 777777777777 777777777677     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777677 *            0            0   0   *   

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

*032075  CAME	3,034475

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032075 032075 032075 312140034475 777777777777 777777777677     777777777677 000000032071 0            0   0   777 
IT1	*      *      034475 *            312140034475 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034475     *            *            0            0   0   *   
FT6	*      034475 *      777777777677 777777777777 777777777677     *            *            0            0   0   *   
ET0	*      *      032076 *            000000000000 *                *            *            0            0   0   *   SEQ 0317
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032076 *      032077 *            777777777777 *                *            *            0            0   0   *   

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

*032077  JUMPA	0,032100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032077 032077 032077 324000032100 777777777777 777777777677     777777777677 000000032071 0            0   0   777 
IT1	*      *      032100 *            324000032100 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032100     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032100 *            000000032100 000000000017     *            000000032100 0            0   0   *   

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

*032100  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032100 032100 032100 402000000003 777777777777 000000000017     000000000017 000000032100 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032101 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777677 *            0            0   0   *   
ST5	032101 032101 *      561040777577 *            0                000000000017 *            0            0   0   *   

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

*032101  HRROI	1,777577

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032101 032101 032101 561040777577 777777777777 0                000000000017 000000032100 0            0   0   777 
IT1	*      *      777577 *            561040777577 0                777777777677 *            0            0   0   *   
ET2	*      *      032102 *            777777777577 000000777577     *            *            0            0   0   *   
ST1	032102 032102 *      201100000001 777777777777 777777777577     777777777577 *            0            0   0   *   

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

*032102  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032102 032102 032102 201100000001 777777777777 777777777577     777777777577 000000032100 0            0   0   77  SEQ 0318
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032103 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032103 032103 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032103  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032103 032103 032103 200142000000 777777777777 000000000001     000000000001 000000032100 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032104 032104 032104 312140034476 777777777777 777777777577     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777577 *            0            0   0   *   

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

*032104  CAME	3,034476

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032104 032104 032104 312140034476 777777777777 777777777577     777777777577 000000032100 0            0   0   777 
IT1	*      *      034476 *            312140034476 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034476     *            *            0            0   0   *   
FT6	*      034476 *      777777777577 777777777777 777777777577     *            *            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 777577 C(E) =777777 777577 
----------

*032106  JUMPA	0,032107

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032106 032106 032106 324000032107 777777777777 777777777577     777777777577 000000032100 0            0   0   777 
IT1	*      *      032107 *            324000032107 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032107     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032107 *            000000032107 000000000017     *            000000032107 0            0   0   *   

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

*032107  SETZM	0,000003
                                                                                                                           SEQ 0319
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032107 032107 032107 402000000003 777777777777 000000000017     000000000017 000000032107 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032110 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777577 *            0            0   0   *   
ST5	032110 032110 *      561040777377 *            0                000000000017 *            0            0   0   *   

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

*032110  HRROI	1,777377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032110 032110 032110 561040777377 777777777777 0                000000000017 000000032107 0            0   0   777 
IT1	*      *      777377 *            561040777377 0                777777777577 *            0            0   0   *   
ET2	*      *      032111 *            777777777377 000000777377     *            *            0            0   0   *   
ST1	032111 032111 *      201100000001 777777777777 777777777377     777777777377 *            0            0   0   *   

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

*032111  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032111 032111 032111 201100000001 777777777777 777777777377     777777777377 000000032107 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032112 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032112 032112 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032112  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032112 032112 032112 200142000000 777777777777 000000000001     000000000001 000000032107 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032113 032113 032113 312140034477 777777777777 777777777377     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777377 *            0            0   0   *   

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

*032113  CAME	3,034477

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032113 032113 032113 312140034477 777777777777 777777777377     777777777377 000000032107 0            0   0   777 
IT1	*      *      034477 *            312140034477 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034477     *            *            0            0   0   *   
FT6	*      034477 *      777777777377 777777777777 777777777377     *            *            0            0   0   *   
ET0	*      *      032114 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032114 *      032115 *            777777777777 *                *            *            0            0   0   *   

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

*032115  JUMPA	0,032116

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032115 032115 032115 324000032116 777777777777 777777777377     777777777377 000000032107 0            0   0   777 
IT1	*      *      032116 *            324000032116 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032116     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032116 *            000000032116 000000000017     *            000000032116 0            0   0   *   

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

*032116  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032116 032116 032116 402000000003 777777777777 000000000017     000000000017 000000032116 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032117 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777377 *            0            0   0   *   
ST5	032117 032117 *      561040776777 *            0                000000000017 *            0            0   0   *   

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

*032117  HRROI	1,776777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032117 032117 032117 561040776777 777777777777 0                000000000017 000000032116 0            0   0   777 
IT1	*      *      776777 *            561040776777 0                777777777377 *            0            0   0   *   
ET2	*      *      032120 *            777777776777 000000776777     *            *            0            0   0   *   
ST1	032120 032120 *      201100000001 777777777777 777777776777     777777776777 *            0            0   0   *   SEQ 0321

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

*032120  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032120 032120 032120 201100000001 777777777777 777777776777     777777776777 000000032116 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032121 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032121 032121 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032121  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032121 032121 032121 200142000000 777777777777 000000000001     000000000001 000000032116 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032122 032122 032122 312140034500 777777777777 777777776777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777776777 *            0            0   0   *   

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

*032122  CAME	3,034500

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032122 032122 032122 312140034500 777777777777 777777776777     777777776777 000000032116 0            0   0   777 
IT1	*      *      034500 *            312140034500 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034500     *            *            0            0   0   *   
FT6	*      034500 *      777777776777 777777777777 777777776777     *            *            0            0   0   *   
ET0	*      *      032123 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032123 *      032124 *            777777777777 *                *            *            0            0   0   *   

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

*032124  JUMPA	0,032125

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032124 032124 032124 324000032125 777777777777 777777776777     777777776777 000000032116 0            0   0   77  SEQ 0322
IT1	*      *      032125 *            324000032125 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032125     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032125 *            000000032125 000000000017     *            000000032125 0            0   0   *   

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

*032125  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032125 032125 032125 402000000003 777777777777 000000000017     000000000017 000000032125 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032126 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777776777 *            0            0   0   *   
ST5	032126 032126 *      561040775777 *            0                000000000017 *            0            0   0   *   

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

*032126  HRROI	1,775777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032126 032126 032126 561040775777 777777777777 0                000000000017 000000032125 0            0   0   777 
IT1	*      *      775777 *            561040775777 0                777777776777 *            0            0   0   *   
ET2	*      *      032127 *            777777775777 000000775777     *            *            0            0   0   *   
ST1	032127 032127 *      201100000001 777777777777 777777775777     777777775777 *            0            0   0   *   

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

*032127  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032127 032127 032127 201100000001 777777777777 777777775777     777777775777 000000032125 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032130 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032130 032130 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*032130  MOVE 	3,000000(2)                                                                                                SEQ 0323

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032130 032130 032130 200142000000 777777777777 000000000001     000000000001 000000032125 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032131 032131 032131 312140034501 777777777777 777777775777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777775777 *            0            0   0   *   

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

*032131  CAME	3,034501

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032131 032131 032131 312140034501 777777777777 777777775777     777777775777 000000032125 0            0   0   777 
IT1	*      *      034501 *            312140034501 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034501     *            *            0            0   0   *   
FT6	*      034501 *      777777775777 777777777777 777777775777     *            *            0            0   0   *   
ET0	*      *      032132 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032132 *      032133 *            777777777777 *                *            *            0            0   0   *   

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

*032133  JUMPA	0,032134

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032133 032133 032133 324000032134 777777777777 777777775777     777777775777 000000032125 0            0   0   777 
IT1	*      *      032134 *            324000032134 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032134     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032134 *            000000032134 000000000017     *            000000032134 0            0   0   *   

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

*032134  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032134 032134 032134 402000000003 777777777777 000000000017     000000000017 000000032134 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032135 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777775777 *            0            0   0   *   
ST5	032135 032135 *      561040773777 *            0                000000000017 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0324
C(AC)=000000 000017 C(E) =777777 775777 
FINAL
C(E) =000000 000000 
----------

*032135  HRROI	1,773777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032135 032135 032135 561040773777 777777777777 0                000000000017 000000032134 0            0   0   777 
IT1	*      *      773777 *            561040773777 0                777777775777 *            0            0   0   *   
ET2	*      *      032136 *            777777773777 000000773777     *            *            0            0   0   *   
ST1	032136 032136 *      201100000001 777777777777 777777773777     777777773777 *            0            0   0   *   

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

*032136  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032136 032136 032136 201100000001 777777777777 777777773777     777777773777 000000032134 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032137 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032137 032137 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032137  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032137 032137 032137 200142000000 777777777777 000000000001     000000000001 000000032134 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032140 032140 032140 312140034502 777777777777 777777773777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777773777 *            0            0   0   *   

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

*032140  CAME	3,034502

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032140 032140 032140 312140034502 777777777777 777777773777     777777773777 000000032134 0            0   0   777 
IT1	*      *      034502 *            312140034502 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034502     *            *            0            0   0   *   
FT6	*      034502 *      777777773777 777777777777 777777773777     *            *            0            0   0   *   
ET0	*      *      032141 *            000000000000 *                *            *            0            0   0   *   SEQ 0325
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032141 *      032142 *            777777777777 *                *            *            0            0   0   *   

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

*032142  JUMPA	0,032143

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032142 032142 032142 324000032143 777777777777 777777773777     777777773777 000000032134 0            0   0   777 
IT1	*      *      032143 *            324000032143 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032143     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032143 *            000000032143 000000000017     *            000000032143 0            0   0   *   

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

*032143  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032143 032143 032143 402000000003 777777777777 000000000017     000000000017 000000032143 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032144 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777773777 *            0            0   0   *   
ST5	032144 032144 *      561040767777 *            0                000000000017 *            0            0   0   *   

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

*032144  HRROI	1,767777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032144 032144 032144 561040767777 777777777777 0                000000000017 000000032143 0            0   0   777 
IT1	*      *      767777 *            561040767777 0                777777773777 *            0            0   0   *   
ET2	*      *      032145 *            777777767777 000000767777     *            *            0            0   0   *   
ST1	032145 032145 *      201100000001 777777777777 777777767777     777777767777 *            0            0   0   *   

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

*032145  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032145 032145 032145 201100000001 777777777777 777777767777     777777767777 000000032143 0            0   0   77  SEQ 0326
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032146 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032146 032146 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032146  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032146 032146 032146 200142000000 777777777777 000000000001     000000000001 000000032143 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032147 032147 032147 312140034503 777777777777 777777767777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777767777 *            0            0   0   *   

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

*032147  CAME	3,034503

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032147 032147 032147 312140034503 777777777777 777777767777     777777767777 000000032143 0            0   0   777 
IT1	*      *      034503 *            312140034503 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034503     *            *            0            0   0   *   
FT6	*      034503 *      777777767777 777777777777 777777767777     *            *            0            0   0   *   
ET0	*      *      032150 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032150 *      032151 *            777777777777 *                *            *            0            0   0   *   

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

*032151  JUMPA	0,032152

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032151 032151 032151 324000032152 777777777777 777777767777     777777767777 000000032143 0            0   0   777 
IT1	*      *      032152 *            324000032152 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032152     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032152 *            000000032152 000000000017     *            000000032152 0            0   0   *   

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

*032152  SETZM	0,000003
                                                                                                                           SEQ 0327
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032152 032152 032152 402000000003 777777777777 000000000017     000000000017 000000032152 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032153 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777767777 *            0            0   0   *   
ST5	032153 032153 *      561040757777 *            0                000000000017 *            0            0   0   *   

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

*032153  HRROI	1,757777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032153 032153 032153 561040757777 777777777777 0                000000000017 000000032152 0            0   0   777 
IT1	*      *      757777 *            561040757777 0                777777767777 *            0            0   0   *   
ET2	*      *      032154 *            777777757777 000000757777     *            *            0            0   0   *   
ST1	032154 032154 *      201100000001 777777777777 777777757777     777777757777 *            0            0   0   *   

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

*032154  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032154 032154 032154 201100000001 777777777777 777777757777     777777757777 000000032152 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032155 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032155 032155 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032155  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032155 032155 032155 200142000000 777777777777 000000000001     000000000001 000000032152 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032156 032156 032156 312140034504 777777777777 777777757777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777757777 *            0            0   0   *   

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

*032156  CAME	3,034504

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032156 032156 032156 312140034504 777777777777 777777757777     777777757777 000000032152 0            0   0   777 
IT1	*      *      034504 *            312140034504 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034504     *            *            0            0   0   *   
FT6	*      034504 *      777777757777 777777777777 777777757777     *            *            0            0   0   *   
ET0	*      *      032157 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032157 *      032160 *            777777777777 *                *            *            0            0   0   *   

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

*032160  JUMPA	0,032161

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032160 032160 032160 324000032161 777777777777 777777757777     777777757777 000000032152 0            0   0   777 
IT1	*      *      032161 *            324000032161 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032161     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032161 *            000000032161 000000000017     *            000000032161 0            0   0   *   

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

*032161  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032161 032161 032161 402000000003 777777777777 000000000017     000000000017 000000032161 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032162 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777757777 *            0            0   0   *   
ST5	032162 032162 *      561040737777 *            0                000000000017 *            0            0   0   *   

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

*032162  HRROI	1,737777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032162 032162 032162 561040737777 777777777777 0                000000000017 000000032161 0            0   0   777 
IT1	*      *      737777 *            561040737777 0                777777757777 *            0            0   0   *   
ET2	*      *      032163 *            777777737777 000000737777     *            *            0            0   0   *   
ST1	032163 032163 *      201100000001 777777777777 777777737777     777777737777 *            0            0   0   *   SEQ 0329

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

*032163  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032163 032163 032163 201100000001 777777777777 777777737777     777777737777 000000032161 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032164 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032164 032164 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032164  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032164 032164 032164 200142000000 777777777777 000000000001     000000000001 000000032161 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032165 032165 032165 312140034505 777777777777 777777737777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777737777 *            0            0   0   *   

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

*032165  CAME	3,034505

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032165 032165 032165 312140034505 777777777777 777777737777     777777737777 000000032161 0            0   0   777 
IT1	*      *      034505 *            312140034505 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034505     *            *            0            0   0   *   
FT6	*      034505 *      777777737777 777777777777 777777737777     *            *            0            0   0   *   
ET0	*      *      032166 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032166 *      032167 *            777777777777 *                *            *            0            0   0   *   

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

*032167  JUMPA	0,032170

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032167 032167 032167 324000032170 777777777777 777777737777     777777737777 000000032161 0            0   0   77  SEQ 0330
IT1	*      *      032170 *            324000032170 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032170     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032170 *            000000032170 000000000017     *            000000032170 0            0   0   *   

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

*032170  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032170 032170 032170 402000000003 777777777777 000000000017     000000000017 000000032170 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032171 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777737777 *            0            0   0   *   
ST5	032171 032171 *      561040677777 *            0                000000000017 *            0            0   0   *   

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

*032171  HRROI	1,677777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032171 032171 032171 561040677777 777777777777 0                000000000017 000000032170 0            0   0   777 
IT1	*      *      677777 *            561040677777 0                777777737777 *            0            0   0   *   
ET2	*      *      032172 *            777777677777 000000677777     *            *            0            0   0   *   
ST1	032172 032172 *      201100000001 777777777777 777777677777     777777677777 *            0            0   0   *   

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

*032172  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032172 032172 032172 201100000001 777777777777 777777677777     777777677777 000000032170 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032173 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032173 032173 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*032173  MOVE 	3,000000(2)                                                                                                SEQ 0331

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032173 032173 032173 200142000000 777777777777 000000000001     000000000001 000000032170 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032174 032174 032174 312140034506 777777777777 777777677777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777677777 *            0            0   0   *   

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

*032174  CAME	3,034506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032174 032174 032174 312140034506 777777777777 777777677777     777777677777 000000032170 0            0   0   777 
IT1	*      *      034506 *            312140034506 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034506     *            *            0            0   0   *   
FT6	*      034506 *      777777677777 777777777777 777777677777     *            *            0            0   0   *   
ET0	*      *      032175 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032175 *      032176 *            777777777777 *                *            *            0            0   0   *   

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

*032176  JUMPA	0,032177

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032176 032176 032176 324000032177 777777777777 777777677777     777777677777 000000032170 0            0   0   777 
IT1	*      *      032177 *            324000032177 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032177     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032177 *            000000032177 000000000017     *            000000032177 0            0   0   *   

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

*032177  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032177 032177 032177 402000000003 777777777777 000000000017     000000000017 000000032177 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032200 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777677777 *            0            0   0   *   
ST5	032200 032200 *      561040577777 *            0                000000000017 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0332
C(AC)=000000 000017 C(E) =777777 677777 
FINAL
C(E) =000000 000000 
----------

*032200  HRROI	1,577777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032200 032200 032200 561040577777 777777777777 0                000000000017 000000032177 0            0   0   777 
IT1	*      *      577777 *            561040577777 0                777777677777 *            0            0   0   *   
ET2	*      *      032201 *            777777577777 000000577777     *            *            0            0   0   *   
ST1	032201 032201 *      201100000001 777777777777 777777577777     777777577777 *            0            0   0   *   

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

*032201  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032201 032201 032201 201100000001 777777777777 777777577777     777777577777 000000032177 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032202 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032202 032202 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032202  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032202 032202 032202 200142000000 777777777777 000000000001     000000000001 000000032177 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032203 032203 032203 312140034507 777777777777 777777577777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777577777 *            0            0   0   *   

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

*032203  CAME	3,034507

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032203 032203 032203 312140034507 777777777777 777777577777     777777577777 000000032177 0            0   0   777 
IT1	*      *      034507 *            312140034507 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034507     *            *            0            0   0   *   
FT6	*      034507 *      777777577777 777777777777 777777577777     *            *            0            0   0   *   
ET0	*      *      032204 *            000000000000 *                *            *            0            0   0   *   SEQ 0333
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032204 *      032205 *            777777777777 *                *            *            0            0   0   *   

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

*032205  JUMPA	0,032206

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032205 032205 032205 324000032206 777777777777 777777577777     777777577777 000000032177 0            0   0   777 
IT1	*      *      032206 *            324000032206 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032206     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032206 *            000000032206 000000000017     *            000000032206 0            0   0   *   

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

*032206  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032206 032206 032206 402000000003 777777777777 000000000017     000000000017 000000032206 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032207 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777577777 *            0            0   0   *   
ST5	032207 032207 *      561040377777 *            0                000000000017 *            0            0   0   *   

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

*032207  HRROI	1,377777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032207 032207 032207 561040377777 777777777777 0                000000000017 000000032206 0            0   0   777 
IT1	*      *      377777 *            561040377777 0                777777577777 *            0            0   0   *   
ET2	*      *      032210 *            777777377777 000000377777     *            *            0            0   0   *   
ST1	032210 032210 *      201100000001 777777777777 777777377777     777777377777 *            0            0   0   *   

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

*032210  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032210 032210 032210 201100000001 777777777777 777777377777     777777377777 000000032206 0            0   0   77  SEQ 0334
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032211 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032211 032211 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032211  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032211 032211 032211 200142000000 777777777777 000000000001     000000000001 000000032206 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032212 032212 032212 312140034510 777777777777 777777377777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777377777 *            0            0   0   *   

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

*032212  CAME	3,034510

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032212 032212 032212 312140034510 777777777777 777777377777     777777377777 000000032206 0            0   0   777 
IT1	*      *      034510 *            312140034510 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034510     *            *            0            0   0   *   
FT6	*      034510 *      777777377777 777777777777 777777377777     *            *            0            0   0   *   
ET0	*      *      032213 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032213 *      032214 *            777777777777 *                *            *            0            0   0   *   

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

*032214  JUMPA	0,032215

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032214 032214 032214 324000032215 777777777777 777777377777     777777377777 000000032206 0            0   0   777 
IT1	*      *      032215 *            324000032215 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032215     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032215 *            000000032215 000000000017     *            000000032215 0            0   0   *   

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

*032215  SETZM	0,000003
                                                                                                                           SEQ 0335
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032215 032215 032215 402000000003 777777777777 000000000017     000000000017 000000032215 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032216 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777377777 *            0            0   0   *   
ST5	032216 032216 *      525040777776 *            0                000000000017 *            0            0   0   *   

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

*032216  HRLOI	1,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032216 032216 032216 525040777776 777777777777 0                000000000017 000000032215 0            0   0   777 
IT1	*      *      777776 *            525040777776 0                777777377777 *            0            0   0   *   
ET2	*      *      032217 *            777777777777 000000777776     *            *            0            0   0   *   
ST1	032217 032217 *      201100000001 *            777776777777     777776777777 *            0            0   0   *   

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

*032217  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032217 032217 032217 201100000001 777777777777 777776777777     777776777777 000000032215 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032220 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032220 032220 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032220  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032220 032220 032220 200142000000 777777777777 000000000001     000000000001 000000032215 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032221 032221 032221 312140034511 777777777777 777776777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777776777777 *            0            0   0   *   

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

*032221  CAME	3,034511

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032221 032221 032221 312140034511 777777777777 777776777777     777776777777 000000032215 0            0   0   777 
IT1	*      *      034511 *            312140034511 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034511     *            *            0            0   0   *   
FT6	*      034511 *      777776777777 777777777777 777776777777     *            *            0            0   0   *   
ET0	*      *      032222 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032222 *      032223 *            777777777777 *                *            *            0            0   0   *   

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

*032223  JUMPA	0,032224

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032223 032223 032223 324000032224 777777777777 777776777777     777776777777 000000032215 0            0   0   777 
IT1	*      *      032224 *            324000032224 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032224     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032224 *            000000032224 000000000017     *            000000032224 0            0   0   *   

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

*032224  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032224 032224 032224 402000000003 777777777777 000000000017     000000000017 000000032224 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032225 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777776777777 *            0            0   0   *   
ST5	032225 032225 *      525040777775 *            0                000000000017 *            0            0   0   *   

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

*032225  HRLOI	1,777775

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032225 032225 032225 525040777775 777777777777 0                000000000017 000000032224 0            0   0   777 
IT1	*      *      777775 *            525040777775 0                777776777777 *            0            0   0   *   
ET2	*      *      032226 *            777777777777 000000777775     *            *            0            0   0   *   
ST1	032226 032226 *      201100000001 *            777775777777     777775777777 *            0            0   0   *   SEQ 0337

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

*032226  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032226 032226 032226 201100000001 777777777777 777775777777     777775777777 000000032224 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032227 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032227 032227 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032227  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032227 032227 032227 200142000000 777777777777 000000000001     000000000001 000000032224 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032230 032230 032230 312140034512 777777777777 777775777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777775777777 *            0            0   0   *   

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

*032230  CAME	3,034512

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032230 032230 032230 312140034512 777777777777 777775777777     777775777777 000000032224 0            0   0   777 
IT1	*      *      034512 *            312140034512 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034512     *            *            0            0   0   *   
FT6	*      034512 *      777775777777 777777777777 777775777777     *            *            0            0   0   *   
ET0	*      *      032231 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032231 *      032232 *            777777777777 *                *            *            0            0   0   *   

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

*032232  JUMPA	0,032233

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032232 032232 032232 324000032233 777777777777 777775777777     777775777777 000000032224 0            0   0   77  SEQ 0338
IT1	*      *      032233 *            324000032233 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032233     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032233 *            000000032233 000000000017     *            000000032233 0            0   0   *   

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

*032233  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032233 032233 032233 402000000003 777777777777 000000000017     000000000017 000000032233 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032234 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777775777777 *            0            0   0   *   
ST5	032234 032234 *      525040777773 *            0                000000000017 *            0            0   0   *   

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

*032234  HRLOI	1,777773

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032234 032234 032234 525040777773 777777777777 0                000000000017 000000032233 0            0   0   777 
IT1	*      *      777773 *            525040777773 0                777775777777 *            0            0   0   *   
ET2	*      *      032235 *            777777777777 000000777773     *            *            0            0   0   *   
ST1	032235 032235 *      201100000001 *            777773777777     777773777777 *            0            0   0   *   

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

*032235  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032235 032235 032235 201100000001 777777777777 777773777777     777773777777 000000032233 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032236 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032236 032236 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*032236  MOVE 	3,000000(2)                                                                                                SEQ 0339

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032236 032236 032236 200142000000 777777777777 000000000001     000000000001 000000032233 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032237 032237 032237 312140034513 777777777777 777773777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777773777777 *            0            0   0   *   

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

*032237  CAME	3,034513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032237 032237 032237 312140034513 777777777777 777773777777     777773777777 000000032233 0            0   0   777 
IT1	*      *      034513 *            312140034513 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034513     *            *            0            0   0   *   
FT6	*      034513 *      777773777777 777777777777 777773777777     *            *            0            0   0   *   
ET0	*      *      032240 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032240 *      032241 *            777777777777 *                *            *            0            0   0   *   

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

*032241  JUMPA	0,032242

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032241 032241 032241 324000032242 777777777777 777773777777     777773777777 000000032233 0            0   0   777 
IT1	*      *      032242 *            324000032242 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032242     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032242 *            000000032242 000000000017     *            000000032242 0            0   0   *   

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

*032242  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032242 032242 032242 402000000003 777777777777 000000000017     000000000017 000000032242 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032243 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777773777777 *            0            0   0   *   
ST5	032243 032243 *      525040777767 *            0                000000000017 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0340
C(AC)=000000 000017 C(E) =777773 777777 
FINAL
C(E) =000000 000000 
----------

*032243  HRLOI	1,777767

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032243 032243 032243 525040777767 777777777777 0                000000000017 000000032242 0            0   0   777 
IT1	*      *      777767 *            525040777767 0                777773777777 *            0            0   0   *   
ET2	*      *      032244 *            777777777777 000000777767     *            *            0            0   0   *   
ST1	032244 032244 *      201100000001 *            777767777777     777767777777 *            0            0   0   *   

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

*032244  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032244 032244 032244 201100000001 777777777777 777767777777     777767777777 000000032242 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032245 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032245 032245 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032245  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032245 032245 032245 200142000000 777777777777 000000000001     000000000001 000000032242 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032246 032246 032246 312140034514 777777777777 777767777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777767777777 *            0            0   0   *   

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

*032246  CAME	3,034514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032246 032246 032246 312140034514 777777777777 777767777777     777767777777 000000032242 0            0   0   777 
IT1	*      *      034514 *            312140034514 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034514     *            *            0            0   0   *   
FT6	*      034514 *      777767777777 777777777777 777767777777     *            *            0            0   0   *   
ET0	*      *      032247 *            000000000000 *                *            *            0            0   0   *   SEQ 0341
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032247 *      032250 *            777777777777 *                *            *            0            0   0   *   

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

*032250  JUMPA	0,032251

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032250 032250 032250 324000032251 777777777777 777767777777     777767777777 000000032242 0            0   0   777 
IT1	*      *      032251 *            324000032251 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032251     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032251 *            000000032251 000000000017     *            000000032251 0            0   0   *   

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

*032251  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032251 032251 032251 402000000003 777777777777 000000000017     000000000017 000000032251 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032252 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777767777777 *            0            0   0   *   
ST5	032252 032252 *      525040777757 *            0                000000000017 *            0            0   0   *   

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

*032252  HRLOI	1,777757

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032252 032252 032252 525040777757 777777777777 0                000000000017 000000032251 0            0   0   777 
IT1	*      *      777757 *            525040777757 0                777767777777 *            0            0   0   *   
ET2	*      *      032253 *            777777777777 000000777757     *            *            0            0   0   *   
ST1	032253 032253 *      201100000001 *            777757777777     777757777777 *            0            0   0   *   

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

*032253  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032253 032253 032253 201100000001 777777777777 777757777777     777757777777 000000032251 0            0   0   77  SEQ 0342
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032254 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032254 032254 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032254  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032254 032254 032254 200142000000 777777777777 000000000001     000000000001 000000032251 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032255 032255 032255 312140034515 777777777777 777757777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777757777777 *            0            0   0   *   

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

*032255  CAME	3,034515

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032255 032255 032255 312140034515 777777777777 777757777777     777757777777 000000032251 0            0   0   777 
IT1	*      *      034515 *            312140034515 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034515     *            *            0            0   0   *   
FT6	*      034515 *      777757777777 777777777777 777757777777     *            *            0            0   0   *   
ET0	*      *      032256 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032256 *      032257 *            777777777777 *                *            *            0            0   0   *   

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

*032257  JUMPA	0,032260

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032257 032257 032257 324000032260 777777777777 777757777777     777757777777 000000032251 0            0   0   777 
IT1	*      *      032260 *            324000032260 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032260     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032260 *            000000032260 000000000017     *            000000032260 0            0   0   *   

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

*032260  SETZM	0,000003
                                                                                                                           SEQ 0343
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032260 032260 032260 402000000003 777777777777 000000000017     000000000017 000000032260 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032261 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777757777777 *            0            0   0   *   
ST5	032261 032261 *      525040777737 *            0                000000000017 *            0            0   0   *   

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

*032261  HRLOI	1,777737

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032261 032261 032261 525040777737 777777777777 0                000000000017 000000032260 0            0   0   777 
IT1	*      *      777737 *            525040777737 0                777757777777 *            0            0   0   *   
ET2	*      *      032262 *            777777777777 000000777737     *            *            0            0   0   *   
ST1	032262 032262 *      201100000001 *            777737777777     777737777777 *            0            0   0   *   

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

*032262  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032262 032262 032262 201100000001 777777777777 777737777777     777737777777 000000032260 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032263 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032263 032263 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032263  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032263 032263 032263 200142000000 777777777777 000000000001     000000000001 000000032260 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032264 032264 032264 312140034516 777777777777 777737777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777737777777 *            0            0   0   *   

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

*032264  CAME	3,034516

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032264 032264 032264 312140034516 777777777777 777737777777     777737777777 000000032260 0            0   0   777 
IT1	*      *      034516 *            312140034516 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034516     *            *            0            0   0   *   
FT6	*      034516 *      777737777777 777777777777 777737777777     *            *            0            0   0   *   
ET0	*      *      032265 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032265 *      032266 *            777777777777 *                *            *            0            0   0   *   

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

*032266  JUMPA	0,032267

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032266 032266 032266 324000032267 777777777777 777737777777     777737777777 000000032260 0            0   0   777 
IT1	*      *      032267 *            324000032267 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032267     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032267 *            000000032267 000000000017     *            000000032267 0            0   0   *   

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

*032267  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032267 032267 032267 402000000003 777777777777 000000000017     000000000017 000000032267 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032270 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777737777777 *            0            0   0   *   
ST5	032270 032270 *      525040777677 *            0                000000000017 *            0            0   0   *   

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

*032270  HRLOI	1,777677

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032270 032270 032270 525040777677 777777777777 0                000000000017 000000032267 0            0   0   777 
IT1	*      *      777677 *            525040777677 0                777737777777 *            0            0   0   *   
ET2	*      *      032271 *            777777777777 000000777677     *            *            0            0   0   *   
ST1	032271 032271 *      201100000001 *            777677777777     777677777777 *            0            0   0   *   SEQ 0345

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

*032271  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032271 032271 032271 201100000001 777777777777 777677777777     777677777777 000000032267 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032272 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032272 032272 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032272  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032272 032272 032272 200142000000 777777777777 000000000001     000000000001 000000032267 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032273 032273 032273 312140034517 777777777777 777677777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777677777777 *            0            0   0   *   

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

*032273  CAME	3,034517

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032273 032273 032273 312140034517 777777777777 777677777777     777677777777 000000032267 0            0   0   777 
IT1	*      *      034517 *            312140034517 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034517     *            *            0            0   0   *   
FT6	*      034517 *      777677777777 777777777777 777677777777     *            *            0            0   0   *   
ET0	*      *      032274 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032274 *      032275 *            777777777777 *                *            *            0            0   0   *   

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

*032275  JUMPA	0,032276

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032275 032275 032275 324000032276 777777777777 777677777777     777677777777 000000032267 0            0   0   77  SEQ 0346
IT1	*      *      032276 *            324000032276 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032276     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032276 *            000000032276 000000000017     *            000000032276 0            0   0   *   

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

*032276  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032276 032276 032276 402000000003 777777777777 000000000017     000000000017 000000032276 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032277 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777677777777 *            0            0   0   *   
ST5	032277 032277 *      525040777577 *            0                000000000017 *            0            0   0   *   

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

*032277  HRLOI	1,777577

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032277 032277 032277 525040777577 777777777777 0                000000000017 000000032276 0            0   0   777 
IT1	*      *      777577 *            525040777577 0                777677777777 *            0            0   0   *   
ET2	*      *      032300 *            777777777777 000000777577     *            *            0            0   0   *   
ST1	032300 032300 *      201100000001 *            777577777777     777577777777 *            0            0   0   *   

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

*032300  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032300 032300 032300 201100000001 777777777777 777577777777     777577777777 000000032276 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032301 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032301 032301 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*032301  MOVE 	3,000000(2)                                                                                                SEQ 0347

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032301 032301 032301 200142000000 777777777777 000000000001     000000000001 000000032276 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032302 032302 032302 312140034520 777777777777 777577777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777577777777 *            0            0   0   *   

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

*032302  CAME	3,034520

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032302 032302 032302 312140034520 777777777777 777577777777     777577777777 000000032276 0            0   0   777 
IT1	*      *      034520 *            312140034520 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034520     *            *            0            0   0   *   
FT6	*      034520 *      777577777777 777777777777 777577777777     *            *            0            0   0   *   
ET0	*      *      032303 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032303 *      032304 *            777777777777 *                *            *            0            0   0   *   

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

*032304  JUMPA	0,032305

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032304 032304 032304 324000032305 777777777777 777577777777     777577777777 000000032276 0            0   0   777 
IT1	*      *      032305 *            324000032305 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032305     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032305 *            000000032305 000000000017     *            000000032305 0            0   0   *   

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

*032305  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032305 032305 032305 402000000003 777777777777 000000000017     000000000017 000000032305 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032306 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777577777777 *            0            0   0   *   
ST5	032306 032306 *      525040777377 *            0                000000000017 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0348
C(AC)=000000 000017 C(E) =777577 777777 
FINAL
C(E) =000000 000000 
----------

*032306  HRLOI	1,777377

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032306 032306 032306 525040777377 777777777777 0                000000000017 000000032305 0            0   0   777 
IT1	*      *      777377 *            525040777377 0                777577777777 *            0            0   0   *   
ET2	*      *      032307 *            777777777777 000000777377     *            *            0            0   0   *   
ST1	032307 032307 *      201100000001 *            777377777777     777377777777 *            0            0   0   *   

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

*032307  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032307 032307 032307 201100000001 777777777777 777377777777     777377777777 000000032305 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032310 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032310 032310 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032310  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032310 032310 032310 200142000000 777777777777 000000000001     000000000001 000000032305 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032311 032311 032311 312140034521 777777777777 777377777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777377777777 *            0            0   0   *   

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

*032311  CAME	3,034521

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032311 032311 032311 312140034521 777777777777 777377777777     777377777777 000000032305 0            0   0   777 
IT1	*      *      034521 *            312140034521 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034521     *            *            0            0   0   *   
FT6	*      034521 *      777377777777 777777777777 777377777777     *            *            0            0   0   *   
ET0	*      *      032312 *            000000000000 *                *            *            0            0   0   *   SEQ 0349
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032312 *      032313 *            777777777777 *                *            *            0            0   0   *   

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

*032313  JUMPA	0,032314

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032313 032313 032313 324000032314 777777777777 777377777777     777377777777 000000032305 0            0   0   777 
IT1	*      *      032314 *            324000032314 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032314     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032314 *            000000032314 000000000017     *            000000032314 0            0   0   *   

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

*032314  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032314 032314 032314 402000000003 777777777777 000000000017     000000000017 000000032314 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032315 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777377777777 *            0            0   0   *   
ST5	032315 032315 *      525040776777 *            0                000000000017 *            0            0   0   *   

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

*032315  HRLOI	1,776777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032315 032315 032315 525040776777 777777777777 0                000000000017 000000032314 0            0   0   777 
IT1	*      *      776777 *            525040776777 0                777377777777 *            0            0   0   *   
ET2	*      *      032316 *            777777777777 000000776777     *            *            0            0   0   *   
ST1	032316 032316 *      201100000001 *            776777777777     776777777777 *            0            0   0   *   

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

*032316  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032316 032316 032316 201100000001 777777777777 776777777777     776777777777 000000032314 0            0   0   77  SEQ 0350
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032317 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032317 032317 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032317  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032317 032317 032317 200142000000 777777777777 000000000001     000000000001 000000032314 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032320 032320 032320 312140034522 777777777777 776777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                776777777777 *            0            0   0   *   

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

*032320  CAME	3,034522

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032320 032320 032320 312140034522 777777777777 776777777777     776777777777 000000032314 0            0   0   777 
IT1	*      *      034522 *            312140034522 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034522     *            *            0            0   0   *   
FT6	*      034522 *      776777777777 777777777777 776777777777     *            *            0            0   0   *   
ET0	*      *      032321 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032321 *      032322 *            777777777777 *                *            *            0            0   0   *   

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

*032322  JUMPA	0,032323

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032322 032322 032322 324000032323 777777777777 776777777777     776777777777 000000032314 0            0   0   777 
IT1	*      *      032323 *            324000032323 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032323     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032323 *            000000032323 000000000017     *            000000032323 0            0   0   *   

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

*032323  SETZM	0,000003
                                                                                                                           SEQ 0351
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032323 032323 032323 402000000003 777777777777 000000000017     000000000017 000000032323 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032324 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                776777777777 *            0            0   0   *   
ST5	032324 032324 *      525040775777 *            0                000000000017 *            0            0   0   *   

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

*032324  HRLOI	1,775777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032324 032324 032324 525040775777 777777777777 0                000000000017 000000032323 0            0   0   777 
IT1	*      *      775777 *            525040775777 0                776777777777 *            0            0   0   *   
ET2	*      *      032325 *            777777777777 000000775777     *            *            0            0   0   *   
ST1	032325 032325 *      201100000001 *            775777777777     775777777777 *            0            0   0   *   

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

*032325  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032325 032325 032325 201100000001 777777777777 775777777777     775777777777 000000032323 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032326 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032326 032326 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032326  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032326 032326 032326 200142000000 777777777777 000000000001     000000000001 000000032323 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032327 032327 032327 312140034523 777777777777 775777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                775777777777 *            0            0   0   *   

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

*032327  CAME	3,034523

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032327 032327 032327 312140034523 777777777777 775777777777     775777777777 000000032323 0            0   0   777 
IT1	*      *      034523 *            312140034523 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034523     *            *            0            0   0   *   
FT6	*      034523 *      775777777777 777777777777 775777777777     *            *            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)=775777 777777 C(E) =775777 777777 
----------

*032331  JUMPA	0,032332

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032331 032331 032331 324000032332 777777777777 775777777777     775777777777 000000032323 0            0   0   777 
IT1	*      *      032332 *            324000032332 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032332     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032332 *            000000032332 000000000017     *            000000032332 0            0   0   *   

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

*032332  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032332 032332 032332 402000000003 777777777777 000000000017     000000000017 000000032332 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032333 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                775777777777 *            0            0   0   *   
ST5	032333 032333 *      525040773777 *            0                000000000017 *            0            0   0   *   

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

*032333  HRLOI	1,773777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032333 032333 032333 525040773777 777777777777 0                000000000017 000000032332 0            0   0   777 
IT1	*      *      773777 *            525040773777 0                775777777777 *            0            0   0   *   
ET2	*      *      032334 *            777777777777 000000773777     *            *            0            0   0   *   
ST1	032334 032334 *      201100000001 *            773777777777     773777777777 *            0            0   0   *   SEQ 0353

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

*032334  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032334 032334 032334 201100000001 777777777777 773777777777     773777777777 000000032332 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032335 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032335 032335 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032335  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032335 032335 032335 200142000000 777777777777 000000000001     000000000001 000000032332 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032336 032336 032336 312140034524 777777777777 773777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                773777777777 *            0            0   0   *   

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

*032336  CAME	3,034524

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032336 032336 032336 312140034524 777777777777 773777777777     773777777777 000000032332 0            0   0   777 
IT1	*      *      034524 *            312140034524 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034524     *            *            0            0   0   *   
FT6	*      034524 *      773777777777 777777777777 773777777777     *            *            0            0   0   *   
ET0	*      *      032337 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032337 *      032340 *            777777777777 *                *            *            0            0   0   *   

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

*032340  JUMPA	0,032341

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032340 032340 032340 324000032341 777777777777 773777777777     773777777777 000000032332 0            0   0   77  SEQ 0354
IT1	*      *      032341 *            324000032341 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032341     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032341 *            000000032341 000000000017     *            000000032341 0            0   0   *   

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

*032341  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032341 032341 032341 402000000003 777777777777 000000000017     000000000017 000000032341 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032342 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                773777777777 *            0            0   0   *   
ST5	032342 032342 *      525040767777 *            0                000000000017 *            0            0   0   *   

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

*032342  HRLOI	1,767777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032342 032342 032342 525040767777 777777777777 0                000000000017 000000032341 0            0   0   777 
IT1	*      *      767777 *            525040767777 0                773777777777 *            0            0   0   *   
ET2	*      *      032343 *            777777777777 000000767777     *            *            0            0   0   *   
ST1	032343 032343 *      201100000001 *            767777777777     767777777777 *            0            0   0   *   

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

*032343  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032343 032343 032343 201100000001 777777777777 767777777777     767777777777 000000032341 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032344 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032344 032344 *      200142000000 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
FINAL
C(AC)=000000 000001 
----------
*032344  MOVE 	3,000000(2)                                                                                                SEQ 0355

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032344 032344 032344 200142000000 777777777777 000000000001     000000000001 000000032341 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032345 032345 032345 312140034525 777777777777 767777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                767777777777 *            0            0   0   *   

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

*032345  CAME	3,034525

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032345 032345 032345 312140034525 777777777777 767777777777     767777777777 000000032341 0            0   0   777 
IT1	*      *      034525 *            312140034525 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034525     *            *            0            0   0   *   
FT6	*      034525 *      767777777777 777777777777 767777777777     *            *            0            0   0   *   
ET0	*      *      032346 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032346 *      032347 *            777777777777 *                *            *            0            0   0   *   

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

*032347  JUMPA	0,032350

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032347 032347 032347 324000032350 777777777777 767777777777     767777777777 000000032341 0            0   0   777 
IT1	*      *      032350 *            324000032350 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032350     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032350 *            000000032350 000000000017     *            000000032350 0            0   0   *   

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

*032350  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032350 032350 032350 402000000003 777777777777 000000000017     000000000017 000000032350 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032351 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                767777777777 *            0            0   0   *   
ST5	032351 032351 *      525040757777 *            0                000000000017 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL                                                                                                                    SEQ 0356
C(AC)=000000 000017 C(E) =767777 777777 
FINAL
C(E) =000000 000000 
----------

*032351  HRLOI	1,757777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032351 032351 032351 525040757777 777777777777 0                000000000017 000000032350 0            0   0   777 
IT1	*      *      757777 *            525040757777 0                767777777777 *            0            0   0   *   
ET2	*      *      032352 *            777777777777 000000757777     *            *            0            0   0   *   
ST1	032352 032352 *      201100000001 *            757777777777     757777777777 *            0            0   0   *   

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

*032352  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032352 032352 032352 201100000001 777777777777 757777777777     757777777777 000000032350 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032353 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032353 032353 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032353  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032353 032353 032353 200142000000 777777777777 000000000001     000000000001 000000032350 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032354 032354 032354 312140034526 777777777777 757777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                757777777777 *            0            0   0   *   

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

*032354  CAME	3,034526

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032354 032354 032354 312140034526 777777777777 757777777777     757777777777 000000032350 0            0   0   777 
IT1	*      *      034526 *            312140034526 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034526     *            *            0            0   0   *   
FT6	*      034526 *      757777777777 777777777777 757777777777     *            *            0            0   0   *   
ET0	*      *      032355 *            000000000000 *                *            *            0            0   0   *   SEQ 0357
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032355 *      032356 *            777777777777 *                *            *            0            0   0   *   

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

*032356  JUMPA	0,032357

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032356 032356 032356 324000032357 777777777777 757777777777     757777777777 000000032350 0            0   0   777 
IT1	*      *      032357 *            324000032357 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032357     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032357 *            000000032357 000000000017     *            000000032357 0            0   0   *   

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

*032357  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032357 032357 032357 402000000003 777777777777 000000000017     000000000017 000000032357 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032360 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                757777777777 *            0            0   0   *   
ST5	032360 032360 *      525040737777 *            0                000000000017 *            0            0   0   *   

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

*032360  HRLOI	1,737777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032360 032360 032360 525040737777 777777777777 0                000000000017 000000032357 0            0   0   777 
IT1	*      *      737777 *            525040737777 0                757777777777 *            0            0   0   *   
ET2	*      *      032361 *            777777777777 000000737777     *            *            0            0   0   *   
ST1	032361 032361 *      201100000001 *            737777777777     737777777777 *            0            0   0   *   

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

*032361  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032361 032361 032361 201100000001 777777777777 737777777777     737777777777 000000032357 0            0   0   77  SEQ 0358
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032362 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032362 032362 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032362  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032362 032362 032362 200142000000 777777777777 000000000001     000000000001 000000032357 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032363 032363 032363 312140034527 777777777777 737777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                737777777777 *            0            0   0   *   

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

*032363  CAME	3,034527

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032363 032363 032363 312140034527 777777777777 737777777777     737777777777 000000032357 0            0   0   777 
IT1	*      *      034527 *            312140034527 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034527     *            *            0            0   0   *   
FT6	*      034527 *      737777777777 777777777777 737777777777     *            *            0            0   0   *   
ET0	*      *      032364 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032364 *      032365 *            777777777777 *                *            *            0            0   0   *   

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

*032365  JUMPA	0,032366

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032365 032365 032365 324000032366 777777777777 737777777777     737777777777 000000032357 0            0   0   777 
IT1	*      *      032366 *            324000032366 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032366     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032366 *            000000032366 000000000017     *            000000032366 0            0   0   *   

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

*032366  SETZM	0,000003
                                                                                                                           SEQ 0359
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032366 032366 032366 402000000003 777777777777 000000000017     000000000017 000000032366 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032367 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                737777777777 *            0            0   0   *   
ST5	032367 032367 *      525040677777 *            0                000000000017 *            0            0   0   *   

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

*032367  HRLOI	1,677777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032367 032367 032367 525040677777 777777777777 0                000000000017 000000032366 0            0   0   777 
IT1	*      *      677777 *            525040677777 0                737777777777 *            0            0   0   *   
ET2	*      *      032370 *            777777777777 000000677777     *            *            0            0   0   *   
ST1	032370 032370 *      201100000001 *            677777777777     677777777777 *            0            0   0   *   

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

*032370  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032370 032370 032370 201100000001 777777777777 677777777777     677777777777 000000032366 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032371 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032371 032371 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032371  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032371 032371 032371 200142000000 777777777777 000000000001     000000000001 000000032366 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032372 032372 032372 312140034530 777777777777 677777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                677777777777 *            0            0   0   *   

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

*032372  CAME	3,034530

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032372 032372 032372 312140034530 777777777777 677777777777     677777777777 000000032366 0            0   0   777 
IT1	*      *      034530 *            312140034530 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000034530     *            *            0            0   0   *   
FT6	*      034530 *      677777777777 777777777777 677777777777     *            *            0            0   0   *   
ET0	*      *      032373 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032373 *      032374 *            777777777777 *                *            *            0            0   0   *   

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

*032374  JUMPA	0,032375

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032374 032374 032374 324000032375 777777777777 677777777777     677777777777 000000032366 0            0   0   777 
IT1	*      *      032375 *            324000032375 *                000000000017 *            0            0   0   *   
ET0	*      *      000017 *            000000000017 000000032375     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032375 *            000000032375 000000000017     *            000000032375 0            0   0   *   

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

*032375  SETZM	0,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032375 032375 032375 402000000003 777777777777 000000000017     000000000017 000000032375 0            0   0   777 
IT1	*      *      000003 *            402000000003 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 032376 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                677777777777 *            0            0   0   *   
ST5	032376 032376 *      525040577777 *            0                000000000017 *            0            0   0   *   

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

*032376  HRLOI	1,577777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032376 032376 032376 525040577777 777777777777 0                000000000017 000000032375 0            0   0   777 
IT1	*      *      577777 *            525040577777 0                677777777777 *            0            0   0   *   
ET2	*      *      032377 *            777777777777 000000577777     *            *            0            0   0   *   
ST1	032377 032377 *      201100000001 *            577777777777     577777777777 *            0            0   0   *   SEQ 0361

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

*032377  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032377 032377 032377 201100000001 777777777777 577777777777     577777777777 000000032375 0            0   0   777 
IT1	*      *      000001 *            201100000001 *                000000000001 *            0            0   0   *   
ET2	*      *      032400 *            000000000001 000000000001     *            *            0            0   0   *   
ST1	032400 032400 *      200142000000 777777777777 *                *            *            0            0   0   *   

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

*032400  MOVE 	3,000000(2)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032400 032400 032400 200142000000 777777777777 000000000001     000000000001 000000032375 0            0   0   777 
IT1	*      *      000001 *            000000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	032401 032401 032401 312140034531 777777777777 577777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                000000000000 *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                577777777777 *            0            0   0   *   

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

*032401  CAME	3,034531

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032401 032401 032401 312140034531 777777777777 577777777777     577777777777 000000032375 0            0   0   777 
IT1	*