Google
 

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





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


	PRODUCT CODE:	MAINDEC-10-DBKAE

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

	FUNCTION:	FWT, ADD/SUB, PC CHANGE

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


1.0	ABSTRACT

	THIS PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	FIFTH IN A SERIES OF PDP-10 KI10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE FWT, ADD/SUB, PC CHANGE
	AND COMPARE INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

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

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

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

PRODUCT CODE:		MAINDEC-10-DBKAE

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #5

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

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

     1					;DBKAE
     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: DBKAET,BEGIN,DBKAEM
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 2
DBKAET	MAC	30-JUL-76 12:35		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	414500		PAREA3=SIXBIT/DBKAE/
    56		605664	000000		PAREA4=SIXBIT/PNT/
    57			000000		PAREA5=0
    58			000000		PAREA6=0
    59			001000		ITERAT==1000
    60			000001		PGMEND==1
    61						NOSYM
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 3
DBKAET	MAC	30-JUL-76 12:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0009

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   817					;SPECIAL "BEGEND" ROUTINE
   818
   819	030641	350 00 0 00 030047 	$SPBEND:AOS	PASCNT		;INCREMENT PASS COUNT
   820	030642	370 00 0 00 030024 		SOS	ITRCNT		;DECREMENT ITERATION COUNT
   821	030643	336 00 0 00 030037 	$SPB1:	SKIPN	USER
   822	030644	254 00 0 00 030652 		JRST	$SPBEX		;EXEC MODE
   823
   824	030645	332 00 0 00 030024 	$SPBUS:	SKIPE	ITRCNT		;USER MODE, COMPLETED ?
   825	030646	254 00 0 00 030741 		JRST	STARTA		;NO, KEEP RUNNING
   826	030647	336 00 0 00 030044 		SKIPN	MONTEN		;DONE, LOADED BY "DIAMON" ?
   827	030650	047 00 0 00 000012 		EXIT			;NO, RETURN TO MONITOR
   828	030651	254 00 1 00 030012 		JRST	@RETURN		;YES, RETURN TO "DIAMON"
   829
   830	030652	332 00 0 00 030041 	$SPBEX:	SKIPE	KLFLG
   831	030653	254 00 0 00 030660 		JRST	$SPBKL		;KL10 & EXEC
   832	030654	7 004 14 0 00 030024 		DATAO	PI,ITRCNT	;KI10 & EXEC, DISPLAY ITER COUNT
   833	030655	332 00 0 00 030024 		SKIPE	ITRCNT
   834	030656	254 00 0 00 030741 		JRST	STARTA		;NOT COMPLETED YET
   835	030657	254 00 1 00 030012 		JRST	@RETURN		;DONE
   836
   837	030660	336 00 0 00 030024 	$SPBKL:	SKIPN	ITRCNT
   838	030661	254 00 0 00 030676 		JRST	$SPKLD		;KL10, EXEC & COMPLETED
   839
   840	030662	335 00 0 00 030043 		SKIPGE	MONCTL
   841	030663	254 00 0 00 030741 		JRST	STARTA		;"DIAMON" CONTROL
   842	030664	201 00 0 00 000404 		MOVEI	0,404		;NOTIFY PDP-11 OF END OF PASS
   843	030665	202 00 0 00 000451 		MOVEM	0,$DTCMD
   844	030666	402 00 0 00 000444 		SETZM	$DTFLG
   845	030667	336 00 0 00 030516 		SKIPN	KLTYP
   846	030670	7 200 20 0 00 020000 	$$DTE0:	CONO	DTE,DONG11
   847	030671	332 00 0 00 030516 		SKIPE	KLTYP
   848	030672	7 200 20 0 00 010000 	$$DTE1:	CONO	DTE,10000
   849	030673	336 00 0 00 000444 		SKIPN	$DTFLG		;WAIT TILL 11 RESPONDS
   850	030674	254 00 0 00 030673 		JRST	.-1
   851	030675	254 00 0 00 030741 		JRST	STARTA		;KEEP RUNNING
   852
   853					;SPECIAL KL10 COMPLETED ROUTINE
   854
   855	030676	332 00 0 00 030044 	$SPKLD:	SKIPE	MONTEN
   856	030677	254 00 1 00 030012 		JRST	@RETURN		;LOADED BY "DIAMON"
   857
   858	030700	201 00 0 00 000403 		MOVEI	0,403		;NOTIFY PDP-11 OF COMPLETION
   859	030701	202 00 0 00 000451 		MOVEM	0,$DTCMD
   860	030702	402 00 0 00 000444 		SETZM	$DTFLG
   861	030703	336 00 0 00 030516 		SKIPN	KLTYP
   862	030704	7 200 20 0 00 020000 	$$DTE2:	CONO	DTE,DONG11
   863	030705	332 00 0 00 030516 		SKIPE	KLTYP
   864	030706	7 200 20 0 00 010000 	$$DTE3:	CONO	DTE,10000
   865	030707	336 00 0 00 000444 		SKIPN	$DTFLG		;SHOULD NEVER HAPPEN
   866	030710	254 00 0 00 030707 		JRST	.-1		;11 NEVER RETURNS ON END OF PROGRAM
   867	030711	254 04 0 00 030000 		HALT	BEGIN		;IF IT DOES, HALT.
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 1
DBKAEM	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 030741 		JRST	STARTA
   878	030722	331 00 0 00 030043 		SKIPL	MONCTL
   879	030723	051 03 0 00 030725 		TTCALL	3,PGMNAM	;MENTION OUR NAME
   880	030724	254 00 0 00 030741 		JRST	STARTA
   881
   882	030725				PGMNAM:	ASCIZ/
   883	030725	015 012 120 104 120 	PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) [DBKAE]
   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 065 
   892	030736	051 040 133 104 102 
   893	030737	113 101 105 135 015 
   894	030740	012 000 000 000 000 	/
   895
   896
   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
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 2
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSR INSTRUCTION                                                            SEQ 0029

   902					SUBTTL	TEST OF JSR INSTRUCTION
   903
   904					;**********
   905
   906					;THIS TEST VERIFIES THAT JSR STORES THE FLAGS AND PC IN LOCATION E.
   907					;IN THIS CASE, E IS CLEARED, CRY0 IS SET AND JSR IS EXECUTED.
   908					;NEXT, E IS CHECKED FOR ITS CONTENTS NON-ZERO.  IF C(E) IS NON-ZERO,
   909					;THIS TEST PASSES.
   910
   911	030742				C23000:	SFLAG	CRY0		^;SET CRY0 FLAG
   912	030742	205 01 0 00 200000 		MOVSI	1,CRY0		
   913	030743	255 17 0 00 030744 		JFCL	17,.+1		;RESET ALL FLAGS
   914	030744	254 02 0 01 030745 		JRST	2,.+1(1)	;SET CRY0		 FLAG
   915	030745	402 00 0 00 030747 		SETZM	.+2		;PRELOAD E WITH 0
   916	030746	264 00 0 00 030747 		JSR	.+1		;*JSR SHOULD PLACE FLAGS AND PC INTO AC
   917	030747	000000	000000			0			;E: PRESET TO 0, SHOULD RECEIVE FLAGS AND PC FROM JSR
   918	030750	336 00 0 00 030747 		SKIPN	.-1		;PASS IF C(E) IS NON-ZERO.
   919						STOP^
   920	030751	254 04 0 00 030752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   921	030752	324 00 0 00 030753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   922
   923					;**********
   924
   925					;THIS TEST VERIFIES THAT JSR IGNORES THE AC FIELD;
   926					;HENCE, IT DOES NOT MODIFY THE SPECIFIED AC.
   927					;IN THIS CASE, CRY0 IS SET.  THE AC IS PRELOADED WITH -1,,-1 AND JSR IS EXECUTED.
   928					;THE AC IS THEN CHECKED.  IF C(AC)=-1,,-1, THIS TEST PASSES.
   929
   930	030753				C23100:	SFLAG	CRY0		^;SET CRY0
   931	030753	205 01 0 00 200000 		MOVSI	1,CRY0		
   932	030754	255 17 0 00 030755 		JFCL	17,.+1		;RESET ALL FLAGS
   933	030755	254 02 0 01 030756 		JRST	2,.+1(1)	;SET CRY0		 FLAG
   934	030756	474 01 0 00 000000 		SETO	1,		;PRELOAD AC WITH -1,,-1
   935	030757	264 01 0 00 030760 		JSR	1,.+1		;*JSR SHOULD NOT MODIFY THE AC
   936	030760	000000	000000			0			;STORE PC + FLAGS HERE
   937	030761	312 01 0 00 033474 		CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
   938						STOP^
   939	030762	254 04 0 00 030763 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   940	030763	324 00 0 00 030764 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   941
   942					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 3
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSR INSTRUCTION                                                            SEQ 0030

   943					;THIS TEST VERIFIES THAT JSR STORES THE FLAGS IN E-LEFT HALF.
   944					;IN THIS TEST, CRY0 IS SET, E IS CLEARED AND JSR IS EXECUTED.
   945					;NEXT, C(E-LEFT) ARE PLACED INTO AC0 AND AC0 IS CHECKED FOR ITS CONTENTS NON-ZERO.
   946					;IF C(AC0) ARE NON-ZERO, THIS TEST PASSES.
   947
   948	030764				C23200:	SFLAG	CRY0		^;SET CRY0
   949	030764	205 01 0 00 200000 		MOVSI	1,CRY0		
   950	030765	255 17 0 00 030766 		JFCL	17,.+1		;RESET ALL FLAGS
   951	030766	254 02 0 01 030767 		JRST	2,.+1(1)	;SET CRY0		 FLAG
   952	030767	402 00 0 00 030771 		SETZM	.+2		;CLEAR E
   953	030770	264 00 0 00 030771 		JSR	.+1		;*JSR SHOULD STORE FLAGS IN E
   954	030771	000000	000000			0			;STORE FLAGS HERE (CRY0 MAKES THIS A MOVE INST)
   955	030772	510 00 0 00 030771 		HLLZ	.-1		;PUT FLAGS INTO AC0
   956	030773	336 00 0 00 000000 		SKIPN			;PASS IF C(AC0) NON-ZERO
   957						STOP^
   958	030774	254 04 0 00 030775 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   959	030775	324 00 0 00 030776 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   960
   961					;**********
   962
   963					;THIS TEST VERIFIES THAT JSR TRANSFERS CONTROL TO E+1.
   964					;IN THIS CASE, CRY0 IS SET AND E  AND AC0 CLEARED; THEN, JSR IS EXECUTED.
   965					;IF JSR RESUMES CONTROL AT E INSTEAD OF E+1, AC0 WILL BE MODIFIED;
   966					;HENCE, THE TEST WILL FAIL WHEN AC0 IS CHECKED FOR 0 BECAUSE
   967					;C(E) IS DECODED AS A MOVE INSTRUCTION.
   968
   969	030776				C23300:	SFLAG	CRY0		^;SET CRY0
   970	030776	205 01 0 00 200000 		MOVSI	1,CRY0		
   971	030777	255 17 0 00 031000 		JFCL	17,.+1		;RESET ALL FLAGS
   972	031000	254 02 0 01 031001 		JRST	2,.+1(1)	;SET CRY0		 FLAG
   973	031001	403 00 0 00 031003 		SETZB	.+2		;CLEAR AC0 AND E
   974	031002	264 00 0 00 031003 		JSR	.+1		;*JSR SHOULD RESUME CONTROL AT E+1
   975	031003	000000	000000			0			;STORE FLAGS HERE (CRY0 MAKES THIS A MOVE INST)
   976	031004	332 00 0 00 000000 		SKIPE	0		;PASS IF C(AC0)=0
   977						STOP^
   978	031005	254 04 0 00 031006 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   979	031006	324 00 0 00 031007 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   980
   981					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 4
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSR INSTRUCTION                                                            SEQ 0031

   982					;THIS TEST VERIFIES THAT JSR JUMPS TO E+1
   983					;IN THIS CASE, AC0 IS CLEARED AND CRY0 IS SET; THEN, JSR .+2 IS EXECUTED.
   984					;IF JSR DID NOT JUMP, ONES ARE LOADED WITH AC0; AND THE TEST FAILS.
   985					;OTHERWISE, AC0 REMAINS CLEAR AND THE TEST PASSES
   986
   987	031007				C23400:	SFLAG	CRY0		^;SET CRY0
   988	031007	205 01 0 00 200000 		MOVSI	1,CRY0		
   989	031010	255 17 0 00 031011 		JFCL	17,.+1		;RESET ALL FLAGS
   990	031011	254 02 0 01 031012 		JRST	2,.+1(1)	;SET CRY0		 FLAG
   991	031012	400 00 0 00 000000 		SETZ			;CLEAR AC0
   992	031013	264 00 0 00 031015 		JSR	.+2		;*JSR SHOULD JUMP
   993	031014	474 00 0 00 000000 		SETO			;LOAD AC0 WITH ONES IF JSR FAILED TO JUMP
   994	031015	000000	000000			0			;STORE FLAGS HERE
   995	031016	332 00 0 00 000000 		SKIPE			;PASS  IF JSR JUMPED CORRECTLY
   996						STOP^
   997	031017	254 04 0 00 031020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   998	031020	324 00 0 00 031021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   999
  1000					;**********
  1001
  1002					;THIS TEST VERIFIES THAT JSR STORES THE PC IN E - RIGHT HALF.  THE PC
  1003					;IS ONE GREATER THAN THE LOCATION OF THE JSR INSTRUCTION.
  1004					;THIS TEST WILL FAIL IF JSR STORES E INSTEAD OF PC IN E - RIGHT HALF.
  1005					;IN CASE OF FAILURE, AR PC EN AT ET2 WAS FAULTY.
  1006
  1007	031021				C23500:	SFLAG	0		^;CLEAR ALL FLAGS
  1008	031021	205 01 0 00 000000 		MOVSI	1,0		
  1009	031022	255 17 0 00 031023 		JFCL	17,.+1		;RESET ALL FLAGS
  1010	031023	254 02 0 01 031024 		JRST	2,.+1(1)	;SET 0		 FLAG
  1011	031024	264 00 0 00 031026 		JSR	.+2		;*JSR SHOULD STORE PC+1 IN E - RIGHT
  1012	031025	254 04 0 00 031025 		HALT	.		;JSR SHOULD SKIP OVER THIS HALT
  1013	031026	000000	000000			0			;STORE FLAGS AND PC HERE
  1014	031027	550 00 0 00 031026 		HRRZ	.-1		;PUT STORED CONTENTS OF E - RIGHT INTO AC0
  1015	031030	306 00 0 00 031026 		CAIN	.-2		;FAIL IF C(AC0)=E
  1016						STOP^
  1017	031031	254 04 0 00 031032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1018	031032	324 00 0 00 031033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1019
  1020					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 5
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSR INSTRUCTION                                                            SEQ 0032

  1021					;THIS TEST VERIFIES THAT JSR STORES THE PC IN E - RIGHT HALF.  THE PC
  1022					;IS ONE GREATER THAN THE LOCATION OF THE JSR INSTRUCTION.
  1023					;THIS TEST WILL PASS IF JSR STORES PC IN E - RIGHT HALF.
  1024
  1025	031033	264 00 0 00 031035 	C23600:	JSR	.+2		;*JSR SHOULD STORE PC+1 IN E - RIGHT
  1026	031034	254 04 0 00 031034 		HALT	.		;JSR SHOULD SKIP OVER THIS HALT
  1027	031035	000000	000000			0			;STORE FLAGS AND PC HERE
  1028	031036	550 00 0 00 031035 		HRRZ	.-1		;PUT STORED CONTENTS OF E - RIGHT INTO AC0
  1029	031037	302 00 0 00 031034 		CAIE	C23600+1	;PASS IF C(AC0)=C23600+1 [PC]
  1030						STOP^
  1031	031040	254 04 0 00 031041 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1032	031041	324 00 0 00 031042 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1033
  1034					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 6
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSA INSTRUCTION                                                            SEQ 0033

  1035					SUBTTL	TEST OF JSA INSTRUCTION
  1036
  1037					;**********
  1038
  1039					;THIS TEST VERIFIES THAT JSA JUMPS TO LOCATION E+1.
  1040					;IN THIS TEST, AC1 IS CLEARED AND A CAM 0,0 IS LOADED
  1041					;INTO THE AC OF THE JSA INSTRUCTION.
  1042					;IF JSA DOES NOT JUMP, AC1 WILL BE LOADED WITH ONES.  AC1 IS CHECKED FOR ZEROS.
  1043					;IF C(AC1)=0, THE TEST PASSES; OTHERWISE, THIS TEST FAILS BECAUSE JSA DID NOT JUMP.
  1044
  1045	031042	400 01 0 00 000000 	C23700:	SETZ	1,		;CLEAR AC1
  1046	031043	200 00 0 00 033475 		MOVE	[CAM]		;LOAD CAM INTO AC0
  1047	031044	266 00 0 00 031046 		JSA	.+2		;*JSA SHOULD JUMP TO E+1
  1048	031045	474 00 0 00 000001 		SETO	1		;JSA SHOULD JUMP OVER THIS INSTRUCTION
  1049	031046	000000	000000			0			;PASS IF JSA JUMPED
  1050	031047	332 00 0 00 000001 		SKIPE	1
  1051						STOP^
  1052	031050	254 04 0 00 031051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1053	031051	324 00 0 00 031052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1054
  1055					;**********
  1056
  1057					;THIS TEST VERIFIES THAT JSA JUMPS TO LOCATION E+1.
  1058					;IN THIS TEST, AC1 IS CLEARED AND A MOVEI 1,1234 IS LOADED
  1059					;INTO THE AC OF THE JSA INSTRUCTION.
  1060					;IF JSA DOES NOT JUMP, AC1 WILL BE LOADED WITH 0,,1234.  AC1 IS CHECKED FOR ZEROS.
  1061					;IF C(AC1)=0, THE TEST PASSES; OTHERWISE, THIS TEST FAILS BECAUSE JSA DID NOT JUMP.
  1062
  1063	031052	400 01 0 00 000000 	C24000:	SETZ	1,		;CLEAR AC1
  1064	031053	200 00 0 00 033476 		MOVE	[MOVEI 1,1234]	;LOAD MOVEI 1,1234 INTO AC
  1065	031054	266 00 0 00 031055 		JSA	.+1		;*JSA SHOULD JUMP TO E+1
  1066	031055	000000	000000			0			;JSA SHOULD JUMP OVER THIS LOCATION
  1067	031056	306 01 0 00 001234 		CAIN	1,1234		;FAIL IF JSA DID NOT JUMP OVER PREVIOUS INSTRUCTION
  1068						STOP^
  1069	031057	254 04 0 00 031060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1070	031060	324 00 0 00 031061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1071
  1072					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 7
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSA INSTRUCTION                                                            SEQ 0034

  1073					;THIS TEST VERIFIES THAT JSA LOADS PC OF LOC OF JSA+1 INTO AC RIGHT. 
  1074					;THIS TEST WILL FAIL IF JSA LOADS E INTO AC RIGHT INSTEAD OF PC.
  1075
  1076	031061	266 00 0 00 031063 	C24100:	JSA	.+2		;*JSA SHOULD LOAD PC INTO AC RIGHT
  1077	031062	254 04 0 00 031062 		HALT	.		;JSA SHOULD JUMP OVER THIS LOCATION
  1078	031063	000000	000000			0			;JSA SHOULD JUMP OVER THIS LOCATION
  1079	031064	552 00 0 00 000001 		HRRZM	1		;PUT C(AC-RIGHT) INTO AC1
  1080	031065	306 01 0 00 031063 		CAIN	1,.-2		;FAIL IF E WAS LOADED INTO AC-RIGHT INSTEAD OF PC
  1081						STOP^
  1082	031066	254 04 0 00 031067 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1083	031067	324 00 0 00 031070 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1084
  1085					;**********
  1086
  1087					;THIS TEST VERIFIES THAT JSA PLACES C(AC) INTO E
  1088					;THIS TEST WILL FAIL IF EITHER 0,,E OR 0,,PC IS LOADED
  1089					;INTO E INSTEAD OF C(AC)
  1090
  1091	031070	403 00 0 00 031072 	C24200:	SETZB	.+2		;CLEAR AC,E
  1092	031071	266 00 0 00 031072 		JSA	.+1		;*JSA SHOULD LOAD C(AC) [ZEROS] INTO E
  1093	031072	000000	000000			0			;JSA SHOULD PLACE ZEROS HERE
  1094	031073	200 01 0 00 031072 		MOVE	1,.-1		;SAVE C(AC)
  1095	031074	306 01 0 00 031072 		CAIN	1,.-2		;FAIL IF JSA LOADED 0,,E OR 0,,PC INTO E
  1096						STOP^
  1097	031075	254 04 0 00 031076 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1098	031076	324 00 0 00 031077 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1099
  1100					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 8
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSA INSTRUCTION                                                            SEQ 0035

  1101					;THIS TEST VERIFIES THAT JSA PLACES PC INTO AC-RIGHT
  1102					;THIS TEST WILL FAIL IF PC IS NOT LOADED INTO AC-RIGHT
  1103
  1104	031077	201 00 0 00 777777 	C24300:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  1105	031100	266 00 0 00 031101 		JSA	.+1		;*JSA SHOULD PLACE E,,PC INTO THE AC
  1106	031101	000000	000000			0			;JSA SHOULD PLACE C(AC) HERE
  1107	031102	606 00 0 00 777777 		TRNN	-1		;FAIL IF AR LT AR RT EN FAILED
  1108						STOP^
  1109	031103	254 04 0 00 031104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1110	031104	324 00 0 00 031105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1111
  1112					;**********
  1113
  1114					;THIS TEST VERIFIES THAT JSA PLACES THE PC OF THE LOCATION OF JSA+1 IN AC-RIGHT
  1115					;THIS TEST FAILS IF A PC WAS NOT LOADED INTO AC RIGHT
  1116
  1117	031105	400 00 0 00 000000 	C24400:	SETZ			;CLEAR AC
  1118	031106	266 00 0 00 031107 		JSA	.+1		;*JSA SHOULD LOAD PC INTO AC - RIGHT
  1119	031107	000000	000000			0			;JSA SHOULD PLACE C(AC) HERE
  1120	031110	606 00 0 00 777777 		TRNN	-1		;PASS IF AC - RIGHT IS NON-ZERO
  1121						STOP^
  1122	031111	254 04 0 00 031112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1123	031112	324 00 0 00 031113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1124
  1125					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 9
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSA INSTRUCTION                                                            SEQ 0036

  1126					;THIS TEST VERIFIES THAT JSA PLACES IN AC-LEFT
  1127					;THIS TEST FAILS IF JSA LOADS PC INSTEAD OF E INTO AC-LEFT
  1128
  1129	031113	266 00 0 00 031115 	C24500:	JSA	.+2		;*JSA SHOULD LOAD E INTO AC-LEFT
  1130	031114	254 04 0 00 031114 		HALT	.		;JSA SHOULD JUMP OVER THIS INSTRUCTION
  1131	031115	000000	000000			0			;E:
  1132	031116	556 00 0 00 000001 		HLRZM	1		;SAVE C(AC - LEFT)
  1133	031117	306 01 0 00 031114 		CAIN	1,.-3		;FAIL IF JSA LOADED PC INSTEAD OF E INTO AC-LEFT
  1134						STOP^
  1135	031120	254 04 0 00 031121 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1136	031121	324 00 0 00 031122 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1137
  1138					;**********
  1139
  1140					;THIS TEST VERIFIES THAT JSA LOADS E,,PC INTO THE AC
  1141					;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, JSA IS EXECUTED.
  1142					;THE AC IS CHECKED FOR E,,PC.  IF C(AC)=E,,PC, THIS TEST PASSES
  1143
  1144	031122	474 00 0 00 000000 	C24600:	SETO			;PRELOAD AC WITH -1,,-1
  1145	031123	266 00 0 00 031125 		JSA	.+2		;*JSA SHOULD PLACE E,,PC INTO THE AC
  1146	031124	254 04 0 00 031124 		HALT	.		;JSA SHOULD JUMP OVER HERE, PC:
  1147	031125	000000	000000			0			;JSA SHOULD STORE C(AC) HERE, E:
  1148	031126	312 00 0 00 033477 		CAME	[XWD .-1,.-2]	;PASS IF C(AC)=E,,PC
  1149						STOP^
  1150	031127	254 04 0 00 031130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1151	031130	324 00 0 00 031131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1152
  1153					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 10
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSA INSTRUCTION                                                            SEQ 0037

  1154					;THIS TEST VERIFIES THAT JSA LOADS E,,PC INTO THE AC
  1155					;FIRST, THE AC IS PRELOADED WITH 0 JSA IS EXECUTED.
  1156					;THE AC IS CHECKED FOR E,,PC.  IF C(AC)=E,,PC, THIS TEST PASSES
  1157
  1158	031131	400 00 0 00 000000 	C24700:	SETZ			;PRELOAD AC WITH 0
  1159	031132	266 00 0 00 031134 		JSA	.+2		;*JSA SHOULD PLACE E,,PC INTO THE AC
  1160	031133	254 04 0 00 031133 		HALT	.		;JSA SHOULD JUMP OVER HERE, PC:
  1161	031134	000000	000000			0			;JSA SHOULD STORE C(AC) HERE, E:
  1162	031135	312 00 0 00 033500 		CAME	[XWD .-1,.-2]	;PASS IF C(AC)=E,,PC
  1163						STOP^
  1164	031136	254 04 0 00 031137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1165	031137	324 00 0 00 031140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1166
  1167					;**********
  1168
  1169					;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E.
  1170					;AC IS FIRST CLEARED AND E IS PRELOADED WITH ONES;
  1171					;THEN JSA IS EXECUTED.  E IS CHECKED FOR ZEROS.  IF C(E)=0,
  1172					;THIS TEST PASSES.
  1173
  1174	031140	400 00 0 00 000000 	C25000:	SETZ			;CLEAR AC
  1175	031141	476 00 0 00 031143 		SETOM	.+2		;PRELOAD E WITH -1,,-1
  1176	031142	266 00 0 00 031143 		JSA	.+1		;*JSA SHOULD PLACE C(AC) INTO E
  1177	031143	000000	000000			0			;E: SHOULD GET C(AC) FROM JSA
  1178	031144	332 00 0 00 031143 		SKIPE	.-1		;PASS IF C(E)=0
  1179						STOP^
  1180	031145	254 04 0 00 031146 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1181	031146	324 00 0 00 031147 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1182
  1183					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 11
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSA INSTRUCTION                                                            SEQ 0038

  1184					;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E.
  1185					;AC IS FIRST PRELOADED WITH -1,,-1 AND E IS CLEARED;
  1186					;THEN, JSA IS EXECUTED.  E IS CHECKED FOR -1,,-1.  IF C(E)=-1,,-1,
  1187					;THIS TEST PASSES.
  1188
  1189	031147	477 00 0 00 000001 	C25100:	SETOB	1		;PRELOAD AC -1,,-1
  1190	031150	402 00 0 00 031152 		SETZM	.+2		;PRELOAD E WITH 0
  1191	031151	266 00 0 00 031152 		JSA	.+1		;*JSA SHOULD PLACE C(AC) INTO E
  1192	031152	000000	000000			0			;E: SHOULD GET C(AC) FROM JSA
  1193	031153	312 01 0 00 031152 		CAME	1,.-1		;PASS IF C(E)=-1,,-1
  1194						STOP^
  1195	031154	254 04 0 00 031155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1196	031155	324 00 0 00 031156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1197
  1198					;**********
  1199
  1200					;THIS TEST VERIFIES THAT JSA LOADS C(AC) INTO E.
  1201					;AC IS FIRST CLEARED AND E IS PRELOADED WITH ONES;
  1202					;THEN JSA IS EXECUTED.  E IS CHECKED FOR ZEROS.  IF C(E)=0,
  1203					;THIS TEST PASSES.
  1204
  1205	031156	201 00 0 00 777777 	C25200:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  1206	031157	266 00 0 00 031160 		JSA	.+1		;*JSA SHOULD PLACE C(AC) INTO E
  1207	031160	000000	000000			0			;E: SHOULD GET C(AC) FROM JSA
  1208	031161	200 01 0 00 031160 		MOVE	1,.-1		;PASS IF C(E)=0,,-1
  1209	031162	302 01 0 00 777777 		CAIE	1,-1
  1210						STOP^
  1211	031163	254 04 0 00 031164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1212	031164	324 00 0 00 031165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1213
  1214					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 12
DBKAEM	MAC	30-APR-76 16:59		TEST OF JSA INSTRUCTION                                                            SEQ 0039

  1215					;THIS TEST VERIFIES THAT JSA DOES NOT MODIFY AC+1
  1216					;IN THIS TEST, AC+1 IS PRELOADED WITH -1,,-1; THEN JSA IS EXECUTED
  1217					;AC+1 IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, -1,,-1.
  1218					;IF C(AC+1)=-1,,-1, THIS TEST PASSES
  1219
  1220	031165	476 00 0 00 000001 	C25300:	SETOM	1		;PRELOAD AC+1 WITH -1,,-1
  1221	031166	266 00 0 00 031167 		JSA	.+1		;*JSA SHOULD NOT MODIFY AC+1
  1222	031167	310 00 0 00 000000 		CAM			;JSA SHOULD JUMP OVER THIS, E:PC:
  1223	031170	312 01 0 00 033474 		CAME	1,[-1]		;PASS IF AC+1 WAS NOT MODIFIED BY JSA
  1224						STOP^
  1225	031171	254 04 0 00 031172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1226	031172	324 00 0 00 031173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1227
  1228					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 13
DBKAEM	MAC	30-APR-76 16:59		TEST OF JRA INSTRUCTION                                                            SEQ 0040

  1229					SUBTTL	TEST OF JRA INSTRUCTION
  1230
  1231					;**********
  1232
  1233					;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E
  1234					;THIS TEST FAILS IF JRA DOES NOT JUMP TO E.
  1235
  1236	031173	200 00 0 00 033501 	C25400:	MOVE	[JRST .+4]	;PRELOAD AC0 WITH JRST .+4
  1237	031174	205 01 0 00 031176 		MOVSI	1,.+2		;PRELOAD AC WITH E,,0
  1238	031175	267 01 0 00 031176 		JRA	1,.+1		;*JRA SHOULD JUMP TO NEXT INSTRUCTION
  1239	031176	334 00 0 00 000000 		SKIPA			;PASS IF JRA JUMPS TO E
  1240						STOP^
  1241	031177	254 04 0 00 031200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1242	031200	324 00 0 00 031201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1243
  1244					;**********
  1245
  1246					;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E
  1247					;THIS TEST FAILS IF JRA DOES NOT JUMP TO E.
  1248
  1249	031201	205 00 0 00 031204 	C25500:	MOVSI	.+3		;PRELOAD AC WITH E+1
  1250	031202	267 00 0 00 031203 		JRA	.+1		;*JRA SHOULD JUMP TO NEXT SEQUENTIAL INSTRUCTION
  1251	031203	334 00 0 00 000000 		SKIPA			;PASS IF JRA JUMPS TO E
  1252						STOP^
  1253	031204	254 04 0 00 031205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1254	031205	324 00 0 00 031206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1255
  1256					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 14
DBKAEM	MAC	30-APR-76 16:59		TEST OF JRA INSTRUCTION                                                            SEQ 0041

  1257					;THIS TEST VERIFIES THAT JRA TRANSFERS CONTROL TO LOCATION E
  1258					;THIS TEST FAILS IF JRA DOES NOT JUMP TO E.
  1259
  1260	031206	403 00 0 00 000001 	C25600:	SETZB	1		;PRELOAD AC0, AC1 WITH ZEROS
  1261	031207	267 00 0 00 031211 		JRA	.+2		;*JRA SHOULD JUMP OVER NEXT SEQUENTIAL INSTRUCTION
  1262	031210	474 01 0 00 000000 		SETO	1,		;LOAD AC1 WITH ONES IF JRA DOES NOT JUMP
  1263	031211	332 00 0 00 000001 		SKIPE	1		;PASS IF JRA JUMPED
  1264						STOP^
  1265	031212	254 04 0 00 031213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1266	031213	324 00 0 00 031214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1267
  1268					;**********
  1269
  1270					;THIS TEST VERIFIES THAT JRA PLACES C(C(AC-LEFT)) INTO THE AC AND JUMPS TO E
  1271					;THIS TEST FAILS IF JRA JUMPS TO E+1 OR DOES NOT LOAD THE AC CORRECTLY.
  1272
  1273	031214	400 00 0 00 000000 	C25700:	SETZ			;CLEAR AC
  1274	031215	267 00 0 00 031216 		JRA	.+1		;*JRA SHOULD PLACE 0 INTO THE AC AND JUMP .+1
  1275	031216	332 00 0 00 000000 		SKIPE			;PASS IF AC WAS LOADED CORRECTLY
  1276									;AND JRA JUMPED CORRECTLY.
  1277						STOP^
  1278	031217	254 04 0 00 031220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1279	031220	324 00 0 00 031221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1280
  1281					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 15
DBKAEM	MAC	30-APR-76 16:59		TEST OF JRA INSTRUCTION                                                            SEQ 0042

  1282					;THIS TEST VERIFIES THAT JRA PLACES C(C(AC-LEFT)) INTO THE AC
  1283					;FIRST, THE AC IS PRELOADED WITH 1,,2 AND AC1 AND AC2 ARE
  1284					;INITIALIZED WITH THEIR RESPECTIVE ADDRESSES; JRA IS EXECUTED, AND
  1285					;THE AC IS CHECKED FOR 0,,1, THE ORIGINAL C(C(AC-LEFT)). IF C(AC)=0,,1,
  1286					;THIS TEST PASSES
  1287
  1288	031221	200 00 0 00 033502 	C26200:	MOVE	[XWD 1,2]	;PRELOAD AC WITH 1,,2
  1289	031222	201 01 0 00 000001 		MOVEI	1,1		;INITIALIZE AC1 WITH 0,,1
  1290	031223	201 02 0 00 000002 		MOVEI	2,2		;INITIALIZE AC2 WITH 0,,2
  1291	031224	267 00 0 00 031225 		JRA	.+1		;*JRA SHOULD PLACE 0,,1 INTO THE AC
  1292	031225	302 00 0 00 000001 		CAIE	1		;PASS IF C(AC)=0,,1
  1293						STOP^
  1294	031226	254 04 0 00 031227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1295	031227	324 00 0 00 031230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1296
  1297					;**********
  1298
  1299					;THIS TEST VERIFIES THAT JRA CAN RESTORE AC0 FROM AC0 WHEN AC0 IS THE
  1300					;SPECIFIED AC AND C(AC0-LEFT)=0.
  1301					;FIRST, AC0 IS PRELOADED AND JRA IS EXECUTED.  THEN, AC0 IS CHECKED FOR
  1302					;ITS INITIAL CONTENTS.  IF THE RESULT IN AC0, IS CORRECT, THIS TEST PASSES.
  1303
  1304	031230	551 00 0 00 033503 	C26300:	HRRZI	[135531,,246642]	;PRELOAD AC0 WITH 0,, LITERAL ADDRESS
  1305	031231	267 00 0 00 031232 		JRA	.+1		;*JRA SHOULD PLACE C(AC0) INTO AC0
  1306	031232	302 00 0 00 033503 		CAIE	[135531,,246642] ;PASS IF JRA PLACED C(AC0) INTO AC0
  1307						STOP^
  1308	031233	254 04 0 00 031234 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1309	031234	324 00 0 00 031235 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1310
  1311					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 16
DBKAEM	MAC	30-APR-76 16:59		TEST OF JRA INSTRUCTION                                                            SEQ 0043

  1312					;THIS TEST VERIFIES THAT JRA CAN RESOTRE AC0 FROM MEMORY WHEN AC0 IS THE
  1313					;SPECIFIED AC.
  1314					;FIRST, AC0 IS PRELOADED WITH [LITERAL ADDRESS ,,0] AND JRA IS EXECUTED.  THEN,
  1315					;AC0 IS CHECKED FOR THE SPECIFIED LITERAL, 135246,,246135.  IF 
  1316					;C(AC0)=135246,,246135, THE TEST PASSES.
  1317
  1318	031235	515 00 0 00 033504 	C26400:	HRLZI	[135246,,246135] ;PRELOAD AC0 WITH [LITERAL ADDRESS ,,0]
  1319	031236	267 00 0 00 031237 		JRA	.+1		;*JRA SHOULD PLACE 135246,,246135 INTO AC0
  1320	031237	312 00 0 00 033504 		CAME	[135246,,246135];PASS IF C(AC0)=135246,,246135
  1321						STOP^
  1322	031240	254 04 0 00 031241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1323	031241	324 00 0 00 031242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1324
  1325					;**********
  1326
  1327					;THIS TEST VERIFIES THAT JRA CAN RESOTRE AC0 FROM MEMORY WHEN AC0 IS THE
  1328					;SPECIFIED AC.
  1329					;FIRST, AC0 IS PRELOADED WITH [-1,, ADDRESS OF JCA INSTRUCTION] AND JRA IS EXECUTED.
  1330					;THEN, AC0 IS CHECKED FOR THE JRA INSTRUCTION.  IF 
  1331					;C(AC0)= THE JRA INSTRUCTION, THE TEST PASSES.
  1332
  1333	031242	525 00 0 00 031243 	C26500:	HRLOI	.+1		;PRELOAD AC WITH -1,, ADDRESS OF JRA INSTRUCTION
  1334	031243	267 00 0 00 031244 		JRA	.+1		;*JRA SHOULD PLACE ITSELF INTO AC0
  1335	031244	312 00 0 00 031243 		CAME	.-1		;PASS IF AC CONTAINS JRA INSTRUCTION
  1336						STOP^
  1337	031245	254 04 0 00 031246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1338	031246	324 00 0 00 031247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1339
  1340					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 17
DBKAEM	MAC	30-APR-76 16:59		TESTS OF BIS FLAG                                                                  SEQ 0044

  1341					SUBTTL	TESTS OF BIS FLAG
  1342
  1343					;**********
  1344
  1345					;THIS TEST VERIFIES THAT JRST 2, CAN CLEAR BIS
  1346					;FIRST, BIS IS SET VIA JRST 2, ;THEN, BIS IS CLEARED VIA JRST 2,.
  1347					;THE FLAGS ARE SAVED AND BIS IS CHECKED.  THIS TEST PASSES IF BIS IS RESET;
  1348					;OTHERWISE JRST 2, FAILED TO RESET BIS.
  1349
  1350	031247				C26600:	SFLAG	BIS		^;SET BIS FLAG
  1351	031247	205 01 0 00 020000 		MOVSI	1,BIS		
  1352	031250	255 17 0 00 031251 		JFCL	17,.+1		;RESET ALL FLAGS
  1353	031251	254 02 0 01 031252 		JRST	2,.+1(1)	;SET BIS		 FLAG
  1354						SFLAG			^;*RESET BIS FLAG
  1355	031252	205 01 0 00 000000 		MOVSI	1,		
  1356	031253	255 17 0 00 031254 		JFCL	17,.+1		;RESET ALL FLAGS
  1357	031254	254 02 0 01 031255 		JRST	2,.+1(1)	;SET 		 FLAG
  1358	031255	265 00 0 00 031256 		JSP	.+1		;SAVE FLAGS
  1359	031256	603 00 0 00 020037 		TLNE	BIS+37		;PASS IF BIS FLAG IS RESET
  1360						STOP^
  1361	031257	254 04 0 00 031260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1362	031260	324 00 0 00 031261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1363
  1364					;**********
  1365
  1366					;THIS TEST VERIFIES THAT JRST 2, CAN SET BIS.
  1367					;FIRST, BIS IS SET VIA JRST 2, AND THE FLAGS ARE SAVED.
  1368					;BIS IS THEN CHECKED.  IF BIS IS SET, THIS TEST PASSES.
  1369
  1370	031261				C26700:	SFLAG	BIS		^;*SET BIS FLAG VIA JRST
  1371	031261	205 01 0 00 020000 		MOVSI	1,BIS		
  1372	031262	255 17 0 00 031263 		JFCL	17,.+1		;RESET ALL FLAGS
  1373	031263	254 02 0 01 031264 		JRST	2,.+1(1)	;SET BIS		 FLAG
  1374	031264	265 00 0 00 031265 		JSP	.+1		;SAVE FLAGS
  1375	031265	607 00 0 00 020000 		TLNN	BIS		;PASS IF BIS FLAG IS SET
  1376						STOP^
  1377	031266	254 04 0 00 031267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1378	031267	324 00 0 00 031270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1379
  1380					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 18
DBKAEM	MAC	30-APR-76 16:59		TESTS OF BIS FLAG                                                                  SEQ 0045

  1381					;THIS TEST VERIFIES THAT JSR ALWAYS RESETS BIS.
  1382					;FIRST BIS IS SET; THEN JSR IS EXECUTED.  THE FLAGS ARE
  1383					;THEN SAVED AND CHECKED.  IF BIS WAS RESET VIA JSR, THIS TEST PASSES.
  1384
  1385	031270				C27000:	SFLAG	BIS		^;SET BIS
  1386	031270	205 01 0 00 020000 		MOVSI	1,BIS		
  1387	031271	255 17 0 00 031272 		JFCL	17,.+1		;RESET ALL FLAGS
  1388	031272	254 02 0 01 031273 		JRST	2,.+1(1)	;SET BIS		 FLAG
  1389	031273	264 00 0 00 031274 		JSR	.+1		;*JSR SHOULD RESET BIS
  1390	031274	000000	000000			0			;JSR SAVES FLAGS HERE
  1391	031275	265 00 0 00 031276 		JSP	.+1		;SAVE FLAGS
  1392	031276	603 00 0 00 020000 		TLNE	BIS		;PASS IF BIS FLAG IS RESET
  1393						STOP^
  1394	031277	254 04 0 00 031300 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1395	031300	324 00 0 00 031301 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1396
  1397					;**********
  1398
  1399					;THIS TEST VERIFIES THAT JSP ALWAYS RESETS BIS.
  1400					;FIRST BIS IS SET; THEN JSP IS EXECUTED.  THE FLAGS ARE
  1401					;THEN SAVED AND CHECKED.  IF BIS WAS RESET VIA JSP, THIS TEST PASSES.
  1402
  1403	031301				C27001:	SFLAG	BIS		^;SET BIS
  1404	031301	205 01 0 00 020000 		MOVSI	1,BIS		
  1405	031302	255 17 0 00 031303 		JFCL	17,.+1		;RESET ALL FLAGS
  1406	031303	254 02 0 01 031304 		JRST	2,.+1(1)	;SET BIS		 FLAG
  1407	031304	265 00 0 00 031305 		JSP	.+1		;*JSP SHOULD RESET BIS
  1408	031305	265 00 0 00 031306 		JSP	.+1		;SAVE FLAGS
  1409	031306	603 00 0 00 020000 		TLNE	BIS		;PASS IF BIS FLAG IS RESET
  1410						STOP^
  1411	031307	254 04 0 00 031310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1412	031310	324 00 0 00 031311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1413
  1414					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 19
DBKAEM	MAC	30-APR-76 16:59		TESTS OF BIS FLAG                                                                  SEQ 0046

  1415					;THIS TEST VERIFIES THAT THE BITS IN POSITIONS 8, 9 AND 10 ARE CLEARABLE.
  1416					;FIRST, THE ARITHMETIC FLAGS ARE CLEARED;
  1417					;THEN, BITS 8, 9 AND 10 OF THE PC-WORD IS EXAMINED.
  1418					;IF ANY OF THESE BITS ARE SET, THIS TEST FAILS BECAUSE THEY SHOULD BE CLEAR.
  1419
  1420	031311				C27100:	SFLAG			^;CLEAR ARITHMETIC FLAGS
  1421	031311	205 01 0 00 000000 		MOVSI	1,		
  1422	031312	255 17 0 00 031313 		JFCL	17,.+1		;RESET ALL FLAGS
  1423	031313	254 02 0 01 031314 		JRST	2,.+1(1)	;SET 		 FLAG
  1424	031314	265 00 0 00 031315 		JSP	.+1		;SAVE FLAGS
  1425	031315	603 00 0 00 001600 		TLNE	1600		;PASS IF THESE BITS ARE CLEAR
  1426						STOP^
  1427	031316	254 04 0 00 031317 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1428	031317	324 00 0 00 031320 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1429
  1430					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 20
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0047

  1431					SUBTTL	TEST OF MSCL FWT INSTRUCTIONS
  1432
  1433					;**********
  1434
  1435					;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES
  1436					;NOT MODIFY C(AC).
  1437					;IN THIS CASE, C(AC)=252525,,252525 ANS C(E)=707070,,707070.
  1438					;HENCE, THE RESULT IN E SHOULD BE 252525,,252525.
  1439					;THE AC IS CHECKED FOR 252525,,252525.  IF ANY OTHER NUMBER IS
  1440					;FOUND IN THE AC, IT WAS CLOBBERED BY MOVEM, AND THIS TEST FAILS.
  1441					;E IS CHECKED FOR 252525,,252525.  IF ANY OTHER NUMBER IS FOUND
  1442					;IN E, IT WAS UPDATED INCORRECTLY BY MOVEM.
  1443
  1444	031320	200 00 0 00 033505 	C50000:	MOVE	[252525,,252525]	;PRELOAD AC WITH 252525,,252525
  1445	031321	200 01 0 00 033506 		MOVE	1,[707070,,707070]	;PRELOAD E WITH 707070,,707070
  1446	031322	202 00 0 00 000001 		MOVEM	0,1			;*MOVEM SHOULD PLACE 252525,,252525
  1447										;INTO E AND NOT AFFECT THE AC
  1448	031323	312 00 0 00 033505 		CAME	0,[252525,,252525]	;PASS IF C(AC) IS NOT CLOBBERED
  1449						STOP^
  1450	031324	254 04 0 00 031325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1451	031325	324 00 0 00 031326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1452	031326	312 01 0 00 033505 		CAME	1,[252525,,252525]	;PASS IF E WAS UPDATED CORRECTLY
  1453						STOP^
  1454	031327	254 04 0 00 031330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1455	031330	324 00 0 00 031331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1456
  1457					;**********
  1458
  1459					;THIS TEST VERIFIES THAT MOVES PLACES C(E) INTO THE AC IF AC IS NON-ZERO.
  1460					;IN THIS CASE, C(AC)=707070,,707070 AND C(E)=123456,,123456.  HENCE, BOTH
  1461					;THE AC AND E SHOULD CONTAIN 123456,,123456 AFTER MOVES IS EXECUTED.
  1462					;BOTH AC AND E ARE CHECKED FOR 123456,,123456.  IF EITHER AC OR E
  1463					;CONTAIN A DIFFERENT RESULT, THIS TEST FAILS
  1464
  1465	031331	200 02 0 00 033506 	C50100:	MOVE	2,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  1466	031332	200 01 0 00 033507 		MOVE	1,[123456,,123456]	;PRELOAD E WITH 123456,,123456
  1467	031333	203 02 0 00 000001 		MOVES	2,1			;*MOVES SHOULD PLACE 123456,,123456
  1468										;INTO BOTH AC AND E
  1469	031334	312 02 0 00 033507 		CAME	2,[123456,,123456]	;PASS IF C(AC)=123456,,123456
  1470						STOP^
  1471	031335	254 04 0 00 031336 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1472	031336	324 00 0 00 031337 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1473	031337	312 01 0 00 033507 		CAME	1,[123456,,123456]	;PASS IF C(E)=123456,,123456
  1474						STOP^
  1475	031340	254 04 0 00 031341 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1476	031341	324 00 0 00 031342 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1477
  1478					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 21
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0048

  1479					;THIS TEST VERIFIES THAT MOVES IS A NO-OP IF AC=0
  1480					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=707070,,707070
  1481					;AFTER MOVES IS EXECUTED, AC AND E ARE CHECKED FOR THEIR ORIGINAL DATA.
  1482					;IF EITHER C(AC) OR C(E) CHANGED AS A RESULT OF MOVES, THIS TEST FAILS.
  1483
  1484	031342	200 01 0 00 033506 	C50110:	MOVE	1,[707070,,707070]	;PRELOAD E WITH 707070,,707070
  1485	031343	474 00 0 00 000000 		SETO				;PRELOAD AC WITH -1,,-1
  1486	031344	203 00 0 00 000001 		MOVES	0,1			;*MOVES SHOULD FUNCTION AS A NO-OP
  1487	031345	312 00 0 00 033474 		CAME	0,[-1,,-1]		;PASS IF C(AC) WAS NOT MODIFIED
  1488						STOP^
  1489	031346	254 04 0 00 031347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1490	031347	324 00 0 00 031350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1491	031350	312 01 0 00 033506 		CAME	1,[707070,,707070]	;PASS IF C(E) WAS NOT MODIFIED
  1492						STOP^
  1493	031351	254 04 0 00 031352 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1494	031352	324 00 0 00 031353 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1495
  1496					;**********
  1497
  1498					;THIS TEST VERIFIES THAT MOVSI LOADS THE WORD E,0 INTO THE AC.
  1499					;IN THIS CASE, C(AC)=707070,,707070 AND E=0,,-1.
  1500					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,0.
  1501					;THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0, THIS TEST PASSES.
  1502
  1503	031353	200 01 0 00 033506 	C50200:	MOVE	1,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  1504	031354	205 01 0 00 777777 		MOVSI	1,-1			;*MOVSI SHOULD PLACE -1,,0 INTO THE AC
  1505	031355	312 01 0 00 033510 		CAME	1,[-1,,0]		;PASS IF C(AC)=1,,0
  1506						STOP^
  1507	031356	254 04 0 00 031357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1508	031357	324 00 0 00 031360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1509
  1510					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 22
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0049

  1511					;THIS TEST VERIFIES THAT MOVNM PLACES THE NEGATIVE OF C(AC)
  1512					;INTO E.  IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-3.
  1513					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 AND THE RESULT
  1514					;IN E SHOULD BE 0,,1
  1515
  1516	031360	474 01 0 00 000000 	C50300:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1517	031361	200 02 0 00 033511 		MOVE	2,[-1,,-3]		;PRELOAD E WITH -1,,-3
  1518	031362	212 01 0 00 000002 		MOVNM	1,2			;*MOVNM SHOULD PLACE 0,,1 INTO E
  1519										;AND NOT AFFTECT C(AC)
  1520	031363	312 01 0 00 033474 		CAME	1,[-1]			;PASS IF C(AC)=-1,,-1
  1521						STOP^
  1522	031364	254 04 0 00 031365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1523	031365	324 00 0 00 031366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1524	031366	302 02 0 00 000001 		CAIE	2,1			;PASS IF C(E)=0,,1
  1525						STOP^
  1526	031367	254 04 0 00 031370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1527	031370	324 00 0 00 031371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1528
  1529					;**********
  1530
  1531					;THIS TEST VERIFIES THAT MOVNM PLACES THE NEGATIVE OF C(AC)
  1532					;INTO E.  IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-3.
  1533					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1 AND THE RESULT
  1534					;IN E SHOULD BE 0,,1
  1535
  1536	031371	474 01 0 00 000000 	C50301:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1537	031372	200 02 0 00 033511 		MOVE	2,[-1,,-3]		;PRELOAD E WITH -1,,-3
  1538	031373	202 02 0 00 031405 		MOVEM	2,E50301
  1539	031374	212 01 0 00 031405 		MOVNM	1,E50301		;*MOVNM SHOULD PLACE 0,,1 INTO E
  1540										;AND NOT AFFTECT C(AC)
  1541	031375	312 01 0 00 033474 		CAME	1,[-1]			;PASS IF C(AC)=-1,,-1
  1542						STOP^
  1543	031376	254 04 0 00 031377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1544	031377	324 00 0 00 031400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1545	031400	200 02 0 00 031405 		MOVE	2,E50301
  1546	031401	302 02 0 00 000001 		CAIE	2,1			;PASS IF C(E)=0,,1
  1547						STOP^
  1548	031402	254 04 0 00 031403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1549	031403	324 00 0 00 031404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1550
  1551	031404	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1552	031405	000000	000000		E50301:	0				;TESTED MEMORY LOCATION
  1553
  1554					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 23
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0050

  1555					;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E
  1556					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=0,
  1557					;C(AC)=0 AND C(E)=0,,1
  1558					;HENCE, THE RESULT IN THE AC SHOULD BE 0
  1559					;AND THE RESULT IN E SHOULD BE -1,,-1
  1560
  1561	031406	400 00 0 00 000000 	C50400:	SETZ				;CLEAR AC
  1562	031407	201 02 0 00 000001 		MOVEI	2,1			;PRELOAD E WITH 0,,1
  1563	031410	213 00 0 00 000002 		MOVNS	0,2			;*MOVNS SHOULD PLACE -1,,-1 INTO E
  1564										;AND SHOULD NOT AFFECT THE AC
  1565	031411	332 00 0 00 000000 		SKIPE				;PASS IF THE AC IS UNALTERED
  1566						STOP^
  1567	031412	254 04 0 00 031413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1568	031413	324 00 0 00 031414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1569	031414	312 02 0 00 033474 		CAME	2,[-1]			;PASS IF C(E)=-1,,-1
  1570						STOP^
  1571	031415	254 04 0 00 031416 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1572	031416	324 00 0 00 031417 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1573
  1574					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 24
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0051

  1575					;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E
  1576					;AND INTO THE AC IF THE AC IS NON-ZO.  IN THIS CASE, AC=0,
  1577					;C(AC)=0 AND C(E)=0,,1
  1578					;HENCE, THE RESULT IN THE AC SHOULD BE 0
  1579					;AND THE RESULT IN E SHOULD BE -1,,-1
  1580
  1581	031417	400 00 0 00 000000 	C50401:	SETZ				;CLEAR AC
  1582	031420	201 02 0 00 000001 		MOVEI	2,1			;PRELOAD E WITH 0,,1
  1583	031421	202 02 0 00 031433 		MOVEM	2,E50401
  1584	031422	213 00 0 00 031433 		MOVNS	0,E50401		;*MOVNS SHOULD PLACE -1,,-1 INTO E
  1585										;AND SHOULD NOT AFFECT THE AC
  1586	031423	332 00 0 00 000000 		SKIPE				;PASS IF THE AC IS UNALTERED
  1587						STOP^
  1588	031424	254 04 0 00 031425 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1589	031425	324 00 0 00 031426 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1590	031426	200 02 0 00 031433 		MOVE	2,E50401
  1591	031427	312 02 0 00 033474 		CAME	2,[-1]			;PASS IF C(E)=-1,,-1
  1592						STOP^
  1593	031430	254 04 0 00 031431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1594	031431	324 00 0 00 031432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1595
  1596	031432	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1597	031433	000000	000000		E50401:	0				;TESTED MEMORY LOCATION
  1598
  1599					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 25
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0052

  1600					;THIS TEST VERIFIES THAT MOVNS PLACES THE NEGATIVE OF C(E) INTO E
  1601					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=1,
  1602					;C(AC=0 AND C(E)=3
  1603					;HENCE, THE RESULT IN THE AC SHOULD BE -1,,3
  1604					;AND THE RESULT IN E SHOULD BE -1,,3.
  1605
  1606	031434	400 01 0 00 000000 	C50410:	SETZ	1,			;CLEAR AC
  1607	031435	201 02 0 00 000003 		MOVEI	2,3			;PRELOAD WITH 0,,3
  1608	031436	213 01 0 00 000002 		MOVNS	1,2			;*MOVNS SHOULD PLACE -1,,-3 INTO E
  1609										;AND -1,,-3 INTO THE AC
  1610	031437	312 01 0 00 033511 		CAME	1,[-1,,-3]		;PASS IF C(AC)=-1,,-3
  1611						STOP^
  1612	031440	254 04 0 00 031441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1613	031441	324 00 0 00 031442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1614	031442	312 02 0 00 033511 		CAME	2,[-1,,-3]		;PASS IF C(E)=-1,,-3
  1615						STOP^
  1616	031443	254 04 0 00 031444 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1617	031444	324 00 0 00 031445 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1618
  1619					;**********
  1620
  1621					;THIS TEST VERIFIES THAT MOVMI MOVES THE WORD 0,,E INTO THE AC.
  1622					;IN THIS CASE, C(AC)=0 AND E=0,,-2.  HENCE, THE RESULT IN THE AC
  1623					;SHOULD BE 0,,-2.
  1624
  1625	031445	400 01 0 00 000000 	C50500:	SETZ	1,			;CLEAR AC
  1626	031446	215 01 0 00 777776 		MOVMI	1,-2			;*MOVMI SHOULD PLACE 0,,-2 INTO AC
  1627	031447	302 01 0 00 777776 		CAIE	1,-2			;PASS IF C(AC)=0,,-2
  1628						STOP^
  1629	031450	254 04 0 00 031451 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1630	031451	324 00 0 00 031452 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1631
  1632					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 26
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0053

  1633					;THIS TEST VERIFIES THAT MOVM MOVES THE MAGNITUDE OF C(E) NTO THE AC.
  1634					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-2.  HENCE, THE RESULT IN THE AC
  1635					;SHOULD BE 0,,2.
  1636
  1637	031452	400 01 0 00 000000 	C50501:	SETZ	1,			;CLEAR AC
  1638	031453	200 03 0 00 033512 		MOVE	3,[-2]			;PRELOAD E WITH -1,,-2
  1639	031454	214 01 0 00 000003 		MOVM	1,3			;*MOVM SHOULD PLACE 0,,2 INTO AC
  1640	031455	302 01 0 00 000002 		CAIE	1,2			;PASS IF C(AC)=0,,2
  1641						STOP^
  1642	031456	254 04 0 00 031457 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1643	031457	324 00 0 00 031460 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1644
  1645					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 27
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0054

  1646					;THIS TEST VERIFIES THAT MOVMM PLACES THE MAGNITUDE OF C(AC)
  1647					;INTO E.  IN THIS CASE, C(AC)=-1,,-2 AND C(E)=0.  HENCE, THE
  1648					;RESULT IN E SHOULD BE 0,,2 AND C(AC) SHOULD REMAIN UNCHANGED.
  1649
  1650	031460	200 01 0 00 033512 	C50600:	MOVE	1,[-1,,-2]		;PRELOAD AC WITH -1,,-2
  1651	031461	400 02 0 00 000000 		SETZ	2,			;CLEAR E
  1652	031462	216 01 0 00 000002 		MOVMM	1,2			;*MOVMM SHOULD PLACE 0,,2 INTO E
  1653										;AND SHOULD NOT CHANGE C(AC)
  1654	031463	312 01 0 00 033512 		CAME	1,[-1,,-2]		;PASS IF C(AC) IS NOT ALTERED
  1655						STOP^
  1656	031464	254 04 0 00 031465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1657	031465	324 00 0 00 031466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1658	031466	302 02 0 00 000002 		CAIE	2,2			;PASS IF C(E)=0,,2
  1659						STOP^
  1660	031467	254 04 0 00 031470 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1661	031470	324 00 0 00 031471 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1662
  1663					;**********
  1664
  1665					;THIS TEST VERIFIES THAT MONMS PLACES THE MAGNITUDE OF C(E) INTO E
  1666					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=0, C(AC)=0
  1667					;AND C(E)=-1,,-2.
  1668					;HENCE, THE RESULT IN THE AC SHOULD BE 0 AND THE RESULT IN
  1669					;E SHOULD BE 0,,2.
  1670
  1671	031471	400 00 0 00 000000 	C50700:	SETZ			;CLEAR AC
  1672	031472	200 02 0 00 033512 		MOVE	2,[-1,,-2]		;PRELOAD E WITH -1,,-1
  1673	031473	217 00 0 00 000002 		MOVMS	0,2			;*MOVMS	SHOULD PLACE 0,,1 INTO E
  1674										;AND SHOULD NOT CHANGE C(AC)
  1675	031474	332 00 0 00 000000 		SKIPE				;PASS IF C(AC) IS UNALTERED
  1676						STOP^
  1677	031475	254 04 0 00 031476 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1678	031476	324 00 0 00 031477 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1679	031477	302 02 0 00 000002 		CAIE	2,2			;PASS IF C(E)=0,,2
  1680						STOP^
  1681	031500	254 04 0 00 031501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1682	031501	324 00 0 00 031502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1683
  1684					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 28
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL FWT INSTRUCTIONS                                                      SEQ 0055

  1685					;THIS TEST VERIFIES THAT MOVMS PLACES THE MAGNITUDE OF C(E) INTO E
  1686					;AND INTO THE AC IF THE AC IS NON-ZERO.  IN THIS CASE, AC=1, C(AC)=-1,,-1
  1687					;AND C(E)=-1,,-2.
  1688					;HENCE, THE RESULT IN THE AC SHOULD BE 0,,2 AND THE RESULT
  1689					;IN E SHOULD BE 0,,2.
  1690
  1691	031502	474 01 0 00 000000 	C50710:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1692	031503	200 02 0 00 033512 		MOVE	2,[-1,,-2]		;PRELOAD E WITH -1,,-2
  1693	031504	217 01 0 00 000002 		MOVMS	1,2			;*MOVMS SHOULD PLACE 0,,2 INTO E
  1694										;AND SHOULD PLACE 0,,2 INTO THE AC
  1695	031505	302 01 0 00 000002 		CAIE	1,2			;PASS IF C(AC)=0,,2
  1696						STOP^
  1697	031506	254 04 0 00 031507 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1698	031507	324 00 0 00 031510 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1699	031510	302 02 0 00 000002 		CAIE	2,2			;PASS IF C(E)=0,,2
  1700						STOP^
  1701	031511	254 04 0 00 031512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1702	031512	324 00 0 00 031513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1703
  1704					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 29
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL ADD/SUB INSTRUCTIONS                                                  SEQ 0056

  1705					SUBTTL	TEST OF MSCL ADD/SUB INSTRUCTIONS
  1706
  1707					;**********
  1708
  1709					;THIS TEST VERIFIES THAT SUBI SUBTRACTS THE WORD 0,,E FROM C(AC)
  1710					;AND PLACES THE RESULT INTO THE AC.  IN THIS CASE, C(AC)=70 AND
  1711					;E=0,,2.  HENCE, THE RESULT IN THE AC SHOULD BE 66.
  1712
  1713	031513	201 01 0 00 000070 	C51000:	MOVEI	1,70			;PRELOAD AC WITH 70
  1714	031514	275 01 0 00 000002 		SUBI	1,2			;*SUBI SHOULD PLACE 66 INTO AC
  1715	031515	302 01 0 00 000066 		CAIE	1,66			;PASS IF C(AC)=66
  1716						STOP^
  1717	031516	254 04 0 00 031517 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1718	031517	324 00 0 00 031520 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1719
  1720					;**********
  1721
  1722					;THIS TEST VERIFIES THAT SUBM SUBTRACTS C(E) FROM C(AC) AND
  1723					;PLACES THE RESULT INTO E.  THE AC IS UNAFFECTED.  IN THIS CASE,
  1724					;C(AC)=100 AND C(E)=37.  HENCE, THE RESULTS IN AC AND
  1725					;E SHOULD BE 0,,100 AND 0,,41 RESPECTIVELY.
  1726
  1727	031520	201 01 0 00 000100 	C51100:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1728	031521	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH 0,,37
  1729	031522	276 01 0 00 000002 		SUBM	1,2			;*SUBM SHOULD PLACE
  1730										;0,,41 INTO E AND NOT CHANGE C(AC)
  1731	031523	302 01 0 00 000100 		CAIE	1,100			;PASS IF C(AC) IS UNCHANGED
  1732						STOP^
  1733	031524	254 04 0 00 031525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1734	031525	324 00 0 00 031526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1735	031526	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  1736						STOP^
  1737	031527	254 04 0 00 031530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1738	031530	324 00 0 00 031531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1739
  1740					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 30
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL ADD/SUB INSTRUCTIONS                                                  SEQ 0057

  1741					;THIS TEST VERIFIES THAT SUBM SUBTRACTS C(E) FROM C(AC) AND
  1742					;PLACES THE RESULT INTO E.  THE AC IS UNAFFECTED.  IN THIS CASE,
  1743					;C(AC)=100 AND C(E)=37.  HENCE, THE RESULTS IN AC AND
  1744					;E SHOULD BE 0,,100 AND 0,,41 RESPECTIVELY.
  1745
  1746	031531	201 01 0 00 000100 	C51101:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1747	031532	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH 0,,37
  1748	031533	202 02 0 00 031545 		MOVEM	2,E51101
  1749	031534	276 01 0 00 031545 		SUBM	1,E51101		;*SUBM SHOULD PLACE
  1750										;0,,41 INTO E AND NOT CHANGE C(AC)
  1751	031535	302 01 0 00 000100 		CAIE	1,100			;PASS IF C(AC) IS UNCHANGED
  1752						STOP^
  1753	031536	254 04 0 00 031537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1754	031537	324 00 0 00 031540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1755	031540	200 02 0 00 031545 		MOVE	2,E51101
  1756	031541	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  1757						STOP^
  1758	031542	254 04 0 00 031543 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1759	031543	324 00 0 00 031544 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1760
  1761	031544	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1762	031545	000000	000000		E51101:	0				;TEST WORD MEMORY
  1763
  1764					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 31
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL ADD/SUB INSTRUCTIONS                                                  SEQ 0058

  1765					;THIS TEST VERIFIES THAT SUBB SUBTRACTS C(E) FROM C(AC) AND
  1766					;PLACES THE RESULT INTO BOTH AC AND E.  IN THIS CASE,
  1767					;C(AC)=0,,100 AND C(E)=0,,37.  HENCE, THE RESULT IN BOTH
  1768					;AC AND E SHOULD BE 0,,41.
  1769
  1770	031546	201 01 0 00 000100 	C51200:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1771	031547	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH O,,37
  1772	031550	277 01 0 00 000002 		SUBB	1,2			;*SUBB SHOULD PLACE 0,,41 INTO BOTH AC  AND E
  1773	031551	302 01 0 00 000041 		CAIE	1,41			;PASS IF C(AC)=0,,41
  1774						STOP^
  1775	031552	254 04 0 00 031553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1776	031553	324 00 0 00 031554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1777	031554	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  1778						STOP^
  1779	031555	254 04 0 00 031556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1780	031556	324 00 0 00 031557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1781
  1782					;**********
  1783
  1784					;THIS TEST VERIFIES THAT SUBB SUBTRACTS C(E) FROM C(AC) AND
  1785					;PLACES THE RESULT INTO BOTH AC AND E.  IN THIS CASE,
  1786					;C(AC)=0,,100 AND C(E)=0,,37.  HENCE, THE RESULT IN BOTH
  1787					;AC AND E SHOULD BE 0,,41.
  1788
  1789	031557	201 01 0 00 000100 	C51201:	MOVEI	1,100			;PRELOAD AC WITH 0,,100
  1790	031560	201 02 0 00 000037 		MOVEI	2,37			;PRELOAD E WITH O,,37
  1791	031561	202 02 0 00 031573 		MOVEM	2,E51201
  1792	031562	277 01 0 00 031573 		SUBB	1,E51201		;*SUBB SHOULD PLACE 0,,41 INTO BOTH AC  AND E
  1793	031563	302 01 0 00 000041 		CAIE	1,41			;PASS IF C(AC)=0,,41
  1794						STOP^
  1795	031564	254 04 0 00 031565 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1796	031565	324 00 0 00 031566 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1797	031566	200 02 0 00 031573 		MOVE	2,E51201
  1798	031567	302 02 0 00 000041 		CAIE	2,41			;PASS IF C(E)=0,,41
  1799						STOP^
  1800	031570	254 04 0 00 031571 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1801	031571	324 00 0 00 031572 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1802
  1803	031572	334 00 0 00 000000 		SKIPA				;GO TO NEXT TEST
  1804	031573	000000	000000		E51201:	0				;TEST WORD MEMORY
  1805
  1806					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 32
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0059

  1807					SUBTTL	TEST OF MSCL CAIX INSTRUCTIONS
  1808
  1809					;**********
  1810
  1811					;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND
  1812					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E.
  1813					;IN THIS CASE, C(AC)=0,,1 AND E=0,,2
  1814					;HENCE, CAIL SHOULD SKIP THE NEXT INSTRUCTION.
  1815					;IF CAIL SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  1816
  1817	031574	201 01 0 00 000001 	C51300:	MOVEI	1,1			;PRELOAD AC WITH 0,,1
  1818	031575	301 01 0 00 000002 		CAIL	1,2			;*CAIL SHOULD SKIP THE NEXT INSTRUCTION
  1819						STOP^
  1820	031576	254 04 0 00 031577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1821	031577	324 00 0 00 031600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1822
  1823					;**********
  1824
  1825					;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND
  1826					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E.
  1827					;IN THIS CASE, C(AC)=0,,2 AND E=0,,2.
  1828					;HENCE, CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION.
  1829					;IF CAIL DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  1830
  1831	031600	201 01 0 00 000002 	C51310:	MOVEI	1,2			;PRELOAD AC WITH 0,,2
  1832	031601	301 01 0 00 000002 		CAIL	1,2			;*CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION
  1833	031602	334 00 0 00 000000 		SKIPA				;PASS IF CAIL DOES NOT SKIP
  1834						STOP^
  1835	031603	254 04 0 00 031604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1836	031604	324 00 0 00 031605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1837
  1838					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 33
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0060

  1839					;THIS TEST VERIFIES THAT CAIL COMPARES C(AC) WITH E AND
  1840					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN E
  1841					;IN THIS CASE, C(AC)=0,,3 AND E=0,,2
  1842					;HENCE, CAIL SHOULD NOT SKIP THE NEXT INSTRUCTION.
  1843					;IF CAIL DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  1844
  1845	031605	201 01 0 00 000003 	C51320:	MOVEI	1,3			;PRELOAD AC WITH 0,,3
  1846	031606	301 01 0 00 000002 		CAIL	1,2			;*CAIL SHOULD SKIP THE NEXT INSTRUCTION
  1847	031607	334 00 0 00 000000 		SKIPA				;PASS IF CAIL DOES NOT SKIP
  1848						STOP^
  1849	031610	254 04 0 00 031611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1850	031611	324 00 0 00 031612 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1851
  1852					;**********
  1853
  1854					;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND
  1855					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E
  1856					;IN THIS CASE, C(AC)=-1,,-1 AND E=0
  1857					;HENCE, CAILE SHOULD SKIP THE NEXT INSTRUCTION
  1858					;IF CAILE SKIPS THE NEXT INSTRUCTION, THE TEST PASSES
  1859
  1860	031612	474 01 0 00 000000 	C51400:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1861	031613	303 01 0 00 000000 		CAILE	1,0			;*CAILE SHOULD SKIP THE NEXT INSTRUCTION
  1862						STOP^
  1863	031614	254 04 0 00 031615 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1864	031615	324 00 0 00 031616 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1865
  1866					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 34
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0061

  1867					;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND
  1868					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E
  1869					;IN THIS CASE, C(AC)=0	AND E=0
  1870					;HENCE, CAILE SHOULD SKIP THE NEXT INSTRUCTION.
  1871					;IF CAILE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  1872
  1873	031616	400 01 0 00 000000 	C51410:	SETZ	1,			;PRELOAD AC WITH 0
  1874	031617	303 01 0 00 000000 		CAILE	1,0			;*CAILE SHOULD SKIP THE NEXT INSTRUCTION.
  1875						STOP^
  1876	031620	254 04 0 00 031621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1877	031621	324 00 0 00 031622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1878
  1879					;**********
  1880
  1881					;THIS TEST VERIFIES THAT CAILE COMPARES C(AC) WITH E AND
  1882					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO E 
  1883					;IN THIS CASE, C(AC)=0,,1 AND E=0
  1884					;HENCE, CAILE SHOULD NOT SKIP THE NEXT INSTRUCTION.
  1885					;IF CAILE DOES NOT SKIP THE NEXT INSTRUCTION, THE TEST PASSES
  1886
  1887	031622	201 01 0 00 000001 	C51420:	MOVEI	1,1			;PRELOAD AC WITH 0,,1
  1888	031623	303 01 0 00 000000 		CAILE	1,0			;*CAILE SHOULD NOT SKIP THE NEXT INSTRUCTION
  1889	031624	334 00 0 00 000000 		SKIPA				;PASS IF CAILE DOES NOT SKIP
  1890						STOP^
  1891	031625	254 04 0 00 031626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1892	031626	324 00 0 00 031627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1893
  1894					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 35
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0062

  1895					;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS
  1896					;SKIPS THE NEXT INSTRUCTION
  1897					;IN THIS CASE, C(AC)=-1,,-1 AND E=0
  1898					;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION
  1899					;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  1900
  1901	031627	474 01 0 00 000000 	C51500:	SETO	1,			;PRELOAD AC WITH -1,,-1
  1902	031630	304 01 0 00 000000 		CAIA	1,0			;*CAIA SHOULD SKIP THE NEXT INSTRUCTION
  1903						STOP^
  1904	031631	254 04 0 00 031632 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1905	031632	324 00 0 00 031633 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1906
  1907					;**********
  1908
  1909					;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS
  1910					;SKIPS THE NEXT INSTRUCTION
  1911					;IN THIS CASE, C(AC)=0 AND E=0
  1912					;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION.
  1913					;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  1914
  1915	031633	400 01 0 00 000000 	C51510:	SETZ	1,			;PRELOAD AC WITH 0
  1916	031634	304 01 0 00 000000 		CAIA	1,0			;*CAIA SHOULD SKIP THE NEXT INSTRUCTION
  1917						STOP^
  1918	031635	254 04 0 00 031636 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1919	031636	324 00 0 00 031637 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1920
  1921					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 36
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0063

  1922					;THIS TEST VERIFIES THAT CAIA COMPARES C(AC) WITH E AND ALWAYS
  1923					;SKIPS THE NEXT INSTRUCTION
  1924					;IN THIS CASE, C(AC)=0,,1 AND E=0
  1925					;HENCE, CAIA SHOULD SKIP THE NEXT INSTRUCTION.
  1926					;IF CAIA SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  1927
  1928	031637	201 01 0 00 000001 	C51520:	MOVEI	1,1			;PRELOAD AC WITH 0,,1
  1929	031640	304 01 0 00 000000 		CAIA	1,0			;*CAIA SHOULD SKIP THE NEXT INSTRUCTION
  1930						STOP^
  1931	031641	254 04 0 00 031642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1932	031642	324 00 0 00 031643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1933
  1934					;**********
  1935
  1936					;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND
  1937					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E.
  1938					;IN THIS CASE, C(AC)=0,,5 AND E=0,,6
  1939					;HENCE, CAIGE SHOULD NOT SKIP THE NEXT INSTRUCTION.
  1940					;IF CAIGE DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  1941
  1942	031643	201 02 0 00 000005 	C51600:	MOVEI	2,5			;PRELOAD AC WITH 0,,5
  1943	031644	305 02 0 00 000006 		CAIGE	2,6			;*CAIGE SHOULD NOT SKIP THE NEXT INSTRUCTION
  1944	031645	334 00 0 00 000000 		SKIPA				;PASS IF CAIGE DOES NOT SKIP
  1945						STOP^
  1946	031646	254 04 0 00 031647 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1947	031647	324 00 0 00 031650 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1948
  1949					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 37
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0064

  1950					;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND
  1951					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E
  1952					;IN THIS CASE, C(AC)=0,,6 AND E=0,,6
  1953					;HENCE, CAIGE SHOULD SKIP THE NEXT INSTRUCTION.
  1954					;IF CAIGE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  1955
  1956	031650	201 02 0 00 000006 	C51610:	MOVEI	2,6			;PRELOAD AC WITH 0,,6
  1957	031651	305 00 0 00 000000 		CAIGE				;*CAIGE SHOULD SKIP THE NEXT INSTRUCTION
  1958						STOP^
  1959	031652	254 04 0 00 031653 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1960	031653	324 00 0 00 031654 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1961
  1962					;**********
  1963
  1964					;THIS TEST VERIFIES THAT CAIGE COMPARES C(AC) WITH E AND
  1965					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN OR EQUAL TO E.
  1966					;IN THIS CASE, C(AC)=0,,7 AND E=0,,6
  1967					;HENCE, CAIGE SHOULD SKIP THE NEXT INSTRUCTION.
  1968					;IF CAIGE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  1969
  1970	031654	201 02 0 00 000007 	C51620:	MOVEI	2,7		;PRELOAD AC WITH 0,,7
  1971	031655	305 02 0 00 000006 		CAIGE	2,6		;*CAIGE SHOULD SKIP THE NEXT INSTRUCTION
  1972						STOP^
  1973	031656	254 04 0 00 031657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1974	031657	324 00 0 00 031660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1975
  1976					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 38
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0065

  1977					;THIS TEST VERIRIES THAT CAIN COMPARES C(AC) WITH E AND
  1978					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E.
  1979					;IN THIS CASE, C(AC)=0 AND E=0,,1
  1980					;HENCE, CAIN SHOULD SKIP THE NEXT INSTRUCTION.
  1981					;IF CAIN SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  1982
  1983	031660	400 06 0 00 000000 	C51700:	SETZ	6,		;PRELOAD AC WITH 0
  1984	031661	306 06 0 00 000001 		CAIN	6,1		;*CAIN SHOULD SKIP THE NEXT INSTRUCTION
  1985						STOP^
  1986	031662	254 04 0 00 031663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1987	031663	324 00 0 00 031664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1988
  1989					;**********
  1990
  1991					;THIS TEST VERIFIES THAT CAIN COMPARES C(AC) WITH E AND
  1992					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E.
  1993					;IN THIS CASE, C(AC)=0,,1 AND E=0,,1
  1994					;HENCE, CAIN SHOULD NOT SKIP THE NEXT INSTRUCTION.
  1995					;IF CAIN DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  1996
  1997	031664	200 06 0 00 000001 	C51710:	MOVE	6,1		;PRELOAD AC WITH 0,,1
  1998	031665	306 06 0 00 000001 		CAIN	6,1		;*CAIN SHOULD NOT SKIP THE NEXT INSTRUCTION
  1999	031666	334 00 0 00 000000 		SKIPA			;PASS IF CAIN SKIPS
  2000						STOP^
  2001	031667	254 04 0 00 031670 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2002	031670	324 00 0 00 031671 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2003
  2004					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 39
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0066

  2005					;THIS TEST VERIFIES THAT CAIN COMPARES C(AC) WITH E AND
  2006					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS NOT EQUAL TO E.
  2007					;IN THIS CASE, C(AC)=0,,2 AND E=0,,1
  2008					;HENCE, CAIN SHOULD SKIP THE NEXT INSTRUCTION.
  2009					;IF CAIN SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2010
  2011	031671	201 06 0 00 000002 	C51720:	MOVEI	6,2		;PRELOAD AC WITH
  2012	031672	306 06 0 00 000001 		CAIN	6,1		;*CAIN SHOULD SKIP THE NEXT INSTRUCTION
  2013						STOP^
  2014	031673	254 04 0 00 031674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2015	031674	324 00 0 00 031675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2016
  2017					;**********
  2018
  2019					;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND
  2020					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E.
  2021					;IN THIS CASE, C(AC)=0,,2 AND E=0,,3.
  2022					;HENCE, CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2023					;IF CAIG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  2024
  2025	031675	201 11 0 00 000002 	C52000:	MOVEI	11,2		;PRELOAD AC WITH 0,,2
  2026	031676	307 11 0 00 000003 		CAIG	11,3		;*CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION
  2027	031677	334 00 0 00 000000 		SKIPA			;PASS IF CAIG DID NOT SKIP
  2028						STOP^
  2029	031700	254 04 0 00 031701 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2030	031701	324 00 0 00 031702 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2031
  2032					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 40
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAIX INSTRUCTIONS                                                     SEQ 0067

  2033					;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND
  2034					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E.
  2035					;IN THIS CASE, C(AC)=0,,3 AND E=0,,3.
  2036					;HENCE, CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2037					;IF CAIG DOES NOT SKIP THE NEXT INSTRUCTION, THE TEST PASSES.
  2038
  2039	031702	201 11 0 00 000003 	C52010:	MOVEI	11,3		;PRELOAD AC WITH 0,,3
  2040	031703	307 11 0 00 000003 		CAIG	11,3		;*CAIG SHOULD NOT SKIP THE NEXT INSTRUCTION
  2041	031704	334 00 0 00 000000 		SKIPA			;PASS IF CAIG DID NOT SKIP
  2042						STOP^
  2043	031705	254 04 0 00 031706 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2044	031706	324 00 0 00 031707 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2045
  2046					;**********
  2047
  2048					;THIS TEST VERIFIES THAT CAIG COMPARES C(AC) WITH E AND
  2049					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN E.
  2050					;IN THIS CASE, C(AC)=0,,4 AND E=0,,3.
  2051					;HENCE, CAIG SHOULD SKIP THE NEXT INSTRUCTION.
  2052					;IF CAIG SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2053
  2054	031707	201 11 0 00 000004 	C52020:	MOVEI	11,4		;PRELOAD AC WITH 0,,4
  2055	031710	307 11 0 00 000003 		CAIG	11,3		;*CAIG SHOULD SKIP THE NEXT INSTRUCTION
  2056						STOP^
  2057	031711	254 04 0 00 031712 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2058	031712	324 00 0 00 031713 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2059
  2060					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 41
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAMX INSTRUCTIONS                                                     SEQ 0068

  2061					SUBTTL	TEST OF MSCL CAMX INSTRUCTIONS
  2062
  2063					;**********
  2064
  2065					;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND
  2066					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAT OR EQUAL TO C(E).
  2067					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0
  2068					;HENCE, CAMLE SHOULD SKIP THE NEXT INSTRUCTION.
  2069					;IF CAMLE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2070
  2071	031713	474 01 0 00 000000 	C52100:	SETO	1,		;PRELOAD AC WITH -1,,-1
  2072	031714	400 02 0 00 000000 		SETZ	2,		;PRELOAD E WITH 0
  2073	031715	313 01 0 00 000002 		CAMLE	1,2		;*CAMLE SHOULD SKIP THE NEXT INSTRUCTION
  2074						STOP^
  2075	031716	254 04 0 00 031717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2076	031717	324 00 0 00 031720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2077
  2078					;**********
  2079
  2080					;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND
  2081					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO C(E).
  2082					;IN THIS CASE, C(AC)=0 AND C(E)=0
  2083					;HENCE, CAMLE SHOULD SKIP THE NEXT INSTRUCTION.
  2084					;IF CAMLE SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES
  2085
  2086	031720	400 01 0 00 000000 	C52110:	SETZ	1,		;CLEAR AC
  2087	031721	313 01 0 00 033513 		CAMLE	1,[0]		;*CAMLE SHOULD SKIP THE NEXT INSTRUCTION
  2088						STOP^
  2089	031722	254 04 0 00 031723 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2090	031723	324 00 0 00 031724 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2091
  2092					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 42
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAMX INSTRUCTIONS                                                     SEQ 0069

  2093					;THIS TEST VERIFIES THAT CAMLE COMPARES C(AC) WITH C(E) AND
  2094					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS LESS THAN OR EQUAL TO C(E).
  2095					;IN THIS CASE, C(AC)=0,,1 AND C(E)=0
  2096					;HENCE, CAMLE SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2097					;IF CAMLE DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2098
  2099	031724	201 01 0 00 000001 	C52120:	MOVEI	1,1		;PRELOAD AC WITH 0,,1
  2100	031725	400 02 0 00 000000 		SETZ	2,		;PRELOAD E WITH 0
  2101	031726	313 01 0 00 000002 		CAMLE	1,2		;*CAMLE SHOULD NOT SKIP THE NEXT INSTRUCTION
  2102	031727	334 00 0 00 000000 		SKIPA			;PASS IF CAMLE DOES NOT SKIP
  2103						STOP^
  2104	031730	254 04 0 00 031731 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2105	031731	324 00 0 00 031732 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2106
  2107					;**********
  2108
  2109					;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND
  2110					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E).
  2111					;IN THIS CASE, C(AC)=-1,,-2 AND C(E)=-1,,-2.
  2112					;HENCE, CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2113					;IF CAMG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2114
  2115	031732	561 10 0 00 777776 	C52200:	HRROI	10,-2		;PRELOAD AC WITH -1,,-2
  2116	031733	317 10 0 00 033474 		CAMG	10,[-1,,-1]	;*CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2117	031734	334 00 0 00 000000 		SKIPA			;PASS IF CAMG DOES NOT SKIP
  2118						STOP^
  2119	031735	254 04 0 00 031736 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2120	031736	324 00 0 00 031737 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2121
  2122					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 43
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL CAMX INSTRUCTIONS                                                     SEQ 0070

  2123					;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND
  2124					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E).
  2125					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.
  2126					;HENCE, CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION.
  2127					;IF CAMG DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES.
  2128	031737	474 10 0 00 000000 	C52210:	SETO	10,		;PRELOAD AC WITH -1,,-1.
  2129	031740	317 10 0 00 033474 		CAMG	10,[-1,,-1]	;*CAMG SHOULD NOT SKIP THE NEXT INSTRUCTION
  2130	031741	334 00 0 00 000000 		SKIPA			;PASS IF CAMG DOES NOT SKIP
  2131						STOP^
  2132	031742	254 04 0 00 031743 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2133	031743	324 00 0 00 031744 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2134
  2135					;**********
  2136
  2137					;THIS TEST VERIFIES THAT CAMG COMPARES C(AC) WITH C(E) AND
  2138					;SKIPS THE NEXT INSTRUCTION IF C(AC) IS GREATER THAN C(E).
  2139					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.
  2140					;HENCE, CAMG SHOULD SKIP THE NEXT INSTRUCTION.
  2141					;IF CAMG SKIPS THE NEXT INSTRUCTION, THIS TEST PASSES.
  2142
  2143	031744	400 10 0 00 000000 	C52220:	SETZ	10,		;PRELOAD AC WITH 0
  2144	031745	317 10 0 00 033474 		CAMG	10,[-1,,-1]	;*CAMG SHOULD SKIP THE NEXT INSTRUCTION
  2145						STOP^
  2146	031746	254 04 0 00 031747 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2147	031747	324 00 0 00 031750 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2148
  2149					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 44
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL JUMPX INSTRUCTIONS                                                    SEQ 0071

  2150					SUBTTL	TEST OF MSCL JUMPX INSTRUCTIONS
  2151
  2152					;**********
  2153
  2154					;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND
  2155					;JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR
  2156					;EQUAL TO 0.  IN THIS CASE, C(AC)=-1,,-1.  HENCE, JUMPLE SHOULD JUMP.
  2157
  2158	031750	474 17 0 00 000000 	C52300:	SETO	17,		;PRELOAD AC WITH -1,,-1
  2159	031751	323 17 0 00 031753 		JUMPLE	17,.+2		;*JUMPLE SHOULD JUMP
  2160						STOP^
  2161	031752	254 04 0 00 031753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2162	031753	324 00 0 00 031754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2163
  2164					;**********
  2165
  2166					;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND
  2167					;JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR
  2168					;EQUAL TO 0.  IN THIS CASE, C(AC)=0.  HENCE, JUMPLE SHOULD JUMP.
  2169
  2170	031754	400 17 0 00 000000 	C52310:	SETZ	17,		;PRELOAD AC WITH 0
  2171	031755	323 17 0 00 031757 		JUMPLE	17,.+2		;*JUMPLE SHOULD JUMP
  2172						STOP^
  2173	031756	254 04 0 00 031757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2174	031757	324 00 0 00 031760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2175
  2176					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 45
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL JUMPX INSTRUCTIONS                                                    SEQ 0072

  2177					;THIS TEST VERIFIES THAT JUMPLE COMPARES C(AC) WITH 0 AND JUMPS
  2178					;TO THE LOCATION SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO
  2179					;0.  IN THIS CASE, C(AC)=0,,1.  HENCE, JUMPLE SHOULD NOT JUMP.
  2180
  2181	031760	201 17 0 00 000001 	C52320:	MOVEI	17,1		;PRELOAD AC WITH 0,,1
  2182	031761	320 17 0 00 031763 		JUMP	17,.+2		;*JUMPLE SHOULD NOT JUMP
  2183	031762	334 00 0 00 000000 		SKIPA			;PASS IF JUMPLE DOES NOT JUMP
  2184						STOP^
  2185	031763	254 04 0 00 031764 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2186	031764	324 00 0 00 031765 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2187
  2188					;**********
  2189
  2190					;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH 0 AND JUMPS TO
  2191					;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2192					;IN THIS CASE, C(AC)=-1,,-1.  HENCE, JUMPGE SHOULD NOT JUMP.
  2193
  2194	031765	474 16 0 00 000000 	C52400:	SETO	16,		;PRELOAD AC WITH -1,,-1
  2195	031766	325 16 0 00 031770 		JUMPGE	16,.+2		;*JUMPGE SHOULD NOT JUMP
  2196	031767	334 00 0 00 000000 		SKIPA			;PASS IF JUMPGE DOES NOT JUMP
  2197						STOP^
  2198	031770	254 04 0 00 031771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2199	031771	324 00 0 00 031772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2200
  2201					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 46
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL JUMPX INSTRUCTIONS                                                    SEQ 0073

  2202					;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH O AND JUMPS TO
  2203					;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2204					;IN THIS CASE, C(AC)=0.  HENCE, JUMPGE SHOULD JUMP.
  2205
  2206	031772	400 16 0 00 000000 	C52410:	SETZ	16,		;PRELOAD AC WITH 0
  2207	031773	325 16 0 00 031775 		JUMPGE	16,.+2		;*JUMPGE SHOULD JUMP
  2208						STOP^
  2209	031774	254 04 0 00 031775 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2210	031775	324 00 0 00 031776 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2211
  2212					;**********
  2213
  2214					;THIS TEST VERIFIES THAT JUMPGE COMPARES C(AC) WITH 0 AND JUMPS TO
  2215					;THE LOCATION SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2216					;IN THIS CASE, C(AC)=0,,1.  HENCE, JUMPGE SHOULD JUMP.
  2217
  2218	031776	201 16 0 00 000001 	C52420:	MOVEI	16,1		;PRELOAD AC WITH 0,,1
  2219	031777	325 16 0 00 032001 		JUMPGE	16,.+2		;*JUMPGE SHOULD JUMP
  2220						STOP^
  2221	032000	254 04 0 00 032001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2222	032001	324 00 0 00 032002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2223
  2224					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 47
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0074

  2225					SUBTTL	TEST OF MSCL AOJX INSTRUCTIONS
  2226
  2227					;**********
  2228
  2229					;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND PLACES
  2230					;THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS COMPARED
  2231					;TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC)
  2232					;IS LESS THAN 0.  IN THIS CASE, C(AC)=-1,,-2 BEFORE INCREMENTING.
  2233					;HENCE, AOJL SHOULD JUMP.
  2234
  2235	032002	561 15 0 00 777776 	C52500:	HRROI	15,-2		;PRELOAD AC WITH -1,,-2
  2236	032003	341 15 0 00 032005 		AOJL	15,.+2		;*AOJL SHOULD ADD 0,,1 TO C(AC) AND JUMP
  2237						STOP^
  2238	032004	254 04 0 00 032005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2239	032005	324 00 0 00 032006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2240	032006	312 15 0 00 033474 		CAME	15,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2241						STOP^
  2242	032007	254 04 0 00 032010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2243	032010	324 00 0 00 032011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2244
  2245					;**********
  2246
  2247					;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND
  2248					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2249					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2250					;SPECIFIED BY E IF C(AC) IS LESS THAN 0.
  2251					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2252					;HENCE, AOJ SHOULD NOT JUMP
  2253
  2254	032011	474 15 0 00 000000 	C52510:	SETO	15,		;PRELOAD AC WITH
  2255	032012	341 15 0 00 032014 		AOJL	15,.+2		;*AOJL SHOULD ADD 0,,1 TO C(AC)
  2256									;AND NOT JUMP
  2257	032013	334 00 0 00 000000 		SKIPA			;PASS IF AOJL DID NOT JUMP
  2258						STOP^
  2259	032014	254 04 0 00 032015 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2260	032015	324 00 0 00 032016 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2261	032016	302 15 0 00 000000 		CAIE	15,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2262						STOP^
  2263	032017	254 04 0 00 032020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2264	032020	324 00 0 00 032021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2265
  2266					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 48
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0075

  2267					;THIS TEST VERIFIES THAT AOJL INCREMENTS C(AC) BY 0,,1 AND
  2268					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2269					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2270					;SPECIFIED BY E IF C(AC) IS 0 BEFORE INCREMENTING
  2271					;HENCE, AOJL SHOULD NOT JUMP
  2272
  2273	032021	400 15 0 00 000000 	C52520:	SETZ	15,		;PRELOAD AC WITH 0
  2274	032022	341 15 0 00 032024 		AOJL	15,.+2		;*AOJL SHOULD ADD 0,,1 TO C(AC)
  2275									;AND NOT JUMP
  2276	032023	334 00 0 00 000000 		SKIPA			;PASS IF AOJL DID NOT JUMP
  2277						STOP^
  2278	032024	254 04 0 00 032025 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2279	032025	324 00 0 00 032026 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2280	032026	302 15 0 00 000001 		CAIE	15,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2281						STOP^
  2282	032027	254 04 0 00 032030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2283	032030	324 00 0 00 032031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2284
  2285					;**********
  2286
  2287					;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND
  2288					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2289					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2290					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0
  2291					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2292					;HENCE, AOJE SHOULD NOT JUMP
  2293
  2294	032031	561 14 0 00 777776 	C52600:	HRROI	14,-2		;PRELOAD AC WITH -1,,-2
  2295	032032	342 14 0 00 032034 		AOJE	14,.+2		;*AOJE SHOULD ADD 0,,1 TO C(AC)
  2296									;AND NOT JUMP
  2297	032033	334 00 0 00 000000 		SKIPA			;PASS IF AOJE DID NOT JUMP
  2298						STOP^
  2299	032034	254 04 0 00 032035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2300	032035	324 00 0 00 032036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2301	032036	312 14 0 00 033474 		CAME	14,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2302						STOP^
  2303	032037	254 04 0 00 032040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2304	032040	324 00 0 00 032041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2305
  2306					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 49
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0076

  2307					;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND
  2308					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2309					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2310					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  2311					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING.
  2312					;HENCE, AOJE SHOULD JUMP
  2313
  2314	032041	474 14 0 00 000000 	C52610:	SETO	14,		;PRELOAD AC WITH -1,,-1
  2315	032042	342 14 0 00 032044 		AOJE	14,.+2		;*AOJ SHOULD ADD 0,,1 TO C(AC)
  2316									;AND JUMP
  2317						STOP^
  2318	032043	254 04 0 00 032044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2319	032044	324 00 0 00 032045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2320	032045	302 14 0 00 000000 		CAIE	14,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2321						STOP^
  2322	032046	254 04 0 00 032047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2323	032047	324 00 0 00 032050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2324
  2325					;**********
  2326
  2327					;THIS TEST VERIFIES THAT AOJE INCREMENTS C(AC) BY 0,,1 AND
  2328					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2329					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2330					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  2331					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2332					;HENCE, AOJE SHOULD NOT JUMP
  2333
  2334	032050	400 14 0 00 000000 	C52620:	SETZ	14,		;PRELOAD AC WITH 0
  2335	032051	342 14 0 00 032053 		AOJE	14,.+2		;*AOJE SHOULD ADD 0,11 TO C(AC)
  2336									;AND NOT JUMP
  2337	032052	334 00 0 00 000000 		SKIPA			;PASS IF AOJE DID NOT JUMP
  2338						STOP^
  2339	032053	254 04 0 00 032054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2340	032054	324 00 0 00 032055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2341	032055	302 14 0 00 000001 		CAIE	14,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2342						STOP^
  2343	032056	254 04 0 00 032057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2344	032057	324 00 0 00 032060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2345
  2346					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 50
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0077

  2347					;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND
  2348					;PLACES THE RESULT BACK INTO TLE$EC.  THE RESULT IN THE AC IS
  2349					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2350					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0.
  2351					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2352					;HENCE, AOJLE SHOULD
  2353
  2354	032060	561 13 0 00 777776 	C52700:	HRROI	13,-2		;PRELOAD AC WITH -1,,-2
  2355	032061	343 13 0 00 032063 		AOJLE	13,.+2		;*AOJLE SHOULD ADD 0,,1 TO C(AC)
  2356									;AND JUMP
  2357						STOP^
  2358	032062	254 04 0 00 032063 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2359	032063	324 00 0 00 032064 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2360	032064	312 13 0 00 033474 		CAME	13,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2361						STOP^
  2362	032065	254 04 0 00 032066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2363	032066	324 00 0 00 032067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2364
  2365					;**********
  2366
  2367					;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND
  2368					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2369					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2370					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0
  2371					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2372					;HENCE, AOJLE SHOULD JUMP.
  2373
  2374	032067	474 13 0 00 000000 	C52710:	SETO	13,		;PRELOAD AC WITH -1,,-1
  2375	032070	343 13 0 00 032072 		AOJLE	13,.+2		;*AOJLE SHOULD ADD 0,,1 TO C(AC)
  2376									;AND JUMP
  2377						STOP^
  2378	032071	254 04 0 00 032072 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2379	032072	324 00 0 00 032073 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2380	032073	302 13 0 00 000000 		CAIE	13,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2381						STOP^
  2382	032074	254 04 0 00 032075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2383	032075	324 00 0 00 032076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2384
  2385					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 51
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0078

  2386					;THIS TEST VERIFIES THAT AOJLE INCREMENTS C(AC) BY 0,,1 AND
  2387					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2388					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2389					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0.
  2390					;IN THIS CASE, C(AC) IS 0
  2391					;HENCE, AOJLE SHOULD NOT JUMP.
  2392
  2393	032076	400 13 0 00 000000 	C52720:	SETZ	13,		;PRELOAD AC WITH 0
  2394	032077	343 13 0 00 032101 		AOJLE	13,.+2		;*AOJLE SHOULD ADD 0,,1 TO C(AC)
  2395									;AND NOT JUMP
  2396	032100	334 00 0 00 000000 		SKIPA			;PASS IF AOJLE DID NOT JUMP
  2397						STOP^
  2398	032101	254 04 0 00 032102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2399	032102	324 00 0 00 032103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2400	032103	302 13 0 00 000001 		CAIE	13,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2401						STOP^
  2402	032104	254 04 0 00 032105 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2403	032105	324 00 0 00 032106 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2404
  2405					;**********
  2406
  2407					;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND
  2408					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2409					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  2410					;SPECIFIED BY E.
  2411					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2412					;HENCE, AOJA SHOULD JUMP
  2413
  2414	032106	561 12 0 00 777776 	C53000:	HRROI	12,-2		;PRELOAD AC WITH -1,,-2
  2415	032107	344 12 0 00 032111 		AOJA	12,.+2		;*AOJA SHOULD ADD 0,,1 TO C(AC)
  2416									;AND JUMP
  2417						STOP^
  2418	032110	254 04 0 00 032111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2419	032111	324 00 0 00 032112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2420	032112	312 12 0 00 033474 		CAME	12,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2421						STOP^
  2422	032113	254 04 0 00 032114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2423	032114	324 00 0 00 032115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2424
  2425					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 52
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0079

  2426					;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND
  2427					;PLACES THE RESULT BACK INTO AC.  THE RESULT IN THE AC IS
  2428					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  2429					;SPECIFIED BY E.
  2430					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2431					;HENCE, AOJA SHOULD JUMP
  2432
  2433	032115	474 12 0 00 000000 	C53010:	SETO	12,		;PRELOAD AC WITH -1,,-1
  2434	032116	344 12 0 00 032120 		AOJA	12,.+2		;*AOJA SHOULD ADD 0,,1 TO C(AC)
  2435									;AND JUMP
  2436						STOP^
  2437	032117	254 04 0 00 032120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2438	032120	324 00 0 00 032121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2439	032121	302 12 0 00 000000 		CAIE	12,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2440						STOP^
  2441	032122	254 04 0 00 032123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2442	032123	324 00 0 00 032124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2443
  2444					;**********
  2445
  2446					;THIS TEST VERIFIES THAT AOJA INCREMENTS C(AC) BY 0,,1 AND
  2447					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2448					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  2449					;SPECIFIED BY E.
  2450					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2451					;HENCE, AOJA SHOULD JUMP
  2452
  2453	032124	400 12 0 00 000000 	C53020:	SETZ	12,		;PRELOAD AC WITH 0
  2454	032125	344 12 0 00 032127 		AOJA	12,.+2		;*AOJA SHOULD ADD 0,,1 TO C(AC)
  2455									;AND JUMP
  2456						STOP^
  2457	032126	254 04 0 00 032127 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2458	032127	324 00 0 00 032130 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2459	032130	302 12 0 00 000001 		CAIE	12,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2460						STOP^
  2461	032131	254 04 0 00 032132 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2462	032132	324 00 0 00 032133 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2463
  2464					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 53
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0080

  2465					;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND
  2466					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2467					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2468					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  2469					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2470					;HENCE, AOJGE SHOULD NOT JUMP
  2471
  2472	032133	561 11 0 00 777776 	C53100:	HRROI	11,-2		;PRELOAD AC WITH -1,,-2
  2473	032134	345 11 0 00 032136 		AOJGE	11,.+2		;*AOJGE SHOULD ADD 0,,1 TO C(AC)
  2474									;AND NOT JUMP
  2475	032135	334 00 0 00 000000 		SKIPA			;PASS IF AOJGE DID NOT JUMP
  2476						STOP^
  2477	032136	254 04 0 00 032137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2478	032137	324 00 0 00 032140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2479	032140	312 11 0 00 033474 		CAME	11,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2480						STOP^
  2481	032141	254 04 0 00 032142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2482	032142	324 00 0 00 032143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2483
  2484					;**********
  2485
  2486					;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND
  2487					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2488					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2489					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0.
  2490					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2491					;HENCE, AOJ SHOULD JUMP
  2492
  2493	032143	474 11 0 00 000000 	C53110:	SETO	11,		;PRELOAD AC WITH -1,,-1
  2494	032144	345 11 0 00 032146 		AOJGE	11,.+2		;*AOJGE SHOULD ADD 0,,1 TO C(AC)
  2495									;AND JUMP
  2496						STOP^
  2497	032145	254 04 0 00 032146 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2498	032146	324 00 0 00 032147 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2499	032147	302 11 0 00 000000 		CAIE	11,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2500						STOP^
  2501	032150	254 04 0 00 032151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2502	032151	324 00 0 00 032152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2503
  2504					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 54
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0081

  2505					;THIS TEST VERIFIES THAT AOJGE INCREMENTS C(AC) BY 0,,1 AND
  2506					;PLACES THE RESULT BACK INTO AC.  THE RESULT IN THE AC IS
  2507					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2508					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  2509					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2510					;HENCE, AOJGE SHOULD JUMP
  2511
  2512	032152	400 11 0 00 000000 	C53120:	SETZ	11,		;PRELOAD AC WITH 0
  2513	032153	345 11 0 00 032155 		AOJGE	11,.+2		;*AOJGE SHOULD ADD 0,,1 TO C(AC)
  2514									;AND JUMP
  2515						STOP^
  2516	032154	254 04 0 00 032155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2517	032155	324 00 0 00 032156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2518	032156	302 11 0 00 000001 		CAIE	11,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2519						STOP^
  2520	032157	254 04 0 00 032160 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2521	032160	324 00 0 00 032161 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2522
  2523					;**********
  2524
  2525					;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND
  2526					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2527					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2528					;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0.
  2529					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INCREMENTING
  2530					;HENCE, AOJN SHOULD JUMP
  2531
  2532	032161	561 10 0 00 777776 	C53200:	HRROI	10,-2		;PRELOAD AC WITH -1,,-2
  2533	032162	346 10 0 00 032164 		AOJN	10,.+2		;*AOJN SHOULD ADD 0,,1 TO C(AC)
  2534									;AND JUMP
  2535						STOP^
  2536	032163	254 04 0 00 032164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2537	032164	324 00 0 00 032165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2538	032165	312 10 0 00 033474 		CAME	10,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2539						STOP^
  2540	032166	254 04 0 00 032167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2541	032167	324 00 0 00 032170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2542
  2543					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 55
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0082

  2544					;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND
  2545					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2546					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2547					;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0.
  2548					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2549					;HENCE, AOJ SHOULD NOT JUMP.
  2550
  2551	032170	474 10 0 00 000000 	C53210:	SETO	10,		;PRELOAD AC WITH -1,,-1
  2552	032171	346 10 0 00 032173 		AOJN	10,.+2		;*AOJN SHOULD ADD 0,,1 TO C(AC)
  2553									;AND NOT JUMP
  2554	032172	334 00 0 00 000000 		SKIPA			;PASS IF AOJN DID NOT JUMP
  2555						STOP^
  2556	032173	254 04 0 00 032174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2557	032174	324 00 0 00 032175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2558	032175	302 10 0 00 000000 		CAIE	10,0		;PASS IF C(AC) INCREMENTED CORRRECTLY
  2559						STOP^
  2560	032176	254 04 0 00 032177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2561	032177	324 00 0 00 032200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2562
  2563					;**********
  2564
  2565					;THIS TEST VERIFIES THAT AOJN INCREMENTS C(AC) BY 0,,1 AND
  2566					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2567					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2568					;SPECIFIED BY E IF C(AC) IS NOT EQUAL TO 0.
  2569					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2570					;HENCE, AOJN SHOULD JUMP.
  2571
  2572	032200	400 10 0 00 000000 	C53220:	SETZ	10,		;PRELOAD AC WITH 0
  2573	032201	346 10 0 00 032203 		AOJN	10,.+2		;*AOJN SHOULD ADD 0,,1 TO C(AC)
  2574									;AND JUMP
  2575						STOP^
  2576	032202	254 04 0 00 032203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2577	032203	324 00 0 00 032204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2578	032204	302 10 0 00 000001 		CAIE	10,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2579						STOP^
  2580	032205	254 04 0 00 032206 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2581	032206	324 00 0 00 032207 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2582
  2583					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 56
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0083

  2584					;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND
  2585					;PLACES THE RESULT BACK INTO THE AC.  THE REAULT IN THE AC IS
  2586					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2587					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0
  2588					;IN THIS CASE, C(AC) IS -1,,-2 BEFORE INC
  2589					;HENCE, AOJG SHOULD NOT JUMP
  2590
  2591	032207	561 07 0 00 777776 	C53300:	HRROI	7,-2		;PRELOAD AC WITH -1,,-2
  2592	032210	347 07 0 00 032212 		AOJG	7,.+2		;*AOJG SHOULD ADD 0,11 TO C(AC)
  2593									;AND NOT JUMP
  2594	032211	334 00 0 00 000000 		SKIPA			;PASS IF AOJG DID NOT JUMP
  2595						STOP^
  2596	032212	254 04 0 00 032213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2597	032213	324 00 0 00 032214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2598	032214	312 07 0 00 033474 		CAME	7,[-1]		;PASS IF C(AC) INCREMENTED CORRECTLY
  2599						STOP^
  2600	032215	254 04 0 00 032216 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2601	032216	324 00 0 00 032217 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2602
  2603					;**********
  2604
  2605					;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND
  2606					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2607					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2608					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  2609					;IN THIS CASE, C(AC) IS -1,,-1 BEFORE INCREMENTING
  2610					;HENCE, AOJG SHOULD NOT JUMP.
  2611
  2612	032217	474 07 0 00 000000 	C53310:	SETO	7,		;PRELOAD AC WITH -1,,-1
  2613	032220	347 07 0 00 032222 		AOJG	7,.+2		;*AOJG SHOULD ADD 0,,1 TO C(AC)
  2614									;AND NOT JUMP
  2615	032221	334 00 0 00 000000 		SKIPA			;PASS IF AOJG DID NOT JUMP
  2616						STOP^
  2617	032222	254 04 0 00 032223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2618	032223	324 00 0 00 032224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2619	032224	302 07 0 00 000000 		CAIE	7,0		;PASS IF C(AC) INCREMENTED CORRECTLY
  2620						STOP^
  2621	032225	254 04 0 00 032226 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2622	032226	324 00 0 00 032227 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2623
  2624					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 57
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOJX INSTRUCTIONS                                                     SEQ 0084

  2625					;THIS TEST VERIFIES THAT AOJG INCREMENTS C(AC) BY 0,,1 AND
  2626					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  2627					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  2628					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  2629					;IN THIS CASE, C(AC) IS 0 BEFORE INCREMENTING
  2630					;HENCE, AOJG SHOULD JUMP
  2631
  2632	032227	400 07 0 00 000000 	C53320:	SETZ	7,		;PRELOAD AC WITH 0
  2633	032230	347 07 0 00 032232 		AOJG	7,.+2		;*AOJG SHOULD ADD 0,,1 TO C(AC)
  2634									;AND JUMP
  2635						STOP^
  2636	032231	254 04 0 00 032232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2637	032232	324 00 0 00 032233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2638	032233	302 07 0 00 000001 		CAIE	7,1		;PASS IF C(AC) INCREMENTED CORRECTLY
  2639						STOP^
  2640	032234	254 04 0 00 032235 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2641	032235	324 00 0 00 032236 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2642
  2643					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 58
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0085

  2644					SUBTTL	TEST OF MSCL AOSX INSTRUCTIONS
  2645
  2646					;**********
  2647
  2648					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  2649					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2650					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0
  2651					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2652					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-2
  2653					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD SKIP ; AND THE
  2654					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  2655					;RESPECTIVELY.
  2656
  2657	032236	200 06 0 00 033506 	C53400:	MOVE	6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  2658	032237	561 07 0 00 777776 		HRROI	7,-2		;PRELOAD E WITH -1,,-2
  2659	032240	351 06 0 00 000007 		AOSL	6,7		;*AOSL SHOULD ADD 0,,1 TO C(E),
  2660									;UPDATE AC AND SKIP
  2661						STOP^
  2662	032241	254 04 0 00 032242 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2663	032242	324 00 0 00 032243 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2664	032243	312 07 0 00 033474 		CAME	7,[-1]		;PASS IF E INCREMENTED CORRECTLY
  2665						STOP^
  2666	032244	254 04 0 00 032245 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2667	032245	324 00 0 00 032246 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2668	032246	312 06 0 00 033474 		CAME	6,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2669						STOP^
  2670	032247	254 04 0 00 032250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2671	032250	324 00 0 00 032251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2672
  2673					;**********
  2674
  2675					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  2676					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2677					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0
  2678					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2679					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-2
  2680					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD SKIP ; AND THE
  2681					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  2682					;RESPECTIVELY.
  2683
  2684	032251	200 06 0 00 033506 	C53401:	MOVE	6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  2685	032252	561 07 0 00 777776 		HRROI	7,-2		;PRELOAD E WITH -1,,-2
  2686	032253	202 07 0 00 032267 		MOVEM	7,E53401
  2687	032254	351 06 0 00 032267 		AOSL	6,E53401	;*AOSL SHOULD ADD 0,,1 TO C(E),
  2688									;UPDATE AC AND SKIP
  2689						STOP^
  2690	032255	254 04 0 00 032256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2691	032256	324 00 0 00 032257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2692	032257	200 07 0 00 032267 		MOVE	7,E53401
  2693	032260	312 07 0 00 033474 		CAME	7,[-1]		;PASS IF E INCREMENTED CORRECTLY
  2694						STOP^
  2695	032261	254 04 0 00 032262 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2696	032262	324 00 0 00 032263 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2697	032263	312 06 0 00 033474 		CAME	6,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2698						STOP^
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 58-1
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0086

  2699	032264	254 04 0 00 032265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2700	032265	324 00 0 00 032266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2701
  2702	032266	334 00 0 00 000000 		SKIPA			;GO TO NEXT TEST
  2703	032267	000000	000000		E53401:	0			;TEST WORD MEMORY
  2704
  2705					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 59
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0087

  2706					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  2707					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2708					;THE NEXT INSTRUCTION IF C(E) ISLESS THAN 0
  2709					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2710					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=-1,,-1
  2711					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD NOT SKIP; AND THE
  2712					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  2713					;RESPECTIVELY.
  2714
  2715	032270	200 06 0 00 033506 	C53410:	MOVE	6,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2716	032271	474 07 0 00 000000 		SETO	7,		;PRELOAD E WITH -1,,-1
  2717	032272	351 06 0 00 000007 		AOSL	6,7		;*AOSL SHOULD ADD 00,1 TO C(E)
  2718									;UPDATE AC AND NOT SKIP
  2719	032273	334 00 0 00 000000 		SKIPA			;PASS IF AOSL DID NOT SKIP
  2720						STOP^
  2721	032274	254 04 0 00 032275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2722	032275	324 00 0 00 032276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2723	032276	312 07 0 00 033513 		CAME	7,[0]		;PASS IF E INCREMENTED CORRECTLY
  2724						STOP^
  2725	032277	254 04 0 00 032300 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2726	032300	324 00 0 00 032301 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2727	032301	312 06 0 00 033513 		CAME	6,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2728						STOP^
  2729	032302	254 04 0 00 032303 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2730	032303	324 00 0 00 032304 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2731
  2732					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 60
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0088

  2733					;THIS TEST VERIFIES THAT AOSL INCREMENTS C(E) BY 0,,1 AND PLACES
  2734					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2735					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  2736					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2737					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0
  2738					;BEFORE INCREMENTING.  HENCE, AOSL SHOULD NOT SKIP; AND THE
  2739					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  2740					;RESPECTIVELY
  2741
  2742	032304	200 06 0 00 033506 	C53420:	MOVE	6,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2743	032305	400 07 0 00 000000 		SETZ	7,		;PRELOAD E WITH 0
  2744	032306	351 06 0 00 000007 		AOSL	6,7		;*AOSL SHOULD ADD 0,,1 TO C(E).
  2745									;UPDATE AC AND NOT SKIP
  2746	032307	334 00 0 00 000000 		SKIPA			;PASS IF AOSL DID NOT SKIP
  2747						STOP^
  2748	032310	254 04 0 00 032311 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2749	032311	324 00 0 00 032312 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2750	032312	312 07 0 00 033514 		CAME	7,[1]		;PASS IF E INCREMENTED CORRECTLY
  2751						STOP^
  2752	032313	254 04 0 00 032314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2753	032314	324 00 0 00 032315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2754	032315	312 06 0 00 033514 		CAME	6,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2755						STOP^
  2756	032316	254 04 0 00 032317 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2757	032317	324 00 0 00 032320 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2758
  2759					;**********
  2760
  2761					;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES
  2762					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2763					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0.
  2764					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2765					;IN THIS CASE, AC=5, C(AC)=707070,,707070AND C(E)=-1,,-2
  2766					;BEFORE INCREMENTING.  HENCE, AOSE SHOULD NOT SKIP; AND THE
  2767					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  2768					;RESPECTIVELY.
  2769
  2770	032320	200 05 0 00 033506 	C53500:	MOVE	5,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2771	032321	561 06 0 00 777776 		HRROI	6,-2		;PRELOAD E WITH -1,,-2
  2772	032322	352 05 0 00 000006 		AOSE	5,6		;*AOSE SHOULD ADD 0,,1 TO C(E),
  2773									;UPDATE AC AND NOT SKIP
  2774	032323	334 00 0 00 000000 		SKIPA			;PASS IF AOSE DID NOT SKIP
  2775						STOP^
  2776	032324	254 04 0 00 032325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2777	032325	324 00 0 00 032326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2778	032326	312 06 0 00 033474 		CAME	6,[-1]		;PASS IF E INCREMENTED CORRECTLY
  2779						STOP^
  2780	032327	254 04 0 00 032330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2781	032330	324 00 0 00 032331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2782	032331	312 05 0 00 033474 		CAME	5,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2783						STOP^
  2784	032332	254 04 0 00 032333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2785	032333	324 00 0 00 032334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2786
  2787					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 61
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0089

  2788					;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES
  2789					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2790					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  2791					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2792					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=-1,,-1
  2793					;BEFORE INCREMENTING.  HENCE, AOSE SHOULD SKIP; AND THE
  2794					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  2795					;RESPECTIVELY.
  2796
  2797	032334	200 05 0 00 033506 	C53510:	MOVE	5,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2798	032335	474 06 0 00 000000 		SETO	6,		;PRELOAD E WITH -1,,-1
  2799	032336	352 05 0 00 000006 		AOSE	5,6		;*AOSE SHOULD ADD 0,,1 TO C(E),
  2800									;UPDATE AC AND SKIP
  2801						STOP^
  2802	032337	254 04 0 00 032340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2803	032340	324 00 0 00 032341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2804	032341	312 06 0 00 033513 		CAME	6,[0]		;PASS IF E INCREMENTED CORRECTLY
  2805						STOP^
  2806	032342	254 04 0 00 032343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2807	032343	324 00 0 00 032344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2808	032344	312 05 0 00 033513 		CAME	5,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2809						STOP^
  2810	032345	254 04 0 00 032346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2811	032346	324 00 0 00 032347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2812
  2813					;**********
  2814
  2815					;THIS TEST VERIFIES THAT AOSE INCREMENTS C(E) BY 0,,1 AND PLACES
  2816					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2817					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  2818					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2819					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(AC)=0
  2820					;BEFORE INCREMENTING.  HENCE, AOSE SHOULD NOT SKIP; AND THE
  2821					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  2822					;RESPECTIVELY.
  2823
  2824	032347	200 05 0 00 033506 	C53520:	MOVE	5,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2825	032350	400 06 0 00 000000 		SETZ	6,		;PRELOAD E WITH 0
  2826	032351	352 05 0 00 000006 		AOSE	5,6		;*AOSE SHOULD ADD 0,,1 TO C(E),
  2827									;UPDATE AC AND NOT SKIP
  2828	032352	334 00 0 00 000000 		SKIPA			;PASS IF AOSE DID NOT SKIP
  2829						STOP^
  2830	032353	254 04 0 00 032354 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2831	032354	324 00 0 00 032355 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2832	032355	312 06 0 00 033514 		CAME	6,[1]		;PASS IF E INCREMENTED CORRECTLY
  2833						STOP^
  2834	032356	254 04 0 00 032357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2835	032357	324 00 0 00 032360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2836	032360	312 05 0 00 033514 		CAME	5,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2837						STOP^
  2838	032361	254 04 0 00 032362 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2839	032362	324 00 0 00 032363 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2840
  2841					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 62
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0090

  2842					;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES
  2843					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2844					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO0
  2845					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2846					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=-1,,-2
  2847					;BEFORE INCREMENTING.  HENCE, AOSLE SHOULD SKIP; AND THE
  2848					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  2849					;RESPECTIVELY.
  2850
  2851	032363	200 04 0 00 033506 	C53600:	MOVE	4,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2852	032364	561 05 0 00 777776 		HRROI	5,-2		;PRELOAD E WITH -1,,-2
  2853	032365	353 04 0 00 000005 		AOSLE	4,5		;*AOSLE SHOULD ADD 0,,1 TO C(E),
  2854									;UPDATE AC AND SKIP ZERO
  2855						STOP^
  2856	032366	254 04 0 00 032367 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2857	032367	324 00 0 00 032370 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2858	032370	312 05 0 00 033474 		CAME	5,[-1]		;PASS IF E INCREMENTED CORRECTLY
  2859						STOP^
  2860	032371	254 04 0 00 032372 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2861	032372	324 00 0 00 032373 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2862	032373	312 04 0 00 033474 		CAME	4,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2863						STOP^
  2864	032374	254 04 0 00 032375 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2865	032375	324 00 0 00 032376 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2866
  2867					;**********
  2868
  2869					;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES
  2870					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2871					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  2872					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2873					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=-1,,-1
  2874					;BEFORE INCREMENTING.  HENCE, AOSLE SHOULD SKIP; AND THE
  2875					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  2876					;RESPECTIVELY.
  2877
  2878	032376	200 04 0 00 033506 	C53610:	MOVE	4,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2879	032377	476 05 0 00 000000 		SETOM	5,		;PRELOAD E WITH -1,,-1
  2880	032400	353 04 0 00 000005 		AOSLE	4,5		;*AOSLE SHOULD ADD 0,,1 TO C(E)
  2881									;UPDATE AC AND SKIP
  2882						STOP^
  2883	032401	254 04 0 00 032402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2884	032402	324 00 0 00 032403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2885	032403	312 05 0 00 033513 		CAME	5,[0]		;PASS IF E INCREMENTED CORRECTLY
  2886						STOP^
  2887	032404	254 04 0 00 032405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2888	032405	324 00 0 00 032406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2889	032406	312 04 0 00 033513 		CAME	4,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2890						STOP^
  2891	032407	254 04 0 00 032410 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2892	032410	324 00 0 00 032411 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2893
  2894					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 63
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0091

  2895					;THIS TEST VERIFIES THAT AOSLE INCREMENTS C(E) BY 0,,1 AND PLACES
  2896					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  2897					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0
  2898					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2899					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0
  2900					;BEFORE INCREMENTING.  HENCE, AOSLE SHOULD NOT SKIP ; AND THE
  2901					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  2902					;RESPECTIVELY.
  2903
  2904	032411	200 04 0 00 033506 	C53620:	MOVE	4,[707070,,707070]	;PRELOAD AC WITH 707070,,707070
  2905	032412	400 00 0 00 000005 		SETZ	5		;PRELOAD E WITH 0
  2906	032413	353 04 0 00 000005 		AOSLE	4,5		;*AOSLE SHOULD ADD 0,,1 TO C(E)
  2907									;UPDATE AC AND NOT SKIP
  2908	032414	334 00 0 00 000000 		SKIPA			;PASS IF AOSLE DID NOT SKIP
  2909						STOP^
  2910	032415	254 04 0 00 032416 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2911	032416	324 00 0 00 032417 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2912	032417	312 05 0 00 033514 		CAME	5,[1]		;PASS IF E INCREMENTED CORRECTLY
  2913						STOP^
  2914	032420	254 04 0 00 032421 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2915	032421	324 00 0 00 032422 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2916	032422	312 04 0 00 033514 		CAME	4,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2917						STOP^
  2918	032423	254 04 0 00 032424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2919	032424	324 00 0 00 032425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2920
  2921					;**********
  2922
  2923					;THIS TEST VERIFIES THAT AOSA INCREMENTS C(E) BY 0,,1 AND PLACES
  2924					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  2925					;THE NEXT INSTRUCTION.
  2926					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2927					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=-1,,-2
  2928					;BEFORE INCREMENTING.  HENCE, AOSA SHOULD SKIP ; AND THE
  2929					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  2930					;RESPECTIVELY.
  2931
  2932	032425	200 03 0 00 033506 	C53700:	MOVE	3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  2933	032426	561 04 0 00 777776 		HRROI	4,-2		;PRELOAD E WITH -1,,-2
  2934	032427	354 03 0 00 000004 		AOSA	3,4		;*AOSA SHOULD ADD 0,,1 TO C(E),
  2935									;UPDATE AC AND SKIP
  2936						STOP^
  2937	032430	254 04 0 00 032431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2938	032431	324 00 0 00 032432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2939	032432	312 04 0 00 033474 		CAME	4,[-1]		;PASS IF E INCREMENTED CORRECTLY
  2940						STOP^
  2941	032433	254 04 0 00 032434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2942	032434	324 00 0 00 032435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2943	032435	312 03 0 00 033474 		CAME	3,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2944						STOP^
  2945	032436	254 04 0 00 032437 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2946	032437	324 00 0 00 032440 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2947
  2948					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 64
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0092

  2949					;THIS TEST VERIFIES THAT AOSA INCREMENTS C(E) BY 0,,1 AND PLACES
  2950					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  2951					;THE NEXT INSTRUCTION.
  2952					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2953					;;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=-1,,-1
  2954					;BEFORE INCREMENTING.  HENCE, AOSA SHOULD SKIP AND THE
  2955					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  2956					;RESPECTIVELY
  2957
  2958	032440	200 03 0 00 033506 	C53710:	MOVE	3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  2959	032441	474 04 0 00 000000 		SETO	4,		;PRELOAD E WITH -1,,-1
  2960	032442	354 03 0 00 000004 		AOSA	3,4		;*AOSA SHOULD ADD 0,,1 TO C(E),
  2961									;UPDATE AC AND SKIP
  2962						STOP^
  2963	032443	254 04 0 00 032444 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2964	032444	324 00 0 00 032445 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2965	032445	312 04 0 00 033513 		CAME	4,[0]		;PASS IF E INCREMENTED CORRECTLY
  2966						STOP^
  2967	032446	254 04 0 00 032447 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2968	032447	324 00 0 00 032450 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2969	032450	312 03 0 00 033513 		CAME	3,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2970						STOP^
  2971	032451	254 04 0 00 032452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2972	032452	324 00 0 00 032453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2973
  2974					;**********
  2975
  2976					;THIS TEST VERIFIES THAT AOS INCREMENTS C(E) BY 0,,1 AND PLACES
  2977					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  2978					;THE NEXT INSTRUCTION.
  2979					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  2980					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0
  2981					;BEFORE INCREMENTING.  HENCE, AOSA SHOULD SKIP ; AND THE
  2982					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  2983					;RESPECTIVELY
  2984
  2985	032453	200 03 0 00 033506 	C53720:	MOVE	3,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  2986	032454	400 04 0 00 000000 		SETZ	4,		;PRELOAD E WITH 0
  2987	032455	354 03 0 00 000004 		AOSA	3,4		;*AOSA SHOULD ADD 0,,1 TO C(E),
  2988									;UPDATE AC AND SKIP
  2989						STOP^
  2990	032456	254 04 0 00 032457 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2991	032457	324 00 0 00 032460 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2992	032460	312 04 0 00 033514 		CAME	4,[1]		;PASS IF E INCREMENTED CORRECTLY
  2993						STOP^
  2994	032461	254 04 0 00 032462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2995	032462	324 00 0 00 032463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2996	032463	312 03 0 00 033514 		CAME	3,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  2997						STOP^
  2998	032464	254 04 0 00 032465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2999	032465	324 00 0 00 032466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3000
  3001					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 65
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0093

  3002					;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES
  3003					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3004					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  3005					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3006					;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3007					;BEFORE INCREMENTING.  HENCE, AOSGE SHOULD NOT SKIP; AND THE
  3008					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3009					;RESPECTIVELY
  3010
  3011	032466	200 02 0 00 033506 	C54000:	MOVE	2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3012	032467	561 03 0 00 777776 		HRROI	3,-2		;PRELOAD E WITH -1,,-2
  3013	032470	355 02 0 00 000003 		AOSGE	2,3		;*AOSGE SHOULD ADD 0,,1 TO C(E),
  3014									;UPDATE AC AND NOT SKIP
  3015	032471	334 00 0 00 000000 		SKIPA			;PASS IF AOSGE DID NOT SKIP
  3016						STOP^
  3017	032472	254 04 0 00 032473 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3018	032473	324 00 0 00 032474 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3019	032474	312 03 0 00 033474 		CAME	3,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3020						STOP^
  3021	032475	254 04 0 00 032476 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3022	032476	324 00 0 00 032477 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3023	032477	312 02 0 00 033474 		CAME	2,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3024						STOP^
  3025	032500	254 04 0 00 032501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3026	032501	324 00 0 00 032502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3027
  3028					;**********
  3029
  3030					;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES
  3031					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3032					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  3033					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3034					;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3035					;BEFORE INCREMENTING.  HENCE, AOSGE SHOULD SKIP; AND THE
  3036					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3037					;RESPECTIVELY
  3038
  3039	032502	200 02 0 00 033506 	C54010:	MOVE	2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3040	032503	474 03 0 00 000000 		SETO	3,		;PRELOAD E WITH 0
  3041	032504	355 02 0 00 000003 		AOSGE	2,3		;*AOSGE SHOULD ADD 0,,1 TO C(E),
  3042									;UPDATE AC AND SKIP
  3043						STOP^
  3044	032505	254 04 0 00 032506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3045	032506	324 00 0 00 032507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3046	032507	312 03 0 00 033513 		CAME	3,[0]		;PASS IF E INCREMENTED CORRECTLY
  3047						STOP^
  3048	032510	254 04 0 00 032511 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3049	032511	324 00 0 00 032512 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3050	032512	312 02 0 00 033513 		CAME	2,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3051						STOP^
  3052	032513	254 04 0 00 032514 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3053	032514	324 00 0 00 032515 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3054
  3055					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 66
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0094

  3056					;THIS TEST VERIFIES THAT AOSGE INCREMENTS C(E) BY 0,,1 AND PLACES
  3057					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3058					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  3059					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3060					;IN THIS CASE, AC=2, C(AC)=707070,,707070 AND C(E)=0
  3061					;BEFORE INCREMENTING.  HENCE, AOSGE SHOULD SKIP; AND THE
  3062					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3063					;RESPECTIVELY
  3064
  3065	032515	200 02 0 00 033506 	C54020:	MOVE	2,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3066	032516	400 03 0 00 000000 		SETZ	3,		;PRELOAD E WITH 0
  3067	032517	355 02 0 00 000003 		AOSGE	2,3		;*AOSGE SHOULD ADD 0,,1 TO C(E),
  3068									;UPDATE AC AND SKIP
  3069						STOP^
  3070	032520	254 04 0 00 032521 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3071	032521	324 00 0 00 032522 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3072	032522	312 03 0 00 033514 		CAME	3,[1]		;PASS IF E INCREMENTED CORRECTLY
  3073						STOP^
  3074	032523	254 04 0 00 032524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3075	032524	324 00 0 00 032525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3076	032525	312 02 0 00 033514 		CAME	2,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3077						STOP^
  3078	032526	254 04 0 00 032527 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3079	032527	324 00 0 00 032530 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3080
  3081					;**********
  3082
  3083					;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES
  3084					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3085					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO.
  3086					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3087					;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3088					;BEFORE INCREMENTING.  HENCE, AOSN SHOULD NOT SKIP; AND THE
  3089					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3090					;RESPECTIVELY
  3091
  3092	032530	200 01 0 00 033506 	C54100:	MOVE	1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3093	032531	561 02 0 00 777776 		HRROI	2,-2		;PRELOAD E WITH -1,,-2
  3094	032532	356 01 0 00 000002 		AOSN	1,2		;*AOSN SHOULD ADD 0,,1 TO C(E),
  3095									;UPDATE AC AND SKIP
  3096						STOP^
  3097	032533	254 04 0 00 032534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3098	032534	324 00 0 00 032535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3099	032535	312 02 0 00 033474 		CAME	2,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3100						STOP^
  3101	032536	254 04 0 00 032537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3102	032537	324 00 0 00 032540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3103	032540	312 01 0 00 033474 		CAME	1,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3104						STOP^
  3105	032541	254 04 0 00 032542 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3106	032542	324 00 0 00 032543 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3107
  3108					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 67
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0095

  3109					;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES
  3110					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3111					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  3112					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3113					;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3114					;BEFORE INCREMENTING.  HENCE, AOSN SHOULD NOT SKIP; AND THE
  3115					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3116					;RESPECTIVELY
  3117
  3118	032543	200 01 0 00 033506 	C54110:	MOVE	1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3119	032544	474 02 0 00 000000 		SETO	2,		;PRELOAD E WITH -1,,-1
  3120	032545	356 01 0 00 000002 		AOSN	1,2		;*AOSN SHOULD ADD 0,,1 TO C(E),
  3121									;UPDATE AC AND NOT SKIP
  3122	032546	334 00 0 00 000000 		SKIPA			;PASS IF AOSN DID NOT SKIP
  3123						STOP^
  3124	032547	254 04 0 00 032550 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3125	032550	324 00 0 00 032551 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3126	032551	312 02 0 00 033513 		CAME	2,[0]		;PASS IF E INCREMENTED CORRECTLY
  3127						STOP^
  3128	032552	254 04 0 00 032553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3129	032553	324 00 0 00 032554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3130	032554	312 01 0 00 033513 		CAME	1,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3131						STOP^
  3132	032555	254 04 0 00 032556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3133	032556	324 00 0 00 032557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3134
  3135					;**********
  3136
  3137					;THIS TEST VERIFIES THAT AOSN INCREMENTS C(E) BY 0,,1 AND PLACES
  3138					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3139					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  3140					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3141					;IN THIS CASE, AC=1, C(AC)=707070,,707070 AND C(E)=0
  3142					;BEFORE INCREMENTING.  HENCE, AOSN SHOULD SKIP; AND THE
  3143					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3144					;RESPECTIVELY
  3145
  3146	032557	200 01 0 00 033506 	C54120:	MOVE	1,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3147	032560	400 02 0 00 000000 		SETZ	2,		;PRELOAD E WITH 0
  3148	032561	356 01 0 00 000002 		AOSN	1,2		;*AOSN SHOULD ADD 0,,1 TO C(E),
  3149									;UPDATE AC AND SKIP
  3150						STOP^
  3151	032562	254 04 0 00 032563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3152	032563	324 00 0 00 032564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3153	032564	312 02 0 00 033514 		CAME	2,[1]		;PASS IF E INCREMENTED CORRECTLY
  3154						STOP^
  3155	032565	254 04 0 00 032566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3156	032566	324 00 0 00 032567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3157	032567	312 01 0 00 033514 		CAME	1,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3158						STOP^
  3159	032570	254 04 0 00 032571 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3160	032571	324 00 0 00 032572 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3161
  3162					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 68
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0096

  3163					;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES
  3164					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3165					;THE NEST INSTRUCTION IF C(E) IS GREATER THAN 0
  3166					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3167					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=-1,,-2
  3168					;BEFORE INCREMENTING.  HENCE, AOSG SHOULD NOT SKIP; AND THE
  3169					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND -1,,-1
  3170					;RESPECTIVELY
  3171
  3172	032572	200 00 0 00 033506 	C54200:	MOVE	0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3173	032573	561 01 0 00 777776 		HRROI	1,-2		;PRELOAD E WITH -1,,-2
  3174	032574	357 00 0 00 000001 		AOSG	0,1		;*AOSG SHOULD ADD 0,,1 TO C(E),
  3175									;AND NOT SKIP
  3176	032575	334 00 0 00 000000 		SKIPA			;PASS IF AOSG DID NOT SKIP
  3177						STOP^
  3178	032576	254 04 0 00 032577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3179	032577	324 00 0 00 032600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3180	032600	312 01 0 00 033474 		CAME	1,[-1]		;PASS IF E INCREMENTED CORRECTLY
  3181						STOP^
  3182	032601	254 04 0 00 032602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3183	032602	324 00 0 00 032603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3184	032603	312 00 0 00 033506 		CAME	0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED
  3185						STOP^
  3186	032604	254 04 0 00 032605 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3187	032605	324 00 0 00 032606 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3188
  3189					;**********
  3190
  3191					;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES
  3192					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3193					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  3194					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3195					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=-1,,-1
  3196					;BEFORE INCREMENTING.  HENCE, AOSG SHOULD NOT SKIP; AND THE
  3197					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  3198					;RESPECTIVELY
  3199
  3200	032606	200 00 0 00 033506 	C54210:	MOVE	0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3201	032607	474 01 0 00 000000 		SETO	1,		;PRELOAD E WITH -1,,-1
  3202	032610	357 00 0 00 000001 		AOSG	0,1		;*AOSG SHOULD ADD 0,,1 TO C(E),
  3203									;AND NOT SKIP
  3204	032611	334 00 0 00 000000 		SKIPA			;PASS IF AOSG DID NOT SKIP
  3205						STOP^
  3206	032612	254 04 0 00 032613 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3207	032613	324 00 0 00 032614 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3208	032614	312 01 0 00 033513 		CAME	1,[0]		;PASS IF E INCREMENTED CORRECTLY
  3209						STOP^
  3210	032615	254 04 0 00 032616 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3211	032616	324 00 0 00 032617 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3212	032617	312 00 0 00 033506 		CAME	0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED
  3213						STOP^
  3214	032620	254 04 0 00 032621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3215	032621	324 00 0 00 032622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3216
  3217					;***********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 69
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL AOSX INSTRUCTIONS                                                     SEQ 0097

  3218					;THIS TEST VERIFIES THAT AOSG INCREMENTS C(E) BY 0,,1 AND PLACES
  3219					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3220					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  3221					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3222					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0
  3223					;BEFORE INCREMENTING.  HENCE, AOSG SHOULD SKIP; AND THE
  3224					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0,,1
  3225					;RESPECTIVELY
  3226
  3227	032622	200 00 0 00 033506 	C54220:	MOVE	0,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3228	032623	400 01 0 00 000000 		SETZ	1,		;PRELOAD E WITH 0
  3229	032624	357 00 0 00 000001 		AOSG	0,1		;*AOSG SHOULD ADD 0,,1 TO C(E),
  3230									;AND SKIP
  3231						STOP^
  3232	032625	254 04 0 00 032626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3233	032626	324 00 0 00 032627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3234	032627	312 01 0 00 033514 		CAME	1,[1]		;PASS IF E INCREMENTED CORRECTLY
  3235						STOP^
  3236	032630	254 04 0 00 032631 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3237	032631	324 00 0 00 032632 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3238	032632	312 00 0 00 033506 		CAME	0,[707070,,707070] ;PASS IF C(AC) WAS NOT MODIFIED
  3239						STOP^
  3240	032633	254 04 0 00 032634 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3241	032634	324 00 0 00 032635 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3242
  3243					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 70
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0098

  3244					SUBTTL	TEST OF MSCL SOJX INSTRUCTIONS
  3245
  3246					;**********
  3247
  3248					;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND
  3249					;PLACES THE RESTULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3250					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3251					;SPECIFIED BY E IF C(AC) IS LESS THAN 0.
  3252					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJL
  3253					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  3254
  3255	032635	201 17 0 00 000000 	C54300:	MOVEI	17,0		;PRELOAD AC WITH 0
  3256	032636	361 17 0 00 032640 		SOJL	17,.+2		;*SOJL SHOULD SUBTRACT 0,,1 FROM C(AC)
  3257									;AND JUMP
  3258						STOP^
  3259	032637	254 04 0 00 032640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3260	032640	324 00 0 00 032641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3261	032641	312 17 0 00 033474 		CAME	17,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3262						STOP^
  3263	032642	254 04 0 00 032643 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3264	032643	324 00 0 00 032644 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3265
  3266					;***********
  3267
  3268					;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND
  3269					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3270					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3271					;SPECIFIED BY E IF C(AC) IS LESS THAN 0.
  3272					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJL
  3273					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0.
  3274
  3275	032644	201 17 0 00 000001 	C54310:	MOVEI	17,1		;PRELOAD AC WITH 0,,1
  3276	032645	361 17 0 00 032647 		SOJL	17,.+2			;*SOJL SHOULD SUBTRACT 0,,1 FROM C(AC)
  3277	032646	334 00 0 00 000000 		SKIPA			;PASS IF SOJL DID NOT JUMP
  3278						STOP^
  3279	032647	254 04 0 00 032650 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3280	032650	324 00 0 00 032651 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3281	032651	312 17 0 00 033513 		CAME	17,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3282						STOP^
  3283	032652	254 04 0 00 032653 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3284	032653	324 00 0 00 032654 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3285
  3286					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 71
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0099

  3287					;THIS TEST VERIFIES THAT SOJL DECREMENTS C(AC) BY 0,,1 AND
  3288					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3289					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3290					;SPECIFIED BY E IF C(AC) IS LESS THAN 0
  3291					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJ
  3292					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  3293
  3294	032654	201 17 0 00 000002 	C54320:	MOVEI	17,2		;PRELOAD AC WITH 0,,2
  3295	032655	361 17 0 00 032657 		SOJL	17,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  3296									;AND NOT JUMP.
  3297	032656	334 00 0 00 000000 		SKIPA			;PASS IF SOJL DID NOT JUMP
  3298						STOP^
  3299	032657	254 04 0 00 032660 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3300	032660	324 00 0 00 032661 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3301	032661	312 17 0 00 033514 		CAME	17,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3302						STOP^
  3303	032662	254 04 0 00 032663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3304	032663	324 00 0 00 032664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3305
  3306					;**********
  3307
  3308					;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND
  3309					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3310					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3311					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  3312					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJE
  3313					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  3314
  3315	032664	201 16 0 00 000000 	C54400:	MOVEI	16,0		;PRELOAD AC WITH 0
  3316	032665	362 16 0 00 032667 		SOJE	16,.+2		;*SOJE SHOULD SUBTRACT 0,,1 FROM C(AC)
  3317									;AND NOT JUMP.
  3318	032666	334 00 0 00 000000 		SKIPA			;PASS IF SOJE DID NOT JUMP
  3319						STOP^
  3320	032667	254 04 0 00 032670 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3321	032670	324 00 0 00 032671 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3322	032671	312 16 0 00 033474 		CAME	16,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3323						STOP^
  3324	032672	254 04 0 00 032673 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3325	032673	324 00 0 00 032674 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3326
  3327					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 72
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0100

  3328					;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND
  3329					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3330					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3331					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0
  3332					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJ
  3333					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  3334
  3335	032674	201 16 0 00 000001 	C54410:	MOVEI	16,1		;PRELOAD AC WITH 0,,1
  3336	032675	362 16 0 00 032677 		SOJE	16,.+2		;*SOJE SHOULD SUBTRACT 0,,1 FROM C(AC)
  3337									;AND JUMP
  3338						STOP^
  3339	032676	254 04 0 00 032677 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3340	032677	324 00 0 00 032700 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3341	032700	312 16 0 00 033513 		CAME	16,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3342						STOP^
  3343	032701	254 04 0 00 032702 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3344	032702	324 00 0 00 032703 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3345
  3346					;**********
  3347
  3348					;THIS TEST VERIFIES THAT SOJE DECREMENTS C(AC) BY 0,,1 AND
  3349					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3350					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3351					;SPECIFIED BY E IF C(AC) IS EQUAL TO 0.
  3352					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJE
  3353					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  3354
  3355	032703	201 16 0 00 000002 	C54420:	MOVEI	16,2		;PRELOAD AC WITH 0,,2
  3356	032704	362 16 0 00 032706 		SOJE	16,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  3357									;AND NOT JUMP.
  3358	032705	334 00 0 00 000000 		SKIPA			;PASS IF SOJE DID NOT JUMP
  3359						STOP^
  3360	032706	254 04 0 00 032707 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3361	032707	324 00 0 00 032710 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3362	032710	312 16 0 00 033514 		CAME	16,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3363						STOP^
  3364	032711	254 04 0 00 032712 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3365	032712	324 00 0 00 032713 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3366
  3367					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 73
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0101

  3368					;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND
  3369					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3370					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3371					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0
  3372					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJLE
  3373					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  3374
  3375	032713	201 15 0 00 000000 	C54500:	MOVEI	15,0		;PRELOAD AC WITH 0
  3376	032714	363 15 0 00 032716 		SOJLE	15,.+2		;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC)
  3377									;AND JUMP
  3378						STOP^
  3379	032715	254 04 0 00 032716 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3380	032716	324 00 0 00 032717 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3381	032717	312 15 0 00 033474 		CAME	15,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3382						STOP^
  3383	032720	254 04 0 00 032721 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3384	032721	324 00 0 00 032722 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3385
  3386					;**********
  3387
  3388					;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND
  3389					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3390					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3391					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUALTO 0.
  3392					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJLE
  3393					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  3394
  3395	032722	201 15 0 00 000001 	C54510:	MOVEI	15,1		;PRELOAD AC WITH 0,,1
  3396	032723	363 15 0 00 032725 		SOJLE	15,.+2		;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC)
  3397									;AND JUMP
  3398						STOP^
  3399	032724	254 04 0 00 032725 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3400	032725	324 00 0 00 032726 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3401	032726	312 15 0 00 033513 		CAME	15,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3402						STOP^
  3403	032727	254 04 0 00 032730 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3404	032730	324 00 0 00 032731 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3405
  3406					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 74
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0102

  3407					;THIS TEST VERIFIES THAT SOJLE DECREMENTS C(AC) BY 0,,1 AND
  3408					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3409					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3410					;SPECIFIED BY E IF C(AC) IS LESS THAN OR EQUAL TO 0.
  3411					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJLE
  3412					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  3413
  3414	032731	201 15 0 00 000002 	C54520:	MOVEI	15,2		;PRELOAD AC WITH 0,,2
  3415	032732	363 15 0 00 032734 		SOJLE	15,.+2		;*SOJLE SHOULD SUBTRACT 0,,1 FROM C(AC)
  3416									;AND NOT JUMP
  3417	032733	334 00 0 00 000000 		SKIPA			;PASS IF SOJLE DID NOT JUMP
  3418						STOP^
  3419	032734	254 04 0 00 032735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3420	032735	324 00 0 00 032736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3421	032736	312 15 0 00 033514 		CAME	15,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3422						STOP^
  3423	032737	254 04 0 00 032740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3424	032740	324 00 0 00 032741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3425
  3426					;**********
  3427
  3428					;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND
  3429					;PLACES THE RESULT INTO THE AC.  THE RESULT IN THE AC IS
  3430					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  3431					;SPECIFIED BY E
  3432					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJA
  3433					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  3434
  3435	032741	201 14 0 00 000000 	C54600:	MOVEI	14,0		;PRELOAD AC WITH 0
  3436	032742	364 14 0 00 032744 		SOJA	14,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  3437									;AND JUMP
  3438						STOP^
  3439	032743	254 04 0 00 032744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3440	032744	324 00 0 00 032745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3441	032745	312 14 0 00 033474 		CAME	14,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3442						STOP^
  3443	032746	254 04 0 00 032747 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3444	032747	324 00 0 00 032750 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3445
  3446					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 75
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0103

  3447					;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND
  3448					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3449					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  3450					;SPECIFIED BY E
  3451					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJA
  3452					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  3453
  3454	032750	201 14 0 00 000001 	C54610:	MOVEI	14,1		;PRELOAD AC WITH 0,,1
  3455	032751	364 14 0 00 032753 		SOJA	14,.+2		;*SOJA SHOULD SUBTRACT 0,,1 FROM C(AC)
  3456									;AND JUMP
  3457						STOP^
  3458	032752	254 04 0 00 032753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3459	032753	324 00 0 00 032754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3460	032754	312 14 0 00 033513 		CAME	14,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3461						STOP^
  3462	032755	254 04 0 00 032756 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3463	032756	324 00 0 00 032757 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3464
  3465					;**********
  3466
  3467					;THIS TEST VERIFIES THAT SOJA DECREMENTS C(AC) BY 0,,1 AND
  3468					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3469					;COMPARED TO 0 AND THE PROGRAM ALWAYS JUMPS TO THE LOCATION
  3470					;SPECIFIED BY E
  3471					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJA
  3472					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1
  3473
  3474	032757	201 14 0 00 000002 	C54620:	MOVEI	14,2		;PRELOAD AC WITH 0,,2
  3475	032760	364 14 0 00 032762 		SOJA	14,.+2		;*SOJA SHOULD SUBTRACT 0,,1 FROM C(AC)
  3476									;AND JUMP
  3477						STOP^
  3478	032761	254 04 0 00 032762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3479	032762	324 00 0 00 032763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3480	032763	312 14 0 00 033514 		CAME	14,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3481						STOP^
  3482	032764	254 04 0 00 032765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3483	032765	324 00 0 00 032766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3484
  3485					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 76
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0104

  3486					;THIS TEST VERIFIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND
  3487					;PLACES THE RESULT BACK INTO THE AC.  THE  RESULT IN THE AC IS
  3488					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3489					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  3490					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE, SOJGE
  3491					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1
  3492
  3493	032766	201 13 0 00 000000 	C54700:	MOVEI	13,0		;PRELOAD A C WITH 0
  3494	032767	365 13 0 00 032771 		SOJGE	13,.+2		;*SOJGE SHOULD SUBTRACT 0,,1 FROM C(AC)
  3495									;AND NOT JUMP
  3496	032770	334 00 0 00 000000 		SKIPA			;PASS IF SOJGE DID NOT JUMP
  3497						STOP^
  3498	032771	254 04 0 00 032772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3499	032772	324 00 0 00 032773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3500	032773	312 13 0 00 033474 		CAME	13,[-1]	;PASS IF C(AC) DECREMENTED CORRECTLY
  3501						STOP^
  3502	032774	254 04 0 00 032775 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3503	032775	324 00 0 00 032776 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3504
  3505					;**********
  3506
  3507					;THIS TEST VERIFIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND
  3508					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3509					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3510					;SPECIFIED BY E IF C(AC) IS GREATER THAN OR EQUAL TO 0
  3511					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJGE
  3512					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0
  3513
  3514	032776	201 13 0 00 000001 	C54710:	MOVEI	13,1		;PRELOAD AC WITH 0,,1
  3515	032777	365 13 0 00 033001 		SOJGE	13,.+2		;*SOJ SHOULD SUBTRACT 0,,1 FROM C(AC)
  3516									;AND JUMP
  3517						STOP^
  3518	033000	254 04 0 00 033001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3519	033001	324 00 0 00 033002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3520	033002	312 13 0 00 033513 		CAME	13,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3521						STOP^
  3522	033003	254 04 0 00 033004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3523	033004	324 00 0 00 033005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3524
  3525					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 77
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0105

  3526					;THIS TEST VERIRIES THAT SOJGE DECREMENTS C(AC) BY 0,,1 AND PLACES THE
  3527					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS COMPARED
  3528					;TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED BY E IF C(AC IS
  3529					;GREATER THAN OR EQUAL TO 0.  IN THIS CASE, C(AC = 0,,2 BEFORE
  3530					;DECREMENTING.  HENCE, SOJGE SHOULD JUMP AND THE RESULT IN THE AC SHOULD
  3531					;BE 0,,1.
  3532
  3533	033005	201 13 0 00 000002 	C54720:	MOVEI	13,2		;PRELOAD AC WITH 0,,2
  3534	033006	365 13 0 00 033010 		SOJGE	13,.+2		;*SOJGE SHOULD SUBTRACT0,,1 FROM C(AC)
  3535									;AND JUMP.
  3536						STOP^
  3537	033007	254 04 0 00 033010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3538	033010	324 00 0 00 033011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3539	033011	312 13 0 00 033514 		CAME	13,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3540						STOP^
  3541	033012	254 04 0 00 033013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3542	033013	324 00 0 00 033014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3543
  3544					;**********
  3545
  3546					;THIS TEST VERIFIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND
  3547					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3548					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION 
  3549					;SPECIFIED BY E IF C(AC) IS NON-ZERO.
  3550					;IN THIS CASE, C(AC)=0 BEFORE DECREMENTING.  HENCE,SOJN
  3551					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1.
  3552
  3553	033014	201 12 0 00 000000 	C55000:	MOVEI	12,0		;PRELOAD AC WITH 0
  3554	033015	366 12 0 00 033017 		SOJN	12,.+2		;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC)
  3555									;AND JUMP.
  3556						STOP^
  3557	033016	254 04 0 00 033017 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3558	033017	324 00 0 00 033020 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3559	033020	312 12 0 00 033474 		CAME	12,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3560						STOP^
  3561	033021	254 04 0 00 033022 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3562	033022	324 00 0 00 033023 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3563
  3564					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 78
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0106

  3565					;THIS TEST VERIRIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND
  3566					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3567					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION SPECIFIED
  3568					;BY E IF C(AC) IS NON-ZERO.
  3569					;IN THIS CASE, C(AC) = 0,,1 BEFORE DECREMENTING.  HENCE, SOJN
  3570					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0.
  3571
  3572	033023	201 12 0 00 000001 	C55010:	MOVEI	12,1		;PRELOAD AC WITH 0,,1
  3573	033024	366 12 0 00 033026 		SOJN	12,.+2		;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC)
  3574									;AND NOT JUMP.
  3575	033025	334 00 0 00 000000 		SKIPA			;PASS IF SOJN DID NOT JUMP
  3576						STOP^
  3577	033026	254 04 0 00 033027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3578	033027	324 00 0 00 033030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3579	033030	312 12 0 00 033513 		CAME	12,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3580						STOP^
  3581	033031	254 04 0 00 033032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3582	033032	324 00 0 00 033033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3583
  3584					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 79
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0107

  3585					;THIS TEST VERIFIES THAT SOJN DECREMENTS C(AC) BY 0,,1 AND
  3586					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3587					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3588					;SPECIFIED BY E IF C(AC) IS NON-ZERO.
  3589					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJN
  3590					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1.
  3591
  3592	033033	201 12 0 00 000002 	C55020:	MOVEI	12,2		;PRELOAD AC WITH 0,,2
  3593	033034	366 12 0 00 033036 		SOJN	12,.+2		;*SOJN SHOULD SUBTRACT 0,,1 FROM C(AC)
  3594									;AND JUMP.
  3595						STOP^
  3596	033035	254 04 0 00 033036 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3597	033036	324 00 0 00 033037 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3598	033037	312 12 0 00 033514 		CAME	12,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3599						STOP^
  3600	033040	254 04 0 00 033041 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3601	033041	324 00 0 00 033042 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3602
  3603					;**********
  3604
  3605					;THIS TEST VERIFIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND
  3606					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3607					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3608					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  3609					;IN THIS CASE, C(AC) = 0 BEFORE DECREMENTING.  HENCE, SOJG
  3610					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE -1,,-1.
  3611
  3612	033042	201 11 0 00 000000 	C55100:	MOVEI	11,0		;PRELOAD AC WITH 0
  3613	033043	367 11 0 00 033045 		SOJG	11,.+2		;*SOJG SHOULD SUBTRACT 0,,1 FROM C(AC)
  3614									;AND NOT JUMP.
  3615	033044	334 00 0 00 000000 		SKIPA			;PASS IF SOJG DID NOT JUMP
  3616						STOP^
  3617	033045	254 04 0 00 033046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3618	033046	324 00 0 00 033047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3619	033047	312 11 0 00 033474 		CAME	11,[-1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3620						STOP^
  3621	033050	254 04 0 00 033051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3622	033051	324 00 0 00 033052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3623
  3624					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 80
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOJX INSTRUCTIONS                                                     SEQ 0108

  3625					;THIS TEST VERIRIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND
  3626					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3627					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3628					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  3629					;IN THIS CASE, C(AC)=0,,1 BEFORE DECREMENTING.  HENCE, SOJG
  3630					;SHOULD NOT JUMP AND THE RESULT IN THE AC SHOULD BE 0.
  3631
  3632	033052	201 11 0 00 000001 	C55110:	MOVEI	11,1		;PRELOAD AC WITH 0,,1
  3633	033053	367 11 0 00 033055 		SOJG	11,.+2		;*SOJG SHOULD SUBTRACT 0,,1 FROM C(AC)
  3634									;AND NOT JUMP.
  3635	033054	334 00 0 00 000000 		SKIPA			;PASS IF SOJG DID NOT JUMP
  3636						STOP^
  3637	033055	254 04 0 00 033056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3638	033056	324 00 0 00 033057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3639	033057	312 11 0 00 033513 		CAME	11,[0]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3640						STOP^
  3641	033060	254 04 0 00 033061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3642	033061	324 00 0 00 033062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3643
  3644					;**********
  3645
  3646					;THIS TEST VERIFIES THAT SOJG DECREMENTS C(AC) BY 0,,1 AND
  3647					;PLACES THE RESULT BACK INTO THE AC.  THE RESULT IN THE AC IS
  3648					;COMPARED TO 0 AND THE PROGRAM JUMPS TO THE LOCATION
  3649					;SPECIFIED BY E IF C(AC) IS GREATER THAN 0.
  3650					;IN THIS CASE, C(AC)=0,,2 BEFORE DECREMENTING.  HENCE, SOJG
  3651					;SHOULD JUMP AND THE RESULT IN THE AC SHOULD BE 0,,1.
  3652
  3653	033062	201 11 0 00 000002 	C55120:	MOVEI	11,2		;PRELOAD AC WITH 0,,2
  3654	033063	367 11 0 00 033065 		SOJG	11,.+2		;*SOJG SHOULD SUBTRACT O,,1 FROM C(AC)
  3655									;AND JUMP.
  3656						STOP^
  3657	033064	254 04 0 00 033065 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3658	033065	324 00 0 00 033066 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3659	033066	312 11 0 00 033514 		CAME	11,[1]		;PASS IF C(AC) DECREMENTED CORRECTLY
  3660						STOP^
  3661	033067	254 04 0 00 033070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3662	033070	324 00 0 00 033071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3663
  3664					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 81
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0109

  3665					SUBTTL	TEST OF MSCL SOSX INSTRUCTIONS
  3666
  3667					;**********
  3668
  3669					;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES
  3670					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3671					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  3672					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3673					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0
  3674					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD SKIP; AND THE
  3675					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND -1,,-1
  3676					;RESPECTIVELY.
  3677
  3678	033071	200 00 0 00 033506 	C55200:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3679	033072	201 01 0 00 000000 		MOVEI	1,0		;PRELOAD E WITH 0
  3680	033073	371 00 0 00 000001 		SOSL	0,1		;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E)
  3681									;AND SKIP
  3682						STOP^
  3683	033074	254 04 0 00 033075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3684	033075	324 00 0 00 033076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3685	033076	312 01 0 00 033474 		CAME	1,[-1]		;PASS IF E DECREMENTED CORRECTLY
  3686						STOP^
  3687	033077	254 04 0 00 033100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3688	033100	324 00 0 00 033101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3689	033101	312 00 0 00 033506 		CAME	0,[707070,,707070]  ;PASS IF C(AC) WAS NOT MODIFIED
  3690						STOP^
  3691	033102	254 04 0 00 033103 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3692	033103	324 00 0 00 033104 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3693
  3694					;**********
  3695
  3696					;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES
  3697					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3698					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  3699					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3700					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0,,1
  3701					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD NOT SKIP; AND THE
  3702					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  3703					;RESPECTIVELY.
  3704
  3705	033104	200 00 0 00 033506 	C55210:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3706	033105	201 01 0 00 000001 		MOVEI	1,1		;PRELOAD E WITH 0,,1
  3707	033106	371 00 0 00 000001 		SOSL	0,1		;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E),
  3708									;AND NOT SKIP.
  3709	033107	334 00 0 00 000000 		SKIPA			;PASS IF SOSL DID NOT SKIP
  3710						STOP^
  3711	033110	254 04 0 00 033111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3712	033111	324 00 0 00 033112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3713	033112	312 01 0 00 033513 		CAME	1,[0]		;PASS IF E DECREMENTED CORRECTLY
  3714						STOP^
  3715	033113	254 04 0 00 033114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3716	033114	324 00 0 00 033115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3717	033115	312 00 0 00 033506 		CAME	0,[707070,,707070]  ;PASS IF C(AC) WAS NOT MODIFIED
  3718						STOP^
  3719	033116	254 04 0 00 033117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 81-1
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0110

  3720	033117	324 00 0 00 033120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3721
  3722					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 82
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0111

  3723					;THIS TEST VERIFIES THAT SOSL DECREMENTS C(E) BY 0,,1 AND PLACES
  3724					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3725					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  3726					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3727					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E)=0,,1
  3728					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD NOT SKIP; AND THE
  3729					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  3730					;RESPECTIVELY.
  3731
  3732	033120	200 00 0 00 033506 	C55211:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3733	033121	201 01 0 00 000001 		MOVEI	1,1		;PRELOAD E WITH 0,,1
  3734	033122	202 01 0 00 033137 		MOVEM	1,E55211
  3735	033123	371 00 0 00 033137 		SOSL	0,E55211	;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E),
  3736									;AND NOT SKIP.
  3737	033124	334 00 0 00 000000 		SKIPA			;PASS IF SOSL DID NOT SKIP
  3738						STOP^
  3739	033125	254 04 0 00 033126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3740	033126	324 00 0 00 033127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3741	033127	200 01 0 00 033137 		MOVE	1,E55211
  3742	033130	312 01 0 00 033513 		CAME	1,[0]		;PASS IF E DECREMENTED CORRECTLY
  3743						STOP^
  3744	033131	254 04 0 00 033132 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3745	033132	324 00 0 00 033133 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3746	033133	312 00 0 00 033506 		CAME	0,[707070,,707070]  ;PASS IF C(AC) WAS NOT MODIFIED
  3747						STOP^
  3748	033134	254 04 0 00 033135 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3749	033135	324 00 0 00 033136 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3750
  3751	033136	334 00 0 00 000000 		SKIPA			;GO TO NEXT TEST
  3752	033137	000000	000000		E55211:	0			;TEST WORD MEMORY
  3753
  3754					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 83
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0112

  3755					;THIS TEST VERIFIES THAT SOS DECREMENTS C(E) BY 0,,1 AND PLACES
  3756					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3757					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN 0.
  3758					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3759					;IN THIS CASE, AC=0, C(AC)=707070,,707070 AND C(E) 0,,2
  3760					;BEFORE INCREMENTING.  HENCE, SOSL SHOULD NOT SKIP; AND THE
  3761					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0,,1
  3762					;RESPECTIVELY.
  3763
  3764	033140	200 00 0 00 033506 	C55220:	MOVE	0,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3765	033141	201 01 0 00 000002 		MOVEI	1,2		;PRELOAD E WITH 0,,2
  3766	033142	371 00 0 00 000001 		SOSL	0,1		;*SOSL SHOULD SUBTRACT 0,,1 FROM C(E),
  3767									;AND NOT SKIP
  3768
  3769	033143	334 00 0 00 000000 		SKIPA			;PASS IF SOSL DID NOT SKIP
  3770						STOP^
  3771	033144	254 04 0 00 033145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3772	033145	324 00 0 00 033146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3773	033146	312 01 0 00 033514 		CAME	1,[1]		;PASS IF E DECREMENTED CORRECTLY
  3774						STOP^
  3775	033147	254 04 0 00 033150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3776	033150	324 00 0 00 033151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3777	033151	312 00 0 00 033506 		CAME	0,[707070,,707070]  ;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3778						STOP^
  3779	033152	254 04 0 00 033153 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3780	033153	324 00 0 00 033154 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3781
  3782					;**********
  3783
  3784					;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,,1 AND PLACES
  3785					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3786					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  3787					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3788					;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0
  3789					;BEFORE INCREMENTING.  HENCE, SOSE SHOULD NOT SKIP ; AND THE
  3790					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3791					;RESPECTIVELY.
  3792
  3793	033154	200 10 0 00 033506 	C55300:	MOVE	10,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3794	033155	201 11 0 00 000000 		MOVEI	11,0		;PRELOAD E WITH 0
  3795	033156	372 10 0 00 000011 		SOSE	10,11		;*SOSE SHOULD SUBTRACT 0,,1 FROM C(E),
  3796									;UPDATE AC AND NOT SKIP
  3797
  3798	033157	334 00 0 00 000000 		SKIPA			;PASS IF SOSE DID NOT SKIP
  3799						STOP^
  3800	033160	254 04 0 00 033161 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3801	033161	324 00 0 00 033162 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3802	033162	312 11 0 00 033474 		CAME	11,[-1]		;PASS IF E DECREMENTED CORRECTLY
  3803						STOP^
  3804	033163	254 04 0 00 033164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3805	033164	324 00 0 00 033165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3806	033165	312 10 0 00 033474 		CAME	10,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3807						STOP^
  3808	033166	254 04 0 00 033167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3809	033167	324 00 0 00 033170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 83-1
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0113

  3810
  3811					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 84
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0114

  3812					;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,,1 AND PLACES
  3813					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3814					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0
  3815					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3816					;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0,,1
  3817					;BEFORE INCREMENTING.  HENCE, SOSE SHOULD SKIP ; AND THE
  3818					;FINAL RESULTS IN AC AND E SHOULD BE 707070,,707070 AND 0
  3819					;RESPECTIVELY.
  3820
  3821	033170	200 10 0 00 033506 	C55310:	MOVE	10,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3822	033171	201 11 0 00 000001 		MOVEI	11,1		;PRELOAD E WITH 0,,1
  3823	033172	372 10 0 00 000011 		SOSE	10,11		;*SOS SHOULD SUBTRACT 0,,1 FROM C(E)
  3824									;UPDATE AC AND SKIP
  3825						STOP^
  3826	033173	254 04 0 00 033174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3827	033174	324 00 0 00 033175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3828	033175	312 11 0 00 033513 		CAME	11,[0]		;PASS IF E DECREMENTED CORRECTLY
  3829						STOP^
  3830	033176	254 04 0 00 033177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3831	033177	324 00 0 00 033200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3832	033200	312 10 0 00 033513 		CAME	10,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3833						STOP^
  3834	033201	254 04 0 00 033202 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3835	033202	324 00 0 00 033203 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3836
  3837					;**********
  3838
  3839					;THIS TEST VERIFIES THAT SOSE DECREMENTS C(E) BY 0,11 AND PLACES
  3840					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3841					;THE NEXT INSTRUCTION IF C(E) IS EQUAL TO 0.
  3842					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3843					;IN THIS CASE, AC=10, C(AC)=707070,,707070 AND C(E)=0,,2
  3844					;BEFORE INCREMENTING. HENCE, SOSE SHOULD NOT SKIP ; AND THE
  3845					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3846					;RESPECTIVELY.
  3847
  3848	033203	200 10 0 00 033506 	C55320:	MOVE	10,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3849	033204	201 11 0 00 000002 		MOVEI	11,2		;PRELOAD E WITH 0,,2
  3850	033205	372 10 0 00 000011 		SOSE	10,11		;*SOSE SHOULD SUBTRACT 0,,1 FROM C(E),
  3851									;UPDATE AC AND NOT SKIP
  3852
  3853	033206	334 00 0 00 000000 		SKIPA			;PASS IF SOSE DID NOT SKIP
  3854						STOP^
  3855	033207	254 04 0 00 033210 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3856	033210	324 00 0 00 033211 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3857	033211	312 11 0 00 033514 		CAME	11,[1]		;PASS IF E DECREMENTED CORRECTLY
  3858						STOP^
  3859	033212	254 04 0 00 033213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3860	033213	324 00 0 00 033214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3861	033214	312 10 0 00 033514 		CAME	10,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3862						STOP^
  3863	033215	254 04 0 00 033216 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3864	033216	324 00 0 00 033217 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3865
  3866					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 85
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0115

  3867					;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES
  3868					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3869					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  3870					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3871					;IN THIS CASE, AC=7, C(AC)=707070,,707070 AND C(E)=0
  3872					;BEFORE INCREMENTING.  HENCE, SOSLE SHOULD SKIP ; AND THE
  3873					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3874					;RESPECTIVELY.
  3875
  3876	033217	200 07 0 00 033506 	C55400:	MOVE	7,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3877	033220	201 10 0 00 000000 		MOVEI	10,0		;PRELOAD E WITH 0
  3878	033221	373 07 0 00 000010 		SOSLE	7,10		;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E),
  3879									;UPDATE AC AND SKIP
  3880						STOP^
  3881	033222	254 04 0 00 033223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3882	033223	324 00 0 00 033224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3883	033224	312 10 0 00 033474 		CAME	10,[-1]		;PASS IF E DECREMENTED CORRECTLY
  3884						STOP^
  3885	033225	254 04 0 00 033226 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3886	033226	324 00 0 00 033227 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3887	033227	312 07 0 00 033474 		CAME	7,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3888						STOP^
  3889	033230	254 04 0 00 033231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3890	033231	324 00 0 00 033232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3891
  3892					;**********
  3893
  3894					;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES
  3895					;THE RESULT INTO E. THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3896					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  3897					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3898					;IN THIS CASE, AC=7, C(AC)=070707,,070707 AND C(E)=0,,1
  3899					;BEFORE INCREMENTING.  HENCE, SOSLE SHOULD SKIP ; AND THE
  3900					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  3901					;RESPECTIVELY.
  3902
  3903	033232	200 07 0 00 033506 	C55410:	MOVE	7,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  3904	033233	201 10 0 00 000001 		MOVEI	10,1		;PRELOAD E WITH 0,,1
  3905	033234	373 07 0 00 000010 		SOSLE	7,10		;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E),
  3906									;UPDATE AC AND SKIP
  3907						STOP^
  3908	033235	254 04 0 00 033236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3909	033236	324 00 0 00 033237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3910	033237	312 10 0 00 033513 		CAME	10,[0]		;PASS IF E DECREMENTED CORRECTLY
  3911						STOP^
  3912	033240	254 04 0 00 033241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3913	033241	324 00 0 00 033242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3914	033242	312 07 0 00 033513 		CAME	7,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3915						STOP^
  3916	033243	254 04 0 00 033244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3917	033244	324 00 0 00 033245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3918
  3919					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 86
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0116

  3920					;THIS TEST VERIFIES THAT SOSLE DECREMENTS C(E) BY 0,,1 AND PLACES
  3921					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  3922					;THE NEXT INSTRUCTION IF C(E) IS LESS THAN OR EQUAL TO 0.
  3923					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3924					;IN THIS CASE, AC=7, C(AC)=707070,,707070 AND C(E)=0,,2
  3925					;BEFORE INCREMENTING.  HENCE, SOSLE SHOULD NOT SKIP; AND THE
  3926					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  3927					;RESPECTIVELY.
  3928
  3929	033245	200 07 0 00 033506 	C55420:	MOVE	7,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3930	033246	201 10 0 00 000002 		MOVEI	10,2		;PRELOAD E WITH 0,,2
  3931	033247	373 07 0 00 000010 		SOSLE	7,10		;*SOSLE SHOULD SUBTRACT 0,,1 FROM C(E),
  3932									;UPDATE AC AND NOT SKIP
  3933	033250	334 00 0 00 000000 		SKIPA			;PASS IF SOSLE DID NOT SKIP
  3934						STOP^
  3935	033251	254 04 0 00 033252 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3936	033252	324 00 0 00 033253 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3937	033253	312 10 0 00 033514 		CAME	10,[1]		;PASS IF E DECREMENTED CORRECTLY
  3938						STOP^
  3939	033254	254 04 0 00 033255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3940	033255	324 00 0 00 033256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3941	033256	312 07 0 00 033514 		CAME	7,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3942						STOP^
  3943	033257	254 04 0 00 033260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3944	033260	324 00 0 00 033261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3945
  3946					;**********
  3947
  3948					;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES
  3949					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  3950					;THE NEXT INSTRUCTION.
  3951					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  3952					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0
  3953					;BEFORE INCREMENTING. HENCE, SOSA SHOULD SKIP ; AND THE
  3954					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  3955					;RESPECTIVELY.
  3956
  3957	033261	200 06 0 00 033506 	C55500:	MOVE	6,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3958	033262	201 07 0 00 000000 		MOVEI	7,0		;PRELOAD E WITH 0
  3959	033263	374 06 0 00 000007 		SOSA	6,7		;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E),
  3960									;UPDATE AC AND SKIP
  3961						STOP^
  3962	033264	254 04 0 00 033265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3963	033265	324 00 0 00 033266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3964	033266	312 07 0 00 033474 		CAME	7,[-1]		;PASS IF E DECREMENTED CORRECTLY
  3965						STOP^
  3966	033267	254 04 0 00 033270 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3967	033270	324 00 0 00 033271 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3968	033271	312 06 0 00 033474 		CAME	6,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3969						STOP^
  3970	033272	254 04 0 00 033273 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3971	033273	324 00 0 00 033274 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3972
  3973					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 87
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0117

  3974					;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES
  3975					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  3976					;THE NEXT INSTRUCTION.
  3977					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THEAC.
  3978					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0,,1
  3979					;BEFORE INCREMENTING.  HENCE, SOSA SHOULD BE 0 AND 0
  3980					;RESPECTIVELY.
  3981
  3982	033274	200 06 0 00 033506 	C55510:	MOVE	6,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  3983	033275	201 07 0 00 000001 		MOVEI	7,1		;PRELOAD E WITH 0,,1
  3984	033276	374 06 0 00 000007 		SOSA	6,7		;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E),
  3985									;UPDATE AC AND SKIP
  3986						STOP^
  3987	033277	254 04 0 00 033300 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3988	033300	324 00 0 00 033301 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3989	033301	312 07 0 00 033513 		CAME	7,[0]		;PASS IF E DECREMENTED CORRECTLY
  3990						STOP^
  3991	033302	254 04 0 00 033303 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3992	033303	324 00 0 00 033304 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3993	033304	312 06 0 00 033513 		CAME	6,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  3994						STOP^
  3995	033305	254 04 0 00 033306 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3996	033306	324 00 0 00 033307 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3997
  3998					;**********
  3999
  4000					;THIS TEST VERIFIES THAT SOSA DECREMENTS C(E) BY 0,,1 AND PLACES
  4001					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND ALWAYS SKIPS
  4002					;THE NEXT INSTRUCTION.
  4003					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4004					;IN THIS CASE, AC=6, C(AC)=707070,,707070 AND C(E)=0,,2
  4005					;BEFORE INCREMENTING.  HENCE, SOSA SHOULD SKIP ; AND THE
  4006					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  4007					;RESPECTIVELY.
  4008
  4009	033307	200 06 0 00 033506 	C55520:	MOVE	6,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  4010	033310	201 07 0 00 000002 		MOVEI	7,2		;PRELOAD E WITH 0,,2
  4011	033311	374 06 0 00 000007 		SOSA	6,7		;*SOSA SHOULD SUBTRACT 0,,1 FROM C(E),
  4012									;UPDATE AC AND SKIP
  4013						STOP^
  4014	033312	254 04 0 00 033313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4015	033313	324 00 0 00 033314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4016	033314	312 07 0 00 033514 		CAME	7,[1]		;PASS IF E DECREMENTED CORRECTLY
  4017						STOP^
  4018	033315	254 04 0 00 033316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4019	033316	324 00 0 00 033317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4020	033317	312 06 0 00 033514 		CAME	6,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4021						STOP^
  4022	033320	254 04 0 00 033321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4023	033321	324 00 0 00 033322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4024
  4025					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 88
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0118

  4026					;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES
  4027					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4028					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0.
  4029					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4030					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0
  4031					;BEFORE INCREMENTING.  HENCE, SOSGE SHOULD NOT SKIP ; AND THE
  4032					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  4033					;RESPECTIVELY.
  4034
  4035	033322	200 05 0 00 033506 	C55600:	MOVE	5,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4036	033323	201 06 0 00 000000 		MOVEI	6,0		;PRELOAD E WITH 0
  4037	033324	375 05 0 00 000006 		SOSGE	5,6		;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E),
  4038									;UPDATE AC AND NOT SKIP
  4039	033325	334 00 0 00 000000 		SKIPA			;PASS IF SOSGE DID NOT SKIP
  4040						STOP^
  4041	033326	254 04 0 00 033327 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4042	033327	324 00 0 00 033330 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4043	033330	312 06 0 00 033474 		CAME	6,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4044						STOP^
  4045	033331	254 04 0 00 033332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4046	033332	324 00 0 00 033333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4047	033333	312 05 0 00 033474 		CAME	5,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4048						STOP^
  4049	033334	254 04 0 00 033335 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4050	033335	324 00 0 00 033336 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4051
  4052					;**********
  4053
  4054					;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES
  4055					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4056					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0.
  4057					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4058					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0,,1
  4059					;BEFORE INCREMENTING.  HENCE, SOSGE SHOULD SKIP ; AND THE
  4060					;FINAL RESULTS IN ACAND E SHOULD BE 0 AND 0
  4061					;RESPECTIVELY.
  4062
  4063	033336	200 05 0 00 033506 	C55610:	MOVE	5,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4064	033337	201 06 0 00 000001 		MOVEI	6,1		;PRELOAD E WITH 0,,1
  4065	033340	375 05 0 00 000006 		SOSGE	5,6		;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E),
  4066									;UPDATE AC AND SKIP
  4067						STOP^
  4068	033341	254 04 0 00 033342 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4069	033342	324 00 0 00 033343 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4070	033343	312 06 0 00 033513 		CAME	6,[0]		;PASS IF E DECREMENTED CORRECTLY
  4071						STOP^
  4072	033344	254 04 0 00 033345 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4073	033345	324 00 0 00 033346 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4074	033346	312 05 0 00 033513 		CAME	5,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4075						STOP^
  4076	033347	254 04 0 00 033350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4077	033350	324 00 0 00 033351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4078
  4079					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 89
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0119

  4080					;THIS TEST VERIFIES THAT SOSGE DECREMENTS C(E) BY 0,,1 AND PLACES
  4081					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4082					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN OR EQUAL TO 0
  4083					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4084					;IN THIS CASE, AC=5, C(AC)=707070,,707070 AND C(E)=0,,2
  4085					;BEFORE INCREMENTING.  HENCE, SOSGE SHOULD SKIP ; AND THE
  4086					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  4087					;RESPECTIVELY.
  4088
  4089	033351	200 05 0 00 033506 	C55620:	MOVE	5,[707070,,707070] ;PRELOAD AC WITH 707070,,707070
  4090	033352	201 06 0 00 000002 		MOVEI	6,2		;PRELOAD E WITH 0,,2
  4091	033353	375 05 0 00 000006 		SOSGE	5,6		;*SOSGE SHOULD SUBTRACT 0,,1 FROM C(E),
  4092									;UPDATE AC AND SKIP
  4093						STOP^
  4094	033354	254 04 0 00 033355 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4095	033355	324 00 0 00 033356 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4096	033356	312 06 0 00 033514 		CAME	6,[1]		;PASS IF E DECREMENTED CORRECTLY
  4097						STOP^
  4098	033357	254 04 0 00 033360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4099	033360	324 00 0 00 033361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4100	033361	312 05 0 00 033514 		CAME	5,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4101						STOP^
  4102	033362	254 04 0 00 033363 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4103	033363	324 00 0 00 033364 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4104
  4105					;**********
  4106
  4107					;THIS TEST VERIFIES SOSN DECREMENTS C(E) BY 0,,1 AND PLACES
  4108					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4109					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  4110					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4111					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0
  4112					;BEFORE INCREMENTING.  HENCE, SOSN SHOULD SKIP ; AND THE
  4113					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  4114					;RESPECTIVELY.
  4115
  4116	033364	200 04 0 00 033506 	C55700:	MOVE	4,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4117	033365	201 05 0 00 000000 		MOVEI	5,0		;PRELOAD E WITH 0
  4118	033366	376 04 0 00 000005 		SOSN	4,5		;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E),
  4119									;UPDATE AC AND SKIP
  4120						STOP^
  4121	033367	254 04 0 00 033370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4122	033370	324 00 0 00 033371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4123	033371	312 05 0 00 033474 		CAME	5,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4124						STOP^
  4125	033372	254 04 0 00 033373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4126	033373	324 00 0 00 033374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4127	033374	312 04 0 00 033474 		CAME	4,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4128						STOP^
  4129	033375	254 04 0 00 033376 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4130	033376	324 00 0 00 033377 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4131
  4132					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 90
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0120

  4133					;THIS TEST VERIFIES THAT SOSN DECREMENTS C(E) BY 0,,1 AND PLACES
  4134					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4135					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  4136					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC
  4137					;IN THIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0,,1
  4138					;BEFORE INCREMENTING.  HENCE, SOSN SHOULD NOT SKIP ; AND THE
  4139					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  4140					;RESPECTIVELY.
  4141
  4142	033377	200 04 0 00 033506 	C55710:	MOVE	4,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4143	033400	201 05 0 00 000001 		MOVEI	5,1		;PRELOAD E WITH 0,,1
  4144	033401	376 04 0 00 000005 		SOSN	4,5		;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E),
  4145									;UPDATE AC AND NOT SKIP
  4146	033402	334 00 0 00 000000 		SKIPA			;PASS IF SOSN DID NOT SKIP
  4147						STOP^
  4148	033403	254 04 0 00 033404 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4149	033404	324 00 0 00 033405 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4150	033405	312 05 0 00 033513 		CAME	5,[0]		;PASS IF E DECREMENTED CORRECTLY
  4151						STOP^
  4152	033406	254 04 0 00 033407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4153	033407	324 00 0 00 033410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4154	033410	312 04 0 00 033513 		CAME	4,[0]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4155						STOP^
  4156	033411	254 04 0 00 033412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4157	033412	324 00 0 00 033413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4158
  4159					;**********
  4160
  4161					;THIS TEST VERIFIES THAT SOSN DECREMENTS C(E) BY 0,,1 AND PLACES
  4162					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4163					;THE NEXT INSTRUCTION IF C(E) IS NON-ZERO
  4164					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4165					;INtTHIS CASE, AC=4, C(AC)=707070,,707070 AND C(E)=0,,2
  4166					;BEFORE INCREMENTING.  HENCE, SOSN SHOULD SKIP ; AND THE
  4167					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 0,,1
  4168					;RESPECTIVELY
  4169
  4170	033413	200 04 0 00 033506 	C55720:	MOVE	4,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4171	033414	201 05 0 00 000002 		MOVEI	5,2		;PRELOAD E WITH 0,,2
  4172	033415	376 04 0 00 000005 		SOSN	4,5		;*SOSN SHOULD SUBTRACT 0,,1 FROM C(E),
  4173									;UPDATE AC AND SKIP
  4174						STOP^
  4175	033416	254 04 0 00 033417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4176	033417	324 00 0 00 033420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4177	033420	312 05 0 00 033514 		CAME	5,[1]		;PASS IF E DECREMENTED CORRECTLY
  4178						STOP^
  4179	033421	254 04 0 00 033422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4180	033422	324 00 0 00 033423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4181	033423	312 04 0 00 033514 		CAME	4,[1]		;PASS IF ACWAS UPDATED IF AC NON-ZERO
  4182						STOP^
  4183	033424	254 04 0 00 033425 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4184	033425	324 00 0 00 033426 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4185
  4186					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 91
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0121

  4187					;THIS TEST VERIFIESTHAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES
  4188					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4189					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  4190					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4191					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0
  4192					;BEFORE INCREMENTING.  HENCE, SOSG SHOULD NOT SKIP ; AND THE 
  4193					;FINAL RESULTS IN AC AND E SHOULD BE -1,,-1 AND -1,,-1
  4194					;RESPECTIVELY.
  4195
  4196	033426	200 03 0 00 033506 	C56000:	MOVE	3,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4197	033427	201 04 0 00 000000 		MOVEI	4,0		;PRELOAD E WITH 0
  4198	033430	377 03 0 00 000004 		SOSG	3,4		;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E),
  4199									;UPDATE AC AND NOT SKIP
  4200	033431	334 00 0 00 000000 		SKIPA			;PASS IF SOSG DID NOT SKIP
  4201						STOP^
  4202	033432	254 04 0 00 033433 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4203	033433	324 00 0 00 033434 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4204	033434	312 04 0 00 033474 		CAME	4,[-1]		;PASS IF E DECREMENTED CORRECTLY
  4205						STOP^
  4206	033435	254 04 0 00 033436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4207	033436	324 00 0 00 033437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4208	033437	312 03 0 00 033474 		CAME	3,[-1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4209						STOP^
  4210	033440	254 04 0 00 033441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4211	033441	324 00 0 00 033442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4212
  4213					;**********
  4214
  4215					;THIS TEST VERIFIES THAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES
  4216					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4217					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0.
  4218					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4219					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0,,1
  4220					;BEFORE INCREMENTING.  HENCE, SOSG SHOULD NOT SKIP ; AND THE
  4221					;FINAL RESULTS IN AC AND E SHOULD BE 0 AND 0
  4222					;RESPECTIVELY.
  4223
  4224	033442	200 03 0 00 033506 	C56010:	MOVE	3,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4225	033443	201 04 0 00 000001 		MOVEI	4,1		;PRELOAD E WITH 0,,1
  4226	033444	377 03 0 00 000004 		SOSG	3,4		;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E),
  4227									;UPDATE AC AND NOT SKIP
  4228	033445	334 00 0 00 000000 		SKIPA			;PASS IF SOSG DID NOT SKIP
  4229						STOP^
  4230	033446	254 04 0 00 033447 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4231	033447	324 00 0 00 033450 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4232	033450	312 04 0 00 033513 		CAME	4,[0]		;PASS IF E DECREMENTED CORRECTLY
  4233						STOP^
  4234	033451	254 04 0 00 033452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4235	033452	324 00 0 00 033453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4236	033453	312 03 0 00 033513 		CAME	3,[0]		;PASS IF AC WAS UPDATED IS AC NON-ZERO
  4237						STOP^
  4238	033454	254 04 0 00 033455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4239	033455	324 00 0 00 033456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4240
  4241					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 92
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0122

  4242					;THIS TEST VERIFIES THAT SOSG DECREMENTS C(E) BY 0,,1 AND PLACES
  4243					;THE RESULT INTO E.  THE RESULT IN E IS COMPARED TO 0 AND SKIPS
  4244					;THE NEXT INSTRUCTION IF C(E) IS GREATER THAN 0
  4245					;IF THE AC IS NON-ZERO, THE RESULT IS ALSO PLACED INTO THE AC.
  4246					;IN THIS CASE, AC=3, C(AC)=707070,,707070 AND C(E)=0,,2
  4247					;BEFORE INCREMENTING.  HENCE, SOSG SHOULD SKIP ; AND THE
  4248					;FINAL RESULTS IN AC AND E SHOULD BE 0,,1 AND 011,
  4249					;RESPECTIVELY.
  4250
  4251	033456	200 03 0 00 033506 	C56020:	MOVE	3,[707070,,707070]  ;PRELOAD AC WITH 707070,,707070
  4252	033457	201 04 0 00 000002 		MOVEI	4,2		;PRELOAD E WITH 0,,2
  4253	033460	377 03 0 00 000004 		SOSG	3,4		;*SOSG SHOULD SUBTRACT 0,,1 FROM C(E),
  4254									;UPDATE AC AND SKIP
  4255						STOP^
  4256	033461	254 04 0 00 033462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4257	033462	324 00 0 00 033463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4258	033463	312 04 0 00 033514 		CAME	4,[1]		;PASS IF E DECREMENTED CORRECTLY
  4259						STOP^
  4260	033464	254 04 0 00 033465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4261	033465	324 00 0 00 033466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4262	033466	312 03 0 00 033514 		CAME	3,[1]		;PASS IF AC WAS UPDATED IF AC NON-ZERO
  4263						STOP^
  4264	033467	254 04 0 00 033470 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4265	033470	324 00 0 00 033471 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4266
  4267					;**********
DBKAE PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (5) MCNVER,DECVER	MACRO %50A(432) 15:02  4-AUG-76 PAGE 93
DBKAEM	MAC	30-APR-76 16:59		TEST OF MSCL SOSX INSTRUCTIONS                                                     SEQ 0123

  4268
  4269	033471	254 00 0 00 030057 		JRST	BEGEND
  4270					SUBTTL	*STOR* RESERVED STORAGE, JAN 5,1976
  4271
  4272					;PROGRAM LITERALS
  4273
  4274						XLIST
  4275					IFNDEF	$LPAPER,<LIST>
  4276	033472					LIT
  4277	033472	000001	000001
  4278	033473	254 00 0 00 030741 
  4279	033474	777777	777777
  4280	033475	310 00 0 00 000000 
  4281	033476	201 01 0 00 001234 
  4282	033477	031125	031124
  4283	033500	031134	031133
  4284	033501	254 00 0 00 031177 
  4285	033502	000001	000002
  4286	033503	135531	246642
  4287	033504	135246	246135
  4288	033505	252525	252525
  4289	033506	707070	707070
  4290	033507	123456	123456
  4291	033510	777777	000000
  4292	033511	777777	777775
  4293	033512	777777	777776
  4294	033513	000000	000000
  4295	033514	000000	000001
  4296						LIST
  4297	033515	000000	000000		ENDSLD:	0
  4298
  4299					IFDEF	DEBUG,<
  4300	033516				PATCH:	BLOCK DEBUG		;PATCHING AREA
  4301					>
  4302
  4303					;PROGRAM VARIABLES
  4304	033616					VAR
  4305
  4306					IFDEF	PGMEND,<
  4307	033616	000000	000000		END:	0
  4308			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 033617
CPU TIME USED 00:14.929

5K CORE USED

ABORT	   107#
AC0	   702#                                                                                                            SEQ 0124
ALTMGO	   461#
ANXM	   375#
APR	   799	   800	   801
AROV	    68#	   375#
AROVU	   375#
AST	   576#
ATSIN	   577#
BEGEND	   457#	  4269
BEGIN	   321	   322	   388#	   745	   867	  4308
BEGIN1	   404#	   458
BELL	   580#
BIS	    72#	   375#	  1351	  1359	  1371	  1375	  1386	  1392	  1404	  1409
C23000	   911#
C23100	   930#
C23200	   948#
C23300	   969#
C23400	   987#
C23500	  1007#
C23600	  1025#	  1029
C23700	  1045#
C24000	  1063#
C24100	  1076#
C24200	  1091#
C24300	  1104#
C24400	  1117#
C24500	  1129#
C24600	  1144#
C24700	  1158#
C25000	  1174#
C25100	  1189#
C25200	  1205#
C25300	  1220#
C25400	  1236#
C25500	  1249#
C25600	  1260#
C25700	  1273#
C26200	  1288#
C26300	  1304#
C26400	  1318#
C26500	  1333#
C26600	  1350#
C26700	  1370#
C27000	  1385#
C27001	  1403#
C27100	  1420#
C50000	  1444#
C50100	  1465#
C50110	  1484#
C50200	  1503#
C50300	  1516#
C50301	  1536#
C50400	  1561#
C50401	  1581#                                                                                                            SEQ 0125
C50410	  1606#
C50500	  1625#
C50501	  1637#
C50600	  1650#
C50700	  1671#
C50710	  1691#
C51000	  1713#
C51100	  1727#
C51101	  1746#
C51200	  1770#
C51201	  1789#
C51300	  1817#
C51310	  1831#
C51320	  1845#
C51400	  1860#
C51410	  1873#
C51420	  1887#
C51500	  1901#
C51510	  1915#
C51520	  1928#
C51600	  1942#
C51610	  1956#
C51620	  1970#
C51700	  1983#
C51710	  1997#
C51720	  2011#
C52000	  2025#
C52010	  2039#
C52020	  2054#
C52100	  2071#
C52110	  2086#
C52120	  2099#
C52200	  2115#
C52210	  2128#
C52220	  2143#
C52300	  2158#
C52310	  2170#
C52320	  2181#
C52400	  2194#
C52410	  2206#
C52420	  2218#
C52500	  2235#
C52510	  2254#
C52520	  2273#
C52600	  2294#
C52610	  2314#
C52620	  2334#
C52700	  2354#
C52710	  2374#
C52720	  2393#
C53000	  2414#
C53010	  2433#
C53020	  2453#                                                                                                            SEQ 0126
C53100	  2472#
C53110	  2493#
C53120	  2512#
C53200	  2532#
C53210	  2551#
C53220	  2572#
C53300	  2591#
C53310	  2612#
C53320	  2632#
C53400	  2657#
C53401	  2684#
C53410	  2715#
C53420	  2742#
C53500	  2770#
C53510	  2797#
C53520	  2824#
C53600	  2851#
C53610	  2878#
C53620	  2904#
C53700	  2932#
C53710	  2958#
C53720	  2985#
C54000	  3011#
C54010	  3039#
C54020	  3065#
C54100	  3092#
C54110	  3118#
C54120	  3146#
C54200	  3172#
C54210	  3200#
C54220	  3227#
C54300	  3255#
C54310	  3275#
C54320	  3294#
C54400	  3315#
C54410	  3335#
C54420	  3355#
C54500	  3375#
C54510	  3395#
C54520	  3414#
C54600	  3435#
C54610	  3454#
C54620	  3474#
C54700	  3493#
C54710	  3514#
C54720	  3533#
C55000	  3553#
C55010	  3572#
C55020	  3592#
C55100	  3612#
C55110	  3632#
C55120	  3653#
C55200	  3678#                                                                                                            SEQ 0127
C55210	  3705#
C55211	  3732#
C55220	  3764#
C55300	  3793#
C55310	  3821#
C55320	  3848#
C55400	  3876#
C55410	  3903#
C55420	  3929#
C55500	  3957#
C55510	  3982#
C55520	  4009#
C55600	  4035#
C55610	  4063#
C55620	  4089#
C55700	  4116#
C55710	  4142#
C55720	  4170#
C56000	  4196#
C56010	  4224#
C56020	  4251#
CCA	   375#
CHAIN	   127#
CHNOFF	   375#
CHNON	   375#
CLK	   375#
CLKCLR	   375#
CLKDIS	   375#
CLKENB	   375#
CLKU	   375#
CLOCKF	   443#
CNTLC	   460#
COMMA	   569#
CONSW	   444#
CPOPJ	   464#
CPOPJ1	   462#
CRLF	   256	   257	   564#
CRLF2	   260	   261	   566#
CRY0	    69#	   375#	   912	   931	   949	   970	   988
CRY1	    70#	   375#
CSHFLG	   623#
CSHMEM	   624#
CYCL60	   617#
DCK	    76#	   375#
DDT	   704#
DDTLNK	   141#	   402
DDTSRT	   402#
DEBUG	    30#	  4299	  4300
DECVER	    13#	    13	    14	   423
DF22F	   528#
DIAGMN	   391#
DIAGNO	   703#
DIAMON	   705#                                                                                                            SEQ 0128
DING	   113#
DOLLAR	   583#
DONG11	   706#	   846	   862
DSKUPD	   428
DTE	   710#	   846	   848	   862	   864
DTE0	   711#
DTE1	   712#
DTE2	   713#
DTE3	   714#
E50301	  1538	  1539	  1545	  1552#
E50401	  1583	  1584	  1590	  1597#
E51101	  1748	  1749	  1755	  1762#
E51201	  1791	  1792	  1797	  1804#
E53401	  2686	  2687	  2692	  2703#
E55211	  3734	  3735	  3741	  3752#
END	  4307#
ENDFIX	   697#
ENDSLD	  4297#
ERMORE	   477#
ERRPC	   448#
ERRTLS	   449#
ERSTOP	   116#
EXCASB	    27#	   426
EXIOT	    74#	   375#
FOV	    71#	   375#
FOVU	   375#
FRDLNK	   139#
FSELNK	   138#
FXU	    75#	   375#
HYPEN	   574#
INHCSH	   124#
INHPAG	   121#
INXM	   375#
IOCLR	   375#
ITERAT	    59#	   421
ITRCH1	   481#
ITRCNT	   421#	   791	   820	   824	   832	   833	   837
JOB41	   375#
JOBAPR	   375#
JOBCNI	   375#
JOBDDT	   375#
JOBFF	   375#
JOBOPC	   375#
JOBREL	   375#
JOBREN	   375#
JOBSA	   375#
JOBSYM	   375#
JOBTPC	   375#
JOBUSY	   375#
JOBUUO	   375#
JOBVER	   375#
KA10	   375
KAHZ50	   129#                                                                                                            SEQ 0129
KAIFLG	   438#
KI10	   375
KL10	   375
KLFLG	   439#	   793	   811	   830
KLOLD	   336
KLTYP	   655#	   792	   803	   845	   847	   861	   863
LDLNK	   140#	   391	   393
LFP	   578#
LOOPER	   115#
LUUO	   375#
LUUO1	   508	   509
LUUO10	   508	   513
LUUO11	   508	   513
LUUO12	   508	   514
LUUO13	   508	   514
LUUO14	   508	   515
LUUO15	   508	   515
LUUO16	   508	   516
LUUO17	   508	   516
LUUO2	   508	   510
LUUO20	   508	   517
LUUO21	   508	   517
LUUO22	   508	   518
LUUO23	   508	   518
LUUO24	   508	   519
LUUO25	   508	   519
LUUO26	   508	   520
LUUO27	   508	   520
LUUO3	   508	   510
LUUO30	   508	   521
LUUO31	   508	   521
LUUO32	   508	   522
LUUO33	   508	   522
LUUO4	   508	   511
LUUO5	   508	   511
LUUO6	   508	   512
LUUO7	   508	   512
LUUOI	   375#
MAPNEW	   529#
MARGIN	   451#
MCNVER	    13#	    13	    14	   423
MEMLOW	   531#
MEMMAP	   429
MEMSIZ	   532#
MEMTOT	   530#
MINUS	   573#
MODDVC	   123#
MODDVL	   321	   321#	   424
MODDVU	   322	   322#	   425
MODLNK	   142#	   388
MONCTL	   441#	   840	   878
MONFLG	   440#	   785	   874
MONTEN	   442#	   790	   826	   855                                                                                     SEQ 0130
MPVU	   375#
NOPNT	   111#
NXMU	   375#
OPRSEL	   125#
OPTIME	   543#
P	   168	   169	   170	   171	   375#	   463
PAG	   375#
PALERS	   117#
PARCLR	   375#
PARDIS	   375#
PAREA0	    52#
PAREA1	    53#	   419
PAREA2	    54#	   420
PAREA3	    55#	   417
PAREA4	    56#	   418
PAREA5	    57#	   430
PAREA6	    58#	   431
PAREA7	   430#
PAREA8	   431#
PARENB	   375#
PARU	   375#
PASCNT	   445#	   819
PATCH	  4300#
PDISF	   540#
PDLOVU	   375#
PERIOD	   570#
PFSTRT	   397#
PGMEND	    29#	    60#	  4306
PGMNAM	   422	   879	   882#
PI	   832
PICHN1	   375#
PICHN2	   375#
PICHN3	   375#
PICHN4	   375#
PICHN5	   375#
PICHN6	   375#
PICHN7	   375#
PICHNA	   375#
PICLR	   375#
PIOFF	   375#
PION	   375#
PLIST	   609#	   609
PLISTE	   609	   611#	   695
PLISTS	   610#
PLUS	   575#
PNTENB	   539#
PNTEXT	   418#
PNTFLG	   538#
PNTINH	   541#
PNTLPT	   112#
PNTNAM	   417#
PNTSPC	   542#
PVPAGI	   636#                                                                                                            SEQ 0131
PWFCLR	   375#
QUEST	   581#
RADIX	   584#
RADLSC	   586#
RADLSP	   585#
RANDBS	   419#
REENTR	   399#
RELIAB	   119#
REPT	   375#
REPT1	   375#
REPTU	   497#
REQSET	   375#
RESRT1	   474#
RESRT2	   475#
RETURN	   406#	   828	   835	   856
RSTART	   108#
RTP	   579#
RUNFLG	   446#
SADR1	    40#	   395
SADR10	    49#	   411
SADR11	    50#	   412
SADR2	    41#	   397
SADR3	    42#	   399
SADR4	    43#
SADR5	    44#	   460
SADR6	    45#	   461
SADR7	    46#	   408
SADR8	    47#	   409
SADR9	    48#	   410
SBINIT	   181	   405#
SCOPE	   498#
SFSTRT	   395#
SLASH	   582#
SPACE	   571#
SRTDDT	   401#
START	    40	    41	    42	    43	    44	    45	    46	    47	    48	    49	    50	   389	   788	   797
	   812	   816	   870#
START1	   408#
START2	   409#
START3	   410#
START4	   411#
START5	   412#
STARTA	   404	   814	   825	   834	   841	   851	   877	   880	   901#
SUBLNK	   143#	   405
SWTEXR	   420#
SYSEXR	   393#
TAB	   572#
TESTPC	   447#
TICKS	   450#
TOTALS	   109#
TTNBRF	   630#
TTYFIL	   546#
TTYSPD	   547#                                                                                                            SEQ 0132
TXTINH	   120#
USER	   437#	   781	   784	   786	   787	   821	   870#	   870	   873	   875	   876
USERF	    33#	    73#	   375#	   783	   872
USRASB	    28#	   427
USRCRF	   556#
USRLFF	   555#
UUODIS	   509#
UUOEXT	   465#
UUORTN	   466#
UUOSKP	   463#
$$420	   755#
$$421	   756#
$$422	   757#
$$423	   758#
$$424	   759#
$$425	   760#
$$426	   761#
$$427	   762#
$$430	   763#
$$431	   764#
$$432	   765#
$$433	   766#
$$434	   767#
$$435	   768#
$$436	   769#
$$437	   770#
$$500	   773#
$$501	   774#
$$502	   775#
$$503	   776#
$$BEGI	   741#
$$DTE0	   807	   846#
$$DTE1	   808	   848#
$$DTE2	   809	   862#
$$DTE3	   810	   864#
$$LOC	   738#	   777
$$MUUO	   661#
$$OUTE	   667#
$$STAR	   741	   742	   781#
$$TAX1	   679#
$$TAX2	   680#
$$TOGG	   673#
$$UUO	   650#
$ACC0	   488#
$BEGEN	   750#
$BEND1	   458#
$BEND2	   459#
$CHRIN	   549#
$CRLF	   551#
$DDT	   719#
$DEVCH	   375#
$DSKUP	   428#
$DTCHR	   731#                                                                                                            SEQ 0133
$DTCI	   725#
$DTCLK	   724#	   805
$DTCMD	   728#	   843	   859
$DTF11	   727#
$DTFLG	   723#	   804	   844	   849	   860	   865
$DTMTD	   732#
$DTMTI	   733#
$DTOPR	   730#	   806
$DTSEQ	   729#
$DTSWR	   735#
$DTT11	   726#
$DVCH1	   375#
$DVOFF	   545#
$EMODE	   426#
$ENDFX	   695#	   696
$FFF	   553#
$IBUF	   601#
$INEXT	   603#
$INNM	   602#
$ITRHL	   469#
$ITRX1	   470#
$LPAPE	  4275
$MMAP	   429#
$MODVL	   424#
$MODVU	   425#
$OBUF	   592#
$ONETM	   452#
$OUTEX	   594#
$OUTNM	   593#
$PAPER	   375
$PARER	   476#
$PNAME	   422#
$PSHER	   480#
$PVER	   423#
$RSRTX	   472#
$RSRTY	   473#
$SPAG1	   492#
$SPB1	   815	   821#
$SPBEN	   750	   819#
$SPBEX	   822	   830#
$SPBKL	   831	   837#
$SPBUS	   824#
$SPEC	   747	   814#
$SPKLD	   838	   855#
$START	   389#
$STD	   718#	   745#
$STKIL	   790#
$STKL	   799#
$STL	   720#
$STM	   721#	   747#
$SVAPR	   490#
$SVPAG	   491#
$SVPI	   489#                                                                                                            SEQ 0134
$SVUPC	   495#
$SVUUO	   494#
$TABF	   552#
$TTCHR	   548#
$TWCNT	   544#
$TYPNB	   550#
$UMODE	   427#
$UORTX	   467#
$USRHL	   471#
$UUOER	   468#	   509
$VTF	   554#
%ACTFL	   501#
%ACTUL	   502#
%COREC	   500#
%CORFL	   499#
%DISCR	   503#
%ERHI1	   642#
%ERHI2	   643#
%ERHI3	   644#
.JB41	   375#
.JBAPR	   375#
.JBCNI	   375#
.JBDDT	   375#
.JBFF	   375#
.JBOPC	   375#
.JBREL	   375#
.JBREN	   375#
.JBSA	   375#
.JBSYM	   375#
.JBTPC	   375#
.JBUSY	   375#
.JBUUO	   375#
.JBVER	   375#

CFLUSH	   292#
CINVAL	   291#                                                                                                            SEQ 0135
CLOKOP	   286#
CWRTBI	   293#
DROPDV	   253#
ENDUUO	   299#	   457
EOPUUO	   300#	   459
ERLOOP	   344#
ERLP1	   345#
ERLP2	   346#
ERRHLT	   188#
ERROR	   353#
ERROR1	   365#
ERUUO	   343#
EXIT	   827
FATAL	   187#
FRD36	   328#
FRD8	   329#
FREAD	   327#
FSELEC	   326#
GET	   171#
GO	   168#
HALT	   173#	   478	   755	   757	   758	   762	   776	   867	   920	   939	   958	   978	   997	  1012
	  1017	  1026	  1031	  1052	  1069	  1077	  1082	  1097	  1109	  1122	  1130	  1135	  1146	  1150
	  1160	  1164	  1180	  1195	  1211	  1225	  1241	  1253	  1265	  1278	  1294	  1308	  1322	  1337
	  1361	  1377	  1394	  1411	  1427	  1450	  1454	  1471	  1475	  1489	  1493	  1507	  1522	  1526
	  1543	  1548	  1567	  1571	  1588	  1593	  1612	  1616	  1629	  1642	  1656	  1660	  1677	  1681
	  1697	  1701	  1717	  1733	  1737	  1753	  1758	  1775	  1779	  1795	  1800	  1820	  1835	  1849
	  1863	  1876	  1891	  1904	  1918	  1931	  1946	  1959	  1973	  1986	  2001	  2014	  2029	  2043
	  2057	  2075	  2089	  2104	  2119	  2132	  2146	  2161	  2173	  2185	  2198	  2209	  2221	  2238
	  2242	  2259	  2263	  2278	  2282	  2299	  2303	  2318	  2322	  2339	  2343	  2358	  2362	  2378
	  2382	  2398	  2402	  2418	  2422	  2437	  2441	  2457	  2461	  2477	  2481	  2497	  2501	  2516
	  2520	  2536	  2540	  2556	  2560	  2576	  2580	  2596	  2600	  2617	  2621	  2636	  2640	  2662
	  2666	  2670	  2690	  2695	  2699	  2721	  2725	  2729	  2748	  2752	  2756	  2776	  2780	  2784
	  2802	  2806	  2810	  2830	  2834	  2838	  2856	  2860	  2864	  2883	  2887	  2891	  2910	  2914
	  2918	  2937	  2941	  2945	  2963	  2967	  2971	  2990	  2994	  2998	  3017	  3021	  3025	  3044
	  3048	  3052	  3070	  3074	  3078	  3097	  3101	  3105	  3124	  3128	  3132	  3151	  3155	  3159
	  3178	  3182	  3186	  3206	  3210	  3214	  3232	  3236	  3240	  3259	  3263	  3279	  3283	  3299
	  3303	  3320	  3324	  3339	  3343	  3360	  3364	  3379	  3383	  3399	  3403	  3419	  3423	  3439
	  3443	  3458	  3462	  3478	  3482	  3498	  3502	  3518	  3522	  3537	  3541	  3557	  3561	  3577
	  3581	  3596	  3600	  3617	  3621	  3637	  3641	  3657	  3661	  3683	  3687	  3691	  3711	  3715
	  3719	  3739	  3744	  3748	  3771	  3775	  3779	  3800	  3804	  3808	  3826	  3830	  3834	  3855
	  3859	  3863	  3881	  3885	  3889	  3908	  3912	  3916	  3935	  3939	  3943	  3962	  3966	  3970
	  3987	  3991	  3995	  4014	  4018	  4022	  4041	  4045	  4049	  4068	  4072	  4076	  4094	  4098
	  4102	  4121	  4125	  4129	  4148	  4152	  4156	  4175	  4179	  4183	  4202	  4206	  4210	  4230
	  4234	  4238	  4256	  4260	  4264
JEN	   175#
JRSTF	   174#
MAPADR	   309#
MAPCNK	   310#
MAPMEM	   306#
MAPPNT	   312#
MAPSET	   311#
MEMSEG	   308#
MEMZRO	   307#                                                                                                            SEQ 0136
MODPCP	   319#
MODPCU	   318#
MTROP	   287#
NAME	    13#	    14
PBELL	   262#
PCRL	   256#
PCRL2	   260#
PCRL2F	   261#
PCRLF	   257#
PFORCE	   264#
PGMINT	   181#
PJRST	   172#
PMSG	   266#
PMSGF	   269#
PNT1	   222#
PNT11	   236#
PNT11F	   237#
PNT1F	   223#
PNT2	   224#
PNT2F	   225#
PNT3	   226#
PNT3F	   227#
PNT4	   228#
PNT4F	   229#
PNT5	   230#
PNT5F	   231#
PNT6	   232#
PNT6F	   233#
PNT7	   234#
PNT7F	   235#
PNTA	   208#
PNTADF	   239#
PNTADR	   238#
PNTAF	   209#
PNTAL	   210#
PNTALF	   211#
PNTCHF	   221#
PNTCHR	   220#
PNTCI	   218#
PNTCIF	   219#
PNTCW	   254#
PNTCWF	   255#
PNTDCF	   247#
PNTDEC	   246#
PNTDS	   248#
PNTDSF	   249#
PNTHW	   242#
PNTHWF	   243#
PNTMGN	   333#
PNTMSF	   215#
PNTMSG	   214#
PNTNM	   250#
PNTOCF	   245#                                                                                                            SEQ 0137
PNTOCS	   244#
PNTOCT	   240#
PNTOTF	   241#
PNTSIX	   251#
PNTSXF	   252#
PSIXL	   212#
PSIXLF	   213#
PSIXM	   216#
PSIXMF	   217#
PSP	   258#
PSPF	   259#
PUT	   170#
REPTUO	   347#
RTN	   169#	   465
S	    99#	   101	   105	   134	   136	   145	   148	   163	   164	   166	   177	   179	   183	   185
	   190	   194	   339	   341	   375	   380	   386	   413	   415	   433	   435	   453	   455	   484
	   486	   504	   506	   524	   526	   534	   536	   557	   562	   588	   590	   597	   599	   605
	   607	   613	   615	   619	   621	   626	   628	   632	   634	   638	   640	   646	   648	   651
	   653	   657	   659	   663	   665	   669	   671	   675	   677	   682	   687	   691	   693
SFLAG	    93#	   911	   930	   948	   969	   987	  1007	  1350	  1354	  1370	  1385	  1403	  1420
SIXBTZ	   275#
STOP	    84#	   919	   938	   957	   977	   996	  1016	  1030	  1051	  1068	  1081	  1096	  1108	  1121
	  1134	  1149	  1163	  1179	  1194	  1210	  1224	  1240	  1252	  1264	  1277	  1293	  1307	  1321
	  1336	  1360	  1376	  1393	  1410	  1426	  1449	  1453	  1470	  1474	  1488	  1492	  1506	  1521
	  1525	  1542	  1547	  1566	  1570	  1587	  1592	  1611	  1615	  1628	  1641	  1655	  1659	  1676
	  1680	  1696	  1700	  1716	  1732	  1736	  1752	  1757	  1774	  1778	  1794	  1799	  1819	  1834
	  1848	  1862	  1875	  1890	  1903	  1917	  1930	  1945	  1958	  1972	  1985	  2000	  2013	  2028
	  2042	  2056	  2074	  2088	  2103	  2118	  2131	  2145	  2160	  2172	  2184	  2197	  2208	  2220
	  2237	  2241	  2258	  2262	  2277	  2281	  2298	  2302	  2317	  2321	  2338	  2342	  2357	  2361
	  2377	  2381	  2397	  2401	  2417	  2421	  2436	  2440	  2456	  2460	  2476	  2480	  2496	  2500
	  2515	  2519	  2535	  2539	  2555	  2559	  2575	  2579	  2595	  2599	  2616	  2620	  2635	  2639
	  2661	  2665	  2669	  2689	  2694	  2698	  2720	  2724	  2728	  2747	  2751	  2755	  2775	  2779
	  2783	  2801	  2805	  2809	  2829	  2833	  2837	  2855	  2859	  2863	  2882	  2886	  2890	  2909
	  2913	  2917	  2936	  2940	  2944	  2962	  2966	  2970	  2989	  2993	  2997	  3016	  3020	  3024
	  3043	  3047	  3051	  3069	  3073	  3077	  3096	  3100	  3104	  3123	  3127	  3131	  3150	  3154
	  3158	  3177	  3181	  3185	  3205	  3209	  3213	  3231	  3235	  3239	  3258	  3262	  3278	  3282
	  3298	  3302	  3319	  3323	  3338	  3342	  3359	  3363	  3378	  3382	  3398	  3402	  3418	  3422
	  3438	  3442	  3457	  3461	  3477	  3481	  3497	  3501	  3517	  3521	  3536	  3540	  3556	  3560
	  3576	  3580	  3595	  3599	  3616	  3620	  3636	  3640	  3656	  3660	  3682	  3686	  3690	  3710
	  3714	  3718	  3738	  3743	  3747	  3770	  3774	  3778	  3799	  3803	  3807	  3825	  3829	  3833
	  3854	  3858	  3862	  3880	  3884	  3888	  3907	  3911	  3915	  3934	  3938	  3942	  3961	  3965
	  3969	  3986	  3990	  3994	  4013	  4017	  4021	  4040	  4044	  4048	  4067	  4071	  4075	  4093
	  4097	  4101	  4120	  4124	  4128	  4147	  4151	  4155	  4174	  4178	  4182	  4201	  4205	  4209
	  4229	  4233	  4237	  4255	  4259	  4263
SWITCH	   281#
TTALTM	   203#
TTICHR	   196#
TTICNV	   201#
TTIDEC	   200#
TTINO	   198#
TTIOCT	   199#
TTIYES	   197#
TTLOOK	   202#                                                                                                            SEQ 0138
TTSIXB	   204#
TTYINP	   205#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC                                                         SEQ 0139
DBKAE	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 0140
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 0141
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 200040033472 *            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,033472

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

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

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

*030721  JRST	0,030741

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

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

*030741  JRST	0,030742

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

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

*030742  MOVSI	1,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030742 030742 030742 205040200000 254000030742 000000030742     000000030714 254000030742 0            0   0   777 
IT1	*      *      200000 *            205040200000 *                000001000001 *            0            0   0   *   
ET2	*      *      030743 *            000001000001 000000200000     *            *            0            0   0   *   
ST1	030743 030743 *      255740030744 777777777777 200000000000     200000000000 *            0            0   0   *   

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

*030743  JFCL	17,030744

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030743 030743 030743 255740030744 777777777777 200000000000     200000000000 254000030742 0            0   0   777 
IT1	*      *      030744 *            255740030744 *                000000000000 *            0            0   0   *   SEQ 0145
ET2	*      *      *      *            777777777777 000000030744     0            *            0            0   0   *   

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

*030744  JRST	2,030745(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030744 030744 030744 254101030745 777777777777 000000030744     0            254000030742 0            0   0   777 
IT1	*      *      030745 *            200000030745 *                200000000000 *            0            0   0   *   
FT6	*      *      *      *            *            200000030745     000000000000 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                0            *            0            0   0   *   
ST1	030744 *      030745 *            200000030745 000000030745     0            200000030745 0            0   0   *   

FLAGS - INT/FINAL   000000 200000 
INITIAL
E    =000000 030745 
----------

*030745  SETZM	0,030747

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030745 030745 030745 402000030747 777777777777 000000030745     0            200000030745 0            0   0   777 
IT1	*      *      030747 *            402000030747 *                000000030714 *            0            0   0   *   
MEMST	*      *      *      *            *            000000030747     *            *            0            0   0   *   
FT6	*      030747 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	030746 030746 030746 264000030747 *            0                *            *            0            0   0   *   

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

*030746  JSR	0,030747

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030746 030746 030746 264000030747 777777777777 0                000000030714 200000030745 0            0   0   777 
IT1	*      *      030747 *            264000030747 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030747     *            *            0            0   0   *   
FT6	*      030747 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	030747 *      030750 *            *            200000030747     *            *            0            0   0   *   
ST2	*      *      *      200000030747 *            *                *            *            0            0   0   *   
ST5	030750 030750 *      336000030747 *            *                *            *            0            0   0   *   

FLAGS - INT/FINAL   200000 200000 
INITIAL
C(E) =000000 000000 
FINAL
C(E) =200000 030747 
----------
*030750  SKIPN	0,030747                                                                                                   SEQ 0146

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030750 030750 030750 336000030747 777777777777 200000030747     000000030714 200000030745 0            0   0   777 
IT1	*      *      030747 *            336000030747 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030747     *            *            0            0   0   *   
FT6	*      030747 *      200000030747 777777777777 200000030747     *            *            0            0   0   *   
ET0	*      *      030751 *            200000030747 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	030751 *      030752 *            777777777777 *                *            *            0            0   0   *   

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

*030752  JUMPA	0,030753

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

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

*030753  MOVSI	1,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030753 030753 030753 205040200000 777777777777 000000030714     000000030714 000000030753 0            0   0   777 
IT1	*      *      200000 *            205040200000 *                200000000000 *            0            0   0   *   
ET2	*      *      030754 *            200000000000 000000200000     *            *            0            0   0   *   
ST1	030754 030754 *      255740030755 777777777777 200000000000     *            *            0            0   0   *   

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

*030754  JFCL	17,030755

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030754 030754 030754 255740030755 777777777777 200000000000     200000000000 000000030753 0            0   0   777 
IT1	*      *      030755 *            255740030755 *                000000000000 *            0            0   0   *   
ET2	030755 030755 *      254101030756 777777777777 000000030755     0            *            0            0   0   *   

FLAGS - INT/FINAL   200000 000000 
INITIAL
E    =000000 030755 
----------

*030755  JRST	2,030756(1)
                                                                                                                           SEQ 0147
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030755 030755 030755 254101030756 777777777777 000000030755     0            000000030753 0            0   0   777 
IT1	*      *      030756 *            200000030756 *                200000000000 *            0            0   0   *   
FT6	*      *      *      *            *            200000030756     000000000000 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                0            *            0            0   0   *   
ST1	030755 *      030756 *            200000030756 000000030756     0            200000030756 0            0   0   *   

FLAGS - INT/FINAL   000000 200000 
INITIAL
E    =000000 030756 
----------

*030756  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030756 030756 030756 474040000000 777777777777 000000030756     0            200000030756 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                200000000000 *            0            0   0   *   
ET2	*      *      030757 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	030757 030757 *      264040030760 *            777777777777     777777777777 *            0            0   0   *   

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

*030757  JSR	1,030760

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030757 030757 030757 264040030760 777777777777 777777777777     777777777777 200000030756 0            0   0   777 
IT1	*      *      030760 *            264040030760 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030760     *            *            0            0   0   *   
FT6	*      030760 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	030760 *      030761 *            *            200000030760     *            *            0            0   0   *   
ST2	*      *      *      200000030760 *            *                *            *            0            0   0   *   
ST5	030761 030761 *      312040033474 *            *                *            *            0            0   0   *   

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

*030761  CAME	1,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030761 030761 030761 312040033474 777777777777 200000030760     777777777777 200000030756 0            0   0   777 
IT1	*      *      033474 *            312040033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      030762 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	030762 *      030763 *            777777777777 *                *            *            0            0   0   *   

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

*030763  JUMPA	0,030764

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

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

*030764  MOVSI	1,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030764 030764 030764 205040200000 777777777777 000000030714     000000030714 000000030764 0            0   0   777 
IT1	*      *      200000 *            205040200000 *                777777777777 *            0            0   0   *   
ET2	*      *      030765 *            777777777777 000000200000     *            *            0            0   0   *   
ST1	030765 030765 *      255740030766 *            200000000000     200000000000 *            0            0   0   *   

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

*030765  JFCL	17,030766

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030765 030765 030765 255740030766 777777777777 200000000000     200000000000 000000030764 0            0   0   777 
IT1	*      *      030766 *            255740030766 *                000000000000 *            0            0   0   *   
ET2	030766 030766 *      254101030767 777777777777 000000030766     0            *            0            0   0   *   

FLAGS - INT/FINAL   200000 000000 
INITIAL
E    =000000 030766 
----------

*030766  JRST	2,030767(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030766 030766 030766 254101030767 777777777777 000000030766     0            000000030764 0            0   0   777 
IT1	*      *      030767 *            200000030767 *                200000000000 *            0            0   0   *   
FT6	*      *      *      *            *            200000030767     000000000000 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                0            *            0            0   0   *   
ST1	030766 *      030767 *            200000030767 000000030767     0            200000030767 0            0   0   *   

FLAGS - INT/FINAL   000000 200000 
INITIAL
E    =000000 030767 
----------

*030767  SETZM	0,030771
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0149
IT0	030767 030767 030767 402000030771 777777777777 000000030767     0            200000030767 0            0   0   777 
IT1	*      *      030771 *            402000030771 *                000000030714 *            0            0   0   *   
MEMST	*      *      *      *            *            000000030771     *            *            0            0   0   *   
FT6	*      030771 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	030770 030770 030770 264000030771 *            0                *            *            0            0   0   *   

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

*030770  JSR	0,030771

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030770 030770 030770 264000030771 777777777777 0                000000030714 200000030767 0            0   0   777 
IT1	*      *      030771 *            264000030771 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030771     *            *            0            0   0   *   
FT6	*      030771 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	030771 *      030772 *            *            200000030771     *            *            0            0   0   *   
ST2	*      *      *      200000030771 *            *                *            *            0            0   0   *   
ST5	030772 030772 *      510000030771 *            *                *            *            0            0   0   *   

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

*030772  HLLZ 	0,030771

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030772 030772 030772 510000030771 777777777777 200000030771     000000030714 200000030767 0            0   0   777 
IT1	*      *      030771 *            510000030771 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030771     *            *            0            0   0   *   
FT6	030773 030773 030773 336000000000 777777777777 200000030771     *            *            0            0   0   *   
ET2	*      *      *      *            200000777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 200000000000     200000000000 *            0            0   0   *   

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

*030773  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030773 030773 030773 336000000000 777777777777 200000000000     200000000000 200000030767 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 200000000000     *            *            0            0   0   *   
ET0	*      0      030774 *            200000000000 *                *            *            0            0   0   *   SEQ 0150
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030774 0      030775 *            777777777777 *                *            *            0            0   0   *   

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

*030775  JUMPA	0,030776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030775 030775 030775 324000030776 777777777777 200000000000     200000000000 200000030767 0            0   0   777 
IT1	*      *      030776 *            324000030776 *                *            *            0            0   0   *   
ET0	*      *      000000 *            200000000000 000000030776     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      030776 *            000000030776 200000000000     *            000000030776 0            0   0   *   

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

*030776  MOVSI	1,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030776 030776 030776 205040200000 777777777777 200000000000     200000000000 000000030776 0            0   0   777 
IT1	*      *      200000 *            205040200000 *                *            *            0            0   0   *   
ET2	*      *      030777 *            200000000000 000000200000     *            *            0            0   0   *   
ST1	030777 030777 *      255740031000 777777777777 200000000000     *            *            0            0   0   *   

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

*030777  JFCL	17,031000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030777 030777 030777 255740031000 777777777777 200000000000     200000000000 000000030776 0            0   0   777 
IT1	*      *      031000 *            255740031000 *                000000000000 *            0            0   0   *   
ET2	031000 031000 *      254101031001 777777777777 000000031000     0            *            0            0   0   *   

FLAGS - INT/FINAL   200000 000000 
INITIAL
E    =000000 031000 
----------

*031000  JRST	2,031001(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031000 031000 031000 254101031001 777777777777 000000031000     0            000000030776 0            0   0   777 
IT1	*      *      031001 *            200000031001 *                200000000000 *            0            0   0   *   
FT6	*      *      *      *            *            200000031001     000000000000 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                0            *            0            0   0   *   
ST1	031000 *      031001 *            200000031001 000000031001     0            200000031001 0            0   0   *   
                                                                                                                           SEQ 0151
FLAGS - INT/FINAL   000000 200000 
INITIAL
E    =000000 031001 
----------

*031001  SETZB	0,031003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031001 031001 031001 403000031003 777777777777 000000031001     0            200000031001 0            0   0   777 
IT1	*      *      031003 *            403000031003 *                200000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031003     *            *            0            0   0   *   
FT6	*      031003 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                0            *            0            0   0   *   
ST5	031002 031002 031002 264000031003 *            0                0            *            0            0   0   *   

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

*031002  JSR	0,031003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031002 031002 031002 264000031003 777777777777 0                0            200000031001 0            0   0   777 
IT1	*      *      031003 *            264000031003 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031003     0            *            0            0   0   *   
FT6	*      031003 *      *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031003 *      031004 *            *            200000031003     0            *            0            0   0   *   
ST2	*      *      *      200000031003 *            *                0            *            0            0   0   *   
ST5	031004 031004 *      332000000000 *            *                0            *            0            0   0   *   

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

*031004  SKIPE	0,000000

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

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

*031006  JUMPA	0,031007

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

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

*031007  MOVSI	1,200000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031007 031007 031007 205040200000 777777777777 0                0            000000031007 0            0   0   777 
IT1	*      *      200000 *            205040200000 0                200000000000 *            0            0   0   *   
ET2	*      *      031010 *            200000000000 000000200000     *            *            0            0   0   *   
ST1	031010 031010 *      255740031011 777777777777 200000000000     *            *            0            0   0   *   

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

*031010  JFCL	17,031011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031010 031010 031010 255740031011 777777777777 200000000000     200000000000 000000031007 0            0   0   777 
IT1	*      *      031011 *            255740031011 *                000000000000 *            0            0   0   *   
ET2	031011 031011 *      254101031012 777777777777 000000031011     0            *            0            0   0   *   

FLAGS - INT/FINAL   200000 000000 
INITIAL
E    =000000 031011 
----------

*031011  JRST	2,031012(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031011 031011 031011 254101031012 777777777777 000000031011     0            000000031007 0            0   0   777 
IT1	*      *      031012 *            200000031012 *                200000000000 *            0            0   0   *   
FT6	*      *      *      *            *            200000031012     000000000000 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                0            *            0            0   0   *   
ST1	031011 *      031012 *            200000031012 000000031012     0            200000031012 0            0   0   *   

FLAGS - INT/FINAL   000000 200000 
INITIAL
E    =000000 031012 
----------

*031012  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031012 031012 031012 400000000000 777777777777 000000031012     0            200000031012 0            0   0   77  SEQ 0153
IT1	*      *      000000 *            400000000000 *                0            *            0            0   0   *   
ET2	*      *      031013 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	031013 031013 *      264000031015 777777777777 0                0            *            0            0   0   *   

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

*031013  JSR	0,031015

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031013 031013 031013 264000031015 777777777777 0                0            200000031012 0            0   0   777 
IT1	*      *      031015 *            264000031015 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031015     0            *            0            0   0   *   
FT6	*      031015 *      *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031015 *      031016 *            *            200000031014     0            *            0            0   0   *   
ST2	*      *      *      200000031014 *            *                0            *            0            0   0   *   
ST5	031016 031016 *      332000000000 *            *                0            *            0            0   0   *   

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

*031016  SKIPE	0,000000

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

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

*031020  JUMPA	0,031021

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031020 031020 031020 324000031021 777777777777 0                0            200000031012 0            0   0   777 
IT1	*      *      031021 *            324000031021 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031021     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031021 *            000000031021 000000000000     0            000000031021 0            0   0   *   

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

*031021  MOVSI	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031021 031021 031021 205040000000 777777777777 0                0            000000031021 0            0   0   777 
IT1	*      *      000000 *            205040000000 0                200000000000 *            0            0   0   *   
ET2	*      *      031022 *            200000000000 0                *            *            0            0   0   *   
ST1	031022 031022 *      255740031023 777777777777 0                000000000000 *            0            0   0   *   

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

*031022  JFCL	17,031023

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031022 031022 031022 255740031023 777777777777 0                0            000000031021 0            0   0   777 
IT1	*      *      031023 *            255740031023 0                0            *            0            0   0   *   
ET2	031023 031023 *      254101031024 777777777777 000000031023     0            *            0            0   0   *   

FLAGS - INT/FINAL   200000 000000 
INITIAL
E    =000000 031023 
----------

*031023  JRST	2,031024(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031023 031023 031023 254101031024 777777777777 000000031023     0            000000031021 0            0   0   777 
IT1	*      *      031024 *            000000031024 *                0            *            0            0   0   *   
FT6	*      *      *      *            *            000000031024     0            *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                0            *            0            0   0   *   
ST1	*      *      031024 *            000000031024 *                0            000000031024 0            0   0   *   

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

*031024  JSR	0,031026

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031024 031024 031024 264000031026 777777777777 000000031024     0            000000031024 0            0   0   777 
IT1	*      *      031026 *            264000031026 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031026     0            *            0            0   0   *   
FT6	*      031026 *      *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031026 *      031027 *            *            000000031025     0            *            0            0   0   *   
ST2	*      *      *      000000031025 *            *                0            *            0            0   0   *   
ST5	031027 031027 *      550000031026 *            *                0            *            0            0   0   *   

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

*031027  HRRZ 	0,031026

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031027 031027 031027 550000031026 777777777777 000000031025     0            000000031024 0            0   0   777 
IT1	*      *      031026 *            550000031026 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031026     0            *            0            0   0   *   
FT6	031030 031030 031030 306000031026 777777777777 000000031025     0            *            0            0   0   *   
ET2	*      *      *      *            777777031025 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000031025 *            0            0   0   *   

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

*031030  CAIN	0,031026

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031030 031030 031030 306000031026 777777777777 000000031025     000000031025 000000031024 0            0   0   777 
IT1	*      *      031026 *            306000031026 *                *            *            0            0   0   *   
ET0	*      *      031031 *            777777777777 000000031026     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031031 *      031032 *            *            *                *            *            0            0   0   *   

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

*031032  JUMPA	0,031033

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031032 031032 031032 324000031033 777777777777 000000031026     000000031025 000000031024 0            0   0   777 
IT1	*      *      031033 *            324000031033 *                *            *            0            0   0   *   
ET0	*      *      031025 *            000000031025 000000031033     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031033 *            000000031033 000000031025     *            000000031033 0            0   0   *   

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

*031033  JSR	0,031035

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031033 031033 031033 264000031035 777777777777 000000031025     000000031025 000000031033 0            0   0   777 
IT1	*      *      031035 *            264000031035 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031035     *            *            0            0   0   *   
FT6	*      031035 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031035 *      031036 *            *            000000031034     *            *            0            0   0   *   
ST2	*      *      *      000000031034 *            *                *            *            0            0   0   *   
ST5	031036 031036 *      550000031035 *            *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0156
INITIAL
C(E) =000000 000000 
FINAL
C(E) =000000 031034 
----------

*031036  HRRZ 	0,031035

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031036 031036 031036 550000031035 777777777777 000000031034     000000031025 000000031033 0            0   0   777 
IT1	*      *      031035 *            550000031035 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031035     *            *            0            0   0   *   
FT6	031037 031037 031037 302000031034 777777777777 000000031034     *            *            0            0   0   *   
ET2	*      *      *      *            777777031034 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000031034 *            0            0   0   *   

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

*031037  CAIE	0,031034

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031037 031037 031037 302000031034 777777777777 000000031034     000000031034 000000031033 0            0   0   777 
IT1	*      *      031034 *            302000031034 *                *            *            0            0   0   *   
ET0	*      *      031040 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031040 *      031041 *            777777777777 *                *            *            0            0   0   *   

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

*031041  JUMPA	0,031042

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031041 031041 031041 324000031042 777777777777 000000031034     000000031034 000000031033 0            0   0   777 
IT1	*      *      031042 *            324000031042 *                *            *            0            0   0   *   
ET0	*      *      031034 *            000000031034 000000031042     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031042 *            000000031042 000000031034     *            000000031042 0            0   0   *   

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

*031042  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031042 031042 031042 400040000000 777777777777 000000031034     000000031034 000000031042 0            0   0   777 
IT1	*      *      000000 *            400040000000 *                000000000000 *            0            0   0   *   
ET2	*      *      031043 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	031043 031043 *      200000033475 777777777777 0                0            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0157
INITIAL
C(AC)=000000 000000 C(E) =000000 031034 
FINAL
C(AC)=000000 000000 
----------

*031043  MOVE 	0,033475

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031043 031043 031043 200000033475 777777777777 0                0            000000031042 0            0   0   777 
IT1	*      *      033475 *            200000033475 0                000000031034 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033475     *            *            0            0   0   *   
FT6	031044 031044 031044 266000031046 777777777777 310000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000031034 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                310000000000 *            0            0   0   *   

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

*031044  JSA	0,031046

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031044 031044 031044 266000031046 777777777777 310000000000     310000000000 000000031042 0            0   0   777 
IT1	*      *      031046 *            266000031046 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031046     *            *            0            0   0   *   
FT6	*      031046 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031046 *                *            *            0            0   0   *   
ET2	031046 *      031047 *            310000000000 031046031045     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 310000000000     031046031045 031046031045 0            0   0   *   
ST2	*      *      *      310000000000 *            *                *            *            0            0   0   *   
ST5	031047 031047 *      332000000001 *            *                *            *            0            0   0   *   

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

*031047  SKIPE	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031047 031047 031047 332000000001 777777777777 310000000000     031046031045 031046031045 0            0   0   777 
IT1	*      *      000001 *            332000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      031050 *            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      *            0            0                *            *            0            0   0   *   
ST1	031050 *      031051 *            777777777777 0                *            *            0            0   0   *   

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

*031051  JUMPA	0,031052

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

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

*031052  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031052 031052 031052 400040000000 777777777777 031046031045     031046031045 000000031052 0            0   0   777 
IT1	*      *      000000 *            400040000000 *                000000000000 *            0            0   0   *   
ET2	*      *      031053 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	031053 031053 *      200000033476 777777777777 0                0            *            0            0   0   *   

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

*031053  MOVE 	0,033476

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031053 031053 031053 200000033476 777777777777 0                0            000000031052 0            0   0   777 
IT1	*      *      033476 *            200000033476 0                031046031045 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033476     *            *            0            0   0   *   
FT6	031054 031054 031054 266000031055 777777777777 201040001234     *            *            0            0   0   *   
ET2	*      *      *      *            031046031045 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                201040001234 *            0            0   0   *   

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

*031054  JSA	0,031055

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031054 031054 031054 266000031055 777777777777 201040001234     201040001234 000000031052 0            0   0   777 
IT1	*      *      031055 *            266000031055 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031055     *            *            0            0   0   *   
FT6	*      031055 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031055 *                *            *            0            0   0   *   
ET2	031055 *      031056 *            201040001234 031055031055     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 201040001234     031055031055 031055031055 0            0   0   *   
ST2	*      *      *      201040001234 *            *                *            *            0            0   0   *   
ST5	031056 031056 *      306040001234 *            *                *            *            0            0   0   *   
                                                                                                                           SEQ 0159
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=201040 001234 C(E) =000000 000000 
FINAL
C(AC)=031055 031055 C(E) =201040 001234 
----------

*031056  CAIN	1,001234

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031056 031056 031056 306040001234 777777777777 201040001234     031055031055 031055031055 0            0   0   777 
IT1	*      *      001234 *            306040001234 *                000000000000 *            0            0   0   *   
ET0	*      *      031057 *            777777776544 000000001234     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031057 *      031060 *            777777777777 *                0            *            0            0   0   *   

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

*031060  JUMPA	0,031061

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

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

*031061  JSA	0,031063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031061 031061 031061 266000031063 777777777777 031055031055     031055031055 000000031061 0            0   0   777 
IT1	*      *      031063 *            266000031063 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031063     *            *            0            0   0   *   
FT6	*      031063 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031063 *                *            *            0            0   0   *   
ET2	031063 *      031064 *            031055031055 031063031062     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 031055031055     031063031062 031063031062 0            0   0   *   
ST2	*      *      *      031055031055 *            *                *            *            0            0   0   *   
ST5	031064 031064 *      552000000001 *            *                *            *            0            0   0   *   

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

*031064  HRRZM	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031064 031064 031064 552000000001 777777777777 031055031055     031063031062 031063031062 0            0   0   777 
IT1	*      *      000001 *            552000000001 *                *            *            0            0   0   *   SEQ 0160
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031065 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            031063031062 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777031062 031063031062     *            000000000001 0            0   0   *   
ST1	*      *      *      *            777777777777 000000031062     *            *            0            0   0   *   
ST2	*      *      *      000000031062 *            *                000000000000 *            0            0   0   *   
ST5	031065 031065 *      306040031063 *            *                031063031062 *            0            0   0   *   

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

*031065  CAIN	1,031063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031065 031065 031065 306040031063 777777777777 000000031062     031063031062 000000000001 0            0   0   777 
IT1	*      *      031063 *            306040031063 *                000000031062 *            0            0   0   *   
ET0	*      *      031066 *            777777777777 000000031063     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031066 *      031067 *            *            *                *            *            0            0   0   *   

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

*031067  JUMPA	0,031070

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031067 031067 031067 324000031070 777777777777 000000031063     000000031062 000000000001 0            0   0   777 
IT1	*      *      031070 *            324000031070 *                031063031062 *            0            0   0   *   
ET0	*      *      031062 *            031063031062 000000031070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031070 *            000000031070 031063031062     *            000000031070 0            0   0   *   

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

*031070  SETZB	0,031072

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031070 031070 031070 403000031072 777777777777 031063031062     031063031062 000000031070 0            0   0   777 
IT1	*      *      031072 *            403000031072 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031072     *            *            0            0   0   *   
FT6	*      031072 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                0            *            0            0   0   *   
ST5	031071 031071 031071 266000031072 *            0                0            *            0            0   0   *   

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

*031071  JSA	0,031072

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031071 031071 031071 266000031072 777777777777 0                0            000000031070 0            0   0   777 
IT1	*      *      031072 *            266000031072 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031072     0            *            0            0   0   *   
FT6	*      031072 *      *            777777777777 *                0            *            0            0   0   *   
ET0	*      *      *      *            000000031072 *                0            *            0            0   0   *   
ET2	031072 *      031073 *            000000000000 031072031072     0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     031072031072 031072031072 0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	031073 031073 *      200040031072 *            0                *            *            0            0   0   *   

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

*031073  MOVE 	1,031072

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031073 031073 031073 200040031072 777777777777 0                031072031072 031072031072 0            0   0   777 
IT1	*      *      031072 *            200040031072 0                000000031062 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031072     *            *            0            0   0   *   
FT6	031074 031074 031074 306040031072 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000031062 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031074  CAIN	1,031072

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031074 031074 031074 306040031072 777777777777 0                0            031072031072 0            0   0   777 
IT1	*      *      031072 *            306040031072 0                0            *            0            0   0   *   
ET0	*      *      031075 *            777777746706 000000031072     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031075 *      031076 *            777777777777 *                0            *            0            0   0   *   

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

*031076  JUMPA	0,031077

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031076 031076 031076 324000031077 777777777777 000000031072     0            031072031072 0            0   0   777 
IT1	*      *      031077 *            324000031077 *                031072031072 *            0            0   0   *   
ET0	*      *      031072 *            031072031072 000000031077     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   SEQ 0162
ST1	*      *      031077 *            000000031077 031072031072     *            000000031077 0            0   0   *   

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

*031077  MOVEI	0,777777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031077 031077 031077 201000777777 777777777777 031072031072     031072031072 000000031077 0            0   0   777 
IT1	*      *      777777 *            201000777777 *                *            *            0            0   0   *   
ET2	*      *      031100 *            031072031072 000000777777     *            *            0            0   0   *   
ST1	031100 031100 *      266000031101 777777777777 *                000000777777 *            0            0   0   *   

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

*031100  JSA	0,031101

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031100 031100 031100 266000031101 777777777777 000000777777     000000777777 000000031077 0            0   0   777 
IT1	*      *      031101 *            266000031101 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031101     *            *            0            0   0   *   
FT6	*      031101 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031101 *                *            *            0            0   0   *   
ET2	031101 *      031102 *            000000777777 031101031101     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000777777     031101031101 031101031101 0            0   0   *   
ST2	*      *      *      000000777777 *            *                *            *            0            0   0   *   
ST5	031102 031102 *      606000777777 *            *                *            *            0            0   0   *   

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

*031102  TRNN	0,777777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031102 031102 031102 606000777777 777777777777 000000777777     031101031101 031101031101 0            0   0   777 
IT1	*      *      777777 *            606000777777 *                *            *            0            0   0   *   
ET1	*      *      031103 *            000000031101 *                *            *            0            0   0   *   
ET2	031103 *      031104 *            777777777777 *                *            000000777777 0            0   0   *   

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

*031104  JUMPA	0,031105
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0163
IT0	031104 031104 031104 324000031105 777777777777 777777777777     031101031101 000000777777 0            0   0   777 
IT1	*      *      031105 *            324000031105 *                *            *            0            0   0   *   
ET0	*      *      031101 *            031101031101 000000031105     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031105 *            000000031105 031101031101     *            000000031105 0            0   0   *   

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

*031105  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031105 031105 031105 400000000000 777777777777 031101031101     031101031101 000000031105 0            0   0   777 
IT1	*      *      000000 *            400000000000 *                *            *            0            0   0   *   
ET2	*      *      031106 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	031106 031106 *      266000031107 777777777777 0                000000000000 *            0            0   0   *   

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

*031106  JSA	0,031107

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031106 031106 031106 266000031107 777777777777 0                0            000000031105 0            0   0   777 
IT1	*      *      031107 *            266000031107 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031107     0            *            0            0   0   *   
FT6	*      031107 *      *            777777777777 *                0            *            0            0   0   *   
ET0	*      *      *      *            000000031107 *                0            *            0            0   0   *   
ET2	031107 *      031110 *            000000000000 031107031107     0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     031107031107 031107031107 0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	031110 031110 *      606000777777 *            0                *            *            0            0   0   *   

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

*031110  TRNN	0,777777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031110 031110 031110 606000777777 777777777777 0                031107031107 031107031107 0            0   0   777 
IT1	*      *      777777 *            606000777777 0                *            *            0            0   0   *   
ET1	*      *      031111 *            000000031107 000000777777     *            *            0            0   0   *   
ET2	031111 *      031112 *            777777777777 *                *            000000777777 0            0   0   *   

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

*031112  JUMPA	0,031113

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031112 031112 031112 324000031113 777777777777 777777777777     031107031107 000000777777 0            0   0   777 
IT1	*      *      031113 *            324000031113 *                *            *            0            0   0   *   
ET0	*      *      031107 *            031107031107 000000031113     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031113 *            000000031113 031107031107     *            000000031113 0            0   0   *   

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

*031113  JSA	0,031115

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031113 031113 031113 266000031115 777777777777 031107031107     031107031107 000000031113 0            0   0   777 
IT1	*      *      031115 *            266000031115 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031115     *            *            0            0   0   *   
FT6	*      031115 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031115 *                *            *            0            0   0   *   
ET2	031115 *      031116 *            031107031107 031115031114     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 031107031107     031115031114 031115031114 0            0   0   *   
ST2	*      *      *      031107031107 *            *                *            *            0            0   0   *   
ST5	031116 031116 *      556000000001 *            *                *            *            0            0   0   *   

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

*031116  HLRZM	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031116 031116 031116 556000000001 777777777777 031107031107     031115031114 031115031114 0            0   0   777 
IT1	*      *      000001 *            556000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031117 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            031115031114 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 031115031114     *            000000000001 0            0   0   *   
ST1	*      *      *      *            *            000000031115     *            *            0            0   0   *   
ST2	*      *      *      000000031115 *            *                000000000000 *            0            0   0   *   
ST5	031117 031117 *      306040031114 *            *                031115031114 *            0            0   0   *   

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

*031117  CAIN	1,031114

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031117 031117 031117 306040031114 777777777777 000000031115     031115031114 000000000001 0            0   0   777 
IT1	*      *      031114 *            306040031114 *                000000031115 *            0            0   0   *   SEQ 0165
ET0	*      *      031120 *            000000000001 000000031114     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031120 *      031121 *            777777777777 *                *            *            0            0   0   *   

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

*031121  JUMPA	0,031122

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031121 031121 031121 324000031122 777777777777 000000031114     000000031115 000000000001 0            0   0   777 
IT1	*      *      031122 *            324000031122 *                031115031114 *            0            0   0   *   
ET0	*      *      031114 *            031115031114 000000031122     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031122 *            000000031122 031115031114     *            000000031122 0            0   0   *   

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

*031122  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031122 031122 031122 474000000000 777777777777 031115031114     031115031114 000000031122 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                *            *            0            0   0   *   
ET2	*      *      031123 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031123 031123 *      266000031125 *            777777777777     777777777777 *            0            0   0   *   

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

*031123  JSA	0,031125

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031123 031123 031123 266000031125 777777777777 777777777777     777777777777 000000031122 0            0   0   777 
IT1	*      *      031125 *            266000031125 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031125     *            *            0            0   0   *   
FT6	*      031125 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031125 *                *            *            0            0   0   *   
ET2	031125 *      031126 *            777777777777 031125031124     *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     031125031124 031125031124 0            0   0   *   
ST2	*      *      *      777777777777 *            *                *            *            0            0   0   *   
ST5	031126 031126 *      312000033477 *            *                *            *            0            0   0   *   

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

*031126  CAME	0,033477
                                                                                                                           SEQ 0166
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031126 031126 031126 312000033477 777777777777 777777777777     031125031124 031125031124 0            0   0   777 
IT1	*      *      033477 *            312000033477 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033477     *            *            0            0   0   *   
FT6	*      033477 *      031125031124 777777777777 031125031124     *            *            0            0   0   *   
ET0	*      *      031127 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031127 *      031130 *            777777777777 *                *            *            0            0   0   *   

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

*031130  JUMPA	0,031131

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031130 031130 031130 324000031131 777777777777 031125031124     031125031124 031125031124 0            0   0   777 
IT1	*      *      031131 *            324000031131 *                *            *            0            0   0   *   
ET0	*      *      031124 *            031125031124 000000031131     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031131 *            000000031131 031125031124     *            000000031131 0            0   0   *   

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

*031131  SETZ 	0,000000

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

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

*031132  JSA	0,031134

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031132 031132 031132 266000031134 777777777777 0                0            000000031131 0            0   0   777 
IT1	*      *      031134 *            266000031134 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031134     0            *            0            0   0   *   
FT6	*      031134 *      *            777777777777 *                0            *            0            0   0   *   
ET0	*      *      *      *            000000031134 *                0            *            0            0   0   *   
ET2	031134 *      031135 *            000000000000 031134031133     0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     031134031133 031134031133 0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	031135 031135 *      312000033500 *            0                *            *            0            0   0   *   

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

*031135  CAME	0,033500

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031135 031135 031135 312000033500 777777777777 0                031134031133 031134031133 0            0   0   777 
IT1	*      *      033500 *            312000033500 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033500     *            *            0            0   0   *   
FT6	*      033500 *      031134031133 777777777777 031134031133     *            *            0            0   0   *   
ET0	*      *      031136 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031136 *      031137 *            777777777777 *                *            *            0            0   0   *   

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

*031137  JUMPA	0,031140

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

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

*031140  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031140 031140 031140 400000000000 777777777777 031134031133     031134031133 000000031140 0            0   0   777 
IT1	*      *      000000 *            400000000000 *                *            *            0            0   0   *   
ET2	*      *      031141 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	031141 031141 *      476000031143 777777777777 0                000000000000 *            0            0   0   *   

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

*031141  SETOM	0,031143

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031141 031141 031141 476000031143 777777777777 0                0            000000031140 0            0   0   777 
IT1	*      *      031143 *            476000031143 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031143     0            *            0            0   0   *   
FT6	*      031143 *      *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                0            *            0            0   0   *   
ST5	031142 031142 031142 266000031143 *            *                0            *            0            0   0   *   
                                                                                                                           SEQ 0168
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(E) =777777 777777 
----------

*031142  JSA	0,031143

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031142 031142 031142 266000031143 777777777777 777777777777     0            000000031140 0            0   0   777 
IT1	*      *      031143 *            266000031143 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031143     0            *            0            0   0   *   
FT6	*      031143 *      *            777777777777 *                0            *            0            0   0   *   
ET0	*      *      *      *            000000031143 *                0            *            0            0   0   *   
ET2	031143 *      031144 *            000000000000 031143031143     0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     031143031143 031143031143 0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	031144 031144 *      332000031143 *            0                *            *            0            0   0   *   

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

*031144  SKIPE	0,031143

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031144 031144 031144 332000031143 777777777777 0                031143031143 031143031143 0            0   0   777 
IT1	*      *      031143 *            332000031143 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031143     *            *            0            0   0   *   
FT6	*      031143 *      000000000000 777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      031145 0            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      0            0            0                *            *            0            0   0   *   
ST1	031145 *      031146 0            777777777777 0                *            *            0            0   0   *   

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

*031146  JUMPA	0,031147

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031146 031146 031146 324000031147 777777777777 0                031143031143 031143031143 0            0   0   777 
IT1	*      *      031147 *            324000031147 0                *            *            0            0   0   *   
ET0	*      *      031143 *            031143031143 000000031147     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031147 *            000000031147 031143031143     *            000000031147 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=031143 031143 E    =000000 031147 
----------
*031147  SETOB	0,000001                                                                                                   SEQ 0169

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031147 031147 031147 477000000001 777777777777 031143031143     031143031143 000000031147 0            0   0   777 
IT1	*      *      000001 *            477000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031150 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000031115 *            0            0   0   *   
ST5	031150 031150 *      402000031152 *            *                777777777777 *            0            0   0   *   

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

*031150  SETZM	0,031152

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031150 031150 031150 402000031152 777777777777 777777777777     777777777777 000000031147 0            0   0   777 
IT1	*      *      031152 *            402000031152 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031152     *            *            0            0   0   *   
FT6	*      031152 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	031151 031151 031151 266000031152 *            0                *            *            0            0   0   *   

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

*031151  JSA	0,031152

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031151 031151 031151 266000031152 777777777777 0                777777777777 000000031147 0            0   0   777 
IT1	*      *      031152 *            266000031152 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031152     *            *            0            0   0   *   
FT6	*      031152 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031152 *                *            *            0            0   0   *   
ET2	031152 *      031153 *            777777777777 031152031152     *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     031152031152 031152031152 0            0   0   *   
ST2	*      *      *      777777777777 *            *                *            *            0            0   0   *   
ST5	031153 031153 *      312040031152 *            *                *            *            0            0   0   *   

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

*031153  CAME	1,031152
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0170
IT0	031153 031153 031153 312040031152 777777777777 777777777777     031152031152 031152031152 0            0   0   777 
IT1	*      *      031152 *            312040031152 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031152     *            *            0            0   0   *   
FT6	*      031152 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031154 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031154 *      031155 *            777777777777 *                *            *            0            0   0   *   

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

*031155  JUMPA	0,031156

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031155 031155 031155 324000031156 777777777777 777777777777     777777777777 031152031152 0            0   0   777 
IT1	*      *      031156 *            324000031156 *                031152031152 *            0            0   0   *   
ET0	*      *      031152 *            031152031152 000000031156     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031156 *            000000031156 031152031152     *            000000031156 0            0   0   *   

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

*031156  MOVEI	0,777777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031156 031156 031156 201000777777 777777777777 031152031152     031152031152 000000031156 0            0   0   777 
IT1	*      *      777777 *            201000777777 *                *            *            0            0   0   *   
ET2	*      *      031157 *            031152031152 000000777777     *            *            0            0   0   *   
ST1	031157 031157 *      266000031160 777777777777 *                000000777777 *            0            0   0   *   

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

*031157  JSA	0,031160

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031157 031157 031157 266000031160 777777777777 000000777777     000000777777 000000031156 0            0   0   777 
IT1	*      *      031160 *            266000031160 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031160     *            *            0            0   0   *   
FT6	*      031160 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031160 *                *            *            0            0   0   *   
ET2	031160 *      031161 *            000000777777 031160031160     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000777777     031160031160 031160031160 0            0   0   *   
ST2	*      *      *      000000777777 *            *                *            *            0            0   0   *   
ST5	031161 031161 *      200040031160 *            *                *            *            0            0   0   *   

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

*031161  MOVE 	1,031160

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031161 031161 031161 200040031160 777777777777 000000777777     031160031160 031160031160 0            0   0   777 
IT1	*      *      031160 *            200040031160 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031160     *            *            0            0   0   *   
FT6	031162 031162 031162 302040777777 777777777777 000000777777     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                000000777777 *            0            0   0   *   

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

*031162  CAIE	1,777777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031162 031162 031162 302040777777 777777777777 000000777777     000000777777 031160031160 0            0   0   777 
IT1	*      *      777777 *            302040777777 *                *            *            0            0   0   *   
ET0	*      *      031163 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031163 *      031164 *            777777777777 *                *            *            0            0   0   *   

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

*031164  JUMPA	0,031165

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031164 031164 031164 324000031165 777777777777 000000777777     000000777777 031160031160 0            0   0   777 
IT1	*      *      031165 *            324000031165 *                031160031160 *            0            0   0   *   
ET0	*      *      031160 *            031160031160 000000031165     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031165 *            000000031165 031160031160     *            000000031165 0            0   0   *   

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

*031165  SETOM	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031165 031165 031165 476000000001 777777777777 031160031160     031160031160 000000031165 0            0   0   777 
IT1	*      *      000001 *            476000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031166 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000777777 *            0            0   0   *   
ST5	031166 031166 *      266000031167 *            *                031160031160 *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0172
INITIAL
C(AC)=031160 031160 C(E) =000000 777777 
FINAL
C(E) =777777 777777 
----------

*031166  JSA	0,031167

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031166 031166 031166 266000031167 777777777777 777777777777     031160031160 000000031165 0            0   0   777 
IT1	*      *      031167 *            266000031167 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031167     *            *            0            0   0   *   
FT6	*      031167 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000031167 *                *            *            0            0   0   *   
ET2	031167 *      031170 *            031160031160 031167031167     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 031160031160     031167031167 031167031167 0            0   0   *   
ST2	*      *      *      031160031160 *            *                *            *            0            0   0   *   
ST5	031170 031170 *      312040033474 *            *                *            *            0            0   0   *   

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

*031170  CAME	1,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031170 031170 031170 312040033474 777777777777 031160031160     031167031167 031167031167 0            0   0   777 
IT1	*      *      033474 *            312040033474 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031171 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031171 *      031172 *            777777777777 *                *            *            0            0   0   *   

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

*031172  JUMPA	0,031173

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

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

*031173  MOVE 	0,033501

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031173 031173 031173 200000033501 777777777777 031167031167     031167031167 000000031173 0            0   0   77  SEQ 0173
IT1	*      *      033501 *            200000033501 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033501     *            *            0            0   0   *   
FT6	031174 031174 031174 205040031176 777777777777 254000031177     *            *            0            0   0   *   
ET2	*      *      *      *            031167031167 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                254000031177 *            0            0   0   *   

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

*031174  MOVSI	1,031176

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031174 031174 031174 205040031176 777777777777 254000031177     254000031177 000000031173 0            0   0   777 
IT1	*      *      031176 *            205040031176 *                777777777777 *            0            0   0   *   
ET2	*      *      031175 *            777777777777 000000031176     *            *            0            0   0   *   
ST1	031175 031175 *      267040031176 *            031176000000     031176000000 *            0            0   0   *   

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

*031175  JRA	1,031176

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031175 031175 031175 267040031176 777777777777 031176000000     031176000000 000000031173 0            0   0   777 
IT1	*      *      031176 *            267040031176 *                *            *            0            0   0   *   
FT1	*      *      000000 *            031176000000 000000031176     *            *            0            0   0   776 
FT2	*      *      777777 *            777777777777 031176000000     *            000000031176 0            0   0   777 
FT3	*      *      031176 *            000000031176 000000031176     *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      031176 *      334000000000 777777777777 334000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000031176 *                *            *            0            0   0   *   
ST1	031176 *      *      *            777777777777 *                334000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=031176 000000 C(C(ACL))=334000 000000 
FINAL
C(AC)=334000 000000 
----------

*031176  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031176 031176 031176 334000000000 777777777777 334000000000     334000000000 000000031176 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                254000031177 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 254000031177     *            *            0            0   0   *   
ET0	*      0      031177 *            254000031177 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031177 0      031200 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0174
INITIAL
C(AC)=254000 031177 C(E) =254000 031177 
FINAL
C(AC)=254000 031177 
----------

*031200  JUMPA	0,031201

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031200 031200 031200 324000031201 777777777777 254000031177     254000031177 000000031176 0            0   0   777 
IT1	*      *      031201 *            324000031201 *                *            *            0            0   0   *   
ET0	*      *      031177 *            254000031177 000000031201     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031201 *            000000031201 254000031177     *            000000031201 0            0   0   *   

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

*031201  MOVSI	0,031204

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031201 031201 031201 205000031204 777777777777 254000031177     254000031177 000000031201 0            0   0   777 
IT1	*      *      031204 *            205000031204 *                *            *            0            0   0   *   
ET2	*      *      031202 *            254000031177 000000031204     *            *            0            0   0   *   
ST1	031202 031202 *      267000031203 777777777777 031204000000     031204000000 *            0            0   0   *   

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

*031202  JRA	0,031203

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031202 031202 031202 267000031203 777777777777 031204000000     031204000000 000000031201 0            0   0   777 
IT1	*      *      031203 *            267000031203 *                *            *            0            0   0   *   
FT1	*      *      000000 *            031204000000 000000031203     *            *            0            0   0   776 
FT2	*      *      777777 *            777777777777 031204000000     *            000000031203 0            0   0   777 
FT3	*      *      031204 *            000000031204 000000031204     *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      031204 *      254200031205 777777777777 254200031205     *            *            0            0   0   *   
ET2	*      *      031203 *            000000031203 *                *            *            0            0   0   *   
ST1	031203 031203 *      334000000000 777777777777 *                254200031205 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=031204 000000 C(C(ACL))=254200 031205 
FINAL
C(AC)=254200 031205 
----------

*031203  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031203 031203 031203 334000000000 777777777777 254200031205     254200031205 000000031203 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   SEQ 0175
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 254200031205     *            *            0            0   0   *   
ET0	*      0      031204 *            254200031205 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031204 0      031205 *            777777777777 *                *            *            0            0   0   *   

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

*031205  JUMPA	0,031206

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

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

*031206  SETZB	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031206 031206 031206 403000000001 777777777777 254200031205     254200031205 000000031206 0            0   0   777 
IT1	*      *      000001 *            403000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031207 *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                334000000000 *            0            0   0   *   
ST5	031207 031207 *      267000031211 *            0                000000000000 *            0            0   0   *   

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

*031207  JRA	0,031211

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031207 031207 031207 267000031211 777777777777 0                0            000000031206 0            0   0   777 
IT1	*      *      031211 *            267000031211 0                0            *            0            0   0   *   
FT1	*      *      000000 *            000000000000 000000031211     0            *            0            0   0   776 
FT2	*      *      777777 *            777777777777 000000000000     0            000000031211 0            0   0   777 
FT3	*      *      000000 *            000000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            0            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET2	*      0      031211 *            000000031211 0                0            *            0            0   0   *   
ST1	031211 031211 *      332000000001 777777777777 0                0            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0176
INITIAL
C(AC)=000000 000000 C(C(ACL))=000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031211  SKIPE	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031211 031211 031211 332000000001 777777777777 0                0            000000031211 0            0   0   777 
IT1	*      *      000001 *            332000000001 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     0            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      031212 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	031212 *      031213 *            777777777777 0                0            *            0            0   0   *   

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

*031213  JUMPA	0,031214

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

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

*031214  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031214 031214 031214 400000000000 777777777777 0                0            000000031214 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      031215 *            000000000000 0                0            *            0            0   0   *   
ST1	031215 031215 *      267000031216 777777777777 0                0            *            0            0   0   *   

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

*031215  JRA	0,031216

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031215 031215 031215 267000031216 777777777777 0                0            000000031214 0            0   0   777 
IT1	*      *      031216 *            267000031216 0                0            *            0            0   0   *   
FT1	*      *      000000 *            000000000000 000000031216     0            *            0            0   0   776 
FT2	*      *      777777 *            777777777777 000000000000     0            000000031216 0            0   0   77  SEQ 0177
FT3	*      *      000000 *            000000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            0            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET2	*      0      031216 *            000000031216 0                0            *            0            0   0   *   
ST1	031216 031216 *      332000000000 777777777777 0                0            *            0            0   0   *   

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

*031216  SKIPE	0,000000

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

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

*031220  JUMPA	0,031221

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031220 031220 031220 324000031221 777777777777 0                0            000000031216 0            0   0   777 
IT1	*      *      031221 *            324000031221 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031221     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031221 *            000000031221 000000000000     0            000000031221 0            0   0   *   

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

*031221  MOVE 	0,033502

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031221 031221 031221 200000033502 777777777777 0                0            000000031221 0            0   0   777 
IT1	*      *      033502 *            200000033502 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033502     0            *            0            0   0   *   
FT6	031222 031222 031222 201040000001 777777777777 000001000002     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000001000002 *            0            0   0   *   

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

*031222  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031222 031222 031222 201040000001 777777777777 000001000002     000001000002 000000031221 0            0   0   777 
IT1	*      *      000001 *            201040000001 *                000000000000 *            0            0   0   *   
ET2	*      *      031223 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031223 031223 *      201100000002 777777777777 *                000000000001 *            0            0   0   *   

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

*031223  MOVEI	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031223 031223 031223 201100000002 777777777777 000000000001     000000000001 000000031221 0            0   0   777 
IT1	*      *      000002 *            201100000002 *                000000000000 *            0            0   0   *   
ET2	*      *      031224 *            000000000000 000000000002     0            *            0            0   0   *   
ST1	031224 031224 *      267000031225 777777777777 *                000000000002 *            0            0   0   *   

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

*031224  JRA	0,031225

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031224 031224 031224 267000031225 777777777777 000000000002     000000000002 000000031221 0            0   0   777 
IT1	*      *      031225 *            267000031225 *                000001000002 *            0            0   0   *   
FT1	*      *      000002 *            000001000002 000000031225     *            *            0            0   0   776 
FT2	*      *      777777 *            777777777777 000001000002     *            000000031225 0            0   0   777 
FT3	*      *      000001 *            000000000001 000000000001     *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      031225 *            000000031225 *                *            *            0            0   0   *   
ST1	031225 031225 *      302000000001 777777777777 *                000000000001 *            0            0   0   *   

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

*031225  CAIE	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031225 031225 031225 302000000001 777777777777 000000000001     000000000001 000000031225 0            0   0   777 
IT1	*      *      000001 *            302000000001 *                *            *            0            0   0   *   
ET0	*      *      031226 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031226 *      031227 *            777777777777 *                *            *            0            0   0   *   SEQ 0179

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

*031227  JUMPA	0,031230

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031227 031227 031227 324000031230 777777777777 000000000001     000000000001 000000031225 0            0   0   777 
IT1	*      *      031230 *            324000031230 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000031230     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031230 *            000000031230 000000000001     *            000000031230 0            0   0   *   

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

*031230  HRRZI	0,033503

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031230 031230 031230 551000033503 777777777777 000000000001     000000000001 000000031230 0            0   0   777 
IT1	*      *      033503 *            551000033503 *                *            *            0            0   0   *   
ET2	*      *      031231 *            777777033503 000000033503     *            *            0            0   0   *   
ST1	031231 031231 *      267000031232 777777777777 *                000000033503 *            0            0   0   *   

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

*031231  JRA	0,031232

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031231 031231 031231 267000031232 777777777777 000000033503     000000033503 000000031230 0            0   0   777 
IT1	*      *      031232 *            267000031232 *                *            *            0            0   0   *   
FT1	*      *      033503 *            000000033503 000000031232     *            *            0            0   0   776 
FT2	*      *      777777 *            777777777777 000000033503     *            000000031232 0            0   0   777 
FT3	*      *      000000 *            000000000000 000000000000     *            *            0            0   0   *   
MEMST	*      *      0      *            0            0                *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000033503     *            *            0            0   0   *   
ET2	*      0      031232 *            000000031232 *                *            *            0            0   0   *   
ST1	031232 031232 *      302000033503 777777777777 *                *            *            0            0   0   *   

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

*031232  CAIE	0,033503

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031232 031232 031232 302000033503 777777777777 000000033503     000000033503 000000031232 0            0   0   777 
IT1	*      *      033503 *            302000033503 *                *            *            0            0   0   *   SEQ 0180
ET0	*      *      031233 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031233 *      031234 *            777777777777 *                *            *            0            0   0   *   

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

*031234  JUMPA	0,031235

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031234 031234 031234 324000031235 777777777777 000000033503     000000033503 000000031232 0            0   0   777 
IT1	*      *      031235 *            324000031235 *                *            *            0            0   0   *   
ET0	*      *      033503 *            000000033503 000000031235     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031235 *            000000031235 000000033503     *            000000031235 0            0   0   *   

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

*031235  HRLZI	0,033504

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031235 031235 031235 515000033504 777777777777 000000033503     000000033503 000000031235 0            0   0   777 
IT1	*      *      033504 *            515000033504 *                *            *            0            0   0   *   
ET2	*      *      031236 *            777777777777 000000033504     *            *            0            0   0   *   
ST1	031236 031236 *      267000031237 *            033504000000     033504000000 *            0            0   0   *   

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

*031236  JRA	0,031237

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031236 031236 031236 267000031237 777777777777 033504000000     033504000000 000000031235 0            0   0   777 
IT1	*      *      031237 *            267000031237 *                *            *            0            0   0   *   
FT1	*      *      000000 *            033504000000 000000031237     *            *            0            0   0   776 
FT2	*      *      777777 *            777777777777 033504000000     *            000000031237 0            0   0   777 
FT3	*      *      033504 *            000000033504 000000033504     *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      033504 *      135246246135 777777777777 135246246135     *            *            0            0   0   *   
ET2	*      *      031237 *            000000031237 *                *            *            0            0   0   *   
ST1	031237 031237 *      312000033504 777777777777 *                135246246135 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=033504 000000 C(C(ACL))=135246 246135 
FINAL
C(AC)=135246 246135 
----------

*031237  CAME	0,033504
                                                                                                                           SEQ 0181
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031237 031237 031237 312000033504 777777777777 135246246135     135246246135 000000031237 0            0   0   777 
IT1	*      *      033504 *            312000033504 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033504     *            *            0            0   0   *   
FT6	*      033504 *      135246246135 777777777777 135246246135     *            *            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)=135246 246135 C(E) =135246 246135 
----------

*031241  JUMPA	0,031242

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031241 031241 031241 324000031242 777777777777 135246246135     135246246135 000000031237 0            0   0   777 
IT1	*      *      031242 *            324000031242 *                *            *            0            0   0   *   
ET0	*      *      246135 *            135246246135 000000031242     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031242 *            000000031242 135246246135     *            000000031242 0            0   0   *   

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

*031242  HRLOI	0,031243

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031242 031242 031242 525000031243 777777777777 135246246135     135246246135 000000031242 0            0   0   777 
IT1	*      *      031243 *            525000031243 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000031243     *            *            0            0   0   *   
ST1	031243 031243 *      267000031244 *            031243777777     031243777777 *            0            0   0   *   

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

*031243  JRA	0,031244

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031243 031243 031243 267000031244 777777777777 031243777777     031243777777 000000031242 0            0   0   777 
IT1	*      *      031244 *            267000031244 *                *            *            0            0   0   *   
FT1	*      *      777777 *            031243777777 000000031244     *            *            0            0   0   776 
FT2	*      *      *      *            777777777777 031243777777     *            000000031244 0            0   0   777 
FT3	*      *      031243 *            000000031243 000000031243     *            *            0            0   0   *   
MEMST	*      *      *      *            *            *                *            *            0            0   0   *   
FT6	*      *      *      *            777777777777 267000031244     *            *            0            0   0   *   
ET2	*      *      031244 *            000000031244 *                *            *            0            0   0   *   
ST1	031244 031244 *      312000031243 777777777777 *                267000031244 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=031243 777777 C(C(ACL))=267000 031244 
FINAL                                                                                                                      SEQ 0182
C(AC)=267000 031244 
----------

*031244  CAME	0,031243

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031244 031244 031244 312000031243 777777777777 267000031244     267000031244 000000031244 0            0   0   777 
IT1	*      *      031243 *            312000031243 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031243     *            *            0            0   0   *   
FT6	*      031243 *      267000031244 777777777777 267000031244     *            *            0            0   0   *   
ET0	*      *      031245 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031245 *      031246 *            777777777777 *                *            *            0            0   0   *   

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

*031246  JUMPA	0,031247

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

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

*031247  MOVSI	1,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031247 031247 031247 205040020000 777777777777 267000031244     267000031244 000000031247 0            0   0   777 
IT1	*      *      020000 *            205040020000 *                000000000001 *            0            0   0   *   
ET2	*      *      031250 *            000000000001 000000020000     *            *            0            0   0   *   
ST1	031250 031250 *      255740031251 777777777777 020000000000     020000000000 *            0            0   0   *   

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

*031250  JFCL	17,031251

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031250 031250 031250 255740031251 777777777777 020000000000     020000000000 000000031247 0            0   0   777 
IT1	*      *      031251 *            255740031251 *                000000000000 *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000031251     0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
E    =000000 031251 
----------
                                                                                                                           SEQ 0183
*031251  JRST	2,031252(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031251 031251 031251 254101031252 777777777777 000000031251     0            000000031247 0            0   0   777 
IT1	*      *      031252 *            020000031252 *                020000000000 *            0            0   0   *   
FT6	*      *      *      *            *            020000031252     000000000002 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                *            *            0            0   0   *   
ST1	031251 *      031252 *            020000031252 000000031252     *            020000031252 0            0   0   *   

FLAGS - INT/FINAL   000000 020000 
INITIAL
E    =000000 031252 
----------

*031252  MOVSI	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031252 031252 031252 205040000000 777777777777 000000031252     000000000002 020000031252 0            0   0   777 
IT1	*      *      000000 *            205040000000 *                020000000000 *            0            0   0   *   
ET2	*      *      031253 *            020000000000 000000000000     *            *            0            0   0   *   
ST1	031253 031253 *      255740031254 777777777777 0                000000000000 *            0            0   0   *   

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

*031253  JFCL	17,031254

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031253 031253 031253 255740031254 777777777777 0                0            020000031252 0            0   0   777 
IT1	*      *      031254 *            255740031254 0                0            *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000031254     0            *            0            0   0   *   

FLAGS - INT/FINAL   020000 020000 
INITIAL
E    =000000 031254 
----------

*031254  JRST	2,031255(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031254 031254 031254 254101031255 777777777777 000000031254     0            020000031252 0            0   0   777 
IT1	*      *      031255 *            000000031255 *                0            *            0            0   0   *   
FT6	*      *      *      *            *            000000031255     000000000002 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                *            *            0            0   0   *   
ST1	031254 *      031255 *            000000031255 *                *            000000031255 0            0   0   *   

FLAGS - INT/FINAL   020000 000000 
INITIAL
E    =000000 031255 
----------

*031255  JSP	0,031256

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031255 031255 031255 265000031256 777777777777 000000031255     000000000002 000000031255 0            0   0   777 
IT1	*      *      031256 *            265000031256 *                267000031244 *            0            0   0   *   SEQ 0184
ET2	*      *      777777 *            777777777777 000000031256     *            *            0            0   0   *   
ST1	*      *      031256 *            000000031256 *                000000031256 000000031256 0            0   0   *   

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

*031256  TLNE	0,020037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031256 031256 031256 603000020037 777777777777 000000031256     000000031256 000000031256 0            0   0   777 
IT1	*      *      020037 *            603000020037 *                *            *            0            0   0   *   
ET0	*      *      031257 *            000000020016 000000020037     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 020037000000     *            *            0            0   0   *   
ET2	031257 *      031260 *            777777777777 *                *            020037000000 0            0   0   *   

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

*031260  JUMPA	0,031261

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031260 031260 031260 324000031261 777777777777 777777777777     000000031256 020037000000 0            0   0   777 
IT1	*      *      031261 *            324000031261 *                *            *            0            0   0   *   
ET0	*      *      031256 *            000000031256 000000031261     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031261 *            000000031261 000000031256     *            000000031261 0            0   0   *   

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

*031261  MOVSI	1,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031261 031261 031261 205040020000 777777777777 000000031256     000000031256 000000031261 0            0   0   777 
IT1	*      *      020000 *            205040020000 *                000000000000 *            0            0   0   *   
ET2	*      *      031262 *            000000000000 000000020000     0            *            0            0   0   *   
ST1	031262 031262 *      255740031263 777777777777 020000000000     020000000000 *            0            0   0   *   

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

*031262  JFCL	17,031263

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031262 031262 031262 255740031263 777777777777 020000000000     020000000000 000000031261 0            0   0   777 
IT1	*      *      031263 *            255740031263 *                000000000000 *            0            0   0   *   SEQ 0185
ET2	*      *      *      *            777777777777 000000031263     0            *            0            0   0   *   

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

*031263  JRST	2,031264(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031263 031263 031263 254101031264 777777777777 000000031263     0            000000031261 0            0   0   777 
IT1	*      *      031264 *            020000031264 *                020000000000 *            0            0   0   *   
FT6	*      *      *      *            *            020000031264     000000000002 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                *            *            0            0   0   *   
ST1	031263 *      031264 *            020000031264 000000031264     *            020000031264 0            0   0   *   

FLAGS - INT/FINAL   000000 020000 
INITIAL
E    =000000 031264 
----------

*031264  JSP	0,031265

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031264 031264 031264 265000031265 777777777777 000000031264     000000000002 020000031264 0            0   0   777 
IT1	*      *      031265 *            265000031265 *                000000031256 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 000000031265     *            *            0            0   0   *   
ST1	031264 *      031265 *            000000031265 020000031265     020000031265 000000031265 0            0   0   *   

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

*031265  TLNN	0,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031265 031265 031265 607000020000 777777777777 020000031265     020000031265 000000031265 0            0   0   777 
IT1	*      *      020000 *            607000020000 *                *            *            0            0   0   *   
ET0	*      *      031266 *            000000020000 000000020000     *            *            0            0   0   *   
ET1	*      *      *      *            020000000000 020000000000     *            *            0            0   0   *   
ET2	031266 *      031267 *            777777777777 *                *            020000000000 0            0   0   *   

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

*031267  JUMPA	0,031270

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031267 031267 031267 324000031270 777777777777 777777777777     020000031265 020000000000 0            0   0   777 
IT1	*      *      031270 *            324000031270 *                *            *            0            0   0   *   
ET0	*      *      031265 *            020000031265 000000031270     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031270 *            000000031270 020000031265     *            000000031270 0            0   0   *   SEQ 0186

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

*031270  MOVSI	1,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031270 031270 031270 205040020000 777777777777 020000031265     020000031265 000000031270 0            0   0   777 
IT1	*      *      020000 *            205040020000 *                020000000000 *            0            0   0   *   
ET2	*      *      031271 *            020000000000 000000020000     *            *            0            0   0   *   
ST1	031271 031271 *      255740031272 777777777777 020000000000     *            *            0            0   0   *   

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

*031271  JFCL	17,031272

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031271 031271 031271 255740031272 777777777777 020000000000     020000000000 000000031270 0            0   0   777 
IT1	*      *      031272 *            255740031272 *                000000000000 *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000031272     0            *            0            0   0   *   

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

*031272  JRST	2,031273(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031272 031272 031272 254101031273 777777777777 000000031272     0            000000031270 0            0   0   777 
IT1	*      *      031273 *            020000031273 *                020000000000 *            0            0   0   *   
FT6	*      *      *      *            *            020000031273     000000000002 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                *            *            0            0   0   *   
ST1	031272 *      031273 *            020000031273 000000031273     *            020000031273 0            0   0   *   

FLAGS - INT/FINAL   000000 020000 
INITIAL
E    =000000 031273 
----------

*031273  JSR	0,031274

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031273 031273 031273 264000031274 777777777777 000000031273     000000000002 020000031273 0            0   0   777 
IT1	*      *      031274 *            264000031274 *                020000031265 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031274     *            *            0            0   0   *   
FT6	*      031274 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031274 *      031275 *            *            020000031274     *            *            0            0   0   *   
ST2	*      *      *      020000031274 *            *                *            *            0            0   0   *   
ST5	031275 031275 *      265000031276 *            *                *            *            0            0   0   *   
FLAGS - INT/FINAL   020000 000000                                                                                          SEQ 0187
INITIAL
C(E) =000000 000000 
FINAL
C(E) =020000 031274 
----------

*031275  JSP	0,031276

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031275 031275 031275 265000031276 777777777777 020000031274     020000031265 020000031273 0            0   0   777 
IT1	*      *      031276 *            265000031276 *                *            *            0            0   0   *   
ET2	*      *      777777 *            777777777777 000000031276     *            *            0            0   0   *   
ST1	*      *      031276 *            000000031276 *                000000031276 000000031276 0            0   0   *   

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

*031276  TLNE	0,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031276 031276 031276 603000020000 777777777777 000000031276     000000031276 000000031276 0            0   0   777 
IT1	*      *      020000 *            603000020000 *                *            *            0            0   0   *   
ET0	*      *      031277 *            000000020000 000000020000     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 020000000000     *            *            0            0   0   *   
ET2	031277 *      031300 *            777777777777 *                *            020000000000 0            0   0   *   

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

*031300  JUMPA	0,031301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031300 031300 031300 324000031301 777777777777 777777777777     000000031276 020000000000 0            0   0   777 
IT1	*      *      031301 *            324000031301 *                *            *            0            0   0   *   
ET0	*      *      031276 *            000000031276 000000031301     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031301 *            000000031301 000000031276     *            000000031301 0            0   0   *   

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

*031301  MOVSI	1,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031301 031301 031301 205040020000 777777777777 000000031276     000000031276 000000031301 0            0   0   777 
IT1	*      *      020000 *            205040020000 *                020000000000 *            0            0   0   *   
ET2	*      *      031302 *            020000000000 000000020000     *            *            0            0   0   *   
ST1	031302 031302 *      255740031303 777777777777 020000000000     *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0188
INITIAL
C(AC)=020000 000000 E    =000000 020000 
FINAL
C(AC)=020000 000000 
----------

*031302  JFCL	17,031303

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031302 031302 031302 255740031303 777777777777 020000000000     020000000000 000000031301 0            0   0   777 
IT1	*      *      031303 *            255740031303 *                000000000000 *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000031303     0            *            0            0   0   *   

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

*031303  JRST	2,031304(1)

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031303 031303 031303 254101031304 777777777777 000000031303     0            000000031301 0            0   0   777 
IT1	*      *      031304 *            020000031304 *                020000000000 *            0            0   0   *   
FT6	*      *      *      *            *            020000031304     000000000002 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                *            *            0            0   0   *   
ST1	031303 *      031304 *            020000031304 000000031304     *            020000031304 0            0   0   *   

FLAGS - INT/FINAL   000000 020000 
INITIAL
E    =000000 031304 
----------

*031304  JSP	0,031305

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031304 031304 031304 265000031305 777777777777 000000031304     000000000002 020000031304 0            0   0   777 
IT1	*      *      031305 *            265000031305 *                000000031276 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 000000031305     *            *            0            0   0   *   
ST1	031304 *      031305 *            000000031305 020000031305     020000031305 000000031305 0            0   0   *   

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

*031305  JSP	0,031306

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031305 031305 031305 265000031306 777777777777 020000031305     020000031305 000000031305 0            0   0   777 
IT1	*      *      031306 *            265000031306 *                *            *            0            0   0   *   
ET2	*      *      777777 *            777777777777 000000031306     *            *            0            0   0   *   
ST1	*      *      031306 *            000000031306 *                000000031306 000000031306 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=020000 031305 E    =000000 031306 
FINAL
C(AC)=000000 031306                                                                                                        SEQ 0189
----------

*031306  TLNE	0,020000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031306 031306 031306 603000020000 777777777777 000000031306     000000031306 000000031306 0            0   0   777 
IT1	*      *      020000 *            603000020000 *                *            *            0            0   0   *   
ET0	*      *      031307 *            000000020000 000000020000     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 020000000000     *            *            0            0   0   *   
ET2	031307 *      031310 *            777777777777 *                *            020000000000 0            0   0   *   

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

*031310  JUMPA	0,031311

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031310 031310 031310 324000031311 777777777777 777777777777     000000031306 020000000000 0            0   0   777 
IT1	*      *      031311 *            324000031311 *                *            *            0            0   0   *   
ET0	*      *      031306 *            000000031306 000000031311     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031311 *            000000031311 000000031306     *            000000031311 0            0   0   *   

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

*031311  MOVSI	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031311 031311 031311 205040000000 777777777777 000000031306     000000031306 000000031311 0            0   0   777 
IT1	*      *      000000 *            205040000000 *                020000000000 *            0            0   0   *   
ET2	*      *      031312 *            020000000000 000000000000     *            *            0            0   0   *   
ST1	031312 031312 *      255740031313 777777777777 0                000000000000 *            0            0   0   *   

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

*031312  JFCL	17,031313

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031312 031312 031312 255740031313 777777777777 0                0            000000031311 0            0   0   777 
IT1	*      *      031313 *            255740031313 0                0            *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000031313     0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
E    =000000 031313 
----------
*031313  JRST	2,031314(1)                                                                                                SEQ 0190

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031313 031313 031313 254101031314 777777777777 000000031313     0            000000031311 0            0   0   777 
IT1	*      *      031314 *            000000031314 *                0            *            0            0   0   *   
FT6	*      *      *      *            *            000000031314     000000000002 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 *                *            *            0            0   0   *   
ST1	*      *      031314 *            000000031314 *                *            000000031314 0            0   0   *   

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

*031314  JSP	0,031315

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031314 031314 031314 265000031315 777777777777 000000031314     000000000002 000000031314 0            0   0   777 
IT1	*      *      031315 *            265000031315 *                000000031306 *            0            0   0   *   
ET2	*      *      777777 *            777777777777 000000031315     *            *            0            0   0   *   
ST1	*      *      031315 *            000000031315 *                000000031315 000000031315 0            0   0   *   

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

*031315  TLNE	0,001600

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031315 031315 031315 603000001600 777777777777 000000031315     000000031315 000000031315 0            0   0   777 
IT1	*      *      001600 *            603000001600 *                *            *            0            0   0   *   
ET0	*      *      031316 *            000000001200 000000001600     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 001600000000     *            *            0            0   0   *   
ET2	031316 *      031317 *            777777777777 *                *            001600000000 0            0   0   *   

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

*031317  JUMPA	0,031320

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

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

*031320  MOVE 	0,033505
                                                                                                                           SEQ 0191
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031320 031320 031320 200000033505 777777777777 000000031315     000000031315 000000031320 0            0   0   777 
IT1	*      *      033505 *            200000033505 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033505     *            *            0            0   0   *   
FT6	031321 031321 031321 200040033506 777777777777 252525252525     *            *            0            0   0   *   
ET2	*      *      *      *            000000031315 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                252525252525 *            0            0   0   *   

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

*031321  MOVE 	1,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031321 031321 031321 200040033506 777777777777 252525252525     252525252525 000000031320 0            0   0   777 
IT1	*      *      033506 *            200040033506 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	031322 031322 031322 202000000001 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*031322  MOVEM	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031322 031322 031322 202000000001 777777777777 707070707070     707070707070 000000031320 0            0   0   777 
IT1	*      *      000001 *            202000000001 *                252525252525 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031323 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            252525252525 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 252525252525     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      252525252525 *            *                707070707070 *            0            0   0   *   
ST5	031323 031323 *      312000033505 *            *                252525252525 *            0            0   0   *   

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

*031323  CAME	0,033505

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031323 031323 031323 312000033505 777777777777 252525252525     252525252525 000000031320 0            0   0   777 
IT1	*      *      033505 *            312000033505 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033505     *            *            0            0   0   *   
FT6	*      033505 *      252525252525 777777777777 252525252525     *            *            0            0   0   *   
ET0	*      *      031324 *            000000000000 *                *            *            0            0   0   *   SEQ 0192
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031324 *      031325 *            777777777777 *                *            *            0            0   0   *   

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

*031325  JUMPA	0,031326

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031325 031325 031325 324000031326 777777777777 252525252525     252525252525 000000031320 0            0   0   777 
IT1	*      *      031326 *            324000031326 *                *            *            0            0   0   *   
ET0	*      *      252525 *            252525252525 000000031326     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031326 *            000000031326 252525252525     *            000000031326 0            0   0   *   

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

*031326  CAME	1,033505

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031326 031326 031326 312040033505 777777777777 252525252525     252525252525 000000031326 0            0   0   777 
IT1	*      *      033505 *            312040033505 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033505     *            *            0            0   0   *   
FT6	*      033505 *      252525252525 777777777777 252525252525     *            *            0            0   0   *   
ET0	*      *      031327 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031327 *      031330 *            777777777777 *                *            *            0            0   0   *   

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

*031330  JUMPA	0,031331

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

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

*031331  MOVE 	2,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031331 031331 031331 200100033506 777777777777 252525252525     252525252525 000000031331 0            0   0   777 
IT1	*      *      033506 *            200100033506 *                000000000002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	031332 031332 031332 200040033507 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                *            *            0            0   0   *   SEQ 0193
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*031332  MOVE 	1,033507

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031332 031332 031332 200040033507 777777777777 707070707070     707070707070 000000031331 0            0   0   777 
IT1	*      *      033507 *            200040033507 *                252525252525 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033507     *            *            0            0   0   *   
FT6	031333 031333 031333 203100000001 777777777777 123456123456     *            *            0            0   0   *   
ET2	*      *      *      *            252525252525 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456123456 *            0            0   0   *   

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

*031333  MOVES	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031333 031333 031333 203100000001 777777777777 123456123456     123456123456 000000031331 0            0   0   777 
IT1	*      *      000001 *            203100000001 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031334 *            777777777777 123456123456     *            *            0            0   0   *   
ET2	*      *      *      *            707070707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456123456 *            0            0   0   *   
ST2	*      *      *      123456123456 *            *                *            *            0            0   0   *   
ST5	031334 031334 *      312100033507 *            *                *            *            0            0   0   *   

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

*031334  CAME	2,033507

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031334 031334 031334 312100033507 777777777777 123456123456     123456123456 000000031331 0            0   0   777 
IT1	*      *      033507 *            312100033507 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033507     *            *            0            0   0   *   
FT6	*      033507 *      123456123456 777777777777 123456123456     *            *            0            0   0   *   
ET0	*      *      031335 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031335 *      031336 *            777777777777 *                *            *            0            0   0   *   

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

*031336  JUMPA	0,031337

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031336 031336 031336 324000031337 777777777777 123456123456     123456123456 000000031331 0            0   0   777 
IT1	*      *      031337 *            324000031337 *                252525252525 *            0            0   0   *   
ET0	*      *      252525 *            252525252525 000000031337     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031337 *            000000031337 252525252525     *            000000031337 0            0   0   *   

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

*031337  CAME	1,033507

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031337 031337 031337 312040033507 777777777777 252525252525     252525252525 000000031337 0            0   0   777 
IT1	*      *      033507 *            312040033507 *                123456123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033507     *            *            0            0   0   *   
FT6	*      033507 *      123456123456 777777777777 123456123456     *            *            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)=123456 123456 C(E) =123456 123456 
----------

*031341  JUMPA	0,031342

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031341 031341 031341 324000031342 777777777777 123456123456     123456123456 000000031337 0            0   0   777 
IT1	*      *      031342 *            324000031342 *                252525252525 *            0            0   0   *   
ET0	*      *      252525 *            252525252525 000000031342     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031342 *            000000031342 252525252525     *            000000031342 0            0   0   *   

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

*031342  MOVE 	1,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031342 031342 031342 200040033506 777777777777 252525252525     252525252525 000000031342 0            0   0   777 
IT1	*      *      033506 *            200040033506 *                123456123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	031343 031343 031343 474000000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            123456123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*031343  SETO 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031343 031343 031343 474000000000 777777777777 707070707070     707070707070 000000031342 0            0   0   777 
IT1	*      *      000000 *            474000000000 *                252525252525 *            0            0   0   *   
ET2	*      *      031344 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031344 031344 *      203000000001 *            777777777777     777777777777 *            0            0   0   *   

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

*031344  MOVES	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031344 031344 031344 203000000001 777777777777 777777777777     777777777777 000000031342 0            0   0   777 
IT1	*      *      000001 *            203000000001 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 031345 *            777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      707070707070 *            *                707070707070 *            0            0   0   *   
ST5	031345 031345 *      312000033474 *            *                777777777777 *            0            0   0   *   

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

*031345  CAME	0,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031345 031345 031345 312000033474 777777777777 707070707070     777777777777 000000031342 0            0   0   777 
IT1	*      *      033474 *            312000033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031346 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031346 *      031347 *            777777777777 *                *            *            0            0   0   *   

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

*031347  JUMPA	0,031350

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031347 031347 031347 324000031350 777777777777 777777777777     777777777777 000000031342 0            0   0   777 
IT1	*      *      031350 *            324000031350 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031350     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031350 *            000000031350 777777777777     *            000000031350 0            0   0   *   SEQ 0196

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

*031350  CAME	1,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031350 031350 031350 312040033506 777777777777 777777777777     777777777777 000000031350 0            0   0   777 
IT1	*      *      033506 *            312040033506 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	*      033506 *      707070707070 777777777777 707070707070     *            *            0            0   0   *   
ET0	*      *      031351 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031351 *      031352 *            777777777777 *                *            *            0            0   0   *   

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

*031352  JUMPA	0,031353

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031352 031352 031352 324000031353 777777777777 707070707070     707070707070 000000031350 0            0   0   777 
IT1	*      *      031353 *            324000031353 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031353     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031353 *            000000031353 777777777777     *            000000031353 0            0   0   *   

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

*031353  MOVE 	1,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031353 031353 031353 200040033506 777777777777 777777777777     777777777777 000000031353 0            0   0   777 
IT1	*      *      033506 *            200040033506 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	031354 031354 031354 205040777777 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            707070707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031354  MOVSI	1,777777

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031354 031354 031354 205040777777 777777777777 707070707070     707070707070 000000031353 0            0   0   777 
IT1	*      *      777777 *            205040777777 *                *            *            0            0   0   *   
ET2	*      *      031355 *            707070707070 000000777777     *            *            0            0   0   *   
ST1	031355 031355 *      312040033510 777777777777 777777000000     777777000000 *            0            0   0   *   SEQ 0197

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

*031355  CAME	1,033510

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031355 031355 031355 312040033510 777777777777 777777000000     777777000000 000000031353 0            0   0   777 
IT1	*      *      033510 *            312040033510 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033510     *            *            0            0   0   *   
FT6	*      033510 *      777777000000 777777777777 777777000000     *            *            0            0   0   *   
ET0	*      *      031356 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031356 *      031357 *            777777777777 *                *            *            0            0   0   *   

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

*031357  JUMPA	0,031360

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031357 031357 031357 324000031360 777777777777 777777000000     777777000000 000000031353 0            0   0   777 
IT1	*      *      031360 *            324000031360 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031360     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031360 *            000000031360 777777777777     *            000000031360 0            0   0   *   

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

*031360  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031360 031360 031360 474040000000 777777777777 777777777777     777777777777 000000031360 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                777777000000 *            0            0   0   *   
ET2	*      *      031361 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031361 031361 *      200100033511 *            777777777777     777777777777 *            0            0   0   *   

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

*031361  MOVE 	2,033511

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031361 031361 031361 200100033511 777777777777 777777777777     777777777777 000000031360 0            0   0   777 
IT1	*      *      033511 *            200100033511 *                123456123456 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033511     *            *            0            0   0   *   
FT6	031362 031362 031362 212040000002 777777777777 777777777775     *            *            0            0   0   *   SEQ 0198
ET2	*      *      *      *            123456123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777775 *            0            0   0   *   

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

*031362  MOVNM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031362 031362 031362 212040000002 777777777777 777777777775     777777777775 000000031360 0            0   0   777 
IT1	*      *      000002 *            212040000002 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031363 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 777777777777     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000001     *            *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                777777777775 *            0            0   0   *   
ST5	031363 031363 *      312040033474 *            *                777777777777 *            0            0   0   *   

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

*031363  CAME	1,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031363 031363 031363 312040033474 777777777777 000000000001     777777777777 000000031360 0            0   0   777 
IT1	*      *      033474 *            312040033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            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)=777777 777777 C(E) =777777 777777 
----------

*031365  JUMPA	0,031366

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

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 E    =000000 031366 
----------
                                                                                                                           SEQ 0199
*031366  CAIE	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031366 031366 031366 302100000001 777777777777 777777777777     777777777777 000000031366 0            0   0   777 
IT1	*      *      000001 *            302100000001 *                000000000001 *            0            0   0   *   
ET0	*      *      031367 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031367 *      031370 *            777777777777 *                *            *            0            0   0   *   

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

*031370  JUMPA	0,031371

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031370 031370 031370 324000031371 777777777777 000000000001     000000000001 000000031366 0            0   0   777 
IT1	*      *      031371 *            324000031371 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031371     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031371 *            000000031371 777777777777     *            000000031371 0            0   0   *   

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

*031371  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031371 031371 031371 474040000000 777777777777 777777777777     777777777777 000000031371 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                *            *            0            0   0   *   
ET2	*      *      031372 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	031372 031372 *      200100033511 *            777777777777     *            *            0            0   0   *   

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

*031372  MOVE 	2,033511

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031372 031372 031372 200100033511 777777777777 777777777777     777777777777 000000031371 0            0   0   777 
IT1	*      *      033511 *            200100033511 *                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033511     *            *            0            0   0   *   
FT6	031373 031373 031373 202100031405 777777777777 777777777775     *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777775 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 C(E) =777777 777775 
FINAL
C(AC)=777777 777775 
----------
                                                                                                                           SEQ 0200
*031373  MOVEM	2,031405

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031373 031373 031373 202100031405 777777777777 777777777775     777777777775 000000031371 0            0   0   777 
IT1	*      *      031405 *            202100031405 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031405     *            *            0            0   0   *   
FT6	*      031405 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            777777777775 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 777777777775     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      777777777775 *            *                *            *            0            0   0   *   
ST5	031374 031374 031374 212040031405 *            *                *            *            0            0   0   *   

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

*031374  MOVNM	1,031405

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031374 031374 031374 212040031405 777777777777 777777777775     777777777775 000000031371 0            0   0   777 
IT1	*      *      031405 *            212040031405 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031405     *            *            0            0   0   *   
FT6	*      031405 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 777777777777     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000001     *            *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                *            *            0            0   0   *   
ST5	031375 031375 031375 312040033474 *            *                *            *            0            0   0   *   

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

*031375  CAME	1,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031375 031375 031375 312040033474 777777777777 000000000001     777777777777 000000031371 0            0   0   777 
IT1	*      *      033474 *            312040033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            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)=777777 777777 C(E) =777777 777777 
----------

*031377  JUMPA	0,031400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031377 031377 031377 324000031400 777777777777 777777777777     777777777777 000000031371 0            0   0   77  SEQ 0201
IT1	*      *      031400 *            324000031400 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031400     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031400 *            000000031400 777777777777     *            000000031400 0            0   0   *   

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

*031400  MOVE 	2,031405

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031400 031400 031400 200100031405 777777777777 777777777777     777777777777 000000031400 0            0   0   777 
IT1	*      *      031405 *            200100031405 *                777777777775 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031405     *            *            0            0   0   *   
FT6	031401 031401 031401 302100000001 777777777777 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            777777777775 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000001 *            0            0   0   *   

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

*031401  CAIE	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031401 031401 031401 302100000001 777777777777 000000000001     000000000001 000000031400 0            0   0   777 
IT1	*      *      000001 *            302100000001 *                *            *            0            0   0   *   
ET0	*      *      031402 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031402 *      031403 *            777777777777 *                *            *            0            0   0   *   

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

*031403  JUMPA	0,031404

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031403 031403 031403 324000031404 777777777777 000000000001     000000000001 000000031400 0            0   0   777 
IT1	*      *      031404 *            324000031404 *                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031404     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031404 *            000000031404 777777777777     *            000000031404 0            0   0   *   

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

*031404  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031404 031404 031404 334000000000 777777777777 777777777777     777777777777 000000031404 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   SEQ 0202
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      031405 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031405 0      031406 *            *            *                *            *            0            0   0   *   

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

*031406  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031406 031406 031406 400000000000 777777777777 777777777777     777777777777 000000031404 0            0   0   777 
IT1	*      *      000000 *            400000000000 *                *            *            0            0   0   *   
ET2	*      *      031407 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	031407 031407 *      201100000001 777777777777 0                000000000000 *            0            0   0   *   

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

*031407  MOVEI	2,000001

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

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

*031410  MOVNS	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031410 031410 031410 213000000002 777777777777 000000000001     000000000001 000000031404 0            0   0   777 
IT1	*      *      000002 *            213000000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 031411 *            777777777777 000000000001     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                000000000001 *            0            0   0   *   
ST5	031411 031411 *      332000000000 *            *                000000000000 *            0            0   0   *   

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

*031411  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031411 031411 031411 332000000000 777777777777 777777777777     0            000000031404 0            0   0   777 
IT1	*      *      000000 *            332000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031412 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031412 0      031413 *            777777777777 0                0            *            0            0   0   *   

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

*031413  JUMPA	0,031414

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

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

*031414  CAME	2,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031414 031414 031414 312100033474 777777777777 0                0            000000031414 0            0   0   777 
IT1	*      *      033474 *            312100033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031415 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031415 *      031416 *            777777777777 *                *            *            0            0   0   *   

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

*031416  JUMPA	0,031417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031416 031416 031416 324000031417 777777777777 777777777777     777777777777 000000031414 0            0   0   777 
IT1	*      *      031417 *            324000031417 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031417     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031417 *            000000031417 000000000000     0            000000031417 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0204
INITIAL
C(AC)=000000 000000 E    =000000 031417 
----------

*031417  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031417 031417 031417 400000000000 777777777777 0                0            000000031417 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      031420 *            000000000000 0                0            *            0            0   0   *   
ST1	031420 031420 *      201100000001 777777777777 0                0            *            0            0   0   *   

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

*031420  MOVEI	2,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031420 031420 031420 201100000001 777777777777 0                0            000000031417 0            0   0   777 
IT1	*      *      000001 *            201100000001 0                777777777777 *            0            0   0   *   
ET2	*      *      031421 *            777777777777 000000000001     *            *            0            0   0   *   
ST1	031421 031421 *      202100031433 *            *                000000000001 *            0            0   0   *   

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

*031421  MOVEM	2,031433

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031421 031421 031421 202100031433 777777777777 000000000001     000000000001 000000031417 0            0   0   777 
IT1	*      *      031433 *            202100031433 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031433     *            *            0            0   0   *   
FT6	*      031433 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000001 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000000001     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                *            *            0            0   0   *   
ST5	031422 031422 031422 213000031433 *            *                *            *            0            0   0   *   

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

*031422  MOVNS	0,031433

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031422 031422 031422 213000031433 777777777777 000000000001     000000000001 000000031417 0            0   0   777 
IT1	*      *      031433 *            213000031433 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031433     0            *            0            0   0   *   SEQ 0205
FT6	*      031433 *      000000000001 777777777777 000000000001     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                0            *            0            0   0   *   
ST5	031423 031423 031423 332000000000 *            *                0            *            0            0   0   *   

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

*031423  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031423 031423 031423 332000000000 777777777777 777777777777     0            000000031417 0            0   0   777 
IT1	*      *      000000 *            332000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031424 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031424 0      031425 *            777777777777 0                0            *            0            0   0   *   

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

*031425  JUMPA	0,031426

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031425 031425 031425 324000031426 777777777777 0                0            000000031417 0            0   0   777 
IT1	*      *      031426 *            324000031426 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031426     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031426 *            000000031426 000000000000     0            000000031426 0            0   0   *   

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

*031426  MOVE 	2,031433

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031426 031426 031426 200100031433 777777777777 0                0            000000031426 0            0   0   777 
IT1	*      *      031433 *            200100031433 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031433     *            *            0            0   0   *   
FT6	031427 031427 031427 312100033474 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*031427  CAME	2,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031427 031427 031427 312100033474 777777777777 777777777777     777777777777 000000031426 0            0   0   777 
IT1	*      *      033474 *            312100033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            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)=777777 777777 C(E) =777777 777777 
----------

*031431  JUMPA	0,031432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031431 031431 031431 324000031432 777777777777 777777777777     777777777777 000000031426 0            0   0   777 
IT1	*      *      031432 *            324000031432 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031432     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031432 *            000000031432 000000000000     0            000000031432 0            0   0   *   

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

*031432  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031432 031432 031432 334000000000 777777777777 0                0            000000031432 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031433 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031433 0      031434 *            777777777777 0                0            *            0            0   0   *   

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

*031434  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031434 031434 031434 400040000000 777777777777 0                0            000000031432 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                777777777777 *            0            0   0   *   
ET2	*      *      031435 *            000000000000 0                *            *            0            0   0   *   
ST1	031435 031435 *      201100000003 777777777777 0                000000000000 *            0            0   0   *   

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

*031435  MOVEI	2,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031435 031435 031435 201100000003 777777777777 0                0            000000031432 0            0   0   777 
IT1	*      *      000003 *            201100000003 0                777777777777 *            0            0   0   *   
ET2	*      *      031436 *            777777777777 000000000003     *            *            0            0   0   *   
ST1	031436 031436 *      213040000002 *            *                000000000003 *            0            0   0   *   

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

*031436  MOVNS	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031436 031436 031436 213040000002 777777777777 000000000003     000000000003 000000031432 0            0   0   777 
IT1	*      *      000002 *            213040000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 031437 *            777777777777 000000000003     0            *            0            0   0   *   
ET2	*      *      *      *            777777777775 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777777775     777777777775 *            0            0   0   *   
ST2	*      *      *      777777777775 *            *                000000000003 *            0            0   0   *   
ST5	031437 031437 *      312040033511 *            *                777777777775 *            0            0   0   *   

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

*031437  CAME	1,033511

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031437 031437 031437 312040033511 777777777777 777777777775     777777777775 000000031432 0            0   0   777 
IT1	*      *      033511 *            312040033511 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033511     *            *            0            0   0   *   
FT6	*      033511 *      777777777775 777777777777 777777777775     *            *            0            0   0   *   
ET0	*      *      031440 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031440 *      031441 *            777777777777 *                *            *            0            0   0   *   

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

*031441  JUMPA	0,031442

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

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

*031442  CAME	2,033511

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031442 031442 031442 312100033511 777777777777 0                0            000000031442 0            0   0   777 
IT1	*      *      033511 *            312100033511 0                777777777775 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033511     *            *            0            0   0   *   
FT6	*      033511 *      777777777775 777777777777 777777777775     *            *            0            0   0   *   
ET0	*      *      031443 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031443 *      031444 *            777777777777 *                *            *            0            0   0   *   

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

*031444  JUMPA	0,031445

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

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

*031445  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031445 031445 031445 400040000000 777777777777 0                0            000000031445 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                777777777775 *            0            0   0   *   
ET2	*      *      031446 *            000000000000 0                *            *            0            0   0   *   
ST1	031446 031446 *      215040777776 777777777777 0                000000000000 *            0            0   0   *   

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

*031446  MOVMI	1,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031446 031446 031446 215040777776 777777777777 0                0            000000031445 0            0   0   777 
IT1	*      *      777776 *            215040777776 0                0            *            0            0   0   *   
ET2	*      *      031447 *            777777000002 000000777776     0            *            0            0   0   *   SEQ 0209
ST1	031447 031447 *      302040777776 777777777777 *                000000777776 *            0            0   0   *   

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

*031447  CAIE	1,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031447 031447 031447 302040777776 777777777777 000000777776     000000777776 000000031445 0            0   0   777 
IT1	*      *      777776 *            302040777776 *                *            *            0            0   0   *   
ET0	*      *      031450 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031450 *      031451 *            777777777777 *                *            *            0            0   0   *   

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

*031451  JUMPA	0,031452

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031451 031451 031451 324000031452 777777777777 000000777776     000000777776 000000031445 0            0   0   777 
IT1	*      *      031452 *            324000031452 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031452     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031452 *            000000031452 000000000000     0            000000031452 0            0   0   *   

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

*031452  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031452 031452 031452 400040000000 777777777777 0                0            000000031452 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                000000777776 *            0            0   0   *   
ET2	*      *      031453 *            000000000000 0                *            *            0            0   0   *   
ST1	031453 031453 *      200140033512 777777777777 0                000000000000 *            0            0   0   *   

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

*031453  MOVE 	3,033512

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031453 031453 031453 200140033512 777777777777 0                0            000000031452 0            0   0   777 
IT1	*      *      033512 *            200140033512 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033512     0            *            0            0   0   *   
FT6	031454 031454 031454 214040000003 777777777777 777777777776     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   SEQ 0210
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 
----------

*031454  MOVM 	1,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031454 031454 031454 214040000003 777777777777 777777777776     777777777776 000000031452 0            0   0   777 
IT1	*      *      000003 *            214040000003 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     0            *            0            0   0   *   
FT6	031455 031455 031455 302040000002 777777777777 777777777776     0            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000002     000000000002 *            0            0   0   *   

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

*031455  CAIE	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031455 031455 031455 302040000002 777777777777 000000000002     000000000002 000000031452 0            0   0   777 
IT1	*      *      000002 *            302040000002 *                *            *            0            0   0   *   
ET0	*      *      031456 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031456 *      031457 *            777777777777 *                *            *            0            0   0   *   

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

*031457  JUMPA	0,031460

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031457 031457 031457 324000031460 777777777777 000000000002     000000000002 000000031452 0            0   0   777 
IT1	*      *      031460 *            324000031460 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031460     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031460 *            000000031460 000000000000     0            000000031460 0            0   0   *   

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

*031460  MOVE 	1,033512

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031460 031460 031460 200040033512 777777777777 0                0            000000031460 0            0   0   777 
IT1	*      *      033512 *            200040033512 0                000000000002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033512     *            *            0            0   0   *   SEQ 0211
FT6	031461 031461 031461 400100000000 777777777777 777777777776     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777776 *            0            0   0   *   

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

*031461  SETZ 	2,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031461 031461 031461 400100000000 777777777777 777777777776     777777777776 000000031460 0            0   0   777 
IT1	*      *      000000 *            400100000000 *                777777777775 *            0            0   0   *   
ET2	*      *      031462 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	031462 031462 *      216040000002 777777777777 0                000000000000 *            0            0   0   *   

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

*031462  MOVMM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031462 031462 031462 216040000002 777777777777 0                0            000000031460 0            0   0   777 
IT1	*      *      000002 *            216040000002 0                777777777776 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031463 *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            777777777776 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 777777777776     *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000002     *            *            0            0   0   *   
ST2	*      *      *      000000000002 *            *                000000000000 *            0            0   0   *   
ST5	031463 031463 *      312040033512 *            *                777777777776 *            0            0   0   *   

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

*031463  CAME	1,033512

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031463 031463 031463 312040033512 777777777777 000000000002     777777777776 000000031460 0            0   0   777 
IT1	*      *      033512 *            312040033512 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033512     *            *            0            0   0   *   
FT6	*      033512 *      777777777776 777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      031464 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031464 *      031465 *            777777777777 *                *            *            0            0   0   *   

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

*031465  JUMPA	0,031466

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031465 031465 031465 324000031466 777777777777 777777777776     777777777776 000000031460 0            0   0   777 
IT1	*      *      031466 *            324000031466 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031466     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031466 *            000000031466 000000000000     0            000000031466 0            0   0   *   

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

*031466  CAIE	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031466 031466 031466 302100000002 777777777777 0                0            000000031466 0            0   0   777 
IT1	*      *      000002 *            302100000002 0                000000000002 *            0            0   0   *   
ET0	*      *      031467 *            000000000000 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031467 *      031470 *            777777777777 *                *            *            0            0   0   *   

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

*031470  JUMPA	0,031471

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031470 031470 031470 324000031471 777777777777 000000000002     000000000002 000000031466 0            0   0   777 
IT1	*      *      031471 *            324000031471 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031471     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031471 *            000000031471 000000000000     0            000000031471 0            0   0   *   

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

*031471  SETZ 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031471 031471 031471 400000000000 777777777777 0                0            000000031471 0            0   0   777 
IT1	*      *      000000 *            400000000000 0                0            *            0            0   0   *   
ET2	*      *      031472 *            000000000000 0                0            *            0            0   0   *   
ST1	031472 031472 *      200100033512 777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------
*031472  MOVE 	2,033512                                                                                                   SEQ 0213

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031472 031472 031472 200100033512 777777777777 0                0            000000031471 0            0   0   777 
IT1	*      *      033512 *            200100033512 0                000000000002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033512     *            *            0            0   0   *   
FT6	031473 031473 031473 217000000002 777777777777 777777777776     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777776 *            0            0   0   *   

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

*031473  MOVMS	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031473 031473 031473 217000000002 777777777777 777777777776     777777777776 000000031471 0            0   0   777 
IT1	*      *      000002 *            217000000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 031474 *            777777777777 777777777776     0            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000002     0            *            0            0   0   *   
ST2	*      *      *      000000000002 *            *                777777777776 *            0            0   0   *   
ST5	031474 031474 *      332000000000 *            *                000000000000 *            0            0   0   *   

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

*031474  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031474 031474 031474 332000000000 777777777777 000000000002     0            000000031471 0            0   0   777 
IT1	*      *      000000 *            332000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031475 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031475 0      031476 *            777777777777 0                0            *            0            0   0   *   

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

*031476  JUMPA	0,031477

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031476 031476 031476 324000031477 777777777777 0                0            000000031471 0            0   0   777 
IT1	*      *      031477 *            324000031477 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031477     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   SEQ 0214
ST1	*      *      031477 *            000000031477 000000000000     0            000000031477 0            0   0   *   

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

*031477  CAIE	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031477 031477 031477 302100000002 777777777777 0                0            000000031477 0            0   0   777 
IT1	*      *      000002 *            302100000002 0                000000000002 *            0            0   0   *   
ET0	*      *      031500 *            000000000000 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031500 *      031501 *            777777777777 *                *            *            0            0   0   *   

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

*031501  JUMPA	0,031502

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031501 031501 031501 324000031502 777777777777 000000000002     000000000002 000000031477 0            0   0   777 
IT1	*      *      031502 *            324000031502 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031502     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031502 *            000000031502 000000000000     0            000000031502 0            0   0   *   

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

*031502  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031502 031502 031502 474040000000 777777777777 0                0            000000031502 0            0   0   777 
IT1	*      *      000000 *            474040000000 0                777777777776 *            0            0   0   *   
ET2	*      *      031503 *            777777777777 0                *            *            0            0   0   *   
ST1	031503 031503 *      200100033512 *            777777777777     777777777777 *            0            0   0   *   

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

*031503  MOVE 	2,033512

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031503 031503 031503 200100033512 777777777777 777777777777     777777777777 000000031502 0            0   0   777 
IT1	*      *      033512 *            200100033512 *                000000000002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033512     *            *            0            0   0   *   
FT6	031504 031504 031504 217040000002 777777777777 777777777776     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777776 *            0            0   0   *   
                                                                                                                           SEQ 0215
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000002 C(E) =777777 777776 
FINAL
C(AC)=777777 777776 
----------

*031504  MOVMS	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031504 031504 031504 217040000002 777777777777 777777777776     777777777776 000000031502 0            0   0   777 
IT1	*      *      000002 *            217040000002 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031505 *            777777777777 777777777776     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000002     000000000002 *            0            0   0   *   
ST2	*      *      *      000000000002 *            *                777777777776 *            0            0   0   *   
ST5	031505 031505 *      302040000002 *            *                000000000002 *            0            0   0   *   

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

*031505  CAIE	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031505 031505 031505 302040000002 777777777777 000000000002     000000000002 000000031502 0            0   0   777 
IT1	*      *      000002 *            302040000002 *                *            *            0            0   0   *   
ET0	*      *      031506 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031506 *      031507 *            777777777777 *                *            *            0            0   0   *   

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

*031507  JUMPA	0,031510

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031507 031507 031507 324000031510 777777777777 000000000002     000000000002 000000031502 0            0   0   777 
IT1	*      *      031510 *            324000031510 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031510     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031510 *            000000031510 000000000000     0            000000031510 0            0   0   *   

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

*031510  CAIE	2,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031510 031510 031510 302100000002 777777777777 0                0            000000031510 0            0   0   777 
IT1	*      *      000002 *            302100000002 0                000000000002 *            0            0   0   *   
ET0	*      *      031511 *            000000000000 000000000002     *            *            0            0   0   *   SEQ 0216
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031511 *      031512 *            777777777777 *                *            *            0            0   0   *   

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

*031512  JUMPA	0,031513

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

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

*031513  MOVEI	1,000070

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031513 031513 031513 201040000070 777777777777 0                0            000000031513 0            0   0   777 
IT1	*      *      000070 *            201040000070 0                000000000002 *            0            0   0   *   
ET2	*      *      031514 *            000000000002 000000000070     *            *            0            0   0   *   
ST1	031514 031514 *      275040000002 777777777777 *                000000000070 *            0            0   0   *   

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

*031514  SUBI	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031514 031514 031514 275040000002 777777777777 000000000070     000000000070 000000031513 0            0   0   777 
IT1	*      *      000002 *            275040000002 *                *            *            0            0   0   *   
ET2	*      *      031515 *            000000000066 000000000002     *            *            0            0   0   *   
ST1	031515 031515 *      302040000066 777777777777 000000000066     000000000066 *            0            0   0   *   

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

*031515  CAIE	1,000066

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031515 031515 031515 302040000066 777777777777 000000000066     000000000066 000000031513 0            0   0   777 
IT1	*      *      000066 *            302040000066 *                *            *            0            0   0   *   
ET0	*      *      031516 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031516 *      031517 *            777777777777 *                *            *            0            0   0   *   SEQ 0217

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

*031517  JUMPA	0,031520

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031517 031517 031517 324000031520 777777777777 000000000066     000000000066 000000031513 0            0   0   777 
IT1	*      *      031520 *            324000031520 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031520     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031520 *            000000031520 000000000000     0            000000031520 0            0   0   *   

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

*031520  MOVEI	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031520 031520 031520 201040000100 777777777777 0                0            000000031520 0            0   0   777 
IT1	*      *      000100 *            201040000100 0                000000000066 *            0            0   0   *   
ET2	*      *      031521 *            000000000066 000000000100     *            *            0            0   0   *   
ST1	031521 031521 *      201100000037 777777777777 *                000000000100 *            0            0   0   *   

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

*031521  MOVEI	2,000037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031521 031521 031521 201100000037 777777777777 000000000100     000000000100 000000031520 0            0   0   777 
IT1	*      *      000037 *            201100000037 *                000000000002 *            0            0   0   *   
ET2	*      *      031522 *            000000000002 000000000037     *            *            0            0   0   *   
ST1	031522 031522 *      276040000002 777777777777 *                000000000037 *            0            0   0   *   

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

*031522  SUBM	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031522 031522 031522 276040000002 777777777777 000000000037     000000000037 000000031520 0            0   0   777 
IT1	*      *      000002 *            276040000002 *                000000000100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031523 *            777777777777 000000000037     *            *            0            0   0   *   
ET2	*      *      *      *            000000000041 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000041     *            *            0            0   0   *   
ST2	*      *      *      000000000041 *            *                000000000037 *            0            0   0   *   SEQ 0218
ST5	031523 031523 *      302040000100 *            *                000000000100 *            0            0   0   *   

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

*031523  CAIE	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031523 031523 031523 302040000100 777777777777 000000000041     000000000100 000000031520 0            0   0   777 
IT1	*      *      000100 *            302040000100 *                *            *            0            0   0   *   
ET0	*      *      031524 *            000000000000 000000000100     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031524 *      031525 *            777777777777 *                *            *            0            0   0   *   

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

*031525  JUMPA	0,031526

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

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

*031526  CAIE	2,000041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031526 031526 031526 302100000041 777777777777 0                0            000000031526 0            0   0   777 
IT1	*      *      000041 *            302100000041 0                000000000041 *            0            0   0   *   
ET0	*      *      031527 *            000000000000 000000000041     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031527 *      031530 *            777777777777 *                *            *            0            0   0   *   

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

*031530  JUMPA	0,031531

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031530 031530 031530 324000031531 777777777777 000000000041     000000000041 000000031526 0            0   0   777 
IT1	*      *      031531 *            324000031531 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031531     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031531 *            000000031531 000000000000     0            000000031531 0            0   0   *   
                                                                                                                           SEQ 0219
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 031531 
----------

*031531  MOVEI	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031531 031531 031531 201040000100 777777777777 0                0            000000031531 0            0   0   777 
IT1	*      *      000100 *            201040000100 0                000000000100 *            0            0   0   *   
ET2	*      *      031532 *            000000000100 000000000100     *            *            0            0   0   *   
ST1	031532 031532 *      201100000037 777777777777 *                *            *            0            0   0   *   

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

*031532  MOVEI	2,000037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031532 031532 031532 201100000037 777777777777 000000000100     000000000100 000000031531 0            0   0   777 
IT1	*      *      000037 *            201100000037 *                000000000041 *            0            0   0   *   
ET2	*      *      031533 *            000000000041 000000000037     *            *            0            0   0   *   
ST1	031533 031533 *      202100031545 777777777777 *                000000000037 *            0            0   0   *   

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

*031533  MOVEM	2,031545

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031533 031533 031533 202100031545 777777777777 000000000037     000000000037 000000031531 0            0   0   777 
IT1	*      *      031545 *            202100031545 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031545     *            *            0            0   0   *   
FT6	*      031545 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000037 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000000037     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000037 *            *                *            *            0            0   0   *   
ST5	031534 031534 031534 276040031545 *            *                *            *            0            0   0   *   

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

*031534  SUBM	1,031545

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031534 031534 031534 276040031545 777777777777 000000000037     000000000037 000000031531 0            0   0   777 
IT1	*      *      031545 *            276040031545 *                000000000100 *            0            0   0   *   SEQ 0220
MEMST	*      *      *      *            *            000000031545     *            *            0            0   0   *   
FT6	*      031545 *      000000000037 777777777777 000000000037     *            *            0            0   0   *   
ET2	*      *      *      *            000000000041 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000041     *            *            0            0   0   *   
ST2	*      *      *      000000000041 *            *                *            *            0            0   0   *   
ST5	031535 031535 031535 302040000100 *            *                *            *            0            0   0   *   

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

*031535  CAIE	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031535 031535 031535 302040000100 777777777777 000000000041     000000000100 000000031531 0            0   0   777 
IT1	*      *      000100 *            302040000100 *                *            *            0            0   0   *   
ET0	*      *      031536 *            000000000000 000000000100     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031536 *      031537 *            777777777777 *                *            *            0            0   0   *   

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

*031537  JUMPA	0,031540

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

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

*031540  MOVE 	2,031545

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031540 031540 031540 200100031545 777777777777 0                0            000000031540 0            0   0   777 
IT1	*      *      031545 *            200100031545 0                000000000037 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031545     *            *            0            0   0   *   
FT6	031541 031541 031541 302100000041 777777777777 000000000041     *            *            0            0   0   *   
ET2	*      *      *      *            000000000037 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000041 *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000037 C(E) =000000 000041 
FINAL
C(AC)=000000 000041 
----------
*031541  CAIE	2,000041                                                                                                   SEQ 0221

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031541 031541 031541 302100000041 777777777777 000000000041     000000000041 000000031540 0            0   0   777 
IT1	*      *      000041 *            302100000041 *                *            *            0            0   0   *   
ET0	*      *      031542 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031542 *      031543 *            777777777777 *                *            *            0            0   0   *   

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

*031543  JUMPA	0,031544

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031543 031543 031543 324000031544 777777777777 000000000041     000000000041 000000031540 0            0   0   777 
IT1	*      *      031544 *            324000031544 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031544     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031544 *            000000031544 000000000000     0            000000031544 0            0   0   *   

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

*031544  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031544 031544 031544 334000000000 777777777777 0                0            000000031544 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031545 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031545 0      031546 *            777777777777 0                0            *            0            0   0   *   

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

*031546  MOVEI	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031546 031546 031546 201040000100 777777777777 0                0            000000031544 0            0   0   777 
IT1	*      *      000100 *            201040000100 0                000000000100 *            0            0   0   *   
ET2	*      *      031547 *            000000000100 000000000100     *            *            0            0   0   *   
ST1	031547 031547 *      201100000037 777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000100 E    =000000 000100 
FINAL
C(AC)=000000 000100 
----------
                                                                                                                           SEQ 0222
*031547  MOVEI	2,000037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031547 031547 031547 201100000037 777777777777 000000000100     000000000100 000000031544 0            0   0   777 
IT1	*      *      000037 *            201100000037 *                000000000041 *            0            0   0   *   
ET2	*      *      031550 *            000000000041 000000000037     *            *            0            0   0   *   
ST1	031550 031550 *      277040000002 777777777777 *                000000000037 *            0            0   0   *   

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

*031550  SUBB	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031550 031550 031550 277040000002 777777777777 000000000037     000000000037 000000031544 0            0   0   777 
IT1	*      *      000002 *            277040000002 *                000000000100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 031551 *            777777777777 000000000037     *            *            0            0   0   *   
ET2	*      *      *      *            000000000041 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000041     000000000041 *            0            0   0   *   
ST2	*      *      *      000000000041 *            *                000000000037 *            0            0   0   *   
ST5	031551 031551 *      302040000041 *            *                000000000041 *            0            0   0   *   

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

*031551  CAIE	1,000041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031551 031551 031551 302040000041 777777777777 000000000041     000000000041 000000031544 0            0   0   777 
IT1	*      *      000041 *            302040000041 *                *            *            0            0   0   *   
ET0	*      *      031552 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031552 *      031553 *            777777777777 *                *            *            0            0   0   *   

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

*031553  JUMPA	0,031554

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031553 031553 031553 324000031554 777777777777 000000000041     000000000041 000000031544 0            0   0   777 
IT1	*      *      031554 *            324000031554 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031554     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031554 *            000000031554 000000000000     0            000000031554 0            0   0   *   

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

*031554  CAIE	2,000041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031554 031554 031554 302100000041 777777777777 0                0            000000031554 0            0   0   777 
IT1	*      *      000041 *            302100000041 0                000000000041 *            0            0   0   *   
ET0	*      *      031555 *            000000000000 000000000041     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031555 *      031556 *            777777777777 *                *            *            0            0   0   *   

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

*031556  JUMPA	0,031557

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031556 031556 031556 324000031557 777777777777 000000000041     000000000041 000000031554 0            0   0   777 
IT1	*      *      031557 *            324000031557 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031557     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031557 *            000000031557 000000000000     0            000000031557 0            0   0   *   

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

*031557  MOVEI	1,000100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031557 031557 031557 201040000100 777777777777 0                0            000000031557 0            0   0   777 
IT1	*      *      000100 *            201040000100 0                000000000041 *            0            0   0   *   
ET2	*      *      031560 *            000000000041 000000000100     *            *            0            0   0   *   
ST1	031560 031560 *      201100000037 777777777777 *                000000000100 *            0            0   0   *   

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

*031560  MOVEI	2,000037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031560 031560 031560 201100000037 777777777777 000000000100     000000000100 000000031557 0            0   0   777 
IT1	*      *      000037 *            201100000037 *                000000000041 *            0            0   0   *   
ET2	*      *      031561 *            000000000041 000000000037     *            *            0            0   0   *   
ST1	031561 031561 *      202100031573 777777777777 *                000000000037 *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000041 E    =000000 000037 
FINAL
C(AC)=000000 000037 
----------
                                                                                                                           SEQ 0224
*031561  MOVEM	2,031573

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031561 031561 031561 202100031573 777777777777 000000000037     000000000037 000000031557 0            0   0   777 
IT1	*      *      031573 *            202100031573 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000031573     *            *            0            0   0   *   
FT6	*      031573 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            000000000037 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 000000000037     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      000000000037 *            *                *            *            0            0   0   *   
ST5	031562 031562 031562 277040031573 *            *                *            *            0            0   0   *   

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

*031562  SUBB	1,031573

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031562 031562 031562 277040031573 777777777777 000000000037     000000000037 000000031557 0            0   0   777 
IT1	*      *      031573 *            277040031573 *                000000000100 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031573     *            *            0            0   0   *   
FT6	*      031573 *      000000000037 777777777777 000000000037     *            *            0            0   0   *   
ET2	*      *      *      *            000000000041 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000041     000000000041 *            0            0   0   *   
ST2	*      *      *      000000000041 *            *                *            *            0            0   0   *   
ST5	031563 031563 031563 302040000041 *            *                *            *            0            0   0   *   

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

*031563  CAIE	1,000041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031563 031563 031563 302040000041 777777777777 000000000041     000000000041 000000031557 0            0   0   777 
IT1	*      *      000041 *            302040000041 *                *            *            0            0   0   *   
ET0	*      *      031564 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031564 *      031565 *            777777777777 *                *            *            0            0   0   *   

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

*031565  JUMPA	0,031566

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031565 031565 031565 324000031566 777777777777 000000000041     000000000041 000000031557 0            0   0   777 
IT1	*      *      031566 *            324000031566 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031566     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   SEQ 0225
ST1	*      *      031566 *            000000031566 000000000000     0            000000031566 0            0   0   *   

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

*031566  MOVE 	2,031573

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031566 031566 031566 200100031573 777777777777 0                0            000000031566 0            0   0   777 
IT1	*      *      031573 *            200100031573 0                000000000037 *            0            0   0   *   
MEMST	*      *      *      *            *            000000031573     *            *            0            0   0   *   
FT6	031567 031567 031567 302100000041 777777777777 000000000041     *            *            0            0   0   *   
ET2	*      *      *      *            000000000037 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000041 *            0            0   0   *   

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

*031567  CAIE	2,000041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031567 031567 031567 302100000041 777777777777 000000000041     000000000041 000000031566 0            0   0   777 
IT1	*      *      000041 *            302100000041 *                *            *            0            0   0   *   
ET0	*      *      031570 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	031570 *      031571 *            777777777777 *                *            *            0            0   0   *   

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

*031571  JUMPA	0,031572

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031571 031571 031571 324000031572 777777777777 000000000041     000000000041 000000031566 0            0   0   777 
IT1	*      *      031572 *            324000031572 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031572     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031572 *            000000031572 000000000000     0            000000031572 0            0   0   *   

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

*031572  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031572 031572 031572 334000000000 777777777777 0                0            000000031572 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031573 *            000000000000 0                0            *            0            0   0   *   SEQ 0226
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031573 0      031574 *            777777777777 0                0            *            0            0   0   *   

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

*031574  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031574 031574 031574 201040000001 777777777777 0                0            000000031572 0            0   0   777 
IT1	*      *      000001 *            201040000001 0                000000000041 *            0            0   0   *   
ET2	*      *      031575 *            000000000041 000000000001     *            *            0            0   0   *   
ST1	031575 031575 *      301040000002 777777777777 *                000000000001 *            0            0   0   *   

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

*031575  CAIL	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031575 031575 031575 301040000002 777777777777 000000000001     000000000001 000000031572 0            0   0   777 
IT1	*      *      000002 *            301040000002 *                *            *            0            0   0   *   
ET0	*      *      031576 *            777777777777 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031576 *      031577 *            *            *                *            *            0            0   0   *   

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

*031577  JUMPA	0,031600

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031577 031577 031577 324000031600 777777777777 000000000002     000000000001 000000031572 0            0   0   777 
IT1	*      *      031600 *            324000031600 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031600     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031600 *            000000031600 000000000000     0            000000031600 0            0   0   *   

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

*031600  MOVEI	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031600 031600 031600 201040000002 777777777777 0                0            000000031600 0            0   0   777 
IT1	*      *      000002 *            201040000002 0                000000000001 *            0            0   0   *   
ET2	*      *      031601 *            000000000001 000000000002     *            *            0            0   0   *   
ST1	031601 031601 *      301040000002 777777777777 *                000000000002 *            0            0   0   *   SEQ 0227

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

*031601  CAIL	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031601 031601 031601 301040000002 777777777777 000000000002     000000000002 000000031600 0            0   0   777 
IT1	*      *      000002 *            301040000002 *                *            *            0            0   0   *   
ET0	*      *      031602 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031602  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031602 031602 031602 334000000000 777777777777 000000000002     000000000002 000000031600 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031603 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031603 0      031604 *            777777777777 0                0            *            0            0   0   *   

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

*031604  JUMPA	0,031605

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

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

*031605  MOVEI	1,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031605 031605 031605 201040000003 777777777777 0                0            000000031605 0            0   0   777 
IT1	*      *      000003 *            201040000003 0                000000000002 *            0            0   0   *   
ET2	*      *      031606 *            000000000002 000000000003     *            *            0            0   0   *   SEQ 0228
ST1	031606 031606 *      301040000002 777777777777 *                000000000003 *            0            0   0   *   

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

*031606  CAIL	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031606 031606 031606 301040000002 777777777777 000000000003     000000000003 000000031605 0            0   0   777 
IT1	*      *      000002 *            301040000002 *                *            *            0            0   0   *   
ET0	*      *      031607 *            000000000001 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031607  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031607 031607 031607 334000000000 777777777777 000000000002     000000000003 000000031605 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031610 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031610 0      031611 *            777777777777 0                0            *            0            0   0   *   

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

*031611  JUMPA	0,031612

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031611 031611 031611 324000031612 777777777777 0                0            000000031605 0            0   0   777 
IT1	*      *      031612 *            324000031612 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031612     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031612 *            000000031612 000000000000     0            000000031612 0            0   0   *   

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

*031612  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031612 031612 031612 474040000000 777777777777 0                0            000000031612 0            0   0   777 
IT1	*      *      000000 *            474040000000 0                000000000003 *            0            0   0   *   SEQ 0229
ET2	*      *      031613 *            777777777777 0                *            *            0            0   0   *   
ST1	031613 031613 *      303040000000 *            777777777777     777777777777 *            0            0   0   *   

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

*031613  CAILE	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031613 031613 031613 303040000000 777777777777 777777777777     777777777777 000000031612 0            0   0   777 
IT1	*      *      000000 *            303040000000 *                *            *            0            0   0   *   
ET0	*      *      031614 *            777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	031614 *      031615 *            *            0                *            *            0            0   0   *   

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

*031615  JUMPA	0,031616

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

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

*031616  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031616 031616 031616 400040000000 777777777777 0                0            000000031616 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                777777777777 *            0            0   0   *   
ET2	*      *      031617 *            000000000000 0                *            *            0            0   0   *   
ST1	031617 031617 *      303040000000 777777777777 0                000000000000 *            0            0   0   *   

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

*031617  CAILE	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031617 031617 031617 303040000000 777777777777 0                0            000000031616 0            0   0   777 
IT1	*      *      000000 *            303040000000 0                0            *            0            0   0   *   
ET0	*      *      031620 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   SEQ 0230
ST1	031620 *      031621 *            777777777777 0                0            *            0            0   0   *   

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

*031621  JUMPA	0,031622

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031621 031621 031621 324000031622 777777777777 0                0            000000031616 0            0   0   777 
IT1	*      *      031622 *            324000031622 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031622     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031622 *            000000031622 000000000000     0            000000031622 0            0   0   *   

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

*031622  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031622 031622 031622 201040000001 777777777777 0                0            000000031622 0            0   0   777 
IT1	*      *      000001 *            201040000001 0                0            *            0            0   0   *   
ET2	*      *      031623 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031623 031623 *      303040000000 777777777777 *                000000000001 *            0            0   0   *   

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

*031623  CAILE	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031623 031623 031623 303040000000 777777777777 000000000001     000000000001 000000031622 0            0   0   777 
IT1	*      *      000000 *            303040000000 *                *            *            0            0   0   *   
ET0	*      *      031624 *            000000000001 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                *            *            0            0   0   *   

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

*031624  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031624 031624 031624 334000000000 777777777777 0                000000000001 000000031622 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031625 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031625 0      031626 *            777777777777 0                0            *            0            0   0   *   SEQ 0231

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

*031626  JUMPA	0,031627

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031626 031626 031626 324000031627 777777777777 0                0            000000031622 0            0   0   777 
IT1	*      *      031627 *            324000031627 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031627     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031627 *            000000031627 000000000000     0            000000031627 0            0   0   *   

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

*031627  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031627 031627 031627 474040000000 777777777777 0                0            000000031627 0            0   0   777 
IT1	*      *      000000 *            474040000000 0                000000000001 *            0            0   0   *   
ET2	*      *      031630 *            777777777777 0                *            *            0            0   0   *   
ST1	031630 031630 *      304040000000 *            777777777777     777777777777 *            0            0   0   *   

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

*031630  CAIA	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031630 031630 031630 304040000000 777777777777 777777777777     777777777777 000000031627 0            0   0   777 
IT1	*      *      000000 *            304040000000 *                *            *            0            0   0   *   
ET0	*      *      031631 *            777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	031631 *      031632 *            *            0                *            *            0            0   0   *   

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

*031632  JUMPA	0,031633

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031632 031632 031632 324000031633 777777777777 0                777777777777 000000031627 0            0   0   777 
IT1	*      *      031633 *            324000031633 0                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031633     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031633 *            000000031633 000000000000     0            000000031633 0            0   0   *   
                                                                                                                           SEQ 0232
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 031633 
----------

*031633  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031633 031633 031633 400040000000 777777777777 0                0            000000031633 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                777777777777 *            0            0   0   *   
ET2	*      *      031634 *            000000000000 0                *            *            0            0   0   *   
ST1	031634 031634 *      304040000000 777777777777 0                000000000000 *            0            0   0   *   

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

*031634  CAIA	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031634 031634 031634 304040000000 777777777777 0                0            000000031633 0            0   0   777 
IT1	*      *      000000 *            304040000000 0                0            *            0            0   0   *   
ET0	*      *      031635 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	031635 *      031636 *            777777777777 0                0            *            0            0   0   *   

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

*031636  JUMPA	0,031637

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031636 031636 031636 324000031637 777777777777 0                0            000000031633 0            0   0   777 
IT1	*      *      031637 *            324000031637 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031637     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031637 *            000000031637 000000000000     0            000000031637 0            0   0   *   

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

*031637  MOVEI	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031637 031637 031637 201040000001 777777777777 0                0            000000031637 0            0   0   777 
IT1	*      *      000001 *            201040000001 0                0            *            0            0   0   *   
ET2	*      *      031640 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031640 031640 *      304040000000 777777777777 *                000000000001 *            0            0   0   *   

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

*031640  CAIA	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031640 031640 031640 304040000000 777777777777 000000000001     000000000001 000000031637 0            0   0   777 
IT1	*      *      000000 *            304040000000 *                *            *            0            0   0   *   
ET0	*      *      031641 *            000000000001 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	031641 *      031642 *            777777777777 0                *            *            0            0   0   *   

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

*031642  JUMPA	0,031643

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031642 031642 031642 324000031643 777777777777 0                000000000001 000000031637 0            0   0   777 
IT1	*      *      031643 *            324000031643 0                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031643     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031643 *            000000031643 000000000000     0            000000031643 0            0   0   *   

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

*031643  MOVEI	2,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031643 031643 031643 201100000005 777777777777 0                0            000000031643 0            0   0   777 
IT1	*      *      000005 *            201100000005 0                000000000041 *            0            0   0   *   
ET2	*      *      031644 *            000000000041 000000000005     *            *            0            0   0   *   
ST1	031644 031644 *      305100000006 777777777777 *                000000000005 *            0            0   0   *   

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

*031644  CAIGE	2,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031644 031644 031644 305100000006 777777777777 000000000005     000000000005 000000031643 0            0   0   777 
IT1	*      *      000006 *            305100000006 *                *            *            0            0   0   *   
ET0	*      *      031645 *            777777777777 000000000006     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000005 E    =000000 000006 
----------
                                                                                                                           SEQ 0234
*031645  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031645 031645 031645 334000000000 777777777777 000000000006     000000000005 000000031643 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031646 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031646 0      031647 *            777777777777 0                0            *            0            0   0   *   

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

*031647  JUMPA	0,031650

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031647 031647 031647 324000031650 777777777777 0                0            000000031643 0            0   0   777 
IT1	*      *      031650 *            324000031650 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031650     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031650 *            000000031650 000000000000     0            000000031650 0            0   0   *   

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

*031650  MOVEI	2,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031650 031650 031650 201100000006 777777777777 0                0            000000031650 0            0   0   777 
IT1	*      *      000006 *            201100000006 0                000000000005 *            0            0   0   *   
ET2	*      *      031651 *            000000000005 000000000006     *            *            0            0   0   *   
ST1	031651 031651 *      305000000000 777777777777 *                000000000006 *            0            0   0   *   

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

*031651  CAIGE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031651 031651 031651 305000000000 777777777777 000000000006     000000000006 000000031650 0            0   0   777 
IT1	*      *      000000 *            305000000000 *                000000000000 *            0            0   0   *   
ET0	*      *      031652 *            000000000000 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	031652 *      031653 *            777777777777 0                0            *            0            0   0   *   

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

*031653  JUMPA	0,031654

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031653 031653 031653 324000031654 777777777777 0                0            000000031650 0            0   0   777 
IT1	*      *      031654 *            324000031654 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031654     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031654 *            000000031654 000000000000     0            000000031654 0            0   0   *   

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

*031654  MOVEI	2,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031654 031654 031654 201100000007 777777777777 0                0            000000031654 0            0   0   777 
IT1	*      *      000007 *            201100000007 0                000000000006 *            0            0   0   *   
ET2	*      *      031655 *            000000000006 000000000007     *            *            0            0   0   *   
ST1	031655 031655 *      305100000006 777777777777 *                000000000007 *            0            0   0   *   

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

*031655  CAIGE	2,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031655 031655 031655 305100000006 777777777777 000000000007     000000000007 000000031654 0            0   0   777 
IT1	*      *      000006 *            305100000006 *                *            *            0            0   0   *   
ET0	*      *      031656 *            000000000001 000000000006     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031656 *      031657 *            777777777777 *                *            *            0            0   0   *   

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

*031657  JUMPA	0,031660

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031657 031657 031657 324000031660 777777777777 000000000006     000000000007 000000031654 0            0   0   777 
IT1	*      *      031660 *            324000031660 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031660     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031660 *            000000031660 000000000000     0            000000031660 0            0   0   *   

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

*031660  SETZ 	6,000000
                                                                                                                           SEQ 0236
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031660 031660 031660 400300000000 777777777777 0                0            000000031660 0            0   0   777 
IT1	*      *      000000 *            400300000000 0                0            *            0            0   0   *   
ET2	*      *      031661 *            000000000000 0                0            *            0            0   0   *   
ST1	031661 031661 *      306300000001 777777777777 0                0            *            0            0   0   *   

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

*031661  CAIN	6,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031661 031661 031661 306300000001 777777777777 0                0            000000031660 0            0   0   777 
IT1	*      *      000001 *            306300000001 0                0            *            0            0   0   *   
ET0	*      *      031662 *            777777777777 000000000001     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031662 *      031663 *            *            *                0            *            0            0   0   *   

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

*031663  JUMPA	0,031664

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031663 031663 031663 324000031664 777777777777 000000000001     0            000000031660 0            0   0   777 
IT1	*      *      031664 *            324000031664 *                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031664     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031664 *            000000031664 000000000000     0            000000031664 0            0   0   *   

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

*031664  MOVE 	6,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031664 031664 031664 200300000001 777777777777 0                0            000000031664 0            0   0   777 
IT1	*      *      000001 *            200300000001 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     0            *            0            0   0   *   
FT6	031665 031665 031665 306300000001 777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000001 *            0            0   0   *   

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

*031665  CAIN	6,000001
                                                                                                                           SEQ 0237
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031665 031665 031665 306300000001 777777777777 000000000001     000000000001 000000031664 0            0   0   777 
IT1	*      *      000001 *            306300000001 *                *            *            0            0   0   *   
ET0	*      *      031666 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031666  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031666 031666 031666 334000000000 777777777777 000000000001     000000000001 000000031664 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031667 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031667 0      031670 *            777777777777 0                0            *            0            0   0   *   

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

*031670  JUMPA	0,031671

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031670 031670 031670 324000031671 777777777777 0                0            000000031664 0            0   0   777 
IT1	*      *      031671 *            324000031671 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031671     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031671 *            000000031671 000000000000     0            000000031671 0            0   0   *   

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

*031671  MOVEI	6,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031671 031671 031671 201300000002 777777777777 0                0            000000031671 0            0   0   777 
IT1	*      *      000002 *            201300000002 0                000000000001 *            0            0   0   *   
ET2	*      *      031672 *            000000000001 000000000002     *            *            0            0   0   *   
ST1	031672 031672 *      306300000001 777777777777 *                000000000002 *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000001 E    =000000 000002 
FINAL
C(AC)=000000 000002 
----------
*031672  CAIN	6,000001                                                                                                   SEQ 0238

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031672 031672 031672 306300000001 777777777777 000000000002     000000000002 000000031671 0            0   0   777 
IT1	*      *      000001 *            306300000001 *                *            *            0            0   0   *   
ET0	*      *      031673 *            000000000001 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031673 *      031674 *            777777777777 *                *            *            0            0   0   *   

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

*031674  JUMPA	0,031675

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031674 031674 031674 324000031675 777777777777 000000000001     000000000002 000000031671 0            0   0   777 
IT1	*      *      031675 *            324000031675 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031675     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031675 *            000000031675 000000000000     0            000000031675 0            0   0   *   

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

*031675  MOVEI	11,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031675 031675 031675 201440000002 777777777777 0                0            000000031675 0            0   0   777 
IT1	*      *      000002 *            201440000002 0                0            *            0            0   0   *   
ET2	*      *      031676 *            000000000000 000000000002     0            *            0            0   0   *   
ST1	031676 031676 *      307440000003 777777777777 *                000000000002 *            0            0   0   *   

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

*031676  CAIG	11,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031676 031676 031676 307440000003 777777777777 000000000002     000000000002 000000031675 0            0   0   777 
IT1	*      *      000003 *            307440000003 *                *            *            0            0   0   *   
ET0	*      *      031677 *            777777777777 000000000003     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   

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

*031677  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031677 031677 031677 334000000000 777777777777 000000000003     000000000002 000000031675 0            0   0   77  SEQ 0239
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031700 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031700 0      031701 *            777777777777 0                0            *            0            0   0   *   

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

*031701  JUMPA	0,031702

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031701 031701 031701 324000031702 777777777777 0                0            000000031675 0            0   0   777 
IT1	*      *      031702 *            324000031702 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031702     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031702 *            000000031702 000000000000     0            000000031702 0            0   0   *   

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

*031702  MOVEI	11,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031702 031702 031702 201440000003 777777777777 0                0            000000031702 0            0   0   777 
IT1	*      *      000003 *            201440000003 0                000000000002 *            0            0   0   *   
ET2	*      *      031703 *            000000000002 000000000003     *            *            0            0   0   *   
ST1	031703 031703 *      307440000003 777777777777 *                000000000003 *            0            0   0   *   

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

*031703  CAIG	11,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031703 031703 031703 307440000003 777777777777 000000000003     000000000003 000000031702 0            0   0   777 
IT1	*      *      000003 *            307440000003 *                *            *            0            0   0   *   
ET0	*      *      031704 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031704  SKIPA	0,000000
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0240
IT0	031704 031704 031704 334000000000 777777777777 000000000003     000000000003 000000031702 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031705 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031705 0      031706 *            777777777777 0                0            *            0            0   0   *   

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

*031706  JUMPA	0,031707

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031706 031706 031706 324000031707 777777777777 0                0            000000031702 0            0   0   777 
IT1	*      *      031707 *            324000031707 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031707     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031707 *            000000031707 000000000000     0            000000031707 0            0   0   *   

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

*031707  MOVEI	11,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031707 031707 031707 201440000004 777777777777 0                0            000000031707 0            0   0   777 
IT1	*      *      000004 *            201440000004 0                000000000003 *            0            0   0   *   
ET2	*      *      031710 *            000000000003 000000000004     *            *            0            0   0   *   
ST1	031710 031710 *      307440000003 777777777777 *                000000000004 *            0            0   0   *   

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

*031710  CAIG	11,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031710 031710 031710 307440000003 777777777777 000000000004     000000000004 000000031707 0            0   0   777 
IT1	*      *      000003 *            307440000003 *                *            *            0            0   0   *   
ET0	*      *      031711 *            000000000001 000000000003     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	031711 *      031712 *            777777777777 *                *            *            0            0   0   *   

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

*031712  JUMPA	0,031713
                                                                                                                           SEQ 0241
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031712 031712 031712 324000031713 777777777777 000000000003     000000000004 000000031707 0            0   0   777 
IT1	*      *      031713 *            324000031713 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031713     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031713 *            000000031713 000000000000     0            000000031713 0            0   0   *   

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

*031713  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031713 031713 031713 474040000000 777777777777 0                0            000000031713 0            0   0   777 
IT1	*      *      000000 *            474040000000 0                000000000001 *            0            0   0   *   
ET2	*      *      031714 *            777777777777 0                *            *            0            0   0   *   
ST1	031714 031714 *      400100000000 *            777777777777     777777777777 *            0            0   0   *   

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

*031714  SETZ 	2,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031714 031714 031714 400100000000 777777777777 777777777777     777777777777 000000031713 0            0   0   777 
IT1	*      *      000000 *            400100000000 *                000000000007 *            0            0   0   *   
ET2	*      *      031715 *            000000000000 000000000000     *            *            0            0   0   *   
ST1	031715 031715 *      313040000002 777777777777 0                000000000000 *            0            0   0   *   

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

*031715  CAMLE	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031715 031715 031715 313040000002 777777777777 0                0            000000031713 0            0   0   777 
IT1	*      *      000002 *            313040000002 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      031716 *            *            0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	031716 *      031717 *            *            0                *            *            0            0   0   *   

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

*031717  JUMPA	0,031720
                                                                                                                           SEQ 0242
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031717 031717 031717 324000031720 777777777777 0                777777777777 000000031713 0            0   0   777 
IT1	*      *      031720 *            324000031720 0                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031720     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031720 *            000000031720 000000000000     0            000000031720 0            0   0   *   

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

*031720  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031720 031720 031720 400040000000 777777777777 0                0            000000031720 0            0   0   777 
IT1	*      *      000000 *            400040000000 0                777777777777 *            0            0   0   *   
ET2	*      *      031721 *            000000000000 0                *            *            0            0   0   *   
ST1	031721 031721 *      313040033513 777777777777 0                000000000000 *            0            0   0   *   

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

*031721  CAMLE	1,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031721 031721 031721 313040033513 777777777777 0                0            000000031720 0            0   0   777 
IT1	*      *      033513 *            313040033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      031722 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	031722 *      031723 0            777777777777 0                0            *            0            0   0   *   

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

*031723  JUMPA	0,031724

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031723 031723 031723 324000031724 777777777777 0                0            000000031720 0            0   0   777 
IT1	*      *      031724 *            324000031724 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031724     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031724 *            000000031724 000000000000     0            000000031724 0            0   0   *   

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

*031724  MOVEI	1,000001
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0243
IT0	031724 031724 031724 201040000001 777777777777 0                0            000000031724 0            0   0   777 
IT1	*      *      000001 *            201040000001 0                0            *            0            0   0   *   
ET2	*      *      031725 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031725 031725 *      400100000000 777777777777 *                000000000001 *            0            0   0   *   

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

*031725  SETZ 	2,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031725 031725 031725 400100000000 777777777777 000000000001     000000000001 000000031724 0            0   0   777 
IT1	*      *      000000 *            400100000000 *                000000000000 *            0            0   0   *   
ET2	*      *      031726 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	031726 031726 *      313040000002 777777777777 0                0            *            0            0   0   *   

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

*031726  CAMLE	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031726 031726 031726 313040000002 777777777777 0                0            000000031724 0            0   0   777 
IT1	*      *      000002 *            313040000002 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      031727 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                *            *            0            0   0   *   

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

*031727  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031727 031727 031727 334000000000 777777777777 0                000000000001 000000031724 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031730 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031730 0      031731 *            777777777777 0                0            *            0            0   0   *   

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

*031731  JUMPA	0,031732

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031731 031731 031731 324000031732 777777777777 0                0            000000031724 0            0   0   777 
IT1	*      *      031732 *            324000031732 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031732     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031732 *            000000031732 000000000000     0            000000031732 0            0   0   *   

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

*031732  HRROI	10,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031732 031732 031732 561400777776 777777777777 0                0            000000031732 0            0   0   777 
IT1	*      *      777776 *            561400777776 0                0            *            0            0   0   *   
ET2	*      *      031733 *            777777777776 000000777776     0            *            0            0   0   *   
ST1	031733 031733 *      317400033474 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*031733  CAMG	10,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031733 031733 031733 317400033474 777777777777 777777777776     777777777776 000000031732 0            0   0   777 
IT1	*      *      033474 *            317400033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031734 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   

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

*031734  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031734 031734 031734 334000000000 777777777777 777777777777     777777777776 000000031732 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031735 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031735 0      031736 *            777777777777 0                0            *            0            0   0   *   

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

*031736  JUMPA	0,031737

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031736 031736 031736 324000031737 777777777777 0                0            000000031732 0            0   0   777 
IT1	*      *      031737 *            324000031737 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031737     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031737 *            000000031737 000000000000     0            000000031737 0            0   0   *   

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

*031737  SETO 	10,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031737 031737 031737 474400000000 777777777777 0                0            000000031737 0            0   0   777 
IT1	*      *      000000 *            474400000000 0                777777777776 *            0            0   0   *   
ET2	*      *      031740 *            777777777777 0                *            *            0            0   0   *   
ST1	031740 031740 *      317400033474 *            777777777777     777777777777 *            0            0   0   *   

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

*031740  CAMG	10,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031740 031740 031740 317400033474 777777777777 777777777777     777777777777 000000031737 0            0   0   777 
IT1	*      *      033474 *            317400033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      031741 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031741  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031741 031741 031741 334000000000 777777777777 777777777777     777777777777 000000031737 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031742 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031742 0      031743 *            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0246
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031743  JUMPA	0,031744

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031743 031743 031743 324000031744 777777777777 0                0            000000031737 0            0   0   777 
IT1	*      *      031744 *            324000031744 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031744     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031744 *            000000031744 000000000000     0            000000031744 0            0   0   *   

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

*031744  SETZ 	10,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031744 031744 031744 400400000000 777777777777 0                0            000000031744 0            0   0   777 
IT1	*      *      000000 *            400400000000 0                777777777777 *            0            0   0   *   
ET2	*      *      031745 *            000000000000 0                *            *            0            0   0   *   
ST1	031745 031745 *      317400033474 777777777777 0                000000000000 *            0            0   0   *   

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

*031745  CAMG	10,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031745 031745 031745 317400033474 777777777777 0                0            000000031744 0            0   0   777 
IT1	*      *      033474 *            317400033474 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     0            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031746 *            000000000001 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031746 *      031747 *            777777777777 *                0            *            0            0   0   *   

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

*031747  JUMPA	0,031750

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031747 031747 031747 324000031750 777777777777 777777777777     0            000000031744 0            0   0   777 
IT1	*      *      031750 *            324000031750 *                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031750     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031750 *            000000031750 000000000000     0            000000031750 0            0   0   *   SEQ 0247

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

*031750  SETO 	17,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031750 031750 031750 474740000000 777777777777 0                0            000000031750 0            0   0   777 
IT1	*      *      000000 *            474740000000 0                0            *            0            0   0   *   
ET2	*      *      031751 *            777777777777 0                0            *            0            0   0   *   
ST1	031751 031751 *      323740031753 *            777777777777     777777777777 *            0            0   0   *   

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

*031751  JUMPLE	17,031753

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031751 031751 031751 323740031753 777777777777 777777777777     777777777777 000000031750 0            0   0   777 
IT1	*      *      031753 *            323740031753 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031753     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031753 *            000000031753 777777777777     *            000000031753 0            0   0   *   

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

*031753  JUMPA	0,031754

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031753 031753 031753 324000031754 777777777777 777777777777     777777777777 000000031753 0            0   0   777 
IT1	*      *      031754 *            324000031754 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031754     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031754 *            000000031754 000000000000     0            000000031754 0            0   0   *   

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

*031754  SETZ 	17,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031754 031754 031754 400740000000 777777777777 0                0            000000031754 0            0   0   777 
IT1	*      *      000000 *            400740000000 0                777777777777 *            0            0   0   *   
ET2	*      *      031755 *            000000000000 0                *            *            0            0   0   *   
ST1	031755 031755 *      323740031757 777777777777 0                000000000000 *            0            0   0   *   

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

*031755  JUMPLE	17,031757

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031755 031755 031755 323740031757 777777777777 0                0            000000031754 0            0   0   777 
IT1	*      *      031757 *            323740031757 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031757     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031757 *            000000031757 000000000000     0            000000031757 0            0   0   *   

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

*031757  JUMPA	0,031760

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031757 031757 031757 324000031760 777777777777 0                0            000000031757 0            0   0   777 
IT1	*      *      031760 *            324000031760 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031760     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031760 *            000000031760 000000000000     0            000000031760 0            0   0   *   

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

*031760  MOVEI	17,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031760 031760 031760 201740000001 777777777777 0                0            000000031760 0            0   0   777 
IT1	*      *      000001 *            201740000001 0                0            *            0            0   0   *   
ET2	*      *      031761 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031761 031761 *      320740031763 777777777777 *                000000000001 *            0            0   0   *   

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

*031761  JUMP 	17,031763

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031761 031761 031761 320740031763 777777777777 000000000001     000000000001 000000031760 0            0   0   777 
IT1	*      *      031763 *            320740031763 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000031763     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031762 *            000000031763 000000000001     *            000000031763 0            0   0   *   

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

*031762  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031762 031762 031762 334000000000 777777777777 000000000001     000000000001 000000031763 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031763 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031763 0      031764 *            777777777777 0                0            *            0            0   0   *   

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

*031764  JUMPA	0,031765

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031764 031764 031764 324000031765 777777777777 0                0            000000031763 0            0   0   777 
IT1	*      *      031765 *            324000031765 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031765     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031765 *            000000031765 000000000000     0            000000031765 0            0   0   *   

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

*031765  SETO 	16,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031765 031765 031765 474700000000 777777777777 0                0            000000031765 0            0   0   777 
IT1	*      *      000000 *            474700000000 0                0            *            0            0   0   *   
ET2	*      *      031766 *            777777777777 0                0            *            0            0   0   *   
ST1	031766 031766 *      325700031770 *            777777777777     777777777777 *            0            0   0   *   

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

*031766  JUMPGE	16,031770

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031766 031766 031766 325700031770 777777777777 777777777777     777777777777 000000031765 0            0   0   777 
IT1	*      *      031770 *            325700031770 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031770     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031767 *            000000031770 777777777777     *            000000031770 0            0   0   *   

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

*031767  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031767 031767 031767 334000000000 777777777777 777777777777     777777777777 000000031770 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031770 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031770 0      031771 *            777777777777 0                0            *            0            0   0   *   

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

*031771  JUMPA	0,031772

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031771 031771 031771 324000031772 777777777777 0                0            000000031770 0            0   0   777 
IT1	*      *      031772 *            324000031772 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031772     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031772 *            000000031772 000000000000     0            000000031772 0            0   0   *   

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

*031772  SETZ 	16,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031772 031772 031772 400700000000 777777777777 0                0            000000031772 0            0   0   777 
IT1	*      *      000000 *            400700000000 0                777777777777 *            0            0   0   *   
ET2	*      *      031773 *            000000000000 0                *            *            0            0   0   *   
ST1	031773 031773 *      325700031775 777777777777 0                000000000000 *            0            0   0   *   

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

*031773  JUMPGE	16,031775

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031773 031773 031773 325700031775 777777777777 0                0            000000031772 0            0   0   777 
IT1	*      *      031775 *            325700031775 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031775     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031775 *            000000031775 000000000000     0            000000031775 0            0   0   *   

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

*031775  JUMPA	0,031776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031775 031775 031775 324000031776 777777777777 0                0            000000031775 0            0   0   777 
IT1	*      *      031776 *            324000031776 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031776     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031776 *            000000031776 000000000000     0            000000031776 0            0   0   *   

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

*031776  MOVEI	16,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031776 031776 031776 201700000001 777777777777 0                0            000000031776 0            0   0   777 
IT1	*      *      000001 *            201700000001 0                0            *            0            0   0   *   
ET2	*      *      031777 *            000000000000 000000000001     0            *            0            0   0   *   
ST1	031777 031777 *      325700032001 777777777777 *                000000000001 *            0            0   0   *   

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

*031777  JUMPGE	16,032001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031777 031777 031777 325700032001 777777777777 000000000001     000000000001 000000031776 0            0   0   777 
IT1	*      *      032001 *            325700032001 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032001     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032001 *            000000032001 000000000001     *            000000032001 0            0   0   *   

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

*032001  JUMPA	0,032002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032001 032001 032001 324000032002 777777777777 000000000001     000000000001 000000032001 0            0   0   777 
IT1	*      *      032002 *            324000032002 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032002     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032002 *            000000032002 000000000000     0            000000032002 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032002 
----------
                                                                                                                           SEQ 0252
*032002  HRROI	15,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032002 032002 032002 561640777776 777777777777 0                0            000000032002 0            0   0   777 
IT1	*      *      777776 *            561640777776 0                0            *            0            0   0   *   
ET2	*      *      032003 *            777777777776 000000777776     0            *            0            0   0   *   
ST1	032003 032003 *      341640032005 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032003  AOJL	15,032005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032003 032003 032003 341640032005 777777777777 777777777776     777777777776 000000032002 0            0   0   777 
IT1	*      *      032005 *            341640032005 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032005     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032005 *            000000032005 777777777777     777777777777 000000032005 0            0   0   *   

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

*032005  JUMPA	0,032006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032005 032005 032005 324000032006 777777777777 777777777777     777777777777 000000032005 0            0   0   777 
IT1	*      *      032006 *            324000032006 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032006     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032006 *            000000032006 000000000000     0            000000032006 0            0   0   *   

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

*032006  CAME	15,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032006 032006 032006 312640033474 777777777777 0                0            000000032006 0            0   0   777 
IT1	*      *      033474 *            312640033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032007 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032007 *      032010 *            777777777777 *                *            *            0            0   0   *   

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

*032010  JUMPA	0,032011

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032010 032010 032010 324000032011 777777777777 777777777777     777777777777 000000032006 0            0   0   777 
IT1	*      *      032011 *            324000032011 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032011     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032011 *            000000032011 000000000000     0            000000032011 0            0   0   *   

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

*032011  SETO 	15,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032011 032011 032011 474640000000 777777777777 0                0            000000032011 0            0   0   777 
IT1	*      *      000000 *            474640000000 0                777777777777 *            0            0   0   *   
ET2	*      *      032012 *            777777777777 0                *            *            0            0   0   *   
ST1	032012 032012 *      341640032014 *            777777777777     *            *            0            0   0   *   

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

*032012  AOJL	15,032014

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032012 032012 032012 341640032014 777777777777 777777777777     777777777777 000000032011 0            0   0   777 
IT1	*      *      032014 *            341640032014 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032014     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032013 *            000000032014 000000000000     000000000000 000000032014 0            0   0   *   

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

*032013  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032013 032013 032013 334000000000 777777777777 0                0            000000032014 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032014 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032014 0      032015 *            777777777777 0                0            *            0            0   0   *   

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

*032015  JUMPA	0,032016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032015 032015 032015 324000032016 777777777777 0                0            000000032014 0            0   0   777 
IT1	*      *      032016 *            324000032016 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032016     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032016 *            000000032016 000000000000     0            000000032016 0            0   0   *   

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

*032016  CAIE	15,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032016 032016 032016 302640000000 777777777777 0                0            000000032016 0            0   0   777 
IT1	*      *      000000 *            302640000000 0                0            *            0            0   0   *   
ET0	*      *      032017 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032017 *      032020 *            777777777777 0                0            *            0            0   0   *   

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

*032020  JUMPA	0,032021

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032020 032020 032020 324000032021 777777777777 0                0            000000032016 0            0   0   777 
IT1	*      *      032021 *            324000032021 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032021     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032021 *            000000032021 000000000000     0            000000032021 0            0   0   *   

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

*032021  SETZ 	15,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032021 032021 032021 400640000000 777777777777 0                0            000000032021 0            0   0   777 
IT1	*      *      000000 *            400640000000 0                0            *            0            0   0   *   
ET2	*      *      032022 *            000000000000 0                0            *            0            0   0   *   
ST1	032022 032022 *      341640032024 777777777777 0                0            *            0            0   0   *   

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

*032022  AOJL	15,032024

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032022 032022 032022 341640032024 777777777777 0                0            000000032021 0            0   0   777 
IT1	*      *      032024 *            341640032024 0                0            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032024     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032023 *            000000032024 000000000001     000000000001 000000032024 0            0   0   *   

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

*032023  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032023 032023 032023 334000000000 777777777777 000000000001     000000000001 000000032024 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032024 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032024 0      032025 *            777777777777 0                0            *            0            0   0   *   

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

*032025  JUMPA	0,032026

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032025 032025 032025 324000032026 777777777777 0                0            000000032024 0            0   0   777 
IT1	*      *      032026 *            324000032026 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032026     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032026 *            000000032026 000000000000     0            000000032026 0            0   0   *   

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

*032026  CAIE	15,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032026 032026 032026 302640000001 777777777777 0                0            000000032026 0            0   0   777 
IT1	*      *      000001 *            302640000001 0                000000000001 *            0            0   0   *   
ET0	*      *      032027 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032027 *      032030 *            777777777777 *                *            *            0            0   0   *   

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

*032030  JUMPA	0,032031

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032030 032030 032030 324000032031 777777777777 000000000001     000000000001 000000032026 0            0   0   777 
IT1	*      *      032031 *            324000032031 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032031     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032031 *            000000032031 000000000000     0            000000032031 0            0   0   *   

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

*032031  HRROI	14,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032031 032031 032031 561600777776 777777777777 0                0            000000032031 0            0   0   777 
IT1	*      *      777776 *            561600777776 0                0            *            0            0   0   *   
ET2	*      *      032032 *            777777777776 000000777776     0            *            0            0   0   *   
ST1	032032 032032 *      342600032034 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032032  AOJE	14,032034

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032032 032032 032032 342600032034 777777777777 777777777776     777777777776 000000032031 0            0   0   777 
IT1	*      *      032034 *            342600032034 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032034     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032033 *            000000032034 777777777777     777777777777 000000032034 0            0   0   *   

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

*032033  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032033 032033 032033 334000000000 777777777777 777777777777     777777777777 000000032034 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032034 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032034 0      032035 *            777777777777 0                0            *            0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0257
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*032035  JUMPA	0,032036

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032035 032035 032035 324000032036 777777777777 0                0            000000032034 0            0   0   777 
IT1	*      *      032036 *            324000032036 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032036     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032036 *            000000032036 000000000000     0            000000032036 0            0   0   *   

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

*032036  CAME	14,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032036 032036 032036 312600033474 777777777777 0                0            000000032036 0            0   0   777 
IT1	*      *      033474 *            312600033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032037 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032037 *      032040 *            777777777777 *                *            *            0            0   0   *   

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

*032040  JUMPA	0,032041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032040 032040 032040 324000032041 777777777777 777777777777     777777777777 000000032036 0            0   0   777 
IT1	*      *      032041 *            324000032041 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032041     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032041 *            000000032041 000000000000     0            000000032041 0            0   0   *   

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

*032041  SETO 	14,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032041 032041 032041 474600000000 777777777777 0                0            000000032041 0            0   0   777 
IT1	*      *      000000 *            474600000000 0                777777777777 *            0            0   0   *   
ET2	*      *      032042 *            777777777777 0                *            *            0            0   0   *   
ST1	032042 032042 *      342600032044 *            777777777777     *            *            0            0   0   *   

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

*032042  AOJE	14,032044

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032042 032042 032042 342600032044 777777777777 777777777777     777777777777 000000032041 0            0   0   777 
IT1	*      *      032044 *            342600032044 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032044     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032044 *            000000032044 000000000000     000000000000 000000032044 0            0   0   *   

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

*032044  JUMPA	0,032045

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032044 032044 032044 324000032045 777777777777 0                0            000000032044 0            0   0   777 
IT1	*      *      032045 *            324000032045 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032045     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032045 *            000000032045 000000000000     0            000000032045 0            0   0   *   

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

*032045  CAIE	14,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032045 032045 032045 302600000000 777777777777 0                0            000000032045 0            0   0   777 
IT1	*      *      000000 *            302600000000 0                0            *            0            0   0   *   
ET0	*      *      032046 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032046 *      032047 *            777777777777 0                0            *            0            0   0   *   

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

*032047  JUMPA	0,032050

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032047 032047 032047 324000032050 777777777777 0                0            000000032045 0            0   0   777 
IT1	*      *      032050 *            324000032050 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032050     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032050 *            000000032050 000000000000     0            000000032050 0            0   0   *   

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

*032050  SETZ 	14,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032050 032050 032050 400600000000 777777777777 0                0            000000032050 0            0   0   777 
IT1	*      *      000000 *            400600000000 0                0            *            0            0   0   *   
ET2	*      *      032051 *            000000000000 0                0            *            0            0   0   *   
ST1	032051 032051 *      342600032053 777777777777 0                0            *            0            0   0   *   

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

*032051  AOJE	14,032053

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032051 032051 032051 342600032053 777777777777 0                0            000000032050 0            0   0   777 
IT1	*      *      032053 *            342600032053 0                0            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032053     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032052 *            000000032053 000000000001     000000000001 000000032053 0            0   0   *   

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

*032052  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032052 032052 032052 334000000000 777777777777 000000000001     000000000001 000000032053 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032053 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032053 0      032054 *            777777777777 0                0            *            0            0   0   *   

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

*032054  JUMPA	0,032055

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032054 032054 032054 324000032055 777777777777 0                0            000000032053 0            0   0   777 
IT1	*      *      032055 *            324000032055 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032055     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032055 *            000000032055 000000000000     0            000000032055 0            0   0   *   SEQ 0260

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

*032055  CAIE	14,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032055 032055 032055 302600000001 777777777777 0                0            000000032055 0            0   0   777 
IT1	*      *      000001 *            302600000001 0                000000000001 *            0            0   0   *   
ET0	*      *      032056 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032056 *      032057 *            777777777777 *                *            *            0            0   0   *   

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

*032057  JUMPA	0,032060

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032057 032057 032057 324000032060 777777777777 000000000001     000000000001 000000032055 0            0   0   777 
IT1	*      *      032060 *            324000032060 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032060     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032060 *            000000032060 000000000000     0            000000032060 0            0   0   *   

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

*032060  HRROI	13,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032060 032060 032060 561540777776 777777777777 0                0            000000032060 0            0   0   777 
IT1	*      *      777776 *            561540777776 0                0            *            0            0   0   *   
ET2	*      *      032061 *            777777777776 000000777776     0            *            0            0   0   *   
ST1	032061 032061 *      343540032063 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032061  AOJLE	13,032063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032061 032061 032061 343540032063 777777777777 777777777776     777777777776 000000032060 0            0   0   777 
IT1	*      *      032063 *            343540032063 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032063     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032063 *            000000032063 777777777777     777777777777 000000032063 0            0   0   *   

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

*032063  JUMPA	0,032064

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032063 032063 032063 324000032064 777777777777 777777777777     777777777777 000000032063 0            0   0   777 
IT1	*      *      032064 *            324000032064 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032064     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032064 *            000000032064 000000000000     0            000000032064 0            0   0   *   

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

*032064  CAME	13,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032064 032064 032064 312540033474 777777777777 0                0            000000032064 0            0   0   777 
IT1	*      *      033474 *            312540033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032065 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032065 *      032066 *            777777777777 *                *            *            0            0   0   *   

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

*032066  JUMPA	0,032067

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032066 032066 032066 324000032067 777777777777 777777777777     777777777777 000000032064 0            0   0   777 
IT1	*      *      032067 *            324000032067 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032067     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032067 *            000000032067 000000000000     0            000000032067 0            0   0   *   

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

*032067  SETO 	13,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032067 032067 032067 474540000000 777777777777 0                0            000000032067 0            0   0   777 
IT1	*      *      000000 *            474540000000 0                777777777777 *            0            0   0   *   
ET2	*      *      032070 *            777777777777 0                *            *            0            0   0   *   
ST1	032070 032070 *      343540032072 *            777777777777     *            *            0            0   0   *   

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

*032070  AOJLE	13,032072

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032070 032070 032070 343540032072 777777777777 777777777777     777777777777 000000032067 0            0   0   777 
IT1	*      *      032072 *            343540032072 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032072     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032072 *            000000032072 000000000000     000000000000 000000032072 0            0   0   *   

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

*032072  JUMPA	0,032073

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032072 032072 032072 324000032073 777777777777 0                0            000000032072 0            0   0   777 
IT1	*      *      032073 *            324000032073 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032073     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032073 *            000000032073 000000000000     0            000000032073 0            0   0   *   

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

*032073  CAIE	13,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032073 032073 032073 302540000000 777777777777 0                0            000000032073 0            0   0   777 
IT1	*      *      000000 *            302540000000 0                0            *            0            0   0   *   
ET0	*      *      032074 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032074 *      032075 *            777777777777 0                0            *            0            0   0   *   

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

*032075  JUMPA	0,032076

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032075 032075 032075 324000032076 777777777777 0                0            000000032073 0            0   0   777 
IT1	*      *      032076 *            324000032076 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032076     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032076 *            000000032076 000000000000     0            000000032076 0            0   0   *   

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

*032076  SETZ 	13,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032076 032076 032076 400540000000 777777777777 0                0            000000032076 0            0   0   777 
IT1	*      *      000000 *            400540000000 0                0            *            0            0   0   *   
ET2	*      *      032077 *            000000000000 0                0            *            0            0   0   *   
ST1	032077 032077 *      343540032101 777777777777 0                0            *            0            0   0   *   

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

*032077  AOJLE	13,032101

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032077 032077 032077 343540032101 777777777777 0                0            000000032076 0            0   0   777 
IT1	*      *      032101 *            343540032101 0                0            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032101     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032100 *            000000032101 000000000001     000000000001 000000032101 0            0   0   *   

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

*032100  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032100 032100 032100 334000000000 777777777777 000000000001     000000000001 000000032101 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032101 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032101 0      032102 *            777777777777 0                0            *            0            0   0   *   

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

*032102  JUMPA	0,032103

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032102 032102 032102 324000032103 777777777777 0                0            000000032101 0            0   0   777 
IT1	*      *      032103 *            324000032103 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032103     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032103 *            000000032103 000000000000     0            000000032103 0            0   0   *   
                                                                                                                           SEQ 0264
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032103 
----------

*032103  CAIE	13,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032103 032103 032103 302540000001 777777777777 0                0            000000032103 0            0   0   777 
IT1	*      *      000001 *            302540000001 0                000000000001 *            0            0   0   *   
ET0	*      *      032104 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032104 *      032105 *            777777777777 *                *            *            0            0   0   *   

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

*032105  JUMPA	0,032106

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032105 032105 032105 324000032106 777777777777 000000000001     000000000001 000000032103 0            0   0   777 
IT1	*      *      032106 *            324000032106 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032106     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032106 *            000000032106 000000000000     0            000000032106 0            0   0   *   

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

*032106  HRROI	12,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032106 032106 032106 561500777776 777777777777 0                0            000000032106 0            0   0   777 
IT1	*      *      777776 *            561500777776 0                0            *            0            0   0   *   
ET2	*      *      032107 *            777777777776 000000777776     0            *            0            0   0   *   
ST1	032107 032107 *      344500032111 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032107  AOJA	12,032111

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032107 032107 032107 344500032111 777777777777 777777777776     777777777776 000000032106 0            0   0   777 
IT1	*      *      032111 *            344500032111 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032111     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032111 *            000000032111 777777777777     777777777777 000000032111 0            0   0   *   

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

*032111  JUMPA	0,032112

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032111 032111 032111 324000032112 777777777777 777777777777     777777777777 000000032111 0            0   0   777 
IT1	*      *      032112 *            324000032112 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032112     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032112 *            000000032112 000000000000     0            000000032112 0            0   0   *   

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

*032112  CAME	12,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032112 032112 032112 312500033474 777777777777 0                0            000000032112 0            0   0   777 
IT1	*      *      033474 *            312500033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032113 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032113 *      032114 *            777777777777 *                *            *            0            0   0   *   

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

*032114  JUMPA	0,032115

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032114 032114 032114 324000032115 777777777777 777777777777     777777777777 000000032112 0            0   0   777 
IT1	*      *      032115 *            324000032115 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032115     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032115 *            000000032115 000000000000     0            000000032115 0            0   0   *   

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

*032115  SETO 	12,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032115 032115 032115 474500000000 777777777777 0                0            000000032115 0            0   0   777 
IT1	*      *      000000 *            474500000000 0                777777777777 *            0            0   0   *   
ET2	*      *      032116 *            777777777777 0                *            *            0            0   0   *   
ST1	032116 032116 *      344500032120 *            777777777777     *            *            0            0   0   *   

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

*032116  AOJA	12,032120

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032116 032116 032116 344500032120 777777777777 777777777777     777777777777 000000032115 0            0   0   777 
IT1	*      *      032120 *            344500032120 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032120     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032120 *            000000032120 000000000000     000000000000 000000032120 0            0   0   *   

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

*032120  JUMPA	0,032121

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032120 032120 032120 324000032121 777777777777 0                0            000000032120 0            0   0   777 
IT1	*      *      032121 *            324000032121 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032121     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032121 *            000000032121 000000000000     0            000000032121 0            0   0   *   

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

*032121  CAIE	12,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032121 032121 032121 302500000000 777777777777 0                0            000000032121 0            0   0   777 
IT1	*      *      000000 *            302500000000 0                0            *            0            0   0   *   
ET0	*      *      032122 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032122 *      032123 *            777777777777 0                0            *            0            0   0   *   

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

*032123  JUMPA	0,032124

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032123 032123 032123 324000032124 777777777777 0                0            000000032121 0            0   0   777 
IT1	*      *      032124 *            324000032124 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032124     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032124 *            000000032124 000000000000     0            000000032124 0            0   0   *   

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

*032124  SETZ 	12,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032124 032124 032124 400500000000 777777777777 0                0            000000032124 0            0   0   777 
IT1	*      *      000000 *            400500000000 0                0            *            0            0   0   *   
ET2	*      *      032125 *            000000000000 0                0            *            0            0   0   *   
ST1	032125 032125 *      344500032127 777777777777 0                0            *            0            0   0   *   

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

*032125  AOJA	12,032127

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032125 032125 032125 344500032127 777777777777 0                0            000000032124 0            0   0   777 
IT1	*      *      032127 *            344500032127 0                0            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032127     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032127 *            000000032127 000000000001     000000000001 000000032127 0            0   0   *   

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

*032127  JUMPA	0,032130

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032127 032127 032127 324000032130 777777777777 000000000001     000000000001 000000032127 0            0   0   777 
IT1	*      *      032130 *            324000032130 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032130     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032130 *            000000032130 000000000000     0            000000032130 0            0   0   *   

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

*032130  CAIE	12,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032130 032130 032130 302500000001 777777777777 0                0            000000032130 0            0   0   777 
IT1	*      *      000001 *            302500000001 0                000000000001 *            0            0   0   *   
ET0	*      *      032131 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032131 *      032132 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
----------
                                                                                                                           SEQ 0268
*032132  JUMPA	0,032133

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032132 032132 032132 324000032133 777777777777 000000000001     000000000001 000000032130 0            0   0   777 
IT1	*      *      032133 *            324000032133 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032133     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032133 *            000000032133 000000000000     0            000000032133 0            0   0   *   

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

*032133  HRROI	11,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032133 032133 032133 561440777776 777777777777 0                0            000000032133 0            0   0   777 
IT1	*      *      777776 *            561440777776 0                000000000004 *            0            0   0   *   
ET2	*      *      032134 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032134 032134 *      345440032136 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032134  AOJGE	11,032136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032134 032134 032134 345440032136 777777777777 777777777776     777777777776 000000032133 0            0   0   777 
IT1	*      *      032136 *            345440032136 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032136     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032135 *            000000032136 777777777777     777777777777 000000032136 0            0   0   *   

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

*032135  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032135 032135 032135 334000000000 777777777777 777777777777     777777777777 000000032136 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032136 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032136 0      032137 *            777777777777 0                0            *            0            0   0   *   

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

*032137  JUMPA	0,032140

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032137 032137 032137 324000032140 777777777777 0                0            000000032136 0            0   0   777 
IT1	*      *      032140 *            324000032140 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032140     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032140 *            000000032140 000000000000     0            000000032140 0            0   0   *   

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

*032140  CAME	11,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032140 032140 032140 312440033474 777777777777 0                0            000000032140 0            0   0   777 
IT1	*      *      033474 *            312440033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032141 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032141 *      032142 *            777777777777 *                *            *            0            0   0   *   

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

*032142  JUMPA	0,032143

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032142 032142 032142 324000032143 777777777777 777777777777     777777777777 000000032140 0            0   0   777 
IT1	*      *      032143 *            324000032143 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032143     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032143 *            000000032143 000000000000     0            000000032143 0            0   0   *   

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

*032143  SETO 	11,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032143 032143 032143 474440000000 777777777777 0                0            000000032143 0            0   0   777 
IT1	*      *      000000 *            474440000000 0                777777777777 *            0            0   0   *   
ET2	*      *      032144 *            777777777777 0                *            *            0            0   0   *   
ST1	032144 032144 *      345440032146 *            777777777777     *            *            0            0   0   *   

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

*032144  AOJGE	11,032146

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032144 032144 032144 345440032146 777777777777 777777777777     777777777777 000000032143 0            0   0   777 
IT1	*      *      032146 *            345440032146 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032146     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032146 *            000000032146 000000000000     000000000000 000000032146 0            0   0   *   

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

*032146  JUMPA	0,032147

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032146 032146 032146 324000032147 777777777777 0                0            000000032146 0            0   0   777 
IT1	*      *      032147 *            324000032147 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032147     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032147 *            000000032147 000000000000     0            000000032147 0            0   0   *   

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

*032147  CAIE	11,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032147 032147 032147 302440000000 777777777777 0                0            000000032147 0            0   0   777 
IT1	*      *      000000 *            302440000000 0                0            *            0            0   0   *   
ET0	*      *      032150 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032150 *      032151 *            777777777777 0                0            *            0            0   0   *   

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

*032151  JUMPA	0,032152

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032151 032151 032151 324000032152 777777777777 0                0            000000032147 0            0   0   777 
IT1	*      *      032152 *            324000032152 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032152     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032152 *            000000032152 000000000000     0            000000032152 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032152 
----------
                                                                                                                           SEQ 0271
*032152  SETZ 	11,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032152 032152 032152 400440000000 777777777777 0                0            000000032152 0            0   0   777 
IT1	*      *      000000 *            400440000000 0                0            *            0            0   0   *   
ET2	*      *      032153 *            000000000000 0                0            *            0            0   0   *   
ST1	032153 032153 *      345440032155 777777777777 0                0            *            0            0   0   *   

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

*032153  AOJGE	11,032155

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032153 032153 032153 345440032155 777777777777 0                0            000000032152 0            0   0   777 
IT1	*      *      032155 *            345440032155 0                0            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032155     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032155 *            000000032155 000000000001     000000000001 000000032155 0            0   0   *   

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

*032155  JUMPA	0,032156

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032155 032155 032155 324000032156 777777777777 000000000001     000000000001 000000032155 0            0   0   777 
IT1	*      *      032156 *            324000032156 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032156     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032156 *            000000032156 000000000000     0            000000032156 0            0   0   *   

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

*032156  CAIE	11,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032156 032156 032156 302440000001 777777777777 0                0            000000032156 0            0   0   777 
IT1	*      *      000001 *            302440000001 0                000000000001 *            0            0   0   *   
ET0	*      *      032157 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032157 *      032160 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000001 E    =000000 000001 
----------
*032160  JUMPA	0,032161                                                                                                   SEQ 0272

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032160 032160 032160 324000032161 777777777777 000000000001     000000000001 000000032156 0            0   0   777 
IT1	*      *      032161 *            324000032161 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032161     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032161 *            000000032161 000000000000     0            000000032161 0            0   0   *   

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

*032161  HRROI	10,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032161 032161 032161 561400777776 777777777777 0                0            000000032161 0            0   0   777 
IT1	*      *      777776 *            561400777776 0                0            *            0            0   0   *   
ET2	*      *      032162 *            777777777776 000000777776     0            *            0            0   0   *   
ST1	032162 032162 *      346400032164 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032162  AOJN	10,032164

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032162 032162 032162 346400032164 777777777777 777777777776     777777777776 000000032161 0            0   0   777 
IT1	*      *      032164 *            346400032164 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032164     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032164 *            000000032164 777777777777     777777777777 000000032164 0            0   0   *   

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

*032164  JUMPA	0,032165

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032164 032164 032164 324000032165 777777777777 777777777777     777777777777 000000032164 0            0   0   777 
IT1	*      *      032165 *            324000032165 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032165     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032165 *            000000032165 000000000000     0            000000032165 0            0   0   *   

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

*032165  CAME	10,033474
                                                                                                                           SEQ 0273
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032165 032165 032165 312400033474 777777777777 0                0            000000032165 0            0   0   777 
IT1	*      *      033474 *            312400033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032166 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032166 *      032167 *            777777777777 *                *            *            0            0   0   *   

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

*032167  JUMPA	0,032170

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032167 032167 032167 324000032170 777777777777 777777777777     777777777777 000000032165 0            0   0   777 
IT1	*      *      032170 *            324000032170 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032170     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032170 *            000000032170 000000000000     0            000000032170 0            0   0   *   

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

*032170  SETO 	10,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032170 032170 032170 474400000000 777777777777 0                0            000000032170 0            0   0   777 
IT1	*      *      000000 *            474400000000 0                777777777777 *            0            0   0   *   
ET2	*      *      032171 *            777777777777 0                *            *            0            0   0   *   
ST1	032171 032171 *      346400032173 *            777777777777     *            *            0            0   0   *   

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

*032171  AOJN	10,032173

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032171 032171 032171 346400032173 777777777777 777777777777     777777777777 000000032170 0            0   0   777 
IT1	*      *      032173 *            346400032173 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032173     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032172 *            000000032173 000000000000     000000000000 000000032173 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=777777 777777 E    =000000 032173 
FINAL
C(AC)=000000 000000 
----------
*032172  SKIPA	0,000000                                                                                                   SEQ 0274

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032172 032172 032172 334000000000 777777777777 0                0            000000032173 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032173 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032173 0      032174 *            777777777777 0                0            *            0            0   0   *   

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

*032174  JUMPA	0,032175

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032174 032174 032174 324000032175 777777777777 0                0            000000032173 0            0   0   777 
IT1	*      *      032175 *            324000032175 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032175     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032175 *            000000032175 000000000000     0            000000032175 0            0   0   *   

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

*032175  CAIE	10,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032175 032175 032175 302400000000 777777777777 0                0            000000032175 0            0   0   777 
IT1	*      *      000000 *            302400000000 0                0            *            0            0   0   *   
ET0	*      *      032176 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032176 *      032177 *            777777777777 0                0            *            0            0   0   *   

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

*032177  JUMPA	0,032200

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032177 032177 032177 324000032200 777777777777 0                0            000000032175 0            0   0   777 
IT1	*      *      032200 *            324000032200 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032200     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032200 *            000000032200 000000000000     0            000000032200 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032200 
----------
*032200  SETZ 	10,000000                                                                                                  SEQ 0275

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032200 032200 032200 400400000000 777777777777 0                0            000000032200 0            0   0   777 
IT1	*      *      000000 *            400400000000 0                0            *            0            0   0   *   
ET2	*      *      032201 *            000000000000 0                0            *            0            0   0   *   
ST1	032201 032201 *      346400032203 777777777777 0                0            *            0            0   0   *   

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

*032201  AOJN	10,032203

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032201 032201 032201 346400032203 777777777777 0                0            000000032200 0            0   0   777 
IT1	*      *      032203 *            346400032203 0                0            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032203     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032203 *            000000032203 000000000001     000000000001 000000032203 0            0   0   *   

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

*032203  JUMPA	0,032204

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032203 032203 032203 324000032204 777777777777 000000000001     000000000001 000000032203 0            0   0   777 
IT1	*      *      032204 *            324000032204 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032204     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032204 *            000000032204 000000000000     0            000000032204 0            0   0   *   

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

*032204  CAIE	10,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032204 032204 032204 302400000001 777777777777 0                0            000000032204 0            0   0   777 
IT1	*      *      000001 *            302400000001 0                000000000001 *            0            0   0   *   
ET0	*      *      032205 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032205 *      032206 *            777777777777 *                *            *            0            0   0   *   

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

*032206  JUMPA	0,032207
                                                                                                                           SEQ 0276
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032206 032206 032206 324000032207 777777777777 000000000001     000000000001 000000032204 0            0   0   777 
IT1	*      *      032207 *            324000032207 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032207     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032207 *            000000032207 000000000000     0            000000032207 0            0   0   *   

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

*032207  HRROI	7,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032207 032207 032207 561340777776 777777777777 0                0            000000032207 0            0   0   777 
IT1	*      *      777776 *            561340777776 0                0            *            0            0   0   *   
ET2	*      *      032210 *            777777777776 000000777776     0            *            0            0   0   *   
ST1	032210 032210 *      347340032212 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032210  AOJG	7,032212

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032210 032210 032210 347340032212 777777777777 777777777776     777777777776 000000032207 0            0   0   777 
IT1	*      *      032212 *            347340032212 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032212     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032211 *            000000032212 777777777777     777777777777 000000032212 0            0   0   *   

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

*032211  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032211 032211 032211 334000000000 777777777777 777777777777     777777777777 000000032212 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032212 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032212 0      032213 *            777777777777 0                0            *            0            0   0   *   

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

*032213  JUMPA	0,032214

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032213 032213 032213 324000032214 777777777777 0                0            000000032212 0            0   0   777 
IT1	*      *      032214 *            324000032214 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032214     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032214 *            000000032214 000000000000     0            000000032214 0            0   0   *   

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

*032214  CAME	7,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032214 032214 032214 312340033474 777777777777 0                0            000000032214 0            0   0   777 
IT1	*      *      033474 *            312340033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032215 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032215 *      032216 *            777777777777 *                *            *            0            0   0   *   

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

*032216  JUMPA	0,032217

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032216 032216 032216 324000032217 777777777777 777777777777     777777777777 000000032214 0            0   0   777 
IT1	*      *      032217 *            324000032217 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032217     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032217 *            000000032217 000000000000     0            000000032217 0            0   0   *   

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

*032217  SETO 	7,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032217 032217 032217 474340000000 777777777777 0                0            000000032217 0            0   0   777 
IT1	*      *      000000 *            474340000000 0                777777777777 *            0            0   0   *   
ET2	*      *      032220 *            777777777777 0                *            *            0            0   0   *   
ST1	032220 032220 *      347340032222 *            777777777777     *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=777777 777777 
----------
                                                                                                                           SEQ 0278
*032220  AOJG	7,032222

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032220 032220 032220 347340032222 777777777777 777777777777     777777777777 000000032217 0            0   0   777 
IT1	*      *      032222 *            347340032222 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032222     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032221 *            000000032222 000000000000     000000000000 000000032222 0            0   0   *   

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

*032221  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032221 032221 032221 334000000000 777777777777 0                0            000000032222 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032222 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032222 0      032223 *            777777777777 0                0            *            0            0   0   *   

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

*032223  JUMPA	0,032224

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032223 032223 032223 324000032224 777777777777 0                0            000000032222 0            0   0   777 
IT1	*      *      032224 *            324000032224 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032224     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032224 *            000000032224 000000000000     0            000000032224 0            0   0   *   

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

*032224  CAIE	7,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032224 032224 032224 302340000000 777777777777 0                0            000000032224 0            0   0   777 
IT1	*      *      000000 *            302340000000 0                0            *            0            0   0   *   
ET0	*      *      032225 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	032225 *      032226 *            777777777777 0                0            *            0            0   0   *   

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

*032226  JUMPA	0,032227

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032226 032226 032226 324000032227 777777777777 0                0            000000032224 0            0   0   777 
IT1	*      *      032227 *            324000032227 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032227     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032227 *            000000032227 000000000000     0            000000032227 0            0   0   *   

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

*032227  SETZ 	7,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032227 032227 032227 400340000000 777777777777 0                0            000000032227 0            0   0   777 
IT1	*      *      000000 *            400340000000 0                0            *            0            0   0   *   
ET2	*      *      032230 *            000000000000 0                0            *            0            0   0   *   
ST1	032230 032230 *      347340032232 777777777777 0                0            *            0            0   0   *   

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

*032230  AOJG	7,032232

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032230 032230 032230 347340032232 777777777777 0                0            000000032227 0            0   0   777 
IT1	*      *      032232 *            347340032232 0                0            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032232     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032232 *            000000032232 000000000001     000000000001 000000032232 0            0   0   *   

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

*032232  JUMPA	0,032233

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032232 032232 032232 324000032233 777777777777 000000000001     000000000001 000000032232 0            0   0   777 
IT1	*      *      032233 *            324000032233 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032233     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032233 *            000000032233 000000000000     0            000000032233 0            0   0   *   

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

*032233  CAIE	7,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032233 032233 032233 302340000001 777777777777 0                0            000000032233 0            0   0   777 
IT1	*      *      000001 *            302340000001 0                000000000001 *            0            0   0   *   
ET0	*      *      032234 *            000000000000 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032234 *      032235 *            777777777777 *                *            *            0            0   0   *   

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

*032235  JUMPA	0,032236

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032235 032235 032235 324000032236 777777777777 000000000001     000000000001 000000032233 0            0   0   777 
IT1	*      *      032236 *            324000032236 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032236     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032236 *            000000032236 000000000000     0            000000032236 0            0   0   *   

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

*032236  MOVE 	6,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032236 032236 032236 200300033506 777777777777 0                0            000000032236 0            0   0   777 
IT1	*      *      033506 *            200300033506 0                000000000002 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032237 032237 032237 561340777776 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032237  HRROI	7,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032237 032237 032237 561340777776 777777777777 707070707070     707070707070 000000032236 0            0   0   777 
IT1	*      *      777776 *            561340777776 *                000000000001 *            0            0   0   *   
ET2	*      *      032240 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032240 032240 *      351300000007 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032240  AOSL	6,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032240 032240 032240 351300000007 777777777777 777777777776     777777777776 000000032236 0            0   0   777 
IT1	*      *      000007 *            351300000007 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032241 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	032241 *      032242 *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777776 *            0            0   0   *   
ST5	032242 032242 *      324000032243 *            *                777777777777 *            0            0   0   *   

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

*032242  JUMPA	0,032243

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032242 032242 032242 324000032243 777777777777 777777777777     777777777777 000000032236 0            0   0   777 
IT1	*      *      032243 *            324000032243 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032243     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032243 *            000000032243 000000000000     0            000000032243 0            0   0   *   

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

*032243  CAME	7,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032243 032243 032243 312340033474 777777777777 0                0            000000032243 0            0   0   777 
IT1	*      *      033474 *            312340033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032244 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032244 *      032245 *            777777777777 *                *            *            0            0   0   *   

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

*032245  JUMPA	0,032246

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032245 032245 032245 324000032246 777777777777 777777777777     777777777777 000000032243 0            0   0   777 
IT1	*      *      032246 *            324000032246 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032246     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032246 *            000000032246 000000000000     0            000000032246 0            0   0   *   
                                                                                                                           SEQ 0282
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032246 
----------

*032246  CAME	6,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032246 032246 032246 312300033474 777777777777 0                0            000000032246 0            0   0   777 
IT1	*      *      033474 *            312300033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032247 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032247 *      032250 *            777777777777 *                *            *            0            0   0   *   

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

*032250  JUMPA	0,032251

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032250 032250 032250 324000032251 777777777777 777777777777     777777777777 000000032246 0            0   0   777 
IT1	*      *      032251 *            324000032251 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032251     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032251 *            000000032251 000000000000     0            000000032251 0            0   0   *   

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

*032251  MOVE 	6,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032251 032251 032251 200300033506 777777777777 0                0            000000032251 0            0   0   777 
IT1	*      *      033506 *            200300033506 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032252 032252 032252 561340777776 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                707070707070 *            0            0   0   *   

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

*032252  HRROI	7,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032252 032252 032252 561340777776 777777777777 707070707070     707070707070 000000032251 0            0   0   777 
IT1	*      *      777776 *            561340777776 *                777777777777 *            0            0   0   *   
ET2	*      *      032253 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032253 032253 *      202340032267 777777777777 777777777776     777777777776 *            0            0   0   *   
                                                                                                                           SEQ 0283
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=777777 777777 E    =000000 777776 
FINAL
C(AC)=777777 777776 
----------

*032253  MOVEM	7,032267

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032253 032253 032253 202340032267 777777777777 777777777776     777777777776 000000032251 0            0   0   777 
IT1	*      *      032267 *            202340032267 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000032267     *            *            0            0   0   *   
FT6	*      032267 *      *            777777777777 *                *            *            0            0   0   *   
ET0	*      *      *      *            777777777776 *                *            *            0            0   0   *   
ET2	*      *      *      *            777777777777 777777777776     *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   
ST2	*      *      *      777777777776 *            *                *            *            0            0   0   *   
ST5	032254 032254 032254 351300032267 *            *                *            *            0            0   0   *   

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

*032254  AOSL	6,032267

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032254 032254 032254 351300032267 777777777777 777777777776     777777777776 000000032251 0            0   0   777 
IT1	*      *      032267 *            351300032267 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000032267     *            *            0            0   0   *   
FT6	*      032267 *      777777777776 777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032255 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	032255 *      032256 *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                *            *            0            0   0   *   
ST5	032256 032256 *      324000032257 *            *                *            *            0            0   0   *   

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

*032256  JUMPA	0,032257

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032256 032256 032256 324000032257 777777777777 777777777777     777777777777 000000032251 0            0   0   777 
IT1	*      *      032257 *            324000032257 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032257     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032257 *            000000032257 000000000000     0            000000032257 0            0   0   *   

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

*032257  MOVE 	7,032267

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032257 032257 032257 200340032267 777777777777 0                0            000000032257 0            0   0   777 
IT1	*      *      032267 *            200340032267 0                777777777776 *            0            0   0   *   
MEMST	*      *      *      *            *            000000032267     *            *            0            0   0   *   
FT6	032260 032260 032260 312340033474 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            777777777776 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*032260  CAME	7,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032260 032260 032260 312340033474 777777777777 777777777777     777777777777 000000032257 0            0   0   777 
IT1	*      *      033474 *            312340033474 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032261 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032261 *      032262 *            777777777777 *                *            *            0            0   0   *   

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

*032262  JUMPA	0,032263

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032262 032262 032262 324000032263 777777777777 777777777777     777777777777 000000032257 0            0   0   777 
IT1	*      *      032263 *            324000032263 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032263     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032263 *            000000032263 000000000000     0            000000032263 0            0   0   *   

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

*032263  CAME	6,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032263 032263 032263 312300033474 777777777777 0                0            000000032263 0            0   0   777 
IT1	*      *      033474 *            312300033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032264 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032264 *      032265 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0285
INITIAL
C(AC)=777777 777777 C(E) =777777 777777 
----------

*032265  JUMPA	0,032266

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032265 032265 032265 324000032266 777777777777 777777777777     777777777777 000000032263 0            0   0   777 
IT1	*      *      032266 *            324000032266 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032266     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032266 *            000000032266 000000000000     0            000000032266 0            0   0   *   

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

*032266  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032266 032266 032266 334000000000 777777777777 0                0            000000032266 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032267 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032267 0      032270 *            777777777777 0                0            *            0            0   0   *   

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

*032270  MOVE 	6,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032270 032270 032270 200300033506 777777777777 0                0            000000032266 0            0   0   777 
IT1	*      *      033506 *            200300033506 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032271 032271 032271 474340000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                707070707070 *            0            0   0   *   

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

*032271  SETO 	7,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032271 032271 032271 474340000000 777777777777 707070707070     707070707070 000000032266 0            0   0   777 
IT1	*      *      000000 *            474340000000 *                777777777777 *            0            0   0   *   
ET2	*      *      032272 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032272 032272 *      351300000007 *            777777777777     *            *            0            0   0   *   SEQ 0286

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

*032272  AOSL	6,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032272 032272 032272 351300000007 777777777777 777777777777     777777777777 000000032266 0            0   0   777 
IT1	*      *      000007 *            351300000007 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032273 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032273 032273 *      334000000000 *            0                000000000000 *            0            0   0   *   

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

*032273  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032273 032273 032273 334000000000 777777777777 0                0            000000032266 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032274 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032274 0      032275 *            777777777777 0                0            *            0            0   0   *   

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

*032275  JUMPA	0,032276

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032275 032275 032275 324000032276 777777777777 0                0            000000032266 0            0   0   777 
IT1	*      *      032276 *            324000032276 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032276     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032276 *            000000032276 000000000000     0            000000032276 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032276 
----------
                                                                                                                           SEQ 0287
*032276  CAME	7,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032276 032276 032276 312340033513 777777777777 0                0            000000032276 0            0   0   777 
IT1	*      *      033513 *            312340033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032277 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032277 *      032300 0            777777777777 0                0            *            0            0   0   *   

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

*032300  JUMPA	0,032301

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032300 032300 032300 324000032301 777777777777 0                0            000000032276 0            0   0   777 
IT1	*      *      032301 *            324000032301 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032301     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032301 *            000000032301 000000000000     0            000000032301 0            0   0   *   

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

*032301  CAME	6,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032301 032301 032301 312300033513 777777777777 0                0            000000032301 0            0   0   777 
IT1	*      *      033513 *            312300033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032302 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032302 *      032303 0            777777777777 0                0            *            0            0   0   *   

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

*032303  JUMPA	0,032304

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032303 032303 032303 324000032304 777777777777 0                0            000000032301 0            0   0   777 
IT1	*      *      032304 *            324000032304 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032304     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032304 *            000000032304 000000000000     0            000000032304 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032304 
----------
                                                                                                                           SEQ 0288
*032304  MOVE 	6,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032304 032304 032304 200300033506 777777777777 0                0            000000032304 0            0   0   777 
IT1	*      *      033506 *            200300033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032305 032305 032305 400340000000 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032305  SETZ 	7,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032305 032305 032305 400340000000 777777777777 707070707070     707070707070 000000032304 0            0   0   777 
IT1	*      *      000000 *            400340000000 *                000000000000 *            0            0   0   *   
ET2	*      *      032306 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	032306 032306 *      351300000007 777777777777 0                0            *            0            0   0   *   

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

*032306  AOSL	6,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032306 032306 032306 351300000007 777777777777 0                0            000000032304 0            0   0   777 
IT1	*      *      000007 *            351300000007 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     *            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032307 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000001     000000000001 *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                000000000000 *            0            0   0   *   
ST5	032307 032307 *      334000000000 *            *                000000000001 *            0            0   0   *   

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

*032307  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032307 032307 032307 334000000000 777777777777 000000000001     000000000001 000000032304 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032310 *            000000000000 0                0            *            0            0   0   *   SEQ 0289
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032310 0      032311 *            777777777777 0                0            *            0            0   0   *   

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

*032311  JUMPA	0,032312

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032311 032311 032311 324000032312 777777777777 0                0            000000032304 0            0   0   777 
IT1	*      *      032312 *            324000032312 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032312     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032312 *            000000032312 000000000000     0            000000032312 0            0   0   *   

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

*032312  CAME	7,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032312 032312 032312 312340033514 777777777777 0                0            000000032312 0            0   0   777 
IT1	*      *      033514 *            312340033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032313 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032313 *      032314 *            777777777777 *                *            *            0            0   0   *   

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

*032314  JUMPA	0,032315

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032314 032314 032314 324000032315 777777777777 000000000001     000000000001 000000032312 0            0   0   777 
IT1	*      *      032315 *            324000032315 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032315     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032315 *            000000032315 000000000000     0            000000032315 0            0   0   *   

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

*032315  CAME	6,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032315 032315 032315 312300033514 777777777777 0                0            000000032315 0            0   0   777 
IT1	*      *      033514 *            312300033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   SEQ 0290
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032316 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032316 *      032317 *            777777777777 *                *            *            0            0   0   *   

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

*032317  JUMPA	0,032320

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032317 032317 032317 324000032320 777777777777 000000000001     000000000001 000000032315 0            0   0   777 
IT1	*      *      032320 *            324000032320 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032320     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032320 *            000000032320 000000000000     0            000000032320 0            0   0   *   

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

*032320  MOVE 	5,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032320 032320 032320 200240033506 777777777777 0                0            000000032320 0            0   0   777 
IT1	*      *      033506 *            200240033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032321 032321 032321 561300777776 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032321  HRROI	6,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032321 032321 032321 561300777776 777777777777 707070707070     707070707070 000000032320 0            0   0   777 
IT1	*      *      777776 *            561300777776 *                000000000001 *            0            0   0   *   
ET2	*      *      032322 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032322 032322 *      352240000006 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032322  AOSE	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032322 032322 032322 352240000006 777777777777 777777777776     777777777776 000000032320 0            0   0   77  SEQ 0291
IT1	*      *      000006 *            352240000006 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032323 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777776 *            0            0   0   *   
ST5	032323 032323 *      334000000000 *            *                777777777777 *            0            0   0   *   

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

*032323  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032323 032323 032323 334000000000 777777777777 777777777777     777777777777 000000032320 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032324 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032324 0      032325 *            777777777777 0                0            *            0            0   0   *   

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

*032325  JUMPA	0,032326

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032325 032325 032325 324000032326 777777777777 0                0            000000032320 0            0   0   777 
IT1	*      *      032326 *            324000032326 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032326     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032326 *            000000032326 000000000000     0            000000032326 0            0   0   *   

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

*032326  CAME	6,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032326 032326 032326 312300033474 777777777777 0                0            000000032326 0            0   0   777 
IT1	*      *      033474 *            312300033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032327 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032327 *      032330 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0292
INITIAL
C(AC)=777777 777777 C(E) =777777 777777 
----------

*032330  JUMPA	0,032331

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032330 032330 032330 324000032331 777777777777 777777777777     777777777777 000000032326 0            0   0   777 
IT1	*      *      032331 *            324000032331 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032331     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032331 *            000000032331 000000000000     0            000000032331 0            0   0   *   

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

*032331  CAME	5,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032331 032331 032331 312240033474 777777777777 0                0            000000032331 0            0   0   777 
IT1	*      *      033474 *            312240033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032332 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032332 *      032333 *            777777777777 *                *            *            0            0   0   *   

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

*032333  JUMPA	0,032334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032333 032333 032333 324000032334 777777777777 777777777777     777777777777 000000032331 0            0   0   777 
IT1	*      *      032334 *            324000032334 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032334     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032334 *            000000032334 000000000000     0            000000032334 0            0   0   *   

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

*032334  MOVE 	5,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032334 032334 032334 200240033506 777777777777 0                0            000000032334 0            0   0   777 
IT1	*      *      033506 *            200240033506 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032335 032335 032335 474300000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                707070707070 *            0            0   0   *   

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

*032335  SETO 	6,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032335 032335 032335 474300000000 777777777777 707070707070     707070707070 000000032334 0            0   0   777 
IT1	*      *      000000 *            474300000000 *                777777777777 *            0            0   0   *   
ET2	*      *      032336 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032336 032336 *      352240000006 *            777777777777     *            *            0            0   0   *   

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

*032336  AOSE	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032336 032336 032336 352240000006 777777777777 777777777777     777777777777 000000032334 0            0   0   777 
IT1	*      *      000006 *            352240000006 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032337 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032337 *      032340 *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032340 032340 *      324000032341 *            0                000000000000 *            0            0   0   *   

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

*032340  JUMPA	0,032341

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032340 032340 032340 324000032341 777777777777 0                0            000000032334 0            0   0   777 
IT1	*      *      032341 *            324000032341 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032341     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032341 *            000000032341 000000000000     0            000000032341 0            0   0   *   

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

*032341  CAME	6,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032341 032341 032341 312300033513 777777777777 0                0            000000032341 0            0   0   777 
IT1	*      *      033513 *            312300033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   SEQ 0294
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032342 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032342 *      032343 0            777777777777 0                0            *            0            0   0   *   

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

*032343  JUMPA	0,032344

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032343 032343 032343 324000032344 777777777777 0                0            000000032341 0            0   0   777 
IT1	*      *      032344 *            324000032344 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032344     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032344 *            000000032344 000000000000     0            000000032344 0            0   0   *   

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

*032344  CAME	5,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032344 032344 032344 312240033513 777777777777 0                0            000000032344 0            0   0   777 
IT1	*      *      033513 *            312240033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032345 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032345 *      032346 0            777777777777 0                0            *            0            0   0   *   

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

*032346  JUMPA	0,032347

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032346 032346 032346 324000032347 777777777777 0                0            000000032344 0            0   0   777 
IT1	*      *      032347 *            324000032347 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032347     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032347 *            000000032347 000000000000     0            000000032347 0            0   0   *   

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

*032347  MOVE 	5,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032347 032347 032347 200240033506 777777777777 0                0            000000032347 0            0   0   777 
IT1	*      *      033506 *            200240033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   SEQ 0295
FT6	032350 032350 032350 400300000000 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032350  SETZ 	6,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032350 032350 032350 400300000000 777777777777 707070707070     707070707070 000000032347 0            0   0   777 
IT1	*      *      000000 *            400300000000 *                000000000000 *            0            0   0   *   
ET2	*      *      032351 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	032351 032351 *      352240000006 777777777777 0                0            *            0            0   0   *   

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

*032351  AOSE	5,000006

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032351 032351 032351 352240000006 777777777777 0                0            000000032347 0            0   0   777 
IT1	*      *      000006 *            352240000006 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000006     *            *            0            0   0   *   
FT6	*      000006 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032352 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000001     000000000001 *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                000000000000 *            0            0   0   *   
ST5	032352 032352 *      334000000000 *            *                000000000001 *            0            0   0   *   

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

*032352  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032352 032352 032352 334000000000 777777777777 000000000001     000000000001 000000032347 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032353 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032353 0      032354 *            777777777777 0                0            *            0            0   0   *   

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

*032354  JUMPA	0,032355

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032354 032354 032354 324000032355 777777777777 0                0            000000032347 0            0   0   777 
IT1	*      *      032355 *            324000032355 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032355     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032355 *            000000032355 000000000000     0            000000032355 0            0   0   *   

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

*032355  CAME	6,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032355 032355 032355 312300033514 777777777777 0                0            000000032355 0            0   0   777 
IT1	*      *      033514 *            312300033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032356 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032356 *      032357 *            777777777777 *                *            *            0            0   0   *   

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

*032357  JUMPA	0,032360

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032357 032357 032357 324000032360 777777777777 000000000001     000000000001 000000032355 0            0   0   777 
IT1	*      *      032360 *            324000032360 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032360     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032360 *            000000032360 000000000000     0            000000032360 0            0   0   *   

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

*032360  CAME	5,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032360 032360 032360 312240033514 777777777777 0                0            000000032360 0            0   0   777 
IT1	*      *      033514 *            312240033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032361 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032361 *      032362 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0297
INITIAL
C(AC)=000000 000001 C(E) =000000 000001 
----------

*032362  JUMPA	0,032363

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032362 032362 032362 324000032363 777777777777 000000000001     000000000001 000000032360 0            0   0   777 
IT1	*      *      032363 *            324000032363 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032363     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032363 *            000000032363 000000000000     0            000000032363 0            0   0   *   

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

*032363  MOVE 	4,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032363 032363 032363 200200033506 777777777777 0                0            000000032363 0            0   0   777 
IT1	*      *      033506 *            200200033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032364 032364 032364 561240777776 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032364  HRROI	5,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032364 032364 032364 561240777776 777777777777 707070707070     707070707070 000000032363 0            0   0   777 
IT1	*      *      777776 *            561240777776 *                000000000001 *            0            0   0   *   
ET2	*      *      032365 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032365 032365 *      353200000005 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032365  AOSLE	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032365 032365 032365 353200000005 777777777777 777777777776     777777777776 000000032363 0            0   0   777 
IT1	*      *      000005 *            353200000005 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032366 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	032366 *      032367 *            *            777777777777     777777777777 *            0            0   0   *   SEQ 0298
ST2	*      *      *      777777777777 *            *                777777777776 *            0            0   0   *   
ST5	032367 032367 *      324000032370 *            *                777777777777 *            0            0   0   *   

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

*032367  JUMPA	0,032370

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032367 032367 032367 324000032370 777777777777 777777777777     777777777777 000000032363 0            0   0   777 
IT1	*      *      032370 *            324000032370 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032370     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032370 *            000000032370 000000000000     0            000000032370 0            0   0   *   

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

*032370  CAME	5,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032370 032370 032370 312240033474 777777777777 0                0            000000032370 0            0   0   777 
IT1	*      *      033474 *            312240033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032371 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032371 *      032372 *            777777777777 *                *            *            0            0   0   *   

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

*032372  JUMPA	0,032373

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032372 032372 032372 324000032373 777777777777 777777777777     777777777777 000000032370 0            0   0   777 
IT1	*      *      032373 *            324000032373 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032373     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032373 *            000000032373 000000000000     0            000000032373 0            0   0   *   

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

*032373  CAME	4,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032373 032373 032373 312200033474 777777777777 0                0            000000032373 0            0   0   777 
IT1	*      *      033474 *            312200033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   SEQ 0299
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032374 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032374 *      032375 *            777777777777 *                *            *            0            0   0   *   

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

*032375  JUMPA	0,032376

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032375 032375 032375 324000032376 777777777777 777777777777     777777777777 000000032373 0            0   0   777 
IT1	*      *      032376 *            324000032376 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032376     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032376 *            000000032376 000000000000     0            000000032376 0            0   0   *   

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

*032376  MOVE 	4,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032376 032376 032376 200200033506 777777777777 0                0            000000032376 0            0   0   777 
IT1	*      *      033506 *            200200033506 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032377 032377 032377 476240000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                707070707070 *            0            0   0   *   

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

*032377  SETOM	5,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032377 032377 032377 476240000000 777777777777 707070707070     707070707070 000000032376 0            0   0   777 
IT1	*      *      000000 *            476240000000 *                777777777777 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 032400 *            777777777777 0                *            *            0            0   0   *   
ET2	*      0      *      *            *            0                *            *            0            0   0   *   
ST1	*      0      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      0      *      777777777777 *            *                000000000000 *            0            0   0   *   
ST5	032400 032400 *      353200000005 *            *                777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(E) =777777 777777 
----------
                                                                                                                           SEQ 0300
*032400  AOSLE	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032400 032400 032400 353200000005 777777777777 777777777777     777777777777 000000032376 0            0   0   777 
IT1	*      *      000005 *            353200000005 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032401 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032401 *      032402 *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032402 032402 *      324000032403 *            0                000000000000 *            0            0   0   *   

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

*032402  JUMPA	0,032403

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032402 032402 032402 324000032403 777777777777 0                0            000000032376 0            0   0   777 
IT1	*      *      032403 *            324000032403 0                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032403     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032403 *            000000032403 777777777777     *            000000032403 0            0   0   *   

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

*032403  CAME	5,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032403 032403 032403 312240033513 777777777777 777777777777     777777777777 000000032403 0            0   0   777 
IT1	*      *      033513 *            312240033513 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032404 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032404 *      032405 0            777777777777 0                0            *            0            0   0   *   

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

*032405  JUMPA	0,032406

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032405 032405 032405 324000032406 777777777777 0                0            000000032403 0            0   0   777 
IT1	*      *      032406 *            324000032406 0                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032406     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032406 *            000000032406 777777777777     *            000000032406 0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0301
INITIAL
C(AC)=777777 777777 E    =000000 032406 
----------

*032406  CAME	4,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032406 032406 032406 312200033513 777777777777 777777777777     777777777777 000000032406 0            0   0   777 
IT1	*      *      033513 *            312200033513 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032407 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032407 *      032410 0            777777777777 0                0            *            0            0   0   *   

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

*032410  JUMPA	0,032411

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032410 032410 032410 324000032411 777777777777 0                0            000000032406 0            0   0   777 
IT1	*      *      032411 *            324000032411 0                777777777777 *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032411     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032411 *            000000032411 777777777777     *            000000032411 0            0   0   *   

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

*032411  MOVE 	4,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032411 032411 032411 200200033506 777777777777 777777777777     777777777777 000000032411 0            0   0   777 
IT1	*      *      033506 *            200200033506 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032412 032412 032412 400000000005 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032412  SETZ 	0,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032412 032412 032412 400000000005 777777777777 707070707070     707070707070 000000032411 0            0   0   777 
IT1	*      *      000005 *            400000000005 *                777777777777 *            0            0   0   *   
ET2	*      *      032413 *            000000000000 000000000005     *            *            0            0   0   *   
ST1	032413 032413 *      353200000005 777777777777 000000000000     000000000000 *            0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0302
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*032413  AOSLE	4,000005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032413 032413 032413 353200000005 777777777777 0                0            000000032411 0            0   0   777 
IT1	*      *      000005 *            353200000005 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000005     *            *            0            0   0   *   
FT6	*      000005 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032414 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000001     000000000001 *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                000000000000 *            0            0   0   *   
ST5	032414 032414 *      334000000000 *            *                000000000001 *            0            0   0   *   

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

*032414  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032414 032414 032414 334000000000 777777777777 000000000001     000000000001 000000032411 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032415 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032415 0      032416 *            777777777777 0                0            *            0            0   0   *   

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

*032416  JUMPA	0,032417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032416 032416 032416 324000032417 777777777777 0                0            000000032411 0            0   0   777 
IT1	*      *      032417 *            324000032417 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032417     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032417 *            000000032417 000000000000     0            000000032417 0            0   0   *   

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

*032417  CAME	5,033514
                                                                                                                           SEQ 0303
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032417 032417 032417 312240033514 777777777777 0                0            000000032417 0            0   0   777 
IT1	*      *      033514 *            312240033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032420 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032420 *      032421 *            777777777777 *                *            *            0            0   0   *   

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

*032421  JUMPA	0,032422

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032421 032421 032421 324000032422 777777777777 000000000001     000000000001 000000032417 0            0   0   777 
IT1	*      *      032422 *            324000032422 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032422     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032422 *            000000032422 000000000000     0            000000032422 0            0   0   *   

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

*032422  CAME	4,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032422 032422 032422 312200033514 777777777777 0                0            000000032422 0            0   0   777 
IT1	*      *      033514 *            312200033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032423 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032423 *      032424 *            777777777777 *                *            *            0            0   0   *   

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

*032424  JUMPA	0,032425

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032424 032424 032424 324000032425 777777777777 000000000001     000000000001 000000032422 0            0   0   777 
IT1	*      *      032425 *            324000032425 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032425     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032425 *            000000032425 000000000000     0            000000032425 0            0   0   *   

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

*032425  MOVE 	3,033506
                                                                                                                           SEQ 0304
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032425 032425 032425 200140033506 777777777777 0                0            000000032425 0            0   0   777 
IT1	*      *      033506 *            200140033506 0                777777777776 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032426 032426 032426 561200777776 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            777777777776 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032426  HRROI	4,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032426 032426 032426 561200777776 777777777777 707070707070     707070707070 000000032425 0            0   0   777 
IT1	*      *      777776 *            561200777776 *                000000000001 *            0            0   0   *   
ET2	*      *      032427 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032427 032427 *      354140000004 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032427  AOSA	3,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032427 032427 032427 354140000004 777777777777 777777777776     777777777776 000000032425 0            0   0   777 
IT1	*      *      000004 *            354140000004 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032430 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	032430 *      032431 *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777776 *            0            0   0   *   
ST5	032431 032431 *      324000032432 *            *                777777777777 *            0            0   0   *   

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

*032431  JUMPA	0,032432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032431 032431 032431 324000032432 777777777777 777777777777     777777777777 000000032425 0            0   0   777 
IT1	*      *      032432 *            324000032432 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032432     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032432 *            000000032432 000000000000     0            000000032432 0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0305
INITIAL
C(AC)=000000 000000 E    =000000 032432 
----------

*032432  CAME	4,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032432 032432 032432 312200033474 777777777777 0                0            000000032432 0            0   0   777 
IT1	*      *      033474 *            312200033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032433 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032433 *      032434 *            777777777777 *                *            *            0            0   0   *   

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

*032434  JUMPA	0,032435

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032434 032434 032434 324000032435 777777777777 777777777777     777777777777 000000032432 0            0   0   777 
IT1	*      *      032435 *            324000032435 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032435     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032435 *            000000032435 000000000000     0            000000032435 0            0   0   *   

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

*032435  CAME	3,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032435 032435 032435 312140033474 777777777777 0                0            000000032435 0            0   0   777 
IT1	*      *      033474 *            312140033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032436 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032436 *      032437 *            777777777777 *                *            *            0            0   0   *   

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

*032437  JUMPA	0,032440

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032437 032437 032437 324000032440 777777777777 777777777777     777777777777 000000032435 0            0   0   777 
IT1	*      *      032440 *            324000032440 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032440     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032440 *            000000032440 000000000000     0            000000032440 0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0306
INITIAL
C(AC)=000000 000000 E    =000000 032440 
----------

*032440  MOVE 	3,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032440 032440 032440 200140033506 777777777777 0                0            000000032440 0            0   0   777 
IT1	*      *      033506 *            200140033506 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032441 032441 032441 474200000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                707070707070 *            0            0   0   *   

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

*032441  SETO 	4,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032441 032441 032441 474200000000 777777777777 707070707070     707070707070 000000032440 0            0   0   777 
IT1	*      *      000000 *            474200000000 *                777777777777 *            0            0   0   *   
ET2	*      *      032442 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032442 032442 *      354140000004 *            777777777777     *            *            0            0   0   *   

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

*032442  AOSA	3,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032442 032442 032442 354140000004 777777777777 777777777777     777777777777 000000032440 0            0   0   777 
IT1	*      *      000004 *            354140000004 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032443 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032443 *      032444 *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032444 032444 *      324000032445 *            0                000000000000 *            0            0   0   *   

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

*032444  JUMPA	0,032445

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032444 032444 032444 324000032445 777777777777 0                0            000000032440 0            0   0   77  SEQ 0307
IT1	*      *      032445 *            324000032445 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032445     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032445 *            000000032445 000000000000     0            000000032445 0            0   0   *   

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

*032445  CAME	4,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032445 032445 032445 312200033513 777777777777 0                0            000000032445 0            0   0   777 
IT1	*      *      033513 *            312200033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032446 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032446 *      032447 0            777777777777 0                0            *            0            0   0   *   

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

*032447  JUMPA	0,032450

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032447 032447 032447 324000032450 777777777777 0                0            000000032445 0            0   0   777 
IT1	*      *      032450 *            324000032450 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032450     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032450 *            000000032450 000000000000     0            000000032450 0            0   0   *   

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

*032450  CAME	3,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032450 032450 032450 312140033513 777777777777 0                0            000000032450 0            0   0   777 
IT1	*      *      033513 *            312140033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032451 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032451 *      032452 0            777777777777 0                0            *            0            0   0   *   

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

*032452  JUMPA	0,032453

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032452 032452 032452 324000032453 777777777777 0                0            000000032450 0            0   0   77  SEQ 0308
IT1	*      *      032453 *            324000032453 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032453     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032453 *            000000032453 000000000000     0            000000032453 0            0   0   *   

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

*032453  MOVE 	3,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032453 032453 032453 200140033506 777777777777 0                0            000000032453 0            0   0   777 
IT1	*      *      033506 *            200140033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032454 032454 032454 400200000000 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032454  SETZ 	4,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032454 032454 032454 400200000000 777777777777 707070707070     707070707070 000000032453 0            0   0   777 
IT1	*      *      000000 *            400200000000 *                000000000000 *            0            0   0   *   
ET2	*      *      032455 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	032455 032455 *      354140000004 777777777777 0                0            *            0            0   0   *   

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

*032455  AOSA	3,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032455 032455 032455 354140000004 777777777777 0                0            000000032453 0            0   0   777 
IT1	*      *      000004 *            354140000004 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     *            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032456 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	032456 *      032457 *            777777777777 000000000001     000000000001 *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                000000000000 *            0            0   0   *   
ST5	032457 032457 *      324000032460 *            *                000000000001 *            0            0   0   *   

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

*032457  JUMPA	0,032460

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032457 032457 032457 324000032460 777777777777 000000000001     000000000001 000000032453 0            0   0   777 
IT1	*      *      032460 *            324000032460 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032460     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032460 *            000000032460 000000000000     0            000000032460 0            0   0   *   

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

*032460  CAME	4,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032460 032460 032460 312200033514 777777777777 0                0            000000032460 0            0   0   777 
IT1	*      *      033514 *            312200033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032461 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032461 *      032462 *            777777777777 *                *            *            0            0   0   *   

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

*032462  JUMPA	0,032463

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032462 032462 032462 324000032463 777777777777 000000000001     000000000001 000000032460 0            0   0   777 
IT1	*      *      032463 *            324000032463 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032463     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032463 *            000000032463 000000000000     0            000000032463 0            0   0   *   

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

*032463  CAME	3,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032463 032463 032463 312140033514 777777777777 0                0            000000032463 0            0   0   777 
IT1	*      *      033514 *            312140033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032464 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032464 *      032465 *            777777777777 *                *            *            0            0   0   *   

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

*032465  JUMPA	0,032466

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032465 032465 032465 324000032466 777777777777 000000000001     000000000001 000000032463 0            0   0   777 
IT1	*      *      032466 *            324000032466 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032466     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032466 *            000000032466 000000000000     0            000000032466 0            0   0   *   

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

*032466  MOVE 	2,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032466 032466 032466 200100033506 777777777777 0                0            000000032466 0            0   0   777 
IT1	*      *      033506 *            200100033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032467 032467 032467 561140777776 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032467  HRROI	3,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032467 032467 032467 561140777776 777777777777 707070707070     707070707070 000000032466 0            0   0   777 
IT1	*      *      777776 *            561140777776 *                000000000001 *            0            0   0   *   
ET2	*      *      032470 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032470 032470 *      355100000003 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032470  AOSGE	2,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032470 032470 032470 355100000003 777777777777 777777777776     777777777776 000000032466 0            0   0   777 
IT1	*      *      000003 *            355100000003 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 *      *            777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032471 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777776 *            0            0   0   *   
ST5	032471 032471 *      334000000000 *            *                777777777777 *            0            0   0   *   SEQ 0311

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

*032471  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032471 032471 032471 334000000000 777777777777 777777777777     777777777777 000000032466 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                000000000000 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032472 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032472 0      032473 *            777777777777 0                0            *            0            0   0   *   

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

*032473  JUMPA	0,032474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032473 032473 032473 324000032474 777777777777 0                0            000000032466 0            0   0   777 
IT1	*      *      032474 *            324000032474 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032474     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032474 *            000000032474 000000000000     0            000000032474 0            0   0   *   

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

*032474  CAME	3,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032474 032474 032474 312140033474 777777777777 0                0            000000032474 0            0   0   777 
IT1	*      *      033474 *            312140033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032475 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032475 *      032476 *            777777777777 *                *            *            0            0   0   *   

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

*032476  JUMPA	0,032477

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032476 032476 032476 324000032477 777777777777 777777777777     777777777777 000000032474 0            0   0   77  SEQ 0312
IT1	*      *      032477 *            324000032477 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032477     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032477 *            000000032477 000000000000     0            000000032477 0            0   0   *   

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

*032477  CAME	2,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032477 032477 032477 312100033474 777777777777 0                0            000000032477 0            0   0   777 
IT1	*      *      033474 *            312100033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032500 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032500 *      032501 *            777777777777 *                *            *            0            0   0   *   

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

*032501  JUMPA	0,032502

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032501 032501 032501 324000032502 777777777777 777777777777     777777777777 000000032477 0            0   0   777 
IT1	*      *      032502 *            324000032502 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032502     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032502 *            000000032502 000000000000     0            000000032502 0            0   0   *   

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

*032502  MOVE 	2,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032502 032502 032502 200100033506 777777777777 0                0            000000032502 0            0   0   777 
IT1	*      *      033506 *            200100033506 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032503 032503 032503 474140000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                707070707070 *            0            0   0   *   

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

*032503  SETO 	3,000000
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0313
IT0	032503 032503 032503 474140000000 777777777777 707070707070     707070707070 000000032502 0            0   0   777 
IT1	*      *      000000 *            474140000000 *                777777777777 *            0            0   0   *   
ET2	*      *      032504 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032504 032504 *      355100000003 *            777777777777     *            *            0            0   0   *   

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

*032504  AOSGE	2,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032504 032504 032504 355100000003 777777777777 777777777777     777777777777 000000032502 0            0   0   777 
IT1	*      *      000003 *            355100000003 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 *      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032505 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032505 *      032506 *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032506 032506 *      324000032507 *            0                000000000000 *            0            0   0   *   

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

*032506  JUMPA	0,032507

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032506 032506 032506 324000032507 777777777777 0                0            000000032502 0            0   0   777 
IT1	*      *      032507 *            324000032507 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032507     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032507 *            000000032507 000000000000     0            000000032507 0            0   0   *   

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

*032507  CAME	3,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032507 032507 032507 312140033513 777777777777 0                0            000000032507 0            0   0   777 
IT1	*      *      033513 *            312140033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032510 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032510 *      032511 0            777777777777 0                0            *            0            0   0   *   

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

*032511  JUMPA	0,032512

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032511 032511 032511 324000032512 777777777777 0                0            000000032507 0            0   0   777 
IT1	*      *      032512 *            324000032512 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032512     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032512 *            000000032512 000000000000     0            000000032512 0            0   0   *   

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

*032512  CAME	2,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032512 032512 032512 312100033513 777777777777 0                0            000000032512 0            0   0   777 
IT1	*      *      033513 *            312100033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032513 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032513 *      032514 0            777777777777 0                0            *            0            0   0   *   

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

*032514  JUMPA	0,032515

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032514 032514 032514 324000032515 777777777777 0                0            000000032512 0            0   0   777 
IT1	*      *      032515 *            324000032515 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032515     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032515 *            000000032515 000000000000     0            000000032515 0            0   0   *   

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

*032515  MOVE 	2,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032515 032515 032515 200100033506 777777777777 0                0            000000032515 0            0   0   777 
IT1	*      *      033506 *            200100033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032516 032516 032516 400140000000 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032516  SETZ 	3,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032516 032516 032516 400140000000 777777777777 707070707070     707070707070 000000032515 0            0   0   777 
IT1	*      *      000000 *            400140000000 *                000000000000 *            0            0   0   *   
ET2	*      *      032517 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	032517 032517 *      355100000003 777777777777 0                0            *            0            0   0   *   

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

*032517  AOSGE	2,000003

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032517 032517 032517 355100000003 777777777777 0                0            000000032515 0            0   0   777 
IT1	*      *      000003 *            355100000003 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000003     *            *            0            0   0   *   
FT6	*      000003 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032520 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	032520 *      032521 *            777777777777 000000000001     000000000001 *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                000000000000 *            0            0   0   *   
ST5	032521 032521 *      324000032522 *            *                000000000001 *            0            0   0   *   

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

*032521  JUMPA	0,032522

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032521 032521 032521 324000032522 777777777777 000000000001     000000000001 000000032515 0            0   0   777 
IT1	*      *      032522 *            324000032522 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032522     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032522 *            000000032522 000000000000     0            000000032522 0            0   0   *   

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

*032522  CAME	3,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032522 032522 032522 312140033514 777777777777 0                0            000000032522 0            0   0   777 
IT1	*      *      033514 *            312140033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032523 *            000000000000 *                *            *            0            0   0   *   SEQ 0316
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032523 *      032524 *            777777777777 *                *            *            0            0   0   *   

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

*032524  JUMPA	0,032525

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032524 032524 032524 324000032525 777777777777 000000000001     000000000001 000000032522 0            0   0   777 
IT1	*      *      032525 *            324000032525 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032525     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032525 *            000000032525 000000000000     0            000000032525 0            0   0   *   

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

*032525  CAME	2,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032525 032525 032525 312100033514 777777777777 0                0            000000032525 0            0   0   777 
IT1	*      *      033514 *            312100033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032526 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032526 *      032527 *            777777777777 *                *            *            0            0   0   *   

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

*032527  JUMPA	0,032530

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032527 032527 032527 324000032530 777777777777 000000000001     000000000001 000000032525 0            0   0   777 
IT1	*      *      032530 *            324000032530 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032530     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032530 *            000000032530 000000000000     0            000000032530 0            0   0   *   

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

*032530  MOVE 	1,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032530 032530 032530 200040033506 777777777777 0                0            000000032530 0            0   0   777 
IT1	*      *      033506 *            200040033506 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032531 032531 032531 561100777776 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 *                *            *            0            0   0   *   SEQ 0317
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032531  HRROI	2,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032531 032531 032531 561100777776 777777777777 707070707070     707070707070 000000032530 0            0   0   777 
IT1	*      *      777776 *            561100777776 *                000000000001 *            0            0   0   *   
ET2	*      *      032532 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032532 032532 *      356040000002 777777777777 777777777776     777777777776 *            0            0   0   *   

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

*032532  AOSN	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032532 032532 032532 356040000002 777777777777 777777777776     777777777776 000000032530 0            0   0   777 
IT1	*      *      000002 *            356040000002 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032533 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	032533 *      032534 *            *            777777777777     777777777777 *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777776 *            0            0   0   *   
ST5	032534 032534 *      324000032535 *            *                777777777777 *            0            0   0   *   

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

*032534  JUMPA	0,032535

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032534 032534 032534 324000032535 777777777777 777777777777     777777777777 000000032530 0            0   0   777 
IT1	*      *      032535 *            324000032535 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032535     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032535 *            000000032535 000000000000     0            000000032535 0            0   0   *   

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

*032535  CAME	2,033474
                                                                                                                           SEQ 0318
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032535 032535 032535 312100033474 777777777777 0                0            000000032535 0            0   0   777 
IT1	*      *      033474 *            312100033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032536 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032536 *      032537 *            777777777777 *                *            *            0            0   0   *   

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

*032537  JUMPA	0,032540

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032537 032537 032537 324000032540 777777777777 777777777777     777777777777 000000032535 0            0   0   777 
IT1	*      *      032540 *            324000032540 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032540     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032540 *            000000032540 000000000000     0            000000032540 0            0   0   *   

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

*032540  CAME	1,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032540 032540 032540 312040033474 777777777777 0                0            000000032540 0            0   0   777 
IT1	*      *      033474 *            312040033474 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032541 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032541 *      032542 *            777777777777 *                *            *            0            0   0   *   

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

*032542  JUMPA	0,032543

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032542 032542 032542 324000032543 777777777777 777777777777     777777777777 000000032540 0            0   0   777 
IT1	*      *      032543 *            324000032543 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032543     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032543 *            000000032543 000000000000     0            000000032543 0            0   0   *   

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

*032543  MOVE 	1,033506
                                                                                                                           SEQ 0319
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032543 032543 032543 200040033506 777777777777 0                0            000000032543 0            0   0   777 
IT1	*      *      033506 *            200040033506 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032544 032544 032544 474100000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                707070707070 *            0            0   0   *   

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

*032544  SETO 	2,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032544 032544 032544 474100000000 777777777777 707070707070     707070707070 000000032543 0            0   0   777 
IT1	*      *      000000 *            474100000000 *                777777777777 *            0            0   0   *   
ET2	*      *      032545 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032545 032545 *      356040000002 *            777777777777     *            *            0            0   0   *   

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

*032545  AOSN	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032545 032545 032545 356040000002 777777777777 777777777777     777777777777 000000032543 0            0   0   777 
IT1	*      *      000002 *            356040000002 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032546 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     000000000000 *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032546 032546 *      334000000000 *            0                000000000000 *            0            0   0   *   

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

*032546  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032546 032546 032546 334000000000 777777777777 0                0            000000032543 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      032547 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032547 0      032550 *            777777777777 0                0            *            0            0   0   *   SEQ 0320

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

*032550  JUMPA	0,032551

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032550 032550 032550 324000032551 777777777777 0                0            000000032543 0            0   0   777 
IT1	*      *      032551 *            324000032551 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032551     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032551 *            000000032551 000000000000     0            000000032551 0            0   0   *   

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

*032551  CAME	2,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032551 032551 032551 312100033513 777777777777 0                0            000000032551 0            0   0   777 
IT1	*      *      033513 *            312100033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032552 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032552 *      032553 0            777777777777 0                0            *            0            0   0   *   

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

*032553  JUMPA	0,032554

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032553 032553 032553 324000032554 777777777777 0                0            000000032551 0            0   0   777 
IT1	*      *      032554 *            324000032554 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032554     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032554 *            000000032554 000000000000     0            000000032554 0            0   0   *   

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

*032554  CAME	1,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032554 032554 032554 312040033513 777777777777 0                0            000000032554 0            0   0   777 
IT1	*      *      033513 *            312040033513 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032555 0            000000000000 0                0            *            0            0   0   *   SEQ 0321
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032555 *      032556 0            777777777777 0                0            *            0            0   0   *   

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

*032556  JUMPA	0,032557

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032556 032556 032556 324000032557 777777777777 0                0            000000032554 0            0   0   777 
IT1	*      *      032557 *            324000032557 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032557     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032557 *            000000032557 000000000000     0            000000032557 0            0   0   *   

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

*032557  MOVE 	1,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032557 032557 032557 200040033506 777777777777 0                0            000000032557 0            0   0   777 
IT1	*      *      033506 *            200040033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032560 032560 032560 400100000000 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032560  SETZ 	2,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032560 032560 032560 400100000000 777777777777 707070707070     707070707070 000000032557 0            0   0   777 
IT1	*      *      000000 *            400100000000 *                000000000000 *            0            0   0   *   
ET2	*      *      032561 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	032561 032561 *      356040000002 777777777777 0                0            *            0            0   0   *   

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

*032561  AOSN	1,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032561 032561 032561 356040000002 777777777777 0                0            000000032557 0            0   0   777 
IT1	*      *      000002 *            356040000002 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     *            *            0            0   0   *   SEQ 0322
FT6	*      000002 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032562 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	032562 *      032563 *            777777777777 000000000001     000000000001 *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                000000000000 *            0            0   0   *   
ST5	032563 032563 *      324000032564 *            *                000000000001 *            0            0   0   *   

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

*032563  JUMPA	0,032564

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032563 032563 032563 324000032564 777777777777 000000000001     000000000001 000000032557 0            0   0   777 
IT1	*      *      032564 *            324000032564 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032564     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032564 *            000000032564 000000000000     0            000000032564 0            0   0   *   

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

*032564  CAME	2,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032564 032564 032564 312100033514 777777777777 0                0            000000032564 0            0   0   777 
IT1	*      *      033514 *            312100033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032565 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032565 *      032566 *            777777777777 *                *            *            0            0   0   *   

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

*032566  JUMPA	0,032567

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032566 032566 032566 324000032567 777777777777 000000000001     000000000001 000000032564 0            0   0   777 
IT1	*      *      032567 *            324000032567 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032567     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032567 *            000000032567 000000000000     0            000000032567 0            0   0   *   

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

*032567  CAME	1,033514
                                                                                                                           SEQ 0323
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032567 032567 032567 312040033514 777777777777 0                0            000000032567 0            0   0   777 
IT1	*      *      033514 *            312040033514 0                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032570 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032570 *      032571 *            777777777777 *                *            *            0            0   0   *   

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

*032571  JUMPA	0,032572

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032571 032571 032571 324000032572 777777777777 000000000001     000000000001 000000032567 0            0   0   777 
IT1	*      *      032572 *            324000032572 *                000000000000 *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032572     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032572 *            000000032572 000000000000     0            000000032572 0            0   0   *   

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

*032572  MOVE 	0,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032572 032572 032572 200000033506 777777777777 0                0            000000032572 0            0   0   777 
IT1	*      *      033506 *            200000033506 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     0            *            0            0   0   *   
FT6	032573 032573 032573 561040777776 777777777777 707070707070     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                707070707070 *            0            0   0   *   

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

*032573  HRROI	1,777776

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032573 032573 032573 561040777776 777777777777 707070707070     707070707070 000000032572 0            0   0   777 
IT1	*      *      777776 *            561040777776 *                000000000001 *            0            0   0   *   
ET2	*      *      032574 *            777777777776 000000777776     *            *            0            0   0   *   
ST1	032574 032574 *      357000000001 777777777777 777777777776     777777777776 *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000001 E    =000000 777776 
FINAL
C(AC)=777777 777776 
----------
                                                                                                                           SEQ 0324
*032574  AOSG	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032574 032574 032574 357000000001 777777777777 777777777776     777777777776 000000032572 0            0   0   777 
IT1	*      *      000001 *            357000000001 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 777777777776     *            *            0            0   0   *   
ET0	*      *      032575 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     *            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777776 *            0            0   0   *   
ST5	032575 032575 *      334000000000 *            *                707070707070 *            0            0   0   *   

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

*032575  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032575 032575 032575 334000000000 777777777777 777777777777     707070707070 000000032572 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 707070707070     *            *            0            0   0   *   
ET0	*      0      032576 *            707070707070 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032576 0      032577 *            777777777777 *                *            *            0            0   0   *   

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

*032577  JUMPA	0,032600

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032577 032577 032577 324000032600 777777777777 707070707070     707070707070 000000032572 0            0   0   777 
IT1	*      *      032600 *            324000032600 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032600     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032600 *            000000032600 707070707070     *            000000032600 0            0   0   *   

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

*032600  CAME	1,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032600 032600 032600 312040033474 777777777777 707070707070     707070707070 000000032600 0            0   0   777 
IT1	*      *      033474 *            312040033474 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032601 *            000000000000 *                *            *            0            0   0   *   SEQ 0325
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032601 *      032602 *            777777777777 *                *            *            0            0   0   *   

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

*032602  JUMPA	0,032603

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032602 032602 032602 324000032603 777777777777 777777777777     777777777777 000000032600 0            0   0   777 
IT1	*      *      032603 *            324000032603 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032603     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032603 *            000000032603 707070707070     *            000000032603 0            0   0   *   

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

*032603  CAME	0,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032603 032603 032603 312000033506 777777777777 707070707070     707070707070 000000032603 0            0   0   777 
IT1	*      *      033506 *            312000033506 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	*      033506 *      707070707070 777777777777 707070707070     *            *            0            0   0   *   
ET0	*      *      032604 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032604 *      032605 *            777777777777 *                *            *            0            0   0   *   

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

*032605  JUMPA	0,032606

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032605 032605 032605 324000032606 777777777777 707070707070     707070707070 000000032603 0            0   0   777 
IT1	*      *      032606 *            324000032606 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032606     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032606 *            000000032606 707070707070     *            000000032606 0            0   0   *   

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

*032606  MOVE 	0,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032606 032606 032606 200000033506 777777777777 707070707070     707070707070 000000032606 0            0   0   777 
IT1	*      *      033506 *            200000033506 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032607 032607 032607 474040000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            707070707070 *                *            *            0            0   0   *   SEQ 0326
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*032607  SETO 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032607 032607 032607 474040000000 777777777777 707070707070     707070707070 000000032606 0            0   0   777 
IT1	*      *      000000 *            474040000000 *                777777777777 *            0            0   0   *   
ET2	*      *      032610 *            777777777777 000000000000     *            *            0            0   0   *   
ST1	032610 032610 *      357000000001 *            777777777777     *            *            0            0   0   *   

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

*032610  AOSG	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032610 032610 032610 357000000001 777777777777 777777777777     777777777777 000000032606 0            0   0   777 
IT1	*      *      000001 *            357000000001 *                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032611 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                777777777777 *            0            0   0   *   
ST5	032611 032611 *      334000000000 *            0                707070707070 *            0            0   0   *   

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

*032611  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032611 032611 032611 334000000000 777777777777 0                707070707070 000000032606 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                *            *            0            0   0   *   
MEMST	*      *      0      *            *            0                *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 707070707070     *            *            0            0   0   *   
ET0	*      0      032612 *            707070707070 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032612 0      032613 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=707070 707070 C(E) =707070 707070 
FINAL
C(AC)=707070 707070                                                                                                        SEQ 0327
----------

*032613  JUMPA	0,032614

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032613 032613 032613 324000032614 777777777777 707070707070     707070707070 000000032606 0            0   0   777 
IT1	*      *      032614 *            324000032614 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032614     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032614 *            000000032614 707070707070     *            000000032614 0            0   0   *   

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

*032614  CAME	1,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032614 032614 032614 312040033513 777777777777 707070707070     707070707070 000000032614 0            0   0   777 
IT1	*      *      033513 *            312040033513 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032615 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032615 *      032616 0            777777777777 0                0            *            0            0   0   *   

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

*032616  JUMPA	0,032617

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032616 032616 032616 324000032617 777777777777 0                0            000000032614 0            0   0   777 
IT1	*      *      032617 *            324000032617 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032617     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032617 *            000000032617 707070707070     *            000000032617 0            0   0   *   

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

*032617  CAME	0,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032617 032617 032617 312000033506 777777777777 707070707070     707070707070 000000032617 0            0   0   777 
IT1	*      *      033506 *            312000033506 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	*      033506 *      707070707070 777777777777 707070707070     *            *            0            0   0   *   
ET0	*      *      032620 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032620 *      032621 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=707070 707070 C(E) =707070 707070                                                                                    SEQ 0328
----------

*032621  JUMPA	0,032622

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032621 032621 032621 324000032622 777777777777 707070707070     707070707070 000000032617 0            0   0   777 
IT1	*      *      032622 *            324000032622 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032622     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032622 *            000000032622 707070707070     *            000000032622 0            0   0   *   

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

*032622  MOVE 	0,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032622 032622 032622 200000033506 777777777777 707070707070     707070707070 000000032622 0            0   0   777 
IT1	*      *      033506 *            200000033506 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	032623 032623 032623 400040000000 777777777777 707070707070     *            *            0            0   0   *   
ET2	*      *      *      *            707070707070 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*032623  SETZ 	1,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032623 032623 032623 400040000000 777777777777 707070707070     707070707070 000000032622 0            0   0   777 
IT1	*      *      000000 *            400040000000 *                000000000000 *            0            0   0   *   
ET2	*      *      032624 *            000000000000 000000000000     0            *            0            0   0   *   
ST1	032624 032624 *      357000000001 777777777777 0                0            *            0            0   0   *   

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

*032624  AOSG	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032624 032624 032624 357000000001 777777777777 0                0            000000032622 0            0   0   777 
IT1	*      *      000001 *            357000000001 0                707070707070 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     *            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      032625 *            000000000001 0                *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	032625 *      032626 *            777777777777 000000000001     *            *            0            0   0   *   
ST2	*      *      *      000000000001 *            *                000000000000 *            0            0   0   *   
ST5	032626 032626 *      324000032627 *            *                707070707070 *            0            0   0   *   SEQ 0329

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

*032626  JUMPA	0,032627

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032626 032626 032626 324000032627 777777777777 000000000001     707070707070 000000032622 0            0   0   777 
IT1	*      *      032627 *            324000032627 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032627     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032627 *            000000032627 707070707070     *            000000032627 0            0   0   *   

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

*032627  CAME	1,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032627 032627 032627 312040033514 777777777777 707070707070     707070707070 000000032627 0            0   0   777 
IT1	*      *      033514 *            312040033514 *                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032630 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032630 *      032631 *            777777777777 *                *            *            0            0   0   *   

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

*032631  JUMPA	0,032632

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032631 032631 032631 324000032632 777777777777 000000000001     000000000001 000000032627 0            0   0   777 
IT1	*      *      032632 *            324000032632 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032632     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032632 *            000000032632 707070707070     *            000000032632 0            0   0   *   

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

*032632  CAME	0,033506

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032632 032632 032632 312000033506 777777777777 707070707070     707070707070 000000032632 0            0   0   777 
IT1	*      *      033506 *            312000033506 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000033506     *            *            0            0   0   *   
FT6	*      033506 *      707070707070 777777777777 707070707070     *            *            0            0   0   *   
ET0	*      *      032633 *            000000000000 *                *            *            0            0   0   *   SEQ 0330
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032633 *      032634 *            777777777777 *                *            *            0            0   0   *   

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

*032634  JUMPA	0,032635

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032634 032634 032634 324000032635 777777777777 707070707070     707070707070 000000032632 0            0   0   777 
IT1	*      *      032635 *            324000032635 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032635     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032635 *            000000032635 707070707070     *            000000032635 0            0   0   *   

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

*032635  MOVEI	17,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032635 032635 032635 201740000000 777777777777 707070707070     707070707070 000000032635 0            0   0   777 
IT1	*      *      000000 *            201740000000 *                000000000001 *            0            0   0   *   
ET2	*      *      032636 *            000000000001 000000000000     *            *            0            0   0   *   
ST1	032636 032636 *      361740032640 777777777777 0                000000000000 *            0            0   0   *   

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

*032636  SOJL	17,032640

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032636 032636 032636 361740032640 777777777777 0                0            000000032635 0            0   0   777 
IT1	*      *      032640 *            361740032640 0                0            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032640     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032640 *            000000032640 777777777777     777777777777 000000032640 0            0   0   *   

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

*032640  JUMPA	0,032641

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032640 032640 032640 324000032641 777777777777 777777777777     777777777777 000000032640 0            0   0   777 
IT1	*      *      032641 *            324000032641 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032641     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   SEQ 0331
ST1	*      *      032641 *            000000032641 707070707070     *            000000032641 0            0   0   *   

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

*032641  CAME	17,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032641 032641 032641 312740033474 777777777777 707070707070     707070707070 000000032641 0            0   0   777 
IT1	*      *      033474 *            312740033474 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032642 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032642 *      032643 *            777777777777 *                *            *            0            0   0   *   

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

*032643  JUMPA	0,032644

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032643 032643 032643 324000032644 777777777777 777777777777     777777777777 000000032641 0            0   0   777 
IT1	*      *      032644 *            324000032644 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032644     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032644 *            000000032644 707070707070     *            000000032644 0            0   0   *   

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

*032644  MOVEI	17,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032644 032644 032644 201740000001 777777777777 707070707070     707070707070 000000032644 0            0   0   777 
IT1	*      *      000001 *            201740000001 *                777777777777 *            0            0   0   *   
ET2	*      *      032645 *            777777777777 000000000001     *            *            0            0   0   *   
ST1	032645 032645 *      361740032647 *            *                000000000001 *            0            0   0   *   

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

*032645  SOJL	17,032647

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032645 032645 032645 361740032647 777777777777 000000000001     000000000001 000000032644 0            0   0   777 
IT1	*      *      032647 *            361740032647 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032647     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032646 *            000000032647 000000000000     000000000000 000000032647 0            0   0   *   SEQ 0332

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

*032646  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032646 032646 032646 334000000000 777777777777 0                0            000000032647 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                707070707070 *            0            0   0   *   
MEMST	*      *      0      *            *            0                *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 707070707070     *            *            0            0   0   *   
ET0	*      0      032647 *            707070707070 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032647 0      032650 *            777777777777 *                *            *            0            0   0   *   

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

*032650  JUMPA	0,032651

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032650 032650 032650 324000032651 777777777777 707070707070     707070707070 000000032647 0            0   0   777 
IT1	*      *      032651 *            324000032651 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032651     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032651 *            000000032651 707070707070     *            000000032651 0            0   0   *   

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

*032651  CAME	17,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032651 032651 032651 312740033513 777777777777 707070707070     707070707070 000000032651 0            0   0   777 
IT1	*      *      033513 *            312740033513 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032652 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032652 *      032653 0            777777777777 0                0            *            0            0   0   *   

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

*032653  JUMPA	0,032654

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032653 032653 032653 324000032654 777777777777 0                0            000000032651 0            0   0   77  SEQ 0333
IT1	*      *      032654 *            324000032654 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032654     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032654 *            000000032654 707070707070     *            000000032654 0            0   0   *   

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

*032654  MOVEI	17,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032654 032654 032654 201740000002 777777777777 707070707070     707070707070 000000032654 0            0   0   777 
IT1	*      *      000002 *            201740000002 *                000000000000 *            0            0   0   *   
ET2	*      *      032655 *            000000000000 000000000002     0            *            0            0   0   *   
ST1	032655 032655 *      361740032657 777777777777 *                000000000002 *            0            0   0   *   

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

*032655  SOJL	17,032657

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032655 032655 032655 361740032657 777777777777 000000000002     000000000002 000000032654 0            0   0   777 
IT1	*      *      032657 *            361740032657 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032657     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032656 *            000000032657 000000000001     000000000001 000000032657 0            0   0   *   

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

*032656  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032656 032656 032656 334000000000 777777777777 000000000001     000000000001 000000032657 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                707070707070 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 707070707070     *            *            0            0   0   *   
ET0	*      0      032657 *            707070707070 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032657 0      032660 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=707070 707070 C(E) =707070 707070 
FINAL
C(AC)=707070 707070 
----------
*032660  JUMPA	0,032661                                                                                                   SEQ 0334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032660 032660 032660 324000032661 777777777777 707070707070     707070707070 000000032657 0            0   0   777 
IT1	*      *      032661 *            324000032661 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032661     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032661 *            000000032661 707070707070     *            000000032661 0            0   0   *   

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

*032661  CAME	17,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032661 032661 032661 312740033514 777777777777 707070707070     707070707070 000000032661 0            0   0   777 
IT1	*      *      033514 *            312740033514 *                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032662 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032662 *      032663 *            777777777777 *                *            *            0            0   0   *   

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

*032663  JUMPA	0,032664

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032663 032663 032663 324000032664 777777777777 000000000001     000000000001 000000032661 0            0   0   777 
IT1	*      *      032664 *            324000032664 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032664     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032664 *            000000032664 707070707070     *            000000032664 0            0   0   *   

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

*032664  MOVEI	16,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032664 032664 032664 201700000000 777777777777 707070707070     707070707070 000000032664 0            0   0   777 
IT1	*      *      000000 *            201700000000 *                000000000001 *            0            0   0   *   
ET2	*      *      032665 *            000000000001 000000000000     *            *            0            0   0   *   
ST1	032665 032665 *      362700032667 777777777777 0                000000000000 *            0            0   0   *   

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

*032665  SOJE	16,032667
                                                                                                                           SEQ 0335
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032665 032665 032665 362700032667 777777777777 0                0            000000032664 0            0   0   777 
IT1	*      *      032667 *            362700032667 0                0            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032667     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032666 *            000000032667 777777777777     777777777777 000000032667 0            0   0   *   

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

*032666  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032666 032666 032666 334000000000 777777777777 777777777777     777777777777 000000032667 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                707070707070 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 707070707070     *            *            0            0   0   *   
ET0	*      0      032667 *            707070707070 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032667 0      032670 *            777777777777 *                *            *            0            0   0   *   

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

*032670  JUMPA	0,032671

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032670 032670 032670 324000032671 777777777777 707070707070     707070707070 000000032667 0            0   0   777 
IT1	*      *      032671 *            324000032671 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032671     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032671 *            000000032671 707070707070     *            000000032671 0            0   0   *   

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

*032671  CAME	16,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032671 032671 032671 312700033474 777777777777 707070707070     707070707070 000000032671 0            0   0   777 
IT1	*      *      033474 *            312700033474 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032672 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032672 *      032673 *            777777777777 *                *            *            0            0   0   *   

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

*032673  JUMPA	0,032674

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032673 032673 032673 324000032674 777777777777 777777777777     777777777777 000000032671 0            0   0   777 
IT1	*      *      032674 *            324000032674 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032674     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032674 *            000000032674 707070707070     *            000000032674 0            0   0   *   

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

*032674  MOVEI	16,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032674 032674 032674 201700000001 777777777777 707070707070     707070707070 000000032674 0            0   0   777 
IT1	*      *      000001 *            201700000001 *                777777777777 *            0            0   0   *   
ET2	*      *      032675 *            777777777777 000000000001     *            *            0            0   0   *   
ST1	032675 032675 *      362700032677 *            *                000000000001 *            0            0   0   *   

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

*032675  SOJE	16,032677

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032675 032675 032675 362700032677 777777777777 000000000001     000000000001 000000032674 0            0   0   777 
IT1	*      *      032677 *            362700032677 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032677     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032677 *            000000032677 000000000000     000000000000 000000032677 0            0   0   *   

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

*032677  JUMPA	0,032700

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032677 032677 032677 324000032700 777777777777 0                0            000000032677 0            0   0   777 
IT1	*      *      032700 *            324000032700 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032700     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032700 *            000000032700 707070707070     *            000000032700 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=707070 707070 E    =000000 032700 
----------                                                                                                                 SEQ 0337

*032700  CAME	16,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032700 032700 032700 312700033513 777777777777 707070707070     707070707070 000000032700 0            0   0   777 
IT1	*      *      033513 *            312700033513 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032701 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032701 *      032702 0            777777777777 0                0            *            0            0   0   *   

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

*032702  JUMPA	0,032703

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032702 032702 032702 324000032703 777777777777 0                0            000000032700 0            0   0   777 
IT1	*      *      032703 *            324000032703 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032703     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032703 *            000000032703 707070707070     *            000000032703 0            0   0   *   

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

*032703  MOVEI	16,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032703 032703 032703 201700000002 777777777777 707070707070     707070707070 000000032703 0            0   0   777 
IT1	*      *      000002 *            201700000002 *                000000000000 *            0            0   0   *   
ET2	*      *      032704 *            000000000000 000000000002     0            *            0            0   0   *   
ST1	032704 032704 *      362700032706 777777777777 *                000000000002 *            0            0   0   *   

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

*032704  SOJE	16,032706

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032704 032704 032704 362700032706 777777777777 000000000002     000000000002 000000032703 0            0   0   777 
IT1	*      *      032706 *            362700032706 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032706     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032705 *            000000032706 000000000001     000000000001 000000032706 0            0   0   *   

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

*032705  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032705 032705 032705 334000000000 777777777777 000000000001     000000000001 000000032706 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                707070707070 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 707070707070     *            *            0            0   0   *   
ET0	*      0      032706 *            707070707070 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032706 0      032707 *            777777777777 *                *            *            0            0   0   *   

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

*032707  JUMPA	0,032710

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032707 032707 032707 324000032710 777777777777 707070707070     707070707070 000000032706 0            0   0   777 
IT1	*      *      032710 *            324000032710 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032710     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032710 *            000000032710 707070707070     *            000000032710 0            0   0   *   

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

*032710  CAME	16,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032710 032710 032710 312700033514 777777777777 707070707070     707070707070 000000032710 0            0   0   777 
IT1	*      *      033514 *            312700033514 *                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032711 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032711 *      032712 *            777777777777 *                *            *            0            0   0   *   

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

*032712  JUMPA	0,032713

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032712 032712 032712 324000032713 777777777777 000000000001     000000000001 000000032710 0            0   0   777 
IT1	*      *      032713 *            324000032713 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032713     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032713 *            000000032713 707070707070     *            000000032713 0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0339
INITIAL
C(AC)=707070 707070 E    =000000 032713 
----------

*032713  MOVEI	15,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032713 032713 032713 201640000000 777777777777 707070707070     707070707070 000000032713 0            0   0   777 
IT1	*      *      000000 *            201640000000 *                000000000001 *            0            0   0   *   
ET2	*      *      032714 *            000000000001 000000000000     *            *            0            0   0   *   
ST1	032714 032714 *      363640032716 777777777777 0                000000000000 *            0            0   0   *   

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

*032714  SOJLE	15,032716

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032714 032714 032714 363640032716 777777777777 0                0            000000032713 0            0   0   777 
IT1	*      *      032716 *            363640032716 0                0            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032716     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032716 *            000000032716 777777777777     777777777777 000000032716 0            0   0   *   

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

*032716  JUMPA	0,032717

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032716 032716 032716 324000032717 777777777777 777777777777     777777777777 000000032716 0            0   0   777 
IT1	*      *      032717 *            324000032717 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032717     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032717 *            000000032717 707070707070     *            000000032717 0            0   0   *   

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

*032717  CAME	15,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032717 032717 032717 312640033474 777777777777 707070707070     707070707070 000000032717 0            0   0   777 
IT1	*      *      033474 *            312640033474 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032720 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032720 *      032721 *            777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0340
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=777777 777777 C(E) =777777 777777 
----------

*032721  JUMPA	0,032722

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032721 032721 032721 324000032722 777777777777 777777777777     777777777777 000000032717 0            0   0   777 
IT1	*      *      032722 *            324000032722 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032722     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032722 *            000000032722 707070707070     *            000000032722 0            0   0   *   

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

*032722  MOVEI	15,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032722 032722 032722 201640000001 777777777777 707070707070     707070707070 000000032722 0            0   0   777 
IT1	*      *      000001 *            201640000001 *                777777777777 *            0            0   0   *   
ET2	*      *      032723 *            777777777777 000000000001     *            *            0            0   0   *   
ST1	032723 032723 *      363640032725 *            *                000000000001 *            0            0   0   *   

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

*032723  SOJLE	15,032725

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032723 032723 032723 363640032725 777777777777 000000000001     000000000001 000000032722 0            0   0   777 
IT1	*      *      032725 *            363640032725 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032725     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032725 *            000000032725 000000000000     000000000000 000000032725 0            0   0   *   

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

*032725  JUMPA	0,032726

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032725 032725 032725 324000032726 777777777777 0                0            000000032725 0            0   0   777 
IT1	*      *      032726 *            324000032726 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032726     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032726 *            000000032726 707070707070     *            000000032726 0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0341
INITIAL
C(AC)=707070 707070 E    =000000 032726 
----------

*032726  CAME	15,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032726 032726 032726 312640033513 777777777777 707070707070     707070707070 000000032726 0            0   0   777 
IT1	*      *      033513 *            312640033513 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032727 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032727 *      032730 0            777777777777 0                0            *            0            0   0   *   

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

*032730  JUMPA	0,032731

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032730 032730 032730 324000032731 777777777777 0                0            000000032726 0            0   0   777 
IT1	*      *      032731 *            324000032731 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032731     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032731 *            000000032731 707070707070     *            000000032731 0            0   0   *   

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

*032731  MOVEI	15,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032731 032731 032731 201640000002 777777777777 707070707070     707070707070 000000032731 0            0   0   777 
IT1	*      *      000002 *            201640000002 *                000000000000 *            0            0   0   *   
ET2	*      *      032732 *            000000000000 000000000002     0            *            0            0   0   *   
ST1	032732 032732 *      363640032734 777777777777 *                000000000002 *            0            0   0   *   

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

*032732  SOJLE	15,032734

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032732 032732 032732 363640032734 777777777777 000000000002     000000000002 000000032731 0            0   0   777 
IT1	*      *      032734 *            363640032734 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000032734     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032733 *            000000032734 000000000001     000000000001 000000032734 0            0   0   *   

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

*032733  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032733 032733 032733 334000000000 777777777777 000000000001     000000000001 000000032734 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                707070707070 *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 707070707070     *            *            0            0   0   *   
ET0	*      0      032734 *            707070707070 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032734 0      032735 *            777777777777 *                *            *            0            0   0   *   

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

*032735  JUMPA	0,032736

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032735 032735 032735 324000032736 777777777777 707070707070     707070707070 000000032734 0            0   0   777 
IT1	*      *      032736 *            324000032736 *                *            *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032736     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032736 *            000000032736 707070707070     *            000000032736 0            0   0   *   

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

*032736  CAME	15,033514

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032736 032736 032736 312640033514 777777777777 707070707070     707070707070 000000032736 0            0   0   777 
IT1	*      *      033514 *            312640033514 *                000000000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033514     *            *            0            0   0   *   
FT6	*      033514 *      000000000001 777777777777 000000000001     *            *            0            0   0   *   
ET0	*      *      032737 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032737 *      032740 *            777777777777 *                *            *            0            0   0   *   

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

*032740  JUMPA	0,032741

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032740 032740 032740 324000032741 777777777777 000000000001     000000000001 000000032736 0            0   0   777 
IT1	*      *      032741 *            324000032741 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032741     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   SEQ 0343
ST1	*      *      032741 *            000000032741 707070707070     *            000000032741 0            0   0   *   

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

*032741  MOVEI	14,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032741 032741 032741 201600000000 777777777777 707070707070     707070707070 000000032741 0            0   0   777 
IT1	*      *      000000 *            201600000000 *                000000000001 *            0            0   0   *   
ET2	*      *      032742 *            000000000001 000000000000     *            *            0            0   0   *   
ST1	032742 032742 *      364600032744 777777777777 0                000000000000 *            0            0   0   *   

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

*032742  SOJA	14,032744

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032742 032742 032742 364600032744 777777777777 0                0            000000032741 0            0   0   777 
IT1	*      *      032744 *            364600032744 0                0            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032744     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      032744 *            000000032744 777777777777     777777777777 000000032744 0            0   0   *   

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

*032744  JUMPA	0,032745

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032744 032744 032744 324000032745 777777777777 777777777777     777777777777 000000032744 0            0   0   777 
IT1	*      *      032745 *            324000032745 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032745     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032745 *            000000032745 707070707070     *            000000032745 0            0   0   *   

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

*032745  CAME	14,033474

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032745 032745 032745 312600033474 777777777777 707070707070     707070707070 000000032745 0            0   0   777 
IT1	*      *      033474 *            312600033474 *                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033474     *            *            0            0   0   *   
FT6	*      033474 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      032746 *            000000000000 *                *            *            0            0   0   *   SEQ 0344
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	032746 *      032747 *            777777777777 *                *            *            0            0   0   *   

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

*032747  JUMPA	0,032750

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032747 032747 032747 324000032750 777777777777 777777777777     777777777777 000000032745 0            0   0   777 
IT1	*      *      032750 *            324000032750 *                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032750     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032750 *            000000032750 707070707070     *            000000032750 0            0   0   *   

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

*032750  MOVEI	14,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032750 032750 032750 201600000001 777777777777 707070707070     707070707070 000000032750 0            0   0   777 
IT1	*      *      000001 *            201600000001 *                777777777777 *            0            0   0   *   
ET2	*      *      032751 *            777777777777 000000000001     *            *            0            0   0   *   
ST1	032751 032751 *      364600032753 *            *                000000000001 *            0            0   0   *   

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

*032751  SOJA	14,032753

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032751 032751 032751 364600032753 777777777777 000000000001     000000000001 000000032750 0            0   0   777 
IT1	*      *      032753 *            364600032753 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032753     *            *            0            0   0   *   
ET2	*      *      0      *            0            *                *            *            0            0   0   *   
ST1	*      *      032753 *            000000032753 000000000000     000000000000 000000032753 0            0   0   *   

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

*032753  JUMPA	0,032754

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032753 032753 032753 324000032754 777777777777 0                0            000000032753 0            0   0   777 
IT1	*      *      032754 *            324000032754 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032754     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   SEQ 0345
ST1	*      *      032754 *            000000032754 707070707070     *            000000032754 0            0   0   *   

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

*032754  CAME	14,033513

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032754 032754 032754 312600033513 777777777777 707070707070     707070707070 000000032754 0            0   0   777 
IT1	*      *      033513 *            312600033513 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000033513     0            *            0            0   0   *   
FT6	*      033513 *      000000000000 777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      032755 0            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      0            0            0                0            *            0            0   0   *   
ST1	032755 *      032756 0            777777777777 0                0            *            0            0   0   *   

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

*032756  JUMPA	0,032757

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032756 032756 032756 324000032757 777777777777 0                0            000000032754 0            0   0   777 
IT1	*      *      032757 *            324000032757 0                707070707070 *            0            0   0   *   
ET0	*      *      707070 *            707070707070 000000032757     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *