Google
 

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




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

	PRODUCT CODE:	MAINDEC-10-DAKAB-B-D

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

	FUNCTION:	BASIC INSTRUCTIONS 2

	VERSION:	0.2

	DATE RELEASED:	JANUARY 1977

	MAINTAINED BY:	DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:		JOHN R. KIRCHOFF

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


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	SECOND IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS SOME FOLLOWING INSTRUCTIONS.
	MOVE, COMPARE, TEST, HALF WORD AND BOOLE.
	IT ALSO TESTS THE ADDERS USING ADD AND COMPARE INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER TAPE READER
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	CONSOLE FUNCTIONS WORKING PROPERLY
	PAPER TAPE OR DECTAPE READ-IN WORKING PROPERLY 
	PREVIOUS PROCESSOR DIAGNOSTICS
							MAINDEC-10-DAKAB.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-DAKAB.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-DAKAB
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAB

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #2

DATE RELEASED:		JANUARY 1977

VERSION:		0.2

UPDATE AUTHOR:		JOHN R. KIRCHOFF

CHANGES MADE:

	1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.

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

ORIGINAL VERSION:	0.1

ORIGINAL AUTHOR:	RICHARD MALISKA

ORIGINAL RELEASE:	16-MAR-72

************************************************************************
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1
DAKABT	MAC	19-JAN-77 13:38		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DAKAB
     2
     3
     4
     5			000002			DECVER==2
     6			000000			MCNVER==0
     7
     8						XLIST
     9						LIST
    10						LALL
    11						NAME	\MCNVER,\DECVER^
    12
    13					TITLE	DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2
    14					^
    15
    16					;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
    17					;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
    18
    19					;COPYRIGHT 1972,1977
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MARLBORO, MASS. 01752
    22
    23					;JOHN R. KIRCHOFF
    24					;DICK MALISKA
    25
    26	000137					LOC	137
    27	000137	000000	000002			MCNVER,,DECVER
    28
    29						NOSYM
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 2
DAKABT	MAC	19-JAN-77 13:38		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

    30					SUBTTL	DIAGNOSTIC PARAMETERS
    31					;PARAMETER DEFINITIONS
    32			000001		EXCASB==1
    33			000001		USRASB==1
    34
    35					;FLAG DEFINITIONS
    36			010000		USERF=10000		;USER MODE FLAG
    37
    38
    39					;MACROS
    40
    41					; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
    42					;	 TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION
    43
    44					DEFINE	STOP	(A)<
    45						HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
    46						JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
    47									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
    48									;IN THE SUBTEST) TO LOOP ON ERROR>
    49
    50					;SPECIAL FEATURE PARAMETERS
    51
    52			030742		SADR1=B00
    53			030742		SADR2=B00
    54			030742		SADR3=B00
    55			030742		SADR4=B00
    56		254000	030742		SADR5=JRST B00
    57		254000	030742		SADR6=JRST B00
    58		254000	030742		SADR7=JRST B00
    59		254000	030742		SADR8=JRST B00
    60		254000	030742		SADR9=JRST B00
    61		254000	030742		SADR10=JRST B00
    62		254000	030742		SADR11=JRST B00
    63
    64			000000		PAREA0=0
    65			000000		PAREA1=0
    66			000000		PAREA2=0
    67		444153	414200		PAREA3=SIXBIT/DAKAB/
    68		645560	000000		PAREA4=SIXBIT/TMP/
    69			000000		PAREA5=0
    70			000000		PAREA6=0
    71			001000		ITERAT==1000
    72			000001		PGMEND==1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0009

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

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

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

   182					;*TERMINAL OUTPUT UUO'S.
   183
   184		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   185		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   186		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   187		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   188		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   189		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   190		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   191		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   192		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   193		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   194		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   195		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   196		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   197		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   198		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   199		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   200		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   201		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   202		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   203		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   204		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   205		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   206		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   207		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   208		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   209		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   210		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   211		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   212		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   213		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   214		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   215		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   216		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   217		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   218		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   219		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   220		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   221		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   222		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   223		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   224		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   225		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
   226		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   227		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   228		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   229		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   230		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   231		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   232		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   233		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   234		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   235		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   236		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 4-1
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0013

   237		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   238		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   239
   240		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   241
   242					DEFINE	PMSG	(ARG),<
   243						PSIXM	[SIXBIT\ARG'_\]>
   244
   245					DEFINE	PMSGF	(ARG),<
   246						PSIXMF	[SIXBIT\ARG'_\]>
   247
   248					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   249					;*	CONSERVES CORE OVER ASCIZ
   250
   251					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   252
   253					;*CONSOLE SWITCH INPUT UUO.
   254					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   255					;* USER MODE.
   256
   257		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   258
   259					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   260					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   261
   262		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   263		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   264
   265					;*KL10 ONLY CACHE OPERATION UUO'S
   266
   267		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   268		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   269		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0014

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   968					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   969					;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE
   970					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   971					;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER
   972					;IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   973
   974	030766	200 00 0 00 035412 	A13300:	MOVE	[0]		;PRESET AC WITH ALL ZEROS
   975	030767	270 00 0 00 035414 		ADD	[123456,,0]	;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS
   976									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   977	030770	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   978						STOP^
   979	030771	254 04 0 00 030772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   980	030772	324 00 0 00 030773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   981									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   982									;IN THE SUBTEST) TO LOOP ON ERROR^
   983
   984					;**********
   985
   986					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   987					;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE
   988					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   989					;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER
   990					;IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   991
   992	030773	200 00 0 00 035412 	A13400:	MOVE	[0]		;PRESET AC WITH ALL ZEROS
   993	030774	270 00 0 00 035415 		ADD	[123456]	;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS
   994									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   995	030775	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   996						STOP^
   997	030776	254 04 0 00 030777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   998	030777	324 00 0 00 031000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   999									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1000									;IN THE SUBTEST) TO LOOP ON ERROR^
  1001
  1002					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0031

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

  1058
  1059					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1060					;IR ADDX [IR1], IR ADSUB [IR1]
  1061
  1062					;**********
  1063					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0033

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  2114
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 6
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0069

  2115					;THIS TEST VERIFIES THAT THE ADDITION OF A WORD OF 
  2116					;ALL ZEROS TO AN AC OF ALL ZEROS RESULTS IN
  2117					;C(AC)=0. FIRST THE AC IS CLEARED; THEN, A WORD
  2118					;OF ALL ZEROS IS ADDED TO THE AC. THE RESULT IN
  2119					;THE AC IS THEN CHECKED TO INSURE THAT C(AC)=0
  2120
  2121	031374	200 00 0 00 035412 	A11100:	MOVE	[0]		;PRESET AC TO ZERO
  2122	031375	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO ZERO SHOULD RESULT IN C(AC)=0
  2123	031376	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2124						STOP^
  2125	031377	254 04 0 00 031400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2126	031400	324 00 0 00 031401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2127									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2128									;IN THE SUBTEST) TO LOOP ON ERROR^
  2129
  2130					;FCE[F1], IR AD SUB [IR1]
  2131					;AD FM + EN [ADFP], AD FM + EN A [ADFP],
  2132					;F CYC ACT EN C[F1], IR ADSUB [IR1]
  2133
  2134					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0070

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  3980					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3981					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3982					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3983					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3984					;SO THAT A ONE WILL BE FLOATED THROUGH
  3985					;BITS 1 THRU 35 OF BOTH AC AND E
  3986			011243		SN=SN+1
  3987		200000	000000			ZZ=ZZ+ZZ
  3988						IFE	ZZ,<ZZ=1>
  3989	032353	200 00 0 00 035460 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3990	032354	270 00 0 00 035460 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3991	032355	444 00 0 00 035461 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3992	032356	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3993	032357	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3994						STOP^
  3995	032360	254 04 0 00 032361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3996	032361	324 00 0 00 032362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3997									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3998									;IN THE SUBTEST) TO LOOP ON ERROR^
  3999
  4000					;**********
  4001
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0105

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

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

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

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

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

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

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

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

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

  4497					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-10
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0115

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  5873	033256	324 00 0 00 033257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5874									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5875									;IN THE SUBTEST) TO LOOP ON ERROR^
  5876
  5877					;**********
  5878
  5879					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-14
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0142

  5880					;THIS TEST VERIFIES THAT IF A WORD OF ALL
  5881					;ONES IS SUBTRACTED FROM ITSELF, THE RESULT
  5882					;IN THE AC IS ZERO.
  5883
  5884	033257	200 00 0 00 035524 	A12000:	MOVE	[-1]		;PRESET AC TO ALL ONES
  5885	033260	274 00 0 00 035524 		SUB	[-1]		;*SUB OF -1 FROM ITSELF SHOULD RESULT IN C(AC)=0
  5886	033261	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5887						STOP^
  5888	033262	254 04 0 00 033263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5889	033263	324 00 0 00 033264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5890									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5891									;IN THE SUBTEST) TO LOOP ON ERROR^
  5892
  5893					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 14
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0143

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

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

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

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

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

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

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

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

  6213					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6214					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E)
  6215					;IN THIS CASE, C(AC)=0 AND C(E)=0;  HENCE CAMN SHOULD NOT SKIP.
  6216					;OTHERWISE, THE PROGRAM HALTS
  6217
  6218	033374	400 00 0 00 000000 	B1500:	SETZ			;PRELOAD AC WITH 0		
  6219	033375	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD NOT SKIP BECAUSE C(AC)=C(E).
  6220	033376	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAMN PASSES
  6221						STOP^
  6222	033377	254 04 0 00 033400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6223	033400	324 00 0 00 033401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6224									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6225									;IN THE SUBTEST) TO LOOP ON ERROR^
  6226
  6227					;*****     FAILURE ANALYSIS     *****
  6228					;C(AC0)		C(AC1)		FAILING SIGNAL
  6229
  6230					;				SW: FCE
  6231					;				FC: PC CHANGE
  6232
  6233					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0152

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

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

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

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

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

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

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

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

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

  6729						IFE	ZZ,<ZZ=1>
  6730	033526	200 00 0 00 035437 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6731	033527	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6732	033530	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6733						STOP^
  6734	033531	254 04 0 00 033532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6735	033532	324 00 0 00 033533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6736									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6737									;IN THE SUBTEST) TO LOOP ON ERROR^
  6738
  6739					;*****     FAILURE ANALYSIS     *****
  6740					;C(AC0)		C(AC1)		FAILING SIGNAL
  6741
  6742					;				ET0: COND P
  6743
  6744					;**********
  6745
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0162

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

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

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

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

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

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

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

  7131	033655	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7132						STOP^
  7133	033656	254 04 0 00 033657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7134	033657	324 00 0 00 033660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7135									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7136									;IN THE SUBTEST) TO LOOP ON ERROR^
  7137
  7138					;**********
  7139
  7140
  7141					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7142					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7143					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7144					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7145					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7146					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7147
  7148			001644		SN=SN+1
  7149			400000			ZZ=ZZ+ZZ
  7150						IFE	ZZ,<ZZ=1>
  7151	033660	200 00 0 00 035461 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7152	033661	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  7153	033662	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7154						STOP^
  7155	033663	254 04 0 00 033664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7156	033664	324 00 0 00 033665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7157									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7158									;IN THE SUBTEST) TO LOOP ON ERROR^
  7159
  7160					;**********
  7161
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0170

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

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

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

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

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

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

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

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

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

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

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

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

  7822									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7823									;IN THE SUBTEST) TO LOOP ON ERROR^
  7824
  7825					;**********
  7826
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0183

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

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

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

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

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

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

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

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

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

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

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

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

  8487									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8488									;IN THE SUBTEST) TO LOOP ON ERROR^
  8489
  8490					;**********
  8491
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0196

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 10259						STOP^
 10260	034777	254 04 0 00 035000 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10261	035000	324 00 0 00 035001 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10262									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10263									;IN THE SUBTEST) TO LOOP ON ERROR^
 10264
 10265					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 32
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0230

 10266					SUBTTL	TEST OF BOOLEAN INSTRUCTIONS
 10267
 10268					;**********
 10269
 10270					;THIS TEST VERIFIES THAT SETCA IGNORES THE ADDRESS FIELD OF THE INSTUCTION WORD.
 10271					;IN THIS CASE C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10272					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES.
 10273
 10274	035001	201 00 0 00 777777 	B3000:	MOVEI	-1		;PRELOAD AC TO 0,,-1	
 10275	035002	450 00 0 00 035524 		SETCA	[-1]		;*SETCA SHOULD PUT -1,,0 INTO THE AC
 10276	035003	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC)=-1,,0
 10277						STOP^
 10278	035004	254 04 0 00 035005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10279	035005	324 00 0 00 035006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10280									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10281									;IN THE SUBTEST) TO LOOP ON ERROR^
 10282
 10283					;**********
 10284
 10285					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10286					;RESULT IN THE AC.
 10287					;IN THIS CASE C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10288					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES
 10289
 10290	035006	201 00 0 00 777777 	B3100:	MOVEI	-1		;PRELOAD AC TO 0,,-1
 10291	035007	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT -1,,0 INTO THE AC
 10292	035010	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC) =-1,,0
 10293						STOP^
 10294	035011	254 04 0 00 035012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10295	035012	324 00 0 00 035013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10296									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10297									;IN THE SUBTEST) TO LOOP ON ERROR^
 10298
 10299					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 33
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0231

 10300					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10301					;RESULT IN THE AC,
 10302					;IN THIS CASE C(AC)=0,,0  HENCE, THE RESULT IN THE AC SHOULD BE,-1
 10303					;IF THE RESULT IN THE AC IS -1,,-1, THE TEST PASSES
 10304
 10305	035013	201 00 0 00 000000 	B3200:	MOVEI	0		;PRELOAD AC TO 0,,0
 10306	035014	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT -1,,-1 INTO THE AC
 10307	035015	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC) =-1,,-1
 10308						STOP^
 10309	035016	254 04 0 00 035017 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10310	035017	324 00 0 00 035020 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10311									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10312									;IN THE SUBTEST) TO LOOP ON ERROR^
 10313
 10314					;*****     FAILURE ANALYSIS     *****
 10315					;C(AC0)		C(AC1)		FAILING SIGNAL
 10316
 10317					;0				ET2: AR AD EN
 10318
 10319					;**********
 10320
 10321					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10322					;RESULT IN THE AC,
 10323					;IN THIS CASE C(AC)=-1,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE 0,,0
 10324					;IF THE RESULT IN THE AC IS ZERO, THE TEST PASSES
 10325
 10326	035020	200 00 0 00 035524 	B3300:	MOVE	[-1]		;PRELOAD AC TO -1,,-1	
 10327	035021	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT 0,,0 INTO THE AC
 10328	035022	312 00 0 00 035412 		CAME	[0]		;PASS TEST IF C(AC) IS ZERO
 10329						STOP^
 10330	035023	254 04 0 00 035024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10331	035024	324 00 0 00 035025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10332									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10333									;IN THE SUBTEST) TO LOOP ON ERROR^
 10334
 10335					;*****     FAILURE ANALYSIS     *****
 10336					;C(AC0)		C(AC1)		FAILING SIGNAL
 10337
 10338					;-1,,-1				FC: AD FM - EN
 10339
 10340					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 34
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0232

 10341					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10342					;RESULT IN THE AC.
 10343					;IN THIS CASE AC=E AND C(E)=C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10344					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES
 10345
 10346	035025	201 00 0 00 777777 	B3500:	MOVEI	-1		;PRELOAD AC TO 0,,-1
 10347	035026	460 00 0 00 000000 		SETCM			;*SETCM SHOULD PUT -1,,0 INTO THE AC
 10348	035027	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC) =-1,,0
 10349						STOP^
 10350	035030	254 04 0 00 035031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10351	035031	324 00 0 00 035032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10352									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10353									;IN THE SUBTEST) TO LOOP ON ERROR^
 10354
 10355					;*****     FAILURE ANALYSIS     *****
 10356					;C(AC0)		C(AC1)		FAILING SIGNAL
 10357
 10358					;-1,,-1				SW: FCE
 10359					;-1,,-1				FC: AD AR - EN
 10360					;0,,-1				ET2: AR AD EN
 10361
 10362					;**********
 10363
 10364					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10365					;RESULT IN THE AC.
 10366					;IN THIS CASE C(E)=-1,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE 0,,0
 10367					;IF THE RESULT IN THE AC IS ZERO,THE TEST PASSES
 10368
 10369	035032	460 00 0 00 035524 	B3600:	SETCM	[-1]		;*SETCM SHOULD PUT 0 INTO THE AC	
 10370	035033	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC0)=0		
 10371						STOP^
 10372	035034	254 04 0 00 035035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10373	035035	324 00 0 00 035036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10374									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10375									;IN THE SUBTEST) TO LOOP ON ERROR^
 10376
 10377					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 35
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0233

 10378					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10379					;RESULT IN THE AC.
 10380					;IN THIS CASE C(E)=0,,0;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1
 10381					;IF THE RESULT IN THE AC IS -1,,-1,THE TEST PASSES
 10382
 10383	035036	460 00 0 00 035412 	B3700:	SETCM	[0]		;*SETCM SHOULD PUT -1,,-1 INTO THE AC	
 10384	035037	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1	
 10385						STOP^
 10386	035040	254 04 0 00 035041 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10387	035041	324 00 0 00 035042 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10388									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10389									;IN THE SUBTEST) TO LOOP ON ERROR^
 10390
 10391					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 36
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0234

 10392					;THIS TEST VERIFIES THAT SETO SETS C(AC) TO -1,,-1.  SETO IGNORES
 10393					;THE ADDRESS FIELD OF THE INSTRUCTION WORD.
 10394					;FIRST C(AC) IS SET TO 0,,0; THEN SETO IS EXECUTED.
 10395					;THE AC IS THEN CHECKED FOR ALL ONES.  IF C(AC) IS ALL ONES,
 10396					;THE TEST PASSES
 10397
 10398	035042	201 00 0 00 000000 	B4300:	MOVEI	0		;PRELOAD AC WITH 0,,0
 10399	035043	474 00 0 00 000000 		SETO			;*SETO SHOULD LOAD THE AC WITH -1,,-1
 10400	035044	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10401						STOP^
 10402	035045	254 04 0 00 035046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10403	035046	324 00 0 00 035047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10404									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10405									;IN THE SUBTEST) TO LOOP ON ERROR^
 10406
 10407					;*****     FAILURE ANALYSIS     *****
 10408					;C(AC0)		C(AC1)		FAILING SIGNAL
 10409
 10410					;0				ET2: AR AD EN
 10411
 10412					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 37
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0235

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

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

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

 10553					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10554					;INCLUSIVE OR OF C(AC) WITH C(E).
 10555					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE
 10556					;RESULT IN THE AC SHOULD BE -1,,-1
 10557					;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES
 10558					;IF C(AC)=-1, THE TEST PASSES
 10559
 10560	035105	474 00 0 00 000000 	B5200:	SETO			;PRELOAD AC WITH -1,,-1
 10561	035106	434 00 0 00 035524 		IOR	[-1]		;*IOR SHOULD PUT -1,,-1 INTO AC
 10562	035107	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10563						STOP^
 10564	035110	254 04 0 00 035111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10565	035111	324 00 0 00 035112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10566									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10567									;IN THE SUBTEST) TO LOOP ON ERROR^
 10568
 10569					;**********
 10570
 10571					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10572					;INCLUSIVE OR OF C(AC) WITH C(E).
 10573					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE
 10574					;RESULT IN THE AC SHOULD BE -1,,-1
 10575					;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES
 10576					;IF C(AC)=-1,,-1, THE TEST PASSES
 10577
 10578	035112	474 00 0 00 000000 	B5300:	SETO			;PRELOAD AC WITH -1,,-1
 10579	035113	434 00 0 00 035412 		IOR	[0]		;*IOR SHOULD PUT -1,,-1 INTO AC
 10580	035114	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10581						STOP^
 10582	035115	254 04 0 00 035116 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10583	035116	324 00 0 00 035117 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10584									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10585									;IN THE SUBTEST) TO LOOP ON ERROR^
 10586
 10587					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 41
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0239

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

 10628					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10629					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10630					;IN THIS CASE C(AC)=-1,,-1, AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10631					;SHOULD BE ALL ONES.  THE AC IS CHECKED FOR -1,,-1.
 10632					;IF C(AC)=-1,,-1, THE TEST PASSES
 10633
 10634	035131	474 00 0 00 000000 	B5700:	SETO			;PRELOAD AC WITH 0		
 10635	035132	420 00 0 00 035412 		ANDCM	[0]		;*ANDCM SHOULD PLACE -1,,-1 IN THE AC
 10636	035133	312 00 0 00 035524 		CAME	[-1]		;IF C(AC)=-1,,-1, THE TEST PASSES
 10637						STOP^
 10638	035134	254 04 0 00 035135 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10639	035135	324 00 0 00 035136 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10640									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10641									;IN THE SUBTEST) TO LOOP ON ERROR^
 10642
 10643					;**********
 10644
 10645					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10646					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10647					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10648					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.
 10649					;IF C(AC)=0, THE TEST PASSES
 10650
 10651	035136	201 00 0 00 000000 	B6000:	MOVEI	0		;PRELOAD AC WITH 0	
 10652	035137	420 00 0 00 000000 		ANDCM			;*ANDCM SHOULD PLACE 0 IN THE AC
 10653	035140	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10654						STOP^
 10655	035141	254 04 0 00 035142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10656	035142	324 00 0 00 035143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10657									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10658									;IN THE SUBTEST) TO LOOP ON ERROR^
 10659
 10660					;*****     FAILURE ANALYSIS     *****
 10661					;C(AC0)		C(AC1)		FAILING SIGNAL
 10662
 10663					;-1,,-1				FC: AD FM + EN
 10664
 10665					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 43
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0241

 10666					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10667					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10668					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC
 10669					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.
 10670					;IF C(AC)=0, THE TEST PASSES
 10671
 10672	035143	400 00 0 00 000000 	B6100:	SETZ			;PRELOAD AC WITH 0	
 10673	035144	420 00 0 00 035524 		ANDCM	[-1]		;*ANDCM SHOULD PLACE 0 IN THE AC	
 10674	035145	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10675						STOP^
 10676	035146	254 04 0 00 035147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10677	035147	324 00 0 00 035150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10678									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10679									;IN THE SUBTEST) TO LOOP ON ERROR^
 10680
 10681					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 44
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0242

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

 10727					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10728					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10729					;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=0. HENCE, THE RESULT
 10730					;IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC=0,
 10731					;THE TEST PASSES.
 10732
 10733	035162	400 00 0 00 000000 	B6400:	SETZ			;CLEAR THE AC AND E		
 10734	035163	410 00 0 00 000000 		ANDCA			;*ANDCA SHOULD PLACE 0 IN THE AC
 10735	035164	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10736						STOP^
 10737	035165	254 04 0 00 035166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10738	035166	324 00 0 00 035167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10739									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10740									;IN THE SUBTEST) TO LOOP ON ERROR^
 10741
 10742					;**********
 10743
 10744					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10745					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10746					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10747					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR ALL ONES.
 10748					;IF C(AC)=-1,,-1, THE TEST PASSES.
 10749
 10750	035167	400 00 0 00 000000 	B6500:	SETZ			;CLEAR THE AC		
 10751	035170	410 00 0 00 035524 		ANDCA	[-1]		;*ANDCA SHOULD PLACE ALL ONES IN THE AC
 10752	035171	312 00 0 00 035524 		CAME	[-1]		;IF C(AC)=ALL ONES, THE TEST PASSES.
 10753						STOP^
 10754	035172	254 04 0 00 035173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10755	035173	324 00 0 00 035174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10756									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10757									;IN THE SUBTEST) TO LOOP ON ERROR^
 10758
 10759					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 46
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0244

 10760					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10761					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10762					;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT
 10763					;IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0,
 10764					;THE TEST PASSES.
 10765
 10766	035174	474 00 0 00 000000 	B6600:	SETO			;PRESET AC TO ALL ONES		
 10767	035175	410 00 0 00 000000 		ANDCA			;*ANDCA SHOULD PLACE 0 IN THE AC
 10768	035176	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10769						STOP^
 10770	035177	254 04 0 00 035200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10771	035200	324 00 0 00 035201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10772									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10773									;IN THE SUBTEST) TO LOOP ON ERROR^
 10774
 10775					;**********
 10776
 10777					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10778					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10779					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10780					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0,
 10781					;THE TEST PASSES.
 10782
 10783	035201	474 00 0 00 000000 	B6700:	SETO			;PRESET AC TO ALL ONES		
 10784	035202	410 00 0 00 035412 		ANDCA	[0]		;*ANDCA SHOULD PLACE 0 IN THE AC
 10785	035203	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10786						STOP^
 10787	035204	254 04 0 00 035205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10788	035205	324 00 0 00 035206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10789									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10790									;IN THE SUBTEST) TO LOOP ON ERROR^
 10791
 10792					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 47
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0245

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

 10838
 10839					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10840					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10841					;IN THIS CASE AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10842					;SHOULD BE ALL ONES.  THE AC IS CHECKED FOR ALL ONES.  IF C(AC)=-1,,-1,
 10843					;THE TEST PASSES.
 10844
 10845	035220	400 00 0 00 000000 	B7200:	SETZ			;PRELOAD AC,E WITH ZEROES
 10846	035221	440 00 0 00 000000 		ANDCB			;*ANDCB SHOULD PLACE ALL ONES IN THE AC
 10847	035222	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC) IS ALL ONES
 10848						STOP^
 10849	035223	254 04 0 00 035224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10850	035224	324 00 0 00 035225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10851									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10852									;IN THE SUBTEST) TO LOOP ON ERROR^
 10853
 10854					;**********
 10855
 10856					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10857					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10858					;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1.  HENCE THE RESULT IN THE AC
 10859					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10860
 10861	035225	474 00 0 00 000000 	B7300:	SETO			;PRELOAD AC,E WITH ONES
 10862	035226	440 00 0 00 000000 		ANDCB			;*ANDCB SHOULD PLACE ALL ZEROS IN THE AC
 10863	035227	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
 10864						STOP^
 10865	035230	254 04 0 00 035231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10866	035231	324 00 0 00 035232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10867									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10868									;IN THE SUBTEST) TO LOOP ON ERROR^
 10869
 10870					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 49
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0247

 10871					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10872					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10873					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10874					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10875
 10876	035232	400 00 0 00 000000 	B7400:	SETZ			;PRELOAD AC WITH 0
 10877	035233	440 00 0 00 035524 		ANDCB	[-1]		;*ANDCB SHOULD PLACE 0 IN THE AC
 10878	035234	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 10879						STOP^
 10880	035235	254 04 0 00 035236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10881	035236	324 00 0 00 035237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10882									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10883									;IN THE SUBTEST) TO LOOP ON ERROR^
 10884
 10885					;**********
 10886
 10887					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10888					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10889					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10890					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10891
 10892	035237	474 00 0 00 000000 	B7500:	SETO			;PRELOAD AC WITH -1,,-1
 10893	035240	440 00 0 00 035412 		ANDCB	[0]		;*ANDCB SHOULD PLACE 0 IN THE AC
 10894	035241	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 10895						STOP^
 10896	035242	254 04 0 00 035243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10897	035243	324 00 0 00 035244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10898									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10899									;IN THE SUBTEST) TO LOOP ON ERROR^
 10900
 10901					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 50
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0248

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

 10950					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10951					;THE COMPLEMENT OF C(AC) AND C(E).
 10952					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10953					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10954
 10955	035256	400 00 0 00 000000 	B10100:	SETZ			;PRELOAD AC,E WITH 0
 10956	035257	454 00 0 00 000000 		ORCA			;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10957	035260	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10958						STOP^
 10959	035261	254 04 0 00 035262 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10960	035262	324 00 0 00 035263 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10961									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10962									;IN THE SUBTEST) TO LOOP ON ERROR^
 10963
 10964					;**********
 10965
 10966					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OF FUNCTION OF
 10967					;THE COMPLEMENT OF C(AC) AND C(E).
 10968					;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10969					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10970
 10971	035263	474 00 0 00 000000 	B10200:	SETO			;PRELOAD AC,E WITH 0
 10972	035264	454 00 0 00 000000 		ORCA			;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10973	035265	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10974						STOP^
 10975	035266	254 04 0 00 035267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10976	035267	324 00 0 00 035270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10977									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10978									;IN THE SUBTEST) TO LOOP ON ERROR^
 10979
 10980					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 52
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0250

 10981					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10982					;THE COMPLEMENT OF C(AC) AND C(E).
 10983					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESUTL IN THE AC
 10984					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10985
 10986	035270	400 00 0 00 000000 	B10300:	SETZ			;PRELOAD AC WITH 0
 10987	035271	454 00 0 00 035524 		ORCA	[-1]		;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10988	035272	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10989						STOP^
 10990	035273	254 04 0 00 035274 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10991	035274	324 00 0 00 035275 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10992									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10993									;IN THE SUBTEST) TO LOOP ON ERROR^
 10994
 10995					;**********
 10996
 10997					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10998					;THE COMPLEMENT OF C(AC) AND C(E).
 10999					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11000					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 11001
 11002	035275	474 00 0 00 000000 	B10400:	SETO			;PRELOAD AC WITH -1,,-1
 11003	035276	454 00 0 00 035412 		ORCA	[0]		;*ORCA SHOULD PLACE 0 IN THE AC
 11004	035277	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 11005						STOP^
 11006	035300	254 04 0 00 035301 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11007	035301	324 00 0 00 035302 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11008									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11009									;IN THE SUBTEST) TO LOOP ON ERROR^
 11010
 11011					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 53
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0251

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

 11056					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11057					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11058					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11059					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)-1,,-1, THE TEST PASSES
 11060
 11061	035314	400 00 0 00 000000 	B11000:	SETZ			;PRELOAD AC WITH 0		
 11062	035315	470 00 0 00 035412 		ORCB	[0]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11063	035316	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11064						STOP^
 11065	035317	254 04 0 00 035320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11066	035320	324 00 0 00 035321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11067									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11068									;IN THE SUBTEST) TO LOOP ON ERROR^
 11069
 11070					;**********
 11071
 11072					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11073					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11074					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 11075					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES
 11076
 11077	035321	474 00 0 00 000000 	B11100:	SETO			;PRELOAD AC WITH -1,,-1
 11078	035322	470 00 0 00 035524 		ORCB	[-1]		;*ORCB SHOULD PLACE 0 IN THE AC
 11079	035323	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 11080						STOP^
 11081	035324	254 04 0 00 035325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11082	035325	324 00 0 00 035326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11083									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11084									;IN THE SUBTEST) TO LOOP ON ERROR^
 11085
 11086					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 55
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0253

 11087					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11088					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E)
 11089					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 11090					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES
 11091
 11092	035326	400 00 0 00 000000 	B11200:	SETZ			;PRELOAD AC WITH 0		
 11093	035327	470 00 0 00 035524 		ORCB	[-1]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11094	035330	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11095						STOP^
 11096	035331	254 04 0 00 035332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11097	035332	324 00 0 00 035333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11098									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11099									;IN THE SUBTEST) TO LOOP ON ERROR^
 11100
 11101					;**********
 11102
 11103					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11104					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11105					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11106					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES
 11107
 11108	035333	474 00 0 00 000000 	B11300:	SETO			;PRELOAD AC WITH -1,,-1		
 11109	035334	470 00 0 00 035412 		ORCB	[0]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11110	035335	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11111						STOP^
 11112	035336	254 04 0 00 035337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11113	035337	324 00 0 00 035340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11114									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11115									;IN THE SUBTEST) TO LOOP ON ERROR^
 11116
 11117					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 56
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVN INSTRUCTION                                                           SEQ 0254

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

 11166					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC.
 11167					;IN THIS CASE C(E) =707070,,707070.  HENCE, THE RESULT IN THE AC SHOULD BE
 11168					;070707,,070710.  THE AC IS CHECKED FOR 070707,,070710.  IF C(AC)=
 11169					;070707,,070710, THE TEST PASSES
 11170
 11171	035352	400 00 0 00 000000 	B11700:	SETZ			;PRELOAD AC WITH 0		
 11172	035353	210 00 0 00 035650 		MOVN	[707070707070]	;*MOVN SHOULD PLACE 070707,,070710 INTO THE AC
 11173	035354	312 00 0 00 035654 		CAME	[070707070710]	;PASS IF C(AC) 070707,,070710
 11174						STOP^
 11175	035355	254 04 0 00 035356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11176	035356	324 00 0 00 035357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11177									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11178									;IN THE SUBTEST) TO LOOP ON ERROR^
 11179
 11180					;**********
 11181
 11182					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC
 11183					;IN THIS CASE C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0,,1.
 11184					;THE AC IS CHECKED FOR 0,,1, THE NEGATIVE OF -1,,-1.  IF C(AC)=1, THIS TEST PASSES
 11185
 11186	035357	210 00 0 00 035524 	B12100:	MOVN	[-1]		;*MOVN SHOULD PLACE 0,,1 INTO THE AC	
 11187	035360	302 00 0 00 000001 		CAIE	1		;PASS OF C(AC)=0,,1
 11188						STOP^
 11189	035361	254 04 0 00 035362 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11190	035362	324 00 0 00 035363 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11191									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11192									;IN THE SUBTEST) TO LOOP ON ERROR^
 11193
 11194					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 58
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVM INSTRUCTION                                                           SEQ 0256

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

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

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

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

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

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

NO ERRORS DETECTED

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

11K CORE USED

A10400	   890#
A10500	   913#                                                                                                            SEQ 0262
A10600	   934#
A10700	   956#
A11000	  1008#
A11100	  2121#
A11200	  3105#
A11300	  4006#
A11400	  4502#
A11500	  5182#
A11600	  5201#
A11700	  5216#
A12000	  5884#
A12100	  5898#
A12200	  5921#
A12300	  5939#
A12400	  5957#
A13200	  2140#
A13300	   974#
A13400	   992#
A13500	  4999#
A13600	  5016#
A13700	  5033#
A14000	  5049#
A14100	  5066#
A14200	  5083#
A14300	  5099#
A14400	  5116#
A14500	  5133#
A14600	  5149#
A14700	  5166#
ABORT	    83#
AC0	   678#
ALTMGO	   437#
ANXM	   351#
APR	   775	   776	   777
AROV	   351#
AROVU	   351#
AST	   552#
ATSIN	   553#
B00	    52	    53	    54	    55	    56	    57	    58	    59	    60	    61	    62	   854	   881#
B100	  5980#
B1000	  6120#
B10000	 10935#
B10100	 10955#
B10200	 10971#
B10300	 10986#
B10400	 11002#
B10500	 11018#
B10700	 11046#
B1100	  6136#
B11000	 11061#
B11100	 11077#
B11200	 11092#
B11300	 11108#                                                                                                            SEQ 0263
B11500	 11126#
B11600	 11148#
B11700	 11171#
B1200	  6152#
B12100	 11186#
B12200	 11203#
B12300	 11223#
B12400	 11247#
B12500	 11263#
B1300	  6173#
B1400	  6194#
B1500	  6218#
B1600	  6237#
B1700	  7165#
B200	  6001#
B2000	  7830#
B2100	  8499#
B2200	  8878#
B2300	  9258#
B2400	  9733#
B2500	 10213#
B2600	 10237#
B2700	 10257#
B300	  6026#
B3000	 10274#
B3100	 10290#
B3200	 10305#
B3300	 10326#
B3500	 10346#
B3600	 10369#
B3700	 10383#
B400	  6047#
B4300	 10398#
B4400	 10420#
B4500	 10438#
B4600	 10462#
B4700	 10485#
B500	  6063#
B5000	 10506#
B5100	 10532#
B5200	 10560#
B5300	 10578#
B5500	 10594#
B5600	 10618#
B5700	 10634#
B600	  6083#
B6000	 10651#
B6100	 10672#
B6200	 10688#
B6300	 10711#
B6400	 10733#
B6500	 10750#
B6600	 10766#                                                                                                            SEQ 0264
B6700	 10783#
B700	  6099#
B7000	 10799#
B7100	 10823#
B7200	 10845#
B7300	 10861#
B7400	 10876#
B7500	 10892#
B7600	 10908#
BEGEND	   433#	 11273
BEGIN	   297	   298	   364#	   721	   843	 11458
BEGIN1	   380#	   434
BELL	   556#
BIS	   351#
CCA	   351#
CHAIN	   103#
CHNOFF	   351#
CHNON	   351#
CLK	   351#
CLKCLR	   351#
CLKDIS	   351#
CLKENB	   351#
CLKU	   351#
CLOCKF	   419#
CNTLC	   436#
COMMA	   545#
CONSW	   420#
CPOPJ	   440#
CPOPJ1	   438#
CRLF	   232	   233	   540#
CRLF2	   236	   237	   542#
CRY0	   351#
CRY1	   351#
CSHFLG	   599#
CSHMEM	   600#
CYCL60	   593#
DCK	   351#
DDT	   680#
DDTLNK	   117#	   378
DDTSRT	   378#
DEBUG	 11449
DECVER	     5#	    11	    27	   399
DF22F	   504#
DIAGMN	   367#
DIAGNO	   679#
DIAMON	   681#
DING	    89#
DOLLAR	   559#
DONG11	   682#	   822	   838
DSKUPD	   404
DTE	   686#	   822	   824	   838	   840
DTE0	   687#
DTE1	   688#                                                                                                            SEQ 0265
DTE2	   689#
DTE3	   690#
END	 11457#
ENDFIX	   673#
ENDSLD	 11447#
ERMORE	   453#
ERRPC	   424#
ERRTLS	   425#
ERSTOP	    92#
EXCASB	    32#	   402
EXIOT	   351#
FOV	   351#
FOVU	   351#
FRDLNK	   115#
FSELNK	   114#
FXU	   351#
HYPEN	   550#
INHCSH	   100#
INHPAG	    97#
INXM	   351#
IOCLR	   351#
ITERAT	    71#	   397
ITRCH1	   457#
ITRCNT	   397#	   767	   796	   800	   808	   809	   813
JOB41	   351#
JOBAPR	   351#
JOBCNI	   351#
JOBDDT	   351#
JOBFF	   351#
JOBOPC	   351#
JOBREL	   351#
JOBREN	   351#
JOBSA	   351#
JOBSYM	   351#
JOBTPC	   351#
JOBUSY	   351#
JOBUUO	   351#
JOBVER	   351#
KA10	   351
KAHZ50	   105#
KAIFLG	   414#
KI10	   351
KL10	   351
KLFLG	   415#	   769	   787	   806
KLOLD	   312
KLTYP	   631#	   768	   779	   821	   823	   837	   839
LDLNK	   116#	   367	   369
LFP	   554#
LOOPER	    91#
LUUO	   351#
LUUO1	   484	   485
LUUO10	   484	   489
LUUO11	   484	   489                                                                                                     SEQ 0266
LUUO12	   484	   490
LUUO13	   484	   490
LUUO14	   484	   491
LUUO15	   484	   491
LUUO16	   484	   492
LUUO17	   484	   492
LUUO2	   484	   486
LUUO20	   484	   493
LUUO21	   484	   493
LUUO22	   484	   494
LUUO23	   484	   494
LUUO24	   484	   495
LUUO25	   484	   495
LUUO26	   484	   496
LUUO27	   484	   496
LUUO3	   484	   486
LUUO30	   484	   497
LUUO31	   484	   497
LUUO32	   484	   498
LUUO33	   484	   498
LUUO4	   484	   487
LUUO5	   484	   487
LUUO6	   484	   488
LUUO7	   484	   488
LUUOI	   351#
MAPNEW	   505#
MARGIN	   427#
MCNVER	     6#	    11	    27	   399
MEMLOW	   507#
MEMMAP	   405
MEMSIZ	   508#
MEMTOT	   506#
MINUS	   549#
MODDVC	    99#
MODDVL	   297	   297#	   400
MODDVU	   298	   298#	   401
MODLNK	   118#	   364
MONCTL	   417#	   816	   855
MONFLG	   416#	   761	   851
MONTEN	   418#	   766	   802	   831
MPVU	   351#
NB5300	 10552#
NOPNT	    87#
NXMU	   351#
OPRSEL	   101#
OPTIME	   519#
P	   144	   145	   146	   147	   351#	   439
PAG	   351#
PALERS	    93#
PARCLR	   351#
PARDIS	   351#
PAREA0	    64#
PAREA1	    65#	   395                                                                                                     SEQ 0267
PAREA2	    66#	   396
PAREA3	    67#	   393
PAREA4	    68#	   394
PAREA5	    69#	   406
PAREA6	    70#	   407
PAREA7	   406#
PAREA8	   407#
PARENB	   351#
PARU	   351#
PASCNT	   421#	   795
PDISF	   516#
PDLOVU	   351#
PERIOD	   546#
PFSTRT	   373#
PGMEND	    72#	 11456
PGMNAM	   398	   856	   859#
PI	   808
PICHN1	   351#
PICHN2	   351#
PICHN3	   351#
PICHN4	   351#
PICHN5	   351#
PICHN6	   351#
PICHN7	   351#
PICHNA	   351#
PICLR	   351#
PIOFF	   351#
PION	   351#
PLIST	   585#	   585
PLISTE	   585	   587#	   671
PLISTS	   586#
PLUS	   551#
PNTENB	   515#
PNTEXT	   394#
PNTFLG	   514#
PNTINH	   517#
PNTLPT	    88#
PNTNAM	   393#
PNTSPC	   518#
PVPAGI	   612#
PWFCLR	   351#
QUEST	   557#
RADIX	   560#
RADLSC	   562#
RADLSP	   561#
RANDBS	   395#
REENTR	   375#
RELIAB	    95#
REPT	   351#
REPT1	   351#
REPTU	   473#
REQSET	   351#
RESRT1	   450#                                                                                                            SEQ 0268
RESRT2	   451#
RETURN	   382#	   804	   811	   832
RSTART	    84#
RTP	   555#
RUNFLG	   422#
SADR1	    52#	   371
SADR10	    61#	   387
SADR11	    62#	   388
SADR2	    53#	   373
SADR3	    54#	   375
SADR4	    55#
SADR5	    56#	   436
SADR6	    57#	   437
SADR7	    58#	   384
SADR8	    59#	   385
SADR9	    60#	   386
SBINIT	   157	   381#
SCOPE	   474#
SFSTRT	   371#
SLASH	   558#
SN	  1005#	  1045	  1045#	  1075	  1075#	  1105	  1105#	  1135	  1135#	  1165	  1165#	  1195	  1195#	  1225
	  1225#	  1255	  1255#	  1285	  1285#	  1315	  1315#	  1345	  1345#	  1375	  1375#	  1405	  1405#	  1435
	  1435#	  1465	  1465#	  1495	  1495#	  1525	  1525#	  1555	  1555#	  1585	  1585#	  1615	  1615#	  1645
	  1645#	  1675	  1675#	  1705	  1705#	  1735	  1735#	  1765	  1765#	  1795	  1795#	  1825	  1825#	  1855
	  1855#	  1885	  1885#	  1915	  1915#	  1945	  1945#	  1975	  1975#	  2005	  2005#	  2035	  2035#	  2065
	  2065#	  2095	  2095#	  2137#	  2173	  2173#	  2199	  2199#	  2225	  2225#	  2251	  2251#	  2277	  2277#
	  2303	  2303#	  2329	  2329#	  2355	  2355#	  2381	  2381#	  2407	  2407#	  2433	  2433#	  2459	  2459#
	  2485	  2485#	  2511	  2511#	  2537	  2537#	  2563	  2563#	  2589	  2589#	  2615	  2615#	  2641	  2641#
	  2667	  2667#	  2693	  2693#	  2719	  2719#	  2745	  2745#	  2771	  2771#	  2797	  2797#	  2823	  2823#
	  2849	  2849#	  2875	  2875#	  2901	  2901#	  2927	  2927#	  2953	  2953#	  2979	  2979#	  3005	  3005#
	  3031	  3031#	  3057	  3057#	  3083	  3083#	  3102#	  3136	  3136#	  3161	  3161#	  3186	  3186#	  3211
	  3211#	  3236	  3236#	  3261	  3261#	  3286	  3286#	  3311	  3311#	  3336	  3336#	  3361	  3361#	  3386
	  3386#	  3411	  3411#	  3436	  3436#	  3461	  3461#	  3486	  3486#	  3511	  3511#	  3536	  3536#	  3561
	  3561#	  3586	  3586#	  3611	  3611#	  3636	  3636#	  3661	  3661#	  3686	  3686#	  3711	  3711#	  3736
	  3736#	  3761	  3761#	  3786	  3786#	  3811	  3811#	  3836	  3836#	  3861	  3861#	  3886	  3886#	  3911
	  3911#	  3936	  3936#	  3961	  3961#	  3986	  3986#	  4002#	  4038	  4038#	  4064	  4064#	  4090	  4090#
	  4116	  4116#	  4142	  4142#	  4168	  4168#	  4194	  4194#	  4220	  4220#	  4246	  4246#	  4272	  4272#
	  4298	  4298#	  4324	  4324#	  4350	  4350#	  4376	  4376#	  4402	  4402#	  4428	  4428#	  4454	  4454#
	  4480	  4480#	  4498#	  4534	  4534#	  4560	  4560#	  4586	  4586#	  4612	  4612#	  4638	  4638#	  4664
	  4664#	  4690	  4690#	  4716	  4716#	  4742	  4742#	  4768	  4768#	  4794	  4794#	  4820	  4820#	  4846
	  4846#	  4872	  4872#	  4898	  4898#	  4924	  4924#	  4950	  4950#	  4976	  4976#	  5213#	  5235	  5235#
	  5253	  5253#	  5271	  5271#	  5289	  5289#	  5307	  5307#	  5325	  5325#	  5343	  5343#	  5361	  5361#
	  5379	  5379#	  5397	  5397#	  5415	  5415#	  5433	  5433#	  5451	  5451#	  5469	  5469#	  5487	  5487#
	  5505	  5505#	  5523	  5523#	  5541	  5541#	  5559	  5559#	  5577	  5577#	  5595	  5595#	  5613	  5613#
	  5631	  5631#	  5649	  5649#	  5667	  5667#	  5685	  5685#	  5703	  5703#	  5721	  5721#	  5739	  5739#
	  5757	  5757#	  5775	  5775#	  5793	  5793#	  5811	  5811#	  5829	  5829#	  5847	  5847#	  5865	  5865#
	  6234#	  6268	  6268#	  6295	  6295#	  6322	  6322#	  6349	  6349#	  6376	  6376#	  6403	  6403#	  6430
	  6430#	  6457	  6457#	  6484	  6484#	  6511	  6511#	  6538	  6538#	  6565	  6565#	  6592	  6592#	  6619
	  6619#	  6646	  6646#	  6673	  6673#	  6700	  6700#	  6727	  6727#	  6774	  6774#	  6796	  6796#	  6818
	  6818#	  6840	  6840#	  6862	  6862#	  6884	  6884#	  6906	  6906#	  6928	  6928#	  6950	  6950#	  6972
	  6972#	  6994	  6994#	  7016	  7016#	  7038	  7038#	  7060	  7060#	  7082	  7082#	  7104	  7104#	  7126
	  7126#	  7148	  7148#	  7162#	  7184	  7184#	  7202	  7202#	  7220	  7220#	  7238	  7238#	  7256	  7256#
	  7274	  7274#	  7292	  7292#	  7310	  7310#	  7328	  7328#	  7346	  7346#	  7364	  7364#	  7382	  7382#    SEQ 0269
	  7400	  7400#	  7418	  7418#	  7436	  7436#	  7454	  7454#	  7472	  7472#	  7490	  7490#	  7508	  7508#
	  7526	  7526#	  7544	  7544#	  7562	  7562#	  7580	  7580#	  7598	  7598#	  7616	  7616#	  7634	  7634#
	  7652	  7652#	  7670	  7670#	  7688	  7688#	  7706	  7706#	  7724	  7724#	  7742	  7742#	  7760	  7760#
	  7778	  7778#	  7796	  7796#	  7814	  7814#	  7827#	  7849	  7849#	  7867	  7867#	  7885	  7885#	  7903
	  7903#	  7921	  7921#	  7939	  7939#	  7957	  7957#	  7975	  7975#	  7993	  7993#	  8011	  8011#	  8029
	  8029#	  8047	  8047#	  8065	  8065#	  8083	  8083#	  8101	  8101#	  8119	  8119#	  8137	  8137#	  8155
	  8155#	  8173	  8173#	  8191	  8191#	  8209	  8209#	  8227	  8227#	  8245	  8245#	  8263	  8263#	  8281
	  8281#	  8299	  8299#	  8317	  8317#	  8335	  8335#	  8353	  8353#	  8371	  8371#	  8389	  8389#	  8407
	  8407#	  8425	  8425#	  8443	  8443#	  8461	  8461#	  8479	  8479#	  8496#	  8521	  8521#	  8541	  8541#
	  8561	  8561#	  8581	  8581#	  8601	  8601#	  8621	  8621#	  8641	  8641#	  8661	  8661#	  8681	  8681#
	  8701	  8701#	  8721	  8721#	  8741	  8741#	  8761	  8761#	  8781	  8781#	  8801	  8801#	  8821	  8821#
	  8841	  8841#	  8861	  8861#	  8875#	  8900	  8900#	  8920	  8920#	  8940	  8940#	  8960	  8960#	  8980
	  8980#	  9000	  9000#	  9020	  9020#	  9040	  9040#	  9060	  9060#	  9080	  9080#	  9100	  9100#	  9120
	  9120#	  9140	  9140#	  9160	  9160#	  9180	  9180#	  9200	  9200#	  9220	  9220#	  9240	  9240#	  9254#
	  9288	  9288#	  9313	  9313#	  9338	  9338#	  9363	  9363#	  9388	  9388#	  9413	  9413#	  9438	  9438#
	  9463	  9463#	  9488	  9488#	  9513	  9513#	  9538	  9538#	  9563	  9563#	  9588	  9588#	  9613	  9613#
	  9638	  9638#	  9663	  9663#	  9688	  9688#	  9713	  9713#	  9729#	  9763	  9763#	  9788	  9788#	  9813
	  9813#	  9838	  9838#	  9863	  9863#	  9888	  9888#	  9913	  9913#	  9938	  9938#	  9963	  9963#	  9988
	  9988#	 10013	 10013#	 10038	 10038#	 10063	 10063#	 10088	 10088#	 10113	 10113#	 10138	 10138#	 10163
	 10163#	 10188	 10188#
SPACE	   547#
SRTDDT	   377#
START	   365	   764	   773	   788	   792	   847#
START1	   384#
START2	   385#
START3	   386#
START4	   387#
START5	   388#
STARTA	   380	   790	   801	   810	   817	   827	   857	   879#
SUBLNK	   119#	   381
SWTEXR	   396#
SYSEXR	   369#
TAB	   548#
TESTPC	   423#
TICKS	   426#
TOTALS	    85#
TTNBRF	   606#
TTYFIL	   522#
TTYSPD	   523#
TXTINH	    96#
USER	   413#	   757	   760	   762	   763	   797	   847#	   847	   850	   852	   853
USERF	    36#	   351#	   759	   849
USRASB	    33#	   403
USRCRF	   532#
USRLFF	   531#
UUODIS	   485#
UUOEXT	   441#
UUORTN	   442#
UUOSKP	   439#
YY	  4004#	  4039	  4039#	  4040	  4041	  4041#	  4044	  4065	  4065#	  4066	  4067	  4070	  4091	  4091#
	  4092	  4093	  4096	  4117	  4117#	  4118	  4119	  4122	  4143	  4143#	  4144	  4145	  4148	  4169
	  4169#	  4170	  4171	  4174	  4195	  4195#	  4196	  4197	  4200	  4221	  4221#	  4222	  4223	  4226
	  4247	  4247#	  4248	  4249	  4252	  4273	  4273#	  4274	  4275	  4278	  4299	  4299#	  4300	  4301     SEQ 0270
	  4304	  4325	  4325#	  4326	  4327	  4330	  4351	  4351#	  4352	  4353	  4356	  4377	  4377#	  4378
	  4379	  4382	  4403	  4403#	  4404	  4405	  4408	  4429	  4429#	  4430	  4431	  4434	  4455	  4455#
	  4456	  4457	  4460	  4481	  4481#	  4482	  4483	  4486	  4500#	  4535	  4535#	  4536	  4537	  4537#
	  4541	  4561	  4561#	  4562	  4563	  4567	  4587	  4587#	  4588	  4589	  4593	  4613	  4613#	  4614
	  4615	  4619	  4639	  4639#	  4640	  4641	  4645	  4665	  4665#	  4666	  4667	  4671	  4691	  4691#
	  4692	  4693	  4697	  4717	  4717#	  4718	  4719	  4723	  4743	  4743#	  4744	  4745	  4749	  4769
	  4769#	  4770	  4771	  4775	  4795	  4795#	  4796	  4797	  4801	  4821	  4821#	  4822	  4823	  4827
	  4847	  4847#	  4848	  4849	  4853	  4873	  4873#	  4874	  4875	  4879	  4899	  4899#	  4900	  4901
	  4905	  4925	  4925#	  4926	  4927	  4931	  4951	  4951#	  4952	  4953	  4957	  4977	  4977#	  4978
	  4979	  4983	  9256#	  9290	  9290#	  9292	  9292#	  9293	  9295	  9315	  9315#	  9317	  9318	  9320
	  9340	  9340#	  9342	  9343	  9345	  9365	  9365#	  9367	  9368	  9370	  9390	  9390#	  9392	  9393
	  9395	  9415	  9415#	  9417	  9418	  9420	  9440	  9440#	  9442	  9443	  9445	  9465	  9465#	  9467
	  9468	  9470	  9490	  9490#	  9492	  9493	  9495	  9515	  9515#	  9517	  9518	  9520	  9540	  9540#
	  9542	  9543	  9545	  9565	  9565#	  9567	  9568	  9570	  9590	  9590#	  9592	  9593	  9595	  9615
	  9615#	  9617	  9618	  9620	  9640	  9640#	  9642	  9643	  9645	  9665	  9665#	  9667	  9668	  9670
	  9690	  9690#	  9692	  9693	  9695	  9715	  9715#	  9717	  9718	  9720	  9731#	  9765	  9765#	  9767
	  9767#	  9768	  9770	  9790	  9790#	  9792	  9793	  9795	  9815	  9815#	  9817	  9818	  9820	  9840
	  9840#	  9842	  9843	  9845	  9865	  9865#	  9867	  9868	  9870	  9890	  9890#	  9892	  9893	  9895
	  9915	  9915#	  9917	  9918	  9920	  9940	  9940#	  9942	  9943	  9945	  9965	  9965#	  9967	  9968
	  9970	  9990	  9990#	  9992	  9993	  9995	 10015	 10015#	 10017	 10018	 10020	 10040	 10040#	 10042
	 10043	 10045	 10065	 10065#	 10067	 10068	 10070	 10090	 10090#	 10092	 10093	 10095	 10115	 10115#
	 10117	 10118	 10120	 10140	 10140#	 10142	 10143	 10145	 10165	 10165#	 10167	 10168	 10170	 10190
	 10190#	 10192	 10193	 10195
ZZ	  1006#	  1046	  1046#	  1047	  1047#	  1048	  1050	  1076	  1076#	  1077	  1078	  1080	  1106	  1106#
	  1107	  1108	  1110	  1136	  1136#	  1137	  1138	  1140	  1166	  1166#	  1167	  1168	  1170	  1196
	  1196#	  1197	  1198	  1200	  1226	  1226#	  1227	  1228	  1230	  1256	  1256#	  1257	  1258	  1260
	  1286	  1286#	  1287	  1288	  1290	  1316	  1316#	  1317	  1318	  1320	  1346	  1346#	  1347	  1348
	  1350	  1376	  1376#	  1377	  1378	  1380	  1406	  1406#	  1407	  1408	  1410	  1436	  1436#	  1437
	  1438	  1440	  1466	  1466#	  1467	  1468	  1470	  1496	  1496#	  1497	  1498	  1500	  1526	  1526#
	  1527	  1528	  1530	  1556	  1556#	  1557	  1558	  1560	  1586	  1586#	  1587	  1588	  1590	  1616
	  1616#	  1617	  1618	  1620	  1646	  1646#	  1647	  1648	  1650	  1676	  1676#	  1677	  1678	  1680
	  1706	  1706#	  1707	  1708	  1710	  1736	  1736#	  1737	  1738	  1740	  1766	  1766#	  1767	  1768
	  1770	  1796	  1796#	  1797	  1798	  1800	  1826	  1826#	  1827	  1828	  1830	  1856	  1856#	  1857
	  1858	  1860	  1886	  1886#	  1887	  1888	  1890	  1916	  1916#	  1917	  1918	  1920	  1946	  1946#
	  1947	  1948	  1950	  1976	  1976#	  1977	  1978	  1980	  2006	  2006#	  2007	  2008	  2010	  2036
	  2036#	  2037	  2038	  2040	  2066	  2066#	  2067	  2068	  2070	  2096	  2096#	  2097	  2098	  2100
	  2138#	  2174	  2174#	  2175	  2175#	  2177	  2178	  2200	  2200#	  2201	  2203	  2204	  2226	  2226#
	  2227	  2229	  2230	  2252	  2252#	  2253	  2255	  2256	  2278	  2278#	  2279	  2281	  2282	  2304
	  2304#	  2305	  2307	  2308	  2330	  2330#	  2331	  2333	  2334	  2356	  2356#	  2357	  2359	  2360
	  2382	  2382#	  2383	  2385	  2386	  2408	  2408#	  2409	  2411	  2412	  2434	  2434#	  2435	  2437
	  2438	  2460	  2460#	  2461	  2463	  2464	  2486	  2486#	  2487	  2489	  2490	  2512	  2512#	  2513
	  2515	  2516	  2538	  2538#	  2539	  2541	  2542	  2564	  2564#	  2565	  2567	  2568	  2590	  2590#
	  2591	  2593	  2594	  2616	  2616#	  2617	  2619	  2620	  2642	  2642#	  2643	  2645	  2646	  2668
	  2668#	  2669	  2671	  2672	  2694	  2694#	  2695	  2697	  2698	  2720	  2720#	  2721	  2723	  2724
	  2746	  2746#	  2747	  2749	  2750	  2772	  2772#	  2773	  2775	  2776	  2798	  2798#	  2799	  2801
	  2802	  2824	  2824#	  2825	  2827	  2828	  2850	  2850#	  2851	  2853	  2854	  2876	  2876#	  2877
	  2879	  2880	  2902	  2902#	  2903	  2905	  2906	  2928	  2928#	  2929	  2931	  2932	  2954	  2954#
	  2955	  2957	  2958	  2980	  2980#	  2981	  2983	  2984	  3006	  3006#	  3007	  3009	  3010	  3032
	  3032#	  3033	  3035	  3036	  3058	  3058#	  3059	  3061	  3062	  3084	  3084#	  3085	  3087	  3088
	  3103#	  3137	  3137#	  3138	  3138#	  3139	  3140	  3141	  3162	  3162#	  3163	  3164	  3165	  3166
	  3187	  3187#	  3188	  3189	  3190	  3191	  3212	  3212#	  3213	  3214	  3215	  3216	  3237	  3237#
	  3238	  3239	  3240	  3241	  3262	  3262#	  3263	  3264	  3265	  3266	  3287	  3287#	  3288	  3289
	  3290	  3291	  3312	  3312#	  3313	  3314	  3315	  3316	  3337	  3337#	  3338	  3339	  3340	  3341     SEQ 0271
	  3362	  3362#	  3363	  3364	  3365	  3366	  3387	  3387#	  3388	  3389	  3390	  3391	  3412	  3412#
	  3413	  3414	  3415	  3416	  3437	  3437#	  3438	  3439	  3440	  3441	  3462	  3462#	  3463	  3464
	  3465	  3466	  3487	  3487#	  3488	  3489	  3490	  3491	  3512	  3512#	  3513	  3514	  3515	  3516
	  3537	  3537#	  3538	  3539	  3540	  3541	  3562	  3562#	  3563	  3564	  3565	  3566	  3587	  3587#
	  3588	  3589	  3590	  3591	  3612	  3612#	  3613	  3614	  3615	  3616	  3637	  3637#	  3638	  3639
	  3640	  3641	  3662	  3662#	  3663	  3664	  3665	  3666	  3687	  3687#	  3688	  3689	  3690	  3691
	  3712	  3712#	  3713	  3714	  3715	  3716	  3737	  3737#	  3738	  3739	  3740	  3741	  3762	  3762#
	  3763	  3764	  3765	  3766	  3787	  3787#	  3788	  3789	  3790	  3791	  3812	  3812#	  3813	  3814
	  3815	  3816	  3837	  3837#	  3838	  3839	  3840	  3841	  3862	  3862#	  3863	  3864	  3865	  3866
	  3887	  3887#	  3888	  3889	  3890	  3891	  3912	  3912#	  3913	  3914	  3915	  3916	  3937	  3937#
	  3938	  3939	  3940	  3941	  3962	  3962#	  3963	  3964	  3965	  3966	  3987	  3987#	  3988	  3989
	  3990	  3991	  4003#	  4040	  4040#	  4042	  4042#	  4043	  4066	  4066#	  4068	  4069	  4092	  4092#
	  4094	  4095	  4118	  4118#	  4120	  4121	  4144	  4144#	  4146	  4147	  4170	  4170#	  4172	  4173
	  4196	  4196#	  4198	  4199	  4222	  4222#	  4224	  4225	  4248	  4248#	  4250	  4251	  4274	  4274#
	  4276	  4277	  4300	  4300#	  4302	  4303	  4326	  4326#	  4328	  4329	  4352	  4352#	  4354	  4355
	  4378	  4378#	  4380	  4381	  4404	  4404#	  4406	  4407	  4430	  4430#	  4432	  4433	  4456	  4456#
	  4458	  4459	  4482	  4482#	  4484	  4485	  4499#	  4536	  4536#	  4538	  4538#	  4539	  4562	  4562#
	  4564	  4565	  4588	  4588#	  4590	  4591	  4614	  4614#	  4616	  4617	  4640	  4640#	  4642	  4643
	  4666	  4666#	  4668	  4669	  4692	  4692#	  4694	  4695	  4718	  4718#	  4720	  4721	  4744	  4744#
	  4746	  4747	  4770	  4770#	  4772	  4773	  4796	  4796#	  4798	  4799	  4822	  4822#	  4824	  4825
	  4848	  4848#	  4850	  4851	  4874	  4874#	  4876	  4877	  4900	  4900#	  4902	  4903	  4926	  4926#
	  4928	  4929	  4952	  4952#	  4954	  4955	  4978	  4978#	  4980	  4981	  5214#	  5236	  5236#	  5237
	  5237#	  5238	  5239	  5254	  5254#	  5255	  5256	  5257	  5272	  5272#	  5273	  5274	  5275	  5290
	  5290#	  5291	  5292	  5293	  5308	  5308#	  5309	  5310	  5311	  5326	  5326#	  5327	  5328	  5329
	  5344	  5344#	  5345	  5346	  5347	  5362	  5362#	  5363	  5364	  5365	  5380	  5380#	  5381	  5382
	  5383	  5398	  5398#	  5399	  5400	  5401	  5416	  5416#	  5417	  5418	  5419	  5434	  5434#	  5435
	  5436	  5437	  5452	  5452#	  5453	  5454	  5455	  5470	  5470#	  5471	  5472	  5473	  5488	  5488#
	  5489	  5490	  5491	  5506	  5506#	  5507	  5508	  5509	  5524	  5524#	  5525	  5526	  5527	  5542
	  5542#	  5543	  5544	  5545	  5560	  5560#	  5561	  5562	  5563	  5578	  5578#	  5579	  5580	  5581
	  5596	  5596#	  5597	  5598	  5599	  5614	  5614#	  5615	  5616	  5617	  5632	  5632#	  5633	  5634
	  5635	  5650	  5650#	  5651	  5652	  5653	  5668	  5668#	  5669	  5670	  5671	  5686	  5686#	  5687
	  5688	  5689	  5704	  5704#	  5705	  5706	  5707	  5722	  5722#	  5723	  5724	  5725	  5740	  5740#
	  5741	  5742	  5743	  5758	  5758#	  5759	  5760	  5761	  5776	  5776#	  5777	  5778	  5779	  5794
	  5794#	  5795	  5796	  5797	  5812	  5812#	  5813	  5814	  5815	  5830	  5830#	  5831	  5832	  5833
	  5848	  5848#	  5849	  5850	  5851	  5866	  5866#	  5867	  5868	  5869	  6235#	  6269	  6269#	  6270
	  6270#	  6271	  6296	  6296#	  6297	  6298	  6323	  6323#	  6324	  6325	  6350	  6350#	  6351	  6352
	  6377	  6377#	  6378	  6379	  6404	  6404#	  6405	  6406	  6431	  6431#	  6432	  6433	  6458	  6458#
	  6459	  6460	  6485	  6485#	  6486	  6487	  6512	  6512#	  6513	  6514	  6539	  6539#	  6540	  6541
	  6566	  6566#	  6567	  6568	  6593	  6593#	  6594	  6595	  6620	  6620#	  6621	  6622	  6647	  6647#
	  6648	  6649	  6674	  6674#	  6675	  6676	  6701	  6701#	  6702	  6703	  6728	  6728#	  6729	  6730
	  6746#	  6775	  6775#	  6776	  6776#	  6777	  6797	  6797#	  6798	  6799	  6819	  6819#	  6820	  6821
	  6841	  6841#	  6842	  6843	  6863	  6863#	  6864	  6865	  6885	  6885#	  6886	  6887	  6907	  6907#
	  6908	  6909	  6929	  6929#	  6930	  6931	  6951	  6951#	  6952	  6953	  6973	  6973#	  6974	  6975
	  6995	  6995#	  6996	  6997	  7017	  7017#	  7018	  7019	  7039	  7039#	  7040	  7041	  7061	  7061#
	  7062	  7063	  7083	  7083#	  7084	  7085	  7105	  7105#	  7106	  7107	  7127	  7127#	  7128	  7129
	  7149	  7149#	  7150	  7151	  7163#	  7185	  7185#	  7186	  7186#	  7188	  7203	  7203#	  7204	  7206
	  7221	  7221#	  7222	  7224	  7239	  7239#	  7240	  7242	  7257	  7257#	  7258	  7260	  7275	  7275#
	  7276	  7278	  7293	  7293#	  7294	  7296	  7311	  7311#	  7312	  7314	  7329	  7329#	  7330	  7332
	  7347	  7347#	  7348	  7350	  7365	  7365#	  7366	  7368	  7383	  7383#	  7384	  7386	  7401	  7401#
	  7402	  7404	  7419	  7419#	  7420	  7422	  7437	  7437#	  7438	  7440	  7455	  7455#	  7456	  7458
	  7473	  7473#	  7474	  7476	  7491	  7491#	  7492	  7494	  7509	  7509#	  7510	  7512	  7527	  7527#
	  7528	  7530	  7545	  7545#	  7546	  7548	  7563	  7563#	  7564	  7566	  7581	  7581#	  7582	  7584
	  7599	  7599#	  7600	  7602	  7617	  7617#	  7618	  7620	  7635	  7635#	  7636	  7638	  7653	  7653#    SEQ 0272
	  7654	  7656	  7671	  7671#	  7672	  7674	  7689	  7689#	  7690	  7692	  7707	  7707#	  7708	  7710
	  7725	  7725#	  7726	  7728	  7743	  7743#	  7744	  7746	  7761	  7761#	  7762	  7764	  7779	  7779#
	  7780	  7782	  7797	  7797#	  7798	  7800	  7815	  7815#	  7816	  7818	  7828#	  7850	  7850#	  7851
	  7851#	  7852	  7868	  7868#	  7869	  7870	  7886	  7886#	  7887	  7888	  7904	  7904#	  7905	  7906
	  7922	  7922#	  7923	  7924	  7940	  7940#	  7941	  7942	  7958	  7958#	  7959	  7960	  7976	  7976#
	  7977	  7978	  7994	  7994#	  7995	  7996	  8012	  8012#	  8013	  8014	  8030	  8030#	  8031	  8032
	  8048	  8048#	  8049	  8050	  8066	  8066#	  8067	  8068	  8084	  8084#	  8085	  8086	  8102	  8102#
	  8103	  8104	  8120	  8120#	  8121	  8122	  8138	  8138#	  8139	  8140	  8156	  8156#	  8157	  8158
	  8174	  8174#	  8175	  8176	  8192	  8192#	  8193	  8194	  8210	  8210#	  8211	  8212	  8228	  8228#
	  8229	  8230	  8246	  8246#	  8247	  8248	  8264	  8264#	  8265	  8266	  8282	  8282#	  8283	  8284
	  8300	  8300#	  8301	  8302	  8318	  8318#	  8319	  8320	  8336	  8336#	  8337	  8338	  8354	  8354#
	  8355	  8356	  8372	  8372#	  8373	  8374	  8390	  8390#	  8391	  8392	  8408	  8408#	  8409	  8410
	  8426	  8426#	  8427	  8428	  8444	  8444#	  8445	  8446	  8462	  8462#	  8463	  8464	  8480	  8480#
	  8481	  8482	  8497#	  8522	  8522#	  8523	  8523#	  8524	  8526	  8542	  8542#	  8543	  8544	  8546
	  8562	  8562#	  8563	  8564	  8566	  8582	  8582#	  8583	  8584	  8586	  8602	  8602#	  8603	  8604
	  8606	  8622	  8622#	  8623	  8624	  8626	  8642	  8642#	  8643	  8644	  8646	  8662	  8662#	  8663
	  8664	  8666	  8682	  8682#	  8683	  8684	  8686	  8702	  8702#	  8703	  8704	  8706	  8722	  8722#
	  8723	  8724	  8726	  8742	  8742#	  8743	  8744	  8746	  8762	  8762#	  8763	  8764	  8766	  8782
	  8782#	  8783	  8784	  8786	  8802	  8802#	  8803	  8804	  8806	  8822	  8822#	  8823	  8824	  8826
	  8842	  8842#	  8843	  8844	  8846	  8862	  8862#	  8863	  8864	  8866	  8876#	  8901	  8901#	  8902
	  8902#	  8903	  8905	  8921	  8921#	  8922	  8923	  8925	  8941	  8941#	  8942	  8943	  8945	  8961
	  8961#	  8962	  8963	  8965	  8981	  8981#	  8982	  8983	  8985	  9001	  9001#	  9002	  9003	  9005
	  9021	  9021#	  9022	  9023	  9025	  9041	  9041#	  9042	  9043	  9045	  9061	  9061#	  9062	  9063
	  9065	  9081	  9081#	  9082	  9083	  9085	  9101	  9101#	  9102	  9103	  9105	  9121	  9121#	  9122
	  9123	  9125	  9141	  9141#	  9142	  9143	  9145	  9161	  9161#	  9162	  9163	  9165	  9181	  9181#
	  9182	  9183	  9185	  9201	  9201#	  9202	  9203	  9205	  9221	  9221#	  9222	  9223	  9225	  9241
	  9241#	  9242	  9243	  9245	  9255#	  9289	  9289#	  9291	  9291#	  9293	  9295	  9314	  9314#	  9316
	  9318	  9320	  9339	  9339#	  9341	  9343	  9345	  9364	  9364#	  9366	  9368	  9370	  9389	  9389#
	  9391	  9393	  9395	  9414	  9414#	  9416	  9418	  9420	  9439	  9439#	  9441	  9443	  9445	  9464
	  9464#	  9466	  9468	  9470	  9489	  9489#	  9491	  9493	  9495	  9514	  9514#	  9516	  9518	  9520
	  9539	  9539#	  9541	  9543	  9545	  9564	  9564#	  9566	  9568	  9570	  9589	  9589#	  9591	  9593
	  9595	  9614	  9614#	  9616	  9618	  9620	  9639	  9639#	  9641	  9643	  9645	  9664	  9664#	  9666
	  9668	  9670	  9689	  9689#	  9691	  9693	  9695	  9714	  9714#	  9716	  9718	  9720	  9730#	  9764
	  9764#	  9766	  9766#	  9768	  9770	  9789	  9789#	  9791	  9793	  9795	  9814	  9814#	  9816	  9818
	  9820	  9839	  9839#	  9841	  9843	  9845	  9864	  9864#	  9866	  9868	  9870	  9889	  9889#	  9891
	  9893	  9895	  9914	  9914#	  9916	  9918	  9920	  9939	  9939#	  9941	  9943	  9945	  9964	  9964#
	  9966	  9968	  9970	  9989	  9989#	  9991	  9993	  9995	 10014	 10014#	 10016	 10018	 10020	 10039
	 10039#	 10041	 10043	 10045	 10064	 10064#	 10066	 10068	 10070	 10089	 10089#	 10091	 10093	 10095
	 10114	 10114#	 10116	 10118	 10120	 10139	 10139#	 10141	 10143	 10145	 10164	 10164#	 10166	 10168
	 10170	 10189	 10189#	 10191	 10193	 10195
$$420	   731#
$$421	   732#
$$422	   733#
$$423	   734#
$$424	   735#
$$425	   736#
$$426	   737#
$$427	   738#
$$430	   739#
$$431	   740#
$$432	   741#
$$433	   742#
$$434	   743#                                                                                                            SEQ 0273
$$435	   744#
$$436	   745#
$$437	   746#
$$500	   749#
$$501	   750#
$$502	   751#
$$503	   752#
$$BEGI	   717#
$$DTE0	   783	   822#
$$DTE1	   784	   824#
$$DTE2	   785	   838#
$$DTE3	   786	   840#
$$LOC	   714#	   753
$$MUUO	   637#
$$OUTE	   643#
$$STAR	   717	   718	   757#
$$TAX1	   655#
$$TAX2	   656#
$$TOGG	   649#
$$UUO	   626#
$ACC0	   464#
$BEGEN	   726#
$BEND1	   434#
$BEND2	   435#
$CHRIN	   525#
$CRLF	   527#
$DDT	   695#
$DEVCH	   351#
$DSKUP	   404#
$DTCHR	   707#
$DTCI	   701#
$DTCLK	   700#	   781
$DTCMD	   704#	   819	   835
$DTF11	   703#
$DTFLG	   699#	   780	   820	   825	   836	   841
$DTMTD	   708#
$DTMTI	   709#
$DTOPR	   706#	   782
$DTSEQ	   705#
$DTSWR	   711#
$DTT11	   702#
$DVCH1	   351#
$DVOFF	   521#
$EMODE	   402#
$ENDFX	   671#	   672
$FFF	   529#
$IBUF	   577#
$INEXT	   579#
$INNM	   578#
$ITRHL	   445#
$ITRX1	   446#
$LPAPE	 11279
$MMAP	   405#                                                                                                            SEQ 0274
$MODVL	   400#
$MODVU	   401#
$OBUF	   568#
$ONETM	   428#
$OUTEX	   570#
$OUTNM	   569#
$PAPER	   351
$PARER	   452#
$PNAME	   398#
$PSHER	   456#
$PVER	   399#
$RSRTX	   448#
$RSRTY	   449#
$SPAG1	   468#
$SPB1	   791	   797#
$SPBEN	   726	   795#
$SPBEX	   798	   806#
$SPBKL	   807	   813#
$SPBUS	   800#
$SPEC	   723	   790#
$SPKLD	   814	   831#
$START	   365#
$STD	   694#	   721#
$STKIL	   766#
$STKL	   775#
$STL	   696#
$STM	   697#	   723#
$SVAPR	   466#
$SVPAG	   467#
$SVPI	   465#
$SVUPC	   471#
$SVUUO	   470#
$TABF	   528#
$TTCHR	   524#
$TWCNT	   520#
$TYPNB	   526#
$UMODE	   403#
$UORTX	   443#
$USRHL	   447#
$UUOER	   444#	   485
$VTF	   530#
%ACTFL	   477#
%ACTUL	   478#
%COREC	   476#
%CORFL	   475#
%DISCR	   479#
%ERHI1	   618#
%ERHI2	   619#
%ERHI3	   620#
.JB41	   351#
.JBAPR	   351#
.JBCNI	   351#
.JBDDT	   351#                                                                                                            SEQ 0275
.JBFF	   351#
.JBOPC	   351#
.JBREL	   351#
.JBREN	   351#
.JBSA	   351#
.JBSYM	   351#
.JBTPC	   351#
.JBUSY	   351#
.JBUUO	   351#
.JBVER	   351#
CFLUSH	   268#
CINVAL	   267#                                                                                                            SEQ 0276
CLOKOP	   262#
CWRTBI	   269#
DROPDV	   229#
ENDUUO	   275#	   433
EOPUUO	   276#	   435
ERLOOP	   320#
ERLP1	   321#
ERLP2	   322#
ERRHLT	   164#
ERROR	   329#
ERROR1	   341#
ERUUO	   319#
EXIT	   803
FATAL	   163#
FRD36	   304#
FRD8	   305#
FREAD	   303#
FSELEC	   302#
GET	   147#
GO	   144#
HALT	   149#	   454	   731	   733	   734	   738	   752	   843	   896	   919	   940	   962	   979	   997
	  1054	  1084	  1114	  1144	  1174	  1204	  1234	  1264	  1294	  1324	  1354	  1384	  1414	  1444
	  1474	  1504	  1534	  1564	  1594	  1624	  1654	  1684	  1714	  1744	  1774	  1804	  1834	  1864
	  1894	  1924	  1954	  1984	  2014	  2044	  2074	  2104	  2125	  2182	  2208	  2234	  2260	  2286
	  2312	  2338	  2364	  2390	  2416	  2442	  2468	  2494	  2520	  2546	  2572	  2598	  2624	  2650
	  2676	  2702	  2728	  2754	  2780	  2806	  2832	  2858	  2884	  2910	  2936	  2962	  2988	  3014
	  3040	  3066	  3092	  3145	  3170	  3195	  3220	  3245	  3270	  3295	  3320	  3345	  3370	  3395
	  3420	  3445	  3470	  3495	  3520	  3545	  3570	  3595	  3620	  3645	  3670	  3695	  3720	  3745
	  3770	  3795	  3820	  3845	  3870	  3895	  3920	  3945	  3970	  3995	  4048	  4074	  4100	  4126
	  4152	  4178	  4204	  4230	  4256	  4282	  4308	  4334	  4360	  4386	  4412	  4438	  4464	  4490
	  4544	  4570	  4596	  4622	  4648	  4674	  4700	  4726	  4752	  4778	  4804	  4830	  4856	  4882
	  4908	  4934	  4960	  4986	  5005	  5022	  5039	  5055	  5072	  5089	  5105	  5122	  5139	  5155
	  5170	  5187	  5205	  5242	  5260	  5278	  5296	  5314	  5332	  5350	  5368	  5386	  5404	  5422
	  5440	  5458	  5476	  5494	  5512	  5530	  5548	  5566	  5584	  5602	  5620	  5638	  5656	  5674
	  5692	  5710	  5728	  5746	  5764	  5782	  5800	  5818	  5836	  5854	  5872	  5888	  5902	  5924
	  5942	  5961	  5983	  6006	  6029	  6052	  6066	  6088	  6103	  6125	  6140	  6156	  6176	  6197
	  6222	  6275	  6302	  6329	  6356	  6383	  6410	  6437	  6464	  6491	  6518	  6545	  6572	  6599
	  6626	  6653	  6680	  6707	  6734	  6781	  6803	  6825	  6847	  6869	  6891	  6913	  6935	  6957
	  6979	  7001	  7023	  7045	  7067	  7089	  7111	  7133	  7155	  7190	  7208	  7226	  7244	  7262
	  7280	  7298	  7316	  7334	  7352	  7370	  7388	  7406	  7424	  7442	  7460	  7478	  7496	  7514
	  7532	  7550	  7568	  7586	  7604	  7622	  7640	  7658	  7676	  7694	  7712	  7730	  7748	  7766
	  7784	  7802	  7820	  7855	  7873	  7891	  7909	  7927	  7945	  7963	  7981	  7999	  8017	  8035
	  8053	  8071	  8089	  8107	  8125	  8143	  8161	  8179	  8197	  8215	  8233	  8251	  8269	  8287
	  8305	  8323	  8341	  8359	  8377	  8395	  8413	  8431	  8449	  8467	  8485	  8528	  8548	  8568
	  8588	  8608	  8628	  8648	  8668	  8688	  8708	  8728	  8748	  8768	  8788	  8808	  8828	  8848
	  8868	  8907	  8927	  8947	  8967	  8987	  9007	  9027	  9047	  9067	  9087	  9107	  9127	  9147
	  9167	  9187	  9207	  9227	  9247	  9297	  9322	  9347	  9372	  9397	  9422	  9447	  9472	  9497
	  9522	  9547	  9572	  9597	  9622	  9647	  9672	  9697	  9722	  9772	  9797	  9822	  9847	  9872
	  9897	  9922	  9947	  9972	  9997	 10022	 10047	 10072	 10097	 10122	 10147	 10172	 10197	 10216
	 10240	 10260	 10278	 10294	 10309	 10330	 10350	 10372	 10386	 10402	 10424	 10442	 10466	 10489
	 10510	 10536	 10564	 10582	 10598	 10622	 10638	 10655	 10676	 10692	 10715	 10737	 10754	 10770
	 10787	 10803	 10827	 10849	 10865	 10880	 10896	 10912	 10939	 10959	 10975	 10990	 11006	 11022
	 11050	 11065	 11081	 11096	 11112	 11130	 11152	 11175	 11189	 11207	 11227	 11251	 11267             SEQ 0277
JEN	   151#
JRSTF	   150#
MAPADR	   285#
MAPCNK	   286#
MAPMEM	   282#
MAPPNT	   288#
MAPSET	   287#
MEMSEG	   284#
MEMZRO	   283#
MODPCP	   295#
MODPCU	   294#
MTROP	   263#
NAME	     9#	    11
PBELL	   238#
PCRL	   232#
PCRL2	   236#
PCRL2F	   237#
PCRLF	   233#
PFORCE	   240#
PGMINT	   157#
PJRST	   148#
PMSG	   242#
PMSGF	   245#
PNT1	   198#
PNT11	   212#
PNT11F	   213#
PNT1F	   199#
PNT2	   200#
PNT2F	   201#
PNT3	   202#
PNT3F	   203#
PNT4	   204#
PNT4F	   205#
PNT5	   206#
PNT5F	   207#
PNT6	   208#
PNT6F	   209#
PNT7	   210#
PNT7F	   211#
PNTA	   184#
PNTADF	   215#
PNTADR	   214#
PNTAF	   185#
PNTAL	   186#
PNTALF	   187#
PNTCHF	   197#
PNTCHR	   196#
PNTCI	   194#
PNTCIF	   195#
PNTCW	   230#
PNTCWF	   231#
PNTDCF	   223#
PNTDEC	   222#                                                                                                            SEQ 0278
PNTDS	   224#
PNTDSF	   225#
PNTHW	   218#
PNTHWF	   219#
PNTMGN	   309#
PNTMSF	   191#
PNTMSG	   190#
PNTNM	   226#
PNTOCF	   221#
PNTOCS	   220#
PNTOCT	   216#
PNTOTF	   217#
PNTSIX	   227#
PNTSXF	   228#
PSIXL	   188#
PSIXLF	   189#
PSIXM	   192#
PSIXMF	   193#
PSP	   234#
PSPF	   235#
PUT	   146#
REPTUO	   323#
RTN	   145#	   441
S	    75#	    77	    81	   110	   112	   121	   124	   139	   140	   142	   153	   155	   159	   161
	   166	   170	   315	   317	   351	   356	   362	   389	   391	   409	   411	   429	   431	   460
	   462	   480	   482	   500	   502	   510	   512	   533	   538	   564	   566	   573	   575	   581
	   583	   589	   591	   595	   597	   602	   604	   608	   610	   614	   616	   622	   624	   627
	   629	   633	   635	   639	   641	   645	   647	   651	   653	   658	   663	   667	   669
SIXBTZ	   251#
STOP	    44#	   895	   918	   939	   961	   978	   996	  1053	  1083	  1113	  1143	  1173	  1203	  1233
	  1263	  1293	  1323	  1353	  1383	  1413	  1443	  1473	  1503	  1533	  1563	  1593	  1623	  1653
	  1683	  1713	  1743	  1773	  1803	  1833	  1863	  1893	  1923	  1953	  1983	  2013	  2043	  2073
	  2103	  2124	  2181	  2207	  2233	  2259	  2285	  2311	  2337	  2363	  2389	  2415	  2441	  2467
	  2493	  2519	  2545	  2571	  2597	  2623	  2649	  2675	  2701	  2727	  2753	  2779	  2805	  2831
	  2857	  2883	  2909	  2935	  2961	  2987	  3013	  3039	  3065	  3091	  3144	  3169	  3194	  3219
	  3244	  3269	  3294	  3319	  3344	  3369	  3394	  3419	  3444	  3469	  3494	  3519	  3544	  3569
	  3594	  3619	  3644	  3669	  3694	  3719	  3744	  3769	  3794	  3819	  3844	  3869	  3894	  3919
	  3944	  3969	  3994	  4047	  4073	  4099	  4125	  4151	  4177	  4203	  4229	  4255	  4281	  4307
	  4333	  4359	  4385	  4411	  4437	  4463	  4489	  4543	  4569	  4595	  4621	  4647	  4673	  4699
	  4725	  4751	  4777	  4803	  4829	  4855	  4881	  4907	  4933	  4959	  4985	  5004	  5021	  5038
	  5054	  5071	  5088	  5104	  5121	  5138	  5154	  5169	  5186	  5204	  5241	  5259	  5277	  5295
	  5313	  5331	  5349	  5367	  5385	  5403	  5421	  5439	  5457	  5475	  5493	  5511	  5529	  5547
	  5565	  5583	  5601	  5619	  5637	  5655	  5673	  5691	  5709	  5727	  5745	  5763	  5781	  5799
	  5817	  5835	  5853	  5871	  5887	  5901	  5923	  5941	  5960	  5982	  6005	  6028	  6051	  6065
	  6087	  6102	  6124	  6139	  6155	  6175	  6196	  6221	  6274	  6301	  6328	  6355	  6382	  6409
	  6436	  6463	  6490	  6517	  6544	  6571	  6598	  6625	  6652	  6679	  6706	  6733	  6780	  6802
	  6824	  6846	  6868	  6890	  6912	  6934	  6956	  6978	  7000	  7022	  7044	  7066	  7088	  7110
	  7132	  7154	  7189	  7207	  7225	  7243	  7261	  7279	  7297	  7315	  7333	  7351	  7369	  7387
	  7405	  7423	  7441	  7459	  7477	  7495	  7513	  7531	  7549	  7567	  7585	  7603	  7621	  7639
	  7657	  7675	  7693	  7711	  7729	  7747	  7765	  7783	  7801	  7819	  7854	  7872	  7890	  7908
	  7926	  7944	  7962	  7980	  7998	  8016	  8034	  8052	  8070	  8088	  8106	  8124	  8142	  8160
	  8178	  8196	  8214	  8232	  8250	  8268	  8286	  8304	  8322	  8340	  8358	  8376	  8394	  8412
	  8430	  8448	  8466	  8484	  8527	  8547	  8567	  8587	  8607	  8627	  8647	  8667	  8687	  8707     SEQ 0279
	  8727	  8747	  8767	  8787	  8807	  8827	  8847	  8867	  8906	  8926	  8946	  8966	  8986	  9006
	  9026	  9046	  9066	  9086	  9106	  9126	  9146	  9166	  9186	  9206	  9226	  9246	  9296	  9321
	  9346	  9371	  9396	  9421	  9446	  9471	  9496	  9521	  9546	  9571	  9596	  9621	  9646	  9671
	  9696	  9721	  9771	  9796	  9821	  9846	  9871	  9896	  9921	  9946	  9971	  9996	 10021	 10046
	 10071	 10096	 10121	 10146	 10171	 10196	 10215	 10239	 10259	 10277	 10293	 10308	 10329	 10349
	 10371	 10385	 10401	 10423	 10441	 10465	 10488	 10509	 10535	 10563	 10581	 10597	 10621	 10637
	 10654	 10675	 10691	 10714	 10736	 10753	 10769	 10786	 10802	 10826	 10848	 10864	 10879	 10895
	 10911	 10938	 10958	 10974	 10989	 11005	 11021	 11049	 11064	 11080	 11095	 11111	 11129	 11151
	 11174	 11188	 11206	 11226	 11250	 11266
SWITCH	   257#
TTALTM	   179#
TTICHR	   172#
TTICNV	   177#
TTIDEC	   176#
TTINO	   174#
TTIOCT	   175#
TTIYES	   173#
TTLOOK	   178#
TTSIXB	   180#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 1
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0280


*030001 JRST	0,030600
INITIAL
C(AC)=000000 000000 
C(E)=402000 030037 
FINAL

C(E)=402000 030037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030001 030001 0   0   254000030600 0            254000030600 
IT1	030001 0      0   0   254000030600 0            254000030600 
AT3	030001 0      0   0   000000030600 0            254000030600 
AT6	030001 0      0   0   000000030600 0            254000030600 
FT1A	030001 0      0   0   000000030600 0            254000030600 
FT9	030002 0      0   0   000000030600 0            254000030600 
ET0	0      030002 0   0   000000030600 0            254000030600 
ST1A	0      030002 0   0   000000030600 0            254000030600 
ST9	0      030002 0   0   000000030600 0            254000030600 


*030600 SETZM	0,030037
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   402000030037 0            000000030037 
IT1	0      0      0   0   402000030037 0            000000030037 
AT3	0      0      0   0   000000030037 0            402000030037 
AT6	0      030037 0   0   000000030037 0            402000030037 
FT1A	0      030037 0   0   000000030037 0            000000030037 
FT9	030601 030037 0   0   000000030037 0            000000030037 
ET0	030601 030037 0   0   0            0            000000030037 
ST6	030601 030037 0   0   0            0            000000030037 
ST6A	030601 030037 0   0   0            0            000000030037 
ST9	030601 030037 0   0   0            0            000000030037 


*030601 JSP	0,030602
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030601 030601 0   0   265000030602 0            000000030602 
IT1	030601 0      0   0   265000030602 0            000000030602 
AT3	030601 0      0   0   000000030602 0            265000030602 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 2
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0281

AT6	030601 030602 0   0   000000030602 0            265000030602 
FT1A	030601 030602 0   0   000000030602 0            000000030602 
FT9	030602 030602 0   0   000000030602 0            000000030602 
ET0	030602 030602 0   0   000000030602 0            000000030602 
ST1	030602 030602 0   0   000000030602 0            000000030602 
ST2	030602 030602 0   0   000000030602 0            000000030602 
ST9	030602 030602 0   0   000000030602 0            000000030602 


*030602 TLNE	0,010000
INITIAL
C(AC)=000000 030602 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030602 030602 0   0   603000010000 0            0            
IT1	030602 0      0   0   603000010000 0            0            
AT3	030602 0      0   0   000000010000 0            603000010000 
AT6	030602 0      0   0   000000010000 0            603000010000 
FT1A	030602 0      0   0   000000010000 0            000000010000 
FT2	030602 0      0   0   0            0            000000010000 
FT2RQ	030602 0      0   0   000000030602 0            000000010000 
FT3	030602 0      0   0   000000030602 0            000000010000 
FT9	030603 0      0   0   000000030602 0            000000010000 
ET0	030603 0      0   0   030602000000 0            000000010000 
ET1	030603 0      0   0   030602000000 0            0            
ET2	030604 0      0   0   000000030602 0            0            
ST1A	030604 0      0   0   000000030602 0            0            
ST9	030604 0      0   0   000000030602 0            0            


*030604 SKIPN	0,030042
INITIAL
C(AC)=000000 030602 
C(E)=777777 777777 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030604 030604 0   0   336000030042 0            777777777777 
IT1	030604 0      0   0   336000030042 0            777777777777 
AT3	030604 0      0   0   000000030042 0            336000030042 
AT6	030604 030042 0   0   000000030042 0            336000030042 
FT0	030604 030042 0   0   777777777777 0            336000030042 
FT1A	030604 030042 0   0   777777777777 0            777777777777 
FT9	030605 030042 0   0   777777777777 0            777777777777 
ET0	030606 030042 0   0   777777777777 0            777777777777 
ST1A	030606 030042 0   0   777777777777 0            777777777777 
ST9	030606 030042 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 3
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0282

*030606 SKIPE	0,030037
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030606 030606 0   0   332000030037 0            0            
IT1	030606 0      0   0   332000030037 0            0            
AT3	030606 0      0   0   000000030037 0            332000030037 
AT6	030606 030037 0   0   000000030037 0            332000030037 
FT0	030606 030037 0   0   0            0            332000030037 
FT1A	030606 030037 0   0   0            0            0            
FT9	030607 030037 0   0   0            0            0            
ET0	030610 030037 0   0   0            0            0            
ST1A	030610 030037 0   0   0            0            0            
ST9	030610 030037 0   0   0            0            0            


*030610 SKIPN	0,030044
INITIAL
C(AC)=000000 030602 
C(E)=777777 777777 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030610 030610 0   0   336000030044 0            777777777777 
IT1	030610 0      0   0   336000030044 0            777777777777 
AT3	030610 0      0   0   000000030044 0            336000030044 
AT6	030610 030044 0   0   000000030044 0            336000030044 
FT0	030610 030044 0   0   777777777777 0            336000030044 
FT1A	030610 030044 0   0   777777777777 0            777777777777 
FT9	030611 030044 0   0   777777777777 0            777777777777 
ET0	030612 030044 0   0   777777777777 0            777777777777 
ST1A	030612 030044 0   0   777777777777 0            777777777777 
ST9	030612 030044 0   0   777777777777 0            777777777777 


*030612 SETZM	0,030516
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030612 030612 0   0   402000030516 0            000000030516 
IT1	030612 0      0   0   402000030516 0            000000030516 
AT3	030612 0      0   0   000000030516 0            402000030516 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 4
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0283

AT6	030612 030516 0   0   000000030516 0            402000030516 
FT1A	030612 030516 0   0   000000030516 0            000000030516 
FT9	030613 030516 0   0   000000030516 0            000000030516 
ET0	030613 030516 0   0   0            0            000000030516 
ST6	030613 030516 0   0   0            0            000000030516 
ST6A	030613 030516 0   0   0            0            000000030516 
ST9	030613 030516 0   0   0            0            000000030516 


*030613 SETZM	0,030041
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030613 030613 0   0   402000030041 0            000000030041 
IT1	030613 0      0   0   402000030041 0            000000030041 
AT3	030613 0      0   0   000000030041 0            402000030041 
AT6	030613 030041 0   0   000000030041 0            402000030041 
FT1A	030613 030041 0   0   000000030041 0            000000030041 
FT9	030614 030041 0   0   000000030041 0            000000030041 
ET0	030614 030041 0   0   0            0            000000030041 
ST6	030614 030041 0   0   0            0            000000030041 
ST6A	030614 030041 0   0   0            0            000000030041 
ST9	030614 030041 0   0   0            0            000000030041 


*030614 MOVE 	1,035410
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030614 030614 0   0   200040035410 0            000001000001 
IT1	030614 0      0   0   200040035410 0            000001000001 
AT3	030614 0      0   0   000000035410 0            200040035410 
AT6	030614 035410 0   0   000000035410 0            200040035410 
FT0	030614 035410 0   0   000001000001 0            200040035410 
FT1A	030614 035410 0   0   000001000001 0            000001000001 
FT9	030615 035410 0   0   000001000001 0            000001000001 
ET0	030615 035410 0   0   000001000001 0            000001000001 
ST1	030615 035410 0   0   000001000001 0            000001000001 
ST2	030615 035410 0   0   000001000001 0            000001000001 
ST9	030615 035410 0   0   000001000001 0            000001000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 5
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0284

*030615 BLT	1,000001
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030615 030615 0   0   251040000001 0            000000000001 
IT1	030615 0      0   0   251040000001 0            000000000001 
AT3	030615 0      0   0   000000000001 0            251040000001 
AT6	030615 000001 0   0   000000000001 0            251040000001 
FT1A	030615 000001 0   0   000000000001 0            000000000001 
FT2	030615 000001 0   0   0            0            000000000001 
FT2RQ	030615 000001 0   0   000001000001 0            000000000001 
FT3	030615 000001 0   0   000001000001 0            000000000001 
FT6	030615 000001 0   0   000001000001 0            000000000001 
FT7	030615 000001 0   0   000001000001 000001000001 000000000001 
FT4RQ	030615 000001 0   0   000001000001 000001000001 000000000001 
FT4A	030615 000001 0   0   000001000001 000001000001 000000000001 
FT9	030615 000001 0   0   000001000001 000001000001 000000000001 
ET0	030615 000001 0   0   000001000001 000001000001 000000000001 
ET1	030615 000001 0   0   000001000001 000001000001 000000000001 
ET2	030615 000001 0   0   000001000001 000002000002 000000000001 
BLTT1	030615 000001 0   0   000000000002 000002000002 000000000001 
BLTT2	030616 000001 0   0   000000000002 000002000002 000000000001 
ST9	030616 000001 0   0   000000000002 000002000002 000000000001 


*030616 CAMN	1,035410
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030616 030616 0   0   316040035410 0            000001000001 
IT1	030616 0      0   0   316040035410 0            000001000001 
AT3	030616 0      0   0   000000035410 0            316040035410 
AT6	030616 035410 0   0   000000035410 0            316040035410 
FT0	030616 035410 0   0   000001000001 0            316040035410 
FT1A	030616 035410 0   0   000001000001 0            000001000001 
FT2	030616 035410 0   0   0            0            000001000001 
FT2RQ	030616 035410 0   0   000001000001 0            000001000001 
FT3	030616 035410 0   0   000001000001 0            000001000001 
FT9	030617 035410 0   0   000001000001 0            000001000001 
ET0	030617 035410 0   0   0            0            000001000001 
ST1A	030617 035410 0   0   0            0            000001000001 
ST9	030617 035410 0   0   0            0            000001000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 6
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0285

*030617 JRST	0,030712
INITIAL
C(AC)=000000 030602 
C(E)=402000 030037 
FINAL

C(E)=402000 030037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030617 030617 0   0   254000030712 0            254000030712 
IT1	030617 0      0   0   254000030712 0            254000030712 
AT3	030617 0      0   0   000000030712 0            254000030712 
AT6	030617 030712 0   0   000000030712 0            254000030712 
FT1A	030617 030712 0   0   000000030712 0            254000030712 
FT9	030620 030712 0   0   000000030712 0            254000030712 
ET0	030712 030620 0   0   000000030712 0            254000030712 
ST1A	030712 030620 0   0   000000030712 0            254000030712 
ST9	030712 030620 0   0   000000030712 0            254000030712 


*030712 SETZM	0,030037
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030712 030712 0   0   402000030037 0            000000030037 
IT1	030712 0      0   0   402000030037 0            000000030037 
AT3	030712 0      0   0   000000030037 0            402000030037 
AT6	030712 030037 0   0   000000030037 0            402000030037 
FT1A	030712 030037 0   0   000000030037 0            000000030037 
FT9	030713 030037 0   0   000000030037 0            000000030037 
ET0	030713 030037 0   0   0            0            000000030037 
ST6	030713 030037 0   0   0            0            000000030037 
ST6A	030713 030037 0   0   0            0            000000030037 
ST9	030713 030037 0   0   0            0            000000030037 


*030713 JSP	0,030714
INITIAL
C(AC)=000000 030602 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030713 030713 0   0   265000030714 0            000000030714 
IT1	030713 0      0   0   265000030714 0            000000030714 
AT3	030713 0      0   0   000000030714 0            265000030714 
AT6	030713 030714 0   0   000000030714 0            265000030714 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 7
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0286

FT1A	030713 030714 0   0   000000030714 0            000000030714 
FT9	030714 030714 0   0   000000030714 0            000000030714 
ET0	030714 030714 0   0   000000030714 0            000000030714 
ST1	030714 030714 0   0   000000030714 0            000000030714 
ST2	030714 030714 0   0   000000030714 0            000000030714 
ST9	030714 030714 0   0   000000030714 0            000000030714 


*030714 TLNE	0,010000
INITIAL
C(AC)=000000 030714 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030714 030714 0   0   603000010000 0            0            
IT1	030714 0      0   0   603000010000 0            0            
AT3	030714 0      0   0   000000010000 0            603000010000 
AT6	030714 0      0   0   000000010000 0            603000010000 
FT1A	030714 0      0   0   000000010000 0            000000010000 
FT2	030714 0      0   0   0            0            000000010000 
FT2RQ	030714 0      0   0   000000030714 0            000000010000 
FT3	030714 0      0   0   000000030714 0            000000010000 
FT9	030715 0      0   0   000000030714 0            000000010000 
ET0	030715 0      0   0   030714000000 0            000000010000 
ET1	030715 0      0   0   030714000000 0            0            
ET2	030716 0      0   0   000000030714 0            0            
ST1A	030716 0      0   0   000000030714 0            0            
ST9	030716 0      0   0   000000030714 0            0            


*030716 SKIPN	0,030042
INITIAL
C(AC)=000000 030714 
C(E)=777777 777777 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030716 030716 0   0   336000030042 0            777777777777 
IT1	030716 0      0   0   336000030042 0            777777777777 
AT3	030716 0      0   0   000000030042 0            336000030042 
AT6	030716 030042 0   0   000000030042 0            336000030042 
FT0	030716 030042 0   0   777777777777 0            336000030042 
FT1A	030716 030042 0   0   777777777777 0            777777777777 
FT9	030717 030042 0   0   777777777777 0            777777777777 
ET0	030720 030042 0   0   777777777777 0            777777777777 
ST1A	030720 030042 0   0   777777777777 0            777777777777 
ST9	030720 030042 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 8
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0287

*030720 SKIPN	0,030037
INITIAL
C(AC)=000000 030714 
C(E)=000000 000000 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030720 030720 0   0   336000030037 0            0            
IT1	030720 0      0   0   336000030037 0            0            
AT3	030720 0      0   0   000000030037 0            336000030037 
AT6	030720 030037 0   0   000000030037 0            336000030037 
FT0	030720 030037 0   0   0            0            336000030037 
FT1A	030720 030037 0   0   0            0            0            
FT9	030721 030037 0   0   0            0            0            
ET0	030721 030037 0   0   0            0            0            
ST1A	030721 030037 0   0   0            0            0            
ST9	030721 030037 0   0   0            0            0            


*030721 JRST	0,030742
INITIAL
C(AC)=000000 030714 
C(E)=200000 035412 
FINAL

C(E)=200000 035412 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030721 030721 0   0   254000030742 0            254000030742 
IT1	030721 0      0   0   254000030742 0            254000030742 
AT3	030721 0      0   0   000000030742 0            254000030742 
AT6	030721 030742 0   0   000000030742 0            254000030742 
FT1A	030721 030742 0   0   000000030742 0            254000030742 
FT9	030722 030742 0   0   000000030742 0            254000030742 
ET0	030742 030722 0   0   000000030742 0            254000030742 
ST1A	030742 030722 0   0   000000030742 0            254000030742 
ST9	030742 030722 0   0   000000030742 0            254000030742 


*030742 MOVE 	0,035412
INITIAL
C(AC)=000000 030714 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030742 030742 0   0   200000035412 0            0            
IT1	030742 0      0   0   200000035412 0            0            
AT3	030742 0      0   0   000000035412 0            200000035412 
AT6	030742 035412 0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 9
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0288

FT0	030742 035412 0   0   0            0            200000035412 
FT1A	030742 035412 0   0   0            0            0            
FT9	030743 035412 0   0   0            0            0            
ET0	030743 035412 0   0   0            0            0            
ST1	030743 035412 0   0   0            0            0            
ST2	030743 035412 0   0   0            0            0            
ST9	030743 035412 0   0   0            0            0            


*030743 ADD 	0,035413
INITIAL
C(AC)=000000 000000 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030743 030743 0   0   270000035413 0            123456765432 
IT1	030743 0      0   0   270000035413 0            123456765432 
AT3	030743 0      0   0   000000035413 0            270000035413 
AT6	030743 035413 0   0   000000035413 0            270000035413 
FT0	030743 035413 0   0   123456765432 0            270000035413 
FT1A	030743 035413 0   0   123456765432 0            123456765432 
FT2	030743 035413 0   0   0            0            123456765432 
FT2RQ	030743 035413 0   0   0            0            123456765432 
FT3	030743 035413 0   0   0            0            123456765432 
FT9	030744 035413 0   0   0            0            123456765432 
ET0	030744 035413 0   0   123456765432 0            123456765432 
ST1	030744 035413 0   0   123456765432 0            123456765432 
ST2	030744 035413 0   0   123456765432 0            123456765432 
ST9	030744 035413 0   0   123456765432 0            123456765432 


*030744 SKIPN	0,000000
INITIAL
C(AC)=123456 765432 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030744 030744 0   0   336000000000 0            123456765432 
IT1	030744 0      0   0   336000000000 0            123456765432 
AT3	030744 0      0   0   0            0            336000000000 
AT6	030744 0      0   0   0            0            336000000000 
FT0	030744 0      0   0   123456765432 0            336000000000 
FT1A	030744 0      0   0   123456765432 0            123456765432 
FT9	030745 0      0   0   123456765432 0            123456765432 
ET0	030746 0      0   0   123456765432 0            123456765432 
ST1A	030746 0      0   0   123456765432 0            123456765432 
ST9	030746 0      0   0   123456765432 0            123456765432 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 10
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0289


*030746 JUMPA	0,030747
INITIAL
C(AC)=123456 765432 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030746 030746 0   0   324000030747 0            000000030747 
IT1	030746 0      0   0   324000030747 0            000000030747 
AT3	030746 0      0   0   000000030747 0            324000030747 
AT6	030746 030747 0   0   000000030747 0            324000030747 
FT1A	030746 030747 0   0   000000030747 0            000000030747 
FT2	030746 030747 0   0   0            0            000000030747 
FT2RQ	030746 030747 0   0   123456765432 0            000000030747 
FT3	030746 030747 0   0   123456765432 0            000000030747 
FT9	030747 030747 0   0   123456765432 0            000000030747 
ET0	030747 030747 0   0   123456765432 0            000000030747 
ST1A	030747 030747 0   0   123456765432 0            000000030747 
ST9	030747 030747 0   0   123456765432 0            000000030747 


*030747 MOVE 	0,035413
INITIAL
C(AC)=123456 765432 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030747 030747 0   0   200000035413 0            123456765432 
IT1	030747 0      0   0   200000035413 0            123456765432 
AT3	030747 0      0   0   000000035413 0            200000035413 
AT6	030747 035413 0   0   000000035413 0            200000035413 
FT0	030747 035413 0   0   123456765432 0            200000035413 
FT1A	030747 035413 0   0   123456765432 0            123456765432 
FT9	030750 035413 0   0   123456765432 0            123456765432 
ET0	030750 035413 0   0   123456765432 0            123456765432 
ST1	030750 035413 0   0   123456765432 0            123456765432 
ST2	030750 035413 0   0   123456765432 0            123456765432 
ST9	030750 035413 0   0   123456765432 0            123456765432 


*030750 ADD 	0,035412
INITIAL
C(AC)=123456 765432 
C(E)=000000 000000 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030750 030750 0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 11
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0290

IT1	030750 0      0   0   270000035412 0            0            
AT3	030750 0      0   0   000000035412 0            270000035412 
AT6	030750 035412 0   0   000000035412 0            270000035412 
FT0	030750 035412 0   0   0            0            270000035412 
FT1A	030750 035412 0   0   0            0            0            
FT2	030750 035412 0   0   0            0            0            
FT2RQ	030750 035412 0   0   123456765432 0            0            
FT3	030750 035412 0   0   123456765432 0            0            
FT9	030751 035412 0   0   123456765432 0            0            
ET0	030751 035412 0   0   123456765432 0            0            
ST1	030751 035412 0   0   123456765432 0            0            
ST2	030751 035412 0   0   123456765432 0            0            
ST9	030751 035412 0   0   123456765432 0            0            


*030751 SKIPN	0,000000
INITIAL
C(AC)=123456 765432 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030751 030751 0   0   336000000000 0            123456765432 
IT1	030751 0      0   0   336000000000 0            123456765432 
AT3	030751 0      0   0   0            0            336000000000 
AT6	030751 0      0   0   0            0            336000000000 
FT0	030751 0      0   0   123456765432 0            336000000000 
FT1A	030751 0      0   0   123456765432 0            123456765432 
FT9	030752 0      0   0   123456765432 0            123456765432 
ET0	030753 0      0   0   123456765432 0            123456765432 
ST1A	030753 0      0   0   123456765432 0            123456765432 
ST9	030753 0      0   0   123456765432 0            123456765432 


*030753 JUMPA	0,030754
INITIAL
C(AC)=123456 765432 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030753 030753 0   0   324000030754 0            000000030754 
IT1	030753 0      0   0   324000030754 0            000000030754 
AT3	030753 0      0   0   000000030754 0            324000030754 
AT6	030753 030754 0   0   000000030754 0            324000030754 
FT1A	030753 030754 0   0   000000030754 0            000000030754 
FT2	030753 030754 0   0   0            0            000000030754 
FT2RQ	030753 030754 0   0   123456765432 0            000000030754 
FT3	030753 030754 0   0   123456765432 0            000000030754 
FT9	030754 030754 0   0   123456765432 0            000000030754 
ET0	030754 030754 0   0   123456765432 0            000000030754 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 12
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0291

ST1A	030754 030754 0   0   123456765432 0            000000030754 
ST9	030754 030754 0   0   123456765432 0            000000030754 


*030754 MOVE 	0,035414
INITIAL
C(AC)=123456 765432 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030754 030754 0   0   200000035414 0            123456000000 
IT1	030754 0      0   0   200000035414 0            123456000000 
AT3	030754 0      0   0   000000035414 0            200000035414 
AT6	030754 035414 0   0   000000035414 0            200000035414 
FT0	030754 035414 0   0   123456000000 0            200000035414 
FT1A	030754 035414 0   0   123456000000 0            123456000000 
FT9	030755 035414 0   0   123456000000 0            123456000000 
ET0	030755 035414 0   0   123456000000 0            123456000000 
ST1	030755 035414 0   0   123456000000 0            123456000000 
ST2	030755 035414 0   0   123456000000 0            123456000000 
ST9	030755 035414 0   0   123456000000 0            123456000000 


*030755 ADD 	0,035412
INITIAL
C(AC)=123456 000000 
C(E)=000000 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030755 030755 0   0   270000035412 0            0            
IT1	030755 0      0   0   270000035412 0            0            
AT3	030755 0      0   0   000000035412 0            270000035412 
AT6	030755 035412 0   0   000000035412 0            270000035412 
FT0	030755 035412 0   0   0            0            270000035412 
FT1A	030755 035412 0   0   0            0            0            
FT2	030755 035412 0   0   0            0            0            
FT2RQ	030755 035412 0   0   123456000000 0            0            
FT3	030755 035412 0   0   123456000000 0            0            
FT9	030756 035412 0   0   123456000000 0            0            
ET0	030756 035412 0   0   123456000000 0            0            
ST1	030756 035412 0   0   123456000000 0            0            
ST2	030756 035412 0   0   123456000000 0            0            
ST9	030756 035412 0   0   123456000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 13
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0292

*030756 SKIPN	0,000000
INITIAL
C(AC)=123456 000000 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030756 030756 0   0   336000000000 0            123456000000 
IT1	030756 0      0   0   336000000000 0            123456000000 
AT3	030756 0      0   0   0            0            336000000000 
AT6	030756 0      0   0   0            0            336000000000 
FT0	030756 0      0   0   123456000000 0            336000000000 
FT1A	030756 0      0   0   123456000000 0            123456000000 
FT9	030757 0      0   0   123456000000 0            123456000000 
ET0	030760 0      0   0   123456000000 0            123456000000 
ST1A	030760 0      0   0   123456000000 0            123456000000 
ST9	030760 0      0   0   123456000000 0            123456000000 


*030760 JUMPA	0,030761
INITIAL
C(AC)=123456 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030760 030760 0   0   324000030761 0            000000030761 
IT1	030760 0      0   0   324000030761 0            000000030761 
AT3	030760 0      0   0   000000030761 0            324000030761 
AT6	030760 030761 0   0   000000030761 0            324000030761 
FT1A	030760 030761 0   0   000000030761 0            000000030761 
FT2	030760 030761 0   0   0            0            000000030761 
FT2RQ	030760 030761 0   0   123456000000 0            000000030761 
FT3	030760 030761 0   0   123456000000 0            000000030761 
FT9	030761 030761 0   0   123456000000 0            000000030761 
ET0	030761 030761 0   0   123456000000 0            000000030761 
ST1A	030761 030761 0   0   123456000000 0            000000030761 
ST9	030761 030761 0   0   123456000000 0            000000030761 


*030761 MOVE 	0,035415
INITIAL
C(AC)=123456 000000 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030761 030761 0   0   200000035415 0            000000123456 
IT1	030761 0      0   0   200000035415 0            000000123456 
AT3	030761 0      0   0   000000035415 0            200000035415 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 14
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0293

AT6	030761 035415 0   0   000000035415 0            200000035415 
FT0	030761 035415 0   0   000000123456 0            200000035415 
FT1A	030761 035415 0   0   000000123456 0            000000123456 
FT9	030762 035415 0   0   000000123456 0            000000123456 
ET0	030762 035415 0   0   000000123456 0            000000123456 
ST1	030762 035415 0   0   000000123456 0            000000123456 
ST2	030762 035415 0   0   000000123456 0            000000123456 
ST9	030762 035415 0   0   000000123456 0            000000123456 


*030762 ADD 	0,035412
INITIAL
C(AC)=000000 123456 
C(E)=000000 000000 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030762 030762 0   0   270000035412 0            0            
IT1	030762 0      0   0   270000035412 0            0            
AT3	030762 0      0   0   000000035412 0            270000035412 
AT6	030762 035412 0   0   000000035412 0            270000035412 
FT0	030762 035412 0   0   0            0            270000035412 
FT1A	030762 035412 0   0   0            0            0            
FT2	030762 035412 0   0   0            0            0            
FT2RQ	030762 035412 0   0   000000123456 0            0            
FT3	030762 035412 0   0   000000123456 0            0            
FT9	030763 035412 0   0   000000123456 0            0            
ET0	030763 035412 0   0   000000123456 0            0            
ST1	030763 035412 0   0   000000123456 0            0            
ST2	030763 035412 0   0   000000123456 0            0            
ST9	030763 035412 0   0   000000123456 0            0            


*030763 SKIPN	0,000000
INITIAL
C(AC)=000000 123456 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030763 030763 0   0   336000000000 0            000000123456 
IT1	030763 0      0   0   336000000000 0            000000123456 
AT3	030763 0      0   0   0            0            336000000000 
AT6	030763 0      0   0   0            0            336000000000 
FT0	030763 0      0   0   000000123456 0            336000000000 
FT1A	030763 0      0   0   000000123456 0            000000123456 
FT9	030764 0      0   0   000000123456 0            000000123456 
ET0	030765 0      0   0   000000123456 0            000000123456 
ST1A	030765 0      0   0   000000123456 0            000000123456 
ST9	030765 0      0   0   000000123456 0            000000123456 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 15
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0294



*030765 JUMPA	0,030766
INITIAL
C(AC)=000000 123456 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030765 030765 0   0   324000030766 0            000000030766 
IT1	030765 0      0   0   324000030766 0            000000030766 
AT3	030765 0      0   0   000000030766 0            324000030766 
AT6	030765 030766 0   0   000000030766 0            324000030766 
FT1A	030765 030766 0   0   000000030766 0            000000030766 
FT2	030765 030766 0   0   0            0            000000030766 
FT2RQ	030765 030766 0   0   000000123456 0            000000030766 
FT3	030765 030766 0   0   000000123456 0            000000030766 
FT9	030766 030766 0   0   000000123456 0            000000030766 
ET0	030766 030766 0   0   000000123456 0            000000030766 
ST1A	030766 030766 0   0   000000123456 0            000000030766 
ST9	030766 030766 0   0   000000123456 0            000000030766 


*030766 MOVE 	0,035412
INITIAL
C(AC)=000000 123456 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030766 030766 0   0   200000035412 0            0            
IT1	030766 0      0   0   200000035412 0            0            
AT3	030766 0      0   0   000000035412 0            200000035412 
AT6	030766 035412 0   0   000000035412 0            200000035412 
FT0	030766 035412 0   0   0            0            200000035412 
FT1A	030766 035412 0   0   0            0            0            
FT9	030767 035412 0   0   0            0            0            
ET0	030767 035412 0   0   0            0            0            
ST1	030767 035412 0   0   0            0            0            
ST2	030767 035412 0   0   0            0            0            
ST9	030767 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 16
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0295

*030767 ADD 	0,035414
INITIAL
C(AC)=000000 000000 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030767 030767 0   0   270000035414 0            123456000000 
IT1	030767 0      0   0   270000035414 0            123456000000 
AT3	030767 0      0   0   000000035414 0            270000035414 
AT6	030767 035414 0   0   000000035414 0            270000035414 
FT0	030767 035414 0   0   123456000000 0            270000035414 
FT1A	030767 035414 0   0   123456000000 0            123456000000 
FT2	030767 035414 0   0   0            0            123456000000 
FT2RQ	030767 035414 0   0   0            0            123456000000 
FT3	030767 035414 0   0   0            0            123456000000 
FT9	030770 035414 0   0   0            0            123456000000 
ET0	030770 035414 0   0   123456000000 0            123456000000 
ST1	030770 035414 0   0   123456000000 0            123456000000 
ST2	030770 035414 0   0   123456000000 0            123456000000 
ST9	030770 035414 0   0   123456000000 0            123456000000 


*030770 SKIPN	0,000000
INITIAL
C(AC)=123456 000000 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030770 030770 0   0   336000000000 0            123456000000 
IT1	030770 0      0   0   336000000000 0            123456000000 
AT3	030770 0      0   0   0            0            336000000000 
AT6	030770 0      0   0   0            0            336000000000 
FT0	030770 0      0   0   123456000000 0            336000000000 
FT1A	030770 0      0   0   123456000000 0            123456000000 
FT9	030771 0      0   0   123456000000 0            123456000000 
ET0	030772 0      0   0   123456000000 0            123456000000 
ST1A	030772 0      0   0   123456000000 0            123456000000 
ST9	030772 0      0   0   123456000000 0            123456000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 17
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0296

*030772 JUMPA	0,030773
INITIAL
C(AC)=123456 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030772 030772 0   0   324000030773 0            000000030773 
IT1	030772 0      0   0   324000030773 0            000000030773 
AT3	030772 0      0   0   000000030773 0            324000030773 
AT6	030772 030773 0   0   000000030773 0            324000030773 
FT1A	030772 030773 0   0   000000030773 0            000000030773 
FT2	030772 030773 0   0   0            0            000000030773 
FT2RQ	030772 030773 0   0   123456000000 0            000000030773 
FT3	030772 030773 0   0   123456000000 0            000000030773 
FT9	030773 030773 0   0   123456000000 0            000000030773 
ET0	030773 030773 0   0   123456000000 0            000000030773 
ST1A	030773 030773 0   0   123456000000 0            000000030773 
ST9	030773 030773 0   0   123456000000 0            000000030773 


*030773 MOVE 	0,035412
INITIAL
C(AC)=123456 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030773 030773 0   0   200000035412 0            0            
IT1	030773 0      0   0   200000035412 0            0            
AT3	030773 0      0   0   000000035412 0            200000035412 
AT6	030773 035412 0   0   000000035412 0            200000035412 
FT0	030773 035412 0   0   0            0            200000035412 
FT1A	030773 035412 0   0   0            0            0            
FT9	030774 035412 0   0   0            0            0            
ET0	030774 035412 0   0   0            0            0            
ST1	030774 035412 0   0   0            0            0            
ST2	030774 035412 0   0   0            0            0            
ST9	030774 035412 0   0   0            0            0            


*030774 ADD 	0,035415
INITIAL
C(AC)=000000 000000 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030774 030774 0   0   270000035415 0            000000123456 
IT1	030774 0      0   0   270000035415 0            000000123456 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 18
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0297

AT3	030774 0      0   0   000000035415 0            270000035415 
AT6	030774 035415 0   0   000000035415 0            270000035415 
FT0	030774 035415 0   0   000000123456 0            270000035415 
FT1A	030774 035415 0   0   000000123456 0            000000123456 
FT2	030774 035415 0   0   0            0            000000123456 
FT2RQ	030774 035415 0   0   0            0            000000123456 
FT3	030774 035415 0   0   0            0            000000123456 
FT9	030775 035415 0   0   0            0            000000123456 
ET0	030775 035415 0   0   000000123456 0            000000123456 
ST1	030775 035415 0   0   000000123456 0            000000123456 
ST2	030775 035415 0   0   000000123456 0            000000123456 
ST9	030775 035415 0   0   000000123456 0            000000123456 


*030775 SKIPN	0,000000
INITIAL
C(AC)=000000 123456 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030775 030775 0   0   336000000000 0            000000123456 
IT1	030775 0      0   0   336000000000 0            000000123456 
AT3	030775 0      0   0   0            0            336000000000 
AT6	030775 0      0   0   0            0            336000000000 
FT0	030775 0      0   0   000000123456 0            336000000000 
FT1A	030775 0      0   0   000000123456 0            000000123456 
FT9	030776 0      0   0   000000123456 0            000000123456 
ET0	030777 0      0   0   000000123456 0            000000123456 
ST1A	030777 0      0   0   000000123456 0            000000123456 
ST9	030777 0      0   0   000000123456 0            000000123456 


*030777 JUMPA	0,031000
INITIAL
C(AC)=000000 123456 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030777 030777 0   0   324000031000 0            000000031000 
IT1	030777 0      0   0   324000031000 0            000000031000 
AT3	030777 0      0   0   000000031000 0            324000031000 
AT6	030777 0      0   0   000000031000 0            324000031000 
FT1A	030777 0      0   0   000000031000 0            000000031000 
FT2	030777 0      0   0   0            0            000000031000 
FT2RQ	030777 0      0   0   000000123456 0            000000031000 
FT3	030777 0      0   0   000000123456 0            000000031000 
FT9	0      0      0   0   000000123456 0            000000031000 
ET0	0      0      0   0   000000123456 0            000000031000 
ST1A	0      0      0   0   000000123456 0            000000031000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 19
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0298

ST9	0      0      0   0   000000123456 0            000000031000 


*031000 MOVE 	0,035416
INITIAL
C(AC)=000000 123456 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035416 0            000000000001 
IT1	0      0      0   0   200000035416 0            000000000001 
AT3	0      0      0   0   000000035416 0            200000035416 
AT6	0      035416 0   0   000000035416 0            200000035416 
FT0	0      035416 0   0   000000000001 0            200000035416 
FT1A	0      035416 0   0   000000000001 0            000000000001 
FT9	031001 035416 0   0   000000000001 0            000000000001 
ET0	031001 035416 0   0   000000000001 0            000000000001 
ST1	031001 035416 0   0   000000000001 0            000000000001 
ST2	031001 035416 0   0   000000000001 0            000000000001 
ST9	031001 035416 0   0   000000000001 0            000000000001 


*031001 ADD 	0,035412
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031001 031001 0   0   270000035412 0            0            
IT1	031001 0      0   0   270000035412 0            0            
AT3	031001 0      0   0   000000035412 0            270000035412 
AT6	031001 035412 0   0   000000035412 0            270000035412 
FT0	031001 035412 0   0   0            0            270000035412 
FT1A	031001 035412 0   0   0            0            0            
FT2	031001 035412 0   0   0            0            0            
FT2RQ	031001 035412 0   0   000000000001 0            0            
FT3	031001 035412 0   0   000000000001 0            0            
FT9	031002 035412 0   0   000000000001 0            0            
ET0	031002 035412 0   0   000000000001 0            0            
ST1	031002 035412 0   0   000000000001 0            0            
ST2	031002 035412 0   0   000000000001 0            0            
ST9	031002 035412 0   0   000000000001 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 20
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0299

*031002 EQV 	0,035416
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031002 031002 0   0   444000035416 0            000000000001 
IT1	031002 0      0   0   444000035416 0            000000000001 
AT3	031002 0      0   0   000000035416 0            444000035416 
AT6	031002 035416 0   0   000000035416 0            444000035416 
FT0	031002 035416 0   0   000000000001 0            444000035416 
FT1A	031002 035416 0   0   000000000001 0            000000000001 
FT2	031002 035416 0   0   0            0            000000000001 
FT2RQ	031002 035416 0   0   000000000001 0            000000000001 
FT3	031002 035416 0   0   000000000001 0            000000000001 
FT9	031003 035416 0   0   000000000001 0            000000000001 
ET0	031003 035416 0   0   777777777777 0            000000000001 
ST1	031003 035416 0   0   777777777777 0            000000000001 
ST2	031003 035416 0   0   777777777777 0            000000000001 
ST9	031003 035416 0   0   777777777777 0            000000000001 


*031003 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031003 031003 0   0   444000035412 0            0            
IT1	031003 0      0   0   444000035412 0            0            
AT3	031003 0      0   0   000000035412 0            444000035412 
AT6	031003 035412 0   0   000000035412 0            444000035412 
FT0	031003 035412 0   0   0            0            444000035412 
FT1A	031003 035412 0   0   0            0            0            
FT2	031003 035412 0   0   0            0            0            
FT2RQ	031003 035412 0   0   777777777777 0            0            
FT3	031003 035412 0   0   777777777777 0            0            
FT9	031004 035412 0   0   777777777777 0            0            
ET0	031004 035412 0   0   0            0            0            
ST1	031004 035412 0   0   0            0            0            
ST2	031004 035412 0   0   0            0            0            
ST9	031004 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 21
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0300

*031004 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031004 031004 0   0   332000000000 0            0            
IT1	031004 0      0   0   332000000000 0            0            
AT3	031004 0      0   0   0            0            332000000000 
AT6	031004 0      0   0   0            0            332000000000 
FT0	031004 0      0   0   0            0            332000000000 
FT1A	031004 0      0   0   0            0            0            
FT9	031005 0      0   0   0            0            0            
ET0	031006 0      0   0   0            0            0            
ST1A	031006 0      0   0   0            0            0            
ST9	031006 0      0   0   0            0            0            


*031006 JUMPA	0,031007
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031006 031006 0   0   324000031007 0            000000031007 
IT1	031006 0      0   0   324000031007 0            000000031007 
AT3	031006 0      0   0   000000031007 0            324000031007 
AT6	031006 031007 0   0   000000031007 0            324000031007 
FT1A	031006 031007 0   0   000000031007 0            000000031007 
FT2	031006 031007 0   0   0            0            000000031007 
FT2RQ	031006 031007 0   0   0            0            000000031007 
FT3	031006 031007 0   0   0            0            000000031007 
FT9	031007 031007 0   0   0            0            000000031007 
ET0	031007 031007 0   0   0            0            000000031007 
ST1A	031007 031007 0   0   0            0            000000031007 
ST9	031007 031007 0   0   0            0            000000031007 


*031007 MOVE 	0,035417
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031007 031007 0   0   200000035417 0            000000000002 
IT1	031007 0      0   0   200000035417 0            000000000002 
AT3	031007 0      0   0   000000035417 0            200000035417 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 22
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0301

AT6	031007 035417 0   0   000000035417 0            200000035417 
FT0	031007 035417 0   0   000000000002 0            200000035417 
FT1A	031007 035417 0   0   000000000002 0            000000000002 
FT9	031010 035417 0   0   000000000002 0            000000000002 
ET0	031010 035417 0   0   000000000002 0            000000000002 
ST1	031010 035417 0   0   000000000002 0            000000000002 
ST2	031010 035417 0   0   000000000002 0            000000000002 
ST9	031010 035417 0   0   000000000002 0            000000000002 


*031010 ADD 	0,035412
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031010 031010 0   0   270000035412 0            0            
IT1	031010 0      0   0   270000035412 0            0            
AT3	031010 0      0   0   000000035412 0            270000035412 
AT6	031010 035412 0   0   000000035412 0            270000035412 
FT0	031010 035412 0   0   0            0            270000035412 
FT1A	031010 035412 0   0   0            0            0            
FT2	031010 035412 0   0   0            0            0            
FT2RQ	031010 035412 0   0   000000000002 0            0            
FT3	031010 035412 0   0   000000000002 0            0            
FT9	031011 035412 0   0   000000000002 0            0            
ET0	031011 035412 0   0   000000000002 0            0            
ST1	031011 035412 0   0   000000000002 0            0            
ST2	031011 035412 0   0   000000000002 0            0            
ST9	031011 035412 0   0   000000000002 0            0            


*031011 EQV 	0,035417
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031011 031011 0   0   444000035417 0            000000000002 
IT1	031011 0      0   0   444000035417 0            000000000002 
AT3	031011 0      0   0   000000035417 0            444000035417 
AT6	031011 035417 0   0   000000035417 0            444000035417 
FT0	031011 035417 0   0   000000000002 0            444000035417 
FT1A	031011 035417 0   0   000000000002 0            000000000002 
FT2	031011 035417 0   0   0            0            000000000002 
FT2RQ	031011 035417 0   0   000000000002 0            000000000002 
FT3	031011 035417 0   0   000000000002 0            000000000002 
FT9	031012 035417 0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 23
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0302

ET0	031012 035417 0   0   777777777777 0            000000000002 
ST1	031012 035417 0   0   777777777777 0            000000000002 
ST2	031012 035417 0   0   777777777777 0            000000000002 
ST9	031012 035417 0   0   777777777777 0            000000000002 


*031012 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031012 031012 0   0   444000035412 0            0            
IT1	031012 0      0   0   444000035412 0            0            
AT3	031012 0      0   0   000000035412 0            444000035412 
AT6	031012 035412 0   0   000000035412 0            444000035412 
FT0	031012 035412 0   0   0            0            444000035412 
FT1A	031012 035412 0   0   0            0            0            
FT2	031012 035412 0   0   0            0            0            
FT2RQ	031012 035412 0   0   777777777777 0            0            
FT3	031012 035412 0   0   777777777777 0            0            
FT9	031013 035412 0   0   777777777777 0            0            
ET0	031013 035412 0   0   0            0            0            
ST1	031013 035412 0   0   0            0            0            
ST2	031013 035412 0   0   0            0            0            
ST9	031013 035412 0   0   0            0            0            


*031013 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031013 031013 0   0   332000000000 0            0            
IT1	031013 0      0   0   332000000000 0            0            
AT3	031013 0      0   0   0            0            332000000000 
AT6	031013 0      0   0   0            0            332000000000 
FT0	031013 0      0   0   0            0            332000000000 
FT1A	031013 0      0   0   0            0            0            
FT9	031014 0      0   0   0            0            0            
ET0	031015 0      0   0   0            0            0            
ST1A	031015 0      0   0   0            0            0            
ST9	031015 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 24
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0303

*031015 JUMPA	0,031016
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031015 031015 0   0   324000031016 0            000000031016 
IT1	031015 0      0   0   324000031016 0            000000031016 
AT3	031015 0      0   0   000000031016 0            324000031016 
AT6	031015 031016 0   0   000000031016 0            324000031016 
FT1A	031015 031016 0   0   000000031016 0            000000031016 
FT2	031015 031016 0   0   0            0            000000031016 
FT2RQ	031015 031016 0   0   0            0            000000031016 
FT3	031015 031016 0   0   0            0            000000031016 
FT9	031016 031016 0   0   0            0            000000031016 
ET0	031016 031016 0   0   0            0            000000031016 
ST1A	031016 031016 0   0   0            0            000000031016 
ST9	031016 031016 0   0   0            0            000000031016 


*031016 MOVE 	0,035420
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031016 031016 0   0   200000035420 0            000000000004 
IT1	031016 0      0   0   200000035420 0            000000000004 
AT3	031016 0      0   0   000000035420 0            200000035420 
AT6	031016 035420 0   0   000000035420 0            200000035420 
FT0	031016 035420 0   0   000000000004 0            200000035420 
FT1A	031016 035420 0   0   000000000004 0            000000000004 
FT9	031017 035420 0   0   000000000004 0            000000000004 
ET0	031017 035420 0   0   000000000004 0            000000000004 
ST1	031017 035420 0   0   000000000004 0            000000000004 
ST2	031017 035420 0   0   000000000004 0            000000000004 
ST9	031017 035420 0   0   000000000004 0            000000000004 


*031017 ADD 	0,035412
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031017 031017 0   0   270000035412 0            0            
IT1	031017 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 25
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0304

AT3	031017 0      0   0   000000035412 0            270000035412 
AT6	031017 035412 0   0   000000035412 0            270000035412 
FT0	031017 035412 0   0   0            0            270000035412 
FT1A	031017 035412 0   0   0            0            0            
FT2	031017 035412 0   0   0            0            0            
FT2RQ	031017 035412 0   0   000000000004 0            0            
FT3	031017 035412 0   0   000000000004 0            0            
FT9	031020 035412 0   0   000000000004 0            0            
ET0	031020 035412 0   0   000000000004 0            0            
ST1	031020 035412 0   0   000000000004 0            0            
ST2	031020 035412 0   0   000000000004 0            0            
ST9	031020 035412 0   0   000000000004 0            0            


*031020 EQV 	0,035420
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031020 031020 0   0   444000035420 0            000000000004 
IT1	031020 0      0   0   444000035420 0            000000000004 
AT3	031020 0      0   0   000000035420 0            444000035420 
AT6	031020 035420 0   0   000000035420 0            444000035420 
FT0	031020 035420 0   0   000000000004 0            444000035420 
FT1A	031020 035420 0   0   000000000004 0            000000000004 
FT2	031020 035420 0   0   0            0            000000000004 
FT2RQ	031020 035420 0   0   000000000004 0            000000000004 
FT3	031020 035420 0   0   000000000004 0            000000000004 
FT9	031021 035420 0   0   000000000004 0            000000000004 
ET0	031021 035420 0   0   777777777777 0            000000000004 
ST1	031021 035420 0   0   777777777777 0            000000000004 
ST2	031021 035420 0   0   777777777777 0            000000000004 
ST9	031021 035420 0   0   777777777777 0            000000000004 


*031021 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031021 031021 0   0   444000035412 0            0            
IT1	031021 0      0   0   444000035412 0            0            
AT3	031021 0      0   0   000000035412 0            444000035412 
AT6	031021 035412 0   0   000000035412 0            444000035412 
FT0	031021 035412 0   0   0            0            444000035412 
FT1A	031021 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 26
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0305

FT2	031021 035412 0   0   0            0            0            
FT2RQ	031021 035412 0   0   777777777777 0            0            
FT3	031021 035412 0   0   777777777777 0            0            
FT9	031022 035412 0   0   777777777777 0            0            
ET0	031022 035412 0   0   0            0            0            
ST1	031022 035412 0   0   0            0            0            
ST2	031022 035412 0   0   0            0            0            
ST9	031022 035412 0   0   0            0            0            


*031022 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031022 031022 0   0   332000000000 0            0            
IT1	031022 0      0   0   332000000000 0            0            
AT3	031022 0      0   0   0            0            332000000000 
AT6	031022 0      0   0   0            0            332000000000 
FT0	031022 0      0   0   0            0            332000000000 
FT1A	031022 0      0   0   0            0            0            
FT9	031023 0      0   0   0            0            0            
ET0	031024 0      0   0   0            0            0            
ST1A	031024 0      0   0   0            0            0            
ST9	031024 0      0   0   0            0            0            


*031024 JUMPA	0,031025
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031024 031024 0   0   324000031025 0            000000031025 
IT1	031024 0      0   0   324000031025 0            000000031025 
AT3	031024 0      0   0   000000031025 0            324000031025 
AT6	031024 031025 0   0   000000031025 0            324000031025 
FT1A	031024 031025 0   0   000000031025 0            000000031025 
FT2	031024 031025 0   0   0            0            000000031025 
FT2RQ	031024 031025 0   0   0            0            000000031025 
FT3	031024 031025 0   0   0            0            000000031025 
FT9	031025 031025 0   0   0            0            000000031025 
ET0	031025 031025 0   0   0            0            000000031025 
ST1A	031025 031025 0   0   0            0            000000031025 
ST9	031025 031025 0   0   0            0            000000031025 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 27
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0306

*031025 MOVE 	0,035421
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031025 031025 0   0   200000035421 0            000000000010 
IT1	031025 0      0   0   200000035421 0            000000000010 
AT3	031025 0      0   0   000000035421 0            200000035421 
AT6	031025 035421 0   0   000000035421 0            200000035421 
FT0	031025 035421 0   0   000000000010 0            200000035421 
FT1A	031025 035421 0   0   000000000010 0            000000000010 
FT9	031026 035421 0   0   000000000010 0            000000000010 
ET0	031026 035421 0   0   000000000010 0            000000000010 
ST1	031026 035421 0   0   000000000010 0            000000000010 
ST2	031026 035421 0   0   000000000010 0            000000000010 
ST9	031026 035421 0   0   000000000010 0            000000000010 


*031026 ADD 	0,035412
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031026 031026 0   0   270000035412 0            0            
IT1	031026 0      0   0   270000035412 0            0            
AT3	031026 0      0   0   000000035412 0            270000035412 
AT6	031026 035412 0   0   000000035412 0            270000035412 
FT0	031026 035412 0   0   0            0            270000035412 
FT1A	031026 035412 0   0   0            0            0            
FT2	031026 035412 0   0   0            0            0            
FT2RQ	031026 035412 0   0   000000000010 0            0            
FT3	031026 035412 0   0   000000000010 0            0            
FT9	031027 035412 0   0   000000000010 0            0            
ET0	031027 035412 0   0   000000000010 0            0            
ST1	031027 035412 0   0   000000000010 0            0            
ST2	031027 035412 0   0   000000000010 0            0            
ST9	031027 035412 0   0   000000000010 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 28
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0307

*031027 EQV 	0,035421
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031027 031027 0   0   444000035421 0            000000000010 
IT1	031027 0      0   0   444000035421 0            000000000010 
AT3	031027 0      0   0   000000035421 0            444000035421 
AT6	031027 035421 0   0   000000035421 0            444000035421 
FT0	031027 035421 0   0   000000000010 0            444000035421 
FT1A	031027 035421 0   0   000000000010 0            000000000010 
FT2	031027 035421 0   0   0            0            000000000010 
FT2RQ	031027 035421 0   0   000000000010 0            000000000010 
FT3	031027 035421 0   0   000000000010 0            000000000010 
FT9	031030 035421 0   0   000000000010 0            000000000010 
ET0	031030 035421 0   0   777777777777 0            000000000010 
ST1	031030 035421 0   0   777777777777 0            000000000010 
ST2	031030 035421 0   0   777777777777 0            000000000010 
ST9	031030 035421 0   0   777777777777 0            000000000010 


*031030 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031030 031030 0   0   444000035412 0            0            
IT1	031030 0      0   0   444000035412 0            0            
AT3	031030 0      0   0   000000035412 0            444000035412 
AT6	031030 035412 0   0   000000035412 0            444000035412 
FT0	031030 035412 0   0   0            0            444000035412 
FT1A	031030 035412 0   0   0            0            0            
FT2	031030 035412 0   0   0            0            0            
FT2RQ	031030 035412 0   0   777777777777 0            0            
FT3	031030 035412 0   0   777777777777 0            0            
FT9	031031 035412 0   0   777777777777 0            0            
ET0	031031 035412 0   0   0            0            0            
ST1	031031 035412 0   0   0            0            0            
ST2	031031 035412 0   0   0            0            0            
ST9	031031 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 29
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0308

*031031 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031031 031031 0   0   332000000000 0            0            
IT1	031031 0      0   0   332000000000 0            0            
AT3	031031 0      0   0   0            0            332000000000 
AT6	031031 0      0   0   0            0            332000000000 
FT0	031031 0      0   0   0            0            332000000000 
FT1A	031031 0      0   0   0            0            0            
FT9	031032 0      0   0   0            0            0            
ET0	031033 0      0   0   0            0            0            
ST1A	031033 0      0   0   0            0            0            
ST9	031033 0      0   0   0            0            0            


*031033 JUMPA	0,031034
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031033 031033 0   0   324000031034 0            000000031034 
IT1	031033 0      0   0   324000031034 0            000000031034 
AT3	031033 0      0   0   000000031034 0            324000031034 
AT6	031033 031034 0   0   000000031034 0            324000031034 
FT1A	031033 031034 0   0   000000031034 0            000000031034 
FT2	031033 031034 0   0   0            0            000000031034 
FT2RQ	031033 031034 0   0   0            0            000000031034 
FT3	031033 031034 0   0   0            0            000000031034 
FT9	031034 031034 0   0   0            0            000000031034 
ET0	031034 031034 0   0   0            0            000000031034 
ST1A	031034 031034 0   0   0            0            000000031034 
ST9	031034 031034 0   0   0            0            000000031034 


*031034 MOVE 	0,035422
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031034 031034 0   0   200000035422 0            000000000020 
IT1	031034 0      0   0   200000035422 0            000000000020 
AT3	031034 0      0   0   000000035422 0            200000035422 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 30
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0309

AT6	031034 035422 0   0   000000035422 0            200000035422 
FT0	031034 035422 0   0   000000000020 0            200000035422 
FT1A	031034 035422 0   0   000000000020 0            000000000020 
FT9	031035 035422 0   0   000000000020 0            000000000020 
ET0	031035 035422 0   0   000000000020 0            000000000020 
ST1	031035 035422 0   0   000000000020 0            000000000020 
ST2	031035 035422 0   0   000000000020 0            000000000020 
ST9	031035 035422 0   0   000000000020 0            000000000020 


*031035 ADD 	0,035412
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031035 031035 0   0   270000035412 0            0            
IT1	031035 0      0   0   270000035412 0            0            
AT3	031035 0      0   0   000000035412 0            270000035412 
AT6	031035 035412 0   0   000000035412 0            270000035412 
FT0	031035 035412 0   0   0            0            270000035412 
FT1A	031035 035412 0   0   0            0            0            
FT2	031035 035412 0   0   0            0            0            
FT2RQ	031035 035412 0   0   000000000020 0            0            
FT3	031035 035412 0   0   000000000020 0            0            
FT9	031036 035412 0   0   000000000020 0            0            
ET0	031036 035412 0   0   000000000020 0            0            
ST1	031036 035412 0   0   000000000020 0            0            
ST2	031036 035412 0   0   000000000020 0            0            
ST9	031036 035412 0   0   000000000020 0            0            


*031036 EQV 	0,035422
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031036 031036 0   0   444000035422 0            000000000020 
IT1	031036 0      0   0   444000035422 0            000000000020 
AT3	031036 0      0   0   000000035422 0            444000035422 
AT6	031036 035422 0   0   000000035422 0            444000035422 
FT0	031036 035422 0   0   000000000020 0            444000035422 
FT1A	031036 035422 0   0   000000000020 0            000000000020 
FT2	031036 035422 0   0   0            0            000000000020 
FT2RQ	031036 035422 0   0   000000000020 0            000000000020 
FT3	031036 035422 0   0   000000000020 0            000000000020 
FT9	031037 035422 0   0   000000000020 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 31
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0310

ET0	031037 035422 0   0   777777777777 0            000000000020 
ST1	031037 035422 0   0   777777777777 0            000000000020 
ST2	031037 035422 0   0   777777777777 0            000000000020 
ST9	031037 035422 0   0   777777777777 0            000000000020 


*031037 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031037 031037 0   0   444000035412 0            0            
IT1	031037 0      0   0   444000035412 0            0            
AT3	031037 0      0   0   000000035412 0            444000035412 
AT6	031037 035412 0   0   000000035412 0            444000035412 
FT0	031037 035412 0   0   0            0            444000035412 
FT1A	031037 035412 0   0   0            0            0            
FT2	031037 035412 0   0   0            0            0            
FT2RQ	031037 035412 0   0   777777777777 0            0            
FT3	031037 035412 0   0   777777777777 0            0            
FT9	031040 035412 0   0   777777777777 0            0            
ET0	031040 035412 0   0   0            0            0            
ST1	031040 035412 0   0   0            0            0            
ST2	031040 035412 0   0   0            0            0            
ST9	031040 035412 0   0   0            0            0            


*031040 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031040 031040 0   0   332000000000 0            0            
IT1	031040 0      0   0   332000000000 0            0            
AT3	031040 0      0   0   0            0            332000000000 
AT6	031040 0      0   0   0            0            332000000000 
FT0	031040 0      0   0   0            0            332000000000 
FT1A	031040 0      0   0   0            0            0            
FT9	031041 0      0   0   0            0            0            
ET0	031042 0      0   0   0            0            0            
ST1A	031042 0      0   0   0            0            0            
ST9	031042 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 32
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0311

*031042 JUMPA	0,031043
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031042 031042 0   0   324000031043 0            000000031043 
IT1	031042 0      0   0   324000031043 0            000000031043 
AT3	031042 0      0   0   000000031043 0            324000031043 
AT6	031042 031043 0   0   000000031043 0            324000031043 
FT1A	031042 031043 0   0   000000031043 0            000000031043 
FT2	031042 031043 0   0   0            0            000000031043 
FT2RQ	031042 031043 0   0   0            0            000000031043 
FT3	031042 031043 0   0   0            0            000000031043 
FT9	031043 031043 0   0   0            0            000000031043 
ET0	031043 031043 0   0   0            0            000000031043 
ST1A	031043 031043 0   0   0            0            000000031043 
ST9	031043 031043 0   0   0            0            000000031043 


*031043 MOVE 	0,035423
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031043 031043 0   0   200000035423 0            000000000040 
IT1	031043 0      0   0   200000035423 0            000000000040 
AT3	031043 0      0   0   000000035423 0            200000035423 
AT6	031043 035423 0   0   000000035423 0            200000035423 
FT0	031043 035423 0   0   000000000040 0            200000035423 
FT1A	031043 035423 0   0   000000000040 0            000000000040 
FT9	031044 035423 0   0   000000000040 0            000000000040 
ET0	031044 035423 0   0   000000000040 0            000000000040 
ST1	031044 035423 0   0   000000000040 0            000000000040 
ST2	031044 035423 0   0   000000000040 0            000000000040 
ST9	031044 035423 0   0   000000000040 0            000000000040 


*031044 ADD 	0,035412
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031044 031044 0   0   270000035412 0            0            
IT1	031044 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 33
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0312

AT3	031044 0      0   0   000000035412 0            270000035412 
AT6	031044 035412 0   0   000000035412 0            270000035412 
FT0	031044 035412 0   0   0            0            270000035412 
FT1A	031044 035412 0   0   0            0            0            
FT2	031044 035412 0   0   0            0            0            
FT2RQ	031044 035412 0   0   000000000040 0            0            
FT3	031044 035412 0   0   000000000040 0            0            
FT9	031045 035412 0   0   000000000040 0            0            
ET0	031045 035412 0   0   000000000040 0            0            
ST1	031045 035412 0   0   000000000040 0            0            
ST2	031045 035412 0   0   000000000040 0            0            
ST9	031045 035412 0   0   000000000040 0            0            


*031045 EQV 	0,035423
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031045 031045 0   0   444000035423 0            000000000040 
IT1	031045 0      0   0   444000035423 0            000000000040 
AT3	031045 0      0   0   000000035423 0            444000035423 
AT6	031045 035423 0   0   000000035423 0            444000035423 
FT0	031045 035423 0   0   000000000040 0            444000035423 
FT1A	031045 035423 0   0   000000000040 0            000000000040 
FT2	031045 035423 0   0   0            0            000000000040 
FT2RQ	031045 035423 0   0   000000000040 0            000000000040 
FT3	031045 035423 0   0   000000000040 0            000000000040 
FT9	031046 035423 0   0   000000000040 0            000000000040 
ET0	031046 035423 0   0   777777777777 0            000000000040 
ST1	031046 035423 0   0   777777777777 0            000000000040 
ST2	031046 035423 0   0   777777777777 0            000000000040 
ST9	031046 035423 0   0   777777777777 0            000000000040 


*031046 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031046 031046 0   0   444000035412 0            0            
IT1	031046 0      0   0   444000035412 0            0            
AT3	031046 0      0   0   000000035412 0            444000035412 
AT6	031046 035412 0   0   000000035412 0            444000035412 
FT0	031046 035412 0   0   0            0            444000035412 
FT1A	031046 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 34
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0313

FT2	031046 035412 0   0   0            0            0            
FT2RQ	031046 035412 0   0   777777777777 0            0            
FT3	031046 035412 0   0   777777777777 0            0            
FT9	031047 035412 0   0   777777777777 0            0            
ET0	031047 035412 0   0   0            0            0            
ST1	031047 035412 0   0   0            0            0            
ST2	031047 035412 0   0   0            0            0            
ST9	031047 035412 0   0   0            0            0            


*031047 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031047 031047 0   0   332000000000 0            0            
IT1	031047 0      0   0   332000000000 0            0            
AT3	031047 0      0   0   0            0            332000000000 
AT6	031047 0      0   0   0            0            332000000000 
FT0	031047 0      0   0   0            0            332000000000 
FT1A	031047 0      0   0   0            0            0            
FT9	031050 0      0   0   0            0            0            
ET0	031051 0      0   0   0            0            0            
ST1A	031051 0      0   0   0            0            0            
ST9	031051 0      0   0   0            0            0            


*031051 JUMPA	0,031052
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031051 031051 0   0   324000031052 0            000000031052 
IT1	031051 0      0   0   324000031052 0            000000031052 
AT3	031051 0      0   0   000000031052 0            324000031052 
AT6	031051 031052 0   0   000000031052 0            324000031052 
FT1A	031051 031052 0   0   000000031052 0            000000031052 
FT2	031051 031052 0   0   0            0            000000031052 
FT2RQ	031051 031052 0   0   0            0            000000031052 
FT3	031051 031052 0   0   0            0            000000031052 
FT9	031052 031052 0   0   0            0            000000031052 
ET0	031052 031052 0   0   0            0            000000031052 
ST1A	031052 031052 0   0   0            0            000000031052 
ST9	031052 031052 0   0   0            0            000000031052 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 35
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0314

*031052 MOVE 	0,035424
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031052 031052 0   0   200000035424 0            000000000100 
IT1	031052 0      0   0   200000035424 0            000000000100 
AT3	031052 0      0   0   000000035424 0            200000035424 
AT6	031052 035424 0   0   000000035424 0            200000035424 
FT0	031052 035424 0   0   000000000100 0            200000035424 
FT1A	031052 035424 0   0   000000000100 0            000000000100 
FT9	031053 035424 0   0   000000000100 0            000000000100 
ET0	031053 035424 0   0   000000000100 0            000000000100 
ST1	031053 035424 0   0   000000000100 0            000000000100 
ST2	031053 035424 0   0   000000000100 0            000000000100 
ST9	031053 035424 0   0   000000000100 0            000000000100 


*031053 ADD 	0,035412
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031053 031053 0   0   270000035412 0            0            
IT1	031053 0      0   0   270000035412 0            0            
AT3	031053 0      0   0   000000035412 0            270000035412 
AT6	031053 035412 0   0   000000035412 0            270000035412 
FT0	031053 035412 0   0   0            0            270000035412 
FT1A	031053 035412 0   0   0            0            0            
FT2	031053 035412 0   0   0            0            0            
FT2RQ	031053 035412 0   0   000000000100 0            0            
FT3	031053 035412 0   0   000000000100 0            0            
FT9	031054 035412 0   0   000000000100 0            0            
ET0	031054 035412 0   0   000000000100 0            0            
ST1	031054 035412 0   0   000000000100 0            0            
ST2	031054 035412 0   0   000000000100 0            0            
ST9	031054 035412 0   0   000000000100 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 36
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0315

*031054 EQV 	0,035424
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031054 031054 0   0   444000035424 0            000000000100 
IT1	031054 0      0   0   444000035424 0            000000000100 
AT3	031054 0      0   0   000000035424 0            444000035424 
AT6	031054 035424 0   0   000000035424 0            444000035424 
FT0	031054 035424 0   0   000000000100 0            444000035424 
FT1A	031054 035424 0   0   000000000100 0            000000000100 
FT2	031054 035424 0   0   0            0            000000000100 
FT2RQ	031054 035424 0   0   000000000100 0            000000000100 
FT3	031054 035424 0   0   000000000100 0            000000000100 
FT9	031055 035424 0   0   000000000100 0            000000000100 
ET0	031055 035424 0   0   777777777777 0            000000000100 
ST1	031055 035424 0   0   777777777777 0            000000000100 
ST2	031055 035424 0   0   777777777777 0            000000000100 
ST9	031055 035424 0   0   777777777777 0            000000000100 


*031055 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031055 031055 0   0   444000035412 0            0            
IT1	031055 0      0   0   444000035412 0            0            
AT3	031055 0      0   0   000000035412 0            444000035412 
AT6	031055 035412 0   0   000000035412 0            444000035412 
FT0	031055 035412 0   0   0            0            444000035412 
FT1A	031055 035412 0   0   0            0            0            
FT2	031055 035412 0   0   0            0            0            
FT2RQ	031055 035412 0   0   777777777777 0            0            
FT3	031055 035412 0   0   777777777777 0            0            
FT9	031056 035412 0   0   777777777777 0            0            
ET0	031056 035412 0   0   0            0            0            
ST1	031056 035412 0   0   0            0            0            
ST2	031056 035412 0   0   0            0            0            
ST9	031056 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 37
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0316

*031056 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031056 031056 0   0   332000000000 0            0            
IT1	031056 0      0   0   332000000000 0            0            
AT3	031056 0      0   0   0            0            332000000000 
AT6	031056 0      0   0   0            0            332000000000 
FT0	031056 0      0   0   0            0            332000000000 
FT1A	031056 0      0   0   0            0            0            
FT9	031057 0      0   0   0            0            0            
ET0	031060 0      0   0   0            0            0            
ST1A	031060 0      0   0   0            0            0            
ST9	031060 0      0   0   0            0            0            


*031060 JUMPA	0,031061
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031060 031060 0   0   324000031061 0            000000031061 
IT1	031060 0      0   0   324000031061 0            000000031061 
AT3	031060 0      0   0   000000031061 0            324000031061 
AT6	031060 031061 0   0   000000031061 0            324000031061 
FT1A	031060 031061 0   0   000000031061 0            000000031061 
FT2	031060 031061 0   0   0            0            000000031061 
FT2RQ	031060 031061 0   0   0            0            000000031061 
FT3	031060 031061 0   0   0            0            000000031061 
FT9	031061 031061 0   0   0            0            000000031061 
ET0	031061 031061 0   0   0            0            000000031061 
ST1A	031061 031061 0   0   0            0            000000031061 
ST9	031061 031061 0   0   0            0            000000031061 


*031061 MOVE 	0,035425
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031061 031061 0   0   200000035425 0            000000000200 
IT1	031061 0      0   0   200000035425 0            000000000200 
AT3	031061 0      0   0   000000035425 0            200000035425 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 38
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0317

AT6	031061 035425 0   0   000000035425 0            200000035425 
FT0	031061 035425 0   0   000000000200 0            200000035425 
FT1A	031061 035425 0   0   000000000200 0            000000000200 
FT9	031062 035425 0   0   000000000200 0            000000000200 
ET0	031062 035425 0   0   000000000200 0            000000000200 
ST1	031062 035425 0   0   000000000200 0            000000000200 
ST2	031062 035425 0   0   000000000200 0            000000000200 
ST9	031062 035425 0   0   000000000200 0            000000000200 


*031062 ADD 	0,035412
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031062 031062 0   0   270000035412 0            0            
IT1	031062 0      0   0   270000035412 0            0            
AT3	031062 0      0   0   000000035412 0            270000035412 
AT6	031062 035412 0   0   000000035412 0            270000035412 
FT0	031062 035412 0   0   0            0            270000035412 
FT1A	031062 035412 0   0   0            0            0            
FT2	031062 035412 0   0   0            0            0            
FT2RQ	031062 035412 0   0   000000000200 0            0            
FT3	031062 035412 0   0   000000000200 0            0            
FT9	031063 035412 0   0   000000000200 0            0            
ET0	031063 035412 0   0   000000000200 0            0            
ST1	031063 035412 0   0   000000000200 0            0            
ST2	031063 035412 0   0   000000000200 0            0            
ST9	031063 035412 0   0   000000000200 0            0            


*031063 EQV 	0,035425
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031063 031063 0   0   444000035425 0            000000000200 
IT1	031063 0      0   0   444000035425 0            000000000200 
AT3	031063 0      0   0   000000035425 0            444000035425 
AT6	031063 035425 0   0   000000035425 0            444000035425 
FT0	031063 035425 0   0   000000000200 0            444000035425 
FT1A	031063 035425 0   0   000000000200 0            000000000200 
FT2	031063 035425 0   0   0            0            000000000200 
FT2RQ	031063 035425 0   0   000000000200 0            000000000200 
FT3	031063 035425 0   0   000000000200 0            000000000200 
FT9	031064 035425 0   0   000000000200 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 39
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0318

ET0	031064 035425 0   0   777777777777 0            000000000200 
ST1	031064 035425 0   0   777777777777 0            000000000200 
ST2	031064 035425 0   0   777777777777 0            000000000200 
ST9	031064 035425 0   0   777777777777 0            000000000200 


*031064 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031064 031064 0   0   444000035412 0            0            
IT1	031064 0      0   0   444000035412 0            0            
AT3	031064 0      0   0   000000035412 0            444000035412 
AT6	031064 035412 0   0   000000035412 0            444000035412 
FT0	031064 035412 0   0   0            0            444000035412 
FT1A	031064 035412 0   0   0            0            0            
FT2	031064 035412 0   0   0            0            0            
FT2RQ	031064 035412 0   0   777777777777 0            0            
FT3	031064 035412 0   0   777777777777 0            0            
FT9	031065 035412 0   0   777777777777 0            0            
ET0	031065 035412 0   0   0            0            0            
ST1	031065 035412 0   0   0            0            0            
ST2	031065 035412 0   0   0            0            0            
ST9	031065 035412 0   0   0            0            0            


*031065 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031065 031065 0   0   332000000000 0            0            
IT1	031065 0      0   0   332000000000 0            0            
AT3	031065 0      0   0   0            0            332000000000 
AT6	031065 0      0   0   0            0            332000000000 
FT0	031065 0      0   0   0            0            332000000000 
FT1A	031065 0      0   0   0            0            0            
FT9	031066 0      0   0   0            0            0            
ET0	031067 0      0   0   0            0            0            
ST1A	031067 0      0   0   0            0            0            
ST9	031067 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 40
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0319

*031067 JUMPA	0,031070
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031067 031067 0   0   324000031070 0            000000031070 
IT1	031067 0      0   0   324000031070 0            000000031070 
AT3	031067 0      0   0   000000031070 0            324000031070 
AT6	031067 031070 0   0   000000031070 0            324000031070 
FT1A	031067 031070 0   0   000000031070 0            000000031070 
FT2	031067 031070 0   0   0            0            000000031070 
FT2RQ	031067 031070 0   0   0            0            000000031070 
FT3	031067 031070 0   0   0            0            000000031070 
FT9	031070 031070 0   0   0            0            000000031070 
ET0	031070 031070 0   0   0            0            000000031070 
ST1A	031070 031070 0   0   0            0            000000031070 
ST9	031070 031070 0   0   0            0            000000031070 


*031070 MOVE 	0,035426
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031070 031070 0   0   200000035426 0            000000000400 
IT1	031070 0      0   0   200000035426 0            000000000400 
AT3	031070 0      0   0   000000035426 0            200000035426 
AT6	031070 035426 0   0   000000035426 0            200000035426 
FT0	031070 035426 0   0   000000000400 0            200000035426 
FT1A	031070 035426 0   0   000000000400 0            000000000400 
FT9	031071 035426 0   0   000000000400 0            000000000400 
ET0	031071 035426 0   0   000000000400 0            000000000400 
ST1	031071 035426 0   0   000000000400 0            000000000400 
ST2	031071 035426 0   0   000000000400 0            000000000400 
ST9	031071 035426 0   0   000000000400 0            000000000400 


*031071 ADD 	0,035412
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031071 031071 0   0   270000035412 0            0            
IT1	031071 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 41
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0320

AT3	031071 0      0   0   000000035412 0            270000035412 
AT6	031071 035412 0   0   000000035412 0            270000035412 
FT0	031071 035412 0   0   0            0            270000035412 
FT1A	031071 035412 0   0   0            0            0            
FT2	031071 035412 0   0   0            0            0            
FT2RQ	031071 035412 0   0   000000000400 0            0            
FT3	031071 035412 0   0   000000000400 0            0            
FT9	031072 035412 0   0   000000000400 0            0            
ET0	031072 035412 0   0   000000000400 0            0            
ST1	031072 035412 0   0   000000000400 0            0            
ST2	031072 035412 0   0   000000000400 0            0            
ST9	031072 035412 0   0   000000000400 0            0            


*031072 EQV 	0,035426
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031072 031072 0   0   444000035426 0            000000000400 
IT1	031072 0      0   0   444000035426 0            000000000400 
AT3	031072 0      0   0   000000035426 0            444000035426 
AT6	031072 035426 0   0   000000035426 0            444000035426 
FT0	031072 035426 0   0   000000000400 0            444000035426 
FT1A	031072 035426 0   0   000000000400 0            000000000400 
FT2	031072 035426 0   0   0            0            000000000400 
FT2RQ	031072 035426 0   0   000000000400 0            000000000400 
FT3	031072 035426 0   0   000000000400 0            000000000400 
FT9	031073 035426 0   0   000000000400 0            000000000400 
ET0	031073 035426 0   0   777777777777 0            000000000400 
ST1	031073 035426 0   0   777777777777 0            000000000400 
ST2	031073 035426 0   0   777777777777 0            000000000400 
ST9	031073 035426 0   0   777777777777 0            000000000400 


*031073 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031073 031073 0   0   444000035412 0            0            
IT1	031073 0      0   0   444000035412 0            0            
AT3	031073 0      0   0   000000035412 0            444000035412 
AT6	031073 035412 0   0   000000035412 0            444000035412 
FT0	031073 035412 0   0   0            0            444000035412 
FT1A	031073 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 42
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0321

FT2	031073 035412 0   0   0            0            0            
FT2RQ	031073 035412 0   0   777777777777 0            0            
FT3	031073 035412 0   0   777777777777 0            0            
FT9	031074 035412 0   0   777777777777 0            0            
ET0	031074 035412 0   0   0            0            0            
ST1	031074 035412 0   0   0            0            0            
ST2	031074 035412 0   0   0            0            0            
ST9	031074 035412 0   0   0            0            0            


*031074 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031074 031074 0   0   332000000000 0            0            
IT1	031074 0      0   0   332000000000 0            0            
AT3	031074 0      0   0   0            0            332000000000 
AT6	031074 0      0   0   0            0            332000000000 
FT0	031074 0      0   0   0            0            332000000000 
FT1A	031074 0      0   0   0            0            0            
FT9	031075 0      0   0   0            0            0            
ET0	031076 0      0   0   0            0            0            
ST1A	031076 0      0   0   0            0            0            
ST9	031076 0      0   0   0            0            0            


*031076 JUMPA	0,031077
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031076 031076 0   0   324000031077 0            000000031077 
IT1	031076 0      0   0   324000031077 0            000000031077 
AT3	031076 0      0   0   000000031077 0            324000031077 
AT6	031076 031077 0   0   000000031077 0            324000031077 
FT1A	031076 031077 0   0   000000031077 0            000000031077 
FT2	031076 031077 0   0   0            0            000000031077 
FT2RQ	031076 031077 0   0   0            0            000000031077 
FT3	031076 031077 0   0   0            0            000000031077 
FT9	031077 031077 0   0   0            0            000000031077 
ET0	031077 031077 0   0   0            0            000000031077 
ST1A	031077 031077 0   0   0            0            000000031077 
ST9	031077 031077 0   0   0            0            000000031077 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 43
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0322

*031077 MOVE 	0,035427
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031077 031077 0   0   200000035427 0            000000001000 
IT1	031077 0      0   0   200000035427 0            000000001000 
AT3	031077 0      0   0   000000035427 0            200000035427 
AT6	031077 035427 0   0   000000035427 0            200000035427 
FT0	031077 035427 0   0   000000001000 0            200000035427 
FT1A	031077 035427 0   0   000000001000 0            000000001000 
FT9	0      035427 0   0   000000001000 0            000000001000 
ET0	0      035427 0   0   000000001000 0            000000001000 
ST1	0      035427 0   0   000000001000 0            000000001000 
ST2	0      035427 0   0   000000001000 0            000000001000 
ST9	0      035427 0   0   000000001000 0            000000001000 


*031100 ADD 	0,035412
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   270000035412 0            0            
IT1	0      0      0   0   270000035412 0            0            
AT3	0      0      0   0   000000035412 0            270000035412 
AT6	0      035412 0   0   000000035412 0            270000035412 
FT0	0      035412 0   0   0            0            270000035412 
FT1A	0      035412 0   0   0            0            0            
FT2	0      035412 0   0   0            0            0            
FT2RQ	0      035412 0   0   000000001000 0            0            
FT3	0      035412 0   0   000000001000 0            0            
FT9	031101 035412 0   0   000000001000 0            0            
ET0	031101 035412 0   0   000000001000 0            0            
ST1	031101 035412 0   0   000000001000 0            0            
ST2	031101 035412 0   0   000000001000 0            0            
ST9	031101 035412 0   0   000000001000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 44
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0323

*031101 EQV 	0,035427
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031101 031101 0   0   444000035427 0            000000001000 
IT1	031101 0      0   0   444000035427 0            000000001000 
AT3	031101 0      0   0   000000035427 0            444000035427 
AT6	031101 035427 0   0   000000035427 0            444000035427 
FT0	031101 035427 0   0   000000001000 0            444000035427 
FT1A	031101 035427 0   0   000000001000 0            000000001000 
FT2	031101 035427 0   0   0            0            000000001000 
FT2RQ	031101 035427 0   0   000000001000 0            000000001000 
FT3	031101 035427 0   0   000000001000 0            000000001000 
FT9	031102 035427 0   0   000000001000 0            000000001000 
ET0	031102 035427 0   0   777777777777 0            000000001000 
ST1	031102 035427 0   0   777777777777 0            000000001000 
ST2	031102 035427 0   0   777777777777 0            000000001000 
ST9	031102 035427 0   0   777777777777 0            000000001000 


*031102 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031102 031102 0   0   444000035412 0            0            
IT1	031102 0      0   0   444000035412 0            0            
AT3	031102 0      0   0   000000035412 0            444000035412 
AT6	031102 035412 0   0   000000035412 0            444000035412 
FT0	031102 035412 0   0   0            0            444000035412 
FT1A	031102 035412 0   0   0            0            0            
FT2	031102 035412 0   0   0            0            0            
FT2RQ	031102 035412 0   0   777777777777 0            0            
FT3	031102 035412 0   0   777777777777 0            0            
FT9	031103 035412 0   0   777777777777 0            0            
ET0	031103 035412 0   0   0            0            0            
ST1	031103 035412 0   0   0            0            0            
ST2	031103 035412 0   0   0            0            0            
ST9	031103 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 45
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0324

*031103 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031103 031103 0   0   332000000000 0            0            
IT1	031103 0      0   0   332000000000 0            0            
AT3	031103 0      0   0   0            0            332000000000 
AT6	031103 0      0   0   0            0            332000000000 
FT0	031103 0      0   0   0            0            332000000000 
FT1A	031103 0      0   0   0            0            0            
FT9	031104 0      0   0   0            0            0            
ET0	031105 0      0   0   0            0            0            
ST1A	031105 0      0   0   0            0            0            
ST9	031105 0      0   0   0            0            0            


*031105 JUMPA	0,031106
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031105 031105 0   0   324000031106 0            000000031106 
IT1	031105 0      0   0   324000031106 0            000000031106 
AT3	031105 0      0   0   000000031106 0            324000031106 
AT6	031105 031106 0   0   000000031106 0            324000031106 
FT1A	031105 031106 0   0   000000031106 0            000000031106 
FT2	031105 031106 0   0   0            0            000000031106 
FT2RQ	031105 031106 0   0   0            0            000000031106 
FT3	031105 031106 0   0   0            0            000000031106 
FT9	031106 031106 0   0   0            0            000000031106 
ET0	031106 031106 0   0   0            0            000000031106 
ST1A	031106 031106 0   0   0            0            000000031106 
ST9	031106 031106 0   0   0            0            000000031106 


*031106 MOVE 	0,035430
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031106 031106 0   0   200000035430 0            000000002000 
IT1	031106 0      0   0   200000035430 0            000000002000 
AT3	031106 0      0   0   000000035430 0            200000035430 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 46
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0325

AT6	031106 035430 0   0   000000035430 0            200000035430 
FT0	031106 035430 0   0   000000002000 0            200000035430 
FT1A	031106 035430 0   0   000000002000 0            000000002000 
FT9	031107 035430 0   0   000000002000 0            000000002000 
ET0	031107 035430 0   0   000000002000 0            000000002000 
ST1	031107 035430 0   0   000000002000 0            000000002000 
ST2	031107 035430 0   0   000000002000 0            000000002000 
ST9	031107 035430 0   0   000000002000 0            000000002000 


*031107 ADD 	0,035412
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031107 031107 0   0   270000035412 0            0            
IT1	031107 0      0   0   270000035412 0            0            
AT3	031107 0      0   0   000000035412 0            270000035412 
AT6	031107 035412 0   0   000000035412 0            270000035412 
FT0	031107 035412 0   0   0            0            270000035412 
FT1A	031107 035412 0   0   0            0            0            
FT2	031107 035412 0   0   0            0            0            
FT2RQ	031107 035412 0   0   000000002000 0            0            
FT3	031107 035412 0   0   000000002000 0            0            
FT9	031110 035412 0   0   000000002000 0            0            
ET0	031110 035412 0   0   000000002000 0            0            
ST1	031110 035412 0   0   000000002000 0            0            
ST2	031110 035412 0   0   000000002000 0            0            
ST9	031110 035412 0   0   000000002000 0            0            


*031110 EQV 	0,035430
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031110 031110 0   0   444000035430 0            000000002000 
IT1	031110 0      0   0   444000035430 0            000000002000 
AT3	031110 0      0   0   000000035430 0            444000035430 
AT6	031110 035430 0   0   000000035430 0            444000035430 
FT0	031110 035430 0   0   000000002000 0            444000035430 
FT1A	031110 035430 0   0   000000002000 0            000000002000 
FT2	031110 035430 0   0   0            0            000000002000 
FT2RQ	031110 035430 0   0   000000002000 0            000000002000 
FT3	031110 035430 0   0   000000002000 0            000000002000 
FT9	031111 035430 0   0   000000002000 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 47
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0326

ET0	031111 035430 0   0   777777777777 0            000000002000 
ST1	031111 035430 0   0   777777777777 0            000000002000 
ST2	031111 035430 0   0   777777777777 0            000000002000 
ST9	031111 035430 0   0   777777777777 0            000000002000 


*031111 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031111 031111 0   0   444000035412 0            0            
IT1	031111 0      0   0   444000035412 0            0            
AT3	031111 0      0   0   000000035412 0            444000035412 
AT6	031111 035412 0   0   000000035412 0            444000035412 
FT0	031111 035412 0   0   0            0            444000035412 
FT1A	031111 035412 0   0   0            0            0            
FT2	031111 035412 0   0   0            0            0            
FT2RQ	031111 035412 0   0   777777777777 0            0            
FT3	031111 035412 0   0   777777777777 0            0            
FT9	031112 035412 0   0   777777777777 0            0            
ET0	031112 035412 0   0   0            0            0            
ST1	031112 035412 0   0   0            0            0            
ST2	031112 035412 0   0   0            0            0            
ST9	031112 035412 0   0   0            0            0            


*031112 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031112 031112 0   0   332000000000 0            0            
IT1	031112 0      0   0   332000000000 0            0            
AT3	031112 0      0   0   0            0            332000000000 
AT6	031112 0      0   0   0            0            332000000000 
FT0	031112 0      0   0   0            0            332000000000 
FT1A	031112 0      0   0   0            0            0            
FT9	031113 0      0   0   0            0            0            
ET0	031114 0      0   0   0            0            0            
ST1A	031114 0      0   0   0            0            0            
ST9	031114 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 48
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0327

*031114 JUMPA	0,031115
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031114 031114 0   0   324000031115 0            000000031115 
IT1	031114 0      0   0   324000031115 0            000000031115 
AT3	031114 0      0   0   000000031115 0            324000031115 
AT6	031114 031115 0   0   000000031115 0            324000031115 
FT1A	031114 031115 0   0   000000031115 0            000000031115 
FT2	031114 031115 0   0   0            0            000000031115 
FT2RQ	031114 031115 0   0   0            0            000000031115 
FT3	031114 031115 0   0   0            0            000000031115 
FT9	031115 031115 0   0   0            0            000000031115 
ET0	031115 031115 0   0   0            0            000000031115 
ST1A	031115 031115 0   0   0            0            000000031115 
ST9	031115 031115 0   0   0            0            000000031115 


*031115 MOVE 	0,035431
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031115 031115 0   0   200000035431 0            000000004000 
IT1	031115 0      0   0   200000035431 0            000000004000 
AT3	031115 0      0   0   000000035431 0            200000035431 
AT6	031115 035431 0   0   000000035431 0            200000035431 
FT0	031115 035431 0   0   000000004000 0            200000035431 
FT1A	031115 035431 0   0   000000004000 0            000000004000 
FT9	031116 035431 0   0   000000004000 0            000000004000 
ET0	031116 035431 0   0   000000004000 0            000000004000 
ST1	031116 035431 0   0   000000004000 0            000000004000 
ST2	031116 035431 0   0   000000004000 0            000000004000 
ST9	031116 035431 0   0   000000004000 0            000000004000 


*031116 ADD 	0,035412
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031116 031116 0   0   270000035412 0            0            
IT1	031116 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 49
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0328

AT3	031116 0      0   0   000000035412 0            270000035412 
AT6	031116 035412 0   0   000000035412 0            270000035412 
FT0	031116 035412 0   0   0            0            270000035412 
FT1A	031116 035412 0   0   0            0            0            
FT2	031116 035412 0   0   0            0            0            
FT2RQ	031116 035412 0   0   000000004000 0            0            
FT3	031116 035412 0   0   000000004000 0            0            
FT9	031117 035412 0   0   000000004000 0            0            
ET0	031117 035412 0   0   000000004000 0            0            
ST1	031117 035412 0   0   000000004000 0            0            
ST2	031117 035412 0   0   000000004000 0            0            
ST9	031117 035412 0   0   000000004000 0            0            


*031117 EQV 	0,035431
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031117 031117 0   0   444000035431 0            000000004000 
IT1	031117 0      0   0   444000035431 0            000000004000 
AT3	031117 0      0   0   000000035431 0            444000035431 
AT6	031117 035431 0   0   000000035431 0            444000035431 
FT0	031117 035431 0   0   000000004000 0            444000035431 
FT1A	031117 035431 0   0   000000004000 0            000000004000 
FT2	031117 035431 0   0   0            0            000000004000 
FT2RQ	031117 035431 0   0   000000004000 0            000000004000 
FT3	031117 035431 0   0   000000004000 0            000000004000 
FT9	031120 035431 0   0   000000004000 0            000000004000 
ET0	031120 035431 0   0   777777777777 0            000000004000 
ST1	031120 035431 0   0   777777777777 0            000000004000 
ST2	031120 035431 0   0   777777777777 0            000000004000 
ST9	031120 035431 0   0   777777777777 0            000000004000 


*031120 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031120 031120 0   0   444000035412 0            0            
IT1	031120 0      0   0   444000035412 0            0            
AT3	031120 0      0   0   000000035412 0            444000035412 
AT6	031120 035412 0   0   000000035412 0            444000035412 
FT0	031120 035412 0   0   0            0            444000035412 
FT1A	031120 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 50
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0329

FT2	031120 035412 0   0   0            0            0            
FT2RQ	031120 035412 0   0   777777777777 0            0            
FT3	031120 035412 0   0   777777777777 0            0            
FT9	031121 035412 0   0   777777777777 0            0            
ET0	031121 035412 0   0   0            0            0            
ST1	031121 035412 0   0   0            0            0            
ST2	031121 035412 0   0   0            0            0            
ST9	031121 035412 0   0   0            0            0            


*031121 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031121 031121 0   0   332000000000 0            0            
IT1	031121 0      0   0   332000000000 0            0            
AT3	031121 0      0   0   0            0            332000000000 
AT6	031121 0      0   0   0            0            332000000000 
FT0	031121 0      0   0   0            0            332000000000 
FT1A	031121 0      0   0   0            0            0            
FT9	031122 0      0   0   0            0            0            
ET0	031123 0      0   0   0            0            0            
ST1A	031123 0      0   0   0            0            0            
ST9	031123 0      0   0   0            0            0            


*031123 JUMPA	0,031124
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031123 031123 0   0   324000031124 0            000000031124 
IT1	031123 0      0   0   324000031124 0            000000031124 
AT3	031123 0      0   0   000000031124 0            324000031124 
AT6	031123 031124 0   0   000000031124 0            324000031124 
FT1A	031123 031124 0   0   000000031124 0            000000031124 
FT2	031123 031124 0   0   0            0            000000031124 
FT2RQ	031123 031124 0   0   0            0            000000031124 
FT3	031123 031124 0   0   0            0            000000031124 
FT9	031124 031124 0   0   0            0            000000031124 
ET0	031124 031124 0   0   0            0            000000031124 
ST1A	031124 031124 0   0   0            0            000000031124 
ST9	031124 031124 0   0   0            0            000000031124 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 51
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0330

*031124 MOVE 	0,035432
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031124 031124 0   0   200000035432 0            000000010000 
IT1	031124 0      0   0   200000035432 0            000000010000 
AT3	031124 0      0   0   000000035432 0            200000035432 
AT6	031124 035432 0   0   000000035432 0            200000035432 
FT0	031124 035432 0   0   000000010000 0            200000035432 
FT1A	031124 035432 0   0   000000010000 0            000000010000 
FT9	031125 035432 0   0   000000010000 0            000000010000 
ET0	031125 035432 0   0   000000010000 0            000000010000 
ST1	031125 035432 0   0   000000010000 0            000000010000 
ST2	031125 035432 0   0   000000010000 0            000000010000 
ST9	031125 035432 0   0   000000010000 0            000000010000 


*031125 ADD 	0,035412
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031125 031125 0   0   270000035412 0            0            
IT1	031125 0      0   0   270000035412 0            0            
AT3	031125 0      0   0   000000035412 0            270000035412 
AT6	031125 035412 0   0   000000035412 0            270000035412 
FT0	031125 035412 0   0   0            0            270000035412 
FT1A	031125 035412 0   0   0            0            0            
FT2	031125 035412 0   0   0            0            0            
FT2RQ	031125 035412 0   0   000000010000 0            0            
FT3	031125 035412 0   0   000000010000 0            0            
FT9	031126 035412 0   0   000000010000 0            0            
ET0	031126 035412 0   0   000000010000 0            0            
ST1	031126 035412 0   0   000000010000 0            0            
ST2	031126 035412 0   0   000000010000 0            0            
ST9	031126 035412 0   0   000000010000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 52
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0331

*031126 EQV 	0,035432
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031126 031126 0   0   444000035432 0            000000010000 
IT1	031126 0      0   0   444000035432 0            000000010000 
AT3	031126 0      0   0   000000035432 0            444000035432 
AT6	031126 035432 0   0   000000035432 0            444000035432 
FT0	031126 035432 0   0   000000010000 0            444000035432 
FT1A	031126 035432 0   0   000000010000 0            000000010000 
FT2	031126 035432 0   0   0            0            000000010000 
FT2RQ	031126 035432 0   0   000000010000 0            000000010000 
FT3	031126 035432 0   0   000000010000 0            000000010000 
FT9	031127 035432 0   0   000000010000 0            000000010000 
ET0	031127 035432 0   0   777777777777 0            000000010000 
ST1	031127 035432 0   0   777777777777 0            000000010000 
ST2	031127 035432 0   0   777777777777 0            000000010000 
ST9	031127 035432 0   0   777777777777 0            000000010000 


*031127 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031127 031127 0   0   444000035412 0            0            
IT1	031127 0      0   0   444000035412 0            0            
AT3	031127 0      0   0   000000035412 0            444000035412 
AT6	031127 035412 0   0   000000035412 0            444000035412 
FT0	031127 035412 0   0   0            0            444000035412 
FT1A	031127 035412 0   0   0            0            0            
FT2	031127 035412 0   0   0            0            0            
FT2RQ	031127 035412 0   0   777777777777 0            0            
FT3	031127 035412 0   0   777777777777 0            0            
FT9	031130 035412 0   0   777777777777 0            0            
ET0	031130 035412 0   0   0            0            0            
ST1	031130 035412 0   0   0            0            0            
ST2	031130 035412 0   0   0            0            0            
ST9	031130 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 53
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0332

*031130 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031130 031130 0   0   332000000000 0            0            
IT1	031130 0      0   0   332000000000 0            0            
AT3	031130 0      0   0   0            0            332000000000 
AT6	031130 0      0   0   0            0            332000000000 
FT0	031130 0      0   0   0            0            332000000000 
FT1A	031130 0      0   0   0            0            0            
FT9	031131 0      0   0   0            0            0            
ET0	031132 0      0   0   0            0            0            
ST1A	031132 0      0   0   0            0            0            
ST9	031132 0      0   0   0            0            0            


*031132 JUMPA	0,031133
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031132 031132 0   0   324000031133 0            000000031133 
IT1	031132 0      0   0   324000031133 0            000000031133 
AT3	031132 0      0   0   000000031133 0            324000031133 
AT6	031132 031133 0   0   000000031133 0            324000031133 
FT1A	031132 031133 0   0   000000031133 0            000000031133 
FT2	031132 031133 0   0   0            0            000000031133 
FT2RQ	031132 031133 0   0   0            0            000000031133 
FT3	031132 031133 0   0   0            0            000000031133 
FT9	031133 031133 0   0   0            0            000000031133 
ET0	031133 031133 0   0   0            0            000000031133 
ST1A	031133 031133 0   0   0            0            000000031133 
ST9	031133 031133 0   0   0            0            000000031133 


*031133 MOVE 	0,035433
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031133 031133 0   0   200000035433 0            000000020000 
IT1	031133 0      0   0   200000035433 0            000000020000 
AT3	031133 0      0   0   000000035433 0            200000035433 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 54
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0333

AT6	031133 035433 0   0   000000035433 0            200000035433 
FT0	031133 035433 0   0   000000020000 0            200000035433 
FT1A	031133 035433 0   0   000000020000 0            000000020000 
FT9	031134 035433 0   0   000000020000 0            000000020000 
ET0	031134 035433 0   0   000000020000 0            000000020000 
ST1	031134 035433 0   0   000000020000 0            000000020000 
ST2	031134 035433 0   0   000000020000 0            000000020000 
ST9	031134 035433 0   0   000000020000 0            000000020000 


*031134 ADD 	0,035412
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031134 031134 0   0   270000035412 0            0            
IT1	031134 0      0   0   270000035412 0            0            
AT3	031134 0      0   0   000000035412 0            270000035412 
AT6	031134 035412 0   0   000000035412 0            270000035412 
FT0	031134 035412 0   0   0            0            270000035412 
FT1A	031134 035412 0   0   0            0            0            
FT2	031134 035412 0   0   0            0            0            
FT2RQ	031134 035412 0   0   000000020000 0            0            
FT3	031134 035412 0   0   000000020000 0            0            
FT9	031135 035412 0   0   000000020000 0            0            
ET0	031135 035412 0   0   000000020000 0            0            
ST1	031135 035412 0   0   000000020000 0            0            
ST2	031135 035412 0   0   000000020000 0            0            
ST9	031135 035412 0   0   000000020000 0            0            


*031135 EQV 	0,035433
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031135 031135 0   0   444000035433 0            000000020000 
IT1	031135 0      0   0   444000035433 0            000000020000 
AT3	031135 0      0   0   000000035433 0            444000035433 
AT6	031135 035433 0   0   000000035433 0            444000035433 
FT0	031135 035433 0   0   000000020000 0            444000035433 
FT1A	031135 035433 0   0   000000020000 0            000000020000 
FT2	031135 035433 0   0   0            0            000000020000 
FT2RQ	031135 035433 0   0   000000020000 0            000000020000 
FT3	031135 035433 0   0   000000020000 0            000000020000 
FT9	031136 035433 0   0   000000020000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 55
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0334

ET0	031136 035433 0   0   777777777777 0            000000020000 
ST1	031136 035433 0   0   777777777777 0            000000020000 
ST2	031136 035433 0   0   777777777777 0            000000020000 
ST9	031136 035433 0   0   777777777777 0            000000020000 


*031136 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031136 031136 0   0   444000035412 0            0            
IT1	031136 0      0   0   444000035412 0            0            
AT3	031136 0      0   0   000000035412 0            444000035412 
AT6	031136 035412 0   0   000000035412 0            444000035412 
FT0	031136 035412 0   0   0            0            444000035412 
FT1A	031136 035412 0   0   0            0            0            
FT2	031136 035412 0   0   0            0            0            
FT2RQ	031136 035412 0   0   777777777777 0            0            
FT3	031136 035412 0   0   777777777777 0            0            
FT9	031137 035412 0   0   777777777777 0            0            
ET0	031137 035412 0   0   0            0            0            
ST1	031137 035412 0   0   0            0            0            
ST2	031137 035412 0   0   0            0            0            
ST9	031137 035412 0   0   0            0            0            


*031137 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031137 031137 0   0   332000000000 0            0            
IT1	031137 0      0   0   332000000000 0            0            
AT3	031137 0      0   0   0            0            332000000000 
AT6	031137 0      0   0   0            0            332000000000 
FT0	031137 0      0   0   0            0            332000000000 
FT1A	031137 0      0   0   0            0            0            
FT9	031140 0      0   0   0            0            0            
ET0	031141 0      0   0   0            0            0            
ST1A	031141 0      0   0   0            0            0            
ST9	031141 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 56
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0335

*031141 JUMPA	0,031142
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031141 031141 0   0   324000031142 0            000000031142 
IT1	031141 0      0   0   324000031142 0            000000031142 
AT3	031141 0      0   0   000000031142 0            324000031142 
AT6	031141 031142 0   0   000000031142 0            324000031142 
FT1A	031141 031142 0   0   000000031142 0            000000031142 
FT2	031141 031142 0   0   0            0            000000031142 
FT2RQ	031141 031142 0   0   0            0            000000031142 
FT3	031141 031142 0   0   0            0            000000031142 
FT9	031142 031142 0   0   0            0            000000031142 
ET0	031142 031142 0   0   0            0            000000031142 
ST1A	031142 031142 0   0   0            0            000000031142 
ST9	031142 031142 0   0   0            0            000000031142 


*031142 MOVE 	0,035434
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031142 031142 0   0   200000035434 0            000000040000 
IT1	031142 0      0   0   200000035434 0            000000040000 
AT3	031142 0      0   0   000000035434 0            200000035434 
AT6	031142 035434 0   0   000000035434 0            200000035434 
FT0	031142 035434 0   0   000000040000 0            200000035434 
FT1A	031142 035434 0   0   000000040000 0            000000040000 
FT9	031143 035434 0   0   000000040000 0            000000040000 
ET0	031143 035434 0   0   000000040000 0            000000040000 
ST1	031143 035434 0   0   000000040000 0            000000040000 
ST2	031143 035434 0   0   000000040000 0            000000040000 
ST9	031143 035434 0   0   000000040000 0            000000040000 


*031143 ADD 	0,035412
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031143 031143 0   0   270000035412 0            0            
IT1	031143 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 57
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0336

AT3	031143 0      0   0   000000035412 0            270000035412 
AT6	031143 035412 0   0   000000035412 0            270000035412 
FT0	031143 035412 0   0   0            0            270000035412 
FT1A	031143 035412 0   0   0            0            0            
FT2	031143 035412 0   0   0            0            0            
FT2RQ	031143 035412 0   0   000000040000 0            0            
FT3	031143 035412 0   0   000000040000 0            0            
FT9	031144 035412 0   0   000000040000 0            0            
ET0	031144 035412 0   0   000000040000 0            0            
ST1	031144 035412 0   0   000000040000 0            0            
ST2	031144 035412 0   0   000000040000 0            0            
ST9	031144 035412 0   0   000000040000 0            0            


*031144 EQV 	0,035434
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031144 031144 0   0   444000035434 0            000000040000 
IT1	031144 0      0   0   444000035434 0            000000040000 
AT3	031144 0      0   0   000000035434 0            444000035434 
AT6	031144 035434 0   0   000000035434 0            444000035434 
FT0	031144 035434 0   0   000000040000 0            444000035434 
FT1A	031144 035434 0   0   000000040000 0            000000040000 
FT2	031144 035434 0   0   0            0            000000040000 
FT2RQ	031144 035434 0   0   000000040000 0            000000040000 
FT3	031144 035434 0   0   000000040000 0            000000040000 
FT9	031145 035434 0   0   000000040000 0            000000040000 
ET0	031145 035434 0   0   777777777777 0            000000040000 
ST1	031145 035434 0   0   777777777777 0            000000040000 
ST2	031145 035434 0   0   777777777777 0            000000040000 
ST9	031145 035434 0   0   777777777777 0            000000040000 


*031145 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031145 031145 0   0   444000035412 0            0            
IT1	031145 0      0   0   444000035412 0            0            
AT3	031145 0      0   0   000000035412 0            444000035412 
AT6	031145 035412 0   0   000000035412 0            444000035412 
FT0	031145 035412 0   0   0            0            444000035412 
FT1A	031145 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 58
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0337

FT2	031145 035412 0   0   0            0            0            
FT2RQ	031145 035412 0   0   777777777777 0            0            
FT3	031145 035412 0   0   777777777777 0            0            
FT9	031146 035412 0   0   777777777777 0            0            
ET0	031146 035412 0   0   0            0            0            
ST1	031146 035412 0   0   0            0            0            
ST2	031146 035412 0   0   0            0            0            
ST9	031146 035412 0   0   0            0            0            


*031146 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031146 031146 0   0   332000000000 0            0            
IT1	031146 0      0   0   332000000000 0            0            
AT3	031146 0      0   0   0            0            332000000000 
AT6	031146 0      0   0   0            0            332000000000 
FT0	031146 0      0   0   0            0            332000000000 
FT1A	031146 0      0   0   0            0            0            
FT9	031147 0      0   0   0            0            0            
ET0	031150 0      0   0   0            0            0            
ST1A	031150 0      0   0   0            0            0            
ST9	031150 0      0   0   0            0            0            


*031150 JUMPA	0,031151
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031150 031150 0   0   324000031151 0            000000031151 
IT1	031150 0      0   0   324000031151 0            000000031151 
AT3	031150 0      0   0   000000031151 0            324000031151 
AT6	031150 031151 0   0   000000031151 0            324000031151 
FT1A	031150 031151 0   0   000000031151 0            000000031151 
FT2	031150 031151 0   0   0            0            000000031151 
FT2RQ	031150 031151 0   0   0            0            000000031151 
FT3	031150 031151 0   0   0            0            000000031151 
FT9	031151 031151 0   0   0            0            000000031151 
ET0	031151 031151 0   0   0            0            000000031151 
ST1A	031151 031151 0   0   0            0            000000031151 
ST9	031151 031151 0   0   0            0            000000031151 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 59
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0338

*031151 MOVE 	0,035435
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031151 031151 0   0   200000035435 0            000000100000 
IT1	031151 0      0   0   200000035435 0            000000100000 
AT3	031151 0      0   0   000000035435 0            200000035435 
AT6	031151 035435 0   0   000000035435 0            200000035435 
FT0	031151 035435 0   0   000000100000 0            200000035435 
FT1A	031151 035435 0   0   000000100000 0            000000100000 
FT9	031152 035435 0   0   000000100000 0            000000100000 
ET0	031152 035435 0   0   000000100000 0            000000100000 
ST1	031152 035435 0   0   000000100000 0            000000100000 
ST2	031152 035435 0   0   000000100000 0            000000100000 
ST9	031152 035435 0   0   000000100000 0            000000100000 


*031152 ADD 	0,035412
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031152 031152 0   0   270000035412 0            0            
IT1	031152 0      0   0   270000035412 0            0            
AT3	031152 0      0   0   000000035412 0            270000035412 
AT6	031152 035412 0   0   000000035412 0            270000035412 
FT0	031152 035412 0   0   0            0            270000035412 
FT1A	031152 035412 0   0   0            0            0            
FT2	031152 035412 0   0   0            0            0            
FT2RQ	031152 035412 0   0   000000100000 0            0            
FT3	031152 035412 0   0   000000100000 0            0            
FT9	031153 035412 0   0   000000100000 0            0            
ET0	031153 035412 0   0   000000100000 0            0            
ST1	031153 035412 0   0   000000100000 0            0            
ST2	031153 035412 0   0   000000100000 0            0            
ST9	031153 035412 0   0   000000100000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 60
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0339

*031153 EQV 	0,035435
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031153 031153 0   0   444000035435 0            000000100000 
IT1	031153 0      0   0   444000035435 0            000000100000 
AT3	031153 0      0   0   000000035435 0            444000035435 
AT6	031153 035435 0   0   000000035435 0            444000035435 
FT0	031153 035435 0   0   000000100000 0            444000035435 
FT1A	031153 035435 0   0   000000100000 0            000000100000 
FT2	031153 035435 0   0   0            0            000000100000 
FT2RQ	031153 035435 0   0   000000100000 0            000000100000 
FT3	031153 035435 0   0   000000100000 0            000000100000 
FT9	031154 035435 0   0   000000100000 0            000000100000 
ET0	031154 035435 0   0   777777777777 0            000000100000 
ST1	031154 035435 0   0   777777777777 0            000000100000 
ST2	031154 035435 0   0   777777777777 0            000000100000 
ST9	031154 035435 0   0   777777777777 0            000000100000 


*031154 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031154 031154 0   0   444000035412 0            0            
IT1	031154 0      0   0   444000035412 0            0            
AT3	031154 0      0   0   000000035412 0            444000035412 
AT6	031154 035412 0   0   000000035412 0            444000035412 
FT0	031154 035412 0   0   0            0            444000035412 
FT1A	031154 035412 0   0   0            0            0            
FT2	031154 035412 0   0   0            0            0            
FT2RQ	031154 035412 0   0   777777777777 0            0            
FT3	031154 035412 0   0   777777777777 0            0            
FT9	031155 035412 0   0   777777777777 0            0            
ET0	031155 035412 0   0   0            0            0            
ST1	031155 035412 0   0   0            0            0            
ST2	031155 035412 0   0   0            0            0            
ST9	031155 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 61
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0340

*031155 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031155 031155 0   0   332000000000 0            0            
IT1	031155 0      0   0   332000000000 0            0            
AT3	031155 0      0   0   0            0            332000000000 
AT6	031155 0      0   0   0            0            332000000000 
FT0	031155 0      0   0   0            0            332000000000 
FT1A	031155 0      0   0   0            0            0            
FT9	031156 0      0   0   0            0            0            
ET0	031157 0      0   0   0            0            0            
ST1A	031157 0      0   0   0            0            0            
ST9	031157 0      0   0   0            0            0            


*031157 JUMPA	0,031160
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031157 031157 0   0   324000031160 0            000000031160 
IT1	031157 0      0   0   324000031160 0            000000031160 
AT3	031157 0      0   0   000000031160 0            324000031160 
AT6	031157 031160 0   0   000000031160 0            324000031160 
FT1A	031157 031160 0   0   000000031160 0            000000031160 
FT2	031157 031160 0   0   0            0            000000031160 
FT2RQ	031157 031160 0   0   0            0            000000031160 
FT3	031157 031160 0   0   0            0            000000031160 
FT9	031160 031160 0   0   0            0            000000031160 
ET0	031160 031160 0   0   0            0            000000031160 
ST1A	031160 031160 0   0   0            0            000000031160 
ST9	031160 031160 0   0   0            0            000000031160 


*031160 MOVE 	0,035436
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031160 031160 0   0   200000035436 0            000000200000 
IT1	031160 0      0   0   200000035436 0            000000200000 
AT3	031160 0      0   0   000000035436 0            200000035436 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 62
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0341

AT6	031160 035436 0   0   000000035436 0            200000035436 
FT0	031160 035436 0   0   000000200000 0            200000035436 
FT1A	031160 035436 0   0   000000200000 0            000000200000 
FT9	031161 035436 0   0   000000200000 0            000000200000 
ET0	031161 035436 0   0   000000200000 0            000000200000 
ST1	031161 035436 0   0   000000200000 0            000000200000 
ST2	031161 035436 0   0   000000200000 0            000000200000 
ST9	031161 035436 0   0   000000200000 0            000000200000 


*031161 ADD 	0,035412
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031161 031161 0   0   270000035412 0            0            
IT1	031161 0      0   0   270000035412 0            0            
AT3	031161 0      0   0   000000035412 0            270000035412 
AT6	031161 035412 0   0   000000035412 0            270000035412 
FT0	031161 035412 0   0   0            0            270000035412 
FT1A	031161 035412 0   0   0            0            0            
FT2	031161 035412 0   0   0            0            0            
FT2RQ	031161 035412 0   0   000000200000 0            0            
FT3	031161 035412 0   0   000000200000 0            0            
FT9	031162 035412 0   0   000000200000 0            0            
ET0	031162 035412 0   0   000000200000 0            0            
ST1	031162 035412 0   0   000000200000 0            0            
ST2	031162 035412 0   0   000000200000 0            0            
ST9	031162 035412 0   0   000000200000 0            0            


*031162 EQV 	0,035436
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031162 031162 0   0   444000035436 0            000000200000 
IT1	031162 0      0   0   444000035436 0            000000200000 
AT3	031162 0      0   0   000000035436 0            444000035436 
AT6	031162 035436 0   0   000000035436 0            444000035436 
FT0	031162 035436 0   0   000000200000 0            444000035436 
FT1A	031162 035436 0   0   000000200000 0            000000200000 
FT2	031162 035436 0   0   0            0            000000200000 
FT2RQ	031162 035436 0   0   000000200000 0            000000200000 
FT3	031162 035436 0   0   000000200000 0            000000200000 
FT9	031163 035436 0   0   000000200000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 63
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0342

ET0	031163 035436 0   0   777777777777 0            000000200000 
ST1	031163 035436 0   0   777777777777 0            000000200000 
ST2	031163 035436 0   0   777777777777 0            000000200000 
ST9	031163 035436 0   0   777777777777 0            000000200000 


*031163 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031163 031163 0   0   444000035412 0            0            
IT1	031163 0      0   0   444000035412 0            0            
AT3	031163 0      0   0   000000035412 0            444000035412 
AT6	031163 035412 0   0   000000035412 0            444000035412 
FT0	031163 035412 0   0   0            0            444000035412 
FT1A	031163 035412 0   0   0            0            0            
FT2	031163 035412 0   0   0            0            0            
FT2RQ	031163 035412 0   0   777777777777 0            0            
FT3	031163 035412 0   0   777777777777 0            0            
FT9	031164 035412 0   0   777777777777 0            0            
ET0	031164 035412 0   0   0            0            0            
ST1	031164 035412 0   0   0            0            0            
ST2	031164 035412 0   0   0            0            0            
ST9	031164 035412 0   0   0            0            0            


*031164 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031164 031164 0   0   332000000000 0            0            
IT1	031164 0      0   0   332000000000 0            0            
AT3	031164 0      0   0   0            0            332000000000 
AT6	031164 0      0   0   0            0            332000000000 
FT0	031164 0      0   0   0            0            332000000000 
FT1A	031164 0      0   0   0            0            0            
FT9	031165 0      0   0   0            0            0            
ET0	031166 0      0   0   0            0            0            
ST1A	031166 0      0   0   0            0            0            
ST9	031166 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 64
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0343

*031166 JUMPA	0,031167
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031166 031166 0   0   324000031167 0            000000031167 
IT1	031166 0      0   0   324000031167 0            000000031167 
AT3	031166 0      0   0   000000031167 0            324000031167 
AT6	031166 031167 0   0   000000031167 0            324000031167 
FT1A	031166 031167 0   0   000000031167 0            000000031167 
FT2	031166 031167 0   0   0            0            000000031167 
FT2RQ	031166 031167 0   0   0            0            000000031167 
FT3	031166 031167 0   0   0            0            000000031167 
FT9	031167 031167 0   0   0            0            000000031167 
ET0	031167 031167 0   0   0            0            000000031167 
ST1A	031167 031167 0   0   0            0            000000031167 
ST9	031167 031167 0   0   0            0            000000031167 


*031167 MOVE 	0,035437
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031167 031167 0   0   200000035437 0            000000400000 
IT1	031167 0      0   0   200000035437 0            000000400000 
AT3	031167 0      0   0   000000035437 0            200000035437 
AT6	031167 035437 0   0   000000035437 0            200000035437 
FT0	031167 035437 0   0   000000400000 0            200000035437 
FT1A	031167 035437 0   0   000000400000 0            000000400000 
FT9	031170 035437 0   0   000000400000 0            000000400000 
ET0	031170 035437 0   0   000000400000 0            000000400000 
ST1	031170 035437 0   0   000000400000 0            000000400000 
ST2	031170 035437 0   0   000000400000 0            000000400000 
ST9	031170 035437 0   0   000000400000 0            000000400000 


*031170 ADD 	0,035412
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031170 031170 0   0   270000035412 0            0            
IT1	031170 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 65
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0344

AT3	031170 0      0   0   000000035412 0            270000035412 
AT6	031170 035412 0   0   000000035412 0            270000035412 
FT0	031170 035412 0   0   0            0            270000035412 
FT1A	031170 035412 0   0   0            0            0            
FT2	031170 035412 0   0   0            0            0            
FT2RQ	031170 035412 0   0   000000400000 0            0            
FT3	031170 035412 0   0   000000400000 0            0            
FT9	031171 035412 0   0   000000400000 0            0            
ET0	031171 035412 0   0   000000400000 0            0            
ST1	031171 035412 0   0   000000400000 0            0            
ST2	031171 035412 0   0   000000400000 0            0            
ST9	031171 035412 0   0   000000400000 0            0            


*031171 EQV 	0,035437
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031171 031171 0   0   444000035437 0            000000400000 
IT1	031171 0      0   0   444000035437 0            000000400000 
AT3	031171 0      0   0   000000035437 0            444000035437 
AT6	031171 035437 0   0   000000035437 0            444000035437 
FT0	031171 035437 0   0   000000400000 0            444000035437 
FT1A	031171 035437 0   0   000000400000 0            000000400000 
FT2	031171 035437 0   0   0            0            000000400000 
FT2RQ	031171 035437 0   0   000000400000 0            000000400000 
FT3	031171 035437 0   0   000000400000 0            000000400000 
FT9	031172 035437 0   0   000000400000 0            000000400000 
ET0	031172 035437 0   0   777777777777 0            000000400000 
ST1	031172 035437 0   0   777777777777 0            000000400000 
ST2	031172 035437 0   0   777777777777 0            000000400000 
ST9	031172 035437 0   0   777777777777 0            000000400000 


*031172 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031172 031172 0   0   444000035412 0            0            
IT1	031172 0      0   0   444000035412 0            0            
AT3	031172 0      0   0   000000035412 0            444000035412 
AT6	031172 035412 0   0   000000035412 0            444000035412 
FT0	031172 035412 0   0   0            0            444000035412 
FT1A	031172 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 66
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0345

FT2	031172 035412 0   0   0            0            0            
FT2RQ	031172 035412 0   0   777777777777 0            0            
FT3	031172 035412 0   0   777777777777 0            0            
FT9	031173 035412 0   0   777777777777 0            0            
ET0	031173 035412 0   0   0            0            0            
ST1	031173 035412 0   0   0            0            0            
ST2	031173 035412 0   0   0            0            0            
ST9	031173 035412 0   0   0            0            0            


*031173 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031173 031173 0   0   332000000000 0            0            
IT1	031173 0      0   0   332000000000 0            0            
AT3	031173 0      0   0   0            0            332000000000 
AT6	031173 0      0   0   0            0            332000000000 
FT0	031173 0      0   0   0            0            332000000000 
FT1A	031173 0      0   0   0            0            0            
FT9	031174 0      0   0   0            0            0            
ET0	031175 0      0   0   0            0            0            
ST1A	031175 0      0   0   0            0            0            
ST9	031175 0      0   0   0            0            0            


*031175 JUMPA	0,031176
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031175 031175 0   0   324000031176 0            000000031176 
IT1	031175 0      0   0   324000031176 0            000000031176 
AT3	031175 0      0   0   000000031176 0            324000031176 
AT6	031175 031176 0   0   000000031176 0            324000031176 
FT1A	031175 031176 0   0   000000031176 0            000000031176 
FT2	031175 031176 0   0   0            0            000000031176 
FT2RQ	031175 031176 0   0   0            0            000000031176 
FT3	031175 031176 0   0   0            0            000000031176 
FT9	031176 031176 0   0   0            0            000000031176 
ET0	031176 031176 0   0   0            0            000000031176 
ST1A	031176 031176 0   0   0            0            000000031176 
ST9	031176 031176 0   0   0            0            000000031176 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 67
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0346

*031176 MOVE 	0,035440
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031176 031176 0   0   200000035440 0            000001000000 
IT1	031176 0      0   0   200000035440 0            000001000000 
AT3	031176 0      0   0   000000035440 0            200000035440 
AT6	031176 035440 0   0   000000035440 0            200000035440 
FT0	031176 035440 0   0   000001000000 0            200000035440 
FT1A	031176 035440 0   0   000001000000 0            000001000000 
FT9	031177 035440 0   0   000001000000 0            000001000000 
ET0	031177 035440 0   0   000001000000 0            000001000000 
ST1	031177 035440 0   0   000001000000 0            000001000000 
ST2	031177 035440 0   0   000001000000 0            000001000000 
ST9	031177 035440 0   0   000001000000 0            000001000000 


*031177 ADD 	0,035412
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031177 031177 0   0   270000035412 0            0            
IT1	031177 0      0   0   270000035412 0            0            
AT3	031177 0      0   0   000000035412 0            270000035412 
AT6	031177 035412 0   0   000000035412 0            270000035412 
FT0	031177 035412 0   0   0            0            270000035412 
FT1A	031177 035412 0   0   0            0            0            
FT2	031177 035412 0   0   0            0            0            
FT2RQ	031177 035412 0   0   000001000000 0            0            
FT3	031177 035412 0   0   000001000000 0            0            
FT9	0      035412 0   0   000001000000 0            0            
ET0	0      035412 0   0   000001000000 0            0            
ST1	0      035412 0   0   000001000000 0            0            
ST2	0      035412 0   0   000001000000 0            0            
ST9	0      035412 0   0   000001000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 68
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0347

*031200 EQV 	0,035440
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035440 0            000001000000 
IT1	0      0      0   0   444000035440 0            000001000000 
AT3	0      0      0   0   000000035440 0            444000035440 
AT6	0      035440 0   0   000000035440 0            444000035440 
FT0	0      035440 0   0   000001000000 0            444000035440 
FT1A	0      035440 0   0   000001000000 0            000001000000 
FT2	0      035440 0   0   0            0            000001000000 
FT2RQ	0      035440 0   0   000001000000 0            000001000000 
FT3	0      035440 0   0   000001000000 0            000001000000 
FT9	031201 035440 0   0   000001000000 0            000001000000 
ET0	031201 035440 0   0   777777777777 0            000001000000 
ST1	031201 035440 0   0   777777777777 0            000001000000 
ST2	031201 035440 0   0   777777777777 0            000001000000 
ST9	031201 035440 0   0   777777777777 0            000001000000 


*031201 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031201 031201 0   0   444000035412 0            0            
IT1	031201 0      0   0   444000035412 0            0            
AT3	031201 0      0   0   000000035412 0            444000035412 
AT6	031201 035412 0   0   000000035412 0            444000035412 
FT0	031201 035412 0   0   0            0            444000035412 
FT1A	031201 035412 0   0   0            0            0            
FT2	031201 035412 0   0   0            0            0            
FT2RQ	031201 035412 0   0   777777777777 0            0            
FT3	031201 035412 0   0   777777777777 0            0            
FT9	031202 035412 0   0   777777777777 0            0            
ET0	031202 035412 0   0   0            0            0            
ST1	031202 035412 0   0   0            0            0            
ST2	031202 035412 0   0   0            0            0            
ST9	031202 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 69
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0348

*031202 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031202 031202 0   0   332000000000 0            0            
IT1	031202 0      0   0   332000000000 0            0            
AT3	031202 0      0   0   0            0            332000000000 
AT6	031202 0      0   0   0            0            332000000000 
FT0	031202 0      0   0   0            0            332000000000 
FT1A	031202 0      0   0   0            0            0            
FT9	031203 0      0   0   0            0            0            
ET0	031204 0      0   0   0            0            0            
ST1A	031204 0      0   0   0            0            0            
ST9	031204 0      0   0   0            0            0            


*031204 JUMPA	0,031205
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031204 031204 0   0   324000031205 0            000000031205 
IT1	031204 0      0   0   324000031205 0            000000031205 
AT3	031204 0      0   0   000000031205 0            324000031205 
AT6	031204 031205 0   0   000000031205 0            324000031205 
FT1A	031204 031205 0   0   000000031205 0            000000031205 
FT2	031204 031205 0   0   0            0            000000031205 
FT2RQ	031204 031205 0   0   0            0            000000031205 
FT3	031204 031205 0   0   0            0            000000031205 
FT9	031205 031205 0   0   0            0            000000031205 
ET0	031205 031205 0   0   0            0            000000031205 
ST1A	031205 031205 0   0   0            0            000000031205 
ST9	031205 031205 0   0   0            0            000000031205 


*031205 MOVE 	0,035441
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031205 031205 0   0   200000035441 0            000002000000 
IT1	031205 0      0   0   200000035441 0            000002000000 
AT3	031205 0      0   0   000000035441 0            200000035441 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 70
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0349

AT6	031205 035441 0   0   000000035441 0            200000035441 
FT0	031205 035441 0   0   000002000000 0            200000035441 
FT1A	031205 035441 0   0   000002000000 0            000002000000 
FT9	031206 035441 0   0   000002000000 0            000002000000 
ET0	031206 035441 0   0   000002000000 0            000002000000 
ST1	031206 035441 0   0   000002000000 0            000002000000 
ST2	031206 035441 0   0   000002000000 0            000002000000 
ST9	031206 035441 0   0   000002000000 0            000002000000 


*031206 ADD 	0,035412
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031206 031206 0   0   270000035412 0            0            
IT1	031206 0      0   0   270000035412 0            0            
AT3	031206 0      0   0   000000035412 0            270000035412 
AT6	031206 035412 0   0   000000035412 0            270000035412 
FT0	031206 035412 0   0   0            0            270000035412 
FT1A	031206 035412 0   0   0            0            0            
FT2	031206 035412 0   0   0            0            0            
FT2RQ	031206 035412 0   0   000002000000 0            0            
FT3	031206 035412 0   0   000002000000 0            0            
FT9	031207 035412 0   0   000002000000 0            0            
ET0	031207 035412 0   0   000002000000 0            0            
ST1	031207 035412 0   0   000002000000 0            0            
ST2	031207 035412 0   0   000002000000 0            0            
ST9	031207 035412 0   0   000002000000 0            0            


*031207 EQV 	0,035441
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031207 031207 0   0   444000035441 0            000002000000 
IT1	031207 0      0   0   444000035441 0            000002000000 
AT3	031207 0      0   0   000000035441 0            444000035441 
AT6	031207 035441 0   0   000000035441 0            444000035441 
FT0	031207 035441 0   0   000002000000 0            444000035441 
FT1A	031207 035441 0   0   000002000000 0            000002000000 
FT2	031207 035441 0   0   0            0            000002000000 
FT2RQ	031207 035441 0   0   000002000000 0            000002000000 
FT3	031207 035441 0   0   000002000000 0            000002000000 
FT9	031210 035441 0   0   000002000000 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 71
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0350

ET0	031210 035441 0   0   777777777777 0            000002000000 
ST1	031210 035441 0   0   777777777777 0            000002000000 
ST2	031210 035441 0   0   777777777777 0            000002000000 
ST9	031210 035441 0   0   777777777777 0            000002000000 


*031210 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031210 031210 0   0   444000035412 0            0            
IT1	031210 0      0   0   444000035412 0            0            
AT3	031210 0      0   0   000000035412 0            444000035412 
AT6	031210 035412 0   0   000000035412 0            444000035412 
FT0	031210 035412 0   0   0            0            444000035412 
FT1A	031210 035412 0   0   0            0            0            
FT2	031210 035412 0   0   0            0            0            
FT2RQ	031210 035412 0   0   777777777777 0            0            
FT3	031210 035412 0   0   777777777777 0            0            
FT9	031211 035412 0   0   777777777777 0            0            
ET0	031211 035412 0   0   0            0            0            
ST1	031211 035412 0   0   0            0            0            
ST2	031211 035412 0   0   0            0            0            
ST9	031211 035412 0   0   0            0            0            


*031211 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031211 031211 0   0   332000000000 0            0            
IT1	031211 0      0   0   332000000000 0            0            
AT3	031211 0      0   0   0            0            332000000000 
AT6	031211 0      0   0   0            0            332000000000 
FT0	031211 0      0   0   0            0            332000000000 
FT1A	031211 0      0   0   0            0            0            
FT9	031212 0      0   0   0            0            0            
ET0	031213 0      0   0   0            0            0            
ST1A	031213 0      0   0   0            0            0            
ST9	031213 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 72
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0351

*031213 JUMPA	0,031214
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031213 031213 0   0   324000031214 0            000000031214 
IT1	031213 0      0   0   324000031214 0            000000031214 
AT3	031213 0      0   0   000000031214 0            324000031214 
AT6	031213 031214 0   0   000000031214 0            324000031214 
FT1A	031213 031214 0   0   000000031214 0            000000031214 
FT2	031213 031214 0   0   0            0            000000031214 
FT2RQ	031213 031214 0   0   0            0            000000031214 
FT3	031213 031214 0   0   0            0            000000031214 
FT9	031214 031214 0   0   0            0            000000031214 
ET0	031214 031214 0   0   0            0            000000031214 
ST1A	031214 031214 0   0   0            0            000000031214 
ST9	031214 031214 0   0   0            0            000000031214 


*031214 MOVE 	0,035442
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031214 031214 0   0   200000035442 0            000004000000 
IT1	031214 0      0   0   200000035442 0            000004000000 
AT3	031214 0      0   0   000000035442 0            200000035442 
AT6	031214 035442 0   0   000000035442 0            200000035442 
FT0	031214 035442 0   0   000004000000 0            200000035442 
FT1A	031214 035442 0   0   000004000000 0            000004000000 
FT9	031215 035442 0   0   000004000000 0            000004000000 
ET0	031215 035442 0   0   000004000000 0            000004000000 
ST1	031215 035442 0   0   000004000000 0            000004000000 
ST2	031215 035442 0   0   000004000000 0            000004000000 
ST9	031215 035442 0   0   000004000000 0            000004000000 


*031215 ADD 	0,035412
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031215 031215 0   0   270000035412 0            0            
IT1	031215 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 73
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0352

AT3	031215 0      0   0   000000035412 0            270000035412 
AT6	031215 035412 0   0   000000035412 0            270000035412 
FT0	031215 035412 0   0   0            0            270000035412 
FT1A	031215 035412 0   0   0            0            0            
FT2	031215 035412 0   0   0            0            0            
FT2RQ	031215 035412 0   0   000004000000 0            0            
FT3	031215 035412 0   0   000004000000 0            0            
FT9	031216 035412 0   0   000004000000 0            0            
ET0	031216 035412 0   0   000004000000 0            0            
ST1	031216 035412 0   0   000004000000 0            0            
ST2	031216 035412 0   0   000004000000 0            0            
ST9	031216 035412 0   0   000004000000 0            0            


*031216 EQV 	0,035442
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031216 031216 0   0   444000035442 0            000004000000 
IT1	031216 0      0   0   444000035442 0            000004000000 
AT3	031216 0      0   0   000000035442 0            444000035442 
AT6	031216 035442 0   0   000000035442 0            444000035442 
FT0	031216 035442 0   0   000004000000 0            444000035442 
FT1A	031216 035442 0   0   000004000000 0            000004000000 
FT2	031216 035442 0   0   0            0            000004000000 
FT2RQ	031216 035442 0   0   000004000000 0            000004000000 
FT3	031216 035442 0   0   000004000000 0            000004000000 
FT9	031217 035442 0   0   000004000000 0            000004000000 
ET0	031217 035442 0   0   777777777777 0            000004000000 
ST1	031217 035442 0   0   777777777777 0            000004000000 
ST2	031217 035442 0   0   777777777777 0            000004000000 
ST9	031217 035442 0   0   777777777777 0            000004000000 


*031217 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031217 031217 0   0   444000035412 0            0            
IT1	031217 0      0   0   444000035412 0            0            
AT3	031217 0      0   0   000000035412 0            444000035412 
AT6	031217 035412 0   0   000000035412 0            444000035412 
FT0	031217 035412 0   0   0            0            444000035412 
FT1A	031217 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 74
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0353

FT2	031217 035412 0   0   0            0            0            
FT2RQ	031217 035412 0   0   777777777777 0            0            
FT3	031217 035412 0   0   777777777777 0            0            
FT9	031220 035412 0   0   777777777777 0            0            
ET0	031220 035412 0   0   0            0            0            
ST1	031220 035412 0   0   0            0            0            
ST2	031220 035412 0   0   0            0            0            
ST9	031220 035412 0   0   0            0            0            


*031220 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031220 031220 0   0   332000000000 0            0            
IT1	031220 0      0   0   332000000000 0            0            
AT3	031220 0      0   0   0            0            332000000000 
AT6	031220 0      0   0   0            0            332000000000 
FT0	031220 0      0   0   0            0            332000000000 
FT1A	031220 0      0   0   0            0            0            
FT9	031221 0      0   0   0            0            0            
ET0	031222 0      0   0   0            0            0            
ST1A	031222 0      0   0   0            0            0            
ST9	031222 0      0   0   0            0            0            


*031222 JUMPA	0,031223
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031222 031222 0   0   324000031223 0            000000031223 
IT1	031222 0      0   0   324000031223 0            000000031223 
AT3	031222 0      0   0   000000031223 0            324000031223 
AT6	031222 031223 0   0   000000031223 0            324000031223 
FT1A	031222 031223 0   0   000000031223 0            000000031223 
FT2	031222 031223 0   0   0            0            000000031223 
FT2RQ	031222 031223 0   0   0            0            000000031223 
FT3	031222 031223 0   0   0            0            000000031223 
FT9	031223 031223 0   0   0            0            000000031223 
ET0	031223 031223 0   0   0            0            000000031223 
ST1A	031223 031223 0   0   0            0            000000031223 
ST9	031223 031223 0   0   0            0            000000031223 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 75
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0354

*031223 MOVE 	0,035443
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031223 031223 0   0   200000035443 0            000010000000 
IT1	031223 0      0   0   200000035443 0            000010000000 
AT3	031223 0      0   0   000000035443 0            200000035443 
AT6	031223 035443 0   0   000000035443 0            200000035443 
FT0	031223 035443 0   0   000010000000 0            200000035443 
FT1A	031223 035443 0   0   000010000000 0            000010000000 
FT9	031224 035443 0   0   000010000000 0            000010000000 
ET0	031224 035443 0   0   000010000000 0            000010000000 
ST1	031224 035443 0   0   000010000000 0            000010000000 
ST2	031224 035443 0   0   000010000000 0            000010000000 
ST9	031224 035443 0   0   000010000000 0            000010000000 


*031224 ADD 	0,035412
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031224 031224 0   0   270000035412 0            0            
IT1	031224 0      0   0   270000035412 0            0            
AT3	031224 0      0   0   000000035412 0            270000035412 
AT6	031224 035412 0   0   000000035412 0            270000035412 
FT0	031224 035412 0   0   0            0            270000035412 
FT1A	031224 035412 0   0   0            0            0            
FT2	031224 035412 0   0   0            0            0            
FT2RQ	031224 035412 0   0   000010000000 0            0            
FT3	031224 035412 0   0   000010000000 0            0            
FT9	031225 035412 0   0   000010000000 0            0            
ET0	031225 035412 0   0   000010000000 0            0            
ST1	031225 035412 0   0   000010000000 0            0            
ST2	031225 035412 0   0   000010000000 0            0            
ST9	031225 035412 0   0   000010000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 76
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0355

*031225 EQV 	0,035443
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031225 031225 0   0   444000035443 0            000010000000 
IT1	031225 0      0   0   444000035443 0            000010000000 
AT3	031225 0      0   0   000000035443 0            444000035443 
AT6	031225 035443 0   0   000000035443 0            444000035443 
FT0	031225 035443 0   0   000010000000 0            444000035443 
FT1A	031225 035443 0   0   000010000000 0            000010000000 
FT2	031225 035443 0   0   0            0            000010000000 
FT2RQ	031225 035443 0   0   000010000000 0            000010000000 
FT3	031225 035443 0   0   000010000000 0            000010000000 
FT9	031226 035443 0   0   000010000000 0            000010000000 
ET0	031226 035443 0   0   777777777777 0            000010000000 
ST1	031226 035443 0   0   777777777777 0            000010000000 
ST2	031226 035443 0   0   777777777777 0            000010000000 
ST9	031226 035443 0   0   777777777777 0            000010000000 


*031226 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031226 031226 0   0   444000035412 0            0            
IT1	031226 0      0   0   444000035412 0            0            
AT3	031226 0      0   0   000000035412 0            444000035412 
AT6	031226 035412 0   0   000000035412 0            444000035412 
FT0	031226 035412 0   0   0            0            444000035412 
FT1A	031226 035412 0   0   0            0            0            
FT2	031226 035412 0   0   0            0            0            
FT2RQ	031226 035412 0   0   777777777777 0            0            
FT3	031226 035412 0   0   777777777777 0            0            
FT9	031227 035412 0   0   777777777777 0            0            
ET0	031227 035412 0   0   0            0            0            
ST1	031227 035412 0   0   0            0            0            
ST2	031227 035412 0   0   0            0            0            
ST9	031227 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 77
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0356

*031227 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031227 031227 0   0   332000000000 0            0            
IT1	031227 0      0   0   332000000000 0            0            
AT3	031227 0      0   0   0            0            332000000000 
AT6	031227 0      0   0   0            0            332000000000 
FT0	031227 0      0   0   0            0            332000000000 
FT1A	031227 0      0   0   0            0            0            
FT9	031230 0      0   0   0            0            0            
ET0	031231 0      0   0   0            0            0            
ST1A	031231 0      0   0   0            0            0            
ST9	031231 0      0   0   0            0            0            


*031231 JUMPA	0,031232
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031231 031231 0   0   324000031232 0            000000031232 
IT1	031231 0      0   0   324000031232 0            000000031232 
AT3	031231 0      0   0   000000031232 0            324000031232 
AT6	031231 031232 0   0   000000031232 0            324000031232 
FT1A	031231 031232 0   0   000000031232 0            000000031232 
FT2	031231 031232 0   0   0            0            000000031232 
FT2RQ	031231 031232 0   0   0            0            000000031232 
FT3	031231 031232 0   0   0            0            000000031232 
FT9	031232 031232 0   0   0            0            000000031232 
ET0	031232 031232 0   0   0            0            000000031232 
ST1A	031232 031232 0   0   0            0            000000031232 
ST9	031232 031232 0   0   0            0            000000031232 


*031232 MOVE 	0,035444
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031232 031232 0   0   200000035444 0            000020000000 
IT1	031232 0      0   0   200000035444 0            000020000000 
AT3	031232 0      0   0   000000035444 0            200000035444 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 78
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0357

AT6	031232 035444 0   0   000000035444 0            200000035444 
FT0	031232 035444 0   0   000020000000 0            200000035444 
FT1A	031232 035444 0   0   000020000000 0            000020000000 
FT9	031233 035444 0   0   000020000000 0            000020000000 
ET0	031233 035444 0   0   000020000000 0            000020000000 
ST1	031233 035444 0   0   000020000000 0            000020000000 
ST2	031233 035444 0   0   000020000000 0            000020000000 
ST9	031233 035444 0   0   000020000000 0            000020000000 


*031233 ADD 	0,035412
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031233 031233 0   0   270000035412 0            0            
IT1	031233 0      0   0   270000035412 0            0            
AT3	031233 0      0   0   000000035412 0            270000035412 
AT6	031233 035412 0   0   000000035412 0            270000035412 
FT0	031233 035412 0   0   0            0            270000035412 
FT1A	031233 035412 0   0   0            0            0            
FT2	031233 035412 0   0   0            0            0            
FT2RQ	031233 035412 0   0   000020000000 0            0            
FT3	031233 035412 0   0   000020000000 0            0            
FT9	031234 035412 0   0   000020000000 0            0            
ET0	031234 035412 0   0   000020000000 0            0            
ST1	031234 035412 0   0   000020000000 0            0            
ST2	031234 035412 0   0   000020000000 0            0            
ST9	031234 035412 0   0   000020000000 0            0            


*031234 EQV 	0,035444
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031234 031234 0   0   444000035444 0            000020000000 
IT1	031234 0      0   0   444000035444 0            000020000000 
AT3	031234 0      0   0   000000035444 0            444000035444 
AT6	031234 035444 0   0   000000035444 0            444000035444 
FT0	031234 035444 0   0   000020000000 0            444000035444 
FT1A	031234 035444 0   0   000020000000 0            000020000000 
FT2	031234 035444 0   0   0            0            000020000000 
FT2RQ	031234 035444 0   0   000020000000 0            000020000000 
FT3	031234 035444 0   0   000020000000 0            000020000000 
FT9	031235 035444 0   0   000020000000 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 79
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0358

ET0	031235 035444 0   0   777777777777 0            000020000000 
ST1	031235 035444 0   0   777777777777 0            000020000000 
ST2	031235 035444 0   0   777777777777 0            000020000000 
ST9	031235 035444 0   0   777777777777 0            000020000000 


*031235 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031235 031235 0   0   444000035412 0            0            
IT1	031235 0      0   0   444000035412 0            0            
AT3	031235 0      0   0   000000035412 0            444000035412 
AT6	031235 035412 0   0   000000035412 0            444000035412 
FT0	031235 035412 0   0   0            0            444000035412 
FT1A	031235 035412 0   0   0            0            0            
FT2	031235 035412 0   0   0            0            0            
FT2RQ	031235 035412 0   0   777777777777 0            0            
FT3	031235 035412 0   0   777777777777 0            0            
FT9	031236 035412 0   0   777777777777 0            0            
ET0	031236 035412 0   0   0            0            0            
ST1	031236 035412 0   0   0            0            0            
ST2	031236 035412 0   0   0            0            0            
ST9	031236 035412 0   0   0            0            0            


*031236 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031236 031236 0   0   332000000000 0            0            
IT1	031236 0      0   0   332000000000 0            0            
AT3	031236 0      0   0   0            0            332000000000 
AT6	031236 0      0   0   0            0            332000000000 
FT0	031236 0      0   0   0            0            332000000000 
FT1A	031236 0      0   0   0            0            0            
FT9	031237 0      0   0   0            0            0            
ET0	031240 0      0   0   0            0            0            
ST1A	031240 0      0   0   0            0            0            
ST9	031240 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 80
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0359

*031240 JUMPA	0,031241
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031240 031240 0   0   324000031241 0            000000031241 
IT1	031240 0      0   0   324000031241 0            000000031241 
AT3	031240 0      0   0   000000031241 0            324000031241 
AT6	031240 031241 0   0   000000031241 0            324000031241 
FT1A	031240 031241 0   0   000000031241 0            000000031241 
FT2	031240 031241 0   0   0            0            000000031241 
FT2RQ	031240 031241 0   0   0            0            000000031241 
FT3	031240 031241 0   0   0            0            000000031241 
FT9	031241 031241 0   0   0            0            000000031241 
ET0	031241 031241 0   0   0            0            000000031241 
ST1A	031241 031241 0   0   0            0            000000031241 
ST9	031241 031241 0   0   0            0            000000031241 


*031241 MOVE 	0,035445
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031241 031241 0   0   200000035445 0            000040000000 
IT1	031241 0      0   0   200000035445 0            000040000000 
AT3	031241 0      0   0   000000035445 0            200000035445 
AT6	031241 035445 0   0   000000035445 0            200000035445 
FT0	031241 035445 0   0   000040000000 0            200000035445 
FT1A	031241 035445 0   0   000040000000 0            000040000000 
FT9	031242 035445 0   0   000040000000 0            000040000000 
ET0	031242 035445 0   0   000040000000 0            000040000000 
ST1	031242 035445 0   0   000040000000 0            000040000000 
ST2	031242 035445 0   0   000040000000 0            000040000000 
ST9	031242 035445 0   0   000040000000 0            000040000000 


*031242 ADD 	0,035412
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031242 031242 0   0   270000035412 0            0            
IT1	031242 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 81
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0360

AT3	031242 0      0   0   000000035412 0            270000035412 
AT6	031242 035412 0   0   000000035412 0            270000035412 
FT0	031242 035412 0   0   0            0            270000035412 
FT1A	031242 035412 0   0   0            0            0            
FT2	031242 035412 0   0   0            0            0            
FT2RQ	031242 035412 0   0   000040000000 0            0            
FT3	031242 035412 0   0   000040000000 0            0            
FT9	031243 035412 0   0   000040000000 0            0            
ET0	031243 035412 0   0   000040000000 0            0            
ST1	031243 035412 0   0   000040000000 0            0            
ST2	031243 035412 0   0   000040000000 0            0            
ST9	031243 035412 0   0   000040000000 0            0            


*031243 EQV 	0,035445
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031243 031243 0   0   444000035445 0            000040000000 
IT1	031243 0      0   0   444000035445 0            000040000000 
AT3	031243 0      0   0   000000035445 0            444000035445 
AT6	031243 035445 0   0   000000035445 0            444000035445 
FT0	031243 035445 0   0   000040000000 0            444000035445 
FT1A	031243 035445 0   0   000040000000 0            000040000000 
FT2	031243 035445 0   0   0            0            000040000000 
FT2RQ	031243 035445 0   0   000040000000 0            000040000000 
FT3	031243 035445 0   0   000040000000 0            000040000000 
FT9	031244 035445 0   0   000040000000 0            000040000000 
ET0	031244 035445 0   0   777777777777 0            000040000000 
ST1	031244 035445 0   0   777777777777 0            000040000000 
ST2	031244 035445 0   0   777777777777 0            000040000000 
ST9	031244 035445 0   0   777777777777 0            000040000000 


*031244 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031244 031244 0   0   444000035412 0            0            
IT1	031244 0      0   0   444000035412 0            0            
AT3	031244 0      0   0   000000035412 0            444000035412 
AT6	031244 035412 0   0   000000035412 0            444000035412 
FT0	031244 035412 0   0   0            0            444000035412 
FT1A	031244 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 82
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0361

FT2	031244 035412 0   0   0            0            0            
FT2RQ	031244 035412 0   0   777777777777 0            0            
FT3	031244 035412 0   0   777777777777 0            0            
FT9	031245 035412 0   0   777777777777 0            0            
ET0	031245 035412 0   0   0            0            0            
ST1	031245 035412 0   0   0            0            0            
ST2	031245 035412 0   0   0            0            0            
ST9	031245 035412 0   0   0            0            0            


*031245 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031245 031245 0   0   332000000000 0            0            
IT1	031245 0      0   0   332000000000 0            0            
AT3	031245 0      0   0   0            0            332000000000 
AT6	031245 0      0   0   0            0            332000000000 
FT0	031245 0      0   0   0            0            332000000000 
FT1A	031245 0      0   0   0            0            0            
FT9	031246 0      0   0   0            0            0            
ET0	031247 0      0   0   0            0            0            
ST1A	031247 0      0   0   0            0            0            
ST9	031247 0      0   0   0            0            0            


*031247 JUMPA	0,031250
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031247 031247 0   0   324000031250 0            000000031250 
IT1	031247 0      0   0   324000031250 0            000000031250 
AT3	031247 0      0   0   000000031250 0            324000031250 
AT6	031247 031250 0   0   000000031250 0            324000031250 
FT1A	031247 031250 0   0   000000031250 0            000000031250 
FT2	031247 031250 0   0   0            0            000000031250 
FT2RQ	031247 031250 0   0   0            0            000000031250 
FT3	031247 031250 0   0   0            0            000000031250 
FT9	031250 031250 0   0   0            0            000000031250 
ET0	031250 031250 0   0   0            0            000000031250 
ST1A	031250 031250 0   0   0            0            000000031250 
ST9	031250 031250 0   0   0            0            000000031250 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 83
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0362

*031250 MOVE 	0,035446
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031250 031250 0   0   200000035446 0            000100000000 
IT1	031250 0      0   0   200000035446 0            000100000000 
AT3	031250 0      0   0   000000035446 0            200000035446 
AT6	031250 035446 0   0   000000035446 0            200000035446 
FT0	031250 035446 0   0   000100000000 0            200000035446 
FT1A	031250 035446 0   0   000100000000 0            000100000000 
FT9	031251 035446 0   0   000100000000 0            000100000000 
ET0	031251 035446 0   0   000100000000 0            000100000000 
ST1	031251 035446 0   0   000100000000 0            000100000000 
ST2	031251 035446 0   0   000100000000 0            000100000000 
ST9	031251 035446 0   0   000100000000 0            000100000000 


*031251 ADD 	0,035412
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031251 031251 0   0   270000035412 0            0            
IT1	031251 0      0   0   270000035412 0            0            
AT3	031251 0      0   0   000000035412 0            270000035412 
AT6	031251 035412 0   0   000000035412 0            270000035412 
FT0	031251 035412 0   0   0            0            270000035412 
FT1A	031251 035412 0   0   0            0            0            
FT2	031251 035412 0   0   0            0            0            
FT2RQ	031251 035412 0   0   000100000000 0            0            
FT3	031251 035412 0   0   000100000000 0            0            
FT9	031252 035412 0   0   000100000000 0            0            
ET0	031252 035412 0   0   000100000000 0            0            
ST1	031252 035412 0   0   000100000000 0            0            
ST2	031252 035412 0   0   000100000000 0            0            
ST9	031252 035412 0   0   000100000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 84
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0363

*031252 EQV 	0,035446
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031252 031252 0   0   444000035446 0            000100000000 
IT1	031252 0      0   0   444000035446 0            000100000000 
AT3	031252 0      0   0   000000035446 0            444000035446 
AT6	031252 035446 0   0   000000035446 0            444000035446 
FT0	031252 035446 0   0   000100000000 0            444000035446 
FT1A	031252 035446 0   0   000100000000 0            000100000000 
FT2	031252 035446 0   0   0            0            000100000000 
FT2RQ	031252 035446 0   0   000100000000 0            000100000000 
FT3	031252 035446 0   0   000100000000 0            000100000000 
FT9	031253 035446 0   0   000100000000 0            000100000000 
ET0	031253 035446 0   0   777777777777 0            000100000000 
ST1	031253 035446 0   0   777777777777 0            000100000000 
ST2	031253 035446 0   0   777777777777 0            000100000000 
ST9	031253 035446 0   0   777777777777 0            000100000000 


*031253 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031253 031253 0   0   444000035412 0            0            
IT1	031253 0      0   0   444000035412 0            0            
AT3	031253 0      0   0   000000035412 0            444000035412 
AT6	031253 035412 0   0   000000035412 0            444000035412 
FT0	031253 035412 0   0   0            0            444000035412 
FT1A	031253 035412 0   0   0            0            0            
FT2	031253 035412 0   0   0            0            0            
FT2RQ	031253 035412 0   0   777777777777 0            0            
FT3	031253 035412 0   0   777777777777 0            0            
FT9	031254 035412 0   0   777777777777 0            0            
ET0	031254 035412 0   0   0            0            0            
ST1	031254 035412 0   0   0            0            0            
ST2	031254 035412 0   0   0            0            0            
ST9	031254 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 85
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0364

*031254 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031254 031254 0   0   332000000000 0            0            
IT1	031254 0      0   0   332000000000 0            0            
AT3	031254 0      0   0   0            0            332000000000 
AT6	031254 0      0   0   0            0            332000000000 
FT0	031254 0      0   0   0            0            332000000000 
FT1A	031254 0      0   0   0            0            0            
FT9	031255 0      0   0   0            0            0            
ET0	031256 0      0   0   0            0            0            
ST1A	031256 0      0   0   0            0            0            
ST9	031256 0      0   0   0            0            0            


*031256 JUMPA	0,031257
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031256 031256 0   0   324000031257 0            000000031257 
IT1	031256 0      0   0   324000031257 0            000000031257 
AT3	031256 0      0   0   000000031257 0            324000031257 
AT6	031256 031257 0   0   000000031257 0            324000031257 
FT1A	031256 031257 0   0   000000031257 0            000000031257 
FT2	031256 031257 0   0   0            0            000000031257 
FT2RQ	031256 031257 0   0   0            0            000000031257 
FT3	031256 031257 0   0   0            0            000000031257 
FT9	031257 031257 0   0   0            0            000000031257 
ET0	031257 031257 0   0   0            0            000000031257 
ST1A	031257 031257 0   0   0            0            000000031257 
ST9	031257 031257 0   0   0            0            000000031257 


*031257 MOVE 	0,035447
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031257 031257 0   0   200000035447 0            000200000000 
IT1	031257 0      0   0   200000035447 0            000200000000 
AT3	031257 0      0   0   000000035447 0            200000035447 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 86
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0365

AT6	031257 035447 0   0   000000035447 0            200000035447 
FT0	031257 035447 0   0   000200000000 0            200000035447 
FT1A	031257 035447 0   0   000200000000 0            000200000000 
FT9	031260 035447 0   0   000200000000 0            000200000000 
ET0	031260 035447 0   0   000200000000 0            000200000000 
ST1	031260 035447 0   0   000200000000 0            000200000000 
ST2	031260 035447 0   0   000200000000 0            000200000000 
ST9	031260 035447 0   0   000200000000 0            000200000000 


*031260 ADD 	0,035412
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031260 031260 0   0   270000035412 0            0            
IT1	031260 0      0   0   270000035412 0            0            
AT3	031260 0      0   0   000000035412 0            270000035412 
AT6	031260 035412 0   0   000000035412 0            270000035412 
FT0	031260 035412 0   0   0            0            270000035412 
FT1A	031260 035412 0   0   0            0            0            
FT2	031260 035412 0   0   0            0            0            
FT2RQ	031260 035412 0   0   000200000000 0            0            
FT3	031260 035412 0   0   000200000000 0            0            
FT9	031261 035412 0   0   000200000000 0            0            
ET0	031261 035412 0   0   000200000000 0            0            
ST1	031261 035412 0   0   000200000000 0            0            
ST2	031261 035412 0   0   000200000000 0            0            
ST9	031261 035412 0   0   000200000000 0            0            


*031261 EQV 	0,035447
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031261 031261 0   0   444000035447 0            000200000000 
IT1	031261 0      0   0   444000035447 0            000200000000 
AT3	031261 0      0   0   000000035447 0            444000035447 
AT6	031261 035447 0   0   000000035447 0            444000035447 
FT0	031261 035447 0   0   000200000000 0            444000035447 
FT1A	031261 035447 0   0   000200000000 0            000200000000 
FT2	031261 035447 0   0   0            0            000200000000 
FT2RQ	031261 035447 0   0   000200000000 0            000200000000 
FT3	031261 035447 0   0   000200000000 0            000200000000 
FT9	031262 035447 0   0   000200000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 87
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0366

ET0	031262 035447 0   0   777777777777 0            000200000000 
ST1	031262 035447 0   0   777777777777 0            000200000000 
ST2	031262 035447 0   0   777777777777 0            000200000000 
ST9	031262 035447 0   0   777777777777 0            000200000000 


*031262 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031262 031262 0   0   444000035412 0            0            
IT1	031262 0      0   0   444000035412 0            0            
AT3	031262 0      0   0   000000035412 0            444000035412 
AT6	031262 035412 0   0   000000035412 0            444000035412 
FT0	031262 035412 0   0   0            0            444000035412 
FT1A	031262 035412 0   0   0            0            0            
FT2	031262 035412 0   0   0            0            0            
FT2RQ	031262 035412 0   0   777777777777 0            0            
FT3	031262 035412 0   0   777777777777 0            0            
FT9	031263 035412 0   0   777777777777 0            0            
ET0	031263 035412 0   0   0            0            0            
ST1	031263 035412 0   0   0            0            0            
ST2	031263 035412 0   0   0            0            0            
ST9	031263 035412 0   0   0            0            0            


*031263 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031263 031263 0   0   332000000000 0            0            
IT1	031263 0      0   0   332000000000 0            0            
AT3	031263 0      0   0   0            0            332000000000 
AT6	031263 0      0   0   0            0            332000000000 
FT0	031263 0      0   0   0            0            332000000000 
FT1A	031263 0      0   0   0            0            0            
FT9	031264 0      0   0   0            0            0            
ET0	031265 0      0   0   0            0            0            
ST1A	031265 0      0   0   0            0            0            
ST9	031265 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 88
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0367

*031265 JUMPA	0,031266
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031265 031265 0   0   324000031266 0            000000031266 
IT1	031265 0      0   0   324000031266 0            000000031266 
AT3	031265 0      0   0   000000031266 0            324000031266 
AT6	031265 031266 0   0   000000031266 0            324000031266 
FT1A	031265 031266 0   0   000000031266 0            000000031266 
FT2	031265 031266 0   0   0            0            000000031266 
FT2RQ	031265 031266 0   0   0            0            000000031266 
FT3	031265 031266 0   0   0            0            000000031266 
FT9	031266 031266 0   0   0            0            000000031266 
ET0	031266 031266 0   0   0            0            000000031266 
ST1A	031266 031266 0   0   0            0            000000031266 
ST9	031266 031266 0   0   0            0            000000031266 


*031266 MOVE 	0,035450
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031266 031266 0   0   200000035450 0            000400000000 
IT1	031266 0      0   0   200000035450 0            000400000000 
AT3	031266 0      0   0   000000035450 0            200000035450 
AT6	031266 035450 0   0   000000035450 0            200000035450 
FT0	031266 035450 0   0   000400000000 0            200000035450 
FT1A	031266 035450 0   0   000400000000 0            000400000000 
FT9	031267 035450 0   0   000400000000 0            000400000000 
ET0	031267 035450 0   0   000400000000 0            000400000000 
ST1	031267 035450 0   0   000400000000 0            000400000000 
ST2	031267 035450 0   0   000400000000 0            000400000000 
ST9	031267 035450 0   0   000400000000 0            000400000000 


*031267 ADD 	0,035412
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031267 031267 0   0   270000035412 0            0            
IT1	031267 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 89
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0368

AT3	031267 0      0   0   000000035412 0            270000035412 
AT6	031267 035412 0   0   000000035412 0            270000035412 
FT0	031267 035412 0   0   0            0            270000035412 
FT1A	031267 035412 0   0   0            0            0            
FT2	031267 035412 0   0   0            0            0            
FT2RQ	031267 035412 0   0   000400000000 0            0            
FT3	031267 035412 0   0   000400000000 0            0            
FT9	031270 035412 0   0   000400000000 0            0            
ET0	031270 035412 0   0   000400000000 0            0            
ST1	031270 035412 0   0   000400000000 0            0            
ST2	031270 035412 0   0   000400000000 0            0            
ST9	031270 035412 0   0   000400000000 0            0            


*031270 EQV 	0,035450
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031270 031270 0   0   444000035450 0            000400000000 
IT1	031270 0      0   0   444000035450 0            000400000000 
AT3	031270 0      0   0   000000035450 0            444000035450 
AT6	031270 035450 0   0   000000035450 0            444000035450 
FT0	031270 035450 0   0   000400000000 0            444000035450 
FT1A	031270 035450 0   0   000400000000 0            000400000000 
FT2	031270 035450 0   0   0            0            000400000000 
FT2RQ	031270 035450 0   0   000400000000 0            000400000000 
FT3	031270 035450 0   0   000400000000 0            000400000000 
FT9	031271 035450 0   0   000400000000 0            000400000000 
ET0	031271 035450 0   0   777777777777 0            000400000000 
ST1	031271 035450 0   0   777777777777 0            000400000000 
ST2	031271 035450 0   0   777777777777 0            000400000000 
ST9	031271 035450 0   0   777777777777 0            000400000000 


*031271 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031271 031271 0   0   444000035412 0            0            
IT1	031271 0      0   0   444000035412 0            0            
AT3	031271 0      0   0   000000035412 0            444000035412 
AT6	031271 035412 0   0   000000035412 0            444000035412 
FT0	031271 035412 0   0   0            0            444000035412 
FT1A	031271 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 90
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0369

FT2	031271 035412 0   0   0            0            0            
FT2RQ	031271 035412 0   0   777777777777 0            0            
FT3	031271 035412 0   0   777777777777 0            0            
FT9	031272 035412 0   0   777777777777 0            0            
ET0	031272 035412 0   0   0            0            0            
ST1	031272 035412 0   0   0            0            0            
ST2	031272 035412 0   0   0            0            0            
ST9	031272 035412 0   0   0            0            0            


*031272 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031272 031272 0   0   332000000000 0            0            
IT1	031272 0      0   0   332000000000 0            0            
AT3	031272 0      0   0   0            0            332000000000 
AT6	031272 0      0   0   0            0            332000000000 
FT0	031272 0      0   0   0            0            332000000000 
FT1A	031272 0      0   0   0            0            0            
FT9	031273 0      0   0   0            0            0            
ET0	031274 0      0   0   0            0            0            
ST1A	031274 0      0   0   0            0            0            
ST9	031274 0      0   0   0            0            0            


*031274 JUMPA	0,031275
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031274 031274 0   0   324000031275 0            000000031275 
IT1	031274 0      0   0   324000031275 0            000000031275 
AT3	031274 0      0   0   000000031275 0            324000031275 
AT6	031274 031275 0   0   000000031275 0            324000031275 
FT1A	031274 031275 0   0   000000031275 0            000000031275 
FT2	031274 031275 0   0   0            0            000000031275 
FT2RQ	031274 031275 0   0   0            0            000000031275 
FT3	031274 031275 0   0   0            0            000000031275 
FT9	031275 031275 0   0   0            0            000000031275 
ET0	031275 031275 0   0   0            0            000000031275 
ST1A	031275 031275 0   0   0            0            000000031275 
ST9	031275 031275 0   0   0            0            000000031275 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 91
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0370

*031275 MOVE 	0,035451
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031275 031275 0   0   200000035451 0            001000000000 
IT1	031275 0      0   0   200000035451 0            001000000000 
AT3	031275 0      0   0   000000035451 0            200000035451 
AT6	031275 035451 0   0   000000035451 0            200000035451 
FT0	031275 035451 0   0   001000000000 0            200000035451 
FT1A	031275 035451 0   0   001000000000 0            001000000000 
FT9	031276 035451 0   0   001000000000 0            001000000000 
ET0	031276 035451 0   0   001000000000 0            001000000000 
ST1	031276 035451 0   0   001000000000 0            001000000000 
ST2	031276 035451 0   0   001000000000 0            001000000000 
ST9	031276 035451 0   0   001000000000 0            001000000000 


*031276 ADD 	0,035412
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031276 031276 0   0   270000035412 0            0            
IT1	031276 0      0   0   270000035412 0            0            
AT3	031276 0      0   0   000000035412 0            270000035412 
AT6	031276 035412 0   0   000000035412 0            270000035412 
FT0	031276 035412 0   0   0            0            270000035412 
FT1A	031276 035412 0   0   0            0            0            
FT2	031276 035412 0   0   0            0            0            
FT2RQ	031276 035412 0   0   001000000000 0            0            
FT3	031276 035412 0   0   001000000000 0            0            
FT9	031277 035412 0   0   001000000000 0            0            
ET0	031277 035412 0   0   001000000000 0            0            
ST1	031277 035412 0   0   001000000000 0            0            
ST2	031277 035412 0   0   001000000000 0            0            
ST9	031277 035412 0   0   001000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 92
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0371

*031277 EQV 	0,035451
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031277 031277 0   0   444000035451 0            001000000000 
IT1	031277 0      0   0   444000035451 0            001000000000 
AT3	031277 0      0   0   000000035451 0            444000035451 
AT6	031277 035451 0   0   000000035451 0            444000035451 
FT0	031277 035451 0   0   001000000000 0            444000035451 
FT1A	031277 035451 0   0   001000000000 0            001000000000 
FT2	031277 035451 0   0   0            0            001000000000 
FT2RQ	031277 035451 0   0   001000000000 0            001000000000 
FT3	031277 035451 0   0   001000000000 0            001000000000 
FT9	0      035451 0   0   001000000000 0            001000000000 
ET0	0      035451 0   0   777777777777 0            001000000000 
ST1	0      035451 0   0   777777777777 0            001000000000 
ST2	0      035451 0   0   777777777777 0            001000000000 
ST9	0      035451 0   0   777777777777 0            001000000000 


*031300 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035412 0            0            
IT1	0      0      0   0   444000035412 0            0            
AT3	0      0      0   0   000000035412 0            444000035412 
AT6	0      035412 0   0   000000035412 0            444000035412 
FT0	0      035412 0   0   0            0            444000035412 
FT1A	0      035412 0   0   0            0            0            
FT2	0      035412 0   0   0            0            0            
FT2RQ	0      035412 0   0   777777777777 0            0            
FT3	0      035412 0   0   777777777777 0            0            
FT9	031301 035412 0   0   777777777777 0            0            
ET0	031301 035412 0   0   0            0            0            
ST1	031301 035412 0   0   0            0            0            
ST2	031301 035412 0   0   0            0            0            
ST9	031301 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 93
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0372

*031301 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031301 031301 0   0   332000000000 0            0            
IT1	031301 0      0   0   332000000000 0            0            
AT3	031301 0      0   0   0            0            332000000000 
AT6	031301 0      0   0   0            0            332000000000 
FT0	031301 0      0   0   0            0            332000000000 
FT1A	031301 0      0   0   0            0            0            
FT9	031302 0      0   0   0            0            0            
ET0	031303 0      0   0   0            0            0            
ST1A	031303 0      0   0   0            0            0            
ST9	031303 0      0   0   0            0            0            


*031303 JUMPA	0,031304
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031303 031303 0   0   324000031304 0            000000031304 
IT1	031303 0      0   0   324000031304 0            000000031304 
AT3	031303 0      0   0   000000031304 0            324000031304 
AT6	031303 031304 0   0   000000031304 0            324000031304 
FT1A	031303 031304 0   0   000000031304 0            000000031304 
FT2	031303 031304 0   0   0            0            000000031304 
FT2RQ	031303 031304 0   0   0            0            000000031304 
FT3	031303 031304 0   0   0            0            000000031304 
FT9	031304 031304 0   0   0            0            000000031304 
ET0	031304 031304 0   0   0            0            000000031304 
ST1A	031304 031304 0   0   0            0            000000031304 
ST9	031304 031304 0   0   0            0            000000031304 


*031304 MOVE 	0,035452
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031304 031304 0   0   200000035452 0            002000000000 
IT1	031304 0      0   0   200000035452 0            002000000000 
AT3	031304 0      0   0   000000035452 0            200000035452 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 94
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0373

AT6	031304 035452 0   0   000000035452 0            200000035452 
FT0	031304 035452 0   0   002000000000 0            200000035452 
FT1A	031304 035452 0   0   002000000000 0            002000000000 
FT9	031305 035452 0   0   002000000000 0            002000000000 
ET0	031305 035452 0   0   002000000000 0            002000000000 
ST1	031305 035452 0   0   002000000000 0            002000000000 
ST2	031305 035452 0   0   002000000000 0            002000000000 
ST9	031305 035452 0   0   002000000000 0            002000000000 


*031305 ADD 	0,035412
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031305 031305 0   0   270000035412 0            0            
IT1	031305 0      0   0   270000035412 0            0            
AT3	031305 0      0   0   000000035412 0            270000035412 
AT6	031305 035412 0   0   000000035412 0            270000035412 
FT0	031305 035412 0   0   0            0            270000035412 
FT1A	031305 035412 0   0   0            0            0            
FT2	031305 035412 0   0   0            0            0            
FT2RQ	031305 035412 0   0   002000000000 0            0            
FT3	031305 035412 0   0   002000000000 0            0            
FT9	031306 035412 0   0   002000000000 0            0            
ET0	031306 035412 0   0   002000000000 0            0            
ST1	031306 035412 0   0   002000000000 0            0            
ST2	031306 035412 0   0   002000000000 0            0            
ST9	031306 035412 0   0   002000000000 0            0            


*031306 EQV 	0,035452
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031306 031306 0   0   444000035452 0            002000000000 
IT1	031306 0      0   0   444000035452 0            002000000000 
AT3	031306 0      0   0   000000035452 0            444000035452 
AT6	031306 035452 0   0   000000035452 0            444000035452 
FT0	031306 035452 0   0   002000000000 0            444000035452 
FT1A	031306 035452 0   0   002000000000 0            002000000000 
FT2	031306 035452 0   0   0            0            002000000000 
FT2RQ	031306 035452 0   0   002000000000 0            002000000000 
FT3	031306 035452 0   0   002000000000 0            002000000000 
FT9	031307 035452 0   0   002000000000 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 95
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0374

ET0	031307 035452 0   0   777777777777 0            002000000000 
ST1	031307 035452 0   0   777777777777 0            002000000000 
ST2	031307 035452 0   0   777777777777 0            002000000000 
ST9	031307 035452 0   0   777777777777 0            002000000000 


*031307 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031307 031307 0   0   444000035412 0            0            
IT1	031307 0      0   0   444000035412 0            0            
AT3	031307 0      0   0   000000035412 0            444000035412 
AT6	031307 035412 0   0   000000035412 0            444000035412 
FT0	031307 035412 0   0   0            0            444000035412 
FT1A	031307 035412 0   0   0            0            0            
FT2	031307 035412 0   0   0            0            0            
FT2RQ	031307 035412 0   0   777777777777 0            0            
FT3	031307 035412 0   0   777777777777 0            0            
FT9	031310 035412 0   0   777777777777 0            0            
ET0	031310 035412 0   0   0            0            0            
ST1	031310 035412 0   0   0            0            0            
ST2	031310 035412 0   0   0            0            0            
ST9	031310 035412 0   0   0            0            0            


*031310 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031310 031310 0   0   332000000000 0            0            
IT1	031310 0      0   0   332000000000 0            0            
AT3	031310 0      0   0   0            0            332000000000 
AT6	031310 0      0   0   0            0            332000000000 
FT0	031310 0      0   0   0            0            332000000000 
FT1A	031310 0      0   0   0            0            0            
FT9	031311 0      0   0   0            0            0            
ET0	031312 0      0   0   0            0            0            
ST1A	031312 0      0   0   0            0            0            
ST9	031312 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 96
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0375

*031312 JUMPA	0,031313
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031312 031312 0   0   324000031313 0            000000031313 
IT1	031312 0      0   0   324000031313 0            000000031313 
AT3	031312 0      0   0   000000031313 0            324000031313 
AT6	031312 031313 0   0   000000031313 0            324000031313 
FT1A	031312 031313 0   0   000000031313 0            000000031313 
FT2	031312 031313 0   0   0            0            000000031313 
FT2RQ	031312 031313 0   0   0            0            000000031313 
FT3	031312 031313 0   0   0            0            000000031313 
FT9	031313 031313 0   0   0            0            000000031313 
ET0	031313 031313 0   0   0            0            000000031313 
ST1A	031313 031313 0   0   0            0            000000031313 
ST9	031313 031313 0   0   0            0            000000031313 


*031313 MOVE 	0,035453
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031313 031313 0   0   200000035453 0            004000000000 
IT1	031313 0      0   0   200000035453 0            004000000000 
AT3	031313 0      0   0   000000035453 0            200000035453 
AT6	031313 035453 0   0   000000035453 0            200000035453 
FT0	031313 035453 0   0   004000000000 0            200000035453 
FT1A	031313 035453 0   0   004000000000 0            004000000000 
FT9	031314 035453 0   0   004000000000 0            004000000000 
ET0	031314 035453 0   0   004000000000 0            004000000000 
ST1	031314 035453 0   0   004000000000 0            004000000000 
ST2	031314 035453 0   0   004000000000 0            004000000000 
ST9	031314 035453 0   0   004000000000 0            004000000000 


*031314 ADD 	0,035412
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031314 031314 0   0   270000035412 0            0            
IT1	031314 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 97
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0376

AT3	031314 0      0   0   000000035412 0            270000035412 
AT6	031314 035412 0   0   000000035412 0            270000035412 
FT0	031314 035412 0   0   0            0            270000035412 
FT1A	031314 035412 0   0   0            0            0            
FT2	031314 035412 0   0   0            0            0            
FT2RQ	031314 035412 0   0   004000000000 0            0            
FT3	031314 035412 0   0   004000000000 0            0            
FT9	031315 035412 0   0   004000000000 0            0            
ET0	031315 035412 0   0   004000000000 0            0            
ST1	031315 035412 0   0   004000000000 0            0            
ST2	031315 035412 0   0   004000000000 0            0            
ST9	031315 035412 0   0   004000000000 0            0            


*031315 EQV 	0,035453
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031315 031315 0   0   444000035453 0            004000000000 
IT1	031315 0      0   0   444000035453 0            004000000000 
AT3	031315 0      0   0   000000035453 0            444000035453 
AT6	031315 035453 0   0   000000035453 0            444000035453 
FT0	031315 035453 0   0   004000000000 0            444000035453 
FT1A	031315 035453 0   0   004000000000 0            004000000000 
FT2	031315 035453 0   0   0            0            004000000000 
FT2RQ	031315 035453 0   0   004000000000 0            004000000000 
FT3	031315 035453 0   0   004000000000 0            004000000000 
FT9	031316 035453 0   0   004000000000 0            004000000000 
ET0	031316 035453 0   0   777777777777 0            004000000000 
ST1	031316 035453 0   0   777777777777 0            004000000000 
ST2	031316 035453 0   0   777777777777 0            004000000000 
ST9	031316 035453 0   0   777777777777 0            004000000000 


*031316 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031316 031316 0   0   444000035412 0            0            
IT1	031316 0      0   0   444000035412 0            0            
AT3	031316 0      0   0   000000035412 0            444000035412 
AT6	031316 035412 0   0   000000035412 0            444000035412 
FT0	031316 035412 0   0   0            0            444000035412 
FT1A	031316 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 98
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0377

FT2	031316 035412 0   0   0            0            0            
FT2RQ	031316 035412 0   0   777777777777 0            0            
FT3	031316 035412 0   0   777777777777 0            0            
FT9	031317 035412 0   0   777777777777 0            0            
ET0	031317 035412 0   0   0            0            0            
ST1	031317 035412 0   0   0            0            0            
ST2	031317 035412 0   0   0            0            0            
ST9	031317 035412 0   0   0            0            0            


*031317 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031317 031317 0   0   332000000000 0            0            
IT1	031317 0      0   0   332000000000 0            0            
AT3	031317 0      0   0   0            0            332000000000 
AT6	031317 0      0   0   0            0            332000000000 
FT0	031317 0      0   0   0            0            332000000000 
FT1A	031317 0      0   0   0            0            0            
FT9	031320 0      0   0   0            0            0            
ET0	031321 0      0   0   0            0            0            
ST1A	031321 0      0   0   0            0            0            
ST9	031321 0      0   0   0            0            0            


*031321 JUMPA	0,031322
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031321 031321 0   0   324000031322 0            000000031322 
IT1	031321 0      0   0   324000031322 0            000000031322 
AT3	031321 0      0   0   000000031322 0            324000031322 
AT6	031321 031322 0   0   000000031322 0            324000031322 
FT1A	031321 031322 0   0   000000031322 0            000000031322 
FT2	031321 031322 0   0   0            0            000000031322 
FT2RQ	031321 031322 0   0   0            0            000000031322 
FT3	031321 031322 0   0   0            0            000000031322 
FT9	031322 031322 0   0   0            0            000000031322 
ET0	031322 031322 0   0   0            0            000000031322 
ST1A	031322 031322 0   0   0            0            000000031322 
ST9	031322 031322 0   0   0            0            000000031322 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 99
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0378

*031322 MOVE 	0,035454
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031322 031322 0   0   200000035454 0            010000000000 
IT1	031322 0      0   0   200000035454 0            010000000000 
AT3	031322 0      0   0   000000035454 0            200000035454 
AT6	031322 035454 0   0   000000035454 0            200000035454 
FT0	031322 035454 0   0   010000000000 0            200000035454 
FT1A	031322 035454 0   0   010000000000 0            010000000000 
FT9	031323 035454 0   0   010000000000 0            010000000000 
ET0	031323 035454 0   0   010000000000 0            010000000000 
ST1	031323 035454 0   0   010000000000 0            010000000000 
ST2	031323 035454 0   0   010000000000 0            010000000000 
ST9	031323 035454 0   0   010000000000 0            010000000000 


*031323 ADD 	0,035412
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031323 031323 0   0   270000035412 0            0            
IT1	031323 0      0   0   270000035412 0            0            
AT3	031323 0      0   0   000000035412 0            270000035412 
AT6	031323 035412 0   0   000000035412 0            270000035412 
FT0	031323 035412 0   0   0            0            270000035412 
FT1A	031323 035412 0   0   0            0            0            
FT2	031323 035412 0   0   0            0            0            
FT2RQ	031323 035412 0   0   010000000000 0            0            
FT3	031323 035412 0   0   010000000000 0            0            
FT9	031324 035412 0   0   010000000000 0            0            
ET0	031324 035412 0   0   010000000000 0            0            
ST1	031324 035412 0   0   010000000000 0            0            
ST2	031324 035412 0   0   010000000000 0            0            
ST9	031324 035412 0   0   010000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 100
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0379

*031324 EQV 	0,035454
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031324 031324 0   0   444000035454 0            010000000000 
IT1	031324 0      0   0   444000035454 0            010000000000 
AT3	031324 0      0   0   000000035454 0            444000035454 
AT6	031324 035454 0   0   000000035454 0            444000035454 
FT0	031324 035454 0   0   010000000000 0            444000035454 
FT1A	031324 035454 0   0   010000000000 0            010000000000 
FT2	031324 035454 0   0   0            0            010000000000 
FT2RQ	031324 035454 0   0   010000000000 0            010000000000 
FT3	031324 035454 0   0   010000000000 0            010000000000 
FT9	031325 035454 0   0   010000000000 0            010000000000 
ET0	031325 035454 0   0   777777777777 0            010000000000 
ST1	031325 035454 0   0   777777777777 0            010000000000 
ST2	031325 035454 0   0   777777777777 0            010000000000 
ST9	031325 035454 0   0   777777777777 0            010000000000 


*031325 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031325 031325 0   0   444000035412 0            0            
IT1	031325 0      0   0   444000035412 0            0            
AT3	031325 0      0   0   000000035412 0            444000035412 
AT6	031325 035412 0   0   000000035412 0            444000035412 
FT0	031325 035412 0   0   0            0            444000035412 
FT1A	031325 035412 0   0   0            0            0            
FT2	031325 035412 0   0   0            0            0            
FT2RQ	031325 035412 0   0   777777777777 0            0            
FT3	031325 035412 0   0   777777777777 0            0            
FT9	031326 035412 0   0   777777777777 0            0            
ET0	031326 035412 0   0   0            0            0            
ST1	031326 035412 0   0   0            0            0            
ST2	031326 035412 0   0   0            0            0            
ST9	031326 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 101
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0380

*031326 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031326 031326 0   0   332000000000 0            0            
IT1	031326 0      0   0   332000000000 0            0            
AT3	031326 0      0   0   0            0            332000000000 
AT6	031326 0      0   0   0            0            332000000000 
FT0	031326 0      0   0   0            0            332000000000 
FT1A	031326 0      0   0   0            0            0            
FT9	031327 0      0   0   0            0            0            
ET0	031330 0      0   0   0            0            0            
ST1A	031330 0      0   0   0            0            0            
ST9	031330 0      0   0   0            0            0            


*031330 JUMPA	0,031331
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031330 031330 0   0   324000031331 0            000000031331 
IT1	031330 0      0   0   324000031331 0            000000031331 
AT3	031330 0      0   0   000000031331 0            324000031331 
AT6	031330 031331 0   0   000000031331 0            324000031331 
FT1A	031330 031331 0   0   000000031331 0            000000031331 
FT2	031330 031331 0   0   0            0            000000031331 
FT2RQ	031330 031331 0   0   0            0            000000031331 
FT3	031330 031331 0   0   0            0            000000031331 
FT9	031331 031331 0   0   0            0            000000031331 
ET0	031331 031331 0   0   0            0            000000031331 
ST1A	031331 031331 0   0   0            0            000000031331 
ST9	031331 031331 0   0   0            0            000000031331 


*031331 MOVE 	0,035455
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031331 031331 0   0   200000035455 0            020000000000 
IT1	031331 0      0   0   200000035455 0            020000000000 
AT3	031331 0      0   0   000000035455 0            200000035455 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 102
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0381

AT6	031331 035455 0   0   000000035455 0            200000035455 
FT0	031331 035455 0   0   020000000000 0            200000035455 
FT1A	031331 035455 0   0   020000000000 0            020000000000 
FT9	031332 035455 0   0   020000000000 0            020000000000 
ET0	031332 035455 0   0   020000000000 0            020000000000 
ST1	031332 035455 0   0   020000000000 0            020000000000 
ST2	031332 035455 0   0   020000000000 0            020000000000 
ST9	031332 035455 0   0   020000000000 0            020000000000 


*031332 ADD 	0,035412
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031332 031332 0   0   270000035412 0            0            
IT1	031332 0      0   0   270000035412 0            0            
AT3	031332 0      0   0   000000035412 0            270000035412 
AT6	031332 035412 0   0   000000035412 0            270000035412 
FT0	031332 035412 0   0   0            0            270000035412 
FT1A	031332 035412 0   0   0            0            0            
FT2	031332 035412 0   0   0            0            0            
FT2RQ	031332 035412 0   0   020000000000 0            0            
FT3	031332 035412 0   0   020000000000 0            0            
FT9	031333 035412 0   0   020000000000 0            0            
ET0	031333 035412 0   0   020000000000 0            0            
ST1	031333 035412 0   0   020000000000 0            0            
ST2	031333 035412 0   0   020000000000 0            0            
ST9	031333 035412 0   0   020000000000 0            0            


*031333 EQV 	0,035455
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031333 031333 0   0   444000035455 0            020000000000 
IT1	031333 0      0   0   444000035455 0            020000000000 
AT3	031333 0      0   0   000000035455 0            444000035455 
AT6	031333 035455 0   0   000000035455 0            444000035455 
FT0	031333 035455 0   0   020000000000 0            444000035455 
FT1A	031333 035455 0   0   020000000000 0            020000000000 
FT2	031333 035455 0   0   0            0            020000000000 
FT2RQ	031333 035455 0   0   020000000000 0            020000000000 
FT3	031333 035455 0   0   020000000000 0            020000000000 
FT9	031334 035455 0   0   020000000000 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 103
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0382

ET0	031334 035455 0   0   777777777777 0            020000000000 
ST1	031334 035455 0   0   777777777777 0            020000000000 
ST2	031334 035455 0   0   777777777777 0            020000000000 
ST9	031334 035455 0   0   777777777777 0            020000000000 


*031334 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031334 031334 0   0   444000035412 0            0            
IT1	031334 0      0   0   444000035412 0            0            
AT3	031334 0      0   0   000000035412 0            444000035412 
AT6	031334 035412 0   0   000000035412 0            444000035412 
FT0	031334 035412 0   0   0            0            444000035412 
FT1A	031334 035412 0   0   0            0            0            
FT2	031334 035412 0   0   0            0            0            
FT2RQ	031334 035412 0   0   777777777777 0            0            
FT3	031334 035412 0   0   777777777777 0            0            
FT9	031335 035412 0   0   777777777777 0            0            
ET0	031335 035412 0   0   0            0            0            
ST1	031335 035412 0   0   0            0            0            
ST2	031335 035412 0   0   0            0            0            
ST9	031335 035412 0   0   0            0            0            


*031335 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031335 031335 0   0   332000000000 0            0            
IT1	031335 0      0   0   332000000000 0            0            
AT3	031335 0      0   0   0            0            332000000000 
AT6	031335 0      0   0   0            0            332000000000 
FT0	031335 0      0   0   0            0            332000000000 
FT1A	031335 0      0   0   0            0            0            
FT9	031336 0      0   0   0            0            0            
ET0	031337 0      0   0   0            0            0            
ST1A	031337 0      0   0   0            0            0            
ST9	031337 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 104
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0383

*031337 JUMPA	0,031340
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031337 031337 0   0   324000031340 0            000000031340 
IT1	031337 0      0   0   324000031340 0            000000031340 
AT3	031337 0      0   0   000000031340 0            324000031340 
AT6	031337 031340 0   0   000000031340 0            324000031340 
FT1A	031337 031340 0   0   000000031340 0            000000031340 
FT2	031337 031340 0   0   0            0            000000031340 
FT2RQ	031337 031340 0   0   0            0            000000031340 
FT3	031337 031340 0   0   0            0            000000031340 
FT9	031340 031340 0   0   0            0            000000031340 
ET0	031340 031340 0   0   0            0            000000031340 
ST1A	031340 031340 0   0   0            0            000000031340 
ST9	031340 031340 0   0   0            0            000000031340 


*031340 MOVE 	0,035456
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031340 031340 0   0   200000035456 0            040000000000 
IT1	031340 0      0   0   200000035456 0            040000000000 
AT3	031340 0      0   0   000000035456 0            200000035456 
AT6	031340 035456 0   0   000000035456 0            200000035456 
FT0	031340 035456 0   0   040000000000 0            200000035456 
FT1A	031340 035456 0   0   040000000000 0            040000000000 
FT9	031341 035456 0   0   040000000000 0            040000000000 
ET0	031341 035456 0   0   040000000000 0            040000000000 
ST1	031341 035456 0   0   040000000000 0            040000000000 
ST2	031341 035456 0   0   040000000000 0            040000000000 
ST9	031341 035456 0   0   040000000000 0            040000000000 


*031341 ADD 	0,035412
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031341 031341 0   0   270000035412 0            0            
IT1	031341 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 105
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0384

AT3	031341 0      0   0   000000035412 0            270000035412 
AT6	031341 035412 0   0   000000035412 0            270000035412 
FT0	031341 035412 0   0   0            0            270000035412 
FT1A	031341 035412 0   0   0            0            0            
FT2	031341 035412 0   0   0            0            0            
FT2RQ	031341 035412 0   0   040000000000 0            0            
FT3	031341 035412 0   0   040000000000 0            0            
FT9	031342 035412 0   0   040000000000 0            0            
ET0	031342 035412 0   0   040000000000 0            0            
ST1	031342 035412 0   0   040000000000 0            0            
ST2	031342 035412 0   0   040000000000 0            0            
ST9	031342 035412 0   0   040000000000 0            0            


*031342 EQV 	0,035456
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031342 031342 0   0   444000035456 0            040000000000 
IT1	031342 0      0   0   444000035456 0            040000000000 
AT3	031342 0      0   0   000000035456 0            444000035456 
AT6	031342 035456 0   0   000000035456 0            444000035456 
FT0	031342 035456 0   0   040000000000 0            444000035456 
FT1A	031342 035456 0   0   040000000000 0            040000000000 
FT2	031342 035456 0   0   0            0            040000000000 
FT2RQ	031342 035456 0   0   040000000000 0            040000000000 
FT3	031342 035456 0   0   040000000000 0            040000000000 
FT9	031343 035456 0   0   040000000000 0            040000000000 
ET0	031343 035456 0   0   777777777777 0            040000000000 
ST1	031343 035456 0   0   777777777777 0            040000000000 
ST2	031343 035456 0   0   777777777777 0            040000000000 
ST9	031343 035456 0   0   777777777777 0            040000000000 


*031343 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031343 031343 0   0   444000035412 0            0            
IT1	031343 0      0   0   444000035412 0            0            
AT3	031343 0      0   0   000000035412 0            444000035412 
AT6	031343 035412 0   0   000000035412 0            444000035412 
FT0	031343 035412 0   0   0            0            444000035412 
FT1A	031343 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 106
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0385

FT2	031343 035412 0   0   0            0            0            
FT2RQ	031343 035412 0   0   777777777777 0            0            
FT3	031343 035412 0   0   777777777777 0            0            
FT9	031344 035412 0   0   777777777777 0            0            
ET0	031344 035412 0   0   0            0            0            
ST1	031344 035412 0   0   0            0            0            
ST2	031344 035412 0   0   0            0            0            
ST9	031344 035412 0   0   0            0            0            


*031344 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031344 031344 0   0   332000000000 0            0            
IT1	031344 0      0   0   332000000000 0            0            
AT3	031344 0      0   0   0            0            332000000000 
AT6	031344 0      0   0   0            0            332000000000 
FT0	031344 0      0   0   0            0            332000000000 
FT1A	031344 0      0   0   0            0            0            
FT9	031345 0      0   0   0            0            0            
ET0	031346 0      0   0   0            0            0            
ST1A	031346 0      0   0   0            0            0            
ST9	031346 0      0   0   0            0            0            


*031346 JUMPA	0,031347
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031346 031346 0   0   324000031347 0            000000031347 
IT1	031346 0      0   0   324000031347 0            000000031347 
AT3	031346 0      0   0   000000031347 0            324000031347 
AT6	031346 031347 0   0   000000031347 0            324000031347 
FT1A	031346 031347 0   0   000000031347 0            000000031347 
FT2	031346 031347 0   0   0            0            000000031347 
FT2RQ	031346 031347 0   0   0            0            000000031347 
FT3	031346 031347 0   0   0            0            000000031347 
FT9	031347 031347 0   0   0            0            000000031347 
ET0	031347 031347 0   0   0            0            000000031347 
ST1A	031347 031347 0   0   0            0            000000031347 
ST9	031347 031347 0   0   0            0            000000031347 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 107
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0386

*031347 MOVE 	0,035457
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031347 031347 0   0   200000035457 0            100000000000 
IT1	031347 0      0   0   200000035457 0            100000000000 
AT3	031347 0      0   0   000000035457 0            200000035457 
AT6	031347 035457 0   0   000000035457 0            200000035457 
FT0	031347 035457 0   0   100000000000 0            200000035457 
FT1A	031347 035457 0   0   100000000000 0            100000000000 
FT9	031350 035457 0   0   100000000000 0            100000000000 
ET0	031350 035457 0   0   100000000000 0            100000000000 
ST1	031350 035457 0   0   100000000000 0            100000000000 
ST2	031350 035457 0   0   100000000000 0            100000000000 
ST9	031350 035457 0   0   100000000000 0            100000000000 


*031350 ADD 	0,035412
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031350 031350 0   0   270000035412 0            0            
IT1	031350 0      0   0   270000035412 0            0            
AT3	031350 0      0   0   000000035412 0            270000035412 
AT6	031350 035412 0   0   000000035412 0            270000035412 
FT0	031350 035412 0   0   0            0            270000035412 
FT1A	031350 035412 0   0   0            0            0            
FT2	031350 035412 0   0   0            0            0            
FT2RQ	031350 035412 0   0   100000000000 0            0            
FT3	031350 035412 0   0   100000000000 0            0            
FT9	031351 035412 0   0   100000000000 0            0            
ET0	031351 035412 0   0   100000000000 0            0            
ST1	031351 035412 0   0   100000000000 0            0            
ST2	031351 035412 0   0   100000000000 0            0            
ST9	031351 035412 0   0   100000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 108
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0387

*031351 EQV 	0,035457
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031351 031351 0   0   444000035457 0            100000000000 
IT1	031351 0      0   0   444000035457 0            100000000000 
AT3	031351 0      0   0   000000035457 0            444000035457 
AT6	031351 035457 0   0   000000035457 0            444000035457 
FT0	031351 035457 0   0   100000000000 0            444000035457 
FT1A	031351 035457 0   0   100000000000 0            100000000000 
FT2	031351 035457 0   0   0            0            100000000000 
FT2RQ	031351 035457 0   0   100000000000 0            100000000000 
FT3	031351 035457 0   0   100000000000 0            100000000000 
FT9	031352 035457 0   0   100000000000 0            100000000000 
ET0	031352 035457 0   0   777777777777 0            100000000000 
ST1	031352 035457 0   0   777777777777 0            100000000000 
ST2	031352 035457 0   0   777777777777 0            100000000000 
ST9	031352 035457 0   0   777777777777 0            100000000000 


*031352 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031352 031352 0   0   444000035412 0            0            
IT1	031352 0      0   0   444000035412 0            0            
AT3	031352 0      0   0   000000035412 0            444000035412 
AT6	031352 035412 0   0   000000035412 0            444000035412 
FT0	031352 035412 0   0   0            0            444000035412 
FT1A	031352 035412 0   0   0            0            0            
FT2	031352 035412 0   0   0            0            0            
FT2RQ	031352 035412 0   0   777777777777 0            0            
FT3	031352 035412 0   0   777777777777 0            0            
FT9	031353 035412 0   0   777777777777 0            0            
ET0	031353 035412 0   0   0            0            0            
ST1	031353 035412 0   0   0            0            0            
ST2	031353 035412 0   0   0            0            0            
ST9	031353 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 109
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0388

*031353 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031353 031353 0   0   332000000000 0            0            
IT1	031353 0      0   0   332000000000 0            0            
AT3	031353 0      0   0   0            0            332000000000 
AT6	031353 0      0   0   0            0            332000000000 
FT0	031353 0      0   0   0            0            332000000000 
FT1A	031353 0      0   0   0            0            0            
FT9	031354 0      0   0   0            0            0            
ET0	031355 0      0   0   0            0            0            
ST1A	031355 0      0   0   0            0            0            
ST9	031355 0      0   0   0            0            0            


*031355 JUMPA	0,031356
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031355 031355 0   0   324000031356 0            000000031356 
IT1	031355 0      0   0   324000031356 0            000000031356 
AT3	031355 0      0   0   000000031356 0            324000031356 
AT6	031355 031356 0   0   000000031356 0            324000031356 
FT1A	031355 031356 0   0   000000031356 0            000000031356 
FT2	031355 031356 0   0   0            0            000000031356 
FT2RQ	031355 031356 0   0   0            0            000000031356 
FT3	031355 031356 0   0   0            0            000000031356 
FT9	031356 031356 0   0   0            0            000000031356 
ET0	031356 031356 0   0   0            0            000000031356 
ST1A	031356 031356 0   0   0            0            000000031356 
ST9	031356 031356 0   0   0            0            000000031356 


*031356 MOVE 	0,035460
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031356 031356 0   0   200000035460 0            200000000000 
IT1	031356 0      0   0   200000035460 0            200000000000 
AT3	031356 0      0   0   000000035460 0            200000035460 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 110
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0389

AT6	031356 035460 0   0   000000035460 0            200000035460 
FT0	031356 035460 0   0   200000000000 0            200000035460 
FT1A	031356 035460 0   0   200000000000 0            200000000000 
FT9	031357 035460 0   0   200000000000 0            200000000000 
ET0	031357 035460 0   0   200000000000 0            200000000000 
ST1	031357 035460 0   0   200000000000 0            200000000000 
ST2	031357 035460 0   0   200000000000 0            200000000000 
ST9	031357 035460 0   0   200000000000 0            200000000000 


*031357 ADD 	0,035412
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031357 031357 0   0   270000035412 0            0            
IT1	031357 0      0   0   270000035412 0            0            
AT3	031357 0      0   0   000000035412 0            270000035412 
AT6	031357 035412 0   0   000000035412 0            270000035412 
FT0	031357 035412 0   0   0            0            270000035412 
FT1A	031357 035412 0   0   0            0            0            
FT2	031357 035412 0   0   0            0            0            
FT2RQ	031357 035412 0   0   200000000000 0            0            
FT3	031357 035412 0   0   200000000000 0            0            
FT9	031360 035412 0   0   200000000000 0            0            
ET0	031360 035412 0   0   200000000000 0            0            
ST1	031360 035412 0   0   200000000000 0            0            
ST2	031360 035412 0   0   200000000000 0            0            
ST9	031360 035412 0   0   200000000000 0            0            


*031360 EQV 	0,035460
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031360 031360 0   0   444000035460 0            200000000000 
IT1	031360 0      0   0   444000035460 0            200000000000 
AT3	031360 0      0   0   000000035460 0            444000035460 
AT6	031360 035460 0   0   000000035460 0            444000035460 
FT0	031360 035460 0   0   200000000000 0            444000035460 
FT1A	031360 035460 0   0   200000000000 0            200000000000 
FT2	031360 035460 0   0   0            0            200000000000 
FT2RQ	031360 035460 0   0   200000000000 0            200000000000 
FT3	031360 035460 0   0   200000000000 0            200000000000 
FT9	031361 035460 0   0   200000000000 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 111
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0390

ET0	031361 035460 0   0   777777777777 0            200000000000 
ST1	031361 035460 0   0   777777777777 0            200000000000 
ST2	031361 035460 0   0   777777777777 0            200000000000 
ST9	031361 035460 0   0   777777777777 0            200000000000 


*031361 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031361 031361 0   0   444000035412 0            0            
IT1	031361 0      0   0   444000035412 0            0            
AT3	031361 0      0   0   000000035412 0            444000035412 
AT6	031361 035412 0   0   000000035412 0            444000035412 
FT0	031361 035412 0   0   0            0            444000035412 
FT1A	031361 035412 0   0   0            0            0            
FT2	031361 035412 0   0   0            0            0            
FT2RQ	031361 035412 0   0   777777777777 0            0            
FT3	031361 035412 0   0   777777777777 0            0            
FT9	031362 035412 0   0   777777777777 0            0            
ET0	031362 035412 0   0   0            0            0            
ST1	031362 035412 0   0   0            0            0            
ST2	031362 035412 0   0   0            0            0            
ST9	031362 035412 0   0   0            0            0            


*031362 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031362 031362 0   0   332000000000 0            0            
IT1	031362 0      0   0   332000000000 0            0            
AT3	031362 0      0   0   0            0            332000000000 
AT6	031362 0      0   0   0            0            332000000000 
FT0	031362 0      0   0   0            0            332000000000 
FT1A	031362 0      0   0   0            0            0            
FT9	031363 0      0   0   0            0            0            
ET0	031364 0      0   0   0            0            0            
ST1A	031364 0      0   0   0            0            0            
ST9	031364 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 112
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0391

*031364 JUMPA	0,031365
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031364 031364 0   0   324000031365 0            000000031365 
IT1	031364 0      0   0   324000031365 0            000000031365 
AT3	031364 0      0   0   000000031365 0            324000031365 
AT6	031364 031365 0   0   000000031365 0            324000031365 
FT1A	031364 031365 0   0   000000031365 0            000000031365 
FT2	031364 031365 0   0   0            0            000000031365 
FT2RQ	031364 031365 0   0   0            0            000000031365 
FT3	031364 031365 0   0   0            0            000000031365 
FT9	031365 031365 0   0   0            0            000000031365 
ET0	031365 031365 0   0   0            0            000000031365 
ST1A	031365 031365 0   0   0            0            000000031365 
ST9	031365 031365 0   0   0            0            000000031365 


*031365 MOVE 	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031365 031365 0   0   200000035461 0            400000000000 
IT1	031365 0      0   0   200000035461 0            400000000000 
AT3	031365 0      0   0   000000035461 0            200000035461 
AT6	031365 035461 0   0   000000035461 0            200000035461 
FT0	031365 035461 0   0   400000000000 0            200000035461 
FT1A	031365 035461 0   0   400000000000 0            400000000000 
FT9	031366 035461 0   0   400000000000 0            400000000000 
ET0	031366 035461 0   0   400000000000 0            400000000000 
ST1	031366 035461 0   0   400000000000 0            400000000000 
ST2	031366 035461 0   0   400000000000 0            400000000000 
ST9	031366 035461 0   0   400000000000 0            400000000000 


*031366 ADD 	0,035412
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031366 031366 0   0   270000035412 0            0            
IT1	031366 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 113
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0392

AT3	031366 0      0   0   000000035412 0            270000035412 
AT6	031366 035412 0   0   000000035412 0            270000035412 
FT0	031366 035412 0   0   0            0            270000035412 
FT1A	031366 035412 0   0   0            0            0            
FT2	031366 035412 0   0   0            0            0            
FT2RQ	031366 035412 0   0   400000000000 0            0            
FT3	031366 035412 0   0   400000000000 0            0            
FT9	031367 035412 0   0   400000000000 0            0            
ET0	031367 035412 0   0   400000000000 0            0            
ST1	031367 035412 0   0   400000000000 0            0            
ST2	031367 035412 0   0   400000000000 0            0            
ST9	031367 035412 0   0   400000000000 0            0            


*031367 EQV 	0,035461
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031367 031367 0   0   444000035461 0            400000000000 
IT1	031367 0      0   0   444000035461 0            400000000000 
AT3	031367 0      0   0   000000035461 0            444000035461 
AT6	031367 035461 0   0   000000035461 0            444000035461 
FT0	031367 035461 0   0   400000000000 0            444000035461 
FT1A	031367 035461 0   0   400000000000 0            400000000000 
FT2	031367 035461 0   0   0            0            400000000000 
FT2RQ	031367 035461 0   0   400000000000 0            400000000000 
FT3	031367 035461 0   0   400000000000 0            400000000000 
FT9	031370 035461 0   0   400000000000 0            400000000000 
ET0	031370 035461 0   0   777777777777 0            400000000000 
ST1	031370 035461 0   0   777777777777 0            400000000000 
ST2	031370 035461 0   0   777777777777 0            400000000000 
ST9	031370 035461 0   0   777777777777 0            400000000000 


*031370 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031370 031370 0   0   444000035412 0            0            
IT1	031370 0      0   0   444000035412 0            0            
AT3	031370 0      0   0   000000035412 0            444000035412 
AT6	031370 035412 0   0   000000035412 0            444000035412 
FT0	031370 035412 0   0   0            0            444000035412 
FT1A	031370 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 114
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0393

FT2	031370 035412 0   0   0            0            0            
FT2RQ	031370 035412 0   0   777777777777 0            0            
FT3	031370 035412 0   0   777777777777 0            0            
FT9	031371 035412 0   0   777777777777 0            0            
ET0	031371 035412 0   0   0            0            0            
ST1	031371 035412 0   0   0            0            0            
ST2	031371 035412 0   0   0            0            0            
ST9	031371 035412 0   0   0            0            0            


*031371 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031371 031371 0   0   332000000000 0            0            
IT1	031371 0      0   0   332000000000 0            0            
AT3	031371 0      0   0   0            0            332000000000 
AT6	031371 0      0   0   0            0            332000000000 
FT0	031371 0      0   0   0            0            332000000000 
FT1A	031371 0      0   0   0            0            0            
FT9	031372 0      0   0   0            0            0            
ET0	031373 0      0   0   0            0            0            
ST1A	031373 0      0   0   0            0            0            
ST9	031373 0      0   0   0            0            0            


*031373 JUMPA	0,031374
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031373 031373 0   0   324000031374 0            000000031374 
IT1	031373 0      0   0   324000031374 0            000000031374 
AT3	031373 0      0   0   000000031374 0            324000031374 
AT6	031373 031374 0   0   000000031374 0            324000031374 
FT1A	031373 031374 0   0   000000031374 0            000000031374 
FT2	031373 031374 0   0   0            0            000000031374 
FT2RQ	031373 031374 0   0   0            0            000000031374 
FT3	031373 031374 0   0   0            0            000000031374 
FT9	031374 031374 0   0   0            0            000000031374 
ET0	031374 031374 0   0   0            0            000000031374 
ST1A	031374 031374 0   0   0            0            000000031374 
ST9	031374 031374 0   0   0            0            000000031374 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 115
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0394

*031374 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031374 031374 0   0   200000035412 0            0            
IT1	031374 0      0   0   200000035412 0            0            
AT3	031374 0      0   0   000000035412 0            200000035412 
AT6	031374 035412 0   0   000000035412 0            200000035412 
FT0	031374 035412 0   0   0            0            200000035412 
FT1A	031374 035412 0   0   0            0            0            
FT9	031375 035412 0   0   0            0            0            
ET0	031375 035412 0   0   0            0            0            
ST1	031375 035412 0   0   0            0            0            
ST2	031375 035412 0   0   0            0            0            
ST9	031375 035412 0   0   0            0            0            


*031375 ADD 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031375 031375 0   0   270000035412 0            0            
IT1	031375 0      0   0   270000035412 0            0            
AT3	031375 0      0   0   000000035412 0            270000035412 
AT6	031375 035412 0   0   000000035412 0            270000035412 
FT0	031375 035412 0   0   0            0            270000035412 
FT1A	031375 035412 0   0   0            0            0            
FT2	031375 035412 0   0   0            0            0            
FT2RQ	031375 035412 0   0   0            0            0            
FT3	031375 035412 0   0   0            0            0            
FT9	031376 035412 0   0   0            0            0            
ET0	031376 035412 0   0   0            0            0            
ST1	031376 035412 0   0   0            0            0            
ST2	031376 035412 0   0   0            0            0            
ST9	031376 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 116
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0395

*031376 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031376 031376 0   0   332000000000 0            0            
IT1	031376 0      0   0   332000000000 0            0            
AT3	031376 0      0   0   0            0            332000000000 
AT6	031376 0      0   0   0            0            332000000000 
FT0	031376 0      0   0   0            0            332000000000 
FT1A	031376 0      0   0   0            0            0            
FT9	031377 0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1A	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            


*031400 JUMPA	0,031401
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000031401 0            000000031401 
IT1	0      0      0   0   324000031401 0            000000031401 
AT3	0      0      0   0   000000031401 0            324000031401 
AT6	0      031401 0   0   000000031401 0            324000031401 
FT1A	0      031401 0   0   000000031401 0            000000031401 
FT2	0      031401 0   0   0            0            000000031401 
FT2RQ	0      031401 0   0   0            0            000000031401 
FT3	0      031401 0   0   0            0            000000031401 
FT9	031401 031401 0   0   0            0            000000031401 
ET0	031401 031401 0   0   0            0            000000031401 
ST1A	031401 031401 0   0   0            0            000000031401 
ST9	031401 031401 0   0   0            0            000000031401 


*031401 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031401 031401 0   0   200000035412 0            0            
IT1	031401 0      0   0   200000035412 0            0            
AT3	031401 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 117
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0396

AT6	031401 035412 0   0   000000035412 0            200000035412 
FT0	031401 035412 0   0   0            0            200000035412 
FT1A	031401 035412 0   0   0            0            0            
FT9	031402 035412 0   0   0            0            0            
ET0	031402 035412 0   0   0            0            0            
ST1	031402 035412 0   0   0            0            0            
ST2	031402 035412 0   0   0            0            0            
ST9	031402 035412 0   0   0            0            0            


*031402 ADD 	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031402 031402 0   0   270000035416 0            000000000001 
IT1	031402 0      0   0   270000035416 0            000000000001 
AT3	031402 0      0   0   000000035416 0            270000035416 
AT6	031402 035416 0   0   000000035416 0            270000035416 
FT0	031402 035416 0   0   000000000001 0            270000035416 
FT1A	031402 035416 0   0   000000000001 0            000000000001 
FT2	031402 035416 0   0   0            0            000000000001 
FT2RQ	031402 035416 0   0   0            0            000000000001 
FT3	031402 035416 0   0   0            0            000000000001 
FT9	031403 035416 0   0   0            0            000000000001 
ET0	031403 035416 0   0   000000000001 0            000000000001 
ST1	031403 035416 0   0   000000000001 0            000000000001 
ST2	031403 035416 0   0   000000000001 0            000000000001 
ST9	031403 035416 0   0   000000000001 0            000000000001 


*031403 EQV 	0,035416
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031403 031403 0   0   444000035416 0            000000000001 
IT1	031403 0      0   0   444000035416 0            000000000001 
AT3	031403 0      0   0   000000035416 0            444000035416 
AT6	031403 035416 0   0   000000035416 0            444000035416 
FT0	031403 035416 0   0   000000000001 0            444000035416 
FT1A	031403 035416 0   0   000000000001 0            000000000001 
FT2	031403 035416 0   0   0            0            000000000001 
FT2RQ	031403 035416 0   0   000000000001 0            000000000001 
FT3	031403 035416 0   0   000000000001 0            000000000001 
FT9	031404 035416 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 118
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0397

ET0	031404 035416 0   0   777777777777 0            000000000001 
ST1	031404 035416 0   0   777777777777 0            000000000001 
ST2	031404 035416 0   0   777777777777 0            000000000001 
ST9	031404 035416 0   0   777777777777 0            000000000001 


*031404 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031404 031404 0   0   444000035412 0            0            
IT1	031404 0      0   0   444000035412 0            0            
AT3	031404 0      0   0   000000035412 0            444000035412 
AT6	031404 035412 0   0   000000035412 0            444000035412 
FT0	031404 035412 0   0   0            0            444000035412 
FT1A	031404 035412 0   0   0            0            0            
FT2	031404 035412 0   0   0            0            0            
FT2RQ	031404 035412 0   0   777777777777 0            0            
FT3	031404 035412 0   0   777777777777 0            0            
FT9	031405 035412 0   0   777777777777 0            0            
ET0	031405 035412 0   0   0            0            0            
ST1	031405 035412 0   0   0            0            0            
ST2	031405 035412 0   0   0            0            0            
ST9	031405 035412 0   0   0            0            0            


*031405 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031405 031405 0   0   332000000000 0            0            
IT1	031405 0      0   0   332000000000 0            0            
AT3	031405 0      0   0   0            0            332000000000 
AT6	031405 0      0   0   0            0            332000000000 
FT0	031405 0      0   0   0            0            332000000000 
FT1A	031405 0      0   0   0            0            0            
FT9	031406 0      0   0   0            0            0            
ET0	031407 0      0   0   0            0            0            
ST1A	031407 0      0   0   0            0            0            
ST9	031407 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 119
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0398

*031407 JUMPA	0,031410
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031407 031407 0   0   324000031410 0            000000031410 
IT1	031407 0      0   0   324000031410 0            000000031410 
AT3	031407 0      0   0   000000031410 0            324000031410 
AT6	031407 031410 0   0   000000031410 0            324000031410 
FT1A	031407 031410 0   0   000000031410 0            000000031410 
FT2	031407 031410 0   0   0            0            000000031410 
FT2RQ	031407 031410 0   0   0            0            000000031410 
FT3	031407 031410 0   0   0            0            000000031410 
FT9	031410 031410 0   0   0            0            000000031410 
ET0	031410 031410 0   0   0            0            000000031410 
ST1A	031410 031410 0   0   0            0            000000031410 
ST9	031410 031410 0   0   0            0            000000031410 


*031410 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031410 031410 0   0   200000035412 0            0            
IT1	031410 0      0   0   200000035412 0            0            
AT3	031410 0      0   0   000000035412 0            200000035412 
AT6	031410 035412 0   0   000000035412 0            200000035412 
FT0	031410 035412 0   0   0            0            200000035412 
FT1A	031410 035412 0   0   0            0            0            
FT9	031411 035412 0   0   0            0            0            
ET0	031411 035412 0   0   0            0            0            
ST1	031411 035412 0   0   0            0            0            
ST2	031411 035412 0   0   0            0            0            
ST9	031411 035412 0   0   0            0            0            


*031411 ADD 	0,035417
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031411 031411 0   0   270000035417 0            000000000002 
IT1	031411 0      0   0   270000035417 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 120
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0399

AT3	031411 0      0   0   000000035417 0            270000035417 
AT6	031411 035417 0   0   000000035417 0            270000035417 
FT0	031411 035417 0   0   000000000002 0            270000035417 
FT1A	031411 035417 0   0   000000000002 0            000000000002 
FT2	031411 035417 0   0   0            0            000000000002 
FT2RQ	031411 035417 0   0   0            0            000000000002 
FT3	031411 035417 0   0   0            0            000000000002 
FT9	031412 035417 0   0   0            0            000000000002 
ET0	031412 035417 0   0   000000000002 0            000000000002 
ST1	031412 035417 0   0   000000000002 0            000000000002 
ST2	031412 035417 0   0   000000000002 0            000000000002 
ST9	031412 035417 0   0   000000000002 0            000000000002 


*031412 EQV 	0,035417
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031412 031412 0   0   444000035417 0            000000000002 
IT1	031412 0      0   0   444000035417 0            000000000002 
AT3	031412 0      0   0   000000035417 0            444000035417 
AT6	031412 035417 0   0   000000035417 0            444000035417 
FT0	031412 035417 0   0   000000000002 0            444000035417 
FT1A	031412 035417 0   0   000000000002 0            000000000002 
FT2	031412 035417 0   0   0            0            000000000002 
FT2RQ	031412 035417 0   0   000000000002 0            000000000002 
FT3	031412 035417 0   0   000000000002 0            000000000002 
FT9	031413 035417 0   0   000000000002 0            000000000002 
ET0	031413 035417 0   0   777777777777 0            000000000002 
ST1	031413 035417 0   0   777777777777 0            000000000002 
ST2	031413 035417 0   0   777777777777 0            000000000002 
ST9	031413 035417 0   0   777777777777 0            000000000002 


*031413 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031413 031413 0   0   444000035412 0            0            
IT1	031413 0      0   0   444000035412 0            0            
AT3	031413 0      0   0   000000035412 0            444000035412 
AT6	031413 035412 0   0   000000035412 0            444000035412 
FT0	031413 035412 0   0   0            0            444000035412 
FT1A	031413 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 121
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0400

FT2	031413 035412 0   0   0            0            0            
FT2RQ	031413 035412 0   0   777777777777 0            0            
FT3	031413 035412 0   0   777777777777 0            0            
FT9	031414 035412 0   0   777777777777 0            0            
ET0	031414 035412 0   0   0            0            0            
ST1	031414 035412 0   0   0            0            0            
ST2	031414 035412 0   0   0            0            0            
ST9	031414 035412 0   0   0            0            0            


*031414 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031414 031414 0   0   332000000000 0            0            
IT1	031414 0      0   0   332000000000 0            0            
AT3	031414 0      0   0   0            0            332000000000 
AT6	031414 0      0   0   0            0            332000000000 
FT0	031414 0      0   0   0            0            332000000000 
FT1A	031414 0      0   0   0            0            0            
FT9	031415 0      0   0   0            0            0            
ET0	031416 0      0   0   0            0            0            
ST1A	031416 0      0   0   0            0            0            
ST9	031416 0      0   0   0            0            0            


*031416 JUMPA	0,031417
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031416 031416 0   0   324000031417 0            000000031417 
IT1	031416 0      0   0   324000031417 0            000000031417 
AT3	031416 0      0   0   000000031417 0            324000031417 
AT6	031416 031417 0   0   000000031417 0            324000031417 
FT1A	031416 031417 0   0   000000031417 0            000000031417 
FT2	031416 031417 0   0   0            0            000000031417 
FT2RQ	031416 031417 0   0   0            0            000000031417 
FT3	031416 031417 0   0   0            0            000000031417 
FT9	031417 031417 0   0   0            0            000000031417 
ET0	031417 031417 0   0   0            0            000000031417 
ST1A	031417 031417 0   0   0            0            000000031417 
ST9	031417 031417 0   0   0            0            000000031417 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 122
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0401

*031417 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031417 031417 0   0   200000035412 0            0            
IT1	031417 0      0   0   200000035412 0            0            
AT3	031417 0      0   0   000000035412 0            200000035412 
AT6	031417 035412 0   0   000000035412 0            200000035412 
FT0	031417 035412 0   0   0            0            200000035412 
FT1A	031417 035412 0   0   0            0            0            
FT9	031420 035412 0   0   0            0            0            
ET0	031420 035412 0   0   0            0            0            
ST1	031420 035412 0   0   0            0            0            
ST2	031420 035412 0   0   0            0            0            
ST9	031420 035412 0   0   0            0            0            


*031420 ADD 	0,035420
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031420 031420 0   0   270000035420 0            000000000004 
IT1	031420 0      0   0   270000035420 0            000000000004 
AT3	031420 0      0   0   000000035420 0            270000035420 
AT6	031420 035420 0   0   000000035420 0            270000035420 
FT0	031420 035420 0   0   000000000004 0            270000035420 
FT1A	031420 035420 0   0   000000000004 0            000000000004 
FT2	031420 035420 0   0   0            0            000000000004 
FT2RQ	031420 035420 0   0   0            0            000000000004 
FT3	031420 035420 0   0   0            0            000000000004 
FT9	031421 035420 0   0   0            0            000000000004 
ET0	031421 035420 0   0   000000000004 0            000000000004 
ST1	031421 035420 0   0   000000000004 0            000000000004 
ST2	031421 035420 0   0   000000000004 0            000000000004 
ST9	031421 035420 0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 123
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0402

*031421 EQV 	0,035420
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031421 031421 0   0   444000035420 0            000000000004 
IT1	031421 0      0   0   444000035420 0            000000000004 
AT3	031421 0      0   0   000000035420 0            444000035420 
AT6	031421 035420 0   0   000000035420 0            444000035420 
FT0	031421 035420 0   0   000000000004 0            444000035420 
FT1A	031421 035420 0   0   000000000004 0            000000000004 
FT2	031421 035420 0   0   0            0            000000000004 
FT2RQ	031421 035420 0   0   000000000004 0            000000000004 
FT3	031421 035420 0   0   000000000004 0            000000000004 
FT9	031422 035420 0   0   000000000004 0            000000000004 
ET0	031422 035420 0   0   777777777777 0            000000000004 
ST1	031422 035420 0   0   777777777777 0            000000000004 
ST2	031422 035420 0   0   777777777777 0            000000000004 
ST9	031422 035420 0   0   777777777777 0            000000000004 


*031422 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031422 031422 0   0   444000035412 0            0            
IT1	031422 0      0   0   444000035412 0            0            
AT3	031422 0      0   0   000000035412 0            444000035412 
AT6	031422 035412 0   0   000000035412 0            444000035412 
FT0	031422 035412 0   0   0            0            444000035412 
FT1A	031422 035412 0   0   0            0            0            
FT2	031422 035412 0   0   0            0            0            
FT2RQ	031422 035412 0   0   777777777777 0            0            
FT3	031422 035412 0   0   777777777777 0            0            
FT9	031423 035412 0   0   777777777777 0            0            
ET0	031423 035412 0   0   0            0            0            
ST1	031423 035412 0   0   0            0            0            
ST2	031423 035412 0   0   0            0            0            
ST9	031423 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 124
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0403

*031423 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031423 031423 0   0   332000000000 0            0            
IT1	031423 0      0   0   332000000000 0            0            
AT3	031423 0      0   0   0            0            332000000000 
AT6	031423 0      0   0   0            0            332000000000 
FT0	031423 0      0   0   0            0            332000000000 
FT1A	031423 0      0   0   0            0            0            
FT9	031424 0      0   0   0            0            0            
ET0	031425 0      0   0   0            0            0            
ST1A	031425 0      0   0   0            0            0            
ST9	031425 0      0   0   0            0            0            


*031425 JUMPA	0,031426
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031425 031425 0   0   324000031426 0            000000031426 
IT1	031425 0      0   0   324000031426 0            000000031426 
AT3	031425 0      0   0   000000031426 0            324000031426 
AT6	031425 031426 0   0   000000031426 0            324000031426 
FT1A	031425 031426 0   0   000000031426 0            000000031426 
FT2	031425 031426 0   0   0            0            000000031426 
FT2RQ	031425 031426 0   0   0            0            000000031426 
FT3	031425 031426 0   0   0            0            000000031426 
FT9	031426 031426 0   0   0            0            000000031426 
ET0	031426 031426 0   0   0            0            000000031426 
ST1A	031426 031426 0   0   0            0            000000031426 
ST9	031426 031426 0   0   0            0            000000031426 


*031426 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031426 031426 0   0   200000035412 0            0            
IT1	031426 0      0   0   200000035412 0            0            
AT3	031426 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 125
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0404

AT6	031426 035412 0   0   000000035412 0            200000035412 
FT0	031426 035412 0   0   0            0            200000035412 
FT1A	031426 035412 0   0   0            0            0            
FT9	031427 035412 0   0   0            0            0            
ET0	031427 035412 0   0   0            0            0            
ST1	031427 035412 0   0   0            0            0            
ST2	031427 035412 0   0   0            0            0            
ST9	031427 035412 0   0   0            0            0            


*031427 ADD 	0,035421
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031427 031427 0   0   270000035421 0            000000000010 
IT1	031427 0      0   0   270000035421 0            000000000010 
AT3	031427 0      0   0   000000035421 0            270000035421 
AT6	031427 035421 0   0   000000035421 0            270000035421 
FT0	031427 035421 0   0   000000000010 0            270000035421 
FT1A	031427 035421 0   0   000000000010 0            000000000010 
FT2	031427 035421 0   0   0            0            000000000010 
FT2RQ	031427 035421 0   0   0            0            000000000010 
FT3	031427 035421 0   0   0            0            000000000010 
FT9	031430 035421 0   0   0            0            000000000010 
ET0	031430 035421 0   0   000000000010 0            000000000010 
ST1	031430 035421 0   0   000000000010 0            000000000010 
ST2	031430 035421 0   0   000000000010 0            000000000010 
ST9	031430 035421 0   0   000000000010 0            000000000010 


*031430 EQV 	0,035421
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031430 031430 0   0   444000035421 0            000000000010 
IT1	031430 0      0   0   444000035421 0            000000000010 
AT3	031430 0      0   0   000000035421 0            444000035421 
AT6	031430 035421 0   0   000000035421 0            444000035421 
FT0	031430 035421 0   0   000000000010 0            444000035421 
FT1A	031430 035421 0   0   000000000010 0            000000000010 
FT2	031430 035421 0   0   0            0            000000000010 
FT2RQ	031430 035421 0   0   000000000010 0            000000000010 
FT3	031430 035421 0   0   000000000010 0            000000000010 
FT9	031431 035421 0   0   000000000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 126
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0405

ET0	031431 035421 0   0   777777777777 0            000000000010 
ST1	031431 035421 0   0   777777777777 0            000000000010 
ST2	031431 035421 0   0   777777777777 0            000000000010 
ST9	031431 035421 0   0   777777777777 0            000000000010 


*031431 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031431 031431 0   0   444000035412 0            0            
IT1	031431 0      0   0   444000035412 0            0            
AT3	031431 0      0   0   000000035412 0            444000035412 
AT6	031431 035412 0   0   000000035412 0            444000035412 
FT0	031431 035412 0   0   0            0            444000035412 
FT1A	031431 035412 0   0   0            0            0            
FT2	031431 035412 0   0   0            0            0            
FT2RQ	031431 035412 0   0   777777777777 0            0            
FT3	031431 035412 0   0   777777777777 0            0            
FT9	031432 035412 0   0   777777777777 0            0            
ET0	031432 035412 0   0   0            0            0            
ST1	031432 035412 0   0   0            0            0            
ST2	031432 035412 0   0   0            0            0            
ST9	031432 035412 0   0   0            0            0            


*031432 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031432 031432 0   0   332000000000 0            0            
IT1	031432 0      0   0   332000000000 0            0            
AT3	031432 0      0   0   0            0            332000000000 
AT6	031432 0      0   0   0            0            332000000000 
FT0	031432 0      0   0   0            0            332000000000 
FT1A	031432 0      0   0   0            0            0            
FT9	031433 0      0   0   0            0            0            
ET0	031434 0      0   0   0            0            0            
ST1A	031434 0      0   0   0            0            0            
ST9	031434 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 127
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0406

*031434 JUMPA	0,031435
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031434 031434 0   0   324000031435 0            000000031435 
IT1	031434 0      0   0   324000031435 0            000000031435 
AT3	031434 0      0   0   000000031435 0            324000031435 
AT6	031434 031435 0   0   000000031435 0            324000031435 
FT1A	031434 031435 0   0   000000031435 0            000000031435 
FT2	031434 031435 0   0   0            0            000000031435 
FT2RQ	031434 031435 0   0   0            0            000000031435 
FT3	031434 031435 0   0   0            0            000000031435 
FT9	031435 031435 0   0   0            0            000000031435 
ET0	031435 031435 0   0   0            0            000000031435 
ST1A	031435 031435 0   0   0            0            000000031435 
ST9	031435 031435 0   0   0            0            000000031435 


*031435 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031435 031435 0   0   200000035412 0            0            
IT1	031435 0      0   0   200000035412 0            0            
AT3	031435 0      0   0   000000035412 0            200000035412 
AT6	031435 035412 0   0   000000035412 0            200000035412 
FT0	031435 035412 0   0   0            0            200000035412 
FT1A	031435 035412 0   0   0            0            0            
FT9	031436 035412 0   0   0            0            0            
ET0	031436 035412 0   0   0            0            0            
ST1	031436 035412 0   0   0            0            0            
ST2	031436 035412 0   0   0            0            0            
ST9	031436 035412 0   0   0            0            0            


*031436 ADD 	0,035422
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031436 031436 0   0   270000035422 0            000000000020 
IT1	031436 0      0   0   270000035422 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 128
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0407

AT3	031436 0      0   0   000000035422 0            270000035422 
AT6	031436 035422 0   0   000000035422 0            270000035422 
FT0	031436 035422 0   0   000000000020 0            270000035422 
FT1A	031436 035422 0   0   000000000020 0            000000000020 
FT2	031436 035422 0   0   0            0            000000000020 
FT2RQ	031436 035422 0   0   0            0            000000000020 
FT3	031436 035422 0   0   0            0            000000000020 
FT9	031437 035422 0   0   0            0            000000000020 
ET0	031437 035422 0   0   000000000020 0            000000000020 
ST1	031437 035422 0   0   000000000020 0            000000000020 
ST2	031437 035422 0   0   000000000020 0            000000000020 
ST9	031437 035422 0   0   000000000020 0            000000000020 


*031437 EQV 	0,035422
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031437 031437 0   0   444000035422 0            000000000020 
IT1	031437 0      0   0   444000035422 0            000000000020 
AT3	031437 0      0   0   000000035422 0            444000035422 
AT6	031437 035422 0   0   000000035422 0            444000035422 
FT0	031437 035422 0   0   000000000020 0            444000035422 
FT1A	031437 035422 0   0   000000000020 0            000000000020 
FT2	031437 035422 0   0   0            0            000000000020 
FT2RQ	031437 035422 0   0   000000000020 0            000000000020 
FT3	031437 035422 0   0   000000000020 0            000000000020 
FT9	031440 035422 0   0   000000000020 0            000000000020 
ET0	031440 035422 0   0   777777777777 0            000000000020 
ST1	031440 035422 0   0   777777777777 0            000000000020 
ST2	031440 035422 0   0   777777777777 0            000000000020 
ST9	031440 035422 0   0   777777777777 0            000000000020 


*031440 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031440 031440 0   0   444000035412 0            0            
IT1	031440 0      0   0   444000035412 0            0            
AT3	031440 0      0   0   000000035412 0            444000035412 
AT6	031440 035412 0   0   000000035412 0            444000035412 
FT0	031440 035412 0   0   0            0            444000035412 
FT1A	031440 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 129
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0408

FT2	031440 035412 0   0   0            0            0            
FT2RQ	031440 035412 0   0   777777777777 0            0            
FT3	031440 035412 0   0   777777777777 0            0            
FT9	031441 035412 0   0   777777777777 0            0            
ET0	031441 035412 0   0   0            0            0            
ST1	031441 035412 0   0   0            0            0            
ST2	031441 035412 0   0   0            0            0            
ST9	031441 035412 0   0   0            0            0            


*031441 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031441 031441 0   0   332000000000 0            0            
IT1	031441 0      0   0   332000000000 0            0            
AT3	031441 0      0   0   0            0            332000000000 
AT6	031441 0      0   0   0            0            332000000000 
FT0	031441 0      0   0   0            0            332000000000 
FT1A	031441 0      0   0   0            0            0            
FT9	031442 0      0   0   0            0            0            
ET0	031443 0      0   0   0            0            0            
ST1A	031443 0      0   0   0            0            0            
ST9	031443 0      0   0   0            0            0            


*031443 JUMPA	0,031444
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031443 031443 0   0   324000031444 0            000000031444 
IT1	031443 0      0   0   324000031444 0            000000031444 
AT3	031443 0      0   0   000000031444 0            324000031444 
AT6	031443 031444 0   0   000000031444 0            324000031444 
FT1A	031443 031444 0   0   000000031444 0            000000031444 
FT2	031443 031444 0   0   0            0            000000031444 
FT2RQ	031443 031444 0   0   0            0            000000031444 
FT3	031443 031444 0   0   0            0            000000031444 
FT9	031444 031444 0   0   0            0            000000031444 
ET0	031444 031444 0   0   0            0            000000031444 
ST1A	031444 031444 0   0   0            0            000000031444 
ST9	031444 031444 0   0   0            0            000000031444 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 130
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0409

*031444 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031444 031444 0   0   200000035412 0            0            
IT1	031444 0      0   0   200000035412 0            0            
AT3	031444 0      0   0   000000035412 0            200000035412 
AT6	031444 035412 0   0   000000035412 0            200000035412 
FT0	031444 035412 0   0   0            0            200000035412 
FT1A	031444 035412 0   0   0            0            0            
FT9	031445 035412 0   0   0            0            0            
ET0	031445 035412 0   0   0            0            0            
ST1	031445 035412 0   0   0            0            0            
ST2	031445 035412 0   0   0            0            0            
ST9	031445 035412 0   0   0            0            0            


*031445 ADD 	0,035423
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031445 031445 0   0   270000035423 0            000000000040 
IT1	031445 0      0   0   270000035423 0            000000000040 
AT3	031445 0      0   0   000000035423 0            270000035423 
AT6	031445 035423 0   0   000000035423 0            270000035423 
FT0	031445 035423 0   0   000000000040 0            270000035423 
FT1A	031445 035423 0   0   000000000040 0            000000000040 
FT2	031445 035423 0   0   0            0            000000000040 
FT2RQ	031445 035423 0   0   0            0            000000000040 
FT3	031445 035423 0   0   0            0            000000000040 
FT9	031446 035423 0   0   0            0            000000000040 
ET0	031446 035423 0   0   000000000040 0            000000000040 
ST1	031446 035423 0   0   000000000040 0            000000000040 
ST2	031446 035423 0   0   000000000040 0            000000000040 
ST9	031446 035423 0   0   000000000040 0            000000000040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 131
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0410

*031446 EQV 	0,035423
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031446 031446 0   0   444000035423 0            000000000040 
IT1	031446 0      0   0   444000035423 0            000000000040 
AT3	031446 0      0   0   000000035423 0            444000035423 
AT6	031446 035423 0   0   000000035423 0            444000035423 
FT0	031446 035423 0   0   000000000040 0            444000035423 
FT1A	031446 035423 0   0   000000000040 0            000000000040 
FT2	031446 035423 0   0   0            0            000000000040 
FT2RQ	031446 035423 0   0   000000000040 0            000000000040 
FT3	031446 035423 0   0   000000000040 0            000000000040 
FT9	031447 035423 0   0   000000000040 0            000000000040 
ET0	031447 035423 0   0   777777777777 0            000000000040 
ST1	031447 035423 0   0   777777777777 0            000000000040 
ST2	031447 035423 0   0   777777777777 0            000000000040 
ST9	031447 035423 0   0   777777777777 0            000000000040 


*031447 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   444000035412 0            0            
IT1	031447 0      0   0   444000035412 0            0            
AT3	031447 0      0   0   000000035412 0            444000035412 
AT6	031447 035412 0   0   000000035412 0            444000035412 
FT0	031447 035412 0   0   0            0            444000035412 
FT1A	031447 035412 0   0   0            0            0            
FT2	031447 035412 0   0   0            0            0            
FT2RQ	031447 035412 0   0   777777777777 0            0            
FT3	031447 035412 0   0   777777777777 0            0            
FT9	031450 035412 0   0   777777777777 0            0            
ET0	031450 035412 0   0   0            0            0            
ST1	031450 035412 0   0   0            0            0            
ST2	031450 035412 0   0   0            0            0            
ST9	031450 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 132
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0411

*031450 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031450 031450 0   0   332000000000 0            0            
IT1	031450 0      0   0   332000000000 0            0            
AT3	031450 0      0   0   0            0            332000000000 
AT6	031450 0      0   0   0            0            332000000000 
FT0	031450 0      0   0   0            0            332000000000 
FT1A	031450 0      0   0   0            0            0            
FT9	031451 0      0   0   0            0            0            
ET0	031452 0      0   0   0            0            0            
ST1A	031452 0      0   0   0            0            0            
ST9	031452 0      0   0   0            0            0            


*031452 JUMPA	0,031453
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031452 031452 0   0   324000031453 0            000000031453 
IT1	031452 0      0   0   324000031453 0            000000031453 
AT3	031452 0      0   0   000000031453 0            324000031453 
AT6	031452 031453 0   0   000000031453 0            324000031453 
FT1A	031452 031453 0   0   000000031453 0            000000031453 
FT2	031452 031453 0   0   0            0            000000031453 
FT2RQ	031452 031453 0   0   0            0            000000031453 
FT3	031452 031453 0   0   0            0            000000031453 
FT9	031453 031453 0   0   0            0            000000031453 
ET0	031453 031453 0   0   0            0            000000031453 
ST1A	031453 031453 0   0   0            0            000000031453 
ST9	031453 031453 0   0   0            0            000000031453 


*031453 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031453 031453 0   0   200000035412 0            0            
IT1	031453 0      0   0   200000035412 0            0            
AT3	031453 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 133
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0412

AT6	031453 035412 0   0   000000035412 0            200000035412 
FT0	031453 035412 0   0   0            0            200000035412 
FT1A	031453 035412 0   0   0            0            0            
FT9	031454 035412 0   0   0            0            0            
ET0	031454 035412 0   0   0            0            0            
ST1	031454 035412 0   0   0            0            0            
ST2	031454 035412 0   0   0            0            0            
ST9	031454 035412 0   0   0            0            0            


*031454 ADD 	0,035424
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031454 031454 0   0   270000035424 0            000000000100 
IT1	031454 0      0   0   270000035424 0            000000000100 
AT3	031454 0      0   0   000000035424 0            270000035424 
AT6	031454 035424 0   0   000000035424 0            270000035424 
FT0	031454 035424 0   0   000000000100 0            270000035424 
FT1A	031454 035424 0   0   000000000100 0            000000000100 
FT2	031454 035424 0   0   0            0            000000000100 
FT2RQ	031454 035424 0   0   0            0            000000000100 
FT3	031454 035424 0   0   0            0            000000000100 
FT9	031455 035424 0   0   0            0            000000000100 
ET0	031455 035424 0   0   000000000100 0            000000000100 
ST1	031455 035424 0   0   000000000100 0            000000000100 
ST2	031455 035424 0   0   000000000100 0            000000000100 
ST9	031455 035424 0   0   000000000100 0            000000000100 


*031455 EQV 	0,035424
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031455 031455 0   0   444000035424 0            000000000100 
IT1	031455 0      0   0   444000035424 0            000000000100 
AT3	031455 0      0   0   000000035424 0            444000035424 
AT6	031455 035424 0   0   000000035424 0            444000035424 
FT0	031455 035424 0   0   000000000100 0            444000035424 
FT1A	031455 035424 0   0   000000000100 0            000000000100 
FT2	031455 035424 0   0   0            0            000000000100 
FT2RQ	031455 035424 0   0   000000000100 0            000000000100 
FT3	031455 035424 0   0   000000000100 0            000000000100 
FT9	031456 035424 0   0   000000000100 0            000000000100 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 134
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0413

ET0	031456 035424 0   0   777777777777 0            000000000100 
ST1	031456 035424 0   0   777777777777 0            000000000100 
ST2	031456 035424 0   0   777777777777 0            000000000100 
ST9	031456 035424 0   0   777777777777 0            000000000100 


*031456 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031456 031456 0   0   444000035412 0            0            
IT1	031456 0      0   0   444000035412 0            0            
AT3	031456 0      0   0   000000035412 0            444000035412 
AT6	031456 035412 0   0   000000035412 0            444000035412 
FT0	031456 035412 0   0   0            0            444000035412 
FT1A	031456 035412 0   0   0            0            0            
FT2	031456 035412 0   0   0            0            0            
FT2RQ	031456 035412 0   0   777777777777 0            0            
FT3	031456 035412 0   0   777777777777 0            0            
FT9	031457 035412 0   0   777777777777 0            0            
ET0	031457 035412 0   0   0            0            0            
ST1	031457 035412 0   0   0            0            0            
ST2	031457 035412 0   0   0            0            0            
ST9	031457 035412 0   0   0            0            0            


*031457 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031457 031457 0   0   332000000000 0            0            
IT1	031457 0      0   0   332000000000 0            0            
AT3	031457 0      0   0   0            0            332000000000 
AT6	031457 0      0   0   0            0            332000000000 
FT0	031457 0      0   0   0            0            332000000000 
FT1A	031457 0      0   0   0            0            0            
FT9	031460 0      0   0   0            0            0            
ET0	031461 0      0   0   0            0            0            
ST1A	031461 0      0   0   0            0            0            
ST9	031461 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 135
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0414

*031461 JUMPA	0,031462
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031461 031461 0   0   324000031462 0            000000031462 
IT1	031461 0      0   0   324000031462 0            000000031462 
AT3	031461 0      0   0   000000031462 0            324000031462 
AT6	031461 031462 0   0   000000031462 0            324000031462 
FT1A	031461 031462 0   0   000000031462 0            000000031462 
FT2	031461 031462 0   0   0            0            000000031462 
FT2RQ	031461 031462 0   0   0            0            000000031462 
FT3	031461 031462 0   0   0            0            000000031462 
FT9	031462 031462 0   0   0            0            000000031462 
ET0	031462 031462 0   0   0            0            000000031462 
ST1A	031462 031462 0   0   0            0            000000031462 
ST9	031462 031462 0   0   0            0            000000031462 


*031462 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031462 031462 0   0   200000035412 0            0            
IT1	031462 0      0   0   200000035412 0            0            
AT3	031462 0      0   0   000000035412 0            200000035412 
AT6	031462 035412 0   0   000000035412 0            200000035412 
FT0	031462 035412 0   0   0            0            200000035412 
FT1A	031462 035412 0   0   0            0            0            
FT9	031463 035412 0   0   0            0            0            
ET0	031463 035412 0   0   0            0            0            
ST1	031463 035412 0   0   0            0            0            
ST2	031463 035412 0   0   0            0            0            
ST9	031463 035412 0   0   0            0            0            


*031463 ADD 	0,035425
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031463 031463 0   0   270000035425 0            000000000200 
IT1	031463 0      0   0   270000035425 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 136
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0415

AT3	031463 0      0   0   000000035425 0            270000035425 
AT6	031463 035425 0   0   000000035425 0            270000035425 
FT0	031463 035425 0   0   000000000200 0            270000035425 
FT1A	031463 035425 0   0   000000000200 0            000000000200 
FT2	031463 035425 0   0   0            0            000000000200 
FT2RQ	031463 035425 0   0   0            0            000000000200 
FT3	031463 035425 0   0   0            0            000000000200 
FT9	031464 035425 0   0   0            0            000000000200 
ET0	031464 035425 0   0   000000000200 0            000000000200 
ST1	031464 035425 0   0   000000000200 0            000000000200 
ST2	031464 035425 0   0   000000000200 0            000000000200 
ST9	031464 035425 0   0   000000000200 0            000000000200 


*031464 EQV 	0,035425
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031464 031464 0   0   444000035425 0            000000000200 
IT1	031464 0      0   0   444000035425 0            000000000200 
AT3	031464 0      0   0   000000035425 0            444000035425 
AT6	031464 035425 0   0   000000035425 0            444000035425 
FT0	031464 035425 0   0   000000000200 0            444000035425 
FT1A	031464 035425 0   0   000000000200 0            000000000200 
FT2	031464 035425 0   0   0            0            000000000200 
FT2RQ	031464 035425 0   0   000000000200 0            000000000200 
FT3	031464 035425 0   0   000000000200 0            000000000200 
FT9	031465 035425 0   0   000000000200 0            000000000200 
ET0	031465 035425 0   0   777777777777 0            000000000200 
ST1	031465 035425 0   0   777777777777 0            000000000200 
ST2	031465 035425 0   0   777777777777 0            000000000200 
ST9	031465 035425 0   0   777777777777 0            000000000200 


*031465 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031465 031465 0   0   444000035412 0            0            
IT1	031465 0      0   0   444000035412 0            0            
AT3	031465 0      0   0   000000035412 0            444000035412 
AT6	031465 035412 0   0   000000035412 0            444000035412 
FT0	031465 035412 0   0   0            0            444000035412 
FT1A	031465 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 137
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0416

FT2	031465 035412 0   0   0            0            0            
FT2RQ	031465 035412 0   0   777777777777 0            0            
FT3	031465 035412 0   0   777777777777 0            0            
FT9	031466 035412 0   0   777777777777 0            0            
ET0	031466 035412 0   0   0            0            0            
ST1	031466 035412 0   0   0            0            0            
ST2	031466 035412 0   0   0            0            0            
ST9	031466 035412 0   0   0            0            0            


*031466 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031466 031466 0   0   332000000000 0            0            
IT1	031466 0      0   0   332000000000 0            0            
AT3	031466 0      0   0   0            0            332000000000 
AT6	031466 0      0   0   0            0            332000000000 
FT0	031466 0      0   0   0            0            332000000000 
FT1A	031466 0      0   0   0            0            0            
FT9	031467 0      0   0   0            0            0            
ET0	031470 0      0   0   0            0            0            
ST1A	031470 0      0   0   0            0            0            
ST9	031470 0      0   0   0            0            0            


*031470 JUMPA	0,031471
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031470 031470 0   0   324000031471 0            000000031471 
IT1	031470 0      0   0   324000031471 0            000000031471 
AT3	031470 0      0   0   000000031471 0            324000031471 
AT6	031470 031471 0   0   000000031471 0            324000031471 
FT1A	031470 031471 0   0   000000031471 0            000000031471 
FT2	031470 031471 0   0   0            0            000000031471 
FT2RQ	031470 031471 0   0   0            0            000000031471 
FT3	031470 031471 0   0   0            0            000000031471 
FT9	031471 031471 0   0   0            0            000000031471 
ET0	031471 031471 0   0   0            0            000000031471 
ST1A	031471 031471 0   0   0            0            000000031471 
ST9	031471 031471 0   0   0            0            000000031471 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 138
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0417

*031471 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031471 031471 0   0   200000035412 0            0            
IT1	031471 0      0   0   200000035412 0            0            
AT3	031471 0      0   0   000000035412 0            200000035412 
AT6	031471 035412 0   0   000000035412 0            200000035412 
FT0	031471 035412 0   0   0            0            200000035412 
FT1A	031471 035412 0   0   0            0            0            
FT9	031472 035412 0   0   0            0            0            
ET0	031472 035412 0   0   0            0            0            
ST1	031472 035412 0   0   0            0            0            
ST2	031472 035412 0   0   0            0            0            
ST9	031472 035412 0   0   0            0            0            


*031472 ADD 	0,035426
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031472 031472 0   0   270000035426 0            000000000400 
IT1	031472 0      0   0   270000035426 0            000000000400 
AT3	031472 0      0   0   000000035426 0            270000035426 
AT6	031472 035426 0   0   000000035426 0            270000035426 
FT0	031472 035426 0   0   000000000400 0            270000035426 
FT1A	031472 035426 0   0   000000000400 0            000000000400 
FT2	031472 035426 0   0   0            0            000000000400 
FT2RQ	031472 035426 0   0   0            0            000000000400 
FT3	031472 035426 0   0   0            0            000000000400 
FT9	031473 035426 0   0   0            0            000000000400 
ET0	031473 035426 0   0   000000000400 0            000000000400 
ST1	031473 035426 0   0   000000000400 0            000000000400 
ST2	031473 035426 0   0   000000000400 0            000000000400 
ST9	031473 035426 0   0   000000000400 0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 139
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0418

*031473 EQV 	0,035426
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031473 031473 0   0   444000035426 0            000000000400 
IT1	031473 0      0   0   444000035426 0            000000000400 
AT3	031473 0      0   0   000000035426 0            444000035426 
AT6	031473 035426 0   0   000000035426 0            444000035426 
FT0	031473 035426 0   0   000000000400 0            444000035426 
FT1A	031473 035426 0   0   000000000400 0            000000000400 
FT2	031473 035426 0   0   0            0            000000000400 
FT2RQ	031473 035426 0   0   000000000400 0            000000000400 
FT3	031473 035426 0   0   000000000400 0            000000000400 
FT9	031474 035426 0   0   000000000400 0            000000000400 
ET0	031474 035426 0   0   777777777777 0            000000000400 
ST1	031474 035426 0   0   777777777777 0            000000000400 
ST2	031474 035426 0   0   777777777777 0            000000000400 
ST9	031474 035426 0   0   777777777777 0            000000000400 


*031474 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031474 031474 0   0   444000035412 0            0            
IT1	031474 0      0   0   444000035412 0            0            
AT3	031474 0      0   0   000000035412 0            444000035412 
AT6	031474 035412 0   0   000000035412 0            444000035412 
FT0	031474 035412 0   0   0            0            444000035412 
FT1A	031474 035412 0   0   0            0            0            
FT2	031474 035412 0   0   0            0            0            
FT2RQ	031474 035412 0   0   777777777777 0            0            
FT3	031474 035412 0   0   777777777777 0            0            
FT9	031475 035412 0   0   777777777777 0            0            
ET0	031475 035412 0   0   0            0            0            
ST1	031475 035412 0   0   0            0            0            
ST2	031475 035412 0   0   0            0            0            
ST9	031475 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 140
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0419

*031475 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031475 031475 0   0   332000000000 0            0            
IT1	031475 0      0   0   332000000000 0            0            
AT3	031475 0      0   0   0            0            332000000000 
AT6	031475 0      0   0   0            0            332000000000 
FT0	031475 0      0   0   0            0            332000000000 
FT1A	031475 0      0   0   0            0            0            
FT9	031476 0      0   0   0            0            0            
ET0	031477 0      0   0   0            0            0            
ST1A	031477 0      0   0   0            0            0            
ST9	031477 0      0   0   0            0            0            


*031477 JUMPA	0,031500
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031477 031477 0   0   324000031500 0            000000031500 
IT1	031477 0      0   0   324000031500 0            000000031500 
AT3	031477 0      0   0   000000031500 0            324000031500 
AT6	031477 0      0   0   000000031500 0            324000031500 
FT1A	031477 0      0   0   000000031500 0            000000031500 
FT2	031477 0      0   0   0            0            000000031500 
FT2RQ	031477 0      0   0   0            0            000000031500 
FT3	031477 0      0   0   0            0            000000031500 
FT9	0      0      0   0   0            0            000000031500 
ET0	0      0      0   0   0            0            000000031500 
ST1A	0      0      0   0   0            0            000000031500 
ST9	0      0      0   0   0            0            000000031500 


*031500 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035412 0            0            
IT1	0      0      0   0   200000035412 0            0            
AT3	0      0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 141
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0420

AT6	0      035412 0   0   000000035412 0            200000035412 
FT0	0      035412 0   0   0            0            200000035412 
FT1A	0      035412 0   0   0            0            0            
FT9	031501 035412 0   0   0            0            0            
ET0	031501 035412 0   0   0            0            0            
ST1	031501 035412 0   0   0            0            0            
ST2	031501 035412 0   0   0            0            0            
ST9	031501 035412 0   0   0            0            0            


*031501 ADD 	0,035427
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031501 031501 0   0   270000035427 0            000000001000 
IT1	031501 0      0   0   270000035427 0            000000001000 
AT3	031501 0      0   0   000000035427 0            270000035427 
AT6	031501 035427 0   0   000000035427 0            270000035427 
FT0	031501 035427 0   0   000000001000 0            270000035427 
FT1A	031501 035427 0   0   000000001000 0            000000001000 
FT2	031501 035427 0   0   0            0            000000001000 
FT2RQ	031501 035427 0   0   0            0            000000001000 
FT3	031501 035427 0   0   0            0            000000001000 
FT9	031502 035427 0   0   0            0            000000001000 
ET0	031502 035427 0   0   000000001000 0            000000001000 
ST1	031502 035427 0   0   000000001000 0            000000001000 
ST2	031502 035427 0   0   000000001000 0            000000001000 
ST9	031502 035427 0   0   000000001000 0            000000001000 


*031502 EQV 	0,035427
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031502 031502 0   0   444000035427 0            000000001000 
IT1	031502 0      0   0   444000035427 0            000000001000 
AT3	031502 0      0   0   000000035427 0            444000035427 
AT6	031502 035427 0   0   000000035427 0            444000035427 
FT0	031502 035427 0   0   000000001000 0            444000035427 
FT1A	031502 035427 0   0   000000001000 0            000000001000 
FT2	031502 035427 0   0   0            0            000000001000 
FT2RQ	031502 035427 0   0   000000001000 0            000000001000 
FT3	031502 035427 0   0   000000001000 0            000000001000 
FT9	031503 035427 0   0   000000001000 0            000000001000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 142
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0421

ET0	031503 035427 0   0   777777777777 0            000000001000 
ST1	031503 035427 0   0   777777777777 0            000000001000 
ST2	031503 035427 0   0   777777777777 0            000000001000 
ST9	031503 035427 0   0   777777777777 0            000000001000 


*031503 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031503 031503 0   0   444000035412 0            0            
IT1	031503 0      0   0   444000035412 0            0            
AT3	031503 0      0   0   000000035412 0            444000035412 
AT6	031503 035412 0   0   000000035412 0            444000035412 
FT0	031503 035412 0   0   0            0            444000035412 
FT1A	031503 035412 0   0   0            0            0            
FT2	031503 035412 0   0   0            0            0            
FT2RQ	031503 035412 0   0   777777777777 0            0            
FT3	031503 035412 0   0   777777777777 0            0            
FT9	031504 035412 0   0   777777777777 0            0            
ET0	031504 035412 0   0   0            0            0            
ST1	031504 035412 0   0   0            0            0            
ST2	031504 035412 0   0   0            0            0            
ST9	031504 035412 0   0   0            0            0            


*031504 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031504 031504 0   0   332000000000 0            0            
IT1	031504 0      0   0   332000000000 0            0            
AT3	031504 0      0   0   0            0            332000000000 
AT6	031504 0      0   0   0            0            332000000000 
FT0	031504 0      0   0   0            0            332000000000 
FT1A	031504 0      0   0   0            0            0            
FT9	031505 0      0   0   0            0            0            
ET0	031506 0      0   0   0            0            0            
ST1A	031506 0      0   0   0            0            0            
ST9	031506 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 143
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0422

*031506 JUMPA	0,031507
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031506 031506 0   0   324000031507 0            000000031507 
IT1	031506 0      0   0   324000031507 0            000000031507 
AT3	031506 0      0   0   000000031507 0            324000031507 
AT6	031506 031507 0   0   000000031507 0            324000031507 
FT1A	031506 031507 0   0   000000031507 0            000000031507 
FT2	031506 031507 0   0   0            0            000000031507 
FT2RQ	031506 031507 0   0   0            0            000000031507 
FT3	031506 031507 0   0   0            0            000000031507 
FT9	031507 031507 0   0   0            0            000000031507 
ET0	031507 031507 0   0   0            0            000000031507 
ST1A	031507 031507 0   0   0            0            000000031507 
ST9	031507 031507 0   0   0            0            000000031507 


*031507 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031507 031507 0   0   200000035412 0            0            
IT1	031507 0      0   0   200000035412 0            0            
AT3	031507 0      0   0   000000035412 0            200000035412 
AT6	031507 035412 0   0   000000035412 0            200000035412 
FT0	031507 035412 0   0   0            0            200000035412 
FT1A	031507 035412 0   0   0            0            0            
FT9	031510 035412 0   0   0            0            0            
ET0	031510 035412 0   0   0            0            0            
ST1	031510 035412 0   0   0            0            0            
ST2	031510 035412 0   0   0            0            0            
ST9	031510 035412 0   0   0            0            0            


*031510 ADD 	0,035430
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031510 031510 0   0   270000035430 0            000000002000 
IT1	031510 0      0   0   270000035430 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 144
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0423

AT3	031510 0      0   0   000000035430 0            270000035430 
AT6	031510 035430 0   0   000000035430 0            270000035430 
FT0	031510 035430 0   0   000000002000 0            270000035430 
FT1A	031510 035430 0   0   000000002000 0            000000002000 
FT2	031510 035430 0   0   0            0            000000002000 
FT2RQ	031510 035430 0   0   0            0            000000002000 
FT3	031510 035430 0   0   0            0            000000002000 
FT9	031511 035430 0   0   0            0            000000002000 
ET0	031511 035430 0   0   000000002000 0            000000002000 
ST1	031511 035430 0   0   000000002000 0            000000002000 
ST2	031511 035430 0   0   000000002000 0            000000002000 
ST9	031511 035430 0   0   000000002000 0            000000002000 


*031511 EQV 	0,035430
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031511 031511 0   0   444000035430 0            000000002000 
IT1	031511 0      0   0   444000035430 0            000000002000 
AT3	031511 0      0   0   000000035430 0            444000035430 
AT6	031511 035430 0   0   000000035430 0            444000035430 
FT0	031511 035430 0   0   000000002000 0            444000035430 
FT1A	031511 035430 0   0   000000002000 0            000000002000 
FT2	031511 035430 0   0   0            0            000000002000 
FT2RQ	031511 035430 0   0   000000002000 0            000000002000 
FT3	031511 035430 0   0   000000002000 0            000000002000 
FT9	031512 035430 0   0   000000002000 0            000000002000 
ET0	031512 035430 0   0   777777777777 0            000000002000 
ST1	031512 035430 0   0   777777777777 0            000000002000 
ST2	031512 035430 0   0   777777777777 0            000000002000 
ST9	031512 035430 0   0   777777777777 0            000000002000 


*031512 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031512 031512 0   0   444000035412 0            0            
IT1	031512 0      0   0   444000035412 0            0            
AT3	031512 0      0   0   000000035412 0            444000035412 
AT6	031512 035412 0   0   000000035412 0            444000035412 
FT0	031512 035412 0   0   0            0            444000035412 
FT1A	031512 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 145
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0424

FT2	031512 035412 0   0   0            0            0            
FT2RQ	031512 035412 0   0   777777777777 0            0            
FT3	031512 035412 0   0   777777777777 0            0            
FT9	031513 035412 0   0   777777777777 0            0            
ET0	031513 035412 0   0   0            0            0            
ST1	031513 035412 0   0   0            0            0            
ST2	031513 035412 0   0   0            0            0            
ST9	031513 035412 0   0   0            0            0            


*031513 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031513 031513 0   0   332000000000 0            0            
IT1	031513 0      0   0   332000000000 0            0            
AT3	031513 0      0   0   0            0            332000000000 
AT6	031513 0      0   0   0            0            332000000000 
FT0	031513 0      0   0   0            0            332000000000 
FT1A	031513 0      0   0   0            0            0            
FT9	031514 0      0   0   0            0            0            
ET0	031515 0      0   0   0            0            0            
ST1A	031515 0      0   0   0            0            0            
ST9	031515 0      0   0   0            0            0            


*031515 JUMPA	0,031516
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031515 031515 0   0   324000031516 0            000000031516 
IT1	031515 0      0   0   324000031516 0            000000031516 
AT3	031515 0      0   0   000000031516 0            324000031516 
AT6	031515 031516 0   0   000000031516 0            324000031516 
FT1A	031515 031516 0   0   000000031516 0            000000031516 
FT2	031515 031516 0   0   0            0            000000031516 
FT2RQ	031515 031516 0   0   0            0            000000031516 
FT3	031515 031516 0   0   0            0            000000031516 
FT9	031516 031516 0   0   0            0            000000031516 
ET0	031516 031516 0   0   0            0            000000031516 
ST1A	031516 031516 0   0   0            0            000000031516 
ST9	031516 031516 0   0   0            0            000000031516 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 146
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0425

*031516 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031516 031516 0   0   200000035412 0            0            
IT1	031516 0      0   0   200000035412 0            0            
AT3	031516 0      0   0   000000035412 0            200000035412 
AT6	031516 035412 0   0   000000035412 0            200000035412 
FT0	031516 035412 0   0   0            0            200000035412 
FT1A	031516 035412 0   0   0            0            0            
FT9	031517 035412 0   0   0            0            0            
ET0	031517 035412 0   0   0            0            0            
ST1	031517 035412 0   0   0            0            0            
ST2	031517 035412 0   0   0            0            0            
ST9	031517 035412 0   0   0            0            0            


*031517 ADD 	0,035431
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031517 031517 0   0   270000035431 0            000000004000 
IT1	031517 0      0   0   270000035431 0            000000004000 
AT3	031517 0      0   0   000000035431 0            270000035431 
AT6	031517 035431 0   0   000000035431 0            270000035431 
FT0	031517 035431 0   0   000000004000 0            270000035431 
FT1A	031517 035431 0   0   000000004000 0            000000004000 
FT2	031517 035431 0   0   0            0            000000004000 
FT2RQ	031517 035431 0   0   0            0            000000004000 
FT3	031517 035431 0   0   0            0            000000004000 
FT9	031520 035431 0   0   0            0            000000004000 
ET0	031520 035431 0   0   000000004000 0            000000004000 
ST1	031520 035431 0   0   000000004000 0            000000004000 
ST2	031520 035431 0   0   000000004000 0            000000004000 
ST9	031520 035431 0   0   000000004000 0            000000004000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 147
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0426

*031520 EQV 	0,035431
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031520 031520 0   0   444000035431 0            000000004000 
IT1	031520 0      0   0   444000035431 0            000000004000 
AT3	031520 0      0   0   000000035431 0            444000035431 
AT6	031520 035431 0   0   000000035431 0            444000035431 
FT0	031520 035431 0   0   000000004000 0            444000035431 
FT1A	031520 035431 0   0   000000004000 0            000000004000 
FT2	031520 035431 0   0   0            0            000000004000 
FT2RQ	031520 035431 0   0   000000004000 0            000000004000 
FT3	031520 035431 0   0   000000004000 0            000000004000 
FT9	031521 035431 0   0   000000004000 0            000000004000 
ET0	031521 035431 0   0   777777777777 0            000000004000 
ST1	031521 035431 0   0   777777777777 0            000000004000 
ST2	031521 035431 0   0   777777777777 0            000000004000 
ST9	031521 035431 0   0   777777777777 0            000000004000 


*031521 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031521 031521 0   0   444000035412 0            0            
IT1	031521 0      0   0   444000035412 0            0            
AT3	031521 0      0   0   000000035412 0            444000035412 
AT6	031521 035412 0   0   000000035412 0            444000035412 
FT0	031521 035412 0   0   0            0            444000035412 
FT1A	031521 035412 0   0   0            0            0            
FT2	031521 035412 0   0   0            0            0            
FT2RQ	031521 035412 0   0   777777777777 0            0            
FT3	031521 035412 0   0   777777777777 0            0            
FT9	031522 035412 0   0   777777777777 0            0            
ET0	031522 035412 0   0   0            0            0            
ST1	031522 035412 0   0   0            0            0            
ST2	031522 035412 0   0   0            0            0            
ST9	031522 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 148
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0427

*031522 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031522 031522 0   0   332000000000 0            0            
IT1	031522 0      0   0   332000000000 0            0            
AT3	031522 0      0   0   0            0            332000000000 
AT6	031522 0      0   0   0            0            332000000000 
FT0	031522 0      0   0   0            0            332000000000 
FT1A	031522 0      0   0   0            0            0            
FT9	031523 0      0   0   0            0            0            
ET0	031524 0      0   0   0            0            0            
ST1A	031524 0      0   0   0            0            0            
ST9	031524 0      0   0   0            0            0            


*031524 JUMPA	0,031525
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031524 031524 0   0   324000031525 0            000000031525 
IT1	031524 0      0   0   324000031525 0            000000031525 
AT3	031524 0      0   0   000000031525 0            324000031525 
AT6	031524 031525 0   0   000000031525 0            324000031525 
FT1A	031524 031525 0   0   000000031525 0            000000031525 
FT2	031524 031525 0   0   0            0            000000031525 
FT2RQ	031524 031525 0   0   0            0            000000031525 
FT3	031524 031525 0   0   0            0            000000031525 
FT9	031525 031525 0   0   0            0            000000031525 
ET0	031525 031525 0   0   0            0            000000031525 
ST1A	031525 031525 0   0   0            0            000000031525 
ST9	031525 031525 0   0   0            0            000000031525 


*031525 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031525 031525 0   0   200000035412 0            0            
IT1	031525 0      0   0   200000035412 0            0            
AT3	031525 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 149
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0428

AT6	031525 035412 0   0   000000035412 0            200000035412 
FT0	031525 035412 0   0   0            0            200000035412 
FT1A	031525 035412 0   0   0            0            0            
FT9	031526 035412 0   0   0            0            0            
ET0	031526 035412 0   0   0            0            0            
ST1	031526 035412 0   0   0            0            0            
ST2	031526 035412 0   0   0            0            0            
ST9	031526 035412 0   0   0            0            0            


*031526 ADD 	0,035432
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031526 031526 0   0   270000035432 0            000000010000 
IT1	031526 0      0   0   270000035432 0            000000010000 
AT3	031526 0      0   0   000000035432 0            270000035432 
AT6	031526 035432 0   0   000000035432 0            270000035432 
FT0	031526 035432 0   0   000000010000 0            270000035432 
FT1A	031526 035432 0   0   000000010000 0            000000010000 
FT2	031526 035432 0   0   0            0            000000010000 
FT2RQ	031526 035432 0   0   0            0            000000010000 
FT3	031526 035432 0   0   0            0            000000010000 
FT9	031527 035432 0   0   0            0            000000010000 
ET0	031527 035432 0   0   000000010000 0            000000010000 
ST1	031527 035432 0   0   000000010000 0            000000010000 
ST2	031527 035432 0   0   000000010000 0            000000010000 
ST9	031527 035432 0   0   000000010000 0            000000010000 


*031527 EQV 	0,035432
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031527 031527 0   0   444000035432 0            000000010000 
IT1	031527 0      0   0   444000035432 0            000000010000 
AT3	031527 0      0   0   000000035432 0            444000035432 
AT6	031527 035432 0   0   000000035432 0            444000035432 
FT0	031527 035432 0   0   000000010000 0            444000035432 
FT1A	031527 035432 0   0   000000010000 0            000000010000 
FT2	031527 035432 0   0   0            0            000000010000 
FT2RQ	031527 035432 0   0   000000010000 0            000000010000 
FT3	031527 035432 0   0   000000010000 0            000000010000 
FT9	031530 035432 0   0   000000010000 0            000000010000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 150
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0429

ET0	031530 035432 0   0   777777777777 0            000000010000 
ST1	031530 035432 0   0   777777777777 0            000000010000 
ST2	031530 035432 0   0   777777777777 0            000000010000 
ST9	031530 035432 0   0   777777777777 0            000000010000 


*031530 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031530 031530 0   0   444000035412 0            0            
IT1	031530 0      0   0   444000035412 0            0            
AT3	031530 0      0   0   000000035412 0            444000035412 
AT6	031530 035412 0   0   000000035412 0            444000035412 
FT0	031530 035412 0   0   0            0            444000035412 
FT1A	031530 035412 0   0   0            0            0            
FT2	031530 035412 0   0   0            0            0            
FT2RQ	031530 035412 0   0   777777777777 0            0            
FT3	031530 035412 0   0   777777777777 0            0            
FT9	031531 035412 0   0   777777777777 0            0            
ET0	031531 035412 0   0   0            0            0            
ST1	031531 035412 0   0   0            0            0            
ST2	031531 035412 0   0   0            0            0            
ST9	031531 035412 0   0   0            0            0            


*031531 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031531 031531 0   0   332000000000 0            0            
IT1	031531 0      0   0   332000000000 0            0            
AT3	031531 0      0   0   0            0            332000000000 
AT6	031531 0      0   0   0            0            332000000000 
FT0	031531 0      0   0   0            0            332000000000 
FT1A	031531 0      0   0   0            0            0            
FT9	031532 0      0   0   0            0            0            
ET0	031533 0      0   0   0            0            0            
ST1A	031533 0      0   0   0            0            0            
ST9	031533 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 151
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0430

*031533 JUMPA	0,031534
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031533 031533 0   0   324000031534 0            000000031534 
IT1	031533 0      0   0   324000031534 0            000000031534 
AT3	031533 0      0   0   000000031534 0            324000031534 
AT6	031533 031534 0   0   000000031534 0            324000031534 
FT1A	031533 031534 0   0   000000031534 0            000000031534 
FT2	031533 031534 0   0   0            0            000000031534 
FT2RQ	031533 031534 0   0   0            0            000000031534 
FT3	031533 031534 0   0   0            0            000000031534 
FT9	031534 031534 0   0   0            0            000000031534 
ET0	031534 031534 0   0   0            0            000000031534 
ST1A	031534 031534 0   0   0            0            000000031534 
ST9	031534 031534 0   0   0            0            000000031534 


*031534 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031534 031534 0   0   200000035412 0            0            
IT1	031534 0      0   0   200000035412 0            0            
AT3	031534 0      0   0   000000035412 0            200000035412 
AT6	031534 035412 0   0   000000035412 0            200000035412 
FT0	031534 035412 0   0   0            0            200000035412 
FT1A	031534 035412 0   0   0            0            0            
FT9	031535 035412 0   0   0            0            0            
ET0	031535 035412 0   0   0            0            0            
ST1	031535 035412 0   0   0            0            0            
ST2	031535 035412 0   0   0            0            0            
ST9	031535 035412 0   0   0            0            0            


*031535 ADD 	0,035433
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031535 031535 0   0   270000035433 0            000000020000 
IT1	031535 0      0   0   270000035433 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 152
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0431

AT3	031535 0      0   0   000000035433 0            270000035433 
AT6	031535 035433 0   0   000000035433 0            270000035433 
FT0	031535 035433 0   0   000000020000 0            270000035433 
FT1A	031535 035433 0   0   000000020000 0            000000020000 
FT2	031535 035433 0   0   0            0            000000020000 
FT2RQ	031535 035433 0   0   0            0            000000020000 
FT3	031535 035433 0   0   0            0            000000020000 
FT9	031536 035433 0   0   0            0            000000020000 
ET0	031536 035433 0   0   000000020000 0            000000020000 
ST1	031536 035433 0   0   000000020000 0            000000020000 
ST2	031536 035433 0   0   000000020000 0            000000020000 
ST9	031536 035433 0   0   000000020000 0            000000020000 


*031536 EQV 	0,035433
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031536 031536 0   0   444000035433 0            000000020000 
IT1	031536 0      0   0   444000035433 0            000000020000 
AT3	031536 0      0   0   000000035433 0            444000035433 
AT6	031536 035433 0   0   000000035433 0            444000035433 
FT0	031536 035433 0   0   000000020000 0            444000035433 
FT1A	031536 035433 0   0   000000020000 0            000000020000 
FT2	031536 035433 0   0   0            0            000000020000 
FT2RQ	031536 035433 0   0   000000020000 0            000000020000 
FT3	031536 035433 0   0   000000020000 0            000000020000 
FT9	031537 035433 0   0   000000020000 0            000000020000 
ET0	031537 035433 0   0   777777777777 0            000000020000 
ST1	031537 035433 0   0   777777777777 0            000000020000 
ST2	031537 035433 0   0   777777777777 0            000000020000 
ST9	031537 035433 0   0   777777777777 0            000000020000 


*031537 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031537 031537 0   0   444000035412 0            0            
IT1	031537 0      0   0   444000035412 0            0            
AT3	031537 0      0   0   000000035412 0            444000035412 
AT6	031537 035412 0   0   000000035412 0            444000035412 
FT0	031537 035412 0   0   0            0            444000035412 
FT1A	031537 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 153
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0432

FT2	031537 035412 0   0   0            0            0            
FT2RQ	031537 035412 0   0   777777777777 0            0            
FT3	031537 035412 0   0   777777777777 0            0            
FT9	031540 035412 0   0   777777777777 0            0            
ET0	031540 035412 0   0   0            0            0            
ST1	031540 035412 0   0   0            0            0            
ST2	031540 035412 0   0   0            0            0            
ST9	031540 035412 0   0   0            0            0            


*031540 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031540 031540 0   0   332000000000 0            0            
IT1	031540 0      0   0   332000000000 0            0            
AT3	031540 0      0   0   0            0            332000000000 
AT6	031540 0      0   0   0            0            332000000000 
FT0	031540 0      0   0   0            0            332000000000 
FT1A	031540 0      0   0   0            0            0            
FT9	031541 0      0   0   0            0            0            
ET0	031542 0      0   0   0            0            0            
ST1A	031542 0      0   0   0            0            0            
ST9	031542 0      0   0   0            0            0            


*031542 JUMPA	0,031543
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031542 031542 0   0   324000031543 0            000000031543 
IT1	031542 0      0   0   324000031543 0            000000031543 
AT3	031542 0      0   0   000000031543 0            324000031543 
AT6	031542 031543 0   0   000000031543 0            324000031543 
FT1A	031542 031543 0   0   000000031543 0            000000031543 
FT2	031542 031543 0   0   0            0            000000031543 
FT2RQ	031542 031543 0   0   0            0            000000031543 
FT3	031542 031543 0   0   0            0            000000031543 
FT9	031543 031543 0   0   0            0            000000031543 
ET0	031543 031543 0   0   0            0            000000031543 
ST1A	031543 031543 0   0   0            0            000000031543 
ST9	031543 031543 0   0   0            0            000000031543 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 154
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0433

*031543 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031543 031543 0   0   200000035412 0            0            
IT1	031543 0      0   0   200000035412 0            0            
AT3	031543 0      0   0   000000035412 0            200000035412 
AT6	031543 035412 0   0   000000035412 0            200000035412 
FT0	031543 035412 0   0   0            0            200000035412 
FT1A	031543 035412 0   0   0            0            0            
FT9	031544 035412 0   0   0            0            0            
ET0	031544 035412 0   0   0            0            0            
ST1	031544 035412 0   0   0            0            0            
ST2	031544 035412 0   0   0            0            0            
ST9	031544 035412 0   0   0            0            0            


*031544 ADD 	0,035434
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031544 031544 0   0   270000035434 0            000000040000 
IT1	031544 0      0   0   270000035434 0            000000040000 
AT3	031544 0      0   0   000000035434 0            270000035434 
AT6	031544 035434 0   0   000000035434 0            270000035434 
FT0	031544 035434 0   0   000000040000 0            270000035434 
FT1A	031544 035434 0   0   000000040000 0            000000040000 
FT2	031544 035434 0   0   0            0            000000040000 
FT2RQ	031544 035434 0   0   0            0            000000040000 
FT3	031544 035434 0   0   0            0            000000040000 
FT9	031545 035434 0   0   0            0            000000040000 
ET0	031545 035434 0   0   000000040000 0            000000040000 
ST1	031545 035434 0   0   000000040000 0            000000040000 
ST2	031545 035434 0   0   000000040000 0            000000040000 
ST9	031545 035434 0   0   000000040000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 155
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0434

*031545 EQV 	0,035434
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031545 031545 0   0   444000035434 0            000000040000 
IT1	031545 0      0   0   444000035434 0            000000040000 
AT3	031545 0      0   0   000000035434 0            444000035434 
AT6	031545 035434 0   0   000000035434 0            444000035434 
FT0	031545 035434 0   0   000000040000 0            444000035434 
FT1A	031545 035434 0   0   000000040000 0            000000040000 
FT2	031545 035434 0   0   0            0            000000040000 
FT2RQ	031545 035434 0   0   000000040000 0            000000040000 
FT3	031545 035434 0   0   000000040000 0            000000040000 
FT9	031546 035434 0   0   000000040000 0            000000040000 
ET0	031546 035434 0   0   777777777777 0            000000040000 
ST1	031546 035434 0   0   777777777777 0            000000040000 
ST2	031546 035434 0   0   777777777777 0            000000040000 
ST9	031546 035434 0   0   777777777777 0            000000040000 


*031546 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031546 031546 0   0   444000035412 0            0            
IT1	031546 0      0   0   444000035412 0            0            
AT3	031546 0      0   0   000000035412 0            444000035412 
AT6	031546 035412 0   0   000000035412 0            444000035412 
FT0	031546 035412 0   0   0            0            444000035412 
FT1A	031546 035412 0   0   0            0            0            
FT2	031546 035412 0   0   0            0            0            
FT2RQ	031546 035412 0   0   777777777777 0            0            
FT3	031546 035412 0   0   777777777777 0            0            
FT9	031547 035412 0   0   777777777777 0            0            
ET0	031547 035412 0   0   0            0            0            
ST1	031547 035412 0   0   0            0            0            
ST2	031547 035412 0   0   0            0            0            
ST9	031547 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 156
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0435

*031547 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031547 031547 0   0   332000000000 0            0            
IT1	031547 0      0   0   332000000000 0            0            
AT3	031547 0      0   0   0            0            332000000000 
AT6	031547 0      0   0   0            0            332000000000 
FT0	031547 0      0   0   0            0            332000000000 
FT1A	031547 0      0   0   0            0            0            
FT9	031550 0      0   0   0            0            0            
ET0	031551 0      0   0   0            0            0            
ST1A	031551 0      0   0   0            0            0            
ST9	031551 0      0   0   0            0            0            


*031551 JUMPA	0,031552
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031551 031551 0   0   324000031552 0            000000031552 
IT1	031551 0      0   0   324000031552 0            000000031552 
AT3	031551 0      0   0   000000031552 0            324000031552 
AT6	031551 031552 0   0   000000031552 0            324000031552 
FT1A	031551 031552 0   0   000000031552 0            000000031552 
FT2	031551 031552 0   0   0            0            000000031552 
FT2RQ	031551 031552 0   0   0            0            000000031552 
FT3	031551 031552 0   0   0            0            000000031552 
FT9	031552 031552 0   0   0            0            000000031552 
ET0	031552 031552 0   0   0            0            000000031552 
ST1A	031552 031552 0   0   0            0            000000031552 
ST9	031552 031552 0   0   0            0            000000031552 


*031552 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031552 031552 0   0   200000035412 0            0            
IT1	031552 0      0   0   200000035412 0            0            
AT3	031552 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 157
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0436

AT6	031552 035412 0   0   000000035412 0            200000035412 
FT0	031552 035412 0   0   0            0            200000035412 
FT1A	031552 035412 0   0   0            0            0            
FT9	031553 035412 0   0   0            0            0            
ET0	031553 035412 0   0   0            0            0            
ST1	031553 035412 0   0   0            0            0            
ST2	031553 035412 0   0   0            0            0            
ST9	031553 035412 0   0   0            0            0            


*031553 ADD 	0,035435
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031553 031553 0   0   270000035435 0            000000100000 
IT1	031553 0      0   0   270000035435 0            000000100000 
AT3	031553 0      0   0   000000035435 0            270000035435 
AT6	031553 035435 0   0   000000035435 0            270000035435 
FT0	031553 035435 0   0   000000100000 0            270000035435 
FT1A	031553 035435 0   0   000000100000 0            000000100000 
FT2	031553 035435 0   0   0            0            000000100000 
FT2RQ	031553 035435 0   0   0            0            000000100000 
FT3	031553 035435 0   0   0            0            000000100000 
FT9	031554 035435 0   0   0            0            000000100000 
ET0	031554 035435 0   0   000000100000 0            000000100000 
ST1	031554 035435 0   0   000000100000 0            000000100000 
ST2	031554 035435 0   0   000000100000 0            000000100000 
ST9	031554 035435 0   0   000000100000 0            000000100000 


*031554 EQV 	0,035435
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031554 031554 0   0   444000035435 0            000000100000 
IT1	031554 0      0   0   444000035435 0            000000100000 
AT3	031554 0      0   0   000000035435 0            444000035435 
AT6	031554 035435 0   0   000000035435 0            444000035435 
FT0	031554 035435 0   0   000000100000 0            444000035435 
FT1A	031554 035435 0   0   000000100000 0            000000100000 
FT2	031554 035435 0   0   0            0            000000100000 
FT2RQ	031554 035435 0   0   000000100000 0            000000100000 
FT3	031554 035435 0   0   000000100000 0            000000100000 
FT9	031555 035435 0   0   000000100000 0            000000100000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 158
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0437

ET0	031555 035435 0   0   777777777777 0            000000100000 
ST1	031555 035435 0   0   777777777777 0            000000100000 
ST2	031555 035435 0   0   777777777777 0            000000100000 
ST9	031555 035435 0   0   777777777777 0            000000100000 


*031555 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031555 031555 0   0   444000035412 0            0            
IT1	031555 0      0   0   444000035412 0            0            
AT3	031555 0      0   0   000000035412 0            444000035412 
AT6	031555 035412 0   0   000000035412 0            444000035412 
FT0	031555 035412 0   0   0            0            444000035412 
FT1A	031555 035412 0   0   0            0            0            
FT2	031555 035412 0   0   0            0            0            
FT2RQ	031555 035412 0   0   777777777777 0            0            
FT3	031555 035412 0   0   777777777777 0            0            
FT9	031556 035412 0   0   777777777777 0            0            
ET0	031556 035412 0   0   0            0            0            
ST1	031556 035412 0   0   0            0            0            
ST2	031556 035412 0   0   0            0            0            
ST9	031556 035412 0   0   0            0            0            


*031556 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031556 031556 0   0   332000000000 0            0            
IT1	031556 0      0   0   332000000000 0            0            
AT3	031556 0      0   0   0            0            332000000000 
AT6	031556 0      0   0   0            0            332000000000 
FT0	031556 0      0   0   0            0            332000000000 
FT1A	031556 0      0   0   0            0            0            
FT9	031557 0      0   0   0            0            0            
ET0	031560 0      0   0   0            0            0            
ST1A	031560 0      0   0   0            0            0            
ST9	031560 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 159
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0438

*031560 JUMPA	0,031561
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031560 031560 0   0   324000031561 0            000000031561 
IT1	031560 0      0   0   324000031561 0            000000031561 
AT3	031560 0      0   0   000000031561 0            324000031561 
AT6	031560 031561 0   0   000000031561 0            324000031561 
FT1A	031560 031561 0   0   000000031561 0            000000031561 
FT2	031560 031561 0   0   0            0            000000031561 
FT2RQ	031560 031561 0   0   0            0            000000031561 
FT3	031560 031561 0   0   0            0            000000031561 
FT9	031561 031561 0   0   0            0            000000031561 
ET0	031561 031561 0   0   0            0            000000031561 
ST1A	031561 031561 0   0   0            0            000000031561 
ST9	031561 031561 0   0   0            0            000000031561 


*031561 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031561 031561 0   0   200000035412 0            0            
IT1	031561 0      0   0   200000035412 0            0            
AT3	031561 0      0   0   000000035412 0            200000035412 
AT6	031561 035412 0   0   000000035412 0            200000035412 
FT0	031561 035412 0   0   0            0            200000035412 
FT1A	031561 035412 0   0   0            0            0            
FT9	031562 035412 0   0   0            0            0            
ET0	031562 035412 0   0   0            0            0            
ST1	031562 035412 0   0   0            0            0            
ST2	031562 035412 0   0   0            0            0            
ST9	031562 035412 0   0   0            0            0            


*031562 ADD 	0,035436
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031562 031562 0   0   270000035436 0            000000200000 
IT1	031562 0      0   0   270000035436 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 160
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0439

AT3	031562 0      0   0   000000035436 0            270000035436 
AT6	031562 035436 0   0   000000035436 0            270000035436 
FT0	031562 035436 0   0   000000200000 0            270000035436 
FT1A	031562 035436 0   0   000000200000 0            000000200000 
FT2	031562 035436 0   0   0            0            000000200000 
FT2RQ	031562 035436 0   0   0            0            000000200000 
FT3	031562 035436 0   0   0            0            000000200000 
FT9	031563 035436 0   0   0            0            000000200000 
ET0	031563 035436 0   0   000000200000 0            000000200000 
ST1	031563 035436 0   0   000000200000 0            000000200000 
ST2	031563 035436 0   0   000000200000 0            000000200000 
ST9	031563 035436 0   0   000000200000 0            000000200000 


*031563 EQV 	0,035436
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031563 031563 0   0   444000035436 0            000000200000 
IT1	031563 0      0   0   444000035436 0            000000200000 
AT3	031563 0      0   0   000000035436 0            444000035436 
AT6	031563 035436 0   0   000000035436 0            444000035436 
FT0	031563 035436 0   0   000000200000 0            444000035436 
FT1A	031563 035436 0   0   000000200000 0            000000200000 
FT2	031563 035436 0   0   0            0            000000200000 
FT2RQ	031563 035436 0   0   000000200000 0            000000200000 
FT3	031563 035436 0   0   000000200000 0            000000200000 
FT9	031564 035436 0   0   000000200000 0            000000200000 
ET0	031564 035436 0   0   777777777777 0            000000200000 
ST1	031564 035436 0   0   777777777777 0            000000200000 
ST2	031564 035436 0   0   777777777777 0            000000200000 
ST9	031564 035436 0   0   777777777777 0            000000200000 


*031564 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031564 031564 0   0   444000035412 0            0            
IT1	031564 0      0   0   444000035412 0            0            
AT3	031564 0      0   0   000000035412 0            444000035412 
AT6	031564 035412 0   0   000000035412 0            444000035412 
FT0	031564 035412 0   0   0            0            444000035412 
FT1A	031564 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 161
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0440

FT2	031564 035412 0   0   0            0            0            
FT2RQ	031564 035412 0   0   777777777777 0            0            
FT3	031564 035412 0   0   777777777777 0            0            
FT9	031565 035412 0   0   777777777777 0            0            
ET0	031565 035412 0   0   0            0            0            
ST1	031565 035412 0   0   0            0            0            
ST2	031565 035412 0   0   0            0            0            
ST9	031565 035412 0   0   0            0            0            


*031565 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031565 031565 0   0   332000000000 0            0            
IT1	031565 0      0   0   332000000000 0            0            
AT3	031565 0      0   0   0            0            332000000000 
AT6	031565 0      0   0   0            0            332000000000 
FT0	031565 0      0   0   0            0            332000000000 
FT1A	031565 0      0   0   0            0            0            
FT9	031566 0      0   0   0            0            0            
ET0	031567 0      0   0   0            0            0            
ST1A	031567 0      0   0   0            0            0            
ST9	031567 0      0   0   0            0            0            


*031567 JUMPA	0,031570
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031567 031567 0   0   324000031570 0            000000031570 
IT1	031567 0      0   0   324000031570 0            000000031570 
AT3	031567 0      0   0   000000031570 0            324000031570 
AT6	031567 031570 0   0   000000031570 0            324000031570 
FT1A	031567 031570 0   0   000000031570 0            000000031570 
FT2	031567 031570 0   0   0            0            000000031570 
FT2RQ	031567 031570 0   0   0            0            000000031570 
FT3	031567 031570 0   0   0            0            000000031570 
FT9	031570 031570 0   0   0            0            000000031570 
ET0	031570 031570 0   0   0            0            000000031570 
ST1A	031570 031570 0   0   0            0            000000031570 
ST9	031570 031570 0   0   0            0            000000031570 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 162
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0441

*031570 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031570 031570 0   0   200000035412 0            0            
IT1	031570 0      0   0   200000035412 0            0            
AT3	031570 0      0   0   000000035412 0            200000035412 
AT6	031570 035412 0   0   000000035412 0            200000035412 
FT0	031570 035412 0   0   0            0            200000035412 
FT1A	031570 035412 0   0   0            0            0            
FT9	031571 035412 0   0   0            0            0            
ET0	031571 035412 0   0   0            0            0            
ST1	031571 035412 0   0   0            0            0            
ST2	031571 035412 0   0   0            0            0            
ST9	031571 035412 0   0   0            0            0            


*031571 ADD 	0,035437
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031571 031571 0   0   270000035437 0            000000400000 
IT1	031571 0      0   0   270000035437 0            000000400000 
AT3	031571 0      0   0   000000035437 0            270000035437 
AT6	031571 035437 0   0   000000035437 0            270000035437 
FT0	031571 035437 0   0   000000400000 0            270000035437 
FT1A	031571 035437 0   0   000000400000 0            000000400000 
FT2	031571 035437 0   0   0            0            000000400000 
FT2RQ	031571 035437 0   0   0            0            000000400000 
FT3	031571 035437 0   0   0            0            000000400000 
FT9	031572 035437 0   0   0            0            000000400000 
ET0	031572 035437 0   0   000000400000 0            000000400000 
ST1	031572 035437 0   0   000000400000 0            000000400000 
ST2	031572 035437 0   0   000000400000 0            000000400000 
ST9	031572 035437 0   0   000000400000 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 163
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0442

*031572 EQV 	0,035437
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031572 031572 0   0   444000035437 0            000000400000 
IT1	031572 0      0   0   444000035437 0            000000400000 
AT3	031572 0      0   0   000000035437 0            444000035437 
AT6	031572 035437 0   0   000000035437 0            444000035437 
FT0	031572 035437 0   0   000000400000 0            444000035437 
FT1A	031572 035437 0   0   000000400000 0            000000400000 
FT2	031572 035437 0   0   0            0            000000400000 
FT2RQ	031572 035437 0   0   000000400000 0            000000400000 
FT3	031572 035437 0   0   000000400000 0            000000400000 
FT9	031573 035437 0   0   000000400000 0            000000400000 
ET0	031573 035437 0   0   777777777777 0            000000400000 
ST1	031573 035437 0   0   777777777777 0            000000400000 
ST2	031573 035437 0   0   777777777777 0            000000400000 
ST9	031573 035437 0   0   777777777777 0            000000400000 


*031573 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031573 031573 0   0   444000035412 0            0            
IT1	031573 0      0   0   444000035412 0            0            
AT3	031573 0      0   0   000000035412 0            444000035412 
AT6	031573 035412 0   0   000000035412 0            444000035412 
FT0	031573 035412 0   0   0            0            444000035412 
FT1A	031573 035412 0   0   0            0            0            
FT2	031573 035412 0   0   0            0            0            
FT2RQ	031573 035412 0   0   777777777777 0            0            
FT3	031573 035412 0   0   777777777777 0            0            
FT9	031574 035412 0   0   777777777777 0            0            
ET0	031574 035412 0   0   0            0            0            
ST1	031574 035412 0   0   0            0            0            
ST2	031574 035412 0   0   0            0            0            
ST9	031574 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 164
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0443

*031574 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031574 031574 0   0   332000000000 0            0            
IT1	031574 0      0   0   332000000000 0            0            
AT3	031574 0      0   0   0            0            332000000000 
AT6	031574 0      0   0   0            0            332000000000 
FT0	031574 0      0   0   0            0            332000000000 
FT1A	031574 0      0   0   0            0            0            
FT9	031575 0      0   0   0            0            0            
ET0	031576 0      0   0   0            0            0            
ST1A	031576 0      0   0   0            0            0            
ST9	031576 0      0   0   0            0            0            


*031576 JUMPA	0,031577
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031576 031576 0   0   324000031577 0            000000031577 
IT1	031576 0      0   0   324000031577 0            000000031577 
AT3	031576 0      0   0   000000031577 0            324000031577 
AT6	031576 031577 0   0   000000031577 0            324000031577 
FT1A	031576 031577 0   0   000000031577 0            000000031577 
FT2	031576 031577 0   0   0            0            000000031577 
FT2RQ	031576 031577 0   0   0            0            000000031577 
FT3	031576 031577 0   0   0            0            000000031577 
FT9	031577 031577 0   0   0            0            000000031577 
ET0	031577 031577 0   0   0            0            000000031577 
ST1A	031577 031577 0   0   0            0            000000031577 
ST9	031577 031577 0   0   0            0            000000031577 


*031577 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031577 031577 0   0   200000035412 0            0            
IT1	031577 0      0   0   200000035412 0            0            
AT3	031577 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 165
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0444

AT6	031577 035412 0   0   000000035412 0            200000035412 
FT0	031577 035412 0   0   0            0            200000035412 
FT1A	031577 035412 0   0   0            0            0            
FT9	0      035412 0   0   0            0            0            
ET0	0      035412 0   0   0            0            0            
ST1	0      035412 0   0   0            0            0            
ST2	0      035412 0   0   0            0            0            
ST9	0      035412 0   0   0            0            0            


*031600 ADD 	0,035440
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   270000035440 0            000001000000 
IT1	0      0      0   0   270000035440 0            000001000000 
AT3	0      0      0   0   000000035440 0            270000035440 
AT6	0      035440 0   0   000000035440 0            270000035440 
FT0	0      035440 0   0   000001000000 0            270000035440 
FT1A	0      035440 0   0   000001000000 0            000001000000 
FT2	0      035440 0   0   0            0            000001000000 
FT2RQ	0      035440 0   0   0            0            000001000000 
FT3	0      035440 0   0   0            0            000001000000 
FT9	031601 035440 0   0   0            0            000001000000 
ET0	031601 035440 0   0   000001000000 0            000001000000 
ST1	031601 035440 0   0   000001000000 0            000001000000 
ST2	031601 035440 0   0   000001000000 0            000001000000 
ST9	031601 035440 0   0   000001000000 0            000001000000 


*031601 EQV 	0,035440
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031601 031601 0   0   444000035440 0            000001000000 
IT1	031601 0      0   0   444000035440 0            000001000000 
AT3	031601 0      0   0   000000035440 0            444000035440 
AT6	031601 035440 0   0   000000035440 0            444000035440 
FT0	031601 035440 0   0   000001000000 0            444000035440 
FT1A	031601 035440 0   0   000001000000 0            000001000000 
FT2	031601 035440 0   0   0            0            000001000000 
FT2RQ	031601 035440 0   0   000001000000 0            000001000000 
FT3	031601 035440 0   0   000001000000 0            000001000000 
FT9	031602 035440 0   0   000001000000 0            000001000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 166
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0445

ET0	031602 035440 0   0   777777777777 0            000001000000 
ST1	031602 035440 0   0   777777777777 0            000001000000 
ST2	031602 035440 0   0   777777777777 0            000001000000 
ST9	031602 035440 0   0   777777777777 0            000001000000 


*031602 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031602 031602 0   0   444000035412 0            0            
IT1	031602 0      0   0   444000035412 0            0            
AT3	031602 0      0   0   000000035412 0            444000035412 
AT6	031602 035412 0   0   000000035412 0            444000035412 
FT0	031602 035412 0   0   0            0            444000035412 
FT1A	031602 035412 0   0   0            0            0            
FT2	031602 035412 0   0   0            0            0            
FT2RQ	031602 035412 0   0   777777777777 0            0            
FT3	031602 035412 0   0   777777777777 0            0            
FT9	031603 035412 0   0   777777777777 0            0            
ET0	031603 035412 0   0   0            0            0            
ST1	031603 035412 0   0   0            0            0            
ST2	031603 035412 0   0   0            0            0            
ST9	031603 035412 0   0   0            0            0            


*031603 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031603 031603 0   0   332000000000 0            0            
IT1	031603 0      0   0   332000000000 0            0            
AT3	031603 0      0   0   0            0            332000000000 
AT6	031603 0      0   0   0            0            332000000000 
FT0	031603 0      0   0   0            0            332000000000 
FT1A	031603 0      0   0   0            0            0            
FT9	031604 0      0   0   0            0            0            
ET0	031605 0      0   0   0            0            0            
ST1A	031605 0      0   0   0            0            0            
ST9	031605 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 167
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0446

*031605 JUMPA	0,031606
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031605 031605 0   0   324000031606 0            000000031606 
IT1	031605 0      0   0   324000031606 0            000000031606 
AT3	031605 0      0   0   000000031606 0            324000031606 
AT6	031605 031606 0   0   000000031606 0            324000031606 
FT1A	031605 031606 0   0   000000031606 0            000000031606 
FT2	031605 031606 0   0   0            0            000000031606 
FT2RQ	031605 031606 0   0   0            0            000000031606 
FT3	031605 031606 0   0   0            0            000000031606 
FT9	031606 031606 0   0   0            0            000000031606 
ET0	031606 031606 0   0   0            0            000000031606 
ST1A	031606 031606 0   0   0            0            000000031606 
ST9	031606 031606 0   0   0            0            000000031606 


*031606 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031606 031606 0   0   200000035412 0            0            
IT1	031606 0      0   0   200000035412 0            0            
AT3	031606 0      0   0   000000035412 0            200000035412 
AT6	031606 035412 0   0   000000035412 0            200000035412 
FT0	031606 035412 0   0   0            0            200000035412 
FT1A	031606 035412 0   0   0            0            0            
FT9	031607 035412 0   0   0            0            0            
ET0	031607 035412 0   0   0            0            0            
ST1	031607 035412 0   0   0            0            0            
ST2	031607 035412 0   0   0            0            0            
ST9	031607 035412 0   0   0            0            0            


*031607 ADD 	0,035441
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031607 031607 0   0   270000035441 0            000002000000 
IT1	031607 0      0   0   270000035441 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 168
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0447

AT3	031607 0      0   0   000000035441 0            270000035441 
AT6	031607 035441 0   0   000000035441 0            270000035441 
FT0	031607 035441 0   0   000002000000 0            270000035441 
FT1A	031607 035441 0   0   000002000000 0            000002000000 
FT2	031607 035441 0   0   0            0            000002000000 
FT2RQ	031607 035441 0   0   0            0            000002000000 
FT3	031607 035441 0   0   0            0            000002000000 
FT9	031610 035441 0   0   0            0            000002000000 
ET0	031610 035441 0   0   000002000000 0            000002000000 
ST1	031610 035441 0   0   000002000000 0            000002000000 
ST2	031610 035441 0   0   000002000000 0            000002000000 
ST9	031610 035441 0   0   000002000000 0            000002000000 


*031610 EQV 	0,035441
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031610 031610 0   0   444000035441 0            000002000000 
IT1	031610 0      0   0   444000035441 0            000002000000 
AT3	031610 0      0   0   000000035441 0            444000035441 
AT6	031610 035441 0   0   000000035441 0            444000035441 
FT0	031610 035441 0   0   000002000000 0            444000035441 
FT1A	031610 035441 0   0   000002000000 0            000002000000 
FT2	031610 035441 0   0   0            0            000002000000 
FT2RQ	031610 035441 0   0   000002000000 0            000002000000 
FT3	031610 035441 0   0   000002000000 0            000002000000 
FT9	031611 035441 0   0   000002000000 0            000002000000 
ET0	031611 035441 0   0   777777777777 0            000002000000 
ST1	031611 035441 0   0   777777777777 0            000002000000 
ST2	031611 035441 0   0   777777777777 0            000002000000 
ST9	031611 035441 0   0   777777777777 0            000002000000 


*031611 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031611 031611 0   0   444000035412 0            0            
IT1	031611 0      0   0   444000035412 0            0            
AT3	031611 0      0   0   000000035412 0            444000035412 
AT6	031611 035412 0   0   000000035412 0            444000035412 
FT0	031611 035412 0   0   0            0            444000035412 
FT1A	031611 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 169
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0448

FT2	031611 035412 0   0   0            0            0            
FT2RQ	031611 035412 0   0   777777777777 0            0            
FT3	031611 035412 0   0   777777777777 0            0            
FT9	031612 035412 0   0   777777777777 0            0            
ET0	031612 035412 0   0   0            0            0            
ST1	031612 035412 0   0   0            0            0            
ST2	031612 035412 0   0   0            0            0            
ST9	031612 035412 0   0   0            0            0            


*031612 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031612 031612 0   0   332000000000 0            0            
IT1	031612 0      0   0   332000000000 0            0            
AT3	031612 0      0   0   0            0            332000000000 
AT6	031612 0      0   0   0            0            332000000000 
FT0	031612 0      0   0   0            0            332000000000 
FT1A	031612 0      0   0   0            0            0            
FT9	031613 0      0   0   0            0            0            
ET0	031614 0      0   0   0            0            0            
ST1A	031614 0      0   0   0            0            0            
ST9	031614 0      0   0   0            0            0            


*031614 JUMPA	0,031615
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031614 031614 0   0   324000031615 0            000000031615 
IT1	031614 0      0   0   324000031615 0            000000031615 
AT3	031614 0      0   0   000000031615 0            324000031615 
AT6	031614 031615 0   0   000000031615 0            324000031615 
FT1A	031614 031615 0   0   000000031615 0            000000031615 
FT2	031614 031615 0   0   0            0            000000031615 
FT2RQ	031614 031615 0   0   0            0            000000031615 
FT3	031614 031615 0   0   0            0            000000031615 
FT9	031615 031615 0   0   0            0            000000031615 
ET0	031615 031615 0   0   0            0            000000031615 
ST1A	031615 031615 0   0   0            0            000000031615 
ST9	031615 031615 0   0   0            0            000000031615 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 170
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0449

*031615 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031615 031615 0   0   200000035412 0            0            
IT1	031615 0      0   0   200000035412 0            0            
AT3	031615 0      0   0   000000035412 0            200000035412 
AT6	031615 035412 0   0   000000035412 0            200000035412 
FT0	031615 035412 0   0   0            0            200000035412 
FT1A	031615 035412 0   0   0            0            0            
FT9	031616 035412 0   0   0            0            0            
ET0	031616 035412 0   0   0            0            0            
ST1	031616 035412 0   0   0            0            0            
ST2	031616 035412 0   0   0            0            0            
ST9	031616 035412 0   0   0            0            0            


*031616 ADD 	0,035442
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031616 031616 0   0   270000035442 0            000004000000 
IT1	031616 0      0   0   270000035442 0            000004000000 
AT3	031616 0      0   0   000000035442 0            270000035442 
AT6	031616 035442 0   0   000000035442 0            270000035442 
FT0	031616 035442 0   0   000004000000 0            270000035442 
FT1A	031616 035442 0   0   000004000000 0            000004000000 
FT2	031616 035442 0   0   0            0            000004000000 
FT2RQ	031616 035442 0   0   0            0            000004000000 
FT3	031616 035442 0   0   0            0            000004000000 
FT9	031617 035442 0   0   0            0            000004000000 
ET0	031617 035442 0   0   000004000000 0            000004000000 
ST1	031617 035442 0   0   000004000000 0            000004000000 
ST2	031617 035442 0   0   000004000000 0            000004000000 
ST9	031617 035442 0   0   000004000000 0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 171
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0450

*031617 EQV 	0,035442
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031617 031617 0   0   444000035442 0            000004000000 
IT1	031617 0      0   0   444000035442 0            000004000000 
AT3	031617 0      0   0   000000035442 0            444000035442 
AT6	031617 035442 0   0   000000035442 0            444000035442 
FT0	031617 035442 0   0   000004000000 0            444000035442 
FT1A	031617 035442 0   0   000004000000 0            000004000000 
FT2	031617 035442 0   0   0            0            000004000000 
FT2RQ	031617 035442 0   0   000004000000 0            000004000000 
FT3	031617 035442 0   0   000004000000 0            000004000000 
FT9	031620 035442 0   0   000004000000 0            000004000000 
ET0	031620 035442 0   0   777777777777 0            000004000000 
ST1	031620 035442 0   0   777777777777 0            000004000000 
ST2	031620 035442 0   0   777777777777 0            000004000000 
ST9	031620 035442 0   0   777777777777 0            000004000000 


*031620 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031620 031620 0   0   444000035412 0            0            
IT1	031620 0      0   0   444000035412 0            0            
AT3	031620 0      0   0   000000035412 0            444000035412 
AT6	031620 035412 0   0   000000035412 0            444000035412 
FT0	031620 035412 0   0   0            0            444000035412 
FT1A	031620 035412 0   0   0            0            0            
FT2	031620 035412 0   0   0            0            0            
FT2RQ	031620 035412 0   0   777777777777 0            0            
FT3	031620 035412 0   0   777777777777 0            0            
FT9	031621 035412 0   0   777777777777 0            0            
ET0	031621 035412 0   0   0            0            0            
ST1	031621 035412 0   0   0            0            0            
ST2	031621 035412 0   0   0            0            0            
ST9	031621 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 172
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0451

*031621 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031621 031621 0   0   332000000000 0            0            
IT1	031621 0      0   0   332000000000 0            0            
AT3	031621 0      0   0   0            0            332000000000 
AT6	031621 0      0   0   0            0            332000000000 
FT0	031621 0      0   0   0            0            332000000000 
FT1A	031621 0      0   0   0            0            0            
FT9	031622 0      0   0   0            0            0            
ET0	031623 0      0   0   0            0            0            
ST1A	031623 0      0   0   0            0            0            
ST9	031623 0      0   0   0            0            0            


*031623 JUMPA	0,031624
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031623 031623 0   0   324000031624 0            000000031624 
IT1	031623 0      0   0   324000031624 0            000000031624 
AT3	031623 0      0   0   000000031624 0            324000031624 
AT6	031623 031624 0   0   000000031624 0            324000031624 
FT1A	031623 031624 0   0   000000031624 0            000000031624 
FT2	031623 031624 0   0   0            0            000000031624 
FT2RQ	031623 031624 0   0   0            0            000000031624 
FT3	031623 031624 0   0   0            0            000000031624 
FT9	031624 031624 0   0   0            0            000000031624 
ET0	031624 031624 0   0   0            0            000000031624 
ST1A	031624 031624 0   0   0            0            000000031624 
ST9	031624 031624 0   0   0            0            000000031624 


*031624 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031624 031624 0   0   200000035412 0            0            
IT1	031624 0      0   0   200000035412 0            0            
AT3	031624 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 173
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0452

AT6	031624 035412 0   0   000000035412 0            200000035412 
FT0	031624 035412 0   0   0            0            200000035412 
FT1A	031624 035412 0   0   0            0            0            
FT9	031625 035412 0   0   0            0            0            
ET0	031625 035412 0   0   0            0            0            
ST1	031625 035412 0   0   0            0            0            
ST2	031625 035412 0   0   0            0            0            
ST9	031625 035412 0   0   0            0            0            


*031625 ADD 	0,035443
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031625 031625 0   0   270000035443 0            000010000000 
IT1	031625 0      0   0   270000035443 0            000010000000 
AT3	031625 0      0   0   000000035443 0            270000035443 
AT6	031625 035443 0   0   000000035443 0            270000035443 
FT0	031625 035443 0   0   000010000000 0            270000035443 
FT1A	031625 035443 0   0   000010000000 0            000010000000 
FT2	031625 035443 0   0   0            0            000010000000 
FT2RQ	031625 035443 0   0   0            0            000010000000 
FT3	031625 035443 0   0   0            0            000010000000 
FT9	031626 035443 0   0   0            0            000010000000 
ET0	031626 035443 0   0   000010000000 0            000010000000 
ST1	031626 035443 0   0   000010000000 0            000010000000 
ST2	031626 035443 0   0   000010000000 0            000010000000 
ST9	031626 035443 0   0   000010000000 0            000010000000 


*031626 EQV 	0,035443
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031626 031626 0   0   444000035443 0            000010000000 
IT1	031626 0      0   0   444000035443 0            000010000000 
AT3	031626 0      0   0   000000035443 0            444000035443 
AT6	031626 035443 0   0   000000035443 0            444000035443 
FT0	031626 035443 0   0   000010000000 0            444000035443 
FT1A	031626 035443 0   0   000010000000 0            000010000000 
FT2	031626 035443 0   0   0            0            000010000000 
FT2RQ	031626 035443 0   0   000010000000 0            000010000000 
FT3	031626 035443 0   0   000010000000 0            000010000000 
FT9	031627 035443 0   0   000010000000 0            000010000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 174
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0453

ET0	031627 035443 0   0   777777777777 0            000010000000 
ST1	031627 035443 0   0   777777777777 0            000010000000 
ST2	031627 035443 0   0   777777777777 0            000010000000 
ST9	031627 035443 0   0   777777777777 0            000010000000 


*031627 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031627 031627 0   0   444000035412 0            0            
IT1	031627 0      0   0   444000035412 0            0            
AT3	031627 0      0   0   000000035412 0            444000035412 
AT6	031627 035412 0   0   000000035412 0            444000035412 
FT0	031627 035412 0   0   0            0            444000035412 
FT1A	031627 035412 0   0   0            0            0            
FT2	031627 035412 0   0   0            0            0            
FT2RQ	031627 035412 0   0   777777777777 0            0            
FT3	031627 035412 0   0   777777777777 0            0            
FT9	031630 035412 0   0   777777777777 0            0            
ET0	031630 035412 0   0   0            0            0            
ST1	031630 035412 0   0   0            0            0            
ST2	031630 035412 0   0   0            0            0            
ST9	031630 035412 0   0   0            0            0            


*031630 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031630 031630 0   0   332000000000 0            0            
IT1	031630 0      0   0   332000000000 0            0            
AT3	031630 0      0   0   0            0            332000000000 
AT6	031630 0      0   0   0            0            332000000000 
FT0	031630 0      0   0   0            0            332000000000 
FT1A	031630 0      0   0   0            0            0            
FT9	031631 0      0   0   0            0            0            
ET0	031632 0      0   0   0            0            0            
ST1A	031632 0      0   0   0            0            0            
ST9	031632 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 175
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0454

*031632 JUMPA	0,031633
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031632 031632 0   0   324000031633 0            000000031633 
IT1	031632 0      0   0   324000031633 0            000000031633 
AT3	031632 0      0   0   000000031633 0            324000031633 
AT6	031632 031633 0   0   000000031633 0            324000031633 
FT1A	031632 031633 0   0   000000031633 0            000000031633 
FT2	031632 031633 0   0   0            0            000000031633 
FT2RQ	031632 031633 0   0   0            0            000000031633 
FT3	031632 031633 0   0   0            0            000000031633 
FT9	031633 031633 0   0   0            0            000000031633 
ET0	031633 031633 0   0   0            0            000000031633 
ST1A	031633 031633 0   0   0            0            000000031633 
ST9	031633 031633 0   0   0            0            000000031633 


*031633 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031633 031633 0   0   200000035412 0            0            
IT1	031633 0      0   0   200000035412 0            0            
AT3	031633 0      0   0   000000035412 0            200000035412 
AT6	031633 035412 0   0   000000035412 0            200000035412 
FT0	031633 035412 0   0   0            0            200000035412 
FT1A	031633 035412 0   0   0            0            0            
FT9	031634 035412 0   0   0            0            0            
ET0	031634 035412 0   0   0            0            0            
ST1	031634 035412 0   0   0            0            0            
ST2	031634 035412 0   0   0            0            0            
ST9	031634 035412 0   0   0            0            0            


*031634 ADD 	0,035444
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031634 031634 0   0   270000035444 0            000020000000 
IT1	031634 0      0   0   270000035444 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 176
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0455

AT3	031634 0      0   0   000000035444 0            270000035444 
AT6	031634 035444 0   0   000000035444 0            270000035444 
FT0	031634 035444 0   0   000020000000 0            270000035444 
FT1A	031634 035444 0   0   000020000000 0            000020000000 
FT2	031634 035444 0   0   0            0            000020000000 
FT2RQ	031634 035444 0   0   0            0            000020000000 
FT3	031634 035444 0   0   0            0            000020000000 
FT9	031635 035444 0   0   0            0            000020000000 
ET0	031635 035444 0   0   000020000000 0            000020000000 
ST1	031635 035444 0   0   000020000000 0            000020000000 
ST2	031635 035444 0   0   000020000000 0            000020000000 
ST9	031635 035444 0   0   000020000000 0            000020000000 


*031635 EQV 	0,035444
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031635 031635 0   0   444000035444 0            000020000000 
IT1	031635 0      0   0   444000035444 0            000020000000 
AT3	031635 0      0   0   000000035444 0            444000035444 
AT6	031635 035444 0   0   000000035444 0            444000035444 
FT0	031635 035444 0   0   000020000000 0            444000035444 
FT1A	031635 035444 0   0   000020000000 0            000020000000 
FT2	031635 035444 0   0   0            0            000020000000 
FT2RQ	031635 035444 0   0   000020000000 0            000020000000 
FT3	031635 035444 0   0   000020000000 0            000020000000 
FT9	031636 035444 0   0   000020000000 0            000020000000 
ET0	031636 035444 0   0   777777777777 0            000020000000 
ST1	031636 035444 0   0   777777777777 0            000020000000 
ST2	031636 035444 0   0   777777777777 0            000020000000 
ST9	031636 035444 0   0   777777777777 0            000020000000 


*031636 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031636 031636 0   0   444000035412 0            0            
IT1	031636 0      0   0   444000035412 0            0            
AT3	031636 0      0   0   000000035412 0            444000035412 
AT6	031636 035412 0   0   000000035412 0            444000035412 
FT0	031636 035412 0   0   0            0            444000035412 
FT1A	031636 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 177
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0456

FT2	031636 035412 0   0   0            0            0            
FT2RQ	031636 035412 0   0   777777777777 0            0            
FT3	031636 035412 0   0   777777777777 0            0            
FT9	031637 035412 0   0   777777777777 0            0            
ET0	031637 035412 0   0   0            0            0            
ST1	031637 035412 0   0   0            0            0            
ST2	031637 035412 0   0   0            0            0            
ST9	031637 035412 0   0   0            0            0            


*031637 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031637 031637 0   0   332000000000 0            0            
IT1	031637 0      0   0   332000000000 0            0            
AT3	031637 0      0   0   0            0            332000000000 
AT6	031637 0      0   0   0            0            332000000000 
FT0	031637 0      0   0   0            0            332000000000 
FT1A	031637 0      0   0   0            0            0            
FT9	031640 0      0   0   0            0            0            
ET0	031641 0      0   0   0            0            0            
ST1A	031641 0      0   0   0            0            0            
ST9	031641 0      0   0   0            0            0            


*031641 JUMPA	0,031642
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031641 031641 0   0   324000031642 0            000000031642 
IT1	031641 0      0   0   324000031642 0            000000031642 
AT3	031641 0      0   0   000000031642 0            324000031642 
AT6	031641 031642 0   0   000000031642 0            324000031642 
FT1A	031641 031642 0   0   000000031642 0            000000031642 
FT2	031641 031642 0   0   0            0            000000031642 
FT2RQ	031641 031642 0   0   0            0            000000031642 
FT3	031641 031642 0   0   0            0            000000031642 
FT9	031642 031642 0   0   0            0            000000031642 
ET0	031642 031642 0   0   0            0            000000031642 
ST1A	031642 031642 0   0   0            0            000000031642 
ST9	031642 031642 0   0   0            0            000000031642 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 178
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0457

*031642 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031642 031642 0   0   200000035412 0            0            
IT1	031642 0      0   0   200000035412 0            0            
AT3	031642 0      0   0   000000035412 0            200000035412 
AT6	031642 035412 0   0   000000035412 0            200000035412 
FT0	031642 035412 0   0   0            0            200000035412 
FT1A	031642 035412 0   0   0            0            0            
FT9	031643 035412 0   0   0            0            0            
ET0	031643 035412 0   0   0            0            0            
ST1	031643 035412 0   0   0            0            0            
ST2	031643 035412 0   0   0            0            0            
ST9	031643 035412 0   0   0            0            0            


*031643 ADD 	0,035445
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031643 031643 0   0   270000035445 0            000040000000 
IT1	031643 0      0   0   270000035445 0            000040000000 
AT3	031643 0      0   0   000000035445 0            270000035445 
AT6	031643 035445 0   0   000000035445 0            270000035445 
FT0	031643 035445 0   0   000040000000 0            270000035445 
FT1A	031643 035445 0   0   000040000000 0            000040000000 
FT2	031643 035445 0   0   0            0            000040000000 
FT2RQ	031643 035445 0   0   0            0            000040000000 
FT3	031643 035445 0   0   0            0            000040000000 
FT9	031644 035445 0   0   0            0            000040000000 
ET0	031644 035445 0   0   000040000000 0            000040000000 
ST1	031644 035445 0   0   000040000000 0            000040000000 
ST2	031644 035445 0   0   000040000000 0            000040000000 
ST9	031644 035445 0   0   000040000000 0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 179
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0458

*031644 EQV 	0,035445
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031644 031644 0   0   444000035445 0            000040000000 
IT1	031644 0      0   0   444000035445 0            000040000000 
AT3	031644 0      0   0   000000035445 0            444000035445 
AT6	031644 035445 0   0   000000035445 0            444000035445 
FT0	031644 035445 0   0   000040000000 0            444000035445 
FT1A	031644 035445 0   0   000040000000 0            000040000000 
FT2	031644 035445 0   0   0            0            000040000000 
FT2RQ	031644 035445 0   0   000040000000 0            000040000000 
FT3	031644 035445 0   0   000040000000 0            000040000000 
FT9	031645 035445 0   0   000040000000 0            000040000000 
ET0	031645 035445 0   0   777777777777 0            000040000000 
ST1	031645 035445 0   0   777777777777 0            000040000000 
ST2	031645 035445 0   0   777777777777 0            000040000000 
ST9	031645 035445 0   0   777777777777 0            000040000000 


*031645 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031645 031645 0   0   444000035412 0            0            
IT1	031645 0      0   0   444000035412 0            0            
AT3	031645 0      0   0   000000035412 0            444000035412 
AT6	031645 035412 0   0   000000035412 0            444000035412 
FT0	031645 035412 0   0   0            0            444000035412 
FT1A	031645 035412 0   0   0            0            0            
FT2	031645 035412 0   0   0            0            0            
FT2RQ	031645 035412 0   0   777777777777 0            0            
FT3	031645 035412 0   0   777777777777 0            0            
FT9	031646 035412 0   0   777777777777 0            0            
ET0	031646 035412 0   0   0            0            0            
ST1	031646 035412 0   0   0            0            0            
ST2	031646 035412 0   0   0            0            0            
ST9	031646 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 180
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0459

*031646 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031646 031646 0   0   332000000000 0            0            
IT1	031646 0      0   0   332000000000 0            0            
AT3	031646 0      0   0   0            0            332000000000 
AT6	031646 0      0   0   0            0            332000000000 
FT0	031646 0      0   0   0            0            332000000000 
FT1A	031646 0      0   0   0            0            0            
FT9	031647 0      0   0   0            0            0            
ET0	031650 0      0   0   0            0            0            
ST1A	031650 0      0   0   0            0            0            
ST9	031650 0      0   0   0            0            0            


*031650 JUMPA	0,031651
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031650 031650 0   0   324000031651 0            000000031651 
IT1	031650 0      0   0   324000031651 0            000000031651 
AT3	031650 0      0   0   000000031651 0            324000031651 
AT6	031650 031651 0   0   000000031651 0            324000031651 
FT1A	031650 031651 0   0   000000031651 0            000000031651 
FT2	031650 031651 0   0   0            0            000000031651 
FT2RQ	031650 031651 0   0   0            0            000000031651 
FT3	031650 031651 0   0   0            0            000000031651 
FT9	031651 031651 0   0   0            0            000000031651 
ET0	031651 031651 0   0   0            0            000000031651 
ST1A	031651 031651 0   0   0            0            000000031651 
ST9	031651 031651 0   0   0            0            000000031651 


*031651 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031651 031651 0   0   200000035412 0            0            
IT1	031651 0      0   0   200000035412 0            0            
AT3	031651 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 181
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0460

AT6	031651 035412 0   0   000000035412 0            200000035412 
FT0	031651 035412 0   0   0            0            200000035412 
FT1A	031651 035412 0   0   0            0            0            
FT9	031652 035412 0   0   0            0            0            
ET0	031652 035412 0   0   0            0            0            
ST1	031652 035412 0   0   0            0            0            
ST2	031652 035412 0   0   0            0            0            
ST9	031652 035412 0   0   0            0            0            


*031652 ADD 	0,035446
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031652 031652 0   0   270000035446 0            000100000000 
IT1	031652 0      0   0   270000035446 0            000100000000 
AT3	031652 0      0   0   000000035446 0            270000035446 
AT6	031652 035446 0   0   000000035446 0            270000035446 
FT0	031652 035446 0   0   000100000000 0            270000035446 
FT1A	031652 035446 0   0   000100000000 0            000100000000 
FT2	031652 035446 0   0   0            0            000100000000 
FT2RQ	031652 035446 0   0   0            0            000100000000 
FT3	031652 035446 0   0   0            0            000100000000 
FT9	031653 035446 0   0   0            0            000100000000 
ET0	031653 035446 0   0   000100000000 0            000100000000 
ST1	031653 035446 0   0   000100000000 0            000100000000 
ST2	031653 035446 0   0   000100000000 0            000100000000 
ST9	031653 035446 0   0   000100000000 0            000100000000 


*031653 EQV 	0,035446
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031653 031653 0   0   444000035446 0            000100000000 
IT1	031653 0      0   0   444000035446 0            000100000000 
AT3	031653 0      0   0   000000035446 0            444000035446 
AT6	031653 035446 0   0   000000035446 0            444000035446 
FT0	031653 035446 0   0   000100000000 0            444000035446 
FT1A	031653 035446 0   0   000100000000 0            000100000000 
FT2	031653 035446 0   0   0            0            000100000000 
FT2RQ	031653 035446 0   0   000100000000 0            000100000000 
FT3	031653 035446 0   0   000100000000 0            000100000000 
FT9	031654 035446 0   0   000100000000 0            000100000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 182
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0461

ET0	031654 035446 0   0   777777777777 0            000100000000 
ST1	031654 035446 0   0   777777777777 0            000100000000 
ST2	031654 035446 0   0   777777777777 0            000100000000 
ST9	031654 035446 0   0   777777777777 0            000100000000 


*031654 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031654 031654 0   0   444000035412 0            0            
IT1	031654 0      0   0   444000035412 0            0            
AT3	031654 0      0   0   000000035412 0            444000035412 
AT6	031654 035412 0   0   000000035412 0            444000035412 
FT0	031654 035412 0   0   0            0            444000035412 
FT1A	031654 035412 0   0   0            0            0            
FT2	031654 035412 0   0   0            0            0            
FT2RQ	031654 035412 0   0   777777777777 0            0            
FT3	031654 035412 0   0   777777777777 0            0            
FT9	031655 035412 0   0   777777777777 0            0            
ET0	031655 035412 0   0   0            0            0            
ST1	031655 035412 0   0   0            0            0            
ST2	031655 035412 0   0   0            0            0            
ST9	031655 035412 0   0   0            0            0            


*031655 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031655 031655 0   0   332000000000 0            0            
IT1	031655 0      0   0   332000000000 0            0            
AT3	031655 0      0   0   0            0            332000000000 
AT6	031655 0      0   0   0            0            332000000000 
FT0	031655 0      0   0   0            0            332000000000 
FT1A	031655 0      0   0   0            0            0            
FT9	031656 0      0   0   0            0            0            
ET0	031657 0      0   0   0            0            0            
ST1A	031657 0      0   0   0            0            0            
ST9	031657 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 183
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0462

*031657 JUMPA	0,031660
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031657 031657 0   0   324000031660 0            000000031660 
IT1	031657 0      0   0   324000031660 0            000000031660 
AT3	031657 0      0   0   000000031660 0            324000031660 
AT6	031657 031660 0   0   000000031660 0            324000031660 
FT1A	031657 031660 0   0   000000031660 0            000000031660 
FT2	031657 031660 0   0   0            0            000000031660 
FT2RQ	031657 031660 0   0   0            0            000000031660 
FT3	031657 031660 0   0   0            0            000000031660 
FT9	031660 031660 0   0   0            0            000000031660 
ET0	031660 031660 0   0   0            0            000000031660 
ST1A	031660 031660 0   0   0            0            000000031660 
ST9	031660 031660 0   0   0            0            000000031660 


*031660 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031660 031660 0   0   200000035412 0            0            
IT1	031660 0      0   0   200000035412 0            0            
AT3	031660 0      0   0   000000035412 0            200000035412 
AT6	031660 035412 0   0   000000035412 0            200000035412 
FT0	031660 035412 0   0   0            0            200000035412 
FT1A	031660 035412 0   0   0            0            0            
FT9	031661 035412 0   0   0            0            0            
ET0	031661 035412 0   0   0            0            0            
ST1	031661 035412 0   0   0            0            0            
ST2	031661 035412 0   0   0            0            0            
ST9	031661 035412 0   0   0            0            0            


*031661 ADD 	0,035447
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031661 031661 0   0   270000035447 0            000200000000 
IT1	031661 0      0   0   270000035447 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 184
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0463

AT3	031661 0      0   0   000000035447 0            270000035447 
AT6	031661 035447 0   0   000000035447 0            270000035447 
FT0	031661 035447 0   0   000200000000 0            270000035447 
FT1A	031661 035447 0   0   000200000000 0            000200000000 
FT2	031661 035447 0   0   0            0            000200000000 
FT2RQ	031661 035447 0   0   0            0            000200000000 
FT3	031661 035447 0   0   0            0            000200000000 
FT9	031662 035447 0   0   0            0            000200000000 
ET0	031662 035447 0   0   000200000000 0            000200000000 
ST1	031662 035447 0   0   000200000000 0            000200000000 
ST2	031662 035447 0   0   000200000000 0            000200000000 
ST9	031662 035447 0   0   000200000000 0            000200000000 


*031662 EQV 	0,035447
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031662 031662 0   0   444000035447 0            000200000000 
IT1	031662 0      0   0   444000035447 0            000200000000 
AT3	031662 0      0   0   000000035447 0            444000035447 
AT6	031662 035447 0   0   000000035447 0            444000035447 
FT0	031662 035447 0   0   000200000000 0            444000035447 
FT1A	031662 035447 0   0   000200000000 0            000200000000 
FT2	031662 035447 0   0   0            0            000200000000 
FT2RQ	031662 035447 0   0   000200000000 0            000200000000 
FT3	031662 035447 0   0   000200000000 0            000200000000 
FT9	031663 035447 0   0   000200000000 0            000200000000 
ET0	031663 035447 0   0   777777777777 0            000200000000 
ST1	031663 035447 0   0   777777777777 0            000200000000 
ST2	031663 035447 0   0   777777777777 0            000200000000 
ST9	031663 035447 0   0   777777777777 0            000200000000 


*031663 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031663 031663 0   0   444000035412 0            0            
IT1	031663 0      0   0   444000035412 0            0            
AT3	031663 0      0   0   000000035412 0            444000035412 
AT6	031663 035412 0   0   000000035412 0            444000035412 
FT0	031663 035412 0   0   0            0            444000035412 
FT1A	031663 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 185
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0464

FT2	031663 035412 0   0   0            0            0            
FT2RQ	031663 035412 0   0   777777777777 0            0            
FT3	031663 035412 0   0   777777777777 0            0            
FT9	031664 035412 0   0   777777777777 0            0            
ET0	031664 035412 0   0   0            0            0            
ST1	031664 035412 0   0   0            0            0            
ST2	031664 035412 0   0   0            0            0            
ST9	031664 035412 0   0   0            0            0            


*031664 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031664 031664 0   0   332000000000 0            0            
IT1	031664 0      0   0   332000000000 0            0            
AT3	031664 0      0   0   0            0            332000000000 
AT6	031664 0      0   0   0            0            332000000000 
FT0	031664 0      0   0   0            0            332000000000 
FT1A	031664 0      0   0   0            0            0            
FT9	031665 0      0   0   0            0            0            
ET0	031666 0      0   0   0            0            0            
ST1A	031666 0      0   0   0            0            0            
ST9	031666 0      0   0   0            0            0            


*031666 JUMPA	0,031667
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031666 031666 0   0   324000031667 0            000000031667 
IT1	031666 0      0   0   324000031667 0            000000031667 
AT3	031666 0      0   0   000000031667 0            324000031667 
AT6	031666 031667 0   0   000000031667 0            324000031667 
FT1A	031666 031667 0   0   000000031667 0            000000031667 
FT2	031666 031667 0   0   0            0            000000031667 
FT2RQ	031666 031667 0   0   0            0            000000031667 
FT3	031666 031667 0   0   0            0            000000031667 
FT9	031667 031667 0   0   0            0            000000031667 
ET0	031667 031667 0   0   0            0            000000031667 
ST1A	031667 031667 0   0   0            0            000000031667 
ST9	031667 031667 0   0   0            0            000000031667 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 186
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0465

*031667 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031667 031667 0   0   200000035412 0            0            
IT1	031667 0      0   0   200000035412 0            0            
AT3	031667 0      0   0   000000035412 0            200000035412 
AT6	031667 035412 0   0   000000035412 0            200000035412 
FT0	031667 035412 0   0   0            0            200000035412 
FT1A	031667 035412 0   0   0            0            0            
FT9	031670 035412 0   0   0            0            0            
ET0	031670 035412 0   0   0            0            0            
ST1	031670 035412 0   0   0            0            0            
ST2	031670 035412 0   0   0            0            0            
ST9	031670 035412 0   0   0            0            0            


*031670 ADD 	0,035450
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031670 031670 0   0   270000035450 0            000400000000 
IT1	031670 0      0   0   270000035450 0            000400000000 
AT3	031670 0      0   0   000000035450 0            270000035450 
AT6	031670 035450 0   0   000000035450 0            270000035450 
FT0	031670 035450 0   0   000400000000 0            270000035450 
FT1A	031670 035450 0   0   000400000000 0            000400000000 
FT2	031670 035450 0   0   0            0            000400000000 
FT2RQ	031670 035450 0   0   0            0            000400000000 
FT3	031670 035450 0   0   0            0            000400000000 
FT9	031671 035450 0   0   0            0            000400000000 
ET0	031671 035450 0   0   000400000000 0            000400000000 
ST1	031671 035450 0   0   000400000000 0            000400000000 
ST2	031671 035450 0   0   000400000000 0            000400000000 
ST9	031671 035450 0   0   000400000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 187
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0466

*031671 EQV 	0,035450
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031671 031671 0   0   444000035450 0            000400000000 
IT1	031671 0      0   0   444000035450 0            000400000000 
AT3	031671 0      0   0   000000035450 0            444000035450 
AT6	031671 035450 0   0   000000035450 0            444000035450 
FT0	031671 035450 0   0   000400000000 0            444000035450 
FT1A	031671 035450 0   0   000400000000 0            000400000000 
FT2	031671 035450 0   0   0            0            000400000000 
FT2RQ	031671 035450 0   0   000400000000 0            000400000000 
FT3	031671 035450 0   0   000400000000 0            000400000000 
FT9	031672 035450 0   0   000400000000 0            000400000000 
ET0	031672 035450 0   0   777777777777 0            000400000000 
ST1	031672 035450 0   0   777777777777 0            000400000000 
ST2	031672 035450 0   0   777777777777 0            000400000000 
ST9	031672 035450 0   0   777777777777 0            000400000000 


*031672 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031672 031672 0   0   444000035412 0            0            
IT1	031672 0      0   0   444000035412 0            0            
AT3	031672 0      0   0   000000035412 0            444000035412 
AT6	031672 035412 0   0   000000035412 0            444000035412 
FT0	031672 035412 0   0   0            0            444000035412 
FT1A	031672 035412 0   0   0            0            0            
FT2	031672 035412 0   0   0            0            0            
FT2RQ	031672 035412 0   0   777777777777 0            0            
FT3	031672 035412 0   0   777777777777 0            0            
FT9	031673 035412 0   0   777777777777 0            0            
ET0	031673 035412 0   0   0            0            0            
ST1	031673 035412 0   0   0            0            0            
ST2	031673 035412 0   0   0            0            0            
ST9	031673 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 188
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0467

*031673 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031673 031673 0   0   332000000000 0            0            
IT1	031673 0      0   0   332000000000 0            0            
AT3	031673 0      0   0   0            0            332000000000 
AT6	031673 0      0   0   0            0            332000000000 
FT0	031673 0      0   0   0            0            332000000000 
FT1A	031673 0      0   0   0            0            0            
FT9	031674 0      0   0   0            0            0            
ET0	031675 0      0   0   0            0            0            
ST1A	031675 0      0   0   0            0            0            
ST9	031675 0      0   0   0            0            0            


*031675 JUMPA	0,031676
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031675 031675 0   0   324000031676 0            000000031676 
IT1	031675 0      0   0   324000031676 0            000000031676 
AT3	031675 0      0   0   000000031676 0            324000031676 
AT6	031675 031676 0   0   000000031676 0            324000031676 
FT1A	031675 031676 0   0   000000031676 0            000000031676 
FT2	031675 031676 0   0   0            0            000000031676 
FT2RQ	031675 031676 0   0   0            0            000000031676 
FT3	031675 031676 0   0   0            0            000000031676 
FT9	031676 031676 0   0   0            0            000000031676 
ET0	031676 031676 0   0   0            0            000000031676 
ST1A	031676 031676 0   0   0            0            000000031676 
ST9	031676 031676 0   0   0            0            000000031676 


*031676 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031676 031676 0   0   200000035412 0            0            
IT1	031676 0      0   0   200000035412 0            0            
AT3	031676 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 189
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0468

AT6	031676 035412 0   0   000000035412 0            200000035412 
FT0	031676 035412 0   0   0            0            200000035412 
FT1A	031676 035412 0   0   0            0            0            
FT9	031677 035412 0   0   0            0            0            
ET0	031677 035412 0   0   0            0            0            
ST1	031677 035412 0   0   0            0            0            
ST2	031677 035412 0   0   0            0            0            
ST9	031677 035412 0   0   0            0            0            


*031677 ADD 	0,035451
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031677 031677 0   0   270000035451 0            001000000000 
IT1	031677 0      0   0   270000035451 0            001000000000 
AT3	031677 0      0   0   000000035451 0            270000035451 
AT6	031677 035451 0   0   000000035451 0            270000035451 
FT0	031677 035451 0   0   001000000000 0            270000035451 
FT1A	031677 035451 0   0   001000000000 0            001000000000 
FT2	031677 035451 0   0   0            0            001000000000 
FT2RQ	031677 035451 0   0   0            0            001000000000 
FT3	031677 035451 0   0   0            0            001000000000 
FT9	0      035451 0   0   0            0            001000000000 
ET0	0      035451 0   0   001000000000 0            001000000000 
ST1	0      035451 0   0   001000000000 0            001000000000 
ST2	0      035451 0   0   001000000000 0            001000000000 
ST9	0      035451 0   0   001000000000 0            001000000000 


*031700 EQV 	0,035451
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035451 0            001000000000 
IT1	0      0      0   0   444000035451 0            001000000000 
AT3	0      0      0   0   000000035451 0            444000035451 
AT6	0      035451 0   0   000000035451 0            444000035451 
FT0	0      035451 0   0   001000000000 0            444000035451 
FT1A	0      035451 0   0   001000000000 0            001000000000 
FT2	0      035451 0   0   0            0            001000000000 
FT2RQ	0      035451 0   0   001000000000 0            001000000000 
FT3	0      035451 0   0   001000000000 0            001000000000 
FT9	031701 035451 0   0   001000000000 0            001000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 190
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0469

ET0	031701 035451 0   0   777777777777 0            001000000000 
ST1	031701 035451 0   0   777777777777 0            001000000000 
ST2	031701 035451 0   0   777777777777 0            001000000000 
ST9	031701 035451 0   0   777777777777 0            001000000000 


*031701 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031701 031701 0   0   444000035412 0            0            
IT1	031701 0      0   0   444000035412 0            0            
AT3	031701 0      0   0   000000035412 0            444000035412 
AT6	031701 035412 0   0   000000035412 0            444000035412 
FT0	031701 035412 0   0   0            0            444000035412 
FT1A	031701 035412 0   0   0            0            0            
FT2	031701 035412 0   0   0            0            0            
FT2RQ	031701 035412 0   0   777777777777 0            0            
FT3	031701 035412 0   0   777777777777 0            0            
FT9	031702 035412 0   0   777777777777 0            0            
ET0	031702 035412 0   0   0            0            0            
ST1	031702 035412 0   0   0            0            0            
ST2	031702 035412 0   0   0            0            0            
ST9	031702 035412 0   0   0            0            0            


*031702 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031702 031702 0   0   332000000000 0            0            
IT1	031702 0      0   0   332000000000 0            0            
AT3	031702 0      0   0   0            0            332000000000 
AT6	031702 0      0   0   0            0            332000000000 
FT0	031702 0      0   0   0            0            332000000000 
FT1A	031702 0      0   0   0            0            0            
FT9	031703 0      0   0   0            0            0            
ET0	031704 0      0   0   0            0            0            
ST1A	031704 0      0   0   0            0            0            
ST9	031704 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 191
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0470

*031704 JUMPA	0,031705
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031704 031704 0   0   324000031705 0            000000031705 
IT1	031704 0      0   0   324000031705 0            000000031705 
AT3	031704 0      0   0   000000031705 0            324000031705 
AT6	031704 031705 0   0   000000031705 0            324000031705 
FT1A	031704 031705 0   0   000000031705 0            000000031705 
FT2	031704 031705 0   0   0            0            000000031705 
FT2RQ	031704 031705 0   0   0            0            000000031705 
FT3	031704 031705 0   0   0            0            000000031705 
FT9	031705 031705 0   0   0            0            000000031705 
ET0	031705 031705 0   0   0            0            000000031705 
ST1A	031705 031705 0   0   0            0            000000031705 
ST9	031705 031705 0   0   0            0            000000031705 


*031705 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031705 031705 0   0   200000035412 0            0            
IT1	031705 0      0   0   200000035412 0            0            
AT3	031705 0      0   0   000000035412 0            200000035412 
AT6	031705 035412 0   0   000000035412 0            200000035412 
FT0	031705 035412 0   0   0            0            200000035412 
FT1A	031705 035412 0   0   0            0            0            
FT9	031706 035412 0   0   0            0            0            
ET0	031706 035412 0   0   0            0            0            
ST1	031706 035412 0   0   0            0            0            
ST2	031706 035412 0   0   0            0            0            
ST9	031706 035412 0   0   0            0            0            


*031706 ADD 	0,035452
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031706 031706 0   0   270000035452 0            002000000000 
IT1	031706 0      0   0   270000035452 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 192
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0471

AT3	031706 0      0   0   000000035452 0            270000035452 
AT6	031706 035452 0   0   000000035452 0            270000035452 
FT0	031706 035452 0   0   002000000000 0            270000035452 
FT1A	031706 035452 0   0   002000000000 0            002000000000 
FT2	031706 035452 0   0   0            0            002000000000 
FT2RQ	031706 035452 0   0   0            0            002000000000 
FT3	031706 035452 0   0   0            0            002000000000 
FT9	031707 035452 0   0   0            0            002000000000 
ET0	031707 035452 0   0   002000000000 0            002000000000 
ST1	031707 035452 0   0   002000000000 0            002000000000 
ST2	031707 035452 0   0   002000000000 0            002000000000 
ST9	031707 035452 0   0   002000000000 0            002000000000 


*031707 EQV 	0,035452
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031707 031707 0   0   444000035452 0            002000000000 
IT1	031707 0      0   0   444000035452 0            002000000000 
AT3	031707 0      0   0   000000035452 0            444000035452 
AT6	031707 035452 0   0   000000035452 0            444000035452 
FT0	031707 035452 0   0   002000000000 0            444000035452 
FT1A	031707 035452 0   0   002000000000 0            002000000000 
FT2	031707 035452 0   0   0            0            002000000000 
FT2RQ	031707 035452 0   0   002000000000 0            002000000000 
FT3	031707 035452 0   0   002000000000 0            002000000000 
FT9	031710 035452 0   0   002000000000 0            002000000000 
ET0	031710 035452 0   0   777777777777 0            002000000000 
ST1	031710 035452 0   0   777777777777 0            002000000000 
ST2	031710 035452 0   0   777777777777 0            002000000000 
ST9	031710 035452 0   0   777777777777 0            002000000000 


*031710 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031710 031710 0   0   444000035412 0            0            
IT1	031710 0      0   0   444000035412 0            0            
AT3	031710 0      0   0   000000035412 0            444000035412 
AT6	031710 035412 0   0   000000035412 0            444000035412 
FT0	031710 035412 0   0   0            0            444000035412 
FT1A	031710 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 193
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0472

FT2	031710 035412 0   0   0            0            0            
FT2RQ	031710 035412 0   0   777777777777 0            0            
FT3	031710 035412 0   0   777777777777 0            0            
FT9	031711 035412 0   0   777777777777 0            0            
ET0	031711 035412 0   0   0            0            0            
ST1	031711 035412 0   0   0            0            0            
ST2	031711 035412 0   0   0            0            0            
ST9	031711 035412 0   0   0            0            0            


*031711 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031711 031711 0   0   332000000000 0            0            
IT1	031711 0      0   0   332000000000 0            0            
AT3	031711 0      0   0   0            0            332000000000 
AT6	031711 0      0   0   0            0            332000000000 
FT0	031711 0      0   0   0            0            332000000000 
FT1A	031711 0      0   0   0            0            0            
FT9	031712 0      0   0   0            0            0            
ET0	031713 0      0   0   0            0            0            
ST1A	031713 0      0   0   0            0            0            
ST9	031713 0      0   0   0            0            0            


*031713 JUMPA	0,031714
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031713 031713 0   0   324000031714 0            000000031714 
IT1	031713 0      0   0   324000031714 0            000000031714 
AT3	031713 0      0   0   000000031714 0            324000031714 
AT6	031713 031714 0   0   000000031714 0            324000031714 
FT1A	031713 031714 0   0   000000031714 0            000000031714 
FT2	031713 031714 0   0   0            0            000000031714 
FT2RQ	031713 031714 0   0   0            0            000000031714 
FT3	031713 031714 0   0   0            0            000000031714 
FT9	031714 031714 0   0   0            0            000000031714 
ET0	031714 031714 0   0   0            0            000000031714 
ST1A	031714 031714 0   0   0            0            000000031714 
ST9	031714 031714 0   0   0            0            000000031714 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 194
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0473

*031714 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031714 031714 0   0   200000035412 0            0            
IT1	031714 0      0   0   200000035412 0            0            
AT3	031714 0      0   0   000000035412 0            200000035412 
AT6	031714 035412 0   0   000000035412 0            200000035412 
FT0	031714 035412 0   0   0            0            200000035412 
FT1A	031714 035412 0   0   0            0            0            
FT9	031715 035412 0   0   0            0            0            
ET0	031715 035412 0   0   0            0            0            
ST1	031715 035412 0   0   0            0            0            
ST2	031715 035412 0   0   0            0            0            
ST9	031715 035412 0   0   0            0            0            


*031715 ADD 	0,035453
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031715 031715 0   0   270000035453 0            004000000000 
IT1	031715 0      0   0   270000035453 0            004000000000 
AT3	031715 0      0   0   000000035453 0            270000035453 
AT6	031715 035453 0   0   000000035453 0            270000035453 
FT0	031715 035453 0   0   004000000000 0            270000035453 
FT1A	031715 035453 0   0   004000000000 0            004000000000 
FT2	031715 035453 0   0   0            0            004000000000 
FT2RQ	031715 035453 0   0   0            0            004000000000 
FT3	031715 035453 0   0   0            0            004000000000 
FT9	031716 035453 0   0   0            0            004000000000 
ET0	031716 035453 0   0   004000000000 0            004000000000 
ST1	031716 035453 0   0   004000000000 0            004000000000 
ST2	031716 035453 0   0   004000000000 0            004000000000 
ST9	031716 035453 0   0   004000000000 0            004000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 195
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0474

*031716 EQV 	0,035453
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031716 031716 0   0   444000035453 0            004000000000 
IT1	031716 0      0   0   444000035453 0            004000000000 
AT3	031716 0      0   0   000000035453 0            444000035453 
AT6	031716 035453 0   0   000000035453 0            444000035453 
FT0	031716 035453 0   0   004000000000 0            444000035453 
FT1A	031716 035453 0   0   004000000000 0            004000000000 
FT2	031716 035453 0   0   0            0            004000000000 
FT2RQ	031716 035453 0   0   004000000000 0            004000000000 
FT3	031716 035453 0   0   004000000000 0            004000000000 
FT9	031717 035453 0   0   004000000000 0            004000000000 
ET0	031717 035453 0   0   777777777777 0            004000000000 
ST1	031717 035453 0   0   777777777777 0            004000000000 
ST2	031717 035453 0   0   777777777777 0            004000000000 
ST9	031717 035453 0   0   777777777777 0            004000000000 


*031717 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031717 031717 0   0   444000035412 0            0            
IT1	031717 0      0   0   444000035412 0            0            
AT3	031717 0      0   0   000000035412 0            444000035412 
AT6	031717 035412 0   0   000000035412 0            444000035412 
FT0	031717 035412 0   0   0            0            444000035412 
FT1A	031717 035412 0   0   0            0            0            
FT2	031717 035412 0   0   0            0            0            
FT2RQ	031717 035412 0   0   777777777777 0            0            
FT3	031717 035412 0   0   777777777777 0            0            
FT9	031720 035412 0   0   777777777777 0            0            
ET0	031720 035412 0   0   0            0            0            
ST1	031720 035412 0   0   0            0            0            
ST2	031720 035412 0   0   0            0            0            
ST9	031720 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 196
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0475

*031720 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031720 031720 0   0   332000000000 0            0            
IT1	031720 0      0   0   332000000000 0            0            
AT3	031720 0      0   0   0            0            332000000000 
AT6	031720 0      0   0   0            0            332000000000 
FT0	031720 0      0   0   0            0            332000000000 
FT1A	031720 0      0   0   0            0            0            
FT9	031721 0      0   0   0            0            0            
ET0	031722 0      0   0   0            0            0            
ST1A	031722 0      0   0   0            0            0            
ST9	031722 0      0   0   0            0            0            


*031722 JUMPA	0,031723
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031722 031722 0   0   324000031723 0            000000031723 
IT1	031722 0      0   0   324000031723 0            000000031723 
AT3	031722 0      0   0   000000031723 0            324000031723 
AT6	031722 031723 0   0   000000031723 0            324000031723 
FT1A	031722 031723 0   0   000000031723 0            000000031723 
FT2	031722 031723 0   0   0            0            000000031723 
FT2RQ	031722 031723 0   0   0            0            000000031723 
FT3	031722 031723 0   0   0            0            000000031723 
FT9	031723 031723 0   0   0            0            000000031723 
ET0	031723 031723 0   0   0            0            000000031723 
ST1A	031723 031723 0   0   0            0            000000031723 
ST9	031723 031723 0   0   0            0            000000031723 


*031723 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031723 031723 0   0   200000035412 0            0            
IT1	031723 0      0   0   200000035412 0            0            
AT3	031723 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 197
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0476

AT6	031723 035412 0   0   000000035412 0            200000035412 
FT0	031723 035412 0   0   0            0            200000035412 
FT1A	031723 035412 0   0   0            0            0            
FT9	031724 035412 0   0   0            0            0            
ET0	031724 035412 0   0   0            0            0            
ST1	031724 035412 0   0   0            0            0            
ST2	031724 035412 0   0   0            0            0            
ST9	031724 035412 0   0   0            0            0            


*031724 ADD 	0,035454
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031724 031724 0   0   270000035454 0            010000000000 
IT1	031724 0      0   0   270000035454 0            010000000000 
AT3	031724 0      0   0   000000035454 0            270000035454 
AT6	031724 035454 0   0   000000035454 0            270000035454 
FT0	031724 035454 0   0   010000000000 0            270000035454 
FT1A	031724 035454 0   0   010000000000 0            010000000000 
FT2	031724 035454 0   0   0            0            010000000000 
FT2RQ	031724 035454 0   0   0            0            010000000000 
FT3	031724 035454 0   0   0            0            010000000000 
FT9	031725 035454 0   0   0            0            010000000000 
ET0	031725 035454 0   0   010000000000 0            010000000000 
ST1	031725 035454 0   0   010000000000 0            010000000000 
ST2	031725 035454 0   0   010000000000 0            010000000000 
ST9	031725 035454 0   0   010000000000 0            010000000000 


*031725 EQV 	0,035454
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031725 031725 0   0   444000035454 0            010000000000 
IT1	031725 0      0   0   444000035454 0            010000000000 
AT3	031725 0      0   0   000000035454 0            444000035454 
AT6	031725 035454 0   0   000000035454 0            444000035454 
FT0	031725 035454 0   0   010000000000 0            444000035454 
FT1A	031725 035454 0   0   010000000000 0            010000000000 
FT2	031725 035454 0   0   0            0            010000000000 
FT2RQ	031725 035454 0   0   010000000000 0            010000000000 
FT3	031725 035454 0   0   010000000000 0            010000000000 
FT9	031726 035454 0   0   010000000000 0            010000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 198
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0477

ET0	031726 035454 0   0   777777777777 0            010000000000 
ST1	031726 035454 0   0   777777777777 0            010000000000 
ST2	031726 035454 0   0   777777777777 0            010000000000 
ST9	031726 035454 0   0   777777777777 0            010000000000 


*031726 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031726 031726 0   0   444000035412 0            0            
IT1	031726 0      0   0   444000035412 0            0            
AT3	031726 0      0   0   000000035412 0            444000035412 
AT6	031726 035412 0   0   000000035412 0            444000035412 
FT0	031726 035412 0   0   0            0            444000035412 
FT1A	031726 035412 0   0   0            0            0            
FT2	031726 035412 0   0   0            0            0            
FT2RQ	031726 035412 0   0   777777777777 0            0            
FT3	031726 035412 0   0   777777777777 0            0            
FT9	031727 035412 0   0   777777777777 0            0            
ET0	031727 035412 0   0   0            0            0            
ST1	031727 035412 0   0   0            0            0            
ST2	031727 035412 0   0   0            0            0            
ST9	031727 035412 0   0   0            0            0            


*031727 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031727 031727 0   0   332000000000 0            0            
IT1	031727 0      0   0   332000000000 0            0            
AT3	031727 0      0   0   0            0            332000000000 
AT6	031727 0      0   0   0            0            332000000000 
FT0	031727 0      0   0   0            0            332000000000 
FT1A	031727 0      0   0   0            0            0            
FT9	031730 0      0   0   0            0            0            
ET0	031731 0      0   0   0            0            0            
ST1A	031731 0      0   0   0            0            0            
ST9	031731 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 199
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0478

*031731 JUMPA	0,031732
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031731 031731 0   0   324000031732 0            000000031732 
IT1	031731 0      0   0   324000031732 0            000000031732 
AT3	031731 0      0   0   000000031732 0            324000031732 
AT6	031731 031732 0   0   000000031732 0            324000031732 
FT1A	031731 031732 0   0   000000031732 0            000000031732 
FT2	031731 031732 0   0   0            0            000000031732 
FT2RQ	031731 031732 0   0   0            0            000000031732 
FT3	031731 031732 0   0   0            0            000000031732 
FT9	031732 031732 0   0   0            0            000000031732 
ET0	031732 031732 0   0   0            0            000000031732 
ST1A	031732 031732 0   0   0            0            000000031732 
ST9	031732 031732 0   0   0            0            000000031732 


*031732 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031732 031732 0   0   200000035412 0            0            
IT1	031732 0      0   0   200000035412 0            0            
AT3	031732 0      0   0   000000035412 0            200000035412 
AT6	031732 035412 0   0   000000035412 0            200000035412 
FT0	031732 035412 0   0   0            0            200000035412 
FT1A	031732 035412 0   0   0            0            0            
FT9	031733 035412 0   0   0            0            0            
ET0	031733 035412 0   0   0            0            0            
ST1	031733 035412 0   0   0            0            0            
ST2	031733 035412 0   0   0            0            0            
ST9	031733 035412 0   0   0            0            0            


*031733 ADD 	0,035455
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031733 031733 0   0   270000035455 0            020000000000 
IT1	031733 0      0   0   270000035455 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 200
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0479

AT3	031733 0      0   0   000000035455 0            270000035455 
AT6	031733 035455 0   0   000000035455 0            270000035455 
FT0	031733 035455 0   0   020000000000 0            270000035455 
FT1A	031733 035455 0   0   020000000000 0            020000000000 
FT2	031733 035455 0   0   0            0            020000000000 
FT2RQ	031733 035455 0   0   0            0            020000000000 
FT3	031733 035455 0   0   0            0            020000000000 
FT9	031734 035455 0   0   0            0            020000000000 
ET0	031734 035455 0   0   020000000000 0            020000000000 
ST1	031734 035455 0   0   020000000000 0            020000000000 
ST2	031734 035455 0   0   020000000000 0            020000000000 
ST9	031734 035455 0   0   020000000000 0            020000000000 


*031734 EQV 	0,035455
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031734 031734 0   0   444000035455 0            020000000000 
IT1	031734 0      0   0   444000035455 0            020000000000 
AT3	031734 0      0   0   000000035455 0            444000035455 
AT6	031734 035455 0   0   000000035455 0            444000035455 
FT0	031734 035455 0   0   020000000000 0            444000035455 
FT1A	031734 035455 0   0   020000000000 0            020000000000 
FT2	031734 035455 0   0   0            0            020000000000 
FT2RQ	031734 035455 0   0   020000000000 0            020000000000 
FT3	031734 035455 0   0   020000000000 0            020000000000 
FT9	031735 035455 0   0   020000000000 0            020000000000 
ET0	031735 035455 0   0   777777777777 0            020000000000 
ST1	031735 035455 0   0   777777777777 0            020000000000 
ST2	031735 035455 0   0   777777777777 0            020000000000 
ST9	031735 035455 0   0   777777777777 0            020000000000 


*031735 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031735 031735 0   0   444000035412 0            0            
IT1	031735 0      0   0   444000035412 0            0            
AT3	031735 0      0   0   000000035412 0            444000035412 
AT6	031735 035412 0   0   000000035412 0            444000035412 
FT0	031735 035412 0   0   0            0            444000035412 
FT1A	031735 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 201
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0480

FT2	031735 035412 0   0   0            0            0            
FT2RQ	031735 035412 0   0   777777777777 0            0            
FT3	031735 035412 0   0   777777777777 0            0            
FT9	031736 035412 0   0   777777777777 0            0            
ET0	031736 035412 0   0   0            0            0            
ST1	031736 035412 0   0   0            0            0            
ST2	031736 035412 0   0   0            0            0            
ST9	031736 035412 0   0   0            0            0            


*031736 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031736 031736 0   0   332000000000 0            0            
IT1	031736 0      0   0   332000000000 0            0            
AT3	031736 0      0   0   0            0            332000000000 
AT6	031736 0      0   0   0            0            332000000000 
FT0	031736 0      0   0   0            0            332000000000 
FT1A	031736 0      0   0   0            0            0            
FT9	031737 0      0   0   0            0            0            
ET0	031740 0      0   0   0            0            0            
ST1A	031740 0      0   0   0            0            0            
ST9	031740 0      0   0   0            0            0            


*031740 JUMPA	0,031741
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031740 031740 0   0   324000031741 0            000000031741 
IT1	031740 0      0   0   324000031741 0            000000031741 
AT3	031740 0      0   0   000000031741 0            324000031741 
AT6	031740 031741 0   0   000000031741 0            324000031741 
FT1A	031740 031741 0   0   000000031741 0            000000031741 
FT2	031740 031741 0   0   0            0            000000031741 
FT2RQ	031740 031741 0   0   0            0            000000031741 
FT3	031740 031741 0   0   0            0            000000031741 
FT9	031741 031741 0   0   0            0            000000031741 
ET0	031741 031741 0   0   0            0            000000031741 
ST1A	031741 031741 0   0   0            0            000000031741 
ST9	031741 031741 0   0   0            0            000000031741 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 202
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0481

*031741 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031741 031741 0   0   200000035412 0            0            
IT1	031741 0      0   0   200000035412 0            0            
AT3	031741 0      0   0   000000035412 0            200000035412 
AT6	031741 035412 0   0   000000035412 0            200000035412 
FT0	031741 035412 0   0   0            0            200000035412 
FT1A	031741 035412 0   0   0            0            0            
FT9	031742 035412 0   0   0            0            0            
ET0	031742 035412 0   0   0            0            0            
ST1	031742 035412 0   0   0            0            0            
ST2	031742 035412 0   0   0            0            0            
ST9	031742 035412 0   0   0            0            0            


*031742 ADD 	0,035456
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031742 031742 0   0   270000035456 0            040000000000 
IT1	031742 0      0   0   270000035456 0            040000000000 
AT3	031742 0      0   0   000000035456 0            270000035456 
AT6	031742 035456 0   0   000000035456 0            270000035456 
FT0	031742 035456 0   0   040000000000 0            270000035456 
FT1A	031742 035456 0   0   040000000000 0            040000000000 
FT2	031742 035456 0   0   0            0            040000000000 
FT2RQ	031742 035456 0   0   0            0            040000000000 
FT3	031742 035456 0   0   0            0            040000000000 
FT9	031743 035456 0   0   0            0            040000000000 
ET0	031743 035456 0   0   040000000000 0            040000000000 
ST1	031743 035456 0   0   040000000000 0            040000000000 
ST2	031743 035456 0   0   040000000000 0            040000000000 
ST9	031743 035456 0   0   040000000000 0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 203
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0482

*031743 EQV 	0,035456
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031743 031743 0   0   444000035456 0            040000000000 
IT1	031743 0      0   0   444000035456 0            040000000000 
AT3	031743 0      0   0   000000035456 0            444000035456 
AT6	031743 035456 0   0   000000035456 0            444000035456 
FT0	031743 035456 0   0   040000000000 0            444000035456 
FT1A	031743 035456 0   0   040000000000 0            040000000000 
FT2	031743 035456 0   0   0            0            040000000000 
FT2RQ	031743 035456 0   0   040000000000 0            040000000000 
FT3	031743 035456 0   0   040000000000 0            040000000000 
FT9	031744 035456 0   0   040000000000 0            040000000000 
ET0	031744 035456 0   0   777777777777 0            040000000000 
ST1	031744 035456 0   0   777777777777 0            040000000000 
ST2	031744 035456 0   0   777777777777 0            040000000000 
ST9	031744 035456 0   0   777777777777 0            040000000000 


*031744 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031744 031744 0   0   444000035412 0            0            
IT1	031744 0      0   0   444000035412 0            0            
AT3	031744 0      0   0   000000035412 0            444000035412 
AT6	031744 035412 0   0   000000035412 0            444000035412 
FT0	031744 035412 0   0   0            0            444000035412 
FT1A	031744 035412 0   0   0            0            0            
FT2	031744 035412 0   0   0            0            0            
FT2RQ	031744 035412 0   0   777777777777 0            0            
FT3	031744 035412 0   0   777777777777 0            0            
FT9	031745 035412 0   0   777777777777 0            0            
ET0	031745 035412 0   0   0            0            0            
ST1	031745 035412 0   0   0            0            0            
ST2	031745 035412 0   0   0            0            0            
ST9	031745 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 204
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0483

*031745 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031745 031745 0   0   332000000000 0            0            
IT1	031745 0      0   0   332000000000 0            0            
AT3	031745 0      0   0   0            0            332000000000 
AT6	031745 0      0   0   0            0            332000000000 
FT0	031745 0      0   0   0            0            332000000000 
FT1A	031745 0      0   0   0            0            0            
FT9	031746 0      0   0   0            0            0            
ET0	031747 0      0   0   0            0            0            
ST1A	031747 0      0   0   0            0            0            
ST9	031747 0      0   0   0            0            0            


*031747 JUMPA	0,031750
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031747 031747 0   0   324000031750 0            000000031750 
IT1	031747 0      0   0   324000031750 0            000000031750 
AT3	031747 0      0   0   000000031750 0            324000031750 
AT6	031747 031750 0   0   000000031750 0            324000031750 
FT1A	031747 031750 0   0   000000031750 0            000000031750 
FT2	031747 031750 0   0   0            0            000000031750 
FT2RQ	031747 031750 0   0   0            0            000000031750 
FT3	031747 031750 0   0   0            0            000000031750 
FT9	031750 031750 0   0   0            0            000000031750 
ET0	031750 031750 0   0   0            0            000000031750 
ST1A	031750 031750 0   0   0            0            000000031750 
ST9	031750 031750 0   0   0            0            000000031750 


*031750 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031750 031750 0   0   200000035412 0            0            
IT1	031750 0      0   0   200000035412 0            0            
AT3	031750 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 205
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0484

AT6	031750 035412 0   0   000000035412 0            200000035412 
FT0	031750 035412 0   0   0            0            200000035412 
FT1A	031750 035412 0   0   0            0            0            
FT9	031751 035412 0   0   0            0            0            
ET0	031751 035412 0   0   0            0            0            
ST1	031751 035412 0   0   0            0            0            
ST2	031751 035412 0   0   0            0            0            
ST9	031751 035412 0   0   0            0            0            


*031751 ADD 	0,035457
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031751 031751 0   0   270000035457 0            100000000000 
IT1	031751 0      0   0   270000035457 0            100000000000 
AT3	031751 0      0   0   000000035457 0            270000035457 
AT6	031751 035457 0   0   000000035457 0            270000035457 
FT0	031751 035457 0   0   100000000000 0            270000035457 
FT1A	031751 035457 0   0   100000000000 0            100000000000 
FT2	031751 035457 0   0   0            0            100000000000 
FT2RQ	031751 035457 0   0   0            0            100000000000 
FT3	031751 035457 0   0   0            0            100000000000 
FT9	031752 035457 0   0   0            0            100000000000 
ET0	031752 035457 0   0   100000000000 0            100000000000 
ST1	031752 035457 0   0   100000000000 0            100000000000 
ST2	031752 035457 0   0   100000000000 0            100000000000 
ST9	031752 035457 0   0   100000000000 0            100000000000 


*031752 EQV 	0,035457
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031752 031752 0   0   444000035457 0            100000000000 
IT1	031752 0      0   0   444000035457 0            100000000000 
AT3	031752 0      0   0   000000035457 0            444000035457 
AT6	031752 035457 0   0   000000035457 0            444000035457 
FT0	031752 035457 0   0   100000000000 0            444000035457 
FT1A	031752 035457 0   0   100000000000 0            100000000000 
FT2	031752 035457 0   0   0            0            100000000000 
FT2RQ	031752 035457 0   0   100000000000 0            100000000000 
FT3	031752 035457 0   0   100000000000 0            100000000000 
FT9	031753 035457 0   0   100000000000 0            100000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 206
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0485

ET0	031753 035457 0   0   777777777777 0            100000000000 
ST1	031753 035457 0   0   777777777777 0            100000000000 
ST2	031753 035457 0   0   777777777777 0            100000000000 
ST9	031753 035457 0   0   777777777777 0            100000000000 


*031753 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031753 031753 0   0   444000035412 0            0            
IT1	031753 0      0   0   444000035412 0            0            
AT3	031753 0      0   0   000000035412 0            444000035412 
AT6	031753 035412 0   0   000000035412 0            444000035412 
FT0	031753 035412 0   0   0            0            444000035412 
FT1A	031753 035412 0   0   0            0            0            
FT2	031753 035412 0   0   0            0            0            
FT2RQ	031753 035412 0   0   777777777777 0            0            
FT3	031753 035412 0   0   777777777777 0            0            
FT9	031754 035412 0   0   777777777777 0            0            
ET0	031754 035412 0   0   0            0            0            
ST1	031754 035412 0   0   0            0            0            
ST2	031754 035412 0   0   0            0            0            
ST9	031754 035412 0   0   0            0            0            


*031754 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031754 031754 0   0   332000000000 0            0            
IT1	031754 0      0   0   332000000000 0            0            
AT3	031754 0      0   0   0            0            332000000000 
AT6	031754 0      0   0   0            0            332000000000 
FT0	031754 0      0   0   0            0            332000000000 
FT1A	031754 0      0   0   0            0            0            
FT9	031755 0      0   0   0            0            0            
ET0	031756 0      0   0   0            0            0            
ST1A	031756 0      0   0   0            0            0            
ST9	031756 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 207
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0486

*031756 JUMPA	0,031757
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031756 031756 0   0   324000031757 0            000000031757 
IT1	031756 0      0   0   324000031757 0            000000031757 
AT3	031756 0      0   0   000000031757 0            324000031757 
AT6	031756 031757 0   0   000000031757 0            324000031757 
FT1A	031756 031757 0   0   000000031757 0            000000031757 
FT2	031756 031757 0   0   0            0            000000031757 
FT2RQ	031756 031757 0   0   0            0            000000031757 
FT3	031756 031757 0   0   0            0            000000031757 
FT9	031757 031757 0   0   0            0            000000031757 
ET0	031757 031757 0   0   0            0            000000031757 
ST1A	031757 031757 0   0   0            0            000000031757 
ST9	031757 031757 0   0   0            0            000000031757 


*031757 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031757 031757 0   0   200000035412 0            0            
IT1	031757 0      0   0   200000035412 0            0            
AT3	031757 0      0   0   000000035412 0            200000035412 
AT6	031757 035412 0   0   000000035412 0            200000035412 
FT0	031757 035412 0   0   0            0            200000035412 
FT1A	031757 035412 0   0   0            0            0            
FT9	031760 035412 0   0   0            0            0            
ET0	031760 035412 0   0   0            0            0            
ST1	031760 035412 0   0   0            0            0            
ST2	031760 035412 0   0   0            0            0            
ST9	031760 035412 0   0   0            0            0            


*031760 ADD 	0,035460
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031760 031760 0   0   270000035460 0            200000000000 
IT1	031760 0      0   0   270000035460 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 208
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0487

AT3	031760 0      0   0   000000035460 0            270000035460 
AT6	031760 035460 0   0   000000035460 0            270000035460 
FT0	031760 035460 0   0   200000000000 0            270000035460 
FT1A	031760 035460 0   0   200000000000 0            200000000000 
FT2	031760 035460 0   0   0            0            200000000000 
FT2RQ	031760 035460 0   0   0            0            200000000000 
FT3	031760 035460 0   0   0            0            200000000000 
FT9	031761 035460 0   0   0            0            200000000000 
ET0	031761 035460 0   0   200000000000 0            200000000000 
ST1	031761 035460 0   0   200000000000 0            200000000000 
ST2	031761 035460 0   0   200000000000 0            200000000000 
ST9	031761 035460 0   0   200000000000 0            200000000000 


*031761 EQV 	0,035460
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031761 031761 0   0   444000035460 0            200000000000 
IT1	031761 0      0   0   444000035460 0            200000000000 
AT3	031761 0      0   0   000000035460 0            444000035460 
AT6	031761 035460 0   0   000000035460 0            444000035460 
FT0	031761 035460 0   0   200000000000 0            444000035460 
FT1A	031761 035460 0   0   200000000000 0            200000000000 
FT2	031761 035460 0   0   0            0            200000000000 
FT2RQ	031761 035460 0   0   200000000000 0            200000000000 
FT3	031761 035460 0   0   200000000000 0            200000000000 
FT9	031762 035460 0   0   200000000000 0            200000000000 
ET0	031762 035460 0   0   777777777777 0            200000000000 
ST1	031762 035460 0   0   777777777777 0            200000000000 
ST2	031762 035460 0   0   777777777777 0            200000000000 
ST9	031762 035460 0   0   777777777777 0            200000000000 


*031762 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031762 031762 0   0   444000035412 0            0            
IT1	031762 0      0   0   444000035412 0            0            
AT3	031762 0      0   0   000000035412 0            444000035412 
AT6	031762 035412 0   0   000000035412 0            444000035412 
FT0	031762 035412 0   0   0            0            444000035412 
FT1A	031762 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 209
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0488

FT2	031762 035412 0   0   0            0            0            
FT2RQ	031762 035412 0   0   777777777777 0            0            
FT3	031762 035412 0   0   777777777777 0            0            
FT9	031763 035412 0   0   777777777777 0            0            
ET0	031763 035412 0   0   0            0            0            
ST1	031763 035412 0   0   0            0            0            
ST2	031763 035412 0   0   0            0            0            
ST9	031763 035412 0   0   0            0            0            


*031763 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031763 031763 0   0   332000000000 0            0            
IT1	031763 0      0   0   332000000000 0            0            
AT3	031763 0      0   0   0            0            332000000000 
AT6	031763 0      0   0   0            0            332000000000 
FT0	031763 0      0   0   0            0            332000000000 
FT1A	031763 0      0   0   0            0            0            
FT9	031764 0      0   0   0            0            0            
ET0	031765 0      0   0   0            0            0            
ST1A	031765 0      0   0   0            0            0            
ST9	031765 0      0   0   0            0            0            


*031765 JUMPA	0,031766
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031765 031765 0   0   324000031766 0            000000031766 
IT1	031765 0      0   0   324000031766 0            000000031766 
AT3	031765 0      0   0   000000031766 0            324000031766 
AT6	031765 031766 0   0   000000031766 0            324000031766 
FT1A	031765 031766 0   0   000000031766 0            000000031766 
FT2	031765 031766 0   0   0            0            000000031766 
FT2RQ	031765 031766 0   0   0            0            000000031766 
FT3	031765 031766 0   0   0            0            000000031766 
FT9	031766 031766 0   0   0            0            000000031766 
ET0	031766 031766 0   0   0            0            000000031766 
ST1A	031766 031766 0   0   0            0            000000031766 
ST9	031766 031766 0   0   0            0            000000031766 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 210
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0489

*031766 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031766 031766 0   0   200000035412 0            0            
IT1	031766 0      0   0   200000035412 0            0            
AT3	031766 0      0   0   000000035412 0            200000035412 
AT6	031766 035412 0   0   000000035412 0            200000035412 
FT0	031766 035412 0   0   0            0            200000035412 
FT1A	031766 035412 0   0   0            0            0            
FT9	031767 035412 0   0   0            0            0            
ET0	031767 035412 0   0   0            0            0            
ST1	031767 035412 0   0   0            0            0            
ST2	031767 035412 0   0   0            0            0            
ST9	031767 035412 0   0   0            0            0            


*031767 ADD 	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031767 031767 0   0   270000035461 0            400000000000 
IT1	031767 0      0   0   270000035461 0            400000000000 
AT3	031767 0      0   0   000000035461 0            270000035461 
AT6	031767 035461 0   0   000000035461 0            270000035461 
FT0	031767 035461 0   0   400000000000 0            270000035461 
FT1A	031767 035461 0   0   400000000000 0            400000000000 
FT2	031767 035461 0   0   0            0            400000000000 
FT2RQ	031767 035461 0   0   0            0            400000000000 
FT3	031767 035461 0   0   0            0            400000000000 
FT9	031770 035461 0   0   0            0            400000000000 
ET0	031770 035461 0   0   400000000000 0            400000000000 
ST1	031770 035461 0   0   400000000000 0            400000000000 
ST2	031770 035461 0   0   400000000000 0            400000000000 
ST9	031770 035461 0   0   400000000000 0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 211
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0490

*031770 EQV 	0,035461
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031770 031770 0   0   444000035461 0            400000000000 
IT1	031770 0      0   0   444000035461 0            400000000000 
AT3	031770 0      0   0   000000035461 0            444000035461 
AT6	031770 035461 0   0   000000035461 0            444000035461 
FT0	031770 035461 0   0   400000000000 0            444000035461 
FT1A	031770 035461 0   0   400000000000 0            400000000000 
FT2	031770 035461 0   0   0            0            400000000000 
FT2RQ	031770 035461 0   0   400000000000 0            400000000000 
FT3	031770 035461 0   0   400000000000 0            400000000000 
FT9	031771 035461 0   0   400000000000 0            400000000000 
ET0	031771 035461 0   0   777777777777 0            400000000000 
ST1	031771 035461 0   0   777777777777 0            400000000000 
ST2	031771 035461 0   0   777777777777 0            400000000000 
ST9	031771 035461 0   0   777777777777 0            400000000000 


*031771 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031771 031771 0   0   444000035412 0            0            
IT1	031771 0      0   0   444000035412 0            0            
AT3	031771 0      0   0   000000035412 0            444000035412 
AT6	031771 035412 0   0   000000035412 0            444000035412 
FT0	031771 035412 0   0   0            0            444000035412 
FT1A	031771 035412 0   0   0            0            0            
FT2	031771 035412 0   0   0            0            0            
FT2RQ	031771 035412 0   0   777777777777 0            0            
FT3	031771 035412 0   0   777777777777 0            0            
FT9	031772 035412 0   0   777777777777 0            0            
ET0	031772 035412 0   0   0            0            0            
ST1	031772 035412 0   0   0            0            0            
ST2	031772 035412 0   0   0            0            0            
ST9	031772 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 212
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0491

*031772 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031772 031772 0   0   332000000000 0            0            
IT1	031772 0      0   0   332000000000 0            0            
AT3	031772 0      0   0   0            0            332000000000 
AT6	031772 0      0   0   0            0            332000000000 
FT0	031772 0      0   0   0            0            332000000000 
FT1A	031772 0      0   0   0            0            0            
FT9	031773 0      0   0   0            0            0            
ET0	031774 0      0   0   0            0            0            
ST1A	031774 0      0   0   0            0            0            
ST9	031774 0      0   0   0            0            0            


*031774 JUMPA	0,031775
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031774 031774 0   0   324000031775 0            000000031775 
IT1	031774 0      0   0   324000031775 0            000000031775 
AT3	031774 0      0   0   000000031775 0            324000031775 
AT6	031774 031775 0   0   000000031775 0            324000031775 
FT1A	031774 031775 0   0   000000031775 0            000000031775 
FT2	031774 031775 0   0   0            0            000000031775 
FT2RQ	031774 031775 0   0   0            0            000000031775 
FT3	031774 031775 0   0   0            0            000000031775 
FT9	031775 031775 0   0   0            0            000000031775 
ET0	031775 031775 0   0   0            0            000000031775 
ST1A	031775 031775 0   0   0            0            000000031775 
ST9	031775 031775 0   0   0            0            000000031775 


*031775 MOVE 	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031775 031775 0   0   200000035416 0            000000000001 
IT1	031775 0      0   0   200000035416 0            000000000001 
AT3	031775 0      0   0   000000035416 0            200000035416 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 213
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0492

AT6	031775 035416 0   0   000000035416 0            200000035416 
FT0	031775 035416 0   0   000000000001 0            200000035416 
FT1A	031775 035416 0   0   000000000001 0            000000000001 
FT9	031776 035416 0   0   000000000001 0            000000000001 
ET0	031776 035416 0   0   000000000001 0            000000000001 
ST1	031776 035416 0   0   000000000001 0            000000000001 
ST2	031776 035416 0   0   000000000001 0            000000000001 
ST9	031776 035416 0   0   000000000001 0            000000000001 


*031776 ADD 	0,035416
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031776 031776 0   0   270000035416 0            000000000001 
IT1	031776 0      0   0   270000035416 0            000000000001 
AT3	031776 0      0   0   000000035416 0            270000035416 
AT6	031776 035416 0   0   000000035416 0            270000035416 
FT0	031776 035416 0   0   000000000001 0            270000035416 
FT1A	031776 035416 0   0   000000000001 0            000000000001 
FT2	031776 035416 0   0   0            0            000000000001 
FT2RQ	031776 035416 0   0   000000000001 0            000000000001 
FT3	031776 035416 0   0   000000000001 0            000000000001 
FT9	031777 035416 0   0   000000000001 0            000000000001 
ET0	031777 035416 0   0   000000000002 0            000000000001 
ST1	031777 035416 0   0   000000000002 0            000000000001 
ST2	031777 035416 0   0   000000000002 0            000000000001 
ST9	031777 035416 0   0   000000000002 0            000000000001 


*031777 EQV 	0,035417
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031777 031777 0   0   444000035417 0            000000000002 
IT1	031777 0      0   0   444000035417 0            000000000002 
AT3	031777 0      0   0   000000035417 0            444000035417 
AT6	031777 035417 0   0   000000035417 0            444000035417 
FT0	031777 035417 0   0   000000000002 0            444000035417 
FT1A	031777 035417 0   0   000000000002 0            000000000002 
FT2	031777 035417 0   0   0            0            000000000002 
FT2RQ	031777 035417 0   0   000000000002 0            000000000002 
FT3	031777 035417 0   0   000000000002 0            000000000002 
FT9	0      035417 0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 214
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0493

ET0	0      035417 0   0   777777777777 0            000000000002 
ST1	0      035417 0   0   777777777777 0            000000000002 
ST2	0      035417 0   0   777777777777 0            000000000002 
ST9	0      035417 0   0   777777777777 0            000000000002 


*032000 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035412 0            0            
IT1	0      0      0   0   444000035412 0            0            
AT3	0      0      0   0   000000035412 0            444000035412 
AT6	0      035412 0   0   000000035412 0            444000035412 
FT0	0      035412 0   0   0            0            444000035412 
FT1A	0      035412 0   0   0            0            0            
FT2	0      035412 0   0   0            0            0            
FT2RQ	0      035412 0   0   777777777777 0            0            
FT3	0      035412 0   0   777777777777 0            0            
FT9	032001 035412 0   0   777777777777 0            0            
ET0	032001 035412 0   0   0            0            0            
ST1	032001 035412 0   0   0            0            0            
ST2	032001 035412 0   0   0            0            0            
ST9	032001 035412 0   0   0            0            0            


*032001 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032001 032001 0   0   332000000000 0            0            
IT1	032001 0      0   0   332000000000 0            0            
AT3	032001 0      0   0   0            0            332000000000 
AT6	032001 0      0   0   0            0            332000000000 
FT0	032001 0      0   0   0            0            332000000000 
FT1A	032001 0      0   0   0            0            0            
FT9	032002 0      0   0   0            0            0            
ET0	032003 0      0   0   0            0            0            
ST1A	032003 0      0   0   0            0            0            
ST9	032003 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 215
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0494

*032003 JUMPA	0,032004
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032003 032003 0   0   324000032004 0            000000032004 
IT1	032003 0      0   0   324000032004 0            000000032004 
AT3	032003 0      0   0   000000032004 0            324000032004 
AT6	032003 032004 0   0   000000032004 0            324000032004 
FT1A	032003 032004 0   0   000000032004 0            000000032004 
FT2	032003 032004 0   0   0            0            000000032004 
FT2RQ	032003 032004 0   0   0            0            000000032004 
FT3	032003 032004 0   0   0            0            000000032004 
FT9	032004 032004 0   0   0            0            000000032004 
ET0	032004 032004 0   0   0            0            000000032004 
ST1A	032004 032004 0   0   0            0            000000032004 
ST9	032004 032004 0   0   0            0            000000032004 


*032004 MOVE 	0,035417
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032004 032004 0   0   200000035417 0            000000000002 
IT1	032004 0      0   0   200000035417 0            000000000002 
AT3	032004 0      0   0   000000035417 0            200000035417 
AT6	032004 035417 0   0   000000035417 0            200000035417 
FT0	032004 035417 0   0   000000000002 0            200000035417 
FT1A	032004 035417 0   0   000000000002 0            000000000002 
FT9	032005 035417 0   0   000000000002 0            000000000002 
ET0	032005 035417 0   0   000000000002 0            000000000002 
ST1	032005 035417 0   0   000000000002 0            000000000002 
ST2	032005 035417 0   0   000000000002 0            000000000002 
ST9	032005 035417 0   0   000000000002 0            000000000002 


*032005 ADD 	0,035417
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032005 032005 0   0   270000035417 0            000000000002 
IT1	032005 0      0   0   270000035417 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 216
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0495

AT3	032005 0      0   0   000000035417 0            270000035417 
AT6	032005 035417 0   0   000000035417 0            270000035417 
FT0	032005 035417 0   0   000000000002 0            270000035417 
FT1A	032005 035417 0   0   000000000002 0            000000000002 
FT2	032005 035417 0   0   0            0            000000000002 
FT2RQ	032005 035417 0   0   000000000002 0            000000000002 
FT3	032005 035417 0   0   000000000002 0            000000000002 
FT9	032006 035417 0   0   000000000002 0            000000000002 
ET0	032006 035417 0   0   000000000004 0            000000000002 
ST1	032006 035417 0   0   000000000004 0            000000000002 
ST2	032006 035417 0   0   000000000004 0            000000000002 
ST9	032006 035417 0   0   000000000004 0            000000000002 


*032006 EQV 	0,035420
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032006 032006 0   0   444000035420 0            000000000004 
IT1	032006 0      0   0   444000035420 0            000000000004 
AT3	032006 0      0   0   000000035420 0            444000035420 
AT6	032006 035420 0   0   000000035420 0            444000035420 
FT0	032006 035420 0   0   000000000004 0            444000035420 
FT1A	032006 035420 0   0   000000000004 0            000000000004 
FT2	032006 035420 0   0   0            0            000000000004 
FT2RQ	032006 035420 0   0   000000000004 0            000000000004 
FT3	032006 035420 0   0   000000000004 0            000000000004 
FT9	032007 035420 0   0   000000000004 0            000000000004 
ET0	032007 035420 0   0   777777777777 0            000000000004 
ST1	032007 035420 0   0   777777777777 0            000000000004 
ST2	032007 035420 0   0   777777777777 0            000000000004 
ST9	032007 035420 0   0   777777777777 0            000000000004 


*032007 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032007 032007 0   0   444000035412 0            0            
IT1	032007 0      0   0   444000035412 0            0            
AT3	032007 0      0   0   000000035412 0            444000035412 
AT6	032007 035412 0   0   000000035412 0            444000035412 
FT0	032007 035412 0   0   0            0            444000035412 
FT1A	032007 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 217
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0496

FT2	032007 035412 0   0   0            0            0            
FT2RQ	032007 035412 0   0   777777777777 0            0            
FT3	032007 035412 0   0   777777777777 0            0            
FT9	032010 035412 0   0   777777777777 0            0            
ET0	032010 035412 0   0   0            0            0            
ST1	032010 035412 0   0   0            0            0            
ST2	032010 035412 0   0   0            0            0            
ST9	032010 035412 0   0   0            0            0            


*032010 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032010 032010 0   0   332000000000 0            0            
IT1	032010 0      0   0   332000000000 0            0            
AT3	032010 0      0   0   0            0            332000000000 
AT6	032010 0      0   0   0            0            332000000000 
FT0	032010 0      0   0   0            0            332000000000 
FT1A	032010 0      0   0   0            0            0            
FT9	032011 0      0   0   0            0            0            
ET0	032012 0      0   0   0            0            0            
ST1A	032012 0      0   0   0            0            0            
ST9	032012 0      0   0   0            0            0            


*032012 JUMPA	0,032013
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032012 032012 0   0   324000032013 0            000000032013 
IT1	032012 0      0   0   324000032013 0            000000032013 
AT3	032012 0      0   0   000000032013 0            324000032013 
AT6	032012 032013 0   0   000000032013 0            324000032013 
FT1A	032012 032013 0   0   000000032013 0            000000032013 
FT2	032012 032013 0   0   0            0            000000032013 
FT2RQ	032012 032013 0   0   0            0            000000032013 
FT3	032012 032013 0   0   0            0            000000032013 
FT9	032013 032013 0   0   0            0            000000032013 
ET0	032013 032013 0   0   0            0            000000032013 
ST1A	032013 032013 0   0   0            0            000000032013 
ST9	032013 032013 0   0   0            0            000000032013 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 218
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0497

*032013 MOVE 	0,035420
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032013 032013 0   0   200000035420 0            000000000004 
IT1	032013 0      0   0   200000035420 0            000000000004 
AT3	032013 0      0   0   000000035420 0            200000035420 
AT6	032013 035420 0   0   000000035420 0            200000035420 
FT0	032013 035420 0   0   000000000004 0            200000035420 
FT1A	032013 035420 0   0   000000000004 0            000000000004 
FT9	032014 035420 0   0   000000000004 0            000000000004 
ET0	032014 035420 0   0   000000000004 0            000000000004 
ST1	032014 035420 0   0   000000000004 0            000000000004 
ST2	032014 035420 0   0   000000000004 0            000000000004 
ST9	032014 035420 0   0   000000000004 0            000000000004 


*032014 ADD 	0,035420
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032014 032014 0   0   270000035420 0            000000000004 
IT1	032014 0      0   0   270000035420 0            000000000004 
AT3	032014 0      0   0   000000035420 0            270000035420 
AT6	032014 035420 0   0   000000035420 0            270000035420 
FT0	032014 035420 0   0   000000000004 0            270000035420 
FT1A	032014 035420 0   0   000000000004 0            000000000004 
FT2	032014 035420 0   0   0            0            000000000004 
FT2RQ	032014 035420 0   0   000000000004 0            000000000004 
FT3	032014 035420 0   0   000000000004 0            000000000004 
FT9	032015 035420 0   0   000000000004 0            000000000004 
ET0	032015 035420 0   0   000000000010 0            000000000004 
ST1	032015 035420 0   0   000000000010 0            000000000004 
ST2	032015 035420 0   0   000000000010 0            000000000004 
ST9	032015 035420 0   0   000000000010 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 219
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0498

*032015 EQV 	0,035421
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032015 032015 0   0   444000035421 0            000000000010 
IT1	032015 0      0   0   444000035421 0            000000000010 
AT3	032015 0      0   0   000000035421 0            444000035421 
AT6	032015 035421 0   0   000000035421 0            444000035421 
FT0	032015 035421 0   0   000000000010 0            444000035421 
FT1A	032015 035421 0   0   000000000010 0            000000000010 
FT2	032015 035421 0   0   0            0            000000000010 
FT2RQ	032015 035421 0   0   000000000010 0            000000000010 
FT3	032015 035421 0   0   000000000010 0            000000000010 
FT9	032016 035421 0   0   000000000010 0            000000000010 
ET0	032016 035421 0   0   777777777777 0            000000000010 
ST1	032016 035421 0   0   777777777777 0            000000000010 
ST2	032016 035421 0   0   777777777777 0            000000000010 
ST9	032016 035421 0   0   777777777777 0            000000000010 


*032016 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032016 032016 0   0   444000035412 0            0            
IT1	032016 0      0   0   444000035412 0            0            
AT3	032016 0      0   0   000000035412 0            444000035412 
AT6	032016 035412 0   0   000000035412 0            444000035412 
FT0	032016 035412 0   0   0            0            444000035412 
FT1A	032016 035412 0   0   0            0            0            
FT2	032016 035412 0   0   0            0            0            
FT2RQ	032016 035412 0   0   777777777777 0            0            
FT3	032016 035412 0   0   777777777777 0            0            
FT9	032017 035412 0   0   777777777777 0            0            
ET0	032017 035412 0   0   0            0            0            
ST1	032017 035412 0   0   0            0            0            
ST2	032017 035412 0   0   0            0            0            
ST9	032017 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 220
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0499

*032017 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032017 032017 0   0   332000000000 0            0            
IT1	032017 0      0   0   332000000000 0            0            
AT3	032017 0      0   0   0            0            332000000000 
AT6	032017 0      0   0   0            0            332000000000 
FT0	032017 0      0   0   0            0            332000000000 
FT1A	032017 0      0   0   0            0            0            
FT9	032020 0      0   0   0            0            0            
ET0	032021 0      0   0   0            0            0            
ST1A	032021 0      0   0   0            0            0            
ST9	032021 0      0   0   0            0            0            


*032021 JUMPA	0,032022
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032021 032021 0   0   324000032022 0            000000032022 
IT1	032021 0      0   0   324000032022 0            000000032022 
AT3	032021 0      0   0   000000032022 0            324000032022 
AT6	032021 032022 0   0   000000032022 0            324000032022 
FT1A	032021 032022 0   0   000000032022 0            000000032022 
FT2	032021 032022 0   0   0            0            000000032022 
FT2RQ	032021 032022 0   0   0            0            000000032022 
FT3	032021 032022 0   0   0            0            000000032022 
FT9	032022 032022 0   0   0            0            000000032022 
ET0	032022 032022 0   0   0            0            000000032022 
ST1A	032022 032022 0   0   0            0            000000032022 
ST9	032022 032022 0   0   0            0            000000032022 


*032022 MOVE 	0,035421
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032022 032022 0   0   200000035421 0            000000000010 
IT1	032022 0      0   0   200000035421 0            000000000010 
AT3	032022 0      0   0   000000035421 0            200000035421 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 221
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0500

AT6	032022 035421 0   0   000000035421 0            200000035421 
FT0	032022 035421 0   0   000000000010 0            200000035421 
FT1A	032022 035421 0   0   000000000010 0            000000000010 
FT9	032023 035421 0   0   000000000010 0            000000000010 
ET0	032023 035421 0   0   000000000010 0            000000000010 
ST1	032023 035421 0   0   000000000010 0            000000000010 
ST2	032023 035421 0   0   000000000010 0            000000000010 
ST9	032023 035421 0   0   000000000010 0            000000000010 


*032023 ADD 	0,035421
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032023 032023 0   0   270000035421 0            000000000010 
IT1	032023 0      0   0   270000035421 0            000000000010 
AT3	032023 0      0   0   000000035421 0            270000035421 
AT6	032023 035421 0   0   000000035421 0            270000035421 
FT0	032023 035421 0   0   000000000010 0            270000035421 
FT1A	032023 035421 0   0   000000000010 0            000000000010 
FT2	032023 035421 0   0   0            0            000000000010 
FT2RQ	032023 035421 0   0   000000000010 0            000000000010 
FT3	032023 035421 0   0   000000000010 0            000000000010 
FT9	032024 035421 0   0   000000000010 0            000000000010 
ET0	032024 035421 0   0   000000000020 0            000000000010 
ST1	032024 035421 0   0   000000000020 0            000000000010 
ST2	032024 035421 0   0   000000000020 0            000000000010 
ST9	032024 035421 0   0   000000000020 0            000000000010 


*032024 EQV 	0,035422
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032024 032024 0   0   444000035422 0            000000000020 
IT1	032024 0      0   0   444000035422 0            000000000020 
AT3	032024 0      0   0   000000035422 0            444000035422 
AT6	032024 035422 0   0   000000035422 0            444000035422 
FT0	032024 035422 0   0   000000000020 0            444000035422 
FT1A	032024 035422 0   0   000000000020 0            000000000020 
FT2	032024 035422 0   0   0            0            000000000020 
FT2RQ	032024 035422 0   0   000000000020 0            000000000020 
FT3	032024 035422 0   0   000000000020 0            000000000020 
FT9	032025 035422 0   0   000000000020 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 222
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0501

ET0	032025 035422 0   0   777777777777 0            000000000020 
ST1	032025 035422 0   0   777777777777 0            000000000020 
ST2	032025 035422 0   0   777777777777 0            000000000020 
ST9	032025 035422 0   0   777777777777 0            000000000020 


*032025 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032025 032025 0   0   444000035412 0            0            
IT1	032025 0      0   0   444000035412 0            0            
AT3	032025 0      0   0   000000035412 0            444000035412 
AT6	032025 035412 0   0   000000035412 0            444000035412 
FT0	032025 035412 0   0   0            0            444000035412 
FT1A	032025 035412 0   0   0            0            0            
FT2	032025 035412 0   0   0            0            0            
FT2RQ	032025 035412 0   0   777777777777 0            0            
FT3	032025 035412 0   0   777777777777 0            0            
FT9	032026 035412 0   0   777777777777 0            0            
ET0	032026 035412 0   0   0            0            0            
ST1	032026 035412 0   0   0            0            0            
ST2	032026 035412 0   0   0            0            0            
ST9	032026 035412 0   0   0            0            0            


*032026 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032026 032026 0   0   332000000000 0            0            
IT1	032026 0      0   0   332000000000 0            0            
AT3	032026 0      0   0   0            0            332000000000 
AT6	032026 0      0   0   0            0            332000000000 
FT0	032026 0      0   0   0            0            332000000000 
FT1A	032026 0      0   0   0            0            0            
FT9	032027 0      0   0   0            0            0            
ET0	032030 0      0   0   0            0            0            
ST1A	032030 0      0   0   0            0            0            
ST9	032030 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 223
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0502

*032030 JUMPA	0,032031
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032030 032030 0   0   324000032031 0            000000032031 
IT1	032030 0      0   0   324000032031 0            000000032031 
AT3	032030 0      0   0   000000032031 0            324000032031 
AT6	032030 032031 0   0   000000032031 0            324000032031 
FT1A	032030 032031 0   0   000000032031 0            000000032031 
FT2	032030 032031 0   0   0            0            000000032031 
FT2RQ	032030 032031 0   0   0            0            000000032031 
FT3	032030 032031 0   0   0            0            000000032031 
FT9	032031 032031 0   0   0            0            000000032031 
ET0	032031 032031 0   0   0            0            000000032031 
ST1A	032031 032031 0   0   0            0            000000032031 
ST9	032031 032031 0   0   0            0            000000032031 


*032031 MOVE 	0,035422
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032031 032031 0   0   200000035422 0            000000000020 
IT1	032031 0      0   0   200000035422 0            000000000020 
AT3	032031 0      0   0   000000035422 0            200000035422 
AT6	032031 035422 0   0   000000035422 0            200000035422 
FT0	032031 035422 0   0   000000000020 0            200000035422 
FT1A	032031 035422 0   0   000000000020 0            000000000020 
FT9	032032 035422 0   0   000000000020 0            000000000020 
ET0	032032 035422 0   0   000000000020 0            000000000020 
ST1	032032 035422 0   0   000000000020 0            000000000020 
ST2	032032 035422 0   0   000000000020 0            000000000020 
ST9	032032 035422 0   0   000000000020 0            000000000020 


*032032 ADD 	0,035422
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032032 032032 0   0   270000035422 0            000000000020 
IT1	032032 0      0   0   270000035422 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 224
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0503

AT3	032032 0      0   0   000000035422 0            270000035422 
AT6	032032 035422 0   0   000000035422 0            270000035422 
FT0	032032 035422 0   0   000000000020 0            270000035422 
FT1A	032032 035422 0   0   000000000020 0            000000000020 
FT2	032032 035422 0   0   0            0            000000000020 
FT2RQ	032032 035422 0   0   000000000020 0            000000000020 
FT3	032032 035422 0   0   000000000020 0            000000000020 
FT9	032033 035422 0   0   000000000020 0            000000000020 
ET0	032033 035422 0   0   000000000040 0            000000000020 
ST1	032033 035422 0   0   000000000040 0            000000000020 
ST2	032033 035422 0   0   000000000040 0            000000000020 
ST9	032033 035422 0   0   000000000040 0            000000000020 


*032033 EQV 	0,035423
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032033 032033 0   0   444000035423 0            000000000040 
IT1	032033 0      0   0   444000035423 0            000000000040 
AT3	032033 0      0   0   000000035423 0            444000035423 
AT6	032033 035423 0   0   000000035423 0            444000035423 
FT0	032033 035423 0   0   000000000040 0            444000035423 
FT1A	032033 035423 0   0   000000000040 0            000000000040 
FT2	032033 035423 0   0   0            0            000000000040 
FT2RQ	032033 035423 0   0   000000000040 0            000000000040 
FT3	032033 035423 0   0   000000000040 0            000000000040 
FT9	032034 035423 0   0   000000000040 0            000000000040 
ET0	032034 035423 0   0   777777777777 0            000000000040 
ST1	032034 035423 0   0   777777777777 0            000000000040 
ST2	032034 035423 0   0   777777777777 0            000000000040 
ST9	032034 035423 0   0   777777777777 0            000000000040 


*032034 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032034 032034 0   0   444000035412 0            0            
IT1	032034 0      0   0   444000035412 0            0            
AT3	032034 0      0   0   000000035412 0            444000035412 
AT6	032034 035412 0   0   000000035412 0            444000035412 
FT0	032034 035412 0   0   0            0            444000035412 
FT1A	032034 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 225
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0504

FT2	032034 035412 0   0   0            0            0            
FT2RQ	032034 035412 0   0   777777777777 0            0            
FT3	032034 035412 0   0   777777777777 0            0            
FT9	032035 035412 0   0   777777777777 0            0            
ET0	032035 035412 0   0   0            0            0            
ST1	032035 035412 0   0   0            0            0            
ST2	032035 035412 0   0   0            0            0            
ST9	032035 035412 0   0   0            0            0            


*032035 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032035 032035 0   0   332000000000 0            0            
IT1	032035 0      0   0   332000000000 0            0            
AT3	032035 0      0   0   0            0            332000000000 
AT6	032035 0      0   0   0            0            332000000000 
FT0	032035 0      0   0   0            0            332000000000 
FT1A	032035 0      0   0   0            0            0            
FT9	032036 0      0   0   0            0            0            
ET0	032037 0      0   0   0            0            0            
ST1A	032037 0      0   0   0            0            0            
ST9	032037 0      0   0   0            0            0            


*032037 JUMPA	0,032040
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032037 032037 0   0   324000032040 0            000000032040 
IT1	032037 0      0   0   324000032040 0            000000032040 
AT3	032037 0      0   0   000000032040 0            324000032040 
AT6	032037 032040 0   0   000000032040 0            324000032040 
FT1A	032037 032040 0   0   000000032040 0            000000032040 
FT2	032037 032040 0   0   0            0            000000032040 
FT2RQ	032037 032040 0   0   0            0            000000032040 
FT3	032037 032040 0   0   0            0            000000032040 
FT9	032040 032040 0   0   0            0            000000032040 
ET0	032040 032040 0   0   0            0            000000032040 
ST1A	032040 032040 0   0   0            0            000000032040 
ST9	032040 032040 0   0   0            0            000000032040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 226
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0505

*032040 MOVE 	0,035423
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032040 032040 0   0   200000035423 0            000000000040 
IT1	032040 0      0   0   200000035423 0            000000000040 
AT3	032040 0      0   0   000000035423 0            200000035423 
AT6	032040 035423 0   0   000000035423 0            200000035423 
FT0	032040 035423 0   0   000000000040 0            200000035423 
FT1A	032040 035423 0   0   000000000040 0            000000000040 
FT9	032041 035423 0   0   000000000040 0            000000000040 
ET0	032041 035423 0   0   000000000040 0            000000000040 
ST1	032041 035423 0   0   000000000040 0            000000000040 
ST2	032041 035423 0   0   000000000040 0            000000000040 
ST9	032041 035423 0   0   000000000040 0            000000000040 


*032041 ADD 	0,035423
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032041 032041 0   0   270000035423 0            000000000040 
IT1	032041 0      0   0   270000035423 0            000000000040 
AT3	032041 0      0   0   000000035423 0            270000035423 
AT6	032041 035423 0   0   000000035423 0            270000035423 
FT0	032041 035423 0   0   000000000040 0            270000035423 
FT1A	032041 035423 0   0   000000000040 0            000000000040 
FT2	032041 035423 0   0   0            0            000000000040 
FT2RQ	032041 035423 0   0   000000000040 0            000000000040 
FT3	032041 035423 0   0   000000000040 0            000000000040 
FT9	032042 035423 0   0   000000000040 0            000000000040 
ET0	032042 035423 0   0   000000000100 0            000000000040 
ST1	032042 035423 0   0   000000000100 0            000000000040 
ST2	032042 035423 0   0   000000000100 0            000000000040 
ST9	032042 035423 0   0   000000000100 0            000000000040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 227
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0506

*032042 EQV 	0,035424
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032042 032042 0   0   444000035424 0            000000000100 
IT1	032042 0      0   0   444000035424 0            000000000100 
AT3	032042 0      0   0   000000035424 0            444000035424 
AT6	032042 035424 0   0   000000035424 0            444000035424 
FT0	032042 035424 0   0   000000000100 0            444000035424 
FT1A	032042 035424 0   0   000000000100 0            000000000100 
FT2	032042 035424 0   0   0            0            000000000100 
FT2RQ	032042 035424 0   0   000000000100 0            000000000100 
FT3	032042 035424 0   0   000000000100 0            000000000100 
FT9	032043 035424 0   0   000000000100 0            000000000100 
ET0	032043 035424 0   0   777777777777 0            000000000100 
ST1	032043 035424 0   0   777777777777 0            000000000100 
ST2	032043 035424 0   0   777777777777 0            000000000100 
ST9	032043 035424 0   0   777777777777 0            000000000100 


*032043 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032043 032043 0   0   444000035412 0            0            
IT1	032043 0      0   0   444000035412 0            0            
AT3	032043 0      0   0   000000035412 0            444000035412 
AT6	032043 035412 0   0   000000035412 0            444000035412 
FT0	032043 035412 0   0   0            0            444000035412 
FT1A	032043 035412 0   0   0            0            0            
FT2	032043 035412 0   0   0            0            0            
FT2RQ	032043 035412 0   0   777777777777 0            0            
FT3	032043 035412 0   0   777777777777 0            0            
FT9	032044 035412 0   0   777777777777 0            0            
ET0	032044 035412 0   0   0            0            0            
ST1	032044 035412 0   0   0            0            0            
ST2	032044 035412 0   0   0            0            0            
ST9	032044 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 228
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0507

*032044 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032044 032044 0   0   332000000000 0            0            
IT1	032044 0      0   0   332000000000 0            0            
AT3	032044 0      0   0   0            0            332000000000 
AT6	032044 0      0   0   0            0            332000000000 
FT0	032044 0      0   0   0            0            332000000000 
FT1A	032044 0      0   0   0            0            0            
FT9	032045 0      0   0   0            0            0            
ET0	032046 0      0   0   0            0            0            
ST1A	032046 0      0   0   0            0            0            
ST9	032046 0      0   0   0            0            0            


*032046 JUMPA	0,032047
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032046 032046 0   0   324000032047 0            000000032047 
IT1	032046 0      0   0   324000032047 0            000000032047 
AT3	032046 0      0   0   000000032047 0            324000032047 
AT6	032046 032047 0   0   000000032047 0            324000032047 
FT1A	032046 032047 0   0   000000032047 0            000000032047 
FT2	032046 032047 0   0   0            0            000000032047 
FT2RQ	032046 032047 0   0   0            0            000000032047 
FT3	032046 032047 0   0   0            0            000000032047 
FT9	032047 032047 0   0   0            0            000000032047 
ET0	032047 032047 0   0   0            0            000000032047 
ST1A	032047 032047 0   0   0            0            000000032047 
ST9	032047 032047 0   0   0            0            000000032047 


*032047 MOVE 	0,035424
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032047 032047 0   0   200000035424 0            000000000100 
IT1	032047 0      0   0   200000035424 0            000000000100 
AT3	032047 0      0   0   000000035424 0            200000035424 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 229
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0508

AT6	032047 035424 0   0   000000035424 0            200000035424 
FT0	032047 035424 0   0   000000000100 0            200000035424 
FT1A	032047 035424 0   0   000000000100 0            000000000100 
FT9	032050 035424 0   0   000000000100 0            000000000100 
ET0	032050 035424 0   0   000000000100 0            000000000100 
ST1	032050 035424 0   0   000000000100 0            000000000100 
ST2	032050 035424 0   0   000000000100 0            000000000100 
ST9	032050 035424 0   0   000000000100 0            000000000100 


*032050 ADD 	0,035424
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032050 032050 0   0   270000035424 0            000000000100 
IT1	032050 0      0   0   270000035424 0            000000000100 
AT3	032050 0      0   0   000000035424 0            270000035424 
AT6	032050 035424 0   0   000000035424 0            270000035424 
FT0	032050 035424 0   0   000000000100 0            270000035424 
FT1A	032050 035424 0   0   000000000100 0            000000000100 
FT2	032050 035424 0   0   0            0            000000000100 
FT2RQ	032050 035424 0   0   000000000100 0            000000000100 
FT3	032050 035424 0   0   000000000100 0            000000000100 
FT9	032051 035424 0   0   000000000100 0            000000000100 
ET0	032051 035424 0   0   000000000200 0            000000000100 
ST1	032051 035424 0   0   000000000200 0            000000000100 
ST2	032051 035424 0   0   000000000200 0            000000000100 
ST9	032051 035424 0   0   000000000200 0            000000000100 


*032051 EQV 	0,035425
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032051 032051 0   0   444000035425 0            000000000200 
IT1	032051 0      0   0   444000035425 0            000000000200 
AT3	032051 0      0   0   000000035425 0            444000035425 
AT6	032051 035425 0   0   000000035425 0            444000035425 
FT0	032051 035425 0   0   000000000200 0            444000035425 
FT1A	032051 035425 0   0   000000000200 0            000000000200 
FT2	032051 035425 0   0   0            0            000000000200 
FT2RQ	032051 035425 0   0   000000000200 0            000000000200 
FT3	032051 035425 0   0   000000000200 0            000000000200 
FT9	032052 035425 0   0   000000000200 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 230
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0509

ET0	032052 035425 0   0   777777777777 0            000000000200 
ST1	032052 035425 0   0   777777777777 0            000000000200 
ST2	032052 035425 0   0   777777777777 0            000000000200 
ST9	032052 035425 0   0   777777777777 0            000000000200 


*032052 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032052 032052 0   0   444000035412 0            0            
IT1	032052 0      0   0   444000035412 0            0            
AT3	032052 0      0   0   000000035412 0            444000035412 
AT6	032052 035412 0   0   000000035412 0            444000035412 
FT0	032052 035412 0   0   0            0            444000035412 
FT1A	032052 035412 0   0   0            0            0            
FT2	032052 035412 0   0   0            0            0            
FT2RQ	032052 035412 0   0   777777777777 0            0            
FT3	032052 035412 0   0   777777777777 0            0            
FT9	032053 035412 0   0   777777777777 0            0            
ET0	032053 035412 0   0   0            0            0            
ST1	032053 035412 0   0   0            0            0            
ST2	032053 035412 0   0   0            0            0            
ST9	032053 035412 0   0   0            0            0            


*032053 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032053 032053 0   0   332000000000 0            0            
IT1	032053 0      0   0   332000000000 0            0            
AT3	032053 0      0   0   0            0            332000000000 
AT6	032053 0      0   0   0            0            332000000000 
FT0	032053 0      0   0   0            0            332000000000 
FT1A	032053 0      0   0   0            0            0            
FT9	032054 0      0   0   0            0            0            
ET0	032055 0      0   0   0            0            0            
ST1A	032055 0      0   0   0            0            0            
ST9	032055 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 231
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0510

*032055 JUMPA	0,032056
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032055 032055 0   0   324000032056 0            000000032056 
IT1	032055 0      0   0   324000032056 0            000000032056 
AT3	032055 0      0   0   000000032056 0            324000032056 
AT6	032055 032056 0   0   000000032056 0            324000032056 
FT1A	032055 032056 0   0   000000032056 0            000000032056 
FT2	032055 032056 0   0   0            0            000000032056 
FT2RQ	032055 032056 0   0   0            0            000000032056 
FT3	032055 032056 0   0   0            0            000000032056 
FT9	032056 032056 0   0   0            0            000000032056 
ET0	032056 032056 0   0   0            0            000000032056 
ST1A	032056 032056 0   0   0            0            000000032056 
ST9	032056 032056 0   0   0            0            000000032056 


*032056 MOVE 	0,035425
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032056 032056 0   0   200000035425 0            000000000200 
IT1	032056 0      0   0   200000035425 0            000000000200 
AT3	032056 0      0   0   000000035425 0            200000035425 
AT6	032056 035425 0   0   000000035425 0            200000035425 
FT0	032056 035425 0   0   000000000200 0            200000035425 
FT1A	032056 035425 0   0   000000000200 0            000000000200 
FT9	032057 035425 0   0   000000000200 0            000000000200 
ET0	032057 035425 0   0   000000000200 0            000000000200 
ST1	032057 035425 0   0   000000000200 0            000000000200 
ST2	032057 035425 0   0   000000000200 0            000000000200 
ST9	032057 035425 0   0   000000000200 0            000000000200 


*032057 ADD 	0,035425
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032057 032057 0   0   270000035425 0            000000000200 
IT1	032057 0      0   0   270000035425 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 232
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0511

AT3	032057 0      0   0   000000035425 0            270000035425 
AT6	032057 035425 0   0   000000035425 0            270000035425 
FT0	032057 035425 0   0   000000000200 0            270000035425 
FT1A	032057 035425 0   0   000000000200 0            000000000200 
FT2	032057 035425 0   0   0            0            000000000200 
FT2RQ	032057 035425 0   0   000000000200 0            000000000200 
FT3	032057 035425 0   0   000000000200 0            000000000200 
FT9	032060 035425 0   0   000000000200 0            000000000200 
ET0	032060 035425 0   0   000000000400 0            000000000200 
ST1	032060 035425 0   0   000000000400 0            000000000200 
ST2	032060 035425 0   0   000000000400 0            000000000200 
ST9	032060 035425 0   0   000000000400 0            000000000200 


*032060 EQV 	0,035426
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032060 032060 0   0   444000035426 0            000000000400 
IT1	032060 0      0   0   444000035426 0            000000000400 
AT3	032060 0      0   0   000000035426 0            444000035426 
AT6	032060 035426 0   0   000000035426 0            444000035426 
FT0	032060 035426 0   0   000000000400 0            444000035426 
FT1A	032060 035426 0   0   000000000400 0            000000000400 
FT2	032060 035426 0   0   0            0            000000000400 
FT2RQ	032060 035426 0   0   000000000400 0            000000000400 
FT3	032060 035426 0   0   000000000400 0            000000000400 
FT9	032061 035426 0   0   000000000400 0            000000000400 
ET0	032061 035426 0   0   777777777777 0            000000000400 
ST1	032061 035426 0   0   777777777777 0            000000000400 
ST2	032061 035426 0   0   777777777777 0            000000000400 
ST9	032061 035426 0   0   777777777777 0            000000000400 


*032061 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032061 032061 0   0   444000035412 0            0            
IT1	032061 0      0   0   444000035412 0            0            
AT3	032061 0      0   0   000000035412 0            444000035412 
AT6	032061 035412 0   0   000000035412 0            444000035412 
FT0	032061 035412 0   0   0            0            444000035412 
FT1A	032061 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 233
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0512

FT2	032061 035412 0   0   0            0            0            
FT2RQ	032061 035412 0   0   777777777777 0            0            
FT3	032061 035412 0   0   777777777777 0            0            
FT9	032062 035412 0   0   777777777777 0            0            
ET0	032062 035412 0   0   0            0            0            
ST1	032062 035412 0   0   0            0            0            
ST2	032062 035412 0   0   0            0            0            
ST9	032062 035412 0   0   0            0            0            


*032062 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032062 032062 0   0   332000000000 0            0            
IT1	032062 0      0   0   332000000000 0            0            
AT3	032062 0      0   0   0            0            332000000000 
AT6	032062 0      0   0   0            0            332000000000 
FT0	032062 0      0   0   0            0            332000000000 
FT1A	032062 0      0   0   0            0            0            
FT9	032063 0      0   0   0            0            0            
ET0	032064 0      0   0   0            0            0            
ST1A	032064 0      0   0   0            0            0            
ST9	032064 0      0   0   0            0            0            


*032064 JUMPA	0,032065
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032064 032064 0   0   324000032065 0            000000032065 
IT1	032064 0      0   0   324000032065 0            000000032065 
AT3	032064 0      0   0   000000032065 0            324000032065 
AT6	032064 032065 0   0   000000032065 0            324000032065 
FT1A	032064 032065 0   0   000000032065 0            000000032065 
FT2	032064 032065 0   0   0            0            000000032065 
FT2RQ	032064 032065 0   0   0            0            000000032065 
FT3	032064 032065 0   0   0            0            000000032065 
FT9	032065 032065 0   0   0            0            000000032065 
ET0	032065 032065 0   0   0            0            000000032065 
ST1A	032065 032065 0   0   0            0            000000032065 
ST9	032065 032065 0   0   0            0            000000032065 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 234
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0513

*032065 MOVE 	0,035426
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032065 032065 0   0   200000035426 0            000000000400 
IT1	032065 0      0   0   200000035426 0            000000000400 
AT3	032065 0      0   0   000000035426 0            200000035426 
AT6	032065 035426 0   0   000000035426 0            200000035426 
FT0	032065 035426 0   0   000000000400 0            200000035426 
FT1A	032065 035426 0   0   000000000400 0            000000000400 
FT9	032066 035426 0   0   000000000400 0            000000000400 
ET0	032066 035426 0   0   000000000400 0            000000000400 
ST1	032066 035426 0   0   000000000400 0            000000000400 
ST2	032066 035426 0   0   000000000400 0            000000000400 
ST9	032066 035426 0   0   000000000400 0            000000000400 


*032066 ADD 	0,035426
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032066 032066 0   0   270000035426 0            000000000400 
IT1	032066 0      0   0   270000035426 0            000000000400 
AT3	032066 0      0   0   000000035426 0            270000035426 
AT6	032066 035426 0   0   000000035426 0            270000035426 
FT0	032066 035426 0   0   000000000400 0            270000035426 
FT1A	032066 035426 0   0   000000000400 0            000000000400 
FT2	032066 035426 0   0   0            0            000000000400 
FT2RQ	032066 035426 0   0   000000000400 0            000000000400 
FT3	032066 035426 0   0   000000000400 0            000000000400 
FT9	032067 035426 0   0   000000000400 0            000000000400 
ET0	032067 035426 0   0   000000001000 0            000000000400 
ST1	032067 035426 0   0   000000001000 0            000000000400 
ST2	032067 035426 0   0   000000001000 0            000000000400 
ST9	032067 035426 0   0   000000001000 0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 235
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0514

*032067 EQV 	0,035427
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032067 032067 0   0   444000035427 0            000000001000 
IT1	032067 0      0   0   444000035427 0            000000001000 
AT3	032067 0      0   0   000000035427 0            444000035427 
AT6	032067 035427 0   0   000000035427 0            444000035427 
FT0	032067 035427 0   0   000000001000 0            444000035427 
FT1A	032067 035427 0   0   000000001000 0            000000001000 
FT2	032067 035427 0   0   0            0            000000001000 
FT2RQ	032067 035427 0   0   000000001000 0            000000001000 
FT3	032067 035427 0   0   000000001000 0            000000001000 
FT9	032070 035427 0   0   000000001000 0            000000001000 
ET0	032070 035427 0   0   777777777777 0            000000001000 
ST1	032070 035427 0   0   777777777777 0            000000001000 
ST2	032070 035427 0   0   777777777777 0            000000001000 
ST9	032070 035427 0   0   777777777777 0            000000001000 


*032070 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032070 032070 0   0   444000035412 0            0            
IT1	032070 0      0   0   444000035412 0            0            
AT3	032070 0      0   0   000000035412 0            444000035412 
AT6	032070 035412 0   0   000000035412 0            444000035412 
FT0	032070 035412 0   0   0            0            444000035412 
FT1A	032070 035412 0   0   0            0            0            
FT2	032070 035412 0   0   0            0            0            
FT2RQ	032070 035412 0   0   777777777777 0            0            
FT3	032070 035412 0   0   777777777777 0            0            
FT9	032071 035412 0   0   777777777777 0            0            
ET0	032071 035412 0   0   0            0            0            
ST1	032071 035412 0   0   0            0            0            
ST2	032071 035412 0   0   0            0            0            
ST9	032071 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 236
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0515

*032071 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032071 032071 0   0   332000000000 0            0            
IT1	032071 0      0   0   332000000000 0            0            
AT3	032071 0      0   0   0            0            332000000000 
AT6	032071 0      0   0   0            0            332000000000 
FT0	032071 0      0   0   0            0            332000000000 
FT1A	032071 0      0   0   0            0            0            
FT9	032072 0      0   0   0            0            0            
ET0	032073 0      0   0   0            0            0            
ST1A	032073 0      0   0   0            0            0            
ST9	032073 0      0   0   0            0            0            


*032073 JUMPA	0,032074
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032073 032073 0   0   324000032074 0            000000032074 
IT1	032073 0      0   0   324000032074 0            000000032074 
AT3	032073 0      0   0   000000032074 0            324000032074 
AT6	032073 032074 0   0   000000032074 0            324000032074 
FT1A	032073 032074 0   0   000000032074 0            000000032074 
FT2	032073 032074 0   0   0            0            000000032074 
FT2RQ	032073 032074 0   0   0            0            000000032074 
FT3	032073 032074 0   0   0            0            000000032074 
FT9	032074 032074 0   0   0            0            000000032074 
ET0	032074 032074 0   0   0            0            000000032074 
ST1A	032074 032074 0   0   0            0            000000032074 
ST9	032074 032074 0   0   0            0            000000032074 


*032074 MOVE 	0,035427
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032074 032074 0   0   200000035427 0            000000001000 
IT1	032074 0      0   0   200000035427 0            000000001000 
AT3	032074 0      0   0   000000035427 0            200000035427 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 237
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0516

AT6	032074 035427 0   0   000000035427 0            200000035427 
FT0	032074 035427 0   0   000000001000 0            200000035427 
FT1A	032074 035427 0   0   000000001000 0            000000001000 
FT9	032075 035427 0   0   000000001000 0            000000001000 
ET0	032075 035427 0   0   000000001000 0            000000001000 
ST1	032075 035427 0   0   000000001000 0            000000001000 
ST2	032075 035427 0   0   000000001000 0            000000001000 
ST9	032075 035427 0   0   000000001000 0            000000001000 


*032075 ADD 	0,035427
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032075 032075 0   0   270000035427 0            000000001000 
IT1	032075 0      0   0   270000035427 0            000000001000 
AT3	032075 0      0   0   000000035427 0            270000035427 
AT6	032075 035427 0   0   000000035427 0            270000035427 
FT0	032075 035427 0   0   000000001000 0            270000035427 
FT1A	032075 035427 0   0   000000001000 0            000000001000 
FT2	032075 035427 0   0   0            0            000000001000 
FT2RQ	032075 035427 0   0   000000001000 0            000000001000 
FT3	032075 035427 0   0   000000001000 0            000000001000 
FT9	032076 035427 0   0   000000001000 0            000000001000 
ET0	032076 035427 0   0   000000002000 0            000000001000 
ST1	032076 035427 0   0   000000002000 0            000000001000 
ST2	032076 035427 0   0   000000002000 0            000000001000 
ST9	032076 035427 0   0   000000002000 0            000000001000 


*032076 EQV 	0,035430
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032076 032076 0   0   444000035430 0            000000002000 
IT1	032076 0      0   0   444000035430 0            000000002000 
AT3	032076 0      0   0   000000035430 0            444000035430 
AT6	032076 035430 0   0   000000035430 0            444000035430 
FT0	032076 035430 0   0   000000002000 0            444000035430 
FT1A	032076 035430 0   0   000000002000 0            000000002000 
FT2	032076 035430 0   0   0            0            000000002000 
FT2RQ	032076 035430 0   0   000000002000 0            000000002000 
FT3	032076 035430 0   0   000000002000 0            000000002000 
FT9	032077 035430 0   0   000000002000 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 238
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0517

ET0	032077 035430 0   0   777777777777 0            000000002000 
ST1	032077 035430 0   0   777777777777 0            000000002000 
ST2	032077 035430 0   0   777777777777 0            000000002000 
ST9	032077 035430 0   0   777777777777 0            000000002000 


*032077 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032077 032077 0   0   444000035412 0            0            
IT1	032077 0      0   0   444000035412 0            0            
AT3	032077 0      0   0   000000035412 0            444000035412 
AT6	032077 035412 0   0   000000035412 0            444000035412 
FT0	032077 035412 0   0   0            0            444000035412 
FT1A	032077 035412 0   0   0            0            0            
FT2	032077 035412 0   0   0            0            0            
FT2RQ	032077 035412 0   0   777777777777 0            0            
FT3	032077 035412 0   0   777777777777 0            0            
FT9	0      035412 0   0   777777777777 0            0            
ET0	0      035412 0   0   0            0            0            
ST1	0      035412 0   0   0            0            0            
ST2	0      035412 0   0   0            0            0            
ST9	0      035412 0   0   0            0            0            


*032100 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   332000000000 0            0            
IT1	0      0      0   0   332000000000 0            0            
AT3	0      0      0   0   0            0            332000000000 
AT6	0      0      0   0   0            0            332000000000 
FT0	0      0      0   0   0            0            332000000000 
FT1A	0      0      0   0   0            0            0            
FT9	032101 0      0   0   0            0            0            
ET0	032102 0      0   0   0            0            0            
ST1A	032102 0      0   0   0            0            0            
ST9	032102 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 239
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0518

*032102 JUMPA	0,032103
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032102 032102 0   0   324000032103 0            000000032103 
IT1	032102 0      0   0   324000032103 0            000000032103 
AT3	032102 0      0   0   000000032103 0            324000032103 
AT6	032102 032103 0   0   000000032103 0            324000032103 
FT1A	032102 032103 0   0   000000032103 0            000000032103 
FT2	032102 032103 0   0   0            0            000000032103 
FT2RQ	032102 032103 0   0   0            0            000000032103 
FT3	032102 032103 0   0   0            0            000000032103 
FT9	032103 032103 0   0   0            0            000000032103 
ET0	032103 032103 0   0   0            0            000000032103 
ST1A	032103 032103 0   0   0            0            000000032103 
ST9	032103 032103 0   0   0            0            000000032103 


*032103 MOVE 	0,035430
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032103 032103 0   0   200000035430 0            000000002000 
IT1	032103 0      0   0   200000035430 0            000000002000 
AT3	032103 0      0   0   000000035430 0            200000035430 
AT6	032103 035430 0   0   000000035430 0            200000035430 
FT0	032103 035430 0   0   000000002000 0            200000035430 
FT1A	032103 035430 0   0   000000002000 0            000000002000 
FT9	032104 035430 0   0   000000002000 0            000000002000 
ET0	032104 035430 0   0   000000002000 0            000000002000 
ST1	032104 035430 0   0   000000002000 0            000000002000 
ST2	032104 035430 0   0   000000002000 0            000000002000 
ST9	032104 035430 0   0   000000002000 0            000000002000 


*032104 ADD 	0,035430
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032104 032104 0   0   270000035430 0            000000002000 
IT1	032104 0      0   0   270000035430 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 240
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0519

AT3	032104 0      0   0   000000035430 0            270000035430 
AT6	032104 035430 0   0   000000035430 0            270000035430 
FT0	032104 035430 0   0   000000002000 0            270000035430 
FT1A	032104 035430 0   0   000000002000 0            000000002000 
FT2	032104 035430 0   0   0            0            000000002000 
FT2RQ	032104 035430 0   0   000000002000 0            000000002000 
FT3	032104 035430 0   0   000000002000 0            000000002000 
FT9	032105 035430 0   0   000000002000 0            000000002000 
ET0	032105 035430 0   0   000000004000 0            000000002000 
ST1	032105 035430 0   0   000000004000 0            000000002000 
ST2	032105 035430 0   0   000000004000 0            000000002000 
ST9	032105 035430 0   0   000000004000 0            000000002000 


*032105 EQV 	0,035431
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032105 032105 0   0   444000035431 0            000000004000 
IT1	032105 0      0   0   444000035431 0            000000004000 
AT3	032105 0      0   0   000000035431 0            444000035431 
AT6	032105 035431 0   0   000000035431 0            444000035431 
FT0	032105 035431 0   0   000000004000 0            444000035431 
FT1A	032105 035431 0   0   000000004000 0            000000004000 
FT2	032105 035431 0   0   0            0            000000004000 
FT2RQ	032105 035431 0   0   000000004000 0            000000004000 
FT3	032105 035431 0   0   000000004000 0            000000004000 
FT9	032106 035431 0   0   000000004000 0            000000004000 
ET0	032106 035431 0   0   777777777777 0            000000004000 
ST1	032106 035431 0   0   777777777777 0            000000004000 
ST2	032106 035431 0   0   777777777777 0            000000004000 
ST9	032106 035431 0   0   777777777777 0            000000004000 


*032106 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032106 032106 0   0   444000035412 0            0            
IT1	032106 0      0   0   444000035412 0            0            
AT3	032106 0      0   0   000000035412 0            444000035412 
AT6	032106 035412 0   0   000000035412 0            444000035412 
FT0	032106 035412 0   0   0            0            444000035412 
FT1A	032106 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 241
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0520

FT2	032106 035412 0   0   0            0            0            
FT2RQ	032106 035412 0   0   777777777777 0            0            
FT3	032106 035412 0   0   777777777777 0            0            
FT9	032107 035412 0   0   777777777777 0            0            
ET0	032107 035412 0   0   0            0            0            
ST1	032107 035412 0   0   0            0            0            
ST2	032107 035412 0   0   0            0            0            
ST9	032107 035412 0   0   0            0            0            


*032107 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032107 032107 0   0   332000000000 0            0            
IT1	032107 0      0   0   332000000000 0            0            
AT3	032107 0      0   0   0            0            332000000000 
AT6	032107 0      0   0   0            0            332000000000 
FT0	032107 0      0   0   0            0            332000000000 
FT1A	032107 0      0   0   0            0            0            
FT9	032110 0      0   0   0            0            0            
ET0	032111 0      0   0   0            0            0            
ST1A	032111 0      0   0   0            0            0            
ST9	032111 0      0   0   0            0            0            


*032111 JUMPA	0,032112
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032111 032111 0   0   324000032112 0            000000032112 
IT1	032111 0      0   0   324000032112 0            000000032112 
AT3	032111 0      0   0   000000032112 0            324000032112 
AT6	032111 032112 0   0   000000032112 0            324000032112 
FT1A	032111 032112 0   0   000000032112 0            000000032112 
FT2	032111 032112 0   0   0            0            000000032112 
FT2RQ	032111 032112 0   0   0            0            000000032112 
FT3	032111 032112 0   0   0            0            000000032112 
FT9	032112 032112 0   0   0            0            000000032112 
ET0	032112 032112 0   0   0            0            000000032112 
ST1A	032112 032112 0   0   0            0            000000032112 
ST9	032112 032112 0   0   0            0            000000032112 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 242
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0521

*032112 MOVE 	0,035431
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032112 032112 0   0   200000035431 0            000000004000 
IT1	032112 0      0   0   200000035431 0            000000004000 
AT3	032112 0      0   0   000000035431 0            200000035431 
AT6	032112 035431 0   0   000000035431 0            200000035431 
FT0	032112 035431 0   0   000000004000 0            200000035431 
FT1A	032112 035431 0   0   000000004000 0            000000004000 
FT9	032113 035431 0   0   000000004000 0            000000004000 
ET0	032113 035431 0   0   000000004000 0            000000004000 
ST1	032113 035431 0   0   000000004000 0            000000004000 
ST2	032113 035431 0   0   000000004000 0            000000004000 
ST9	032113 035431 0   0   000000004000 0            000000004000 


*032113 ADD 	0,035431
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032113 032113 0   0   270000035431 0            000000004000 
IT1	032113 0      0   0   270000035431 0            000000004000 
AT3	032113 0      0   0   000000035431 0            270000035431 
AT6	032113 035431 0   0   000000035431 0            270000035431 
FT0	032113 035431 0   0   000000004000 0            270000035431 
FT1A	032113 035431 0   0   000000004000 0            000000004000 
FT2	032113 035431 0   0   0            0            000000004000 
FT2RQ	032113 035431 0   0   000000004000 0            000000004000 
FT3	032113 035431 0   0   000000004000 0            000000004000 
FT9	032114 035431 0   0   000000004000 0            000000004000 
ET0	032114 035431 0   0   000000010000 0            000000004000 
ST1	032114 035431 0   0   000000010000 0            000000004000 
ST2	032114 035431 0   0   000000010000 0            000000004000 
ST9	032114 035431 0   0   000000010000 0            000000004000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 243
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0522

*032114 EQV 	0,035432
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032114 032114 0   0   444000035432 0            000000010000 
IT1	032114 0      0   0   444000035432 0            000000010000 
AT3	032114 0      0   0   000000035432 0            444000035432 
AT6	032114 035432 0   0   000000035432 0            444000035432 
FT0	032114 035432 0   0   000000010000 0            444000035432 
FT1A	032114 035432 0   0   000000010000 0            000000010000 
FT2	032114 035432 0   0   0            0            000000010000 
FT2RQ	032114 035432 0   0   000000010000 0            000000010000 
FT3	032114 035432 0   0   000000010000 0            000000010000 
FT9	032115 035432 0   0   000000010000 0            000000010000 
ET0	032115 035432 0   0   777777777777 0            000000010000 
ST1	032115 035432 0   0   777777777777 0            000000010000 
ST2	032115 035432 0   0   777777777777 0            000000010000 
ST9	032115 035432 0   0   777777777777 0            000000010000 


*032115 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032115 032115 0   0   444000035412 0            0            
IT1	032115 0      0   0   444000035412 0            0            
AT3	032115 0      0   0   000000035412 0            444000035412 
AT6	032115 035412 0   0   000000035412 0            444000035412 
FT0	032115 035412 0   0   0            0            444000035412 
FT1A	032115 035412 0   0   0            0            0            
FT2	032115 035412 0   0   0            0            0            
FT2RQ	032115 035412 0   0   777777777777 0            0            
FT3	032115 035412 0   0   777777777777 0            0            
FT9	032116 035412 0   0   777777777777 0            0            
ET0	032116 035412 0   0   0            0            0            
ST1	032116 035412 0   0   0            0            0            
ST2	032116 035412 0   0   0            0            0            
ST9	032116 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 244
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0523

*032116 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032116 032116 0   0   332000000000 0            0            
IT1	032116 0      0   0   332000000000 0            0            
AT3	032116 0      0   0   0            0            332000000000 
AT6	032116 0      0   0   0            0            332000000000 
FT0	032116 0      0   0   0            0            332000000000 
FT1A	032116 0      0   0   0            0            0            
FT9	032117 0      0   0   0            0            0            
ET0	032120 0      0   0   0            0            0            
ST1A	032120 0      0   0   0            0            0            
ST9	032120 0      0   0   0            0            0            


*032120 JUMPA	0,032121
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032120 032120 0   0   324000032121 0            000000032121 
IT1	032120 0      0   0   324000032121 0            000000032121 
AT3	032120 0      0   0   000000032121 0            324000032121 
AT6	032120 032121 0   0   000000032121 0            324000032121 
FT1A	032120 032121 0   0   000000032121 0            000000032121 
FT2	032120 032121 0   0   0            0            000000032121 
FT2RQ	032120 032121 0   0   0            0            000000032121 
FT3	032120 032121 0   0   0            0            000000032121 
FT9	032121 032121 0   0   0            0            000000032121 
ET0	032121 032121 0   0   0            0            000000032121 
ST1A	032121 032121 0   0   0            0            000000032121 
ST9	032121 032121 0   0   0            0            000000032121 


*032121 MOVE 	0,035432
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032121 032121 0   0   200000035432 0            000000010000 
IT1	032121 0      0   0   200000035432 0            000000010000 
AT3	032121 0      0   0   000000035432 0            200000035432 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 245
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0524

AT6	032121 035432 0   0   000000035432 0            200000035432 
FT0	032121 035432 0   0   000000010000 0            200000035432 
FT1A	032121 035432 0   0   000000010000 0            000000010000 
FT9	032122 035432 0   0   000000010000 0            000000010000 
ET0	032122 035432 0   0   000000010000 0            000000010000 
ST1	032122 035432 0   0   000000010000 0            000000010000 
ST2	032122 035432 0   0   000000010000 0            000000010000 
ST9	032122 035432 0   0   000000010000 0            000000010000 


*032122 ADD 	0,035432
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032122 032122 0   0   270000035432 0            000000010000 
IT1	032122 0      0   0   270000035432 0            000000010000 
AT3	032122 0      0   0   000000035432 0            270000035432 
AT6	032122 035432 0   0   000000035432 0            270000035432 
FT0	032122 035432 0   0   000000010000 0            270000035432 
FT1A	032122 035432 0   0   000000010000 0            000000010000 
FT2	032122 035432 0   0   0            0            000000010000 
FT2RQ	032122 035432 0   0   000000010000 0            000000010000 
FT3	032122 035432 0   0   000000010000 0            000000010000 
FT9	032123 035432 0   0   000000010000 0            000000010000 
ET0	032123 035432 0   0   000000020000 0            000000010000 
ST1	032123 035432 0   0   000000020000 0            000000010000 
ST2	032123 035432 0   0   000000020000 0            000000010000 
ST9	032123 035432 0   0   000000020000 0            000000010000 


*032123 EQV 	0,035433
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032123 032123 0   0   444000035433 0            000000020000 
IT1	032123 0      0   0   444000035433 0            000000020000 
AT3	032123 0      0   0   000000035433 0            444000035433 
AT6	032123 035433 0   0   000000035433 0            444000035433 
FT0	032123 035433 0   0   000000020000 0            444000035433 
FT1A	032123 035433 0   0   000000020000 0            000000020000 
FT2	032123 035433 0   0   0            0            000000020000 
FT2RQ	032123 035433 0   0   000000020000 0            000000020000 
FT3	032123 035433 0   0   000000020000 0            000000020000 
FT9	032124 035433 0   0   000000020000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 246
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0525

ET0	032124 035433 0   0   777777777777 0            000000020000 
ST1	032124 035433 0   0   777777777777 0            000000020000 
ST2	032124 035433 0   0   777777777777 0            000000020000 
ST9	032124 035433 0   0   777777777777 0            000000020000 


*032124 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032124 032124 0   0   444000035412 0            0            
IT1	032124 0      0   0   444000035412 0            0            
AT3	032124 0      0   0   000000035412 0            444000035412 
AT6	032124 035412 0   0   000000035412 0            444000035412 
FT0	032124 035412 0   0   0            0            444000035412 
FT1A	032124 035412 0   0   0            0            0            
FT2	032124 035412 0   0   0            0            0            
FT2RQ	032124 035412 0   0   777777777777 0            0            
FT3	032124 035412 0   0   777777777777 0            0            
FT9	032125 035412 0   0   777777777777 0            0            
ET0	032125 035412 0   0   0            0            0            
ST1	032125 035412 0   0   0            0            0            
ST2	032125 035412 0   0   0            0            0            
ST9	032125 035412 0   0   0            0            0            


*032125 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032125 032125 0   0   332000000000 0            0            
IT1	032125 0      0   0   332000000000 0            0            
AT3	032125 0      0   0   0            0            332000000000 
AT6	032125 0      0   0   0            0            332000000000 
FT0	032125 0      0   0   0            0            332000000000 
FT1A	032125 0      0   0   0            0            0            
FT9	032126 0      0   0   0            0            0            
ET0	032127 0      0   0   0            0            0            
ST1A	032127 0      0   0   0            0            0            
ST9	032127 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 247
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0526

*032127 JUMPA	0,032130
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032127 032127 0   0   324000032130 0            000000032130 
IT1	032127 0      0   0   324000032130 0            000000032130 
AT3	032127 0      0   0   000000032130 0            324000032130 
AT6	032127 032130 0   0   000000032130 0            324000032130 
FT1A	032127 032130 0   0   000000032130 0            000000032130 
FT2	032127 032130 0   0   0            0            000000032130 
FT2RQ	032127 032130 0   0   0            0            000000032130 
FT3	032127 032130 0   0   0            0            000000032130 
FT9	032130 032130 0   0   0            0            000000032130 
ET0	032130 032130 0   0   0            0            000000032130 
ST1A	032130 032130 0   0   0            0            000000032130 
ST9	032130 032130 0   0   0            0            000000032130 


*032130 MOVE 	0,035433
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032130 032130 0   0   200000035433 0            000000020000 
IT1	032130 0      0   0   200000035433 0            000000020000 
AT3	032130 0      0   0   000000035433 0            200000035433 
AT6	032130 035433 0   0   000000035433 0            200000035433 
FT0	032130 035433 0   0   000000020000 0            200000035433 
FT1A	032130 035433 0   0   000000020000 0            000000020000 
FT9	032131 035433 0   0   000000020000 0            000000020000 
ET0	032131 035433 0   0   000000020000 0            000000020000 
ST1	032131 035433 0   0   000000020000 0            000000020000 
ST2	032131 035433 0   0   000000020000 0            000000020000 
ST9	032131 035433 0   0   000000020000 0            000000020000 


*032131 ADD 	0,035433
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032131 032131 0   0   270000035433 0            000000020000 
IT1	032131 0      0   0   270000035433 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 248
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0527

AT3	032131 0      0   0   000000035433 0            270000035433 
AT6	032131 035433 0   0   000000035433 0            270000035433 
FT0	032131 035433 0   0   000000020000 0            270000035433 
FT1A	032131 035433 0   0   000000020000 0            000000020000 
FT2	032131 035433 0   0   0            0            000000020000 
FT2RQ	032131 035433 0   0   000000020000 0            000000020000 
FT3	032131 035433 0   0   000000020000 0            000000020000 
FT9	032132 035433 0   0   000000020000 0            000000020000 
ET0	032132 035433 0   0   000000040000 0            000000020000 
ST1	032132 035433 0   0   000000040000 0            000000020000 
ST2	032132 035433 0   0   000000040000 0            000000020000 
ST9	032132 035433 0   0   000000040000 0            000000020000 


*032132 EQV 	0,035434
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032132 032132 0   0   444000035434 0            000000040000 
IT1	032132 0      0   0   444000035434 0            000000040000 
AT3	032132 0      0   0   000000035434 0            444000035434 
AT6	032132 035434 0   0   000000035434 0            444000035434 
FT0	032132 035434 0   0   000000040000 0            444000035434 
FT1A	032132 035434 0   0   000000040000 0            000000040000 
FT2	032132 035434 0   0   0            0            000000040000 
FT2RQ	032132 035434 0   0   000000040000 0            000000040000 
FT3	032132 035434 0   0   000000040000 0            000000040000 
FT9	032133 035434 0   0   000000040000 0            000000040000 
ET0	032133 035434 0   0   777777777777 0            000000040000 
ST1	032133 035434 0   0   777777777777 0            000000040000 
ST2	032133 035434 0   0   777777777777 0            000000040000 
ST9	032133 035434 0   0   777777777777 0            000000040000 


*032133 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032133 032133 0   0   444000035412 0            0            
IT1	032133 0      0   0   444000035412 0            0            
AT3	032133 0      0   0   000000035412 0            444000035412 
AT6	032133 035412 0   0   000000035412 0            444000035412 
FT0	032133 035412 0   0   0            0            444000035412 
FT1A	032133 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 249
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0528

FT2	032133 035412 0   0   0            0            0            
FT2RQ	032133 035412 0   0   777777777777 0            0            
FT3	032133 035412 0   0   777777777777 0            0            
FT9	032134 035412 0   0   777777777777 0            0            
ET0	032134 035412 0   0   0            0            0            
ST1	032134 035412 0   0   0            0            0            
ST2	032134 035412 0   0   0            0            0            
ST9	032134 035412 0   0   0            0            0            


*032134 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032134 032134 0   0   332000000000 0            0            
IT1	032134 0      0   0   332000000000 0            0            
AT3	032134 0      0   0   0            0            332000000000 
AT6	032134 0      0   0   0            0            332000000000 
FT0	032134 0      0   0   0            0            332000000000 
FT1A	032134 0      0   0   0            0            0            
FT9	032135 0      0   0   0            0            0            
ET0	032136 0      0   0   0            0            0            
ST1A	032136 0      0   0   0            0            0            
ST9	032136 0      0   0   0            0            0            


*032136 JUMPA	0,032137
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032136 032136 0   0   324000032137 0            000000032137 
IT1	032136 0      0   0   324000032137 0            000000032137 
AT3	032136 0      0   0   000000032137 0            324000032137 
AT6	032136 032137 0   0   000000032137 0            324000032137 
FT1A	032136 032137 0   0   000000032137 0            000000032137 
FT2	032136 032137 0   0   0            0            000000032137 
FT2RQ	032136 032137 0   0   0            0            000000032137 
FT3	032136 032137 0   0   0            0            000000032137 
FT9	032137 032137 0   0   0            0            000000032137 
ET0	032137 032137 0   0   0            0            000000032137 
ST1A	032137 032137 0   0   0            0            000000032137 
ST9	032137 032137 0   0   0            0            000000032137 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 250
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0529

*032137 MOVE 	0,035434
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032137 032137 0   0   200000035434 0            000000040000 
IT1	032137 0      0   0   200000035434 0            000000040000 
AT3	032137 0      0   0   000000035434 0            200000035434 
AT6	032137 035434 0   0   000000035434 0            200000035434 
FT0	032137 035434 0   0   000000040000 0            200000035434 
FT1A	032137 035434 0   0   000000040000 0            000000040000 
FT9	032140 035434 0   0   000000040000 0            000000040000 
ET0	032140 035434 0   0   000000040000 0            000000040000 
ST1	032140 035434 0   0   000000040000 0            000000040000 
ST2	032140 035434 0   0   000000040000 0            000000040000 
ST9	032140 035434 0   0   000000040000 0            000000040000 


*032140 ADD 	0,035434
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032140 032140 0   0   270000035434 0            000000040000 
IT1	032140 0      0   0   270000035434 0            000000040000 
AT3	032140 0      0   0   000000035434 0            270000035434 
AT6	032140 035434 0   0   000000035434 0            270000035434 
FT0	032140 035434 0   0   000000040000 0            270000035434 
FT1A	032140 035434 0   0   000000040000 0            000000040000 
FT2	032140 035434 0   0   0            0            000000040000 
FT2RQ	032140 035434 0   0   000000040000 0            000000040000 
FT3	032140 035434 0   0   000000040000 0            000000040000 
FT9	032141 035434 0   0   000000040000 0            000000040000 
ET0	032141 035434 0   0   000000100000 0            000000040000 
ST1	032141 035434 0   0   000000100000 0            000000040000 
ST2	032141 035434 0   0   000000100000 0            000000040000 
ST9	032141 035434 0   0   000000100000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 251
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0530

*032141 EQV 	0,035435
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032141 032141 0   0   444000035435 0            000000100000 
IT1	032141 0      0   0   444000035435 0            000000100000 
AT3	032141 0      0   0   000000035435 0            444000035435 
AT6	032141 035435 0   0   000000035435 0            444000035435 
FT0	032141 035435 0   0   000000100000 0            444000035435 
FT1A	032141 035435 0   0   000000100000 0            000000100000 
FT2	032141 035435 0   0   0            0            000000100000 
FT2RQ	032141 035435 0   0   000000100000 0            000000100000 
FT3	032141 035435 0   0   000000100000 0            000000100000 
FT9	032142 035435 0   0   000000100000 0            000000100000 
ET0	032142 035435 0   0   777777777777 0            000000100000 
ST1	032142 035435 0   0   777777777777 0            000000100000 
ST2	032142 035435 0   0   777777777777 0            000000100000 
ST9	032142 035435 0   0   777777777777 0            000000100000 


*032142 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032142 032142 0   0   444000035412 0            0            
IT1	032142 0      0   0   444000035412 0            0            
AT3	032142 0      0   0   000000035412 0            444000035412 
AT6	032142 035412 0   0   000000035412 0            444000035412 
FT0	032142 035412 0   0   0            0            444000035412 
FT1A	032142 035412 0   0   0            0            0            
FT2	032142 035412 0   0   0            0            0            
FT2RQ	032142 035412 0   0   777777777777 0            0            
FT3	032142 035412 0   0   777777777777 0            0            
FT9	032143 035412 0   0   777777777777 0            0            
ET0	032143 035412 0   0   0            0            0            
ST1	032143 035412 0   0   0            0            0            
ST2	032143 035412 0   0   0            0            0            
ST9	032143 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 252
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0531

*032143 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032143 032143 0   0   332000000000 0            0            
IT1	032143 0      0   0   332000000000 0            0            
AT3	032143 0      0   0   0            0            332000000000 
AT6	032143 0      0   0   0            0            332000000000 
FT0	032143 0      0   0   0            0            332000000000 
FT1A	032143 0      0   0   0            0            0            
FT9	032144 0      0   0   0            0            0            
ET0	032145 0      0   0   0            0            0            
ST1A	032145 0      0   0   0            0            0            
ST9	032145 0      0   0   0            0            0            


*032145 JUMPA	0,032146
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032145 032145 0   0   324000032146 0            000000032146 
IT1	032145 0      0   0   324000032146 0            000000032146 
AT3	032145 0      0   0   000000032146 0            324000032146 
AT6	032145 032146 0   0   000000032146 0            324000032146 
FT1A	032145 032146 0   0   000000032146 0            000000032146 
FT2	032145 032146 0   0   0            0            000000032146 
FT2RQ	032145 032146 0   0   0            0            000000032146 
FT3	032145 032146 0   0   0            0            000000032146 
FT9	032146 032146 0   0   0            0            000000032146 
ET0	032146 032146 0   0   0            0            000000032146 
ST1A	032146 032146 0   0   0            0            000000032146 
ST9	032146 032146 0   0   0            0            000000032146 


*032146 MOVE 	0,035435
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032146 032146 0   0   200000035435 0            000000100000 
IT1	032146 0      0   0   200000035435 0            000000100000 
AT3	032146 0      0   0   000000035435 0            200000035435 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 253
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0532

AT6	032146 035435 0   0   000000035435 0            200000035435 
FT0	032146 035435 0   0   000000100000 0            200000035435 
FT1A	032146 035435 0   0   000000100000 0            000000100000 
FT9	032147 035435 0   0   000000100000 0            000000100000 
ET0	032147 035435 0   0   000000100000 0            000000100000 
ST1	032147 035435 0   0   000000100000 0            000000100000 
ST2	032147 035435 0   0   000000100000 0            000000100000 
ST9	032147 035435 0   0   000000100000 0            000000100000 


*032147 ADD 	0,035435
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032147 032147 0   0   270000035435 0            000000100000 
IT1	032147 0      0   0   270000035435 0            000000100000 
AT3	032147 0      0   0   000000035435 0            270000035435 
AT6	032147 035435 0   0   000000035435 0            270000035435 
FT0	032147 035435 0   0   000000100000 0            270000035435 
FT1A	032147 035435 0   0   000000100000 0            000000100000 
FT2	032147 035435 0   0   0            0            000000100000 
FT2RQ	032147 035435 0   0   000000100000 0            000000100000 
FT3	032147 035435 0   0   000000100000 0            000000100000 
FT9	032150 035435 0   0   000000100000 0            000000100000 
ET0	032150 035435 0   0   000000200000 0            000000100000 
ST1	032150 035435 0   0   000000200000 0            000000100000 
ST2	032150 035435 0   0   000000200000 0            000000100000 
ST9	032150 035435 0   0   000000200000 0            000000100000 


*032150 EQV 	0,035436
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032150 032150 0   0   444000035436 0            000000200000 
IT1	032150 0      0   0   444000035436 0            000000200000 
AT3	032150 0      0   0   000000035436 0            444000035436 
AT6	032150 035436 0   0   000000035436 0            444000035436 
FT0	032150 035436 0   0   000000200000 0            444000035436 
FT1A	032150 035436 0   0   000000200000 0            000000200000 
FT2	032150 035436 0   0   0            0            000000200000 
FT2RQ	032150 035436 0   0   000000200000 0            000000200000 
FT3	032150 035436 0   0   000000200000 0            000000200000 
FT9	032151 035436 0   0   000000200000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 254
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0533

ET0	032151 035436 0   0   777777777777 0            000000200000 
ST1	032151 035436 0   0   777777777777 0            000000200000 
ST2	032151 035436 0   0   777777777777 0            000000200000 
ST9	032151 035436 0   0   777777777777 0            000000200000 


*032151 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032151 032151 0   0   444000035412 0            0            
IT1	032151 0      0   0   444000035412 0            0            
AT3	032151 0      0   0   000000035412 0            444000035412 
AT6	032151 035412 0   0   000000035412 0            444000035412 
FT0	032151 035412 0   0   0            0            444000035412 
FT1A	032151 035412 0   0   0            0            0            
FT2	032151 035412 0   0   0            0            0            
FT2RQ	032151 035412 0   0   777777777777 0            0            
FT3	032151 035412 0   0   777777777777 0            0            
FT9	032152 035412 0   0   777777777777 0            0            
ET0	032152 035412 0   0   0            0            0            
ST1	032152 035412 0   0   0            0            0            
ST2	032152 035412 0   0   0            0            0            
ST9	032152 035412 0   0   0            0            0            


*032152 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032152 032152 0   0   332000000000 0            0            
IT1	032152 0      0   0   332000000000 0            0            
AT3	032152 0      0   0   0            0            332000000000 
AT6	032152 0      0   0   0            0            332000000000 
FT0	032152 0      0   0   0            0            332000000000 
FT1A	032152 0      0   0   0            0            0            
FT9	032153 0      0   0   0            0            0            
ET0	032154 0      0   0   0            0            0            
ST1A	032154 0      0   0   0            0            0            
ST9	032154 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 255
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0534

*032154 JUMPA	0,032155
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032154 032154 0   0   324000032155 0            000000032155 
IT1	032154 0      0   0   324000032155 0            000000032155 
AT3	032154 0      0   0   000000032155 0            324000032155 
AT6	032154 032155 0   0   000000032155 0            324000032155 
FT1A	032154 032155 0   0   000000032155 0            000000032155 
FT2	032154 032155 0   0   0            0            000000032155 
FT2RQ	032154 032155 0   0   0            0            000000032155 
FT3	032154 032155 0   0   0            0            000000032155 
FT9	032155 032155 0   0   0            0            000000032155 
ET0	032155 032155 0   0   0            0            000000032155 
ST1A	032155 032155 0   0   0            0            000000032155 
ST9	032155 032155 0   0   0            0            000000032155 


*032155 MOVE 	0,035436
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032155 032155 0   0   200000035436 0            000000200000 
IT1	032155 0      0   0   200000035436 0            000000200000 
AT3	032155 0      0   0   000000035436 0            200000035436 
AT6	032155 035436 0   0   000000035436 0            200000035436 
FT0	032155 035436 0   0   000000200000 0            200000035436 
FT1A	032155 035436 0   0   000000200000 0            000000200000 
FT9	032156 035436 0   0   000000200000 0            000000200000 
ET0	032156 035436 0   0   000000200000 0            000000200000 
ST1	032156 035436 0   0   000000200000 0            000000200000 
ST2	032156 035436 0   0   000000200000 0            000000200000 
ST9	032156 035436 0   0   000000200000 0            000000200000 


*032156 ADD 	0,035436
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032156 032156 0   0   270000035436 0            000000200000 
IT1	032156 0      0   0   270000035436 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 256
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0535

AT3	032156 0      0   0   000000035436 0            270000035436 
AT6	032156 035436 0   0   000000035436 0            270000035436 
FT0	032156 035436 0   0   000000200000 0            270000035436 
FT1A	032156 035436 0   0   000000200000 0            000000200000 
FT2	032156 035436 0   0   0            0            000000200000 
FT2RQ	032156 035436 0   0   000000200000 0            000000200000 
FT3	032156 035436 0   0   000000200000 0            000000200000 
FT9	032157 035436 0   0   000000200000 0            000000200000 
ET0	032157 035436 0   0   000000400000 0            000000200000 
ST1	032157 035436 0   0   000000400000 0            000000200000 
ST2	032157 035436 0   0   000000400000 0            000000200000 
ST9	032157 035436 0   0   000000400000 0            000000200000 


*032157 EQV 	0,035437
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032157 032157 0   0   444000035437 0            000000400000 
IT1	032157 0      0   0   444000035437 0            000000400000 
AT3	032157 0      0   0   000000035437 0            444000035437 
AT6	032157 035437 0   0   000000035437 0            444000035437 
FT0	032157 035437 0   0   000000400000 0            444000035437 
FT1A	032157 035437 0   0   000000400000 0            000000400000 
FT2	032157 035437 0   0   0            0            000000400000 
FT2RQ	032157 035437 0   0   000000400000 0            000000400000 
FT3	032157 035437 0   0   000000400000 0            000000400000 
FT9	032160 035437 0   0   000000400000 0            000000400000 
ET0	032160 035437 0   0   777777777777 0            000000400000 
ST1	032160 035437 0   0   777777777777 0            000000400000 
ST2	032160 035437 0   0   777777777777 0            000000400000 
ST9	032160 035437 0   0   777777777777 0            000000400000 


*032160 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032160 032160 0   0   444000035412 0            0            
IT1	032160 0      0   0   444000035412 0            0            
AT3	032160 0      0   0   000000035412 0            444000035412 
AT6	032160 035412 0   0   000000035412 0            444000035412 
FT0	032160 035412 0   0   0            0            444000035412 
FT1A	032160 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 257
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0536

FT2	032160 035412 0   0   0            0            0            
FT2RQ	032160 035412 0   0   777777777777 0            0            
FT3	032160 035412 0   0   777777777777 0            0            
FT9	032161 035412 0   0   777777777777 0            0            
ET0	032161 035412 0   0   0            0            0            
ST1	032161 035412 0   0   0            0            0            
ST2	032161 035412 0   0   0            0            0            
ST9	032161 035412 0   0   0            0            0            


*032161 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032161 032161 0   0   332000000000 0            0            
IT1	032161 0      0   0   332000000000 0            0            
AT3	032161 0      0   0   0            0            332000000000 
AT6	032161 0      0   0   0            0            332000000000 
FT0	032161 0      0   0   0            0            332000000000 
FT1A	032161 0      0   0   0            0            0            
FT9	032162 0      0   0   0            0            0            
ET0	032163 0      0   0   0            0            0            
ST1A	032163 0      0   0   0            0            0            
ST9	032163 0      0   0   0            0            0            


*032163 JUMPA	0,032164
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032163 032163 0   0   324000032164 0            000000032164 
IT1	032163 0      0   0   324000032164 0            000000032164 
AT3	032163 0      0   0   000000032164 0            324000032164 
AT6	032163 032164 0   0   000000032164 0            324000032164 
FT1A	032163 032164 0   0   000000032164 0            000000032164 
FT2	032163 032164 0   0   0            0            000000032164 
FT2RQ	032163 032164 0   0   0            0            000000032164 
FT3	032163 032164 0   0   0            0            000000032164 
FT9	032164 032164 0   0   0            0            000000032164 
ET0	032164 032164 0   0   0            0            000000032164 
ST1A	032164 032164 0   0   0            0            000000032164 
ST9	032164 032164 0   0   0            0            000000032164 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 258
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0537

*032164 MOVE 	0,035437
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032164 032164 0   0   200000035437 0            000000400000 
IT1	032164 0      0   0   200000035437 0            000000400000 
AT3	032164 0      0   0   000000035437 0            200000035437 
AT6	032164 035437 0   0   000000035437 0            200000035437 
FT0	032164 035437 0   0   000000400000 0            200000035437 
FT1A	032164 035437 0   0   000000400000 0            000000400000 
FT9	032165 035437 0   0   000000400000 0            000000400000 
ET0	032165 035437 0   0   000000400000 0            000000400000 
ST1	032165 035437 0   0   000000400000 0            000000400000 
ST2	032165 035437 0   0   000000400000 0            000000400000 
ST9	032165 035437 0   0   000000400000 0            000000400000 


*032165 ADD 	0,035437
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032165 032165 0   0   270000035437 0            000000400000 
IT1	032165 0      0   0   270000035437 0            000000400000 
AT3	032165 0      0   0   000000035437 0            270000035437 
AT6	032165 035437 0   0   000000035437 0            270000035437 
FT0	032165 035437 0   0   000000400000 0            270000035437 
FT1A	032165 035437 0   0   000000400000 0            000000400000 
FT2	032165 035437 0   0   0            0            000000400000 
FT2RQ	032165 035437 0   0   000000400000 0            000000400000 
FT3	032165 035437 0   0   000000400000 0            000000400000 
FT9	032166 035437 0   0   000000400000 0            000000400000 
ET0	032166 035437 0   0   000001000000 0            000000400000 
ST1	032166 035437 0   0   000001000000 0            000000400000 
ST2	032166 035437 0   0   000001000000 0            000000400000 
ST9	032166 035437 0   0   000001000000 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 259
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0538

*032166 EQV 	0,035440
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032166 032166 0   0   444000035440 0            000001000000 
IT1	032166 0      0   0   444000035440 0            000001000000 
AT3	032166 0      0   0   000000035440 0            444000035440 
AT6	032166 035440 0   0   000000035440 0            444000035440 
FT0	032166 035440 0   0   000001000000 0            444000035440 
FT1A	032166 035440 0   0   000001000000 0            000001000000 
FT2	032166 035440 0   0   0            0            000001000000 
FT2RQ	032166 035440 0   0   000001000000 0            000001000000 
FT3	032166 035440 0   0   000001000000 0            000001000000 
FT9	032167 035440 0   0   000001000000 0            000001000000 
ET0	032167 035440 0   0   777777777777 0            000001000000 
ST1	032167 035440 0   0   777777777777 0            000001000000 
ST2	032167 035440 0   0   777777777777 0            000001000000 
ST9	032167 035440 0   0   777777777777 0            000001000000 


*032167 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032167 032167 0   0   444000035412 0            0            
IT1	032167 0      0   0   444000035412 0            0            
AT3	032167 0      0   0   000000035412 0            444000035412 
AT6	032167 035412 0   0   000000035412 0            444000035412 
FT0	032167 035412 0   0   0            0            444000035412 
FT1A	032167 035412 0   0   0            0            0            
FT2	032167 035412 0   0   0            0            0            
FT2RQ	032167 035412 0   0   777777777777 0            0            
FT3	032167 035412 0   0   777777777777 0            0            
FT9	032170 035412 0   0   777777777777 0            0            
ET0	032170 035412 0   0   0            0            0            
ST1	032170 035412 0   0   0            0            0            
ST2	032170 035412 0   0   0            0            0            
ST9	032170 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 260
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0539

*032170 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032170 032170 0   0   332000000000 0            0            
IT1	032170 0      0   0   332000000000 0            0            
AT3	032170 0      0   0   0            0            332000000000 
AT6	032170 0      0   0   0            0            332000000000 
FT0	032170 0      0   0   0            0            332000000000 
FT1A	032170 0      0   0   0            0            0            
FT9	032171 0      0   0   0            0            0            
ET0	032172 0      0   0   0            0            0            
ST1A	032172 0      0   0   0            0            0            
ST9	032172 0      0   0   0            0            0            


*032172 JUMPA	0,032173
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032172 032172 0   0   324000032173 0            000000032173 
IT1	032172 0      0   0   324000032173 0            000000032173 
AT3	032172 0      0   0   000000032173 0            324000032173 
AT6	032172 032173 0   0   000000032173 0            324000032173 
FT1A	032172 032173 0   0   000000032173 0            000000032173 
FT2	032172 032173 0   0   0            0            000000032173 
FT2RQ	032172 032173 0   0   0            0            000000032173 
FT3	032172 032173 0   0   0            0            000000032173 
FT9	032173 032173 0   0   0            0            000000032173 
ET0	032173 032173 0   0   0            0            000000032173 
ST1A	032173 032173 0   0   0            0            000000032173 
ST9	032173 032173 0   0   0            0            000000032173 


*032173 MOVE 	0,035440
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032173 032173 0   0   200000035440 0            000001000000 
IT1	032173 0      0   0   200000035440 0            000001000000 
AT3	032173 0      0   0   000000035440 0            200000035440 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 261
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0540

AT6	032173 035440 0   0   000000035440 0            200000035440 
FT0	032173 035440 0   0   000001000000 0            200000035440 
FT1A	032173 035440 0   0   000001000000 0            000001000000 
FT9	032174 035440 0   0   000001000000 0            000001000000 
ET0	032174 035440 0   0   000001000000 0            000001000000 
ST1	032174 035440 0   0   000001000000 0            000001000000 
ST2	032174 035440 0   0   000001000000 0            000001000000 
ST9	032174 035440 0   0   000001000000 0            000001000000 


*032174 ADD 	0,035440
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032174 032174 0   0   270000035440 0            000001000000 
IT1	032174 0      0   0   270000035440 0            000001000000 
AT3	032174 0      0   0   000000035440 0            270000035440 
AT6	032174 035440 0   0   000000035440 0            270000035440 
FT0	032174 035440 0   0   000001000000 0            270000035440 
FT1A	032174 035440 0   0   000001000000 0            000001000000 
FT2	032174 035440 0   0   0            0            000001000000 
FT2RQ	032174 035440 0   0   000001000000 0            000001000000 
FT3	032174 035440 0   0   000001000000 0            000001000000 
FT9	032175 035440 0   0   000001000000 0            000001000000 
ET0	032175 035440 0   0   000002000000 0            000001000000 
ST1	032175 035440 0   0   000002000000 0            000001000000 
ST2	032175 035440 0   0   000002000000 0            000001000000 
ST9	032175 035440 0   0   000002000000 0            000001000000 


*032175 EQV 	0,035441
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032175 032175 0   0   444000035441 0            000002000000 
IT1	032175 0      0   0   444000035441 0            000002000000 
AT3	032175 0      0   0   000000035441 0            444000035441 
AT6	032175 035441 0   0   000000035441 0            444000035441 
FT0	032175 035441 0   0   000002000000 0            444000035441 
FT1A	032175 035441 0   0   000002000000 0            000002000000 
FT2	032175 035441 0   0   0            0            000002000000 
FT2RQ	032175 035441 0   0   000002000000 0            000002000000 
FT3	032175 035441 0   0   000002000000 0            000002000000 
FT9	032176 035441 0   0   000002000000 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 262
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0541

ET0	032176 035441 0   0   777777777777 0            000002000000 
ST1	032176 035441 0   0   777777777777 0            000002000000 
ST2	032176 035441 0   0   777777777777 0            000002000000 
ST9	032176 035441 0   0   777777777777 0            000002000000 


*032176 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032176 032176 0   0   444000035412 0            0            
IT1	032176 0      0   0   444000035412 0            0            
AT3	032176 0      0   0   000000035412 0            444000035412 
AT6	032176 035412 0   0   000000035412 0            444000035412 
FT0	032176 035412 0   0   0            0            444000035412 
FT1A	032176 035412 0   0   0            0            0            
FT2	032176 035412 0   0   0            0            0            
FT2RQ	032176 035412 0   0   777777777777 0            0            
FT3	032176 035412 0   0   777777777777 0            0            
FT9	032177 035412 0   0   777777777777 0            0            
ET0	032177 035412 0   0   0            0            0            
ST1	032177 035412 0   0   0            0            0            
ST2	032177 035412 0   0   0            0            0            
ST9	032177 035412 0   0   0            0            0            


*032177 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032177 032177 0   0   332000000000 0            0            
IT1	032177 0      0   0   332000000000 0            0            
AT3	032177 0      0   0   0            0            332000000000 
AT6	032177 0      0   0   0            0            332000000000 
FT0	032177 0      0   0   0            0            332000000000 
FT1A	032177 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	032201 0      0   0   0            0            0            
ST1A	032201 0      0   0   0            0            0            
ST9	032201 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 263
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0542

*032201 JUMPA	0,032202
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032201 032201 0   0   324000032202 0            000000032202 
IT1	032201 0      0   0   324000032202 0            000000032202 
AT3	032201 0      0   0   000000032202 0            324000032202 
AT6	032201 032202 0   0   000000032202 0            324000032202 
FT1A	032201 032202 0   0   000000032202 0            000000032202 
FT2	032201 032202 0   0   0            0            000000032202 
FT2RQ	032201 032202 0   0   0            0            000000032202 
FT3	032201 032202 0   0   0            0            000000032202 
FT9	032202 032202 0   0   0            0            000000032202 
ET0	032202 032202 0   0   0            0            000000032202 
ST1A	032202 032202 0   0   0            0            000000032202 
ST9	032202 032202 0   0   0            0            000000032202 


*032202 MOVE 	0,035441
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032202 032202 0   0   200000035441 0            000002000000 
IT1	032202 0      0   0   200000035441 0            000002000000 
AT3	032202 0      0   0   000000035441 0            200000035441 
AT6	032202 035441 0   0   000000035441 0            200000035441 
FT0	032202 035441 0   0   000002000000 0            200000035441 
FT1A	032202 035441 0   0   000002000000 0            000002000000 
FT9	032203 035441 0   0   000002000000 0            000002000000 
ET0	032203 035441 0   0   000002000000 0            000002000000 
ST1	032203 035441 0   0   000002000000 0            000002000000 
ST2	032203 035441 0   0   000002000000 0            000002000000 
ST9	032203 035441 0   0   000002000000 0            000002000000 


*032203 ADD 	0,035441
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032203 032203 0   0   270000035441 0            000002000000 
IT1	032203 0      0   0   270000035441 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 264
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0543

AT3	032203 0      0   0   000000035441 0            270000035441 
AT6	032203 035441 0   0   000000035441 0            270000035441 
FT0	032203 035441 0   0   000002000000 0            270000035441 
FT1A	032203 035441 0   0   000002000000 0            000002000000 
FT2	032203 035441 0   0   0            0            000002000000 
FT2RQ	032203 035441 0   0   000002000000 0            000002000000 
FT3	032203 035441 0   0   000002000000 0            000002000000 
FT9	032204 035441 0   0   000002000000 0            000002000000 
ET0	032204 035441 0   0   000004000000 0            000002000000 
ST1	032204 035441 0   0   000004000000 0            000002000000 
ST2	032204 035441 0   0   000004000000 0            000002000000 
ST9	032204 035441 0   0   000004000000 0            000002000000 


*032204 EQV 	0,035442
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032204 032204 0   0   444000035442 0            000004000000 
IT1	032204 0      0   0   444000035442 0            000004000000 
AT3	032204 0      0   0   000000035442 0            444000035442 
AT6	032204 035442 0   0   000000035442 0            444000035442 
FT0	032204 035442 0   0   000004000000 0            444000035442 
FT1A	032204 035442 0   0   000004000000 0            000004000000 
FT2	032204 035442 0   0   0            0            000004000000 
FT2RQ	032204 035442 0   0   000004000000 0            000004000000 
FT3	032204 035442 0   0   000004000000 0            000004000000 
FT9	032205 035442 0   0   000004000000 0            000004000000 
ET0	032205 035442 0   0   777777777777 0            000004000000 
ST1	032205 035442 0   0   777777777777 0            000004000000 
ST2	032205 035442 0   0   777777777777 0            000004000000 
ST9	032205 035442 0   0   777777777777 0            000004000000 


*032205 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032205 032205 0   0   444000035412 0            0            
IT1	032205 0      0   0   444000035412 0            0            
AT3	032205 0      0   0   000000035412 0            444000035412 
AT6	032205 035412 0   0   000000035412 0            444000035412 
FT0	032205 035412 0   0   0            0            444000035412 
FT1A	032205 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 265
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0544

FT2	032205 035412 0   0   0            0            0            
FT2RQ	032205 035412 0   0   777777777777 0            0            
FT3	032205 035412 0   0   777777777777 0            0            
FT9	032206 035412 0   0   777777777777 0            0            
ET0	032206 035412 0   0   0            0            0            
ST1	032206 035412 0   0   0            0            0            
ST2	032206 035412 0   0   0            0            0            
ST9	032206 035412 0   0   0            0            0            


*032206 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032206 032206 0   0   332000000000 0            0            
IT1	032206 0      0   0   332000000000 0            0            
AT3	032206 0      0   0   0            0            332000000000 
AT6	032206 0      0   0   0            0            332000000000 
FT0	032206 0      0   0   0            0            332000000000 
FT1A	032206 0      0   0   0            0            0            
FT9	032207 0      0   0   0            0            0            
ET0	032210 0      0   0   0            0            0            
ST1A	032210 0      0   0   0            0            0            
ST9	032210 0      0   0   0            0            0            


*032210 JUMPA	0,032211
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032210 032210 0   0   324000032211 0            000000032211 
IT1	032210 0      0   0   324000032211 0            000000032211 
AT3	032210 0      0   0   000000032211 0            324000032211 
AT6	032210 032211 0   0   000000032211 0            324000032211 
FT1A	032210 032211 0   0   000000032211 0            000000032211 
FT2	032210 032211 0   0   0            0            000000032211 
FT2RQ	032210 032211 0   0   0            0            000000032211 
FT3	032210 032211 0   0   0            0            000000032211 
FT9	032211 032211 0   0   0            0            000000032211 
ET0	032211 032211 0   0   0            0            000000032211 
ST1A	032211 032211 0   0   0            0            000000032211 
ST9	032211 032211 0   0   0            0            000000032211 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 266
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0545

*032211 MOVE 	0,035442
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032211 032211 0   0   200000035442 0            000004000000 
IT1	032211 0      0   0   200000035442 0            000004000000 
AT3	032211 0      0   0   000000035442 0            200000035442 
AT6	032211 035442 0   0   000000035442 0            200000035442 
FT0	032211 035442 0   0   000004000000 0            200000035442 
FT1A	032211 035442 0   0   000004000000 0            000004000000 
FT9	032212 035442 0   0   000004000000 0            000004000000 
ET0	032212 035442 0   0   000004000000 0            000004000000 
ST1	032212 035442 0   0   000004000000 0            000004000000 
ST2	032212 035442 0   0   000004000000 0            000004000000 
ST9	032212 035442 0   0   000004000000 0            000004000000 


*032212 ADD 	0,035442
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032212 032212 0   0   270000035442 0            000004000000 
IT1	032212 0      0   0   270000035442 0            000004000000 
AT3	032212 0      0   0   000000035442 0            270000035442 
AT6	032212 035442 0   0   000000035442 0            270000035442 
FT0	032212 035442 0   0   000004000000 0            270000035442 
FT1A	032212 035442 0   0   000004000000 0            000004000000 
FT2	032212 035442 0   0   0            0            000004000000 
FT2RQ	032212 035442 0   0   000004000000 0            000004000000 
FT3	032212 035442 0   0   000004000000 0            000004000000 
FT9	032213 035442 0   0   000004000000 0            000004000000 
ET0	032213 035442 0   0   000010000000 0            000004000000 
ST1	032213 035442 0   0   000010000000 0            000004000000 
ST2	032213 035442 0   0   000010000000 0            000004000000 
ST9	032213 035442 0   0   000010000000 0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 267
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0546

*032213 EQV 	0,035443
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032213 032213 0   0   444000035443 0            000010000000 
IT1	032213 0      0   0   444000035443 0            000010000000 
AT3	032213 0      0   0   000000035443 0            444000035443 
AT6	032213 035443 0   0   000000035443 0            444000035443 
FT0	032213 035443 0   0   000010000000 0            444000035443 
FT1A	032213 035443 0   0   000010000000 0            000010000000 
FT2	032213 035443 0   0   0            0            000010000000 
FT2RQ	032213 035443 0   0   000010000000 0            000010000000 
FT3	032213 035443 0   0   000010000000 0            000010000000 
FT9	032214 035443 0   0   000010000000 0            000010000000 
ET0	032214 035443 0   0   777777777777 0            000010000000 
ST1	032214 035443 0   0   777777777777 0            000010000000 
ST2	032214 035443 0   0   777777777777 0            000010000000 
ST9	032214 035443 0   0   777777777777 0            000010000000 


*032214 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032214 032214 0   0   444000035412 0            0            
IT1	032214 0      0   0   444000035412 0            0            
AT3	032214 0      0   0   000000035412 0            444000035412 
AT6	032214 035412 0   0   000000035412 0            444000035412 
FT0	032214 035412 0   0   0            0            444000035412 
FT1A	032214 035412 0   0   0            0            0            
FT2	032214 035412 0   0   0            0            0            
FT2RQ	032214 035412 0   0   777777777777 0            0            
FT3	032214 035412 0   0   777777777777 0            0            
FT9	032215 035412 0   0   777777777777 0            0            
ET0	032215 035412 0   0   0            0            0            
ST1	032215 035412 0   0   0            0            0            
ST2	032215 035412 0   0   0            0            0            
ST9	032215 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 268
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0547

*032215 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032215 032215 0   0   332000000000 0            0            
IT1	032215 0      0   0   332000000000 0            0            
AT3	032215 0      0   0   0            0            332000000000 
AT6	032215 0      0   0   0            0            332000000000 
FT0	032215 0      0   0   0            0            332000000000 
FT1A	032215 0      0   0   0            0            0            
FT9	032216 0      0   0   0            0            0            
ET0	032217 0      0   0   0            0            0            
ST1A	032217 0      0   0   0            0            0            
ST9	032217 0      0   0   0            0            0            


*032217 JUMPA	0,032220
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032217 032217 0   0   324000032220 0            000000032220 
IT1	032217 0      0   0   324000032220 0            000000032220 
AT3	032217 0      0   0   000000032220 0            324000032220 
AT6	032217 032220 0   0   000000032220 0            324000032220 
FT1A	032217 032220 0   0   000000032220 0            000000032220 
FT2	032217 032220 0   0   0            0            000000032220 
FT2RQ	032217 032220 0   0   0            0            000000032220 
FT3	032217 032220 0   0   0            0            000000032220 
FT9	032220 032220 0   0   0            0            000000032220 
ET0	032220 032220 0   0   0            0            000000032220 
ST1A	032220 032220 0   0   0            0            000000032220 
ST9	032220 032220 0   0   0            0            000000032220 


*032220 MOVE 	0,035443
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032220 032220 0   0   200000035443 0            000010000000 
IT1	032220 0      0   0   200000035443 0            000010000000 
AT3	032220 0      0   0   000000035443 0            200000035443 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 269
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0548

AT6	032220 035443 0   0   000000035443 0            200000035443 
FT0	032220 035443 0   0   000010000000 0            200000035443 
FT1A	032220 035443 0   0   000010000000 0            000010000000 
FT9	032221 035443 0   0   000010000000 0            000010000000 
ET0	032221 035443 0   0   000010000000 0            000010000000 
ST1	032221 035443 0   0   000010000000 0            000010000000 
ST2	032221 035443 0   0   000010000000 0            000010000000 
ST9	032221 035443 0   0   000010000000 0            000010000000 


*032221 ADD 	0,035443
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032221 032221 0   0   270000035443 0            000010000000 
IT1	032221 0      0   0   270000035443 0            000010000000 
AT3	032221 0      0   0   000000035443 0            270000035443 
AT6	032221 035443 0   0   000000035443 0            270000035443 
FT0	032221 035443 0   0   000010000000 0            270000035443 
FT1A	032221 035443 0   0   000010000000 0            000010000000 
FT2	032221 035443 0   0   0            0            000010000000 
FT2RQ	032221 035443 0   0   000010000000 0            000010000000 
FT3	032221 035443 0   0   000010000000 0            000010000000 
FT9	032222 035443 0   0   000010000000 0            000010000000 
ET0	032222 035443 0   0   000020000000 0            000010000000 
ST1	032222 035443 0   0   000020000000 0            000010000000 
ST2	032222 035443 0   0   000020000000 0            000010000000 
ST9	032222 035443 0   0   000020000000 0            000010000000 


*032222 EQV 	0,035444
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032222 032222 0   0   444000035444 0            000020000000 
IT1	032222 0      0   0   444000035444 0            000020000000 
AT3	032222 0      0   0   000000035444 0            444000035444 
AT6	032222 035444 0   0   000000035444 0            444000035444 
FT0	032222 035444 0   0   000020000000 0            444000035444 
FT1A	032222 035444 0   0   000020000000 0            000020000000 
FT2	032222 035444 0   0   0            0            000020000000 
FT2RQ	032222 035444 0   0   000020000000 0            000020000000 
FT3	032222 035444 0   0   000020000000 0            000020000000 
FT9	032223 035444 0   0   000020000000 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 270
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0549

ET0	032223 035444 0   0   777777777777 0            000020000000 
ST1	032223 035444 0   0   777777777777 0            000020000000 
ST2	032223 035444 0   0   777777777777 0            000020000000 
ST9	032223 035444 0   0   777777777777 0            000020000000 


*032223 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032223 032223 0   0   444000035412 0            0            
IT1	032223 0      0   0   444000035412 0            0            
AT3	032223 0      0   0   000000035412 0            444000035412 
AT6	032223 035412 0   0   000000035412 0            444000035412 
FT0	032223 035412 0   0   0            0            444000035412 
FT1A	032223 035412 0   0   0            0            0            
FT2	032223 035412 0   0   0            0            0            
FT2RQ	032223 035412 0   0   777777777777 0            0            
FT3	032223 035412 0   0   777777777777 0            0            
FT9	032224 035412 0   0   777777777777 0            0            
ET0	032224 035412 0   0   0            0            0            
ST1	032224 035412 0   0   0            0            0            
ST2	032224 035412 0   0   0            0            0            
ST9	032224 035412 0   0   0            0            0            


*032224 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032224 032224 0   0   332000000000 0            0            
IT1	032224 0      0   0   332000000000 0            0            
AT3	032224 0      0   0   0            0            332000000000 
AT6	032224 0      0   0   0            0            332000000000 
FT0	032224 0      0   0   0            0            332000000000 
FT1A	032224 0      0   0   0            0            0            
FT9	032225 0      0   0   0            0            0            
ET0	032226 0      0   0   0            0            0            
ST1A	032226 0      0   0   0            0            0            
ST9	032226 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 271
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0550

*032226 JUMPA	0,032227
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032226 032226 0   0   324000032227 0            000000032227 
IT1	032226 0      0   0   324000032227 0            000000032227 
AT3	032226 0      0   0   000000032227 0            324000032227 
AT6	032226 032227 0   0   000000032227 0            324000032227 
FT1A	032226 032227 0   0   000000032227 0            000000032227 
FT2	032226 032227 0   0   0            0            000000032227 
FT2RQ	032226 032227 0   0   0            0            000000032227 
FT3	032226 032227 0   0   0            0            000000032227 
FT9	032227 032227 0   0   0            0            000000032227 
ET0	032227 032227 0   0   0            0            000000032227 
ST1A	032227 032227 0   0   0            0            000000032227 
ST9	032227 032227 0   0   0            0            000000032227 


*032227 MOVE 	0,035444
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032227 032227 0   0   200000035444 0            000020000000 
IT1	032227 0      0   0   200000035444 0            000020000000 
AT3	032227 0      0   0   000000035444 0            200000035444 
AT6	032227 035444 0   0   000000035444 0            200000035444 
FT0	032227 035444 0   0   000020000000 0            200000035444 
FT1A	032227 035444 0   0   000020000000 0            000020000000 
FT9	032230 035444 0   0   000020000000 0            000020000000 
ET0	032230 035444 0   0   000020000000 0            000020000000 
ST1	032230 035444 0   0   000020000000 0            000020000000 
ST2	032230 035444 0   0   000020000000 0            000020000000 
ST9	032230 035444 0   0   000020000000 0            000020000000 


*032230 ADD 	0,035444
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032230 032230 0   0   270000035444 0            000020000000 
IT1	032230 0      0   0   270000035444 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 272
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0551

AT3	032230 0      0   0   000000035444 0            270000035444 
AT6	032230 035444 0   0   000000035444 0            270000035444 
FT0	032230 035444 0   0   000020000000 0            270000035444 
FT1A	032230 035444 0   0   000020000000 0            000020000000 
FT2	032230 035444 0   0   0            0            000020000000 
FT2RQ	032230 035444 0   0   000020000000 0            000020000000 
FT3	032230 035444 0   0   000020000000 0            000020000000 
FT9	032231 035444 0   0   000020000000 0            000020000000 
ET0	032231 035444 0   0   000040000000 0            000020000000 
ST1	032231 035444 0   0   000040000000 0            000020000000 
ST2	032231 035444 0   0   000040000000 0            000020000000 
ST9	032231 035444 0   0   000040000000 0            000020000000 


*032231 EQV 	0,035445
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032231 032231 0   0   444000035445 0            000040000000 
IT1	032231 0      0   0   444000035445 0            000040000000 
AT3	032231 0      0   0   000000035445 0            444000035445 
AT6	032231 035445 0   0   000000035445 0            444000035445 
FT0	032231 035445 0   0   000040000000 0            444000035445 
FT1A	032231 035445 0   0   000040000000 0            000040000000 
FT2	032231 035445 0   0   0            0            000040000000 
FT2RQ	032231 035445 0   0   000040000000 0            000040000000 
FT3	032231 035445 0   0   000040000000 0            000040000000 
FT9	032232 035445 0   0   000040000000 0            000040000000 
ET0	032232 035445 0   0   777777777777 0            000040000000 
ST1	032232 035445 0   0   777777777777 0            000040000000 
ST2	032232 035445 0   0   777777777777 0            000040000000 
ST9	032232 035445 0   0   777777777777 0            000040000000 


*032232 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032232 032232 0   0   444000035412 0            0            
IT1	032232 0      0   0   444000035412 0            0            
AT3	032232 0      0   0   000000035412 0            444000035412 
AT6	032232 035412 0   0   000000035412 0            444000035412 
FT0	032232 035412 0   0   0            0            444000035412 
FT1A	032232 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 273
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0552

FT2	032232 035412 0   0   0            0            0            
FT2RQ	032232 035412 0   0   777777777777 0            0            
FT3	032232 035412 0   0   777777777777 0            0            
FT9	032233 035412 0   0   777777777777 0            0            
ET0	032233 035412 0   0   0            0            0            
ST1	032233 035412 0   0   0            0            0            
ST2	032233 035412 0   0   0            0            0            
ST9	032233 035412 0   0   0            0            0            


*032233 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032233 032233 0   0   332000000000 0            0            
IT1	032233 0      0   0   332000000000 0            0            
AT3	032233 0      0   0   0            0            332000000000 
AT6	032233 0      0   0   0            0            332000000000 
FT0	032233 0      0   0   0            0            332000000000 
FT1A	032233 0      0   0   0            0            0            
FT9	032234 0      0   0   0            0            0            
ET0	032235 0      0   0   0            0            0            
ST1A	032235 0      0   0   0            0            0            
ST9	032235 0      0   0   0            0            0            


*032235 JUMPA	0,032236
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032235 032235 0   0   324000032236 0            000000032236 
IT1	032235 0      0   0   324000032236 0            000000032236 
AT3	032235 0      0   0   000000032236 0            324000032236 
AT6	032235 032236 0   0   000000032236 0            324000032236 
FT1A	032235 032236 0   0   000000032236 0            000000032236 
FT2	032235 032236 0   0   0            0            000000032236 
FT2RQ	032235 032236 0   0   0            0            000000032236 
FT3	032235 032236 0   0   0            0            000000032236 
FT9	032236 032236 0   0   0            0            000000032236 
ET0	032236 032236 0   0   0            0            000000032236 
ST1A	032236 032236 0   0   0            0            000000032236 
ST9	032236 032236 0   0   0            0            000000032236 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 274
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0553

*032236 MOVE 	0,035445
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032236 032236 0   0   200000035445 0            000040000000 
IT1	032236 0      0   0   200000035445 0            000040000000 
AT3	032236 0      0   0   000000035445 0            200000035445 
AT6	032236 035445 0   0   000000035445 0            200000035445 
FT0	032236 035445 0   0   000040000000 0            200000035445 
FT1A	032236 035445 0   0   000040000000 0            000040000000 
FT9	032237 035445 0   0   000040000000 0            000040000000 
ET0	032237 035445 0   0   000040000000 0            000040000000 
ST1	032237 035445 0   0   000040000000 0            000040000000 
ST2	032237 035445 0   0   000040000000 0            000040000000 
ST9	032237 035445 0   0   000040000000 0            000040000000 


*032237 ADD 	0,035445
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032237 032237 0   0   270000035445 0            000040000000 
IT1	032237 0      0   0   270000035445 0            000040000000 
AT3	032237 0      0   0   000000035445 0            270000035445 
AT6	032237 035445 0   0   000000035445 0            270000035445 
FT0	032237 035445 0   0   000040000000 0            270000035445 
FT1A	032237 035445 0   0   000040000000 0            000040000000 
FT2	032237 035445 0   0   0            0            000040000000 
FT2RQ	032237 035445 0   0   000040000000 0            000040000000 
FT3	032237 035445 0   0   000040000000 0            000040000000 
FT9	032240 035445 0   0   000040000000 0            000040000000 
ET0	032240 035445 0   0   000100000000 0            000040000000 
ST1	032240 035445 0   0   000100000000 0            000040000000 
ST2	032240 035445 0   0   000100000000 0            000040000000 
ST9	032240 035445 0   0   000100000000 0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 275
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0554

*032240 EQV 	0,035446
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032240 032240 0   0   444000035446 0            000100000000 
IT1	032240 0      0   0   444000035446 0            000100000000 
AT3	032240 0      0   0   000000035446 0            444000035446 
AT6	032240 035446 0   0   000000035446 0            444000035446 
FT0	032240 035446 0   0   000100000000 0            444000035446 
FT1A	032240 035446 0   0   000100000000 0            000100000000 
FT2	032240 035446 0   0   0            0            000100000000 
FT2RQ	032240 035446 0   0   000100000000 0            000100000000 
FT3	032240 035446 0   0   000100000000 0            000100000000 
FT9	032241 035446 0   0   000100000000 0            000100000000 
ET0	032241 035446 0   0   777777777777 0            000100000000 
ST1	032241 035446 0   0   777777777777 0            000100000000 
ST2	032241 035446 0   0   777777777777 0            000100000000 
ST9	032241 035446 0   0   777777777777 0            000100000000 


*032241 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032241 032241 0   0   444000035412 0            0            
IT1	032241 0      0   0   444000035412 0            0            
AT3	032241 0      0   0   000000035412 0            444000035412 
AT6	032241 035412 0   0   000000035412 0            444000035412 
FT0	032241 035412 0   0   0            0            444000035412 
FT1A	032241 035412 0   0   0            0            0            
FT2	032241 035412 0   0   0            0            0            
FT2RQ	032241 035412 0   0   777777777777 0            0            
FT3	032241 035412 0   0   777777777777 0            0            
FT9	032242 035412 0   0   777777777777 0            0            
ET0	032242 035412 0   0   0            0            0            
ST1	032242 035412 0   0   0            0            0            
ST2	032242 035412 0   0   0            0            0            
ST9	032242 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 276
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0555

*032242 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032242 032242 0   0   332000000000 0            0            
IT1	032242 0      0   0   332000000000 0            0            
AT3	032242 0      0   0   0            0            332000000000 
AT6	032242 0      0   0   0            0            332000000000 
FT0	032242 0      0   0   0            0            332000000000 
FT1A	032242 0      0   0   0            0            0            
FT9	032243 0      0   0   0            0            0            
ET0	032244 0      0   0   0            0            0            
ST1A	032244 0      0   0   0            0            0            
ST9	032244 0      0   0   0            0            0            


*032244 JUMPA	0,032245
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032244 032244 0   0   324000032245 0            000000032245 
IT1	032244 0      0   0   324000032245 0            000000032245 
AT3	032244 0      0   0   000000032245 0            324000032245 
AT6	032244 032245 0   0   000000032245 0            324000032245 
FT1A	032244 032245 0   0   000000032245 0            000000032245 
FT2	032244 032245 0   0   0            0            000000032245 
FT2RQ	032244 032245 0   0   0            0            000000032245 
FT3	032244 032245 0   0   0            0            000000032245 
FT9	032245 032245 0   0   0            0            000000032245 
ET0	032245 032245 0   0   0            0            000000032245 
ST1A	032245 032245 0   0   0            0            000000032245 
ST9	032245 032245 0   0   0            0            000000032245 


*032245 MOVE 	0,035446
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032245 032245 0   0   200000035446 0            000100000000 
IT1	032245 0      0   0   200000035446 0            000100000000 
AT3	032245 0      0   0   000000035446 0            200000035446 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 277
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0556

AT6	032245 035446 0   0   000000035446 0            200000035446 
FT0	032245 035446 0   0   000100000000 0            200000035446 
FT1A	032245 035446 0   0   000100000000 0            000100000000 
FT9	032246 035446 0   0   000100000000 0            000100000000 
ET0	032246 035446 0   0   000100000000 0            000100000000 
ST1	032246 035446 0   0   000100000000 0            000100000000 
ST2	032246 035446 0   0   000100000000 0            000100000000 
ST9	032246 035446 0   0   000100000000 0            000100000000 


*032246 ADD 	0,035446
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032246 032246 0   0   270000035446 0            000100000000 
IT1	032246 0      0   0   270000035446 0            000100000000 
AT3	032246 0      0   0   000000035446 0            270000035446 
AT6	032246 035446 0   0   000000035446 0            270000035446 
FT0	032246 035446 0   0   000100000000 0            270000035446 
FT1A	032246 035446 0   0   000100000000 0            000100000000 
FT2	032246 035446 0   0   0            0            000100000000 
FT2RQ	032246 035446 0   0   000100000000 0            000100000000 
FT3	032246 035446 0   0   000100000000 0            000100000000 
FT9	032247 035446 0   0   000100000000 0            000100000000 
ET0	032247 035446 0   0   000200000000 0            000100000000 
ST1	032247 035446 0   0   000200000000 0            000100000000 
ST2	032247 035446 0   0   000200000000 0            000100000000 
ST9	032247 035446 0   0   000200000000 0            000100000000 


*032247 EQV 	0,035447
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032247 032247 0   0   444000035447 0            000200000000 
IT1	032247 0      0   0   444000035447 0            000200000000 
AT3	032247 0      0   0   000000035447 0            444000035447 
AT6	032247 035447 0   0   000000035447 0            444000035447 
FT0	032247 035447 0   0   000200000000 0            444000035447 
FT1A	032247 035447 0   0   000200000000 0            000200000000 
FT2	032247 035447 0   0   0            0            000200000000 
FT2RQ	032247 035447 0   0   000200000000 0            000200000000 
FT3	032247 035447 0   0   000200000000 0            000200000000 
FT9	032250 035447 0   0   000200000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 278
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0557

ET0	032250 035447 0   0   777777777777 0            000200000000 
ST1	032250 035447 0   0   777777777777 0            000200000000 
ST2	032250 035447 0   0   777777777777 0            000200000000 
ST9	032250 035447 0   0   777777777777 0            000200000000 


*032250 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032250 032250 0   0   444000035412 0            0            
IT1	032250 0      0   0   444000035412 0            0            
AT3	032250 0      0   0   000000035412 0            444000035412 
AT6	032250 035412 0   0   000000035412 0            444000035412 
FT0	032250 035412 0   0   0            0            444000035412 
FT1A	032250 035412 0   0   0            0            0            
FT2	032250 035412 0   0   0            0            0            
FT2RQ	032250 035412 0   0   777777777777 0            0            
FT3	032250 035412 0   0   777777777777 0            0            
FT9	032251 035412 0   0   777777777777 0            0            
ET0	032251 035412 0   0   0            0            0            
ST1	032251 035412 0   0   0            0            0            
ST2	032251 035412 0   0   0            0            0            
ST9	032251 035412 0   0   0            0            0            


*032251 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032251 032251 0   0   332000000000 0            0            
IT1	032251 0      0   0   332000000000 0            0            
AT3	032251 0      0   0   0            0            332000000000 
AT6	032251 0      0   0   0            0            332000000000 
FT0	032251 0      0   0   0            0            332000000000 
FT1A	032251 0      0   0   0            0            0            
FT9	032252 0      0   0   0            0            0            
ET0	032253 0      0   0   0            0            0            
ST1A	032253 0      0   0   0            0            0            
ST9	032253 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 279
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0558

*032253 JUMPA	0,032254
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032253 032253 0   0   324000032254 0            000000032254 
IT1	032253 0      0   0   324000032254 0            000000032254 
AT3	032253 0      0   0   000000032254 0            324000032254 
AT6	032253 032254 0   0   000000032254 0            324000032254 
FT1A	032253 032254 0   0   000000032254 0            000000032254 
FT2	032253 032254 0   0   0            0            000000032254 
FT2RQ	032253 032254 0   0   0            0            000000032254 
FT3	032253 032254 0   0   0            0            000000032254 
FT9	032254 032254 0   0   0            0            000000032254 
ET0	032254 032254 0   0   0            0            000000032254 
ST1A	032254 032254 0   0   0            0            000000032254 
ST9	032254 032254 0   0   0            0            000000032254 


*032254 MOVE 	0,035447
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032254 032254 0   0   200000035447 0            000200000000 
IT1	032254 0      0   0   200000035447 0            000200000000 
AT3	032254 0      0   0   000000035447 0            200000035447 
AT6	032254 035447 0   0   000000035447 0            200000035447 
FT0	032254 035447 0   0   000200000000 0            200000035447 
FT1A	032254 035447 0   0   000200000000 0            000200000000 
FT9	032255 035447 0   0   000200000000 0            000200000000 
ET0	032255 035447 0   0   000200000000 0            000200000000 
ST1	032255 035447 0   0   000200000000 0            000200000000 
ST2	032255 035447 0   0   000200000000 0            000200000000 
ST9	032255 035447 0   0   000200000000 0            000200000000 


*032255 ADD 	0,035447
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032255 032255 0   0   270000035447 0            000200000000 
IT1	032255 0      0   0   270000035447 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 280
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0559

AT3	032255 0      0   0   000000035447 0            270000035447 
AT6	032255 035447 0   0   000000035447 0            270000035447 
FT0	032255 035447 0   0   000200000000 0            270000035447 
FT1A	032255 035447 0   0   000200000000 0            000200000000 
FT2	032255 035447 0   0   0            0            000200000000 
FT2RQ	032255 035447 0   0   000200000000 0            000200000000 
FT3	032255 035447 0   0   000200000000 0            000200000000 
FT9	032256 035447 0   0   000200000000 0            000200000000 
ET0	032256 035447 0   0   000400000000 0            000200000000 
ST1	032256 035447 0   0   000400000000 0            000200000000 
ST2	032256 035447 0   0   000400000000 0            000200000000 
ST9	032256 035447 0   0   000400000000 0            000200000000 


*032256 EQV 	0,035450
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032256 032256 0   0   444000035450 0            000400000000 
IT1	032256 0      0   0   444000035450 0            000400000000 
AT3	032256 0      0   0   000000035450 0            444000035450 
AT6	032256 035450 0   0   000000035450 0            444000035450 
FT0	032256 035450 0   0   000400000000 0            444000035450 
FT1A	032256 035450 0   0   000400000000 0            000400000000 
FT2	032256 035450 0   0   0            0            000400000000 
FT2RQ	032256 035450 0   0   000400000000 0            000400000000 
FT3	032256 035450 0   0   000400000000 0            000400000000 
FT9	032257 035450 0   0   000400000000 0            000400000000 
ET0	032257 035450 0   0   777777777777 0            000400000000 
ST1	032257 035450 0   0   777777777777 0            000400000000 
ST2	032257 035450 0   0   777777777777 0            000400000000 
ST9	032257 035450 0   0   777777777777 0            000400000000 


*032257 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032257 032257 0   0   444000035412 0            0            
IT1	032257 0      0   0   444000035412 0            0            
AT3	032257 0      0   0   000000035412 0            444000035412 
AT6	032257 035412 0   0   000000035412 0            444000035412 
FT0	032257 035412 0   0   0            0            444000035412 
FT1A	032257 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 281
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0560

FT2	032257 035412 0   0   0            0            0            
FT2RQ	032257 035412 0   0   777777777777 0            0            
FT3	032257 035412 0   0   777777777777 0            0            
FT9	032260 035412 0   0   777777777777 0            0            
ET0	032260 035412 0   0   0            0            0            
ST1	032260 035412 0   0   0            0            0            
ST2	032260 035412 0   0   0            0            0            
ST9	032260 035412 0   0   0            0            0            


*032260 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032260 032260 0   0   332000000000 0            0            
IT1	032260 0      0   0   332000000000 0            0            
AT3	032260 0      0   0   0            0            332000000000 
AT6	032260 0      0   0   0            0            332000000000 
FT0	032260 0      0   0   0            0            332000000000 
FT1A	032260 0      0   0   0            0            0            
FT9	032261 0      0   0   0            0            0            
ET0	032262 0      0   0   0            0            0            
ST1A	032262 0      0   0   0            0            0            
ST9	032262 0      0   0   0            0            0            


*032262 JUMPA	0,032263
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032262 032262 0   0   324000032263 0            000000032263 
IT1	032262 0      0   0   324000032263 0            000000032263 
AT3	032262 0      0   0   000000032263 0            324000032263 
AT6	032262 032263 0   0   000000032263 0            324000032263 
FT1A	032262 032263 0   0   000000032263 0            000000032263 
FT2	032262 032263 0   0   0            0            000000032263 
FT2RQ	032262 032263 0   0   0            0            000000032263 
FT3	032262 032263 0   0   0            0            000000032263 
FT9	032263 032263 0   0   0            0            000000032263 
ET0	032263 032263 0   0   0            0            000000032263 
ST1A	032263 032263 0   0   0            0            000000032263 
ST9	032263 032263 0   0   0            0            000000032263 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 282
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0561

*032263 MOVE 	0,035450
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032263 032263 0   0   200000035450 0            000400000000 
IT1	032263 0      0   0   200000035450 0            000400000000 
AT3	032263 0      0   0   000000035450 0            200000035450 
AT6	032263 035450 0   0   000000035450 0            200000035450 
FT0	032263 035450 0   0   000400000000 0            200000035450 
FT1A	032263 035450 0   0   000400000000 0            000400000000 
FT9	032264 035450 0   0   000400000000 0            000400000000 
ET0	032264 035450 0   0   000400000000 0            000400000000 
ST1	032264 035450 0   0   000400000000 0            000400000000 
ST2	032264 035450 0   0   000400000000 0            000400000000 
ST9	032264 035450 0   0   000400000000 0            000400000000 


*032264 ADD 	0,035450
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032264 032264 0   0   270000035450 0            000400000000 
IT1	032264 0      0   0   270000035450 0            000400000000 
AT3	032264 0      0   0   000000035450 0            270000035450 
AT6	032264 035450 0   0   000000035450 0            270000035450 
FT0	032264 035450 0   0   000400000000 0            270000035450 
FT1A	032264 035450 0   0   000400000000 0            000400000000 
FT2	032264 035450 0   0   0            0            000400000000 
FT2RQ	032264 035450 0   0   000400000000 0            000400000000 
FT3	032264 035450 0   0   000400000000 0            000400000000 
FT9	032265 035450 0   0   000400000000 0            000400000000 
ET0	032265 035450 0   0   001000000000 0            000400000000 
ST1	032265 035450 0   0   001000000000 0            000400000000 
ST2	032265 035450 0   0   001000000000 0            000400000000 
ST9	032265 035450 0   0   001000000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 283
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0562

*032265 EQV 	0,035451
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032265 032265 0   0   444000035451 0            001000000000 
IT1	032265 0      0   0   444000035451 0            001000000000 
AT3	032265 0      0   0   000000035451 0            444000035451 
AT6	032265 035451 0   0   000000035451 0            444000035451 
FT0	032265 035451 0   0   001000000000 0            444000035451 
FT1A	032265 035451 0   0   001000000000 0            001000000000 
FT2	032265 035451 0   0   0            0            001000000000 
FT2RQ	032265 035451 0   0   001000000000 0            001000000000 
FT3	032265 035451 0   0   001000000000 0            001000000000 
FT9	032266 035451 0   0   001000000000 0            001000000000 
ET0	032266 035451 0   0   777777777777 0            001000000000 
ST1	032266 035451 0   0   777777777777 0            001000000000 
ST2	032266 035451 0   0   777777777777 0            001000000000 
ST9	032266 035451 0   0   777777777777 0            001000000000 


*032266 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032266 032266 0   0   444000035412 0            0            
IT1	032266 0      0   0   444000035412 0            0            
AT3	032266 0      0   0   000000035412 0            444000035412 
AT6	032266 035412 0   0   000000035412 0            444000035412 
FT0	032266 035412 0   0   0            0            444000035412 
FT1A	032266 035412 0   0   0            0            0            
FT2	032266 035412 0   0   0            0            0            
FT2RQ	032266 035412 0   0   777777777777 0            0            
FT3	032266 035412 0   0   777777777777 0            0            
FT9	032267 035412 0   0   777777777777 0            0            
ET0	032267 035412 0   0   0            0            0            
ST1	032267 035412 0   0   0            0            0            
ST2	032267 035412 0   0   0            0            0            
ST9	032267 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 284
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0563

*032267 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032267 032267 0   0   332000000000 0            0            
IT1	032267 0      0   0   332000000000 0            0            
AT3	032267 0      0   0   0            0            332000000000 
AT6	032267 0      0   0   0            0            332000000000 
FT0	032267 0      0   0   0            0            332000000000 
FT1A	032267 0      0   0   0            0            0            
FT9	032270 0      0   0   0            0            0            
ET0	032271 0      0   0   0            0            0            
ST1A	032271 0      0   0   0            0            0            
ST9	032271 0      0   0   0            0            0            


*032271 JUMPA	0,032272
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032271 032271 0   0   324000032272 0            000000032272 
IT1	032271 0      0   0   324000032272 0            000000032272 
AT3	032271 0      0   0   000000032272 0            324000032272 
AT6	032271 032272 0   0   000000032272 0            324000032272 
FT1A	032271 032272 0   0   000000032272 0            000000032272 
FT2	032271 032272 0   0   0            0            000000032272 
FT2RQ	032271 032272 0   0   0            0            000000032272 
FT3	032271 032272 0   0   0            0            000000032272 
FT9	032272 032272 0   0   0            0            000000032272 
ET0	032272 032272 0   0   0            0            000000032272 
ST1A	032272 032272 0   0   0            0            000000032272 
ST9	032272 032272 0   0   0            0            000000032272 


*032272 MOVE 	0,035451
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032272 032272 0   0   200000035451 0            001000000000 
IT1	032272 0      0   0   200000035451 0            001000000000 
AT3	032272 0      0   0   000000035451 0            200000035451 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 285
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0564

AT6	032272 035451 0   0   000000035451 0            200000035451 
FT0	032272 035451 0   0   001000000000 0            200000035451 
FT1A	032272 035451 0   0   001000000000 0            001000000000 
FT9	032273 035451 0   0   001000000000 0            001000000000 
ET0	032273 035451 0   0   001000000000 0            001000000000 
ST1	032273 035451 0   0   001000000000 0            001000000000 
ST2	032273 035451 0   0   001000000000 0            001000000000 
ST9	032273 035451 0   0   001000000000 0            001000000000 


*032273 ADD 	0,035451
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032273 032273 0   0   270000035451 0            001000000000 
IT1	032273 0      0   0   270000035451 0            001000000000 
AT3	032273 0      0   0   000000035451 0            270000035451 
AT6	032273 035451 0   0   000000035451 0            270000035451 
FT0	032273 035451 0   0   001000000000 0            270000035451 
FT1A	032273 035451 0   0   001000000000 0            001000000000 
FT2	032273 035451 0   0   0            0            001000000000 
FT2RQ	032273 035451 0   0   001000000000 0            001000000000 
FT3	032273 035451 0   0   001000000000 0            001000000000 
FT9	032274 035451 0   0   001000000000 0            001000000000 
ET0	032274 035451 0   0   002000000000 0            001000000000 
ST1	032274 035451 0   0   002000000000 0            001000000000 
ST2	032274 035451 0   0   002000000000 0            001000000000 
ST9	032274 035451 0   0   002000000000 0            001000000000 


*032274 EQV 	0,035452
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032274 032274 0   0   444000035452 0            002000000000 
IT1	032274 0      0   0   444000035452 0            002000000000 
AT3	032274 0      0   0   000000035452 0            444000035452 
AT6	032274 035452 0   0   000000035452 0            444000035452 
FT0	032274 035452 0   0   002000000000 0            444000035452 
FT1A	032274 035452 0   0   002000000000 0            002000000000 
FT2	032274 035452 0   0   0            0            002000000000 
FT2RQ	032274 035452 0   0   002000000000 0            002000000000 
FT3	032274 035452 0   0   002000000000 0            002000000000 
FT9	032275 035452 0   0   002000000000 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 286
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0565

ET0	032275 035452 0   0   777777777777 0            002000000000 
ST1	032275 035452 0   0   777777777777 0            002000000000 
ST2	032275 035452 0   0   777777777777 0            002000000000 
ST9	032275 035452 0   0   777777777777 0            002000000000 


*032275 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032275 032275 0   0   444000035412 0            0            
IT1	032275 0      0   0   444000035412 0            0            
AT3	032275 0      0   0   000000035412 0            444000035412 
AT6	032275 035412 0   0   000000035412 0            444000035412 
FT0	032275 035412 0   0   0            0            444000035412 
FT1A	032275 035412 0   0   0            0            0            
FT2	032275 035412 0   0   0            0            0            
FT2RQ	032275 035412 0   0   777777777777 0            0            
FT3	032275 035412 0   0   777777777777 0            0            
FT9	032276 035412 0   0   777777777777 0            0            
ET0	032276 035412 0   0   0            0            0            
ST1	032276 035412 0   0   0            0            0            
ST2	032276 035412 0   0   0            0            0            
ST9	032276 035412 0   0   0            0            0            


*032276 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032276 032276 0   0   332000000000 0            0            
IT1	032276 0      0   0   332000000000 0            0            
AT3	032276 0      0   0   0            0            332000000000 
AT6	032276 0      0   0   0            0            332000000000 
FT0	032276 0      0   0   0            0            332000000000 
FT1A	032276 0      0   0   0            0            0            
FT9	032277 0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1A	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 287
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0566

*032300 JUMPA	0,032301
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000032301 0            000000032301 
IT1	0      0      0   0   324000032301 0            000000032301 
AT3	0      0      0   0   000000032301 0            324000032301 
AT6	0      032301 0   0   000000032301 0            324000032301 
FT1A	0      032301 0   0   000000032301 0            000000032301 
FT2	0      032301 0   0   0            0            000000032301 
FT2RQ	0      032301 0   0   0            0            000000032301 
FT3	0      032301 0   0   0            0            000000032301 
FT9	032301 032301 0   0   0            0            000000032301 
ET0	032301 032301 0   0   0            0            000000032301 
ST1A	032301 032301 0   0   0            0            000000032301 
ST9	032301 032301 0   0   0            0            000000032301 


*032301 MOVE 	0,035452
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032301 032301 0   0   200000035452 0            002000000000 
IT1	032301 0      0   0   200000035452 0            002000000000 
AT3	032301 0      0   0   000000035452 0            200000035452 
AT6	032301 035452 0   0   000000035452 0            200000035452 
FT0	032301 035452 0   0   002000000000 0            200000035452 
FT1A	032301 035452 0   0   002000000000 0            002000000000 
FT9	032302 035452 0   0   002000000000 0            002000000000 
ET0	032302 035452 0   0   002000000000 0            002000000000 
ST1	032302 035452 0   0   002000000000 0            002000000000 
ST2	032302 035452 0   0   002000000000 0            002000000000 
ST9	032302 035452 0   0   002000000000 0            002000000000 


*032302 ADD 	0,035452
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032302 032302 0   0   270000035452 0            002000000000 
IT1	032302 0      0   0   270000035452 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 288
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0567

AT3	032302 0      0   0   000000035452 0            270000035452 
AT6	032302 035452 0   0   000000035452 0            270000035452 
FT0	032302 035452 0   0   002000000000 0            270000035452 
FT1A	032302 035452 0   0   002000000000 0            002000000000 
FT2	032302 035452 0   0   0            0            002000000000 
FT2RQ	032302 035452 0   0   002000000000 0            002000000000 
FT3	032302 035452 0   0   002000000000 0            002000000000 
FT9	032303 035452 0   0   002000000000 0            002000000000 
ET0	032303 035452 0   0   004000000000 0            002000000000 
ST1	032303 035452 0   0   004000000000 0            002000000000 
ST2	032303 035452 0   0   004000000000 0            002000000000 
ST9	032303 035452 0   0   004000000000 0            002000000000 


*032303 EQV 	0,035453
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032303 032303 0   0   444000035453 0            004000000000 
IT1	032303 0      0   0   444000035453 0            004000000000 
AT3	032303 0      0   0   000000035453 0            444000035453 
AT6	032303 035453 0   0   000000035453 0            444000035453 
FT0	032303 035453 0   0   004000000000 0            444000035453 
FT1A	032303 035453 0   0   004000000000 0            004000000000 
FT2	032303 035453 0   0   0            0            004000000000 
FT2RQ	032303 035453 0   0   004000000000 0            004000000000 
FT3	032303 035453 0   0   004000000000 0            004000000000 
FT9	032304 035453 0   0   004000000000 0            004000000000 
ET0	032304 035453 0   0   777777777777 0            004000000000 
ST1	032304 035453 0   0   777777777777 0            004000000000 
ST2	032304 035453 0   0   777777777777 0            004000000000 
ST9	032304 035453 0   0   777777777777 0            004000000000 


*032304 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032304 032304 0   0   444000035412 0            0            
IT1	032304 0      0   0   444000035412 0            0            
AT3	032304 0      0   0   000000035412 0            444000035412 
AT6	032304 035412 0   0   000000035412 0            444000035412 
FT0	032304 035412 0   0   0            0            444000035412 
FT1A	032304 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 289
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0568

FT2	032304 035412 0   0   0            0            0            
FT2RQ	032304 035412 0   0   777777777777 0            0            
FT3	032304 035412 0   0   777777777777 0            0            
FT9	032305 035412 0   0   777777777777 0            0            
ET0	032305 035412 0   0   0            0            0            
ST1	032305 035412 0   0   0            0            0            
ST2	032305 035412 0   0   0            0            0            
ST9	032305 035412 0   0   0            0            0            


*032305 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032305 032305 0   0   332000000000 0            0            
IT1	032305 0      0   0   332000000000 0            0            
AT3	032305 0      0   0   0            0            332000000000 
AT6	032305 0      0   0   0            0            332000000000 
FT0	032305 0      0   0   0            0            332000000000 
FT1A	032305 0      0   0   0            0            0            
FT9	032306 0      0   0   0            0            0            
ET0	032307 0      0   0   0            0            0            
ST1A	032307 0      0   0   0            0            0            
ST9	032307 0      0   0   0            0            0            


*032307 JUMPA	0,032310
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032307 032307 0   0   324000032310 0            000000032310 
IT1	032307 0      0   0   324000032310 0            000000032310 
AT3	032307 0      0   0   000000032310 0            324000032310 
AT6	032307 032310 0   0   000000032310 0            324000032310 
FT1A	032307 032310 0   0   000000032310 0            000000032310 
FT2	032307 032310 0   0   0            0            000000032310 
FT2RQ	032307 032310 0   0   0            0            000000032310 
FT3	032307 032310 0   0   0            0            000000032310 
FT9	032310 032310 0   0   0            0            000000032310 
ET0	032310 032310 0   0   0            0            000000032310 
ST1A	032310 032310 0   0   0            0            000000032310 
ST9	032310 032310 0   0   0            0            000000032310 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 290
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0569

*032310 MOVE 	0,035453
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032310 032310 0   0   200000035453 0            004000000000 
IT1	032310 0      0   0   200000035453 0            004000000000 
AT3	032310 0      0   0   000000035453 0            200000035453 
AT6	032310 035453 0   0   000000035453 0            200000035453 
FT0	032310 035453 0   0   004000000000 0            200000035453 
FT1A	032310 035453 0   0   004000000000 0            004000000000 
FT9	032311 035453 0   0   004000000000 0            004000000000 
ET0	032311 035453 0   0   004000000000 0            004000000000 
ST1	032311 035453 0   0   004000000000 0            004000000000 
ST2	032311 035453 0   0   004000000000 0            004000000000 
ST9	032311 035453 0   0   004000000000 0            004000000000 


*032311 ADD 	0,035453
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032311 032311 0   0   270000035453 0            004000000000 
IT1	032311 0      0   0   270000035453 0            004000000000 
AT3	032311 0      0   0   000000035453 0            270000035453 
AT6	032311 035453 0   0   000000035453 0            270000035453 
FT0	032311 035453 0   0   004000000000 0            270000035453 
FT1A	032311 035453 0   0   004000000000 0            004000000000 
FT2	032311 035453 0   0   0            0            004000000000 
FT2RQ	032311 035453 0   0   004000000000 0            004000000000 
FT3	032311 035453 0   0   004000000000 0            004000000000 
FT9	032312 035453 0   0   004000000000 0            004000000000 
ET0	032312 035453 0   0   010000000000 0            004000000000 
ST1	032312 035453 0   0   010000000000 0            004000000000 
ST2	032312 035453 0   0   010000000000 0            004000000000 
ST9	032312 035453 0   0   010000000000 0            004000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 291
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0570

*032312 EQV 	0,035454
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032312 032312 0   0   444000035454 0            010000000000 
IT1	032312 0      0   0   444000035454 0            010000000000 
AT3	032312 0      0   0   000000035454 0            444000035454 
AT6	032312 035454 0   0   000000035454 0            444000035454 
FT0	032312 035454 0   0   010000000000 0            444000035454 
FT1A	032312 035454 0   0   010000000000 0            010000000000 
FT2	032312 035454 0   0   0            0            010000000000 
FT2RQ	032312 035454 0   0   010000000000 0            010000000000 
FT3	032312 035454 0   0   010000000000 0            010000000000 
FT9	032313 035454 0   0   010000000000 0            010000000000 
ET0	032313 035454 0   0   777777777777 0            010000000000 
ST1	032313 035454 0   0   777777777777 0            010000000000 
ST2	032313 035454 0   0   777777777777 0            010000000000 
ST9	032313 035454 0   0   777777777777 0            010000000000 


*032313 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032313 032313 0   0   444000035412 0            0            
IT1	032313 0      0   0   444000035412 0            0            
AT3	032313 0      0   0   000000035412 0            444000035412 
AT6	032313 035412 0   0   000000035412 0            444000035412 
FT0	032313 035412 0   0   0            0            444000035412 
FT1A	032313 035412 0   0   0            0            0            
FT2	032313 035412 0   0   0            0            0            
FT2RQ	032313 035412 0   0   777777777777 0            0            
FT3	032313 035412 0   0   777777777777 0            0            
FT9	032314 035412 0   0   777777777777 0            0            
ET0	032314 035412 0   0   0            0            0            
ST1	032314 035412 0   0   0            0            0            
ST2	032314 035412 0   0   0            0            0            
ST9	032314 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 292
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0571

*032314 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032314 032314 0   0   332000000000 0            0            
IT1	032314 0      0   0   332000000000 0            0            
AT3	032314 0      0   0   0            0            332000000000 
AT6	032314 0      0   0   0            0            332000000000 
FT0	032314 0      0   0   0            0            332000000000 
FT1A	032314 0      0   0   0            0            0            
FT9	032315 0      0   0   0            0            0            
ET0	032316 0      0   0   0            0            0            
ST1A	032316 0      0   0   0            0            0            
ST9	032316 0      0   0   0            0            0            


*032316 JUMPA	0,032317
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032316 032316 0   0   324000032317 0            000000032317 
IT1	032316 0      0   0   324000032317 0            000000032317 
AT3	032316 0      0   0   000000032317 0            324000032317 
AT6	032316 032317 0   0   000000032317 0            324000032317 
FT1A	032316 032317 0   0   000000032317 0            000000032317 
FT2	032316 032317 0   0   0            0            000000032317 
FT2RQ	032316 032317 0   0   0            0            000000032317 
FT3	032316 032317 0   0   0            0            000000032317 
FT9	032317 032317 0   0   0            0            000000032317 
ET0	032317 032317 0   0   0            0            000000032317 
ST1A	032317 032317 0   0   0            0            000000032317 
ST9	032317 032317 0   0   0            0            000000032317 


*032317 MOVE 	0,035454
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032317 032317 0   0   200000035454 0            010000000000 
IT1	032317 0      0   0   200000035454 0            010000000000 
AT3	032317 0      0   0   000000035454 0            200000035454 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 293
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0572

AT6	032317 035454 0   0   000000035454 0            200000035454 
FT0	032317 035454 0   0   010000000000 0            200000035454 
FT1A	032317 035454 0   0   010000000000 0            010000000000 
FT9	032320 035454 0   0   010000000000 0            010000000000 
ET0	032320 035454 0   0   010000000000 0            010000000000 
ST1	032320 035454 0   0   010000000000 0            010000000000 
ST2	032320 035454 0   0   010000000000 0            010000000000 
ST9	032320 035454 0   0   010000000000 0            010000000000 


*032320 ADD 	0,035454
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032320 032320 0   0   270000035454 0            010000000000 
IT1	032320 0      0   0   270000035454 0            010000000000 
AT3	032320 0      0   0   000000035454 0            270000035454 
AT6	032320 035454 0   0   000000035454 0            270000035454 
FT0	032320 035454 0   0   010000000000 0            270000035454 
FT1A	032320 035454 0   0   010000000000 0            010000000000 
FT2	032320 035454 0   0   0            0            010000000000 
FT2RQ	032320 035454 0   0   010000000000 0            010000000000 
FT3	032320 035454 0   0   010000000000 0            010000000000 
FT9	032321 035454 0   0   010000000000 0            010000000000 
ET0	032321 035454 0   0   020000000000 0            010000000000 
ST1	032321 035454 0   0   020000000000 0            010000000000 
ST2	032321 035454 0   0   020000000000 0            010000000000 
ST9	032321 035454 0   0   020000000000 0            010000000000 


*032321 EQV 	0,035455
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032321 032321 0   0   444000035455 0            020000000000 
IT1	032321 0      0   0   444000035455 0            020000000000 
AT3	032321 0      0   0   000000035455 0            444000035455 
AT6	032321 035455 0   0   000000035455 0            444000035455 
FT0	032321 035455 0   0   020000000000 0            444000035455 
FT1A	032321 035455 0   0   020000000000 0            020000000000 
FT2	032321 035455 0   0   0            0            020000000000 
FT2RQ	032321 035455 0   0   020000000000 0            020000000000 
FT3	032321 035455 0   0   020000000000 0            020000000000 
FT9	032322 035455 0   0   020000000000 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 294
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0573

ET0	032322 035455 0   0   777777777777 0            020000000000 
ST1	032322 035455 0   0   777777777777 0            020000000000 
ST2	032322 035455 0   0   777777777777 0            020000000000 
ST9	032322 035455 0   0   777777777777 0            020000000000 


*032322 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032322 032322 0   0   444000035412 0            0            
IT1	032322 0      0   0   444000035412 0            0            
AT3	032322 0      0   0   000000035412 0            444000035412 
AT6	032322 035412 0   0   000000035412 0            444000035412 
FT0	032322 035412 0   0   0            0            444000035412 
FT1A	032322 035412 0   0   0            0            0            
FT2	032322 035412 0   0   0            0            0            
FT2RQ	032322 035412 0   0   777777777777 0            0            
FT3	032322 035412 0   0   777777777777 0            0            
FT9	032323 035412 0   0   777777777777 0            0            
ET0	032323 035412 0   0   0            0            0            
ST1	032323 035412 0   0   0            0            0            
ST2	032323 035412 0   0   0            0            0            
ST9	032323 035412 0   0   0            0            0            


*032323 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032323 032323 0   0   332000000000 0            0            
IT1	032323 0      0   0   332000000000 0            0            
AT3	032323 0      0   0   0            0            332000000000 
AT6	032323 0      0   0   0            0            332000000000 
FT0	032323 0      0   0   0            0            332000000000 
FT1A	032323 0      0   0   0            0            0            
FT9	032324 0      0   0   0            0            0            
ET0	032325 0      0   0   0            0            0            
ST1A	032325 0      0   0   0            0            0            
ST9	032325 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 295
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0574

*032325 JUMPA	0,032326
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032325 032325 0   0   324000032326 0            000000032326 
IT1	032325 0      0   0   324000032326 0            000000032326 
AT3	032325 0      0   0   000000032326 0            324000032326 
AT6	032325 032326 0   0   000000032326 0            324000032326 
FT1A	032325 032326 0   0   000000032326 0            000000032326 
FT2	032325 032326 0   0   0            0            000000032326 
FT2RQ	032325 032326 0   0   0            0            000000032326 
FT3	032325 032326 0   0   0            0            000000032326 
FT9	032326 032326 0   0   0            0            000000032326 
ET0	032326 032326 0   0   0            0            000000032326 
ST1A	032326 032326 0   0   0            0            000000032326 
ST9	032326 032326 0   0   0            0            000000032326 


*032326 MOVE 	0,035455
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032326 032326 0   0   200000035455 0            020000000000 
IT1	032326 0      0   0   200000035455 0            020000000000 
AT3	032326 0      0   0   000000035455 0            200000035455 
AT6	032326 035455 0   0   000000035455 0            200000035455 
FT0	032326 035455 0   0   020000000000 0            200000035455 
FT1A	032326 035455 0   0   020000000000 0            020000000000 
FT9	032327 035455 0   0   020000000000 0            020000000000 
ET0	032327 035455 0   0   020000000000 0            020000000000 
ST1	032327 035455 0   0   020000000000 0            020000000000 
ST2	032327 035455 0   0   020000000000 0            020000000000 
ST9	032327 035455 0   0   020000000000 0            020000000000 


*032327 ADD 	0,035455
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032327 032327 0   0   270000035455 0            020000000000 
IT1	032327 0      0   0   270000035455 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 296
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0575

AT3	032327 0      0   0   000000035455 0            270000035455 
AT6	032327 035455 0   0   000000035455 0            270000035455 
FT0	032327 035455 0   0   020000000000 0            270000035455 
FT1A	032327 035455 0   0   020000000000 0            020000000000 
FT2	032327 035455 0   0   0            0            020000000000 
FT2RQ	032327 035455 0   0   020000000000 0            020000000000 
FT3	032327 035455 0   0   020000000000 0            020000000000 
FT9	032330 035455 0   0   020000000000 0            020000000000 
ET0	032330 035455 0   0   040000000000 0            020000000000 
ST1	032330 035455 0   0   040000000000 0            020000000000 
ST2	032330 035455 0   0   040000000000 0            020000000000 
ST9	032330 035455 0   0   040000000000 0            020000000000 


*032330 EQV 	0,035456
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032330 032330 0   0   444000035456 0            040000000000 
IT1	032330 0      0   0   444000035456 0            040000000000 
AT3	032330 0      0   0   000000035456 0            444000035456 
AT6	032330 035456 0   0   000000035456 0            444000035456 
FT0	032330 035456 0   0   040000000000 0            444000035456 
FT1A	032330 035456 0   0   040000000000 0            040000000000 
FT2	032330 035456 0   0   0            0            040000000000 
FT2RQ	032330 035456 0   0   040000000000 0            040000000000 
FT3	032330 035456 0   0   040000000000 0            040000000000 
FT9	032331 035456 0   0   040000000000 0            040000000000 
ET0	032331 035456 0   0   777777777777 0            040000000000 
ST1	032331 035456 0   0   777777777777 0            040000000000 
ST2	032331 035456 0   0   777777777777 0            040000000000 
ST9	032331 035456 0   0   777777777777 0            040000000000 


*032331 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032331 032331 0   0   444000035412 0            0            
IT1	032331 0      0   0   444000035412 0            0            
AT3	032331 0      0   0   000000035412 0            444000035412 
AT6	032331 035412 0   0   000000035412 0            444000035412 
FT0	032331 035412 0   0   0            0            444000035412 
FT1A	032331 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 297
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0576

FT2	032331 035412 0   0   0            0            0            
FT2RQ	032331 035412 0   0   777777777777 0            0            
FT3	032331 035412 0   0   777777777777 0            0            
FT9	032332 035412 0   0   777777777777 0            0            
ET0	032332 035412 0   0   0            0            0            
ST1	032332 035412 0   0   0            0            0            
ST2	032332 035412 0   0   0            0            0            
ST9	032332 035412 0   0   0            0            0            


*032332 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032332 032332 0   0   332000000000 0            0            
IT1	032332 0      0   0   332000000000 0            0            
AT3	032332 0      0   0   0            0            332000000000 
AT6	032332 0      0   0   0            0            332000000000 
FT0	032332 0      0   0   0            0            332000000000 
FT1A	032332 0      0   0   0            0            0            
FT9	032333 0      0   0   0            0            0            
ET0	032334 0      0   0   0            0            0            
ST1A	032334 0      0   0   0            0            0            
ST9	032334 0      0   0   0            0            0            


*032334 JUMPA	0,032335
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032334 032334 0   0   324000032335 0            000000032335 
IT1	032334 0      0   0   324000032335 0            000000032335 
AT3	032334 0      0   0   000000032335 0            324000032335 
AT6	032334 032335 0   0   000000032335 0            324000032335 
FT1A	032334 032335 0   0   000000032335 0            000000032335 
FT2	032334 032335 0   0   0            0            000000032335 
FT2RQ	032334 032335 0   0   0            0            000000032335 
FT3	032334 032335 0   0   0            0            000000032335 
FT9	032335 032335 0   0   0            0            000000032335 
ET0	032335 032335 0   0   0            0            000000032335 
ST1A	032335 032335 0   0   0            0            000000032335 
ST9	032335 032335 0   0   0            0            000000032335 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 298
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0577

*032335 MOVE 	0,035456
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032335 032335 0   0   200000035456 0            040000000000 
IT1	032335 0      0   0   200000035456 0            040000000000 
AT3	032335 0      0   0   000000035456 0            200000035456 
AT6	032335 035456 0   0   000000035456 0            200000035456 
FT0	032335 035456 0   0   040000000000 0            200000035456 
FT1A	032335 035456 0   0   040000000000 0            040000000000 
FT9	032336 035456 0   0   040000000000 0            040000000000 
ET0	032336 035456 0   0   040000000000 0            040000000000 
ST1	032336 035456 0   0   040000000000 0            040000000000 
ST2	032336 035456 0   0   040000000000 0            040000000000 
ST9	032336 035456 0   0   040000000000 0            040000000000 


*032336 ADD 	0,035456
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032336 032336 0   0   270000035456 0            040000000000 
IT1	032336 0      0   0   270000035456 0            040000000000 
AT3	032336 0      0   0   000000035456 0            270000035456 
AT6	032336 035456 0   0   000000035456 0            270000035456 
FT0	032336 035456 0   0   040000000000 0            270000035456 
FT1A	032336 035456 0   0   040000000000 0            040000000000 
FT2	032336 035456 0   0   0            0            040000000000 
FT2RQ	032336 035456 0   0   040000000000 0            040000000000 
FT3	032336 035456 0   0   040000000000 0            040000000000 
FT9	032337 035456 0   0   040000000000 0            040000000000 
ET0	032337 035456 0   0   100000000000 0            040000000000 
ST1	032337 035456 0   0   100000000000 0            040000000000 
ST2	032337 035456 0   0   100000000000 0            040000000000 
ST9	032337 035456 0   0   100000000000 0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 299
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0578

*032337 EQV 	0,035457
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032337 032337 0   0   444000035457 0            100000000000 
IT1	032337 0      0   0   444000035457 0            100000000000 
AT3	032337 0      0   0   000000035457 0            444000035457 
AT6	032337 035457 0   0   000000035457 0            444000035457 
FT0	032337 035457 0   0   100000000000 0            444000035457 
FT1A	032337 035457 0   0   100000000000 0            100000000000 
FT2	032337 035457 0   0   0            0            100000000000 
FT2RQ	032337 035457 0   0   100000000000 0            100000000000 
FT3	032337 035457 0   0   100000000000 0            100000000000 
FT9	032340 035457 0   0   100000000000 0            100000000000 
ET0	032340 035457 0   0   777777777777 0            100000000000 
ST1	032340 035457 0   0   777777777777 0            100000000000 
ST2	032340 035457 0   0   777777777777 0            100000000000 
ST9	032340 035457 0   0   777777777777 0            100000000000 


*032340 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032340 032340 0   0   444000035412 0            0            
IT1	032340 0      0   0   444000035412 0            0            
AT3	032340 0      0   0   000000035412 0            444000035412 
AT6	032340 035412 0   0   000000035412 0            444000035412 
FT0	032340 035412 0   0   0            0            444000035412 
FT1A	032340 035412 0   0   0            0            0            
FT2	032340 035412 0   0   0            0            0            
FT2RQ	032340 035412 0   0   777777777777 0            0            
FT3	032340 035412 0   0   777777777777 0            0            
FT9	032341 035412 0   0   777777777777 0            0            
ET0	032341 035412 0   0   0            0            0            
ST1	032341 035412 0   0   0            0            0            
ST2	032341 035412 0   0   0            0            0            
ST9	032341 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 300
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0579

*032341 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032341 032341 0   0   332000000000 0            0            
IT1	032341 0      0   0   332000000000 0            0            
AT3	032341 0      0   0   0            0            332000000000 
AT6	032341 0      0   0   0            0            332000000000 
FT0	032341 0      0   0   0            0            332000000000 
FT1A	032341 0      0   0   0            0            0            
FT9	032342 0      0   0   0            0            0            
ET0	032343 0      0   0   0            0            0            
ST1A	032343 0      0   0   0            0            0            
ST9	032343 0      0   0   0            0            0            


*032343 JUMPA	0,032344
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032343 032343 0   0   324000032344 0            000000032344 
IT1	032343 0      0   0   324000032344 0            000000032344 
AT3	032343 0      0   0   000000032344 0            324000032344 
AT6	032343 032344 0   0   000000032344 0            324000032344 
FT1A	032343 032344 0   0   000000032344 0            000000032344 
FT2	032343 032344 0   0   0            0            000000032344 
FT2RQ	032343 032344 0   0   0            0            000000032344 
FT3	032343 032344 0   0   0            0            000000032344 
FT9	032344 032344 0   0   0            0            000000032344 
ET0	032344 032344 0   0   0            0            000000032344 
ST1A	032344 032344 0   0   0            0            000000032344 
ST9	032344 032344 0   0   0            0            000000032344 


*032344 MOVE 	0,035457
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032344 032344 0   0   200000035457 0            100000000000 
IT1	032344 0      0   0   200000035457 0            100000000000 
AT3	032344 0      0   0   000000035457 0            200000035457 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 301
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0580

AT6	032344 035457 0   0   000000035457 0            200000035457 
FT0	032344 035457 0   0   100000000000 0            200000035457 
FT1A	032344 035457 0   0   100000000000 0            100000000000 
FT9	032345 035457 0   0   100000000000 0            100000000000 
ET0	032345 035457 0   0   100000000000 0            100000000000 
ST1	032345 035457 0   0   100000000000 0            100000000000 
ST2	032345 035457 0   0   100000000000 0            100000000000 
ST9	032345 035457 0   0   100000000000 0            100000000000 


*032345 ADD 	0,035457
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032345 032345 0   0   270000035457 0            100000000000 
IT1	032345 0      0   0   270000035457 0            100000000000 
AT3	032345 0      0   0   000000035457 0            270000035457 
AT6	032345 035457 0   0   000000035457 0            270000035457 
FT0	032345 035457 0   0   100000000000 0            270000035457 
FT1A	032345 035457 0   0   100000000000 0            100000000000 
FT2	032345 035457 0   0   0            0            100000000000 
FT2RQ	032345 035457 0   0   100000000000 0            100000000000 
FT3	032345 035457 0   0   100000000000 0            100000000000 
FT9	032346 035457 0   0   100000000000 0            100000000000 
ET0	032346 035457 0   0   200000000000 0            100000000000 
ST1	032346 035457 0   0   200000000000 0            100000000000 
ST2	032346 035457 0   0   200000000000 0            100000000000 
ST9	032346 035457 0   0   200000000000 0            100000000000 


*032346 EQV 	0,035460
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032346 032346 0   0   444000035460 0            200000000000 
IT1	032346 0      0   0   444000035460 0            200000000000 
AT3	032346 0      0   0   000000035460 0            444000035460 
AT6	032346 035460 0   0   000000035460 0            444000035460 
FT0	032346 035460 0   0   200000000000 0            444000035460 
FT1A	032346 035460 0   0   200000000000 0            200000000000 
FT2	032346 035460 0   0   0            0            200000000000 
FT2RQ	032346 035460 0   0   200000000000 0            200000000000 
FT3	032346 035460 0   0   200000000000 0            200000000000 
FT9	032347 035460 0   0   200000000000 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 302
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0581

ET0	032347 035460 0   0   777777777777 0            200000000000 
ST1	032347 035460 0   0   777777777777 0            200000000000 
ST2	032347 035460 0   0   777777777777 0            200000000000 
ST9	032347 035460 0   0   777777777777 0            200000000000 


*032347 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032347 032347 0   0   444000035412 0            0            
IT1	032347 0      0   0   444000035412 0            0            
AT3	032347 0      0   0   000000035412 0            444000035412 
AT6	032347 035412 0   0   000000035412 0            444000035412 
FT0	032347 035412 0   0   0            0            444000035412 
FT1A	032347 035412 0   0   0            0            0            
FT2	032347 035412 0   0   0            0            0            
FT2RQ	032347 035412 0   0   777777777777 0            0            
FT3	032347 035412 0   0   777777777777 0            0            
FT9	032350 035412 0   0   777777777777 0            0            
ET0	032350 035412 0   0   0            0            0            
ST1	032350 035412 0   0   0            0            0            
ST2	032350 035412 0   0   0            0            0            
ST9	032350 035412 0   0   0            0            0            


*032350 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032350 032350 0   0   332000000000 0            0            
IT1	032350 0      0   0   332000000000 0            0            
AT3	032350 0      0   0   0            0            332000000000 
AT6	032350 0      0   0   0            0            332000000000 
FT0	032350 0      0   0   0            0            332000000000 
FT1A	032350 0      0   0   0            0            0            
FT9	032351 0      0   0   0            0            0            
ET0	032352 0      0   0   0            0            0            
ST1A	032352 0      0   0   0            0            0            
ST9	032352 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 303
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0582

*032352 JUMPA	0,032353
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032352 032352 0   0   324000032353 0            000000032353 
IT1	032352 0      0   0   324000032353 0            000000032353 
AT3	032352 0      0   0   000000032353 0            324000032353 
AT6	032352 032353 0   0   000000032353 0            324000032353 
FT1A	032352 032353 0   0   000000032353 0            000000032353 
FT2	032352 032353 0   0   0            0            000000032353 
FT2RQ	032352 032353 0   0   0            0            000000032353 
FT3	032352 032353 0   0   0            0            000000032353 
FT9	032353 032353 0   0   0            0            000000032353 
ET0	032353 032353 0   0   0            0            000000032353 
ST1A	032353 032353 0   0   0            0            000000032353 
ST9	032353 032353 0   0   0            0            000000032353 


*032353 MOVE 	0,035460
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032353 032353 0   0   200000035460 0            200000000000 
IT1	032353 0      0   0   200000035460 0            200000000000 
AT3	032353 0      0   0   000000035460 0            200000035460 
AT6	032353 035460 0   0   000000035460 0            200000035460 
FT0	032353 035460 0   0   200000000000 0            200000035460 
FT1A	032353 035460 0   0   200000000000 0            200000000000 
FT9	032354 035460 0   0   200000000000 0            200000000000 
ET0	032354 035460 0   0   200000000000 0            200000000000 
ST1	032354 035460 0   0   200000000000 0            200000000000 
ST2	032354 035460 0   0   200000000000 0            200000000000 
ST9	032354 035460 0   0   200000000000 0            200000000000 


*032354 ADD 	0,035460
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032354 032354 0   0   270000035460 0            200000000000 
IT1	032354 0      0   0   270000035460 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 304
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0583

AT3	032354 0      0   0   000000035460 0            270000035460 
AT6	032354 035460 0   0   000000035460 0            270000035460 
FT0	032354 035460 0   0   200000000000 0            270000035460 
FT1A	032354 035460 0   0   200000000000 0            200000000000 
FT2	032354 035460 0   0   0            0            200000000000 
FT2RQ	032354 035460 0   0   200000000000 0            200000000000 
FT3	032354 035460 0   0   200000000000 0            200000000000 
FT9	032355 035460 0   0   200000000000 0            200000000000 
ET0	032355 035460 0   0   400000000000 0            200000000000 
ST1	032355 035460 0   0   400000000000 0            200000000000 
ST2	032355 035460 0   0   400000000000 0            200000000000 
ST9	032355 035460 0   0   400000000000 0            200000000000 


*032355 EQV 	0,035461
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032355 032355 0   0   444000035461 0            400000000000 
IT1	032355 0      0   0   444000035461 0            400000000000 
AT3	032355 0      0   0   000000035461 0            444000035461 
AT6	032355 035461 0   0   000000035461 0            444000035461 
FT0	032355 035461 0   0   400000000000 0            444000035461 
FT1A	032355 035461 0   0   400000000000 0            400000000000 
FT2	032355 035461 0   0   0            0            400000000000 
FT2RQ	032355 035461 0   0   400000000000 0            400000000000 
FT3	032355 035461 0   0   400000000000 0            400000000000 
FT9	032356 035461 0   0   400000000000 0            400000000000 
ET0	032356 035461 0   0   777777777777 0            400000000000 
ST1	032356 035461 0   0   777777777777 0            400000000000 
ST2	032356 035461 0   0   777777777777 0            400000000000 
ST9	032356 035461 0   0   777777777777 0            400000000000 


*032356 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032356 032356 0   0   444000035412 0            0            
IT1	032356 0      0   0   444000035412 0            0            
AT3	032356 0      0   0   000000035412 0            444000035412 
AT6	032356 035412 0   0   000000035412 0            444000035412 
FT0	032356 035412 0   0   0            0            444000035412 
FT1A	032356 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 305
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0584

FT2	032356 035412 0   0   0            0            0            
FT2RQ	032356 035412 0   0   777777777777 0            0            
FT3	032356 035412 0   0   777777777777 0            0            
FT9	032357 035412 0   0   777777777777 0            0            
ET0	032357 035412 0   0   0            0            0            
ST1	032357 035412 0   0   0            0            0            
ST2	032357 035412 0   0   0            0            0            
ST9	032357 035412 0   0   0            0            0            


*032357 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032357 032357 0   0   332000000000 0            0            
IT1	032357 0      0   0   332000000000 0            0            
AT3	032357 0      0   0   0            0            332000000000 
AT6	032357 0      0   0   0            0            332000000000 
FT0	032357 0      0   0   0            0            332000000000 
FT1A	032357 0      0   0   0            0            0            
FT9	032360 0      0   0   0            0            0            
ET0	032361 0      0   0   0            0            0            
ST1A	032361 0      0   0   0            0            0            
ST9	032361 0      0   0   0            0            0            


*032361 JUMPA	0,032362
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032361 032361 0   0   324000032362 0            000000032362 
IT1	032361 0      0   0   324000032362 0            000000032362 
AT3	032361 0      0   0   000000032362 0            324000032362 
AT6	032361 032362 0   0   000000032362 0            324000032362 
FT1A	032361 032362 0   0   000000032362 0            000000032362 
FT2	032361 032362 0   0   0            0            000000032362 
FT2RQ	032361 032362 0   0   0            0            000000032362 
FT3	032361 032362 0   0   0            0            000000032362 
FT9	032362 032362 0   0   0            0            000000032362 
ET0	032362 032362 0   0   0            0            000000032362 
ST1A	032362 032362 0   0   0            0            000000032362 
ST9	032362 032362 0   0   0            0            000000032362 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 306
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0585

*032362 MOVE 	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032362 032362 0   0   200000035461 0            400000000000 
IT1	032362 0      0   0   200000035461 0            400000000000 
AT3	032362 0      0   0   000000035461 0            200000035461 
AT6	032362 035461 0   0   000000035461 0            200000035461 
FT0	032362 035461 0   0   400000000000 0            200000035461 
FT1A	032362 035461 0   0   400000000000 0            400000000000 
FT9	032363 035461 0   0   400000000000 0            400000000000 
ET0	032363 035461 0   0   400000000000 0            400000000000 
ST1	032363 035461 0   0   400000000000 0            400000000000 
ST2	032363 035461 0   0   400000000000 0            400000000000 
ST9	032363 035461 0   0   400000000000 0            400000000000 


*032363 ADD 	0,035461
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032363 032363 0   0   270000035461 0            400000000000 
IT1	032363 0      0   0   270000035461 0            400000000000 
AT3	032363 0      0   0   000000035461 0            270000035461 
AT6	032363 035461 0   0   000000035461 0            270000035461 
FT0	032363 035461 0   0   400000000000 0            270000035461 
FT1A	032363 035461 0   0   400000000000 0            400000000000 
FT2	032363 035461 0   0   0            0            400000000000 
FT2RQ	032363 035461 0   0   400000000000 0            400000000000 
FT3	032363 035461 0   0   400000000000 0            400000000000 
FT9	032364 035461 0   0   400000000000 0            400000000000 
ET0	032364 035461 0   0   0            0            400000000000 
ST1	032364 035461 0   0   0            0            400000000000 
ST2	032364 035461 0   0   0            0            400000000000 
ST9	032364 035461 0   0   0            0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 307
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0586

*032364 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032364 032364 0   0   332000000000 0            0            
IT1	032364 0      0   0   332000000000 0            0            
AT3	032364 0      0   0   0            0            332000000000 
AT6	032364 0      0   0   0            0            332000000000 
FT0	032364 0      0   0   0            0            332000000000 
FT1A	032364 0      0   0   0            0            0            
FT9	032365 0      0   0   0            0            0            
ET0	032366 0      0   0   0            0            0            
ST1A	032366 0      0   0   0            0            0            
ST9	032366 0      0   0   0            0            0            


*032366 JUMPA	0,032367
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032366 032366 0   0   324000032367 0            000000032367 
IT1	032366 0      0   0   324000032367 0            000000032367 
AT3	032366 0      0   0   000000032367 0            324000032367 
AT6	032366 032367 0   0   000000032367 0            324000032367 
FT1A	032366 032367 0   0   000000032367 0            000000032367 
FT2	032366 032367 0   0   0            0            000000032367 
FT2RQ	032366 032367 0   0   0            0            000000032367 
FT3	032366 032367 0   0   0            0            000000032367 
FT9	032367 032367 0   0   0            0            000000032367 
ET0	032367 032367 0   0   0            0            000000032367 
ST1A	032367 032367 0   0   0            0            000000032367 
ST9	032367 032367 0   0   0            0            000000032367 


*032367 MOVE 	0,035462
INITIAL
C(AC)=000000 000000 
C(E)=600000 000000 
FINAL
C(AC)=600000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032367 032367 0   0   200000035462 0            600000000000 
IT1	032367 0      0   0   200000035462 0            600000000000 
AT3	032367 0      0   0   000000035462 0            200000035462 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 308
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0587

AT6	032367 035462 0   0   000000035462 0            200000035462 
FT0	032367 035462 0   0   600000000000 0            200000035462 
FT1A	032367 035462 0   0   600000000000 0            600000000000 
FT9	032370 035462 0   0   600000000000 0            600000000000 
ET0	032370 035462 0   0   600000000000 0            600000000000 
ST1	032370 035462 0   0   600000000000 0            600000000000 
ST2	032370 035462 0   0   600000000000 0            600000000000 
ST9	032370 035462 0   0   600000000000 0            600000000000 


*032370 ADD 	0,035460
INITIAL
C(AC)=600000 000000 
C(E)=200000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032370 032370 0   0   270000035460 0            200000000000 
IT1	032370 0      0   0   270000035460 0            200000000000 
AT3	032370 0      0   0   000000035460 0            270000035460 
AT6	032370 035460 0   0   000000035460 0            270000035460 
FT0	032370 035460 0   0   200000000000 0            270000035460 
FT1A	032370 035460 0   0   200000000000 0            200000000000 
FT2	032370 035460 0   0   0            0            200000000000 
FT2RQ	032370 035460 0   0   600000000000 0            200000000000 
FT3	032370 035460 0   0   600000000000 0            200000000000 
FT9	032371 035460 0   0   600000000000 0            200000000000 
ET0	032371 035460 0   0   0            0            200000000000 
ST1	032371 035460 0   0   0            0            200000000000 
ST2	032371 035460 0   0   0            0            200000000000 
ST9	032371 035460 0   0   0            0            200000000000 


*032371 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032371 032371 0   0   332000000000 0            0            
IT1	032371 0      0   0   332000000000 0            0            
AT3	032371 0      0   0   0            0            332000000000 
AT6	032371 0      0   0   0            0            332000000000 
FT0	032371 0      0   0   0            0            332000000000 
FT1A	032371 0      0   0   0            0            0            
FT9	032372 0      0   0   0            0            0            
ET0	032373 0      0   0   0            0            0            
ST1A	032373 0      0   0   0            0            0            
ST9	032373 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 309
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0588



*032373 JUMPA	0,032374
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032373 032373 0   0   324000032374 0            000000032374 
IT1	032373 0      0   0   324000032374 0            000000032374 
AT3	032373 0      0   0   000000032374 0            324000032374 
AT6	032373 032374 0   0   000000032374 0            324000032374 
FT1A	032373 032374 0   0   000000032374 0            000000032374 
FT2	032373 032374 0   0   0            0            000000032374 
FT2RQ	032373 032374 0   0   0            0            000000032374 
FT3	032373 032374 0   0   0            0            000000032374 
FT9	032374 032374 0   0   0            0            000000032374 
ET0	032374 032374 0   0   0            0            000000032374 
ST1A	032374 032374 0   0   0            0            000000032374 
ST9	032374 032374 0   0   0            0            000000032374 


*032374 MOVE 	0,035463
INITIAL
C(AC)=000000 000000 
C(E)=700000 000000 
FINAL
C(AC)=700000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032374 032374 0   0   200000035463 0            700000000000 
IT1	032374 0      0   0   200000035463 0            700000000000 
AT3	032374 0      0   0   000000035463 0            200000035463 
AT6	032374 035463 0   0   000000035463 0            200000035463 
FT0	032374 035463 0   0   700000000000 0            200000035463 
FT1A	032374 035463 0   0   700000000000 0            700000000000 
FT9	032375 035463 0   0   700000000000 0            700000000000 
ET0	032375 035463 0   0   700000000000 0            700000000000 
ST1	032375 035463 0   0   700000000000 0            700000000000 
ST2	032375 035463 0   0   700000000000 0            700000000000 
ST9	032375 035463 0   0   700000000000 0            700000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 310
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0589

*032375 ADD 	0,035457
INITIAL
C(AC)=700000 000000 
C(E)=100000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032375 032375 0   0   270000035457 0            100000000000 
IT1	032375 0      0   0   270000035457 0            100000000000 
AT3	032375 0      0   0   000000035457 0            270000035457 
AT6	032375 035457 0   0   000000035457 0            270000035457 
FT0	032375 035457 0   0   100000000000 0            270000035457 
FT1A	032375 035457 0   0   100000000000 0            100000000000 
FT2	032375 035457 0   0   0            0            100000000000 
FT2RQ	032375 035457 0   0   700000000000 0            100000000000 
FT3	032375 035457 0   0   700000000000 0            100000000000 
FT9	032376 035457 0   0   700000000000 0            100000000000 
ET0	032376 035457 0   0   0            0            100000000000 
ST1	032376 035457 0   0   0            0            100000000000 
ST2	032376 035457 0   0   0            0            100000000000 
ST9	032376 035457 0   0   0            0            100000000000 


*032376 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032376 032376 0   0   332000000000 0            0            
IT1	032376 0      0   0   332000000000 0            0            
AT3	032376 0      0   0   0            0            332000000000 
AT6	032376 0      0   0   0            0            332000000000 
FT0	032376 0      0   0   0            0            332000000000 
FT1A	032376 0      0   0   0            0            0            
FT9	032377 0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1A	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 311
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0590

*032400 JUMPA	0,032401
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000032401 0            000000032401 
IT1	0      0      0   0   324000032401 0            000000032401 
AT3	0      0      0   0   000000032401 0            324000032401 
AT6	0      032401 0   0   000000032401 0            324000032401 
FT1A	0      032401 0   0   000000032401 0            000000032401 
FT2	0      032401 0   0   0            0            000000032401 
FT2RQ	0      032401 0   0   0            0            000000032401 
FT3	0      032401 0   0   0            0            000000032401 
FT9	032401 032401 0   0   0            0            000000032401 
ET0	032401 032401 0   0   0            0            000000032401 
ST1A	032401 032401 0   0   0            0            000000032401 
ST9	032401 032401 0   0   0            0            000000032401 


*032401 MOVE 	0,035464
INITIAL
C(AC)=000000 000000 
C(E)=740000 000000 
FINAL
C(AC)=740000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032401 032401 0   0   200000035464 0            740000000000 
IT1	032401 0      0   0   200000035464 0            740000000000 
AT3	032401 0      0   0   000000035464 0            200000035464 
AT6	032401 035464 0   0   000000035464 0            200000035464 
FT0	032401 035464 0   0   740000000000 0            200000035464 
FT1A	032401 035464 0   0   740000000000 0            740000000000 
FT9	032402 035464 0   0   740000000000 0            740000000000 
ET0	032402 035464 0   0   740000000000 0            740000000000 
ST1	032402 035464 0   0   740000000000 0            740000000000 
ST2	032402 035464 0   0   740000000000 0            740000000000 
ST9	032402 035464 0   0   740000000000 0            740000000000 


*032402 ADD 	0,035456
INITIAL
C(AC)=740000 000000 
C(E)=040000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032402 032402 0   0   270000035456 0            040000000000 
IT1	032402 0      0   0   270000035456 0            040000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 312
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0591

AT3	032402 0      0   0   000000035456 0            270000035456 
AT6	032402 035456 0   0   000000035456 0            270000035456 
FT0	032402 035456 0   0   040000000000 0            270000035456 
FT1A	032402 035456 0   0   040000000000 0            040000000000 
FT2	032402 035456 0   0   0            0            040000000000 
FT2RQ	032402 035456 0   0   740000000000 0            040000000000 
FT3	032402 035456 0   0   740000000000 0            040000000000 
FT9	032403 035456 0   0   740000000000 0            040000000000 
ET0	032403 035456 0   0   0            0            040000000000 
ST1	032403 035456 0   0   0            0            040000000000 
ST2	032403 035456 0   0   0            0            040000000000 
ST9	032403 035456 0   0   0            0            040000000000 


*032403 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032403 032403 0   0   332000000000 0            0            
IT1	032403 0      0   0   332000000000 0            0            
AT3	032403 0      0   0   0            0            332000000000 
AT6	032403 0      0   0   0            0            332000000000 
FT0	032403 0      0   0   0            0            332000000000 
FT1A	032403 0      0   0   0            0            0            
FT9	032404 0      0   0   0            0            0            
ET0	032405 0      0   0   0            0            0            
ST1A	032405 0      0   0   0            0            0            
ST9	032405 0      0   0   0            0            0            


*032405 JUMPA	0,032406
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032405 032405 0   0   324000032406 0            000000032406 
IT1	032405 0      0   0   324000032406 0            000000032406 
AT3	032405 0      0   0   000000032406 0            324000032406 
AT6	032405 032406 0   0   000000032406 0            324000032406 
FT1A	032405 032406 0   0   000000032406 0            000000032406 
FT2	032405 032406 0   0   0            0            000000032406 
FT2RQ	032405 032406 0   0   0            0            000000032406 
FT3	032405 032406 0   0   0            0            000000032406 
FT9	032406 032406 0   0   0            0            000000032406 
ET0	032406 032406 0   0   0            0            000000032406 
ST1A	032406 032406 0   0   0            0            000000032406 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 313
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0592

ST9	032406 032406 0   0   0            0            000000032406 


*032406 MOVE 	0,035465
INITIAL
C(AC)=000000 000000 
C(E)=760000 000000 
FINAL
C(AC)=760000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032406 032406 0   0   200000035465 0            760000000000 
IT1	032406 0      0   0   200000035465 0            760000000000 
AT3	032406 0      0   0   000000035465 0            200000035465 
AT6	032406 035465 0   0   000000035465 0            200000035465 
FT0	032406 035465 0   0   760000000000 0            200000035465 
FT1A	032406 035465 0   0   760000000000 0            760000000000 
FT9	032407 035465 0   0   760000000000 0            760000000000 
ET0	032407 035465 0   0   760000000000 0            760000000000 
ST1	032407 035465 0   0   760000000000 0            760000000000 
ST2	032407 035465 0   0   760000000000 0            760000000000 
ST9	032407 035465 0   0   760000000000 0            760000000000 


*032407 ADD 	0,035455
INITIAL
C(AC)=760000 000000 
C(E)=020000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032407 032407 0   0   270000035455 0            020000000000 
IT1	032407 0      0   0   270000035455 0            020000000000 
AT3	032407 0      0   0   000000035455 0            270000035455 
AT6	032407 035455 0   0   000000035455 0            270000035455 
FT0	032407 035455 0   0   020000000000 0            270000035455 
FT1A	032407 035455 0   0   020000000000 0            020000000000 
FT2	032407 035455 0   0   0            0            020000000000 
FT2RQ	032407 035455 0   0   760000000000 0            020000000000 
FT3	032407 035455 0   0   760000000000 0            020000000000 
FT9	032410 035455 0   0   760000000000 0            020000000000 
ET0	032410 035455 0   0   0            0            020000000000 
ST1	032410 035455 0   0   0            0            020000000000 
ST2	032410 035455 0   0   0            0            020000000000 
ST9	032410 035455 0   0   0            0            020000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 314
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0593

*032410 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032410 032410 0   0   332000000000 0            0            
IT1	032410 0      0   0   332000000000 0            0            
AT3	032410 0      0   0   0            0            332000000000 
AT6	032410 0      0   0   0            0            332000000000 
FT0	032410 0      0   0   0            0            332000000000 
FT1A	032410 0      0   0   0            0            0            
FT9	032411 0      0   0   0            0            0            
ET0	032412 0      0   0   0            0            0            
ST1A	032412 0      0   0   0            0            0            
ST9	032412 0      0   0   0            0            0            


*032412 JUMPA	0,032413
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032412 032412 0   0   324000032413 0            000000032413 
IT1	032412 0      0   0   324000032413 0            000000032413 
AT3	032412 0      0   0   000000032413 0            324000032413 
AT6	032412 032413 0   0   000000032413 0            324000032413 
FT1A	032412 032413 0   0   000000032413 0            000000032413 
FT2	032412 032413 0   0   0            0            000000032413 
FT2RQ	032412 032413 0   0   0            0            000000032413 
FT3	032412 032413 0   0   0            0            000000032413 
FT9	032413 032413 0   0   0            0            000000032413 
ET0	032413 032413 0   0   0            0            000000032413 
ST1A	032413 032413 0   0   0            0            000000032413 
ST9	032413 032413 0   0   0            0            000000032413 


*032413 MOVE 	0,035466
INITIAL
C(AC)=000000 000000 
C(E)=770000 000000 
FINAL
C(AC)=770000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032413 032413 0   0   200000035466 0            770000000000 
IT1	032413 0      0   0   200000035466 0            770000000000 
AT3	032413 0      0   0   000000035466 0            200000035466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 315
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0594

AT6	032413 035466 0   0   000000035466 0            200000035466 
FT0	032413 035466 0   0   770000000000 0            200000035466 
FT1A	032413 035466 0   0   770000000000 0            770000000000 
FT9	032414 035466 0   0   770000000000 0            770000000000 
ET0	032414 035466 0   0   770000000000 0            770000000000 
ST1	032414 035466 0   0   770000000000 0            770000000000 
ST2	032414 035466 0   0   770000000000 0            770000000000 
ST9	032414 035466 0   0   770000000000 0            770000000000 


*032414 ADD 	0,035454
INITIAL
C(AC)=770000 000000 
C(E)=010000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032414 032414 0   0   270000035454 0            010000000000 
IT1	032414 0      0   0   270000035454 0            010000000000 
AT3	032414 0      0   0   000000035454 0            270000035454 
AT6	032414 035454 0   0   000000035454 0            270000035454 
FT0	032414 035454 0   0   010000000000 0            270000035454 
FT1A	032414 035454 0   0   010000000000 0            010000000000 
FT2	032414 035454 0   0   0            0            010000000000 
FT2RQ	032414 035454 0   0   770000000000 0            010000000000 
FT3	032414 035454 0   0   770000000000 0            010000000000 
FT9	032415 035454 0   0   770000000000 0            010000000000 
ET0	032415 035454 0   0   0            0            010000000000 
ST1	032415 035454 0   0   0            0            010000000000 
ST2	032415 035454 0   0   0            0            010000000000 
ST9	032415 035454 0   0   0            0            010000000000 


*032415 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032415 032415 0   0   332000000000 0            0            
IT1	032415 0      0   0   332000000000 0            0            
AT3	032415 0      0   0   0            0            332000000000 
AT6	032415 0      0   0   0            0            332000000000 
FT0	032415 0      0   0   0            0            332000000000 
FT1A	032415 0      0   0   0            0            0            
FT9	032416 0      0   0   0            0            0            
ET0	032417 0      0   0   0            0            0            
ST1A	032417 0      0   0   0            0            0            
ST9	032417 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 316
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0595



*032417 JUMPA	0,032420
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032417 032417 0   0   324000032420 0            000000032420 
IT1	032417 0      0   0   324000032420 0            000000032420 
AT3	032417 0      0   0   000000032420 0            324000032420 
AT6	032417 032420 0   0   000000032420 0            324000032420 
FT1A	032417 032420 0   0   000000032420 0            000000032420 
FT2	032417 032420 0   0   0            0            000000032420 
FT2RQ	032417 032420 0   0   0            0            000000032420 
FT3	032417 032420 0   0   0            0            000000032420 
FT9	032420 032420 0   0   0            0            000000032420 
ET0	032420 032420 0   0   0            0            000000032420 
ST1A	032420 032420 0   0   0            0            000000032420 
ST9	032420 032420 0   0   0            0            000000032420 


*032420 MOVE 	0,035467
INITIAL
C(AC)=000000 000000 
C(E)=774000 000000 
FINAL
C(AC)=774000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032420 032420 0   0   200000035467 0            774000000000 
IT1	032420 0      0   0   200000035467 0            774000000000 
AT3	032420 0      0   0   000000035467 0            200000035467 
AT6	032420 035467 0   0   000000035467 0            200000035467 
FT0	032420 035467 0   0   774000000000 0            200000035467 
FT1A	032420 035467 0   0   774000000000 0            774000000000 
FT9	032421 035467 0   0   774000000000 0            774000000000 
ET0	032421 035467 0   0   774000000000 0            774000000000 
ST1	032421 035467 0   0   774000000000 0            774000000000 
ST2	032421 035467 0   0   774000000000 0            774000000000 
ST9	032421 035467 0   0   774000000000 0            774000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 317
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0596

*032421 ADD 	0,035453
INITIAL
C(AC)=774000 000000 
C(E)=004000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032421 032421 0   0   270000035453 0            004000000000 
IT1	032421 0      0   0   270000035453 0            004000000000 
AT3	032421 0      0   0   000000035453 0            270000035453 
AT6	032421 035453 0   0   000000035453 0            270000035453 
FT0	032421 035453 0   0   004000000000 0            270000035453 
FT1A	032421 035453 0   0   004000000000 0            004000000000 
FT2	032421 035453 0   0   0            0            004000000000 
FT2RQ	032421 035453 0   0   774000000000 0            004000000000 
FT3	032421 035453 0   0   774000000000 0            004000000000 
FT9	032422 035453 0   0   774000000000 0            004000000000 
ET0	032422 035453 0   0   0            0            004000000000 
ST1	032422 035453 0   0   0            0            004000000000 
ST2	032422 035453 0   0   0            0            004000000000 
ST9	032422 035453 0   0   0            0            004000000000 


*032422 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032422 032422 0   0   332000000000 0            0            
IT1	032422 0      0   0   332000000000 0            0            
AT3	032422 0      0   0   0            0            332000000000 
AT6	032422 0      0   0   0            0            332000000000 
FT0	032422 0      0   0   0            0            332000000000 
FT1A	032422 0      0   0   0            0            0            
FT9	032423 0      0   0   0            0            0            
ET0	032424 0      0   0   0            0            0            
ST1A	032424 0      0   0   0            0            0            
ST9	032424 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 318
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0597

*032424 JUMPA	0,032425
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032424 032424 0   0   324000032425 0            000000032425 
IT1	032424 0      0   0   324000032425 0            000000032425 
AT3	032424 0      0   0   000000032425 0            324000032425 
AT6	032424 032425 0   0   000000032425 0            324000032425 
FT1A	032424 032425 0   0   000000032425 0            000000032425 
FT2	032424 032425 0   0   0            0            000000032425 
FT2RQ	032424 032425 0   0   0            0            000000032425 
FT3	032424 032425 0   0   0            0            000000032425 
FT9	032425 032425 0   0   0            0            000000032425 
ET0	032425 032425 0   0   0            0            000000032425 
ST1A	032425 032425 0   0   0            0            000000032425 
ST9	032425 032425 0   0   0            0            000000032425 


*032425 MOVE 	0,035470
INITIAL
C(AC)=000000 000000 
C(E)=776000 000000 
FINAL
C(AC)=776000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032425 032425 0   0   200000035470 0            776000000000 
IT1	032425 0      0   0   200000035470 0            776000000000 
AT3	032425 0      0   0   000000035470 0            200000035470 
AT6	032425 035470 0   0   000000035470 0            200000035470 
FT0	032425 035470 0   0   776000000000 0            200000035470 
FT1A	032425 035470 0   0   776000000000 0            776000000000 
FT9	032426 035470 0   0   776000000000 0            776000000000 
ET0	032426 035470 0   0   776000000000 0            776000000000 
ST1	032426 035470 0   0   776000000000 0            776000000000 
ST2	032426 035470 0   0   776000000000 0            776000000000 
ST9	032426 035470 0   0   776000000000 0            776000000000 


*032426 ADD 	0,035452
INITIAL
C(AC)=776000 000000 
C(E)=002000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032426 032426 0   0   270000035452 0            002000000000 
IT1	032426 0      0   0   270000035452 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 319
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0598

AT3	032426 0      0   0   000000035452 0            270000035452 
AT6	032426 035452 0   0   000000035452 0            270000035452 
FT0	032426 035452 0   0   002000000000 0            270000035452 
FT1A	032426 035452 0   0   002000000000 0            002000000000 
FT2	032426 035452 0   0   0            0            002000000000 
FT2RQ	032426 035452 0   0   776000000000 0            002000000000 
FT3	032426 035452 0   0   776000000000 0            002000000000 
FT9	032427 035452 0   0   776000000000 0            002000000000 
ET0	032427 035452 0   0   0            0            002000000000 
ST1	032427 035452 0   0   0            0            002000000000 
ST2	032427 035452 0   0   0            0            002000000000 
ST9	032427 035452 0   0   0            0            002000000000 


*032427 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032427 032427 0   0   332000000000 0            0            
IT1	032427 0      0   0   332000000000 0            0            
AT3	032427 0      0   0   0            0            332000000000 
AT6	032427 0      0   0   0            0            332000000000 
FT0	032427 0      0   0   0            0            332000000000 
FT1A	032427 0      0   0   0            0            0            
FT9	032430 0      0   0   0            0            0            
ET0	032431 0      0   0   0            0            0            
ST1A	032431 0      0   0   0            0            0            
ST9	032431 0      0   0   0            0            0            


*032431 JUMPA	0,032432
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032431 032431 0   0   324000032432 0            000000032432 
IT1	032431 0      0   0   324000032432 0            000000032432 
AT3	032431 0      0   0   000000032432 0            324000032432 
AT6	032431 032432 0   0   000000032432 0            324000032432 
FT1A	032431 032432 0   0   000000032432 0            000000032432 
FT2	032431 032432 0   0   0            0            000000032432 
FT2RQ	032431 032432 0   0   0            0            000000032432 
FT3	032431 032432 0   0   0            0            000000032432 
FT9	032432 032432 0   0   0            0            000000032432 
ET0	032432 032432 0   0   0            0            000000032432 
ST1A	032432 032432 0   0   0            0            000000032432 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 320
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0599

ST9	032432 032432 0   0   0            0            000000032432 


*032432 MOVE 	0,035471
INITIAL
C(AC)=000000 000000 
C(E)=777000 000000 
FINAL
C(AC)=777000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032432 032432 0   0   200000035471 0            777000000000 
IT1	032432 0      0   0   200000035471 0            777000000000 
AT3	032432 0      0   0   000000035471 0            200000035471 
AT6	032432 035471 0   0   000000035471 0            200000035471 
FT0	032432 035471 0   0   777000000000 0            200000035471 
FT1A	032432 035471 0   0   777000000000 0            777000000000 
FT9	032433 035471 0   0   777000000000 0            777000000000 
ET0	032433 035471 0   0   777000000000 0            777000000000 
ST1	032433 035471 0   0   777000000000 0            777000000000 
ST2	032433 035471 0   0   777000000000 0            777000000000 
ST9	032433 035471 0   0   777000000000 0            777000000000 


*032433 ADD 	0,035451
INITIAL
C(AC)=777000 000000 
C(E)=001000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032433 032433 0   0   270000035451 0            001000000000 
IT1	032433 0      0   0   270000035451 0            001000000000 
AT3	032433 0      0   0   000000035451 0            270000035451 
AT6	032433 035451 0   0   000000035451 0            270000035451 
FT0	032433 035451 0   0   001000000000 0            270000035451 
FT1A	032433 035451 0   0   001000000000 0            001000000000 
FT2	032433 035451 0   0   0            0            001000000000 
FT2RQ	032433 035451 0   0   777000000000 0            001000000000 
FT3	032433 035451 0   0   777000000000 0            001000000000 
FT9	032434 035451 0   0   777000000000 0            001000000000 
ET0	032434 035451 0   0   0            0            001000000000 
ST1	032434 035451 0   0   0            0            001000000000 
ST2	032434 035451 0   0   0            0            001000000000 
ST9	032434 035451 0   0   0            0            001000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 321
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0600

*032434 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032434 032434 0   0   332000000000 0            0            
IT1	032434 0      0   0   332000000000 0            0            
AT3	032434 0      0   0   0            0            332000000000 
AT6	032434 0      0   0   0            0            332000000000 
FT0	032434 0      0   0   0            0            332000000000 
FT1A	032434 0      0   0   0            0            0            
FT9	032435 0      0   0   0            0            0            
ET0	032436 0      0   0   0            0            0            
ST1A	032436 0      0   0   0            0            0            
ST9	032436 0      0   0   0            0            0            


*032436 JUMPA	0,032437
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032436 032436 0   0   324000032437 0            000000032437 
IT1	032436 0      0   0   324000032437 0            000000032437 
AT3	032436 0      0   0   000000032437 0            324000032437 
AT6	032436 032437 0   0   000000032437 0            324000032437 
FT1A	032436 032437 0   0   000000032437 0            000000032437 
FT2	032436 032437 0   0   0            0            000000032437 
FT2RQ	032436 032437 0   0   0            0            000000032437 
FT3	032436 032437 0   0   0            0            000000032437 
FT9	032437 032437 0   0   0            0            000000032437 
ET0	032437 032437 0   0   0            0            000000032437 
ST1A	032437 032437 0   0   0            0            000000032437 
ST9	032437 032437 0   0   0            0            000000032437 


*032437 MOVE 	0,035472
INITIAL
C(AC)=000000 000000 
C(E)=777400 000000 
FINAL
C(AC)=777400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032437 032437 0   0   200000035472 0            777400000000 
IT1	032437 0      0   0   200000035472 0            777400000000 
AT3	032437 0      0   0   000000035472 0            200000035472 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 322
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0601

AT6	032437 035472 0   0   000000035472 0            200000035472 
FT0	032437 035472 0   0   777400000000 0            200000035472 
FT1A	032437 035472 0   0   777400000000 0            777400000000 
FT9	032440 035472 0   0   777400000000 0            777400000000 
ET0	032440 035472 0   0   777400000000 0            777400000000 
ST1	032440 035472 0   0   777400000000 0            777400000000 
ST2	032440 035472 0   0   777400000000 0            777400000000 
ST9	032440 035472 0   0   777400000000 0            777400000000 


*032440 ADD 	0,035450
INITIAL
C(AC)=777400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032440 032440 0   0   270000035450 0            000400000000 
IT1	032440 0      0   0   270000035450 0            000400000000 
AT3	032440 0      0   0   000000035450 0            270000035450 
AT6	032440 035450 0   0   000000035450 0            270000035450 
FT0	032440 035450 0   0   000400000000 0            270000035450 
FT1A	032440 035450 0   0   000400000000 0            000400000000 
FT2	032440 035450 0   0   0            0            000400000000 
FT2RQ	032440 035450 0   0   777400000000 0            000400000000 
FT3	032440 035450 0   0   777400000000 0            000400000000 
FT9	032441 035450 0   0   777400000000 0            000400000000 
ET0	032441 035450 0   0   0            0            000400000000 
ST1	032441 035450 0   0   0            0            000400000000 
ST2	032441 035450 0   0   0            0            000400000000 
ST9	032441 035450 0   0   0            0            000400000000 


*032441 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032441 032441 0   0   332000000000 0            0            
IT1	032441 0      0   0   332000000000 0            0            
AT3	032441 0      0   0   0            0            332000000000 
AT6	032441 0      0   0   0            0            332000000000 
FT0	032441 0      0   0   0            0            332000000000 
FT1A	032441 0      0   0   0            0            0            
FT9	032442 0      0   0   0            0            0            
ET0	032443 0      0   0   0            0            0            
ST1A	032443 0      0   0   0            0            0            
ST9	032443 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 323
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0602



*032443 JUMPA	0,032444
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032443 032443 0   0   324000032444 0            000000032444 
IT1	032443 0      0   0   324000032444 0            000000032444 
AT3	032443 0      0   0   000000032444 0            324000032444 
AT6	032443 032444 0   0   000000032444 0            324000032444 
FT1A	032443 032444 0   0   000000032444 0            000000032444 
FT2	032443 032444 0   0   0            0            000000032444 
FT2RQ	032443 032444 0   0   0            0            000000032444 
FT3	032443 032444 0   0   0            0            000000032444 
FT9	032444 032444 0   0   0            0            000000032444 
ET0	032444 032444 0   0   0            0            000000032444 
ST1A	032444 032444 0   0   0            0            000000032444 
ST9	032444 032444 0   0   0            0            000000032444 


*032444 MOVE 	0,035473
INITIAL
C(AC)=000000 000000 
C(E)=777600 000000 
FINAL
C(AC)=777600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032444 032444 0   0   200000035473 0            777600000000 
IT1	032444 0      0   0   200000035473 0            777600000000 
AT3	032444 0      0   0   000000035473 0            200000035473 
AT6	032444 035473 0   0   000000035473 0            200000035473 
FT0	032444 035473 0   0   777600000000 0            200000035473 
FT1A	032444 035473 0   0   777600000000 0            777600000000 
FT9	032445 035473 0   0   777600000000 0            777600000000 
ET0	032445 035473 0   0   777600000000 0            777600000000 
ST1	032445 035473 0   0   777600000000 0            777600000000 
ST2	032445 035473 0   0   777600000000 0            777600000000 
ST9	032445 035473 0   0   777600000000 0            777600000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 324
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0603

*032445 ADD 	0,035447
INITIAL
C(AC)=777600 000000 
C(E)=000200 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032445 032445 0   0   270000035447 0            000200000000 
IT1	032445 0      0   0   270000035447 0            000200000000 
AT3	032445 0      0   0   000000035447 0            270000035447 
AT6	032445 035447 0   0   000000035447 0            270000035447 
FT0	032445 035447 0   0   000200000000 0            270000035447 
FT1A	032445 035447 0   0   000200000000 0            000200000000 
FT2	032445 035447 0   0   0            0            000200000000 
FT2RQ	032445 035447 0   0   777600000000 0            000200000000 
FT3	032445 035447 0   0   777600000000 0            000200000000 
FT9	032446 035447 0   0   777600000000 0            000200000000 
ET0	032446 035447 0   0   0            0            000200000000 
ST1	032446 035447 0   0   0            0            000200000000 
ST2	032446 035447 0   0   0            0            000200000000 
ST9	032446 035447 0   0   0            0            000200000000 


*032446 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032446 032446 0   0   332000000000 0            0            
IT1	032446 0      0   0   332000000000 0            0            
AT3	032446 0      0   0   0            0            332000000000 
AT6	032446 0      0   0   0            0            332000000000 
FT0	032446 0      0   0   0            0            332000000000 
FT1A	032446 0      0   0   0            0            0            
FT9	032447 0      0   0   0            0            0            
ET0	032450 0      0   0   0            0            0            
ST1A	032450 0      0   0   0            0            0            
ST9	032450 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 325
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0604

*032450 JUMPA	0,032451
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032450 032450 0   0   324000032451 0            000000032451 
IT1	032450 0      0   0   324000032451 0            000000032451 
AT3	032450 0      0   0   000000032451 0            324000032451 
AT6	032450 032451 0   0   000000032451 0            324000032451 
FT1A	032450 032451 0   0   000000032451 0            000000032451 
FT2	032450 032451 0   0   0            0            000000032451 
FT2RQ	032450 032451 0   0   0            0            000000032451 
FT3	032450 032451 0   0   0            0            000000032451 
FT9	032451 032451 0   0   0            0            000000032451 
ET0	032451 032451 0   0   0            0            000000032451 
ST1A	032451 032451 0   0   0            0            000000032451 
ST9	032451 032451 0   0   0            0            000000032451 


*032451 MOVE 	0,035474
INITIAL
C(AC)=000000 000000 
C(E)=777700 000000 
FINAL
C(AC)=777700 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032451 032451 0   0   200000035474 0            777700000000 
IT1	032451 0      0   0   200000035474 0            777700000000 
AT3	032451 0      0   0   000000035474 0            200000035474 
AT6	032451 035474 0   0   000000035474 0            200000035474 
FT0	032451 035474 0   0   777700000000 0            200000035474 
FT1A	032451 035474 0   0   777700000000 0            777700000000 
FT9	032452 035474 0   0   777700000000 0            777700000000 
ET0	032452 035474 0   0   777700000000 0            777700000000 
ST1	032452 035474 0   0   777700000000 0            777700000000 
ST2	032452 035474 0   0   777700000000 0            777700000000 
ST9	032452 035474 0   0   777700000000 0            777700000000 


*032452 ADD 	0,035446
INITIAL
C(AC)=777700 000000 
C(E)=000100 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032452 032452 0   0   270000035446 0            000100000000 
IT1	032452 0      0   0   270000035446 0            000100000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 326
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0605

AT3	032452 0      0   0   000000035446 0            270000035446 
AT6	032452 035446 0   0   000000035446 0            270000035446 
FT0	032452 035446 0   0   000100000000 0            270000035446 
FT1A	032452 035446 0   0   000100000000 0            000100000000 
FT2	032452 035446 0   0   0            0            000100000000 
FT2RQ	032452 035446 0   0   777700000000 0            000100000000 
FT3	032452 035446 0   0   777700000000 0            000100000000 
FT9	032453 035446 0   0   777700000000 0            000100000000 
ET0	032453 035446 0   0   0            0            000100000000 
ST1	032453 035446 0   0   0            0            000100000000 
ST2	032453 035446 0   0   0            0            000100000000 
ST9	032453 035446 0   0   0            0            000100000000 


*032453 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032453 032453 0   0   332000000000 0            0            
IT1	032453 0      0   0   332000000000 0            0            
AT3	032453 0      0   0   0            0            332000000000 
AT6	032453 0      0   0   0            0            332000000000 
FT0	032453 0      0   0   0            0            332000000000 
FT1A	032453 0      0   0   0            0            0            
FT9	032454 0      0   0   0            0            0            
ET0	032455 0      0   0   0            0            0            
ST1A	032455 0      0   0   0            0            0            
ST9	032455 0      0   0   0            0            0            


*032455 JUMPA	0,032456
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032455 032455 0   0   324000032456 0            000000032456 
IT1	032455 0      0   0   324000032456 0            000000032456 
AT3	032455 0      0   0   000000032456 0            324000032456 
AT6	032455 032456 0   0   000000032456 0            324000032456 
FT1A	032455 032456 0   0   000000032456 0            000000032456 
FT2	032455 032456 0   0   0            0            000000032456 
FT2RQ	032455 032456 0   0   0            0            000000032456 
FT3	032455 032456 0   0   0            0            000000032456 
FT9	032456 032456 0   0   0            0            000000032456 
ET0	032456 032456 0   0   0            0            000000032456 
ST1A	032456 032456 0   0   0            0            000000032456 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 327
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0606

ST9	032456 032456 0   0   0            0            000000032456 


*032456 MOVE 	0,035475
INITIAL
C(AC)=000000 000000 
C(E)=777740 000000 
FINAL
C(AC)=777740 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032456 032456 0   0   200000035475 0            777740000000 
IT1	032456 0      0   0   200000035475 0            777740000000 
AT3	032456 0      0   0   000000035475 0            200000035475 
AT6	032456 035475 0   0   000000035475 0            200000035475 
FT0	032456 035475 0   0   777740000000 0            200000035475 
FT1A	032456 035475 0   0   777740000000 0            777740000000 
FT9	032457 035475 0   0   777740000000 0            777740000000 
ET0	032457 035475 0   0   777740000000 0            777740000000 
ST1	032457 035475 0   0   777740000000 0            777740000000 
ST2	032457 035475 0   0   777740000000 0            777740000000 
ST9	032457 035475 0   0   777740000000 0            777740000000 


*032457 ADD 	0,035445
INITIAL
C(AC)=777740 000000 
C(E)=000040 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032457 032457 0   0   270000035445 0            000040000000 
IT1	032457 0      0   0   270000035445 0            000040000000 
AT3	032457 0      0   0   000000035445 0            270000035445 
AT6	032457 035445 0   0   000000035445 0            270000035445 
FT0	032457 035445 0   0   000040000000 0            270000035445 
FT1A	032457 035445 0   0   000040000000 0            000040000000 
FT2	032457 035445 0   0   0            0            000040000000 
FT2RQ	032457 035445 0   0   777740000000 0            000040000000 
FT3	032457 035445 0   0   777740000000 0            000040000000 
FT9	032460 035445 0   0   777740000000 0            000040000000 
ET0	032460 035445 0   0   0            0            000040000000 
ST1	032460 035445 0   0   0            0            000040000000 
ST2	032460 035445 0   0   0            0            000040000000 
ST9	032460 035445 0   0   0            0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 328
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0607

*032460 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032460 032460 0   0   332000000000 0            0            
IT1	032460 0      0   0   332000000000 0            0            
AT3	032460 0      0   0   0            0            332000000000 
AT6	032460 0      0   0   0            0            332000000000 
FT0	032460 0      0   0   0            0            332000000000 
FT1A	032460 0      0   0   0            0            0            
FT9	032461 0      0   0   0            0            0            
ET0	032462 0      0   0   0            0            0            
ST1A	032462 0      0   0   0            0            0            
ST9	032462 0      0   0   0            0            0            


*032462 JUMPA	0,032463
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032462 032462 0   0   324000032463 0            000000032463 
IT1	032462 0      0   0   324000032463 0            000000032463 
AT3	032462 0      0   0   000000032463 0            324000032463 
AT6	032462 032463 0   0   000000032463 0            324000032463 
FT1A	032462 032463 0   0   000000032463 0            000000032463 
FT2	032462 032463 0   0   0            0            000000032463 
FT2RQ	032462 032463 0   0   0            0            000000032463 
FT3	032462 032463 0   0   0            0            000000032463 
FT9	032463 032463 0   0   0            0            000000032463 
ET0	032463 032463 0   0   0            0            000000032463 
ST1A	032463 032463 0   0   0            0            000000032463 
ST9	032463 032463 0   0   0            0            000000032463 


*032463 MOVE 	0,035476
INITIAL
C(AC)=000000 000000 
C(E)=777760 000000 
FINAL
C(AC)=777760 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032463 032463 0   0   200000035476 0            777760000000 
IT1	032463 0      0   0   200000035476 0            777760000000 
AT3	032463 0      0   0   000000035476 0            200000035476 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 329
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0608

AT6	032463 035476 0   0   000000035476 0            200000035476 
FT0	032463 035476 0   0   777760000000 0            200000035476 
FT1A	032463 035476 0   0   777760000000 0            777760000000 
FT9	032464 035476 0   0   777760000000 0            777760000000 
ET0	032464 035476 0   0   777760000000 0            777760000000 
ST1	032464 035476 0   0   777760000000 0            777760000000 
ST2	032464 035476 0   0   777760000000 0            777760000000 
ST9	032464 035476 0   0   777760000000 0            777760000000 


*032464 ADD 	0,035444
INITIAL
C(AC)=777760 000000 
C(E)=000020 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032464 032464 0   0   270000035444 0            000020000000 
IT1	032464 0      0   0   270000035444 0            000020000000 
AT3	032464 0      0   0   000000035444 0            270000035444 
AT6	032464 035444 0   0   000000035444 0            270000035444 
FT0	032464 035444 0   0   000020000000 0            270000035444 
FT1A	032464 035444 0   0   000020000000 0            000020000000 
FT2	032464 035444 0   0   0            0            000020000000 
FT2RQ	032464 035444 0   0   777760000000 0            000020000000 
FT3	032464 035444 0   0   777760000000 0            000020000000 
FT9	032465 035444 0   0   777760000000 0            000020000000 
ET0	032465 035444 0   0   0            0            000020000000 
ST1	032465 035444 0   0   0            0            000020000000 
ST2	032465 035444 0   0   0            0            000020000000 
ST9	032465 035444 0   0   0            0            000020000000 


*032465 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032465 032465 0   0   332000000000 0            0            
IT1	032465 0      0   0   332000000000 0            0            
AT3	032465 0      0   0   0            0            332000000000 
AT6	032465 0      0   0   0            0            332000000000 
FT0	032465 0      0   0   0            0            332000000000 
FT1A	032465 0      0   0   0            0            0            
FT9	032466 0      0   0   0            0            0            
ET0	032467 0      0   0   0            0            0            
ST1A	032467 0      0   0   0            0            0            
ST9	032467 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 330
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0609



*032467 JUMPA	0,032470
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032467 032467 0   0   324000032470 0            000000032470 
IT1	032467 0      0   0   324000032470 0            000000032470 
AT3	032467 0      0   0   000000032470 0            324000032470 
AT6	032467 032470 0   0   000000032470 0            324000032470 
FT1A	032467 032470 0   0   000000032470 0            000000032470 
FT2	032467 032470 0   0   0            0            000000032470 
FT2RQ	032467 032470 0   0   0            0            000000032470 
FT3	032467 032470 0   0   0            0            000000032470 
FT9	032470 032470 0   0   0            0            000000032470 
ET0	032470 032470 0   0   0            0            000000032470 
ST1A	032470 032470 0   0   0            0            000000032470 
ST9	032470 032470 0   0   0            0            000000032470 


*032470 MOVE 	0,035477
INITIAL
C(AC)=000000 000000 
C(E)=777770 000000 
FINAL
C(AC)=777770 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032470 032470 0   0   200000035477 0            777770000000 
IT1	032470 0      0   0   200000035477 0            777770000000 
AT3	032470 0      0   0   000000035477 0            200000035477 
AT6	032470 035477 0   0   000000035477 0            200000035477 
FT0	032470 035477 0   0   777770000000 0            200000035477 
FT1A	032470 035477 0   0   777770000000 0            777770000000 
FT9	032471 035477 0   0   777770000000 0            777770000000 
ET0	032471 035477 0   0   777770000000 0            777770000000 
ST1	032471 035477 0   0   777770000000 0            777770000000 
ST2	032471 035477 0   0   777770000000 0            777770000000 
ST9	032471 035477 0   0   777770000000 0            777770000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 331
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0610

*032471 ADD 	0,035443
INITIAL
C(AC)=777770 000000 
C(E)=000010 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032471 032471 0   0   270000035443 0            000010000000 
IT1	032471 0      0   0   270000035443 0            000010000000 
AT3	032471 0      0   0   000000035443 0            270000035443 
AT6	032471 035443 0   0   000000035443 0            270000035443 
FT0	032471 035443 0   0   000010000000 0            270000035443 
FT1A	032471 035443 0   0   000010000000 0            000010000000 
FT2	032471 035443 0   0   0            0            000010000000 
FT2RQ	032471 035443 0   0   777770000000 0            000010000000 
FT3	032471 035443 0   0   777770000000 0            000010000000 
FT9	032472 035443 0   0   777770000000 0            000010000000 
ET0	032472 035443 0   0   0            0            000010000000 
ST1	032472 035443 0   0   0            0            000010000000 
ST2	032472 035443 0   0   0            0            000010000000 
ST9	032472 035443 0   0   0            0            000010000000 


*032472 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032472 032472 0   0   332000000000 0            0            
IT1	032472 0      0   0   332000000000 0            0            
AT3	032472 0      0   0   0            0            332000000000 
AT6	032472 0      0   0   0            0            332000000000 
FT0	032472 0      0   0   0            0            332000000000 
FT1A	032472 0      0   0   0            0            0            
FT9	032473 0      0   0   0            0            0            
ET0	032474 0      0   0   0            0            0            
ST1A	032474 0      0   0   0            0            0            
ST9	032474 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 332
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0611

*032474 JUMPA	0,032475
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032474 032474 0   0   324000032475 0            000000032475 
IT1	032474 0      0   0   324000032475 0            000000032475 
AT3	032474 0      0   0   000000032475 0            324000032475 
AT6	032474 032475 0   0   000000032475 0            324000032475 
FT1A	032474 032475 0   0   000000032475 0            000000032475 
FT2	032474 032475 0   0   0            0            000000032475 
FT2RQ	032474 032475 0   0   0            0            000000032475 
FT3	032474 032475 0   0   0            0            000000032475 
FT9	032475 032475 0   0   0            0            000000032475 
ET0	032475 032475 0   0   0            0            000000032475 
ST1A	032475 032475 0   0   0            0            000000032475 
ST9	032475 032475 0   0   0            0            000000032475 


*032475 MOVE 	0,035500
INITIAL
C(AC)=000000 000000 
C(E)=777774 000000 
FINAL
C(AC)=777774 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032475 032475 0   0   200000035500 0            777774000000 
IT1	032475 0      0   0   200000035500 0            777774000000 
AT3	032475 0      0   0   000000035500 0            200000035500 
AT6	032475 0      0   0   000000035500 0            200000035500 
FT0	032475 0      0   0   777774000000 0            200000035500 
FT1A	032475 0      0   0   777774000000 0            777774000000 
FT9	032476 0      0   0   777774000000 0            777774000000 
ET0	032476 0      0   0   777774000000 0            777774000000 
ST1	032476 0      0   0   777774000000 0            777774000000 
ST2	032476 0      0   0   777774000000 0            777774000000 
ST9	032476 0      0   0   777774000000 0            777774000000 


*032476 ADD 	0,035442
INITIAL
C(AC)=777774 000000 
C(E)=000004 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032476 032476 0   0   270000035442 0            000004000000 
IT1	032476 0      0   0   270000035442 0            000004000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 333
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0612

AT3	032476 0      0   0   000000035442 0            270000035442 
AT6	032476 035442 0   0   000000035442 0            270000035442 
FT0	032476 035442 0   0   000004000000 0            270000035442 
FT1A	032476 035442 0   0   000004000000 0            000004000000 
FT2	032476 035442 0   0   0            0            000004000000 
FT2RQ	032476 035442 0   0   777774000000 0            000004000000 
FT3	032476 035442 0   0   777774000000 0            000004000000 
FT9	032477 035442 0   0   777774000000 0            000004000000 
ET0	032477 035442 0   0   0            0            000004000000 
ST1	032477 035442 0   0   0            0            000004000000 
ST2	032477 035442 0   0   0            0            000004000000 
ST9	032477 035442 0   0   0            0            000004000000 


*032477 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032477 032477 0   0   332000000000 0            0            
IT1	032477 0      0   0   332000000000 0            0            
AT3	032477 0      0   0   0            0            332000000000 
AT6	032477 0      0   0   0            0            332000000000 
FT0	032477 0      0   0   0            0            332000000000 
FT1A	032477 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	032501 0      0   0   0            0            0            
ST1A	032501 0      0   0   0            0            0            
ST9	032501 0      0   0   0            0            0            


*032501 JUMPA	0,032502
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032501 032501 0   0   324000032502 0            000000032502 
IT1	032501 0      0   0   324000032502 0            000000032502 
AT3	032501 0      0   0   000000032502 0            324000032502 
AT6	032501 032502 0   0   000000032502 0            324000032502 
FT1A	032501 032502 0   0   000000032502 0            000000032502 
FT2	032501 032502 0   0   0            0            000000032502 
FT2RQ	032501 032502 0   0   0            0            000000032502 
FT3	032501 032502 0   0   0            0            000000032502 
FT9	032502 032502 0   0   0            0            000000032502 
ET0	032502 032502 0   0   0            0            000000032502 
ST1A	032502 032502 0   0   0            0            000000032502 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 334
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0613

ST9	032502 032502 0   0   0            0            000000032502 


*032502 MOVE 	0,035501
INITIAL
C(AC)=000000 000000 
C(E)=777776 000000 
FINAL
C(AC)=777776 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032502 032502 0   0   200000035501 0            777776000000 
IT1	032502 0      0   0   200000035501 0            777776000000 
AT3	032502 0      0   0   000000035501 0            200000035501 
AT6	032502 035501 0   0   000000035501 0            200000035501 
FT0	032502 035501 0   0   777776000000 0            200000035501 
FT1A	032502 035501 0   0   777776000000 0            777776000000 
FT9	032503 035501 0   0   777776000000 0            777776000000 
ET0	032503 035501 0   0   777776000000 0            777776000000 
ST1	032503 035501 0   0   777776000000 0            777776000000 
ST2	032503 035501 0   0   777776000000 0            777776000000 
ST9	032503 035501 0   0   777776000000 0            777776000000 


*032503 ADD 	0,035441
INITIAL
C(AC)=777776 000000 
C(E)=000002 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032503 032503 0   0   270000035441 0            000002000000 
IT1	032503 0      0   0   270000035441 0            000002000000 
AT3	032503 0      0   0   000000035441 0            270000035441 
AT6	032503 035441 0   0   000000035441 0            270000035441 
FT0	032503 035441 0   0   000002000000 0            270000035441 
FT1A	032503 035441 0   0   000002000000 0            000002000000 
FT2	032503 035441 0   0   0            0            000002000000 
FT2RQ	032503 035441 0   0   777776000000 0            000002000000 
FT3	032503 035441 0   0   777776000000 0            000002000000 
FT9	032504 035441 0   0   777776000000 0            000002000000 
ET0	032504 035441 0   0   0            0            000002000000 
ST1	032504 035441 0   0   0            0            000002000000 
ST2	032504 035441 0   0   0            0            000002000000 
ST9	032504 035441 0   0   0            0            000002000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 335
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0614

*032504 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032504 032504 0   0   332000000000 0            0            
IT1	032504 0      0   0   332000000000 0            0            
AT3	032504 0      0   0   0            0            332000000000 
AT6	032504 0      0   0   0            0            332000000000 
FT0	032504 0      0   0   0            0            332000000000 
FT1A	032504 0      0   0   0            0            0            
FT9	032505 0      0   0   0            0            0            
ET0	032506 0      0   0   0            0            0            
ST1A	032506 0      0   0   0            0            0            
ST9	032506 0      0   0   0            0            0            


*032506 JUMPA	0,032507
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032506 032506 0   0   324000032507 0            000000032507 
IT1	032506 0      0   0   324000032507 0            000000032507 
AT3	032506 0      0   0   000000032507 0            324000032507 
AT6	032506 032507 0   0   000000032507 0            324000032507 
FT1A	032506 032507 0   0   000000032507 0            000000032507 
FT2	032506 032507 0   0   0            0            000000032507 
FT2RQ	032506 032507 0   0   0            0            000000032507 
FT3	032506 032507 0   0   0            0            000000032507 
FT9	032507 032507 0   0   0            0            000000032507 
ET0	032507 032507 0   0   0            0            000000032507 
ST1A	032507 032507 0   0   0            0            000000032507 
ST9	032507 032507 0   0   0            0            000000032507 


*032507 MOVE 	0,035502
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032507 032507 0   0   200000035502 0            777777000000 
IT1	032507 0      0   0   200000035502 0            777777000000 
AT3	032507 0      0   0   000000035502 0            200000035502 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 336
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0615

AT6	032507 035502 0   0   000000035502 0            200000035502 
FT0	032507 035502 0   0   777777000000 0            200000035502 
FT1A	032507 035502 0   0   777777000000 0            777777000000 
FT9	032510 035502 0   0   777777000000 0            777777000000 
ET0	032510 035502 0   0   777777000000 0            777777000000 
ST1	032510 035502 0   0   777777000000 0            777777000000 
ST2	032510 035502 0   0   777777000000 0            777777000000 
ST9	032510 035502 0   0   777777000000 0            777777000000 


*032510 ADD 	0,035440
INITIAL
C(AC)=777777 000000 
C(E)=000001 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032510 032510 0   0   270000035440 0            000001000000 
IT1	032510 0      0   0   270000035440 0            000001000000 
AT3	032510 0      0   0   000000035440 0            270000035440 
AT6	032510 035440 0   0   000000035440 0            270000035440 
FT0	032510 035440 0   0   000001000000 0            270000035440 
FT1A	032510 035440 0   0   000001000000 0            000001000000 
FT2	032510 035440 0   0   0            0            000001000000 
FT2RQ	032510 035440 0   0   777777000000 0            000001000000 
FT3	032510 035440 0   0   777777000000 0            000001000000 
FT9	032511 035440 0   0   777777000000 0            000001000000 
ET0	032511 035440 0   0   0            0            000001000000 
ST1	032511 035440 0   0   0            0            000001000000 
ST2	032511 035440 0   0   0            0            000001000000 
ST9	032511 035440 0   0   0            0            000001000000 


*032511 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032511 032511 0   0   332000000000 0            0            
IT1	032511 0      0   0   332000000000 0            0            
AT3	032511 0      0   0   0            0            332000000000 
AT6	032511 0      0   0   0            0            332000000000 
FT0	032511 0      0   0   0            0            332000000000 
FT1A	032511 0      0   0   0            0            0            
FT9	032512 0      0   0   0            0            0            
ET0	032513 0      0   0   0            0            0            
ST1A	032513 0      0   0   0            0            0            
ST9	032513 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 337
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0616



*032513 JUMPA	0,032514
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032513 032513 0   0   324000032514 0            000000032514 
IT1	032513 0      0   0   324000032514 0            000000032514 
AT3	032513 0      0   0   000000032514 0            324000032514 
AT6	032513 032514 0   0   000000032514 0            324000032514 
FT1A	032513 032514 0   0   000000032514 0            000000032514 
FT2	032513 032514 0   0   0            0            000000032514 
FT2RQ	032513 032514 0   0   0            0            000000032514 
FT3	032513 032514 0   0   0            0            000000032514 
FT9	032514 032514 0   0   0            0            000000032514 
ET0	032514 032514 0   0   0            0            000000032514 
ST1A	032514 032514 0   0   0            0            000000032514 
ST9	032514 032514 0   0   0            0            000000032514 


*032514 MOVE 	0,035503
INITIAL
C(AC)=000000 000000 
C(E)=777777 400000 
FINAL
C(AC)=777777 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032514 032514 0   0   200000035503 0            777777400000 
IT1	032514 0      0   0   200000035503 0            777777400000 
AT3	032514 0      0   0   000000035503 0            200000035503 
AT6	032514 035503 0   0   000000035503 0            200000035503 
FT0	032514 035503 0   0   777777400000 0            200000035503 
FT1A	032514 035503 0   0   777777400000 0            777777400000 
FT9	032515 035503 0   0   777777400000 0            777777400000 
ET0	032515 035503 0   0   777777400000 0            777777400000 
ST1	032515 035503 0   0   777777400000 0            777777400000 
ST2	032515 035503 0   0   777777400000 0            777777400000 
ST9	032515 035503 0   0   777777400000 0            777777400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 338
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0617

*032515 ADD 	0,035437
INITIAL
C(AC)=777777 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032515 032515 0   0   270000035437 0            000000400000 
IT1	032515 0      0   0   270000035437 0            000000400000 
AT3	032515 0      0   0   000000035437 0            270000035437 
AT6	032515 035437 0   0   000000035437 0            270000035437 
FT0	032515 035437 0   0   000000400000 0            270000035437 
FT1A	032515 035437 0   0   000000400000 0            000000400000 
FT2	032515 035437 0   0   0            0            000000400000 
FT2RQ	032515 035437 0   0   777777400000 0            000000400000 
FT3	032515 035437 0   0   777777400000 0            000000400000 
FT9	032516 035437 0   0   777777400000 0            000000400000 
ET0	032516 035437 0   0   0            0            000000400000 
ST1	032516 035437 0   0   0            0            000000400000 
ST2	032516 035437 0   0   0            0            000000400000 
ST9	032516 035437 0   0   0            0            000000400000 


*032516 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032516 032516 0   0   332000000000 0            0            
IT1	032516 0      0   0   332000000000 0            0            
AT3	032516 0      0   0   0            0            332000000000 
AT6	032516 0      0   0   0            0            332000000000 
FT0	032516 0      0   0   0            0            332000000000 
FT1A	032516 0      0   0   0            0            0            
FT9	032517 0      0   0   0            0            0            
ET0	032520 0      0   0   0            0            0            
ST1A	032520 0      0   0   0            0            0            
ST9	032520 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 339
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0618

*032520 JUMPA	0,032521
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032520 032520 0   0   324000032521 0            000000032521 
IT1	032520 0      0   0   324000032521 0            000000032521 
AT3	032520 0      0   0   000000032521 0            324000032521 
AT6	032520 032521 0   0   000000032521 0            324000032521 
FT1A	032520 032521 0   0   000000032521 0            000000032521 
FT2	032520 032521 0   0   0            0            000000032521 
FT2RQ	032520 032521 0   0   0            0            000000032521 
FT3	032520 032521 0   0   0            0            000000032521 
FT9	032521 032521 0   0   0            0            000000032521 
ET0	032521 032521 0   0   0            0            000000032521 
ST1A	032521 032521 0   0   0            0            000000032521 
ST9	032521 032521 0   0   0            0            000000032521 


*032521 MOVE 	0,035504
INITIAL
C(AC)=000000 000000 
C(E)=777777 600000 
FINAL
C(AC)=777777 600000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032521 032521 0   0   200000035504 0            777777600000 
IT1	032521 0      0   0   200000035504 0            777777600000 
AT3	032521 0      0   0   000000035504 0            200000035504 
AT6	032521 035504 0   0   000000035504 0            200000035504 
FT0	032521 035504 0   0   777777600000 0            200000035504 
FT1A	032521 035504 0   0   777777600000 0            777777600000 
FT9	032522 035504 0   0   777777600000 0            777777600000 
ET0	032522 035504 0   0   777777600000 0            777777600000 
ST1	032522 035504 0   0   777777600000 0            777777600000 
ST2	032522 035504 0   0   777777600000 0            777777600000 
ST9	032522 035504 0   0   777777600000 0            777777600000 


*032522 ADD 	0,035436
INITIAL
C(AC)=777777 600000 
C(E)=000000 200000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032522 032522 0   0   270000035436 0            000000200000 
IT1	032522 0      0   0   270000035436 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 340
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0619

AT3	032522 0      0   0   000000035436 0            270000035436 
AT6	032522 035436 0   0   000000035436 0            270000035436 
FT0	032522 035436 0   0   000000200000 0            270000035436 
FT1A	032522 035436 0   0   000000200000 0            000000200000 
FT2	032522 035436 0   0   0            0            000000200000 
FT2RQ	032522 035436 0   0   777777600000 0            000000200000 
FT3	032522 035436 0   0   777777600000 0            000000200000 
FT9	032523 035436 0   0   777777600000 0            000000200000 
ET0	032523 035436 0   0   0            0            000000200000 
ST1	032523 035436 0   0   0            0            000000200000 
ST2	032523 035436 0   0   0            0            000000200000 
ST9	032523 035436 0   0   0            0            000000200000 


*032523 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032523 032523 0   0   332000000000 0            0            
IT1	032523 0      0   0   332000000000 0            0            
AT3	032523 0      0   0   0            0            332000000000 
AT6	032523 0      0   0   0            0            332000000000 
FT0	032523 0      0   0   0            0            332000000000 
FT1A	032523 0      0   0   0            0            0            
FT9	032524 0      0   0   0            0            0            
ET0	032525 0      0   0   0            0            0            
ST1A	032525 0      0   0   0            0            0            
ST9	032525 0      0   0   0            0            0            


*032525 JUMPA	0,032526
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032525 032525 0   0   324000032526 0            000000032526 
IT1	032525 0      0   0   324000032526 0            000000032526 
AT3	032525 0      0   0   000000032526 0            324000032526 
AT6	032525 032526 0   0   000000032526 0            324000032526 
FT1A	032525 032526 0   0   000000032526 0            000000032526 
FT2	032525 032526 0   0   0            0            000000032526 
FT2RQ	032525 032526 0   0   0            0            000000032526 
FT3	032525 032526 0   0   0            0            000000032526 
FT9	032526 032526 0   0   0            0            000000032526 
ET0	032526 032526 0   0   0            0            000000032526 
ST1A	032526 032526 0   0   0            0            000000032526 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 341
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0620

ST9	032526 032526 0   0   0            0            000000032526 


*032526 MOVE 	0,035505
INITIAL
C(AC)=000000 000000 
C(E)=777777 700000 
FINAL
C(AC)=777777 700000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032526 032526 0   0   200000035505 0            777777700000 
IT1	032526 0      0   0   200000035505 0            777777700000 
AT3	032526 0      0   0   000000035505 0            200000035505 
AT6	032526 035505 0   0   000000035505 0            200000035505 
FT0	032526 035505 0   0   777777700000 0            200000035505 
FT1A	032526 035505 0   0   777777700000 0            777777700000 
FT9	032527 035505 0   0   777777700000 0            777777700000 
ET0	032527 035505 0   0   777777700000 0            777777700000 
ST1	032527 035505 0   0   777777700000 0            777777700000 
ST2	032527 035505 0   0   777777700000 0            777777700000 
ST9	032527 035505 0   0   777777700000 0            777777700000 


*032527 ADD 	0,035435
INITIAL
C(AC)=777777 700000 
C(E)=000000 100000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032527 032527 0   0   270000035435 0            000000100000 
IT1	032527 0      0   0   270000035435 0            000000100000 
AT3	032527 0      0   0   000000035435 0            270000035435 
AT6	032527 035435 0   0   000000035435 0            270000035435 
FT0	032527 035435 0   0   000000100000 0            270000035435 
FT1A	032527 035435 0   0   000000100000 0            000000100000 
FT2	032527 035435 0   0   0            0            000000100000 
FT2RQ	032527 035435 0   0   777777700000 0            000000100000 
FT3	032527 035435 0   0   777777700000 0            000000100000 
FT9	032530 035435 0   0   777777700000 0            000000100000 
ET0	032530 035435 0   0   0            0            000000100000 
ST1	032530 035435 0   0   0            0            000000100000 
ST2	032530 035435 0   0   0            0            000000100000 
ST9	032530 035435 0   0   0            0            000000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 342
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0621

*032530 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032530 032530 0   0   332000000000 0            0            
IT1	032530 0      0   0   332000000000 0            0            
AT3	032530 0      0   0   0            0            332000000000 
AT6	032530 0      0   0   0            0            332000000000 
FT0	032530 0      0   0   0            0            332000000000 
FT1A	032530 0      0   0   0            0            0            
FT9	032531 0      0   0   0            0            0            
ET0	032532 0      0   0   0            0            0            
ST1A	032532 0      0   0   0            0            0            
ST9	032532 0      0   0   0            0            0            


*032532 JUMPA	0,032533
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032532 032532 0   0   324000032533 0            000000032533 
IT1	032532 0      0   0   324000032533 0            000000032533 
AT3	032532 0      0   0   000000032533 0            324000032533 
AT6	032532 032533 0   0   000000032533 0            324000032533 
FT1A	032532 032533 0   0   000000032533 0            000000032533 
FT2	032532 032533 0   0   0            0            000000032533 
FT2RQ	032532 032533 0   0   0            0            000000032533 
FT3	032532 032533 0   0   0            0            000000032533 
FT9	032533 032533 0   0   0            0            000000032533 
ET0	032533 032533 0   0   0            0            000000032533 
ST1A	032533 032533 0   0   0            0            000000032533 
ST9	032533 032533 0   0   0            0            000000032533 


*032533 MOVE 	0,035506
INITIAL
C(AC)=000000 000000 
C(E)=777777 740000 
FINAL
C(AC)=777777 740000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032533 032533 0   0   200000035506 0            777777740000 
IT1	032533 0      0   0   200000035506 0            777777740000 
AT3	032533 0      0   0   000000035506 0            200000035506 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 343
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0622

AT6	032533 035506 0   0   000000035506 0            200000035506 
FT0	032533 035506 0   0   777777740000 0            200000035506 
FT1A	032533 035506 0   0   777777740000 0            777777740000 
FT9	032534 035506 0   0   777777740000 0            777777740000 
ET0	032534 035506 0   0   777777740000 0            777777740000 
ST1	032534 035506 0   0   777777740000 0            777777740000 
ST2	032534 035506 0   0   777777740000 0            777777740000 
ST9	032534 035506 0   0   777777740000 0            777777740000 


*032534 ADD 	0,035434
INITIAL
C(AC)=777777 740000 
C(E)=000000 040000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032534 032534 0   0   270000035434 0            000000040000 
IT1	032534 0      0   0   270000035434 0            000000040000 
AT3	032534 0      0   0   000000035434 0            270000035434 
AT6	032534 035434 0   0   000000035434 0            270000035434 
FT0	032534 035434 0   0   000000040000 0            270000035434 
FT1A	032534 035434 0   0   000000040000 0            000000040000 
FT2	032534 035434 0   0   0            0            000000040000 
FT2RQ	032534 035434 0   0   777777740000 0            000000040000 
FT3	032534 035434 0   0   777777740000 0            000000040000 
FT9	032535 035434 0   0   777777740000 0            000000040000 
ET0	032535 035434 0   0   0            0            000000040000 
ST1	032535 035434 0   0   0            0            000000040000 
ST2	032535 035434 0   0   0            0            000000040000 
ST9	032535 035434 0   0   0            0            000000040000 


*032535 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032535 032535 0   0   332000000000 0            0            
IT1	032535 0      0   0   332000000000 0            0            
AT3	032535 0      0   0   0            0            332000000000 
AT6	032535 0      0   0   0            0            332000000000 
FT0	032535 0      0   0   0            0            332000000000 
FT1A	032535 0      0   0   0            0            0            
FT9	032536 0      0   0   0            0            0            
ET0	032537 0      0   0   0            0            0            
ST1A	032537 0      0   0   0            0            0            
ST9	032537 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 344
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0623



*032537 JUMPA	0,032540
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032537 032537 0   0   324000032540 0            000000032540 
IT1	032537 0      0   0   324000032540 0            000000032540 
AT3	032537 0      0   0   000000032540 0            324000032540 
AT6	032537 032540 0   0   000000032540 0            324000032540 
FT1A	032537 032540 0   0   000000032540 0            000000032540 
FT2	032537 032540 0   0   0            0            000000032540 
FT2RQ	032537 032540 0   0   0            0            000000032540 
FT3	032537 032540 0   0   0            0            000000032540 
FT9	032540 032540 0   0   0            0            000000032540 
ET0	032540 032540 0   0   0            0            000000032540 
ST1A	032540 032540 0   0   0            0            000000032540 
ST9	032540 032540 0   0   0            0            000000032540 


*032540 MOVE 	0,035507
INITIAL
C(AC)=000000 000000 
C(E)=777777 760000 
FINAL
C(AC)=777777 760000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032540 032540 0   0   200000035507 0            777777760000 
IT1	032540 0      0   0   200000035507 0            777777760000 
AT3	032540 0      0   0   000000035507 0            200000035507 
AT6	032540 035507 0   0   000000035507 0            200000035507 
FT0	032540 035507 0   0   777777760000 0            200000035507 
FT1A	032540 035507 0   0   777777760000 0            777777760000 
FT9	032541 035507 0   0   777777760000 0            777777760000 
ET0	032541 035507 0   0   777777760000 0            777777760000 
ST1	032541 035507 0   0   777777760000 0            777777760000 
ST2	032541 035507 0   0   777777760000 0            777777760000 
ST9	032541 035507 0   0   777777760000 0            777777760000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 345
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0624

*032541 ADD 	0,035433
INITIAL
C(AC)=777777 760000 
C(E)=000000 020000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032541 032541 0   0   270000035433 0            000000020000 
IT1	032541 0      0   0   270000035433 0            000000020000 
AT3	032541 0      0   0   000000035433 0            270000035433 
AT6	032541 035433 0   0   000000035433 0            270000035433 
FT0	032541 035433 0   0   000000020000 0            270000035433 
FT1A	032541 035433 0   0   000000020000 0            000000020000 
FT2	032541 035433 0   0   0            0            000000020000 
FT2RQ	032541 035433 0   0   777777760000 0            000000020000 
FT3	032541 035433 0   0   777777760000 0            000000020000 
FT9	032542 035433 0   0   777777760000 0            000000020000 
ET0	032542 035433 0   0   0            0            000000020000 
ST1	032542 035433 0   0   0            0            000000020000 
ST2	032542 035433 0   0   0            0            000000020000 
ST9	032542 035433 0   0   0            0            000000020000 


*032542 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032542 032542 0   0   332000000000 0            0            
IT1	032542 0      0   0   332000000000 0            0            
AT3	032542 0      0   0   0            0            332000000000 
AT6	032542 0      0   0   0            0            332000000000 
FT0	032542 0      0   0   0            0            332000000000 
FT1A	032542 0      0   0   0            0            0            
FT9	032543 0      0   0   0            0            0            
ET0	032544 0      0   0   0            0            0            
ST1A	032544 0      0   0   0            0            0            
ST9	032544 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 346
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0625

*032544 JUMPA	0,032545
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032544 032544 0   0   324000032545 0            000000032545 
IT1	032544 0      0   0   324000032545 0            000000032545 
AT3	032544 0      0   0   000000032545 0            324000032545 
AT6	032544 032545 0   0   000000032545 0            324000032545 
FT1A	032544 032545 0   0   000000032545 0            000000032545 
FT2	032544 032545 0   0   0            0            000000032545 
FT2RQ	032544 032545 0   0   0            0            000000032545 
FT3	032544 032545 0   0   0            0            000000032545 
FT9	032545 032545 0   0   0            0            000000032545 
ET0	032545 032545 0   0   0            0            000000032545 
ST1A	032545 032545 0   0   0            0            000000032545 
ST9	032545 032545 0   0   0            0            000000032545 


*032545 MOVE 	0,035510
INITIAL
C(AC)=000000 000000 
C(E)=777777 770000 
FINAL
C(AC)=777777 770000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032545 032545 0   0   200000035510 0            777777770000 
IT1	032545 0      0   0   200000035510 0            777777770000 
AT3	032545 0      0   0   000000035510 0            200000035510 
AT6	032545 035510 0   0   000000035510 0            200000035510 
FT0	032545 035510 0   0   777777770000 0            200000035510 
FT1A	032545 035510 0   0   777777770000 0            777777770000 
FT9	032546 035510 0   0   777777770000 0            777777770000 
ET0	032546 035510 0   0   777777770000 0            777777770000 
ST1	032546 035510 0   0   777777770000 0            777777770000 
ST2	032546 035510 0   0   777777770000 0            777777770000 
ST9	032546 035510 0   0   777777770000 0            777777770000 


*032546 ADD 	0,035432
INITIAL
C(AC)=777777 770000 
C(E)=000000 010000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032546 032546 0   0   270000035432 0            000000010000 
IT1	032546 0      0   0   270000035432 0            000000010000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 347
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0626

AT3	032546 0      0   0   000000035432 0            270000035432 
AT6	032546 035432 0   0   000000035432 0            270000035432 
FT0	032546 035432 0   0   000000010000 0            270000035432 
FT1A	032546 035432 0   0   000000010000 0            000000010000 
FT2	032546 035432 0   0   0            0            000000010000 
FT2RQ	032546 035432 0   0   777777770000 0            000000010000 
FT3	032546 035432 0   0   777777770000 0            000000010000 
FT9	032547 035432 0   0   777777770000 0            000000010000 
ET0	032547 035432 0   0   0            0            000000010000 
ST1	032547 035432 0   0   0            0            000000010000 
ST2	032547 035432 0   0   0            0            000000010000 
ST9	032547 035432 0   0   0            0            000000010000 


*032547 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032547 032547 0   0   332000000000 0            0            
IT1	032547 0      0   0   332000000000 0            0            
AT3	032547 0      0   0   0            0            332000000000 
AT6	032547 0      0   0   0            0            332000000000 
FT0	032547 0      0   0   0            0            332000000000 
FT1A	032547 0      0   0   0            0            0            
FT9	032550 0      0   0   0            0            0            
ET0	032551 0      0   0   0            0            0            
ST1A	032551 0      0   0   0            0            0            
ST9	032551 0      0   0   0            0            0            


*032551 JUMPA	0,032552
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032551 032551 0   0   324000032552 0            000000032552 
IT1	032551 0      0   0   324000032552 0            000000032552 
AT3	032551 0      0   0   000000032552 0            324000032552 
AT6	032551 032552 0   0   000000032552 0            324000032552 
FT1A	032551 032552 0   0   000000032552 0            000000032552 
FT2	032551 032552 0   0   0            0            000000032552 
FT2RQ	032551 032552 0   0   0            0            000000032552 
FT3	032551 032552 0   0   0            0            000000032552 
FT9	032552 032552 0   0   0            0            000000032552 
ET0	032552 032552 0   0   0            0            000000032552 
ST1A	032552 032552 0   0   0            0            000000032552 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 348
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0627

ST9	032552 032552 0   0   0            0            000000032552 


*032552 MOVE 	0,035511
INITIAL
C(AC)=000000 000000 
C(E)=777777 774000 
FINAL
C(AC)=777777 774000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032552 032552 0   0   200000035511 0            777777774000 
IT1	032552 0      0   0   200000035511 0            777777774000 
AT3	032552 0      0   0   000000035511 0            200000035511 
AT6	032552 035511 0   0   000000035511 0            200000035511 
FT0	032552 035511 0   0   777777774000 0            200000035511 
FT1A	032552 035511 0   0   777777774000 0            777777774000 
FT9	032553 035511 0   0   777777774000 0            777777774000 
ET0	032553 035511 0   0   777777774000 0            777777774000 
ST1	032553 035511 0   0   777777774000 0            777777774000 
ST2	032553 035511 0   0   777777774000 0            777777774000 
ST9	032553 035511 0   0   777777774000 0            777777774000 


*032553 ADD 	0,035431
INITIAL
C(AC)=777777 774000 
C(E)=000000 004000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032553 032553 0   0   270000035431 0            000000004000 
IT1	032553 0      0   0   270000035431 0            000000004000 
AT3	032553 0      0   0   000000035431 0            270000035431 
AT6	032553 035431 0   0   000000035431 0            270000035431 
FT0	032553 035431 0   0   000000004000 0            270000035431 
FT1A	032553 035431 0   0   000000004000 0            000000004000 
FT2	032553 035431 0   0   0            0            000000004000 
FT2RQ	032553 035431 0   0   777777774000 0            000000004000 
FT3	032553 035431 0   0   777777774000 0            000000004000 
FT9	032554 035431 0   0   777777774000 0            000000004000 
ET0	032554 035431 0   0   0            0            000000004000 
ST1	032554 035431 0   0   0            0            000000004000 
ST2	032554 035431 0   0   0            0            000000004000 
ST9	032554 035431 0   0   0            0            000000004000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 349
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0628

*032554 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032554 032554 0   0   332000000000 0            0            
IT1	032554 0      0   0   332000000000 0            0            
AT3	032554 0      0   0   0            0            332000000000 
AT6	032554 0      0   0   0            0            332000000000 
FT0	032554 0      0   0   0            0            332000000000 
FT1A	032554 0      0   0   0            0            0            
FT9	032555 0      0   0   0            0            0            
ET0	032556 0      0   0   0            0            0            
ST1A	032556 0      0   0   0            0            0            
ST9	032556 0      0   0   0            0            0            


*032556 JUMPA	0,032557
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032556 032556 0   0   324000032557 0            000000032557 
IT1	032556 0      0   0   324000032557 0            000000032557 
AT3	032556 0      0   0   000000032557 0            324000032557 
AT6	032556 032557 0   0   000000032557 0            324000032557 
FT1A	032556 032557 0   0   000000032557 0            000000032557 
FT2	032556 032557 0   0   0            0            000000032557 
FT2RQ	032556 032557 0   0   0            0            000000032557 
FT3	032556 032557 0   0   0            0            000000032557 
FT9	032557 032557 0   0   0            0            000000032557 
ET0	032557 032557 0   0   0            0            000000032557 
ST1A	032557 032557 0   0   0            0            000000032557 
ST9	032557 032557 0   0   0            0            000000032557 


*032557 MOVE 	0,035512
INITIAL
C(AC)=000000 000000 
C(E)=777777 776000 
FINAL
C(AC)=777777 776000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032557 032557 0   0   200000035512 0            777777776000 
IT1	032557 0      0   0   200000035512 0            777777776000 
AT3	032557 0      0   0   000000035512 0            200000035512 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 350
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0629

AT6	032557 035512 0   0   000000035512 0            200000035512 
FT0	032557 035512 0   0   777777776000 0            200000035512 
FT1A	032557 035512 0   0   777777776000 0            777777776000 
FT9	032560 035512 0   0   777777776000 0            777777776000 
ET0	032560 035512 0   0   777777776000 0            777777776000 
ST1	032560 035512 0   0   777777776000 0            777777776000 
ST2	032560 035512 0   0   777777776000 0            777777776000 
ST9	032560 035512 0   0   777777776000 0            777777776000 


*032560 ADD 	0,035430
INITIAL
C(AC)=777777 776000 
C(E)=000000 002000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032560 032560 0   0   270000035430 0            000000002000 
IT1	032560 0      0   0   270000035430 0            000000002000 
AT3	032560 0      0   0   000000035430 0            270000035430 
AT6	032560 035430 0   0   000000035430 0            270000035430 
FT0	032560 035430 0   0   000000002000 0            270000035430 
FT1A	032560 035430 0   0   000000002000 0            000000002000 
FT2	032560 035430 0   0   0            0            000000002000 
FT2RQ	032560 035430 0   0   777777776000 0            000000002000 
FT3	032560 035430 0   0   777777776000 0            000000002000 
FT9	032561 035430 0   0   777777776000 0            000000002000 
ET0	032561 035430 0   0   0            0            000000002000 
ST1	032561 035430 0   0   0            0            000000002000 
ST2	032561 035430 0   0   0            0            000000002000 
ST9	032561 035430 0   0   0            0            000000002000 


*032561 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032561 032561 0   0   332000000000 0            0            
IT1	032561 0      0   0   332000000000 0            0            
AT3	032561 0      0   0   0            0            332000000000 
AT6	032561 0      0   0   0            0            332000000000 
FT0	032561 0      0   0   0            0            332000000000 
FT1A	032561 0      0   0   0            0            0            
FT9	032562 0      0   0   0            0            0            
ET0	032563 0      0   0   0            0            0            
ST1A	032563 0      0   0   0            0            0            
ST9	032563 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 351
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0630



*032563 JUMPA	0,032564
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032563 032563 0   0   324000032564 0            000000032564 
IT1	032563 0      0   0   324000032564 0            000000032564 
AT3	032563 0      0   0   000000032564 0            324000032564 
AT6	032563 032564 0   0   000000032564 0            324000032564 
FT1A	032563 032564 0   0   000000032564 0            000000032564 
FT2	032563 032564 0   0   0            0            000000032564 
FT2RQ	032563 032564 0   0   0            0            000000032564 
FT3	032563 032564 0   0   0            0            000000032564 
FT9	032564 032564 0   0   0            0            000000032564 
ET0	032564 032564 0   0   0            0            000000032564 
ST1A	032564 032564 0   0   0            0            000000032564 
ST9	032564 032564 0   0   0            0            000000032564 


*032564 MOVE 	0,035513
INITIAL
C(AC)=000000 000000 
C(E)=777777 777000 
FINAL
C(AC)=777777 777000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032564 032564 0   0   200000035513 0            777777777000 
IT1	032564 0      0   0   200000035513 0            777777777000 
AT3	032564 0      0   0   000000035513 0            200000035513 
AT6	032564 035513 0   0   000000035513 0            200000035513 
FT0	032564 035513 0   0   777777777000 0            200000035513 
FT1A	032564 035513 0   0   777777777000 0            777777777000 
FT9	032565 035513 0   0   777777777000 0            777777777000 
ET0	032565 035513 0   0   777777777000 0            777777777000 
ST1	032565 035513 0   0   777777777000 0            777777777000 
ST2	032565 035513 0   0   777777777000 0            777777777000 
ST9	032565 035513 0   0   777777777000 0            777777777000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 352
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0631

*032565 ADD 	0,035427
INITIAL
C(AC)=777777 777000 
C(E)=000000 001000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032565 032565 0   0   270000035427 0            000000001000 
IT1	032565 0      0   0   270000035427 0            000000001000 
AT3	032565 0      0   0   000000035427 0            270000035427 
AT6	032565 035427 0   0   000000035427 0            270000035427 
FT0	032565 035427 0   0   000000001000 0            270000035427 
FT1A	032565 035427 0   0   000000001000 0            000000001000 
FT2	032565 035427 0   0   0            0            000000001000 
FT2RQ	032565 035427 0   0   777777777000 0            000000001000 
FT3	032565 035427 0   0   777777777000 0            000000001000 
FT9	032566 035427 0   0   777777777000 0            000000001000 
ET0	032566 035427 0   0   0            0            000000001000 
ST1	032566 035427 0   0   0            0            000000001000 
ST2	032566 035427 0   0   0            0            000000001000 
ST9	032566 035427 0   0   0            0            000000001000 


*032566 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032566 032566 0   0   332000000000 0            0            
IT1	032566 0      0   0   332000000000 0            0            
AT3	032566 0      0   0   0            0            332000000000 
AT6	032566 0      0   0   0            0            332000000000 
FT0	032566 0      0   0   0            0            332000000000 
FT1A	032566 0      0   0   0            0            0            
FT9	032567 0      0   0   0            0            0            
ET0	032570 0      0   0   0            0            0            
ST1A	032570 0      0   0   0            0            0            
ST9	032570 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 353
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0632

*032570 JUMPA	0,032571
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032570 032570 0   0   324000032571 0            000000032571 
IT1	032570 0      0   0   324000032571 0            000000032571 
AT3	032570 0      0   0   000000032571 0            324000032571 
AT6	032570 032571 0   0   000000032571 0            324000032571 
FT1A	032570 032571 0   0   000000032571 0            000000032571 
FT2	032570 032571 0   0   0            0            000000032571 
FT2RQ	032570 032571 0   0   0            0            000000032571 
FT3	032570 032571 0   0   0            0            000000032571 
FT9	032571 032571 0   0   0            0            000000032571 
ET0	032571 032571 0   0   0            0            000000032571 
ST1A	032571 032571 0   0   0            0            000000032571 
ST9	032571 032571 0   0   0            0            000000032571 


*032571 MOVE 	0,035514
INITIAL
C(AC)=000000 000000 
C(E)=777777 777400 
FINAL
C(AC)=777777 777400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032571 032571 0   0   200000035514 0            777777777400 
IT1	032571 0      0   0   200000035514 0            777777777400 
AT3	032571 0      0   0   000000035514 0            200000035514 
AT6	032571 035514 0   0   000000035514 0            200000035514 
FT0	032571 035514 0   0   777777777400 0            200000035514 
FT1A	032571 035514 0   0   777777777400 0            777777777400 
FT9	032572 035514 0   0   777777777400 0            777777777400 
ET0	032572 035514 0   0   777777777400 0            777777777400 
ST1	032572 035514 0   0   777777777400 0            777777777400 
ST2	032572 035514 0   0   777777777400 0            777777777400 
ST9	032572 035514 0   0   777777777400 0            777777777400 


*032572 ADD 	0,035426
INITIAL
C(AC)=777777 777400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032572 032572 0   0   270000035426 0            000000000400 
IT1	032572 0      0   0   270000035426 0            000000000400 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 354
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0633

AT3	032572 0      0   0   000000035426 0            270000035426 
AT6	032572 035426 0   0   000000035426 0            270000035426 
FT0	032572 035426 0   0   000000000400 0            270000035426 
FT1A	032572 035426 0   0   000000000400 0            000000000400 
FT2	032572 035426 0   0   0            0            000000000400 
FT2RQ	032572 035426 0   0   777777777400 0            000000000400 
FT3	032572 035426 0   0   777777777400 0            000000000400 
FT9	032573 035426 0   0   777777777400 0            000000000400 
ET0	032573 035426 0   0   0            0            000000000400 
ST1	032573 035426 0   0   0            0            000000000400 
ST2	032573 035426 0   0   0            0            000000000400 
ST9	032573 035426 0   0   0            0            000000000400 


*032573 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032573 032573 0   0   332000000000 0            0            
IT1	032573 0      0   0   332000000000 0            0            
AT3	032573 0      0   0   0            0            332000000000 
AT6	032573 0      0   0   0            0            332000000000 
FT0	032573 0      0   0   0            0            332000000000 
FT1A	032573 0      0   0   0            0            0            
FT9	032574 0      0   0   0            0            0            
ET0	032575 0      0   0   0            0            0            
ST1A	032575 0      0   0   0            0            0            
ST9	032575 0      0   0   0            0            0            


*032575 JUMPA	0,032576
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032575 032575 0   0   324000032576 0            000000032576 
IT1	032575 0      0   0   324000032576 0            000000032576 
AT3	032575 0      0   0   000000032576 0            324000032576 
AT6	032575 032576 0   0   000000032576 0            324000032576 
FT1A	032575 032576 0   0   000000032576 0            000000032576 
FT2	032575 032576 0   0   0            0            000000032576 
FT2RQ	032575 032576 0   0   0            0            000000032576 
FT3	032575 032576 0   0   0            0            000000032576 
FT9	032576 032576 0   0   0            0            000000032576 
ET0	032576 032576 0   0   0            0            000000032576 
ST1A	032576 032576 0   0   0            0            000000032576 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 355
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0634

ST9	032576 032576 0   0   0            0            000000032576 


*032576 MOVE 	0,035515
INITIAL
C(AC)=000000 000000 
C(E)=777777 777600 
FINAL
C(AC)=777777 777600 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032576 032576 0   0   200000035515 0            777777777600 
IT1	032576 0      0   0   200000035515 0            777777777600 
AT3	032576 0      0   0   000000035515 0            200000035515 
AT6	032576 035515 0   0   000000035515 0            200000035515 
FT0	032576 035515 0   0   777777777600 0            200000035515 
FT1A	032576 035515 0   0   777777777600 0            777777777600 
FT9	032577 035515 0   0   777777777600 0            777777777600 
ET0	032577 035515 0   0   777777777600 0            777777777600 
ST1	032577 035515 0   0   777777777600 0            777777777600 
ST2	032577 035515 0   0   777777777600 0            777777777600 
ST9	032577 035515 0   0   777777777600 0            777777777600 


*032577 ADD 	0,035425
INITIAL
C(AC)=777777 777600 
C(E)=000000 000200 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032577 032577 0   0   270000035425 0            000000000200 
IT1	032577 0      0   0   270000035425 0            000000000200 
AT3	032577 0      0   0   000000035425 0            270000035425 
AT6	032577 035425 0   0   000000035425 0            270000035425 
FT0	032577 035425 0   0   000000000200 0            270000035425 
FT1A	032577 035425 0   0   000000000200 0            000000000200 
FT2	032577 035425 0   0   0            0            000000000200 
FT2RQ	032577 035425 0   0   777777777600 0            000000000200 
FT3	032577 035425 0   0   777777777600 0            000000000200 
FT9	0      035425 0   0   777777777600 0            000000000200 
ET0	0      035425 0   0   0            0            000000000200 
ST1	0      035425 0   0   0            0            000000000200 
ST2	0      035425 0   0   0            0            000000000200 
ST9	0      035425 0   0   0            0            000000000200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 356
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0635

*032600 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   332000000000 0            0            
IT1	0      0      0   0   332000000000 0            0            
AT3	0      0      0   0   0            0            332000000000 
AT6	0      0      0   0   0            0            332000000000 
FT0	0      0      0   0   0            0            332000000000 
FT1A	0      0      0   0   0            0            0            
FT9	032601 0      0   0   0            0            0            
ET0	032602 0      0   0   0            0            0            
ST1A	032602 0      0   0   0            0            0            
ST9	032602 0      0   0   0            0            0            


*032602 JUMPA	0,032603
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032602 032602 0   0   324000032603 0            000000032603 
IT1	032602 0      0   0   324000032603 0            000000032603 
AT3	032602 0      0   0   000000032603 0            324000032603 
AT6	032602 032603 0   0   000000032603 0            324000032603 
FT1A	032602 032603 0   0   000000032603 0            000000032603 
FT2	032602 032603 0   0   0            0            000000032603 
FT2RQ	032602 032603 0   0   0            0            000000032603 
FT3	032602 032603 0   0   0            0            000000032603 
FT9	032603 032603 0   0   0            0            000000032603 
ET0	032603 032603 0   0   0            0            000000032603 
ST1A	032603 032603 0   0   0            0            000000032603 
ST9	032603 032603 0   0   0            0            000000032603 


*032603 MOVE 	0,035516
INITIAL
C(AC)=000000 000000 
C(E)=777777 777700 
FINAL
C(AC)=777777 777700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032603 032603 0   0   200000035516 0            777777777700 
IT1	032603 0      0   0   200000035516 0            777777777700 
AT3	032603 0      0   0   000000035516 0            200000035516 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 357
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0636

AT6	032603 035516 0   0   000000035516 0            200000035516 
FT0	032603 035516 0   0   777777777700 0            200000035516 
FT1A	032603 035516 0   0   777777777700 0            777777777700 
FT9	032604 035516 0   0   777777777700 0            777777777700 
ET0	032604 035516 0   0   777777777700 0            777777777700 
ST1	032604 035516 0   0   777777777700 0            777777777700 
ST2	032604 035516 0   0   777777777700 0            777777777700 
ST9	032604 035516 0   0   777777777700 0            777777777700 


*032604 ADD 	0,035424
INITIAL
C(AC)=777777 777700 
C(E)=000000 000100 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032604 032604 0   0   270000035424 0            000000000100 
IT1	032604 0      0   0   270000035424 0            000000000100 
AT3	032604 0      0   0   000000035424 0            270000035424 
AT6	032604 035424 0   0   000000035424 0            270000035424 
FT0	032604 035424 0   0   000000000100 0            270000035424 
FT1A	032604 035424 0   0   000000000100 0            000000000100 
FT2	032604 035424 0   0   0            0            000000000100 
FT2RQ	032604 035424 0   0   777777777700 0            000000000100 
FT3	032604 035424 0   0   777777777700 0            000000000100 
FT9	032605 035424 0   0   777777777700 0            000000000100 
ET0	032605 035424 0   0   0            0            000000000100 
ST1	032605 035424 0   0   0            0            000000000100 
ST2	032605 035424 0   0   0            0            000000000100 
ST9	032605 035424 0   0   0            0            000000000100 


*032605 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032605 032605 0   0   332000000000 0            0            
IT1	032605 0      0   0   332000000000 0            0            
AT3	032605 0      0   0   0            0            332000000000 
AT6	032605 0      0   0   0            0            332000000000 
FT0	032605 0      0   0   0            0            332000000000 
FT1A	032605 0      0   0   0            0            0            
FT9	032606 0      0   0   0            0            0            
ET0	032607 0      0   0   0            0            0            
ST1A	032607 0      0   0   0            0            0            
ST9	032607 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 358
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0637



*032607 JUMPA	0,032610
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032607 032607 0   0   324000032610 0            000000032610 
IT1	032607 0      0   0   324000032610 0            000000032610 
AT3	032607 0      0   0   000000032610 0            324000032610 
AT6	032607 032610 0   0   000000032610 0            324000032610 
FT1A	032607 032610 0   0   000000032610 0            000000032610 
FT2	032607 032610 0   0   0            0            000000032610 
FT2RQ	032607 032610 0   0   0            0            000000032610 
FT3	032607 032610 0   0   0            0            000000032610 
FT9	032610 032610 0   0   0            0            000000032610 
ET0	032610 032610 0   0   0            0            000000032610 
ST1A	032610 032610 0   0   0            0            000000032610 
ST9	032610 032610 0   0   0            0            000000032610 


*032610 MOVE 	0,035517
INITIAL
C(AC)=000000 000000 
C(E)=777777 777740 
FINAL
C(AC)=777777 777740 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032610 032610 0   0   200000035517 0            777777777740 
IT1	032610 0      0   0   200000035517 0            777777777740 
AT3	032610 0      0   0   000000035517 0            200000035517 
AT6	032610 035517 0   0   000000035517 0            200000035517 
FT0	032610 035517 0   0   777777777740 0            200000035517 
FT1A	032610 035517 0   0   777777777740 0            777777777740 
FT9	032611 035517 0   0   777777777740 0            777777777740 
ET0	032611 035517 0   0   777777777740 0            777777777740 
ST1	032611 035517 0   0   777777777740 0            777777777740 
ST2	032611 035517 0   0   777777777740 0            777777777740 
ST9	032611 035517 0   0   777777777740 0            777777777740 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 359
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0638

*032611 ADD 	0,035423
INITIAL
C(AC)=777777 777740 
C(E)=000000 000040 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032611 032611 0   0   270000035423 0            000000000040 
IT1	032611 0      0   0   270000035423 0            000000000040 
AT3	032611 0      0   0   000000035423 0            270000035423 
AT6	032611 035423 0   0   000000035423 0            270000035423 
FT0	032611 035423 0   0   000000000040 0            270000035423 
FT1A	032611 035423 0   0   000000000040 0            000000000040 
FT2	032611 035423 0   0   0            0            000000000040 
FT2RQ	032611 035423 0   0   777777777740 0            000000000040 
FT3	032611 035423 0   0   777777777740 0            000000000040 
FT9	032612 035423 0   0   777777777740 0            000000000040 
ET0	032612 035423 0   0   0            0            000000000040 
ST1	032612 035423 0   0   0            0            000000000040 
ST2	032612 035423 0   0   0            0            000000000040 
ST9	032612 035423 0   0   0            0            000000000040 


*032612 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032612 032612 0   0   332000000000 0            0            
IT1	032612 0      0   0   332000000000 0            0            
AT3	032612 0      0   0   0            0            332000000000 
AT6	032612 0      0   0   0            0            332000000000 
FT0	032612 0      0   0   0            0            332000000000 
FT1A	032612 0      0   0   0            0            0            
FT9	032613 0      0   0   0            0            0            
ET0	032614 0      0   0   0            0            0            
ST1A	032614 0      0   0   0            0            0            
ST9	032614 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 360
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0639

*032614 JUMPA	0,032615
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032614 032614 0   0   324000032615 0            000000032615 
IT1	032614 0      0   0   324000032615 0            000000032615 
AT3	032614 0      0   0   000000032615 0            324000032615 
AT6	032614 032615 0   0   000000032615 0            324000032615 
FT1A	032614 032615 0   0   000000032615 0            000000032615 
FT2	032614 032615 0   0   0            0            000000032615 
FT2RQ	032614 032615 0   0   0            0            000000032615 
FT3	032614 032615 0   0   0            0            000000032615 
FT9	032615 032615 0   0   0            0            000000032615 
ET0	032615 032615 0   0   0            0            000000032615 
ST1A	032615 032615 0   0   0            0            000000032615 
ST9	032615 032615 0   0   0            0            000000032615 


*032615 MOVE 	0,035520
INITIAL
C(AC)=000000 000000 
C(E)=777777 777760 
FINAL
C(AC)=777777 777760 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032615 032615 0   0   200000035520 0            777777777760 
IT1	032615 0      0   0   200000035520 0            777777777760 
AT3	032615 0      0   0   000000035520 0            200000035520 
AT6	032615 035520 0   0   000000035520 0            200000035520 
FT0	032615 035520 0   0   777777777760 0            200000035520 
FT1A	032615 035520 0   0   777777777760 0            777777777760 
FT9	032616 035520 0   0   777777777760 0            777777777760 
ET0	032616 035520 0   0   777777777760 0            777777777760 
ST1	032616 035520 0   0   777777777760 0            777777777760 
ST2	032616 035520 0   0   777777777760 0            777777777760 
ST9	032616 035520 0   0   777777777760 0            777777777760 


*032616 ADD 	0,035422
INITIAL
C(AC)=777777 777760 
C(E)=000000 000020 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032616 032616 0   0   270000035422 0            000000000020 
IT1	032616 0      0   0   270000035422 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 361
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0640

AT3	032616 0      0   0   000000035422 0            270000035422 
AT6	032616 035422 0   0   000000035422 0            270000035422 
FT0	032616 035422 0   0   000000000020 0            270000035422 
FT1A	032616 035422 0   0   000000000020 0            000000000020 
FT2	032616 035422 0   0   0            0            000000000020 
FT2RQ	032616 035422 0   0   777777777760 0            000000000020 
FT3	032616 035422 0   0   777777777760 0            000000000020 
FT9	032617 035422 0   0   777777777760 0            000000000020 
ET0	032617 035422 0   0   0            0            000000000020 
ST1	032617 035422 0   0   0            0            000000000020 
ST2	032617 035422 0   0   0            0            000000000020 
ST9	032617 035422 0   0   0            0            000000000020 


*032617 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032617 032617 0   0   332000000000 0            0            
IT1	032617 0      0   0   332000000000 0            0            
AT3	032617 0      0   0   0            0            332000000000 
AT6	032617 0      0   0   0            0            332000000000 
FT0	032617 0      0   0   0            0            332000000000 
FT1A	032617 0      0   0   0            0            0            
FT9	032620 0      0   0   0            0            0            
ET0	032621 0      0   0   0            0            0            
ST1A	032621 0      0   0   0            0            0            
ST9	032621 0      0   0   0            0            0            


*032621 JUMPA	0,032622
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032621 032621 0   0   324000032622 0            000000032622 
IT1	032621 0      0   0   324000032622 0            000000032622 
AT3	032621 0      0   0   000000032622 0            324000032622 
AT6	032621 032622 0   0   000000032622 0            324000032622 
FT1A	032621 032622 0   0   000000032622 0            000000032622 
FT2	032621 032622 0   0   0            0            000000032622 
FT2RQ	032621 032622 0   0   0            0            000000032622 
FT3	032621 032622 0   0   0            0            000000032622 
FT9	032622 032622 0   0   0            0            000000032622 
ET0	032622 032622 0   0   0            0            000000032622 
ST1A	032622 032622 0   0   0            0            000000032622 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 362
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0641

ST9	032622 032622 0   0   0            0            000000032622 


*032622 MOVE 	0,035521
INITIAL
C(AC)=000000 000000 
C(E)=777777 777770 
FINAL
C(AC)=777777 777770 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032622 032622 0   0   200000035521 0            777777777770 
IT1	032622 0      0   0   200000035521 0            777777777770 
AT3	032622 0      0   0   000000035521 0            200000035521 
AT6	032622 035521 0   0   000000035521 0            200000035521 
FT0	032622 035521 0   0   777777777770 0            200000035521 
FT1A	032622 035521 0   0   777777777770 0            777777777770 
FT9	032623 035521 0   0   777777777770 0            777777777770 
ET0	032623 035521 0   0   777777777770 0            777777777770 
ST1	032623 035521 0   0   777777777770 0            777777777770 
ST2	032623 035521 0   0   777777777770 0            777777777770 
ST9	032623 035521 0   0   777777777770 0            777777777770 


*032623 ADD 	0,035421
INITIAL
C(AC)=777777 777770 
C(E)=000000 000010 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032623 032623 0   0   270000035421 0            000000000010 
IT1	032623 0      0   0   270000035421 0            000000000010 
AT3	032623 0      0   0   000000035421 0            270000035421 
AT6	032623 035421 0   0   000000035421 0            270000035421 
FT0	032623 035421 0   0   000000000010 0            270000035421 
FT1A	032623 035421 0   0   000000000010 0            000000000010 
FT2	032623 035421 0   0   0            0            000000000010 
FT2RQ	032623 035421 0   0   777777777770 0            000000000010 
FT3	032623 035421 0   0   777777777770 0            000000000010 
FT9	032624 035421 0   0   777777777770 0            000000000010 
ET0	032624 035421 0   0   0            0            000000000010 
ST1	032624 035421 0   0   0            0            000000000010 
ST2	032624 035421 0   0   0            0            000000000010 
ST9	032624 035421 0   0   0            0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 363
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0642

*032624 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032624 032624 0   0   332000000000 0            0            
IT1	032624 0      0   0   332000000000 0            0            
AT3	032624 0      0   0   0            0            332000000000 
AT6	032624 0      0   0   0            0            332000000000 
FT0	032624 0      0   0   0            0            332000000000 
FT1A	032624 0      0   0   0            0            0            
FT9	032625 0      0   0   0            0            0            
ET0	032626 0      0   0   0            0            0            
ST1A	032626 0      0   0   0            0            0            
ST9	032626 0      0   0   0            0            0            


*032626 JUMPA	0,032627
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032626 032626 0   0   324000032627 0            000000032627 
IT1	032626 0      0   0   324000032627 0            000000032627 
AT3	032626 0      0   0   000000032627 0            324000032627 
AT6	032626 032627 0   0   000000032627 0            324000032627 
FT1A	032626 032627 0   0   000000032627 0            000000032627 
FT2	032626 032627 0   0   0            0            000000032627 
FT2RQ	032626 032627 0   0   0            0            000000032627 
FT3	032626 032627 0   0   0            0            000000032627 
FT9	032627 032627 0   0   0            0            000000032627 
ET0	032627 032627 0   0   0            0            000000032627 
ST1A	032627 032627 0   0   0            0            000000032627 
ST9	032627 032627 0   0   0            0            000000032627 


*032627 MOVE 	0,035522
INITIAL
C(AC)=000000 000000 
C(E)=777777 777774 
FINAL
C(AC)=777777 777774 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032627 032627 0   0   200000035522 0            777777777774 
IT1	032627 0      0   0   200000035522 0            777777777774 
AT3	032627 0      0   0   000000035522 0            200000035522 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 364
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0643

AT6	032627 035522 0   0   000000035522 0            200000035522 
FT0	032627 035522 0   0   777777777774 0            200000035522 
FT1A	032627 035522 0   0   777777777774 0            777777777774 
FT9	032630 035522 0   0   777777777774 0            777777777774 
ET0	032630 035522 0   0   777777777774 0            777777777774 
ST1	032630 035522 0   0   777777777774 0            777777777774 
ST2	032630 035522 0   0   777777777774 0            777777777774 
ST9	032630 035522 0   0   777777777774 0            777777777774 


*032630 ADD 	0,035420
INITIAL
C(AC)=777777 777774 
C(E)=000000 000004 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032630 032630 0   0   270000035420 0            000000000004 
IT1	032630 0      0   0   270000035420 0            000000000004 
AT3	032630 0      0   0   000000035420 0            270000035420 
AT6	032630 035420 0   0   000000035420 0            270000035420 
FT0	032630 035420 0   0   000000000004 0            270000035420 
FT1A	032630 035420 0   0   000000000004 0            000000000004 
FT2	032630 035420 0   0   0            0            000000000004 
FT2RQ	032630 035420 0   0   777777777774 0            000000000004 
FT3	032630 035420 0   0   777777777774 0            000000000004 
FT9	032631 035420 0   0   777777777774 0            000000000004 
ET0	032631 035420 0   0   0            0            000000000004 
ST1	032631 035420 0   0   0            0            000000000004 
ST2	032631 035420 0   0   0            0            000000000004 
ST9	032631 035420 0   0   0            0            000000000004 


*032631 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032631 032631 0   0   332000000000 0            0            
IT1	032631 0      0   0   332000000000 0            0            
AT3	032631 0      0   0   0            0            332000000000 
AT6	032631 0      0   0   0            0            332000000000 
FT0	032631 0      0   0   0            0            332000000000 
FT1A	032631 0      0   0   0            0            0            
FT9	032632 0      0   0   0            0            0            
ET0	032633 0      0   0   0            0            0            
ST1A	032633 0      0   0   0            0            0            
ST9	032633 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 365
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0644



*032633 JUMPA	0,032634
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032633 032633 0   0   324000032634 0            000000032634 
IT1	032633 0      0   0   324000032634 0            000000032634 
AT3	032633 0      0   0   000000032634 0            324000032634 
AT6	032633 032634 0   0   000000032634 0            324000032634 
FT1A	032633 032634 0   0   000000032634 0            000000032634 
FT2	032633 032634 0   0   0            0            000000032634 
FT2RQ	032633 032634 0   0   0            0            000000032634 
FT3	032633 032634 0   0   0            0            000000032634 
FT9	032634 032634 0   0   0            0            000000032634 
ET0	032634 032634 0   0   0            0            000000032634 
ST1A	032634 032634 0   0   0            0            000000032634 
ST9	032634 032634 0   0   0            0            000000032634 


*032634 MOVE 	0,035523
INITIAL
C(AC)=000000 000000 
C(E)=777777 777776 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032634 032634 0   0   200000035523 0            777777777776 
IT1	032634 0      0   0   200000035523 0            777777777776 
AT3	032634 0      0   0   000000035523 0            200000035523 
AT6	032634 035523 0   0   000000035523 0            200000035523 
FT0	032634 035523 0   0   777777777776 0            200000035523 
FT1A	032634 035523 0   0   777777777776 0            777777777776 
FT9	032635 035523 0   0   777777777776 0            777777777776 
ET0	032635 035523 0   0   777777777776 0            777777777776 
ST1	032635 035523 0   0   777777777776 0            777777777776 
ST2	032635 035523 0   0   777777777776 0            777777777776 
ST9	032635 035523 0   0   777777777776 0            777777777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 366
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0645

*032635 ADD 	0,035417
INITIAL
C(AC)=777777 777776 
C(E)=000000 000002 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032635 032635 0   0   270000035417 0            000000000002 
IT1	032635 0      0   0   270000035417 0            000000000002 
AT3	032635 0      0   0   000000035417 0            270000035417 
AT6	032635 035417 0   0   000000035417 0            270000035417 
FT0	032635 035417 0   0   000000000002 0            270000035417 
FT1A	032635 035417 0   0   000000000002 0            000000000002 
FT2	032635 035417 0   0   0            0            000000000002 
FT2RQ	032635 035417 0   0   777777777776 0            000000000002 
FT3	032635 035417 0   0   777777777776 0            000000000002 
FT9	032636 035417 0   0   777777777776 0            000000000002 
ET0	032636 035417 0   0   0            0            000000000002 
ST1	032636 035417 0   0   0            0            000000000002 
ST2	032636 035417 0   0   0            0            000000000002 
ST9	032636 035417 0   0   0            0            000000000002 


*032636 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032636 032636 0   0   332000000000 0            0            
IT1	032636 0      0   0   332000000000 0            0            
AT3	032636 0      0   0   0            0            332000000000 
AT6	032636 0      0   0   0            0            332000000000 
FT0	032636 0      0   0   0            0            332000000000 
FT1A	032636 0      0   0   0            0            0            
FT9	032637 0      0   0   0            0            0            
ET0	032640 0      0   0   0            0            0            
ST1A	032640 0      0   0   0            0            0            
ST9	032640 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 367
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0646

*032640 JUMPA	0,032641
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032640 032640 0   0   324000032641 0            000000032641 
IT1	032640 0      0   0   324000032641 0            000000032641 
AT3	032640 0      0   0   000000032641 0            324000032641 
AT6	032640 032641 0   0   000000032641 0            324000032641 
FT1A	032640 032641 0   0   000000032641 0            000000032641 
FT2	032640 032641 0   0   0            0            000000032641 
FT2RQ	032640 032641 0   0   0            0            000000032641 
FT3	032640 032641 0   0   0            0            000000032641 
FT9	032641 032641 0   0   0            0            000000032641 
ET0	032641 032641 0   0   0            0            000000032641 
ST1A	032641 032641 0   0   0            0            000000032641 
ST9	032641 032641 0   0   0            0            000000032641 


*032641 MOVE 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032641 032641 0   0   200000035524 0            777777777777 
IT1	032641 0      0   0   200000035524 0            777777777777 
AT3	032641 0      0   0   000000035524 0            200000035524 
AT6	032641 035524 0   0   000000035524 0            200000035524 
FT0	032641 035524 0   0   777777777777 0            200000035524 
FT1A	032641 035524 0   0   777777777777 0            777777777777 
FT9	032642 035524 0   0   777777777777 0            777777777777 
ET0	032642 035524 0   0   777777777777 0            777777777777 
ST1	032642 035524 0   0   777777777777 0            777777777777 
ST2	032642 035524 0   0   777777777777 0            777777777777 
ST9	032642 035524 0   0   777777777777 0            777777777777 


*032642 ADD 	0,035416
INITIAL
C(AC)=777777 777777 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032642 032642 0   0   270000035416 0            000000000001 
IT1	032642 0      0   0   270000035416 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 368
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0647

AT3	032642 0      0   0   000000035416 0            270000035416 
AT6	032642 035416 0   0   000000035416 0            270000035416 
FT0	032642 035416 0   0   000000000001 0            270000035416 
FT1A	032642 035416 0   0   000000000001 0            000000000001 
FT2	032642 035416 0   0   0            0            000000000001 
FT2RQ	032642 035416 0   0   777777777777 0            000000000001 
FT3	032642 035416 0   0   777777777777 0            000000000001 
FT9	032643 035416 0   0   777777777777 0            000000000001 
ET0	032643 035416 0   0   0            0            000000000001 
ST1	032643 035416 0   0   0            0            000000000001 
ST2	032643 035416 0   0   0            0            000000000001 
ST9	032643 035416 0   0   0            0            000000000001 


*032643 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032643 032643 0   0   332000000000 0            0            
IT1	032643 0      0   0   332000000000 0            0            
AT3	032643 0      0   0   0            0            332000000000 
AT6	032643 0      0   0   0            0            332000000000 
FT0	032643 0      0   0   0            0            332000000000 
FT1A	032643 0      0   0   0            0            0            
FT9	032644 0      0   0   0            0            0            
ET0	032645 0      0   0   0            0            0            
ST1A	032645 0      0   0   0            0            0            
ST9	032645 0      0   0   0            0            0            


*032645 JUMPA	0,032646
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032645 032645 0   0   324000032646 0            000000032646 
IT1	032645 0      0   0   324000032646 0            000000032646 
AT3	032645 0      0   0   000000032646 0            324000032646 
AT6	032645 032646 0   0   000000032646 0            324000032646 
FT1A	032645 032646 0   0   000000032646 0            000000032646 
FT2	032645 032646 0   0   0            0            000000032646 
FT2RQ	032645 032646 0   0   0            0            000000032646 
FT3	032645 032646 0   0   0            0            000000032646 
FT9	032646 032646 0   0   0            0            000000032646 
ET0	032646 032646 0   0   0            0            000000032646 
ST1A	032646 032646 0   0   0            0            000000032646 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 369
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0648

ST9	032646 032646 0   0   0            0            000000032646 


*032646 MOVE 	0,035525
INITIAL
C(AC)=000000 000000 
C(E)=777777 777773 
FINAL
C(AC)=777777 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032646 032646 0   0   200000035525 0            777777777773 
IT1	032646 0      0   0   200000035525 0            777777777773 
AT3	032646 0      0   0   000000035525 0            200000035525 
AT6	032646 035525 0   0   000000035525 0            200000035525 
FT0	032646 035525 0   0   777777777773 0            200000035525 
FT1A	032646 035525 0   0   777777777773 0            777777777773 
FT9	032647 035525 0   0   777777777773 0            777777777773 
ET0	032647 035525 0   0   777777777773 0            777777777773 
ST1	032647 035525 0   0   777777777773 0            777777777773 
ST2	032647 035525 0   0   777777777773 0            777777777773 
ST9	032647 035525 0   0   777777777773 0            777777777773 


*032647 ADD 	0,035416
INITIAL
C(AC)=777777 777773 
C(E)=000000 000001 
FINAL
C(AC)=777777 777774 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032647 032647 0   0   270000035416 0            000000000001 
IT1	032647 0      0   0   270000035416 0            000000000001 
AT3	032647 0      0   0   000000035416 0            270000035416 
AT6	032647 035416 0   0   000000035416 0            270000035416 
FT0	032647 035416 0   0   000000000001 0            270000035416 
FT1A	032647 035416 0   0   000000000001 0            000000000001 
FT2	032647 035416 0   0   0            0            000000000001 
FT2RQ	032647 035416 0   0   777777777773 0            000000000001 
FT3	032647 035416 0   0   777777777773 0            000000000001 
FT9	032650 035416 0   0   777777777773 0            000000000001 
ET0	032650 035416 0   0   777777777774 0            000000000001 
ST1	032650 035416 0   0   777777777774 0            000000000001 
ST2	032650 035416 0   0   777777777774 0            000000000001 
ST9	032650 035416 0   0   777777777774 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 370
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0649

*032650 EQV 	0,035522
INITIAL
C(AC)=777777 777774 
C(E)=777777 777774 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032650 032650 0   0   444000035522 0            777777777774 
IT1	032650 0      0   0   444000035522 0            777777777774 
AT3	032650 0      0   0   000000035522 0            444000035522 
AT6	032650 035522 0   0   000000035522 0            444000035522 
FT0	032650 035522 0   0   777777777774 0            444000035522 
FT1A	032650 035522 0   0   777777777774 0            777777777774 
FT2	032650 035522 0   0   0            0            777777777774 
FT2RQ	032650 035522 0   0   777777777774 0            777777777774 
FT3	032650 035522 0   0   777777777774 0            777777777774 
FT9	032651 035522 0   0   777777777774 0            777777777774 
ET0	032651 035522 0   0   777777777777 0            777777777774 
ST1	032651 035522 0   0   777777777777 0            777777777774 
ST2	032651 035522 0   0   777777777777 0            777777777774 
ST9	032651 035522 0   0   777777777777 0            777777777774 


*032651 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032651 032651 0   0   444000035412 0            0            
IT1	032651 0      0   0   444000035412 0            0            
AT3	032651 0      0   0   000000035412 0            444000035412 
AT6	032651 035412 0   0   000000035412 0            444000035412 
FT0	032651 035412 0   0   0            0            444000035412 
FT1A	032651 035412 0   0   0            0            0            
FT2	032651 035412 0   0   0            0            0            
FT2RQ	032651 035412 0   0   777777777777 0            0            
FT3	032651 035412 0   0   777777777777 0            0            
FT9	032652 035412 0   0   777777777777 0            0            
ET0	032652 035412 0   0   0            0            0            
ST1	032652 035412 0   0   0            0            0            
ST2	032652 035412 0   0   0            0            0            
ST9	032652 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 371
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0650

*032652 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032652 032652 0   0   332000000000 0            0            
IT1	032652 0      0   0   332000000000 0            0            
AT3	032652 0      0   0   0            0            332000000000 
AT6	032652 0      0   0   0            0            332000000000 
FT0	032652 0      0   0   0            0            332000000000 
FT1A	032652 0      0   0   0            0            0            
FT9	032653 0      0   0   0            0            0            
ET0	032654 0      0   0   0            0            0            
ST1A	032654 0      0   0   0            0            0            
ST9	032654 0      0   0   0            0            0            


*032654 JUMPA	0,032655
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032654 032654 0   0   324000032655 0            000000032655 
IT1	032654 0      0   0   324000032655 0            000000032655 
AT3	032654 0      0   0   000000032655 0            324000032655 
AT6	032654 032655 0   0   000000032655 0            324000032655 
FT1A	032654 032655 0   0   000000032655 0            000000032655 
FT2	032654 032655 0   0   0            0            000000032655 
FT2RQ	032654 032655 0   0   0            0            000000032655 
FT3	032654 032655 0   0   0            0            000000032655 
FT9	032655 032655 0   0   0            0            000000032655 
ET0	032655 032655 0   0   0            0            000000032655 
ST1A	032655 032655 0   0   0            0            000000032655 
ST9	032655 032655 0   0   0            0            000000032655 


*032655 MOVE 	0,035526
INITIAL
C(AC)=000000 000000 
C(E)=777777 777677 
FINAL
C(AC)=777777 777677 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032655 032655 0   0   200000035526 0            777777777677 
IT1	032655 0      0   0   200000035526 0            777777777677 
AT3	032655 0      0   0   000000035526 0            200000035526 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 372
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0651

AT6	032655 035526 0   0   000000035526 0            200000035526 
FT0	032655 035526 0   0   777777777677 0            200000035526 
FT1A	032655 035526 0   0   777777777677 0            777777777677 
FT9	032656 035526 0   0   777777777677 0            777777777677 
ET0	032656 035526 0   0   777777777677 0            777777777677 
ST1	032656 035526 0   0   777777777677 0            777777777677 
ST2	032656 035526 0   0   777777777677 0            777777777677 
ST9	032656 035526 0   0   777777777677 0            777777777677 


*032656 ADD 	0,035416
INITIAL
C(AC)=777777 777677 
C(E)=000000 000001 
FINAL
C(AC)=777777 777700 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032656 032656 0   0   270000035416 0            000000000001 
IT1	032656 0      0   0   270000035416 0            000000000001 
AT3	032656 0      0   0   000000035416 0            270000035416 
AT6	032656 035416 0   0   000000035416 0            270000035416 
FT0	032656 035416 0   0   000000000001 0            270000035416 
FT1A	032656 035416 0   0   000000000001 0            000000000001 
FT2	032656 035416 0   0   0            0            000000000001 
FT2RQ	032656 035416 0   0   777777777677 0            000000000001 
FT3	032656 035416 0   0   777777777677 0            000000000001 
FT9	032657 035416 0   0   777777777677 0            000000000001 
ET0	032657 035416 0   0   777777777700 0            000000000001 
ST1	032657 035416 0   0   777777777700 0            000000000001 
ST2	032657 035416 0   0   777777777700 0            000000000001 
ST9	032657 035416 0   0   777777777700 0            000000000001 


*032657 EQV 	0,035516
INITIAL
C(AC)=777777 777700 
C(E)=777777 777700 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032657 032657 0   0   444000035516 0            777777777700 
IT1	032657 0      0   0   444000035516 0            777777777700 
AT3	032657 0      0   0   000000035516 0            444000035516 
AT6	032657 035516 0   0   000000035516 0            444000035516 
FT0	032657 035516 0   0   777777777700 0            444000035516 
FT1A	032657 035516 0   0   777777777700 0            777777777700 
FT2	032657 035516 0   0   0            0            777777777700 
FT2RQ	032657 035516 0   0   777777777700 0            777777777700 
FT3	032657 035516 0   0   777777777700 0            777777777700 
FT9	032660 035516 0   0   777777777700 0            777777777700 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 373
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0652

ET0	032660 035516 0   0   777777777777 0            777777777700 
ST1	032660 035516 0   0   777777777777 0            777777777700 
ST2	032660 035516 0   0   777777777777 0            777777777700 
ST9	032660 035516 0   0   777777777777 0            777777777700 


*032660 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032660 032660 0   0   444000035412 0            0            
IT1	032660 0      0   0   444000035412 0            0            
AT3	032660 0      0   0   000000035412 0            444000035412 
AT6	032660 035412 0   0   000000035412 0            444000035412 
FT0	032660 035412 0   0   0            0            444000035412 
FT1A	032660 035412 0   0   0            0            0            
FT2	032660 035412 0   0   0            0            0            
FT2RQ	032660 035412 0   0   777777777777 0            0            
FT3	032660 035412 0   0   777777777777 0            0            
FT9	032661 035412 0   0   777777777777 0            0            
ET0	032661 035412 0   0   0            0            0            
ST1	032661 035412 0   0   0            0            0            
ST2	032661 035412 0   0   0            0            0            
ST9	032661 035412 0   0   0            0            0            


*032661 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032661 032661 0   0   332000000000 0            0            
IT1	032661 0      0   0   332000000000 0            0            
AT3	032661 0      0   0   0            0            332000000000 
AT6	032661 0      0   0   0            0            332000000000 
FT0	032661 0      0   0   0            0            332000000000 
FT1A	032661 0      0   0   0            0            0            
FT9	032662 0      0   0   0            0            0            
ET0	032663 0      0   0   0            0            0            
ST1A	032663 0      0   0   0            0            0            
ST9	032663 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 374
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0653

*032663 JUMPA	0,032664
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032663 032663 0   0   324000032664 0            000000032664 
IT1	032663 0      0   0   324000032664 0            000000032664 
AT3	032663 0      0   0   000000032664 0            324000032664 
AT6	032663 032664 0   0   000000032664 0            324000032664 
FT1A	032663 032664 0   0   000000032664 0            000000032664 
FT2	032663 032664 0   0   0            0            000000032664 
FT2RQ	032663 032664 0   0   0            0            000000032664 
FT3	032663 032664 0   0   0            0            000000032664 
FT9	032664 032664 0   0   0            0            000000032664 
ET0	032664 032664 0   0   0            0            000000032664 
ST1A	032664 032664 0   0   0            0            000000032664 
ST9	032664 032664 0   0   0            0            000000032664 


*032664 MOVE 	0,035527
INITIAL
C(AC)=000000 000000 
C(E)=777777 775777 
FINAL
C(AC)=777777 775777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032664 032664 0   0   200000035527 0            777777775777 
IT1	032664 0      0   0   200000035527 0            777777775777 
AT3	032664 0      0   0   000000035527 0            200000035527 
AT6	032664 035527 0   0   000000035527 0            200000035527 
FT0	032664 035527 0   0   777777775777 0            200000035527 
FT1A	032664 035527 0   0   777777775777 0            777777775777 
FT9	032665 035527 0   0   777777775777 0            777777775777 
ET0	032665 035527 0   0   777777775777 0            777777775777 
ST1	032665 035527 0   0   777777775777 0            777777775777 
ST2	032665 035527 0   0   777777775777 0            777777775777 
ST9	032665 035527 0   0   777777775777 0            777777775777 


*032665 ADD 	0,035416
INITIAL
C(AC)=777777 775777 
C(E)=000000 000001 
FINAL
C(AC)=777777 776000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032665 032665 0   0   270000035416 0            000000000001 
IT1	032665 0      0   0   270000035416 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 375
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0654

AT3	032665 0      0   0   000000035416 0            270000035416 
AT6	032665 035416 0   0   000000035416 0            270000035416 
FT0	032665 035416 0   0   000000000001 0            270000035416 
FT1A	032665 035416 0   0   000000000001 0            000000000001 
FT2	032665 035416 0   0   0            0            000000000001 
FT2RQ	032665 035416 0   0   777777775777 0            000000000001 
FT3	032665 035416 0   0   777777775777 0            000000000001 
FT9	032666 035416 0   0   777777775777 0            000000000001 
ET0	032666 035416 0   0   777777776000 0            000000000001 
ST1	032666 035416 0   0   777777776000 0            000000000001 
ST2	032666 035416 0   0   777777776000 0            000000000001 
ST9	032666 035416 0   0   777777776000 0            000000000001 


*032666 EQV 	0,035512
INITIAL
C(AC)=777777 776000 
C(E)=777777 776000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032666 032666 0   0   444000035512 0            777777776000 
IT1	032666 0      0   0   444000035512 0            777777776000 
AT3	032666 0      0   0   000000035512 0            444000035512 
AT6	032666 035512 0   0   000000035512 0            444000035512 
FT0	032666 035512 0   0   777777776000 0            444000035512 
FT1A	032666 035512 0   0   777777776000 0            777777776000 
FT2	032666 035512 0   0   0            0            777777776000 
FT2RQ	032666 035512 0   0   777777776000 0            777777776000 
FT3	032666 035512 0   0   777777776000 0            777777776000 
FT9	032667 035512 0   0   777777776000 0            777777776000 
ET0	032667 035512 0   0   777777777777 0            777777776000 
ST1	032667 035512 0   0   777777777777 0            777777776000 
ST2	032667 035512 0   0   777777777777 0            777777776000 
ST9	032667 035512 0   0   777777777777 0            777777776000 


*032667 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032667 032667 0   0   444000035412 0            0            
IT1	032667 0      0   0   444000035412 0            0            
AT3	032667 0      0   0   000000035412 0            444000035412 
AT6	032667 035412 0   0   000000035412 0            444000035412 
FT0	032667 035412 0   0   0            0            444000035412 
FT1A	032667 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 376
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0655

FT2	032667 035412 0   0   0            0            0            
FT2RQ	032667 035412 0   0   777777777777 0            0            
FT3	032667 035412 0   0   777777777777 0            0            
FT9	032670 035412 0   0   777777777777 0            0            
ET0	032670 035412 0   0   0            0            0            
ST1	032670 035412 0   0   0            0            0            
ST2	032670 035412 0   0   0            0            0            
ST9	032670 035412 0   0   0            0            0            


*032670 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032670 032670 0   0   332000000000 0            0            
IT1	032670 0      0   0   332000000000 0            0            
AT3	032670 0      0   0   0            0            332000000000 
AT6	032670 0      0   0   0            0            332000000000 
FT0	032670 0      0   0   0            0            332000000000 
FT1A	032670 0      0   0   0            0            0            
FT9	032671 0      0   0   0            0            0            
ET0	032672 0      0   0   0            0            0            
ST1A	032672 0      0   0   0            0            0            
ST9	032672 0      0   0   0            0            0            


*032672 JUMPA	0,032673
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032672 032672 0   0   324000032673 0            000000032673 
IT1	032672 0      0   0   324000032673 0            000000032673 
AT3	032672 0      0   0   000000032673 0            324000032673 
AT6	032672 032673 0   0   000000032673 0            324000032673 
FT1A	032672 032673 0   0   000000032673 0            000000032673 
FT2	032672 032673 0   0   0            0            000000032673 
FT2RQ	032672 032673 0   0   0            0            000000032673 
FT3	032672 032673 0   0   0            0            000000032673 
FT9	032673 032673 0   0   0            0            000000032673 
ET0	032673 032673 0   0   0            0            000000032673 
ST1A	032673 032673 0   0   0            0            000000032673 
ST9	032673 032673 0   0   0            0            000000032673 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 377
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0656

*032673 MOVE 	0,035530
INITIAL
C(AC)=000000 000000 
C(E)=777777 737777 
FINAL
C(AC)=777777 737777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032673 032673 0   0   200000035530 0            777777737777 
IT1	032673 0      0   0   200000035530 0            777777737777 
AT3	032673 0      0   0   000000035530 0            200000035530 
AT6	032673 035530 0   0   000000035530 0            200000035530 
FT0	032673 035530 0   0   777777737777 0            200000035530 
FT1A	032673 035530 0   0   777777737777 0            777777737777 
FT9	032674 035530 0   0   777777737777 0            777777737777 
ET0	032674 035530 0   0   777777737777 0            777777737777 
ST1	032674 035530 0   0   777777737777 0            777777737777 
ST2	032674 035530 0   0   777777737777 0            777777737777 
ST9	032674 035530 0   0   777777737777 0            777777737777 


*032674 ADD 	0,035416
INITIAL
C(AC)=777777 737777 
C(E)=000000 000001 
FINAL
C(AC)=777777 740000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032674 032674 0   0   270000035416 0            000000000001 
IT1	032674 0      0   0   270000035416 0            000000000001 
AT3	032674 0      0   0   000000035416 0            270000035416 
AT6	032674 035416 0   0   000000035416 0            270000035416 
FT0	032674 035416 0   0   000000000001 0            270000035416 
FT1A	032674 035416 0   0   000000000001 0            000000000001 
FT2	032674 035416 0   0   0            0            000000000001 
FT2RQ	032674 035416 0   0   777777737777 0            000000000001 
FT3	032674 035416 0   0   777777737777 0            000000000001 
FT9	032675 035416 0   0   777777737777 0            000000000001 
ET0	032675 035416 0   0   777777740000 0            000000000001 
ST1	032675 035416 0   0   777777740000 0            000000000001 
ST2	032675 035416 0   0   777777740000 0            000000000001 
ST9	032675 035416 0   0   777777740000 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 378
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0657

*032675 EQV 	0,035506
INITIAL
C(AC)=777777 740000 
C(E)=777777 740000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032675 032675 0   0   444000035506 0            777777740000 
IT1	032675 0      0   0   444000035506 0            777777740000 
AT3	032675 0      0   0   000000035506 0            444000035506 
AT6	032675 035506 0   0   000000035506 0            444000035506 
FT0	032675 035506 0   0   777777740000 0            444000035506 
FT1A	032675 035506 0   0   777777740000 0            777777740000 
FT2	032675 035506 0   0   0            0            777777740000 
FT2RQ	032675 035506 0   0   777777740000 0            777777740000 
FT3	032675 035506 0   0   777777740000 0            777777740000 
FT9	032676 035506 0   0   777777740000 0            777777740000 
ET0	032676 035506 0   0   777777777777 0            777777740000 
ST1	032676 035506 0   0   777777777777 0            777777740000 
ST2	032676 035506 0   0   777777777777 0            777777740000 
ST9	032676 035506 0   0   777777777777 0            777777740000 


*032676 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032676 032676 0   0   444000035412 0            0            
IT1	032676 0      0   0   444000035412 0            0            
AT3	032676 0      0   0   000000035412 0            444000035412 
AT6	032676 035412 0   0   000000035412 0            444000035412 
FT0	032676 035412 0   0   0            0            444000035412 
FT1A	032676 035412 0   0   0            0            0            
FT2	032676 035412 0   0   0            0            0            
FT2RQ	032676 035412 0   0   777777777777 0            0            
FT3	032676 035412 0   0   777777777777 0            0            
FT9	032677 035412 0   0   777777777777 0            0            
ET0	032677 035412 0   0   0            0            0            
ST1	032677 035412 0   0   0            0            0            
ST2	032677 035412 0   0   0            0            0            
ST9	032677 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 379
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0658

*032677 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032677 032677 0   0   332000000000 0            0            
IT1	032677 0      0   0   332000000000 0            0            
AT3	032677 0      0   0   0            0            332000000000 
AT6	032677 0      0   0   0            0            332000000000 
FT0	032677 0      0   0   0            0            332000000000 
FT1A	032677 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	032701 0      0   0   0            0            0            
ST1A	032701 0      0   0   0            0            0            
ST9	032701 0      0   0   0            0            0            


*032701 JUMPA	0,032702
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032701 032701 0   0   324000032702 0            000000032702 
IT1	032701 0      0   0   324000032702 0            000000032702 
AT3	032701 0      0   0   000000032702 0            324000032702 
AT6	032701 032702 0   0   000000032702 0            324000032702 
FT1A	032701 032702 0   0   000000032702 0            000000032702 
FT2	032701 032702 0   0   0            0            000000032702 
FT2RQ	032701 032702 0   0   0            0            000000032702 
FT3	032701 032702 0   0   0            0            000000032702 
FT9	032702 032702 0   0   0            0            000000032702 
ET0	032702 032702 0   0   0            0            000000032702 
ST1A	032702 032702 0   0   0            0            000000032702 
ST9	032702 032702 0   0   0            0            000000032702 


*032702 MOVE 	0,035531
INITIAL
C(AC)=000000 000000 
C(E)=777777 377777 
FINAL
C(AC)=777777 377777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032702 032702 0   0   200000035531 0            777777377777 
IT1	032702 0      0   0   200000035531 0            777777377777 
AT3	032702 0      0   0   000000035531 0            200000035531 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 380
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0659

AT6	032702 035531 0   0   000000035531 0            200000035531 
FT0	032702 035531 0   0   777777377777 0            200000035531 
FT1A	032702 035531 0   0   777777377777 0            777777377777 
FT9	032703 035531 0   0   777777377777 0            777777377777 
ET0	032703 035531 0   0   777777377777 0            777777377777 
ST1	032703 035531 0   0   777777377777 0            777777377777 
ST2	032703 035531 0   0   777777377777 0            777777377777 
ST9	032703 035531 0   0   777777377777 0            777777377777 


*032703 ADD 	0,035416
INITIAL
C(AC)=777777 377777 
C(E)=000000 000001 
FINAL
C(AC)=777777 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032703 032703 0   0   270000035416 0            000000000001 
IT1	032703 0      0   0   270000035416 0            000000000001 
AT3	032703 0      0   0   000000035416 0            270000035416 
AT6	032703 035416 0   0   000000035416 0            270000035416 
FT0	032703 035416 0   0   000000000001 0            270000035416 
FT1A	032703 035416 0   0   000000000001 0            000000000001 
FT2	032703 035416 0   0   0            0            000000000001 
FT2RQ	032703 035416 0   0   777777377777 0            000000000001 
FT3	032703 035416 0   0   777777377777 0            000000000001 
FT9	032704 035416 0   0   777777377777 0            000000000001 
ET0	032704 035416 0   0   777777400000 0            000000000001 
ST1	032704 035416 0   0   777777400000 0            000000000001 
ST2	032704 035416 0   0   777777400000 0            000000000001 
ST9	032704 035416 0   0   777777400000 0            000000000001 


*032704 EQV 	0,035503
INITIAL
C(AC)=777777 400000 
C(E)=777777 400000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032704 032704 0   0   444000035503 0            777777400000 
IT1	032704 0      0   0   444000035503 0            777777400000 
AT3	032704 0      0   0   000000035503 0            444000035503 
AT6	032704 035503 0   0   000000035503 0            444000035503 
FT0	032704 035503 0   0   777777400000 0            444000035503 
FT1A	032704 035503 0   0   777777400000 0            777777400000 
FT2	032704 035503 0   0   0            0            777777400000 
FT2RQ	032704 035503 0   0   777777400000 0            777777400000 
FT3	032704 035503 0   0   777777400000 0            777777400000 
FT9	032705 035503 0   0   777777400000 0            777777400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 381
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0660

ET0	032705 035503 0   0   777777777777 0            777777400000 
ST1	032705 035503 0   0   777777777777 0            777777400000 
ST2	032705 035503 0   0   777777777777 0            777777400000 
ST9	032705 035503 0   0   777777777777 0            777777400000 


*032705 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032705 032705 0   0   444000035412 0            0            
IT1	032705 0      0   0   444000035412 0            0            
AT3	032705 0      0   0   000000035412 0            444000035412 
AT6	032705 035412 0   0   000000035412 0            444000035412 
FT0	032705 035412 0   0   0            0            444000035412 
FT1A	032705 035412 0   0   0            0            0            
FT2	032705 035412 0   0   0            0            0            
FT2RQ	032705 035412 0   0   777777777777 0            0            
FT3	032705 035412 0   0   777777777777 0            0            
FT9	032706 035412 0   0   777777777777 0            0            
ET0	032706 035412 0   0   0            0            0            
ST1	032706 035412 0   0   0            0            0            
ST2	032706 035412 0   0   0            0            0            
ST9	032706 035412 0   0   0            0            0            


*032706 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032706 032706 0   0   332000000000 0            0            
IT1	032706 0      0   0   332000000000 0            0            
AT3	032706 0      0   0   0            0            332000000000 
AT6	032706 0      0   0   0            0            332000000000 
FT0	032706 0      0   0   0            0            332000000000 
FT1A	032706 0      0   0   0            0            0            
FT9	032707 0      0   0   0            0            0            
ET0	032710 0      0   0   0            0            0            
ST1A	032710 0      0   0   0            0            0            
ST9	032710 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 382
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0661

*032710 JUMPA	0,032711
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032710 032710 0   0   324000032711 0            000000032711 
IT1	032710 0      0   0   324000032711 0            000000032711 
AT3	032710 0      0   0   000000032711 0            324000032711 
AT6	032710 032711 0   0   000000032711 0            324000032711 
FT1A	032710 032711 0   0   000000032711 0            000000032711 
FT2	032710 032711 0   0   0            0            000000032711 
FT2RQ	032710 032711 0   0   0            0            000000032711 
FT3	032710 032711 0   0   0            0            000000032711 
FT9	032711 032711 0   0   0            0            000000032711 
ET0	032711 032711 0   0   0            0            000000032711 
ST1A	032711 032711 0   0   0            0            000000032711 
ST9	032711 032711 0   0   0            0            000000032711 


*032711 MOVE 	0,035532
INITIAL
C(AC)=000000 000000 
C(E)=777767 777777 
FINAL
C(AC)=777767 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032711 032711 0   0   200000035532 0            777767777777 
IT1	032711 0      0   0   200000035532 0            777767777777 
AT3	032711 0      0   0   000000035532 0            200000035532 
AT6	032711 035532 0   0   000000035532 0            200000035532 
FT0	032711 035532 0   0   777767777777 0            200000035532 
FT1A	032711 035532 0   0   777767777777 0            777767777777 
FT9	032712 035532 0   0   777767777777 0            777767777777 
ET0	032712 035532 0   0   777767777777 0            777767777777 
ST1	032712 035532 0   0   777767777777 0            777767777777 
ST2	032712 035532 0   0   777767777777 0            777767777777 
ST9	032712 035532 0   0   777767777777 0            777767777777 


*032712 ADD 	0,035416
INITIAL
C(AC)=777767 777777 
C(E)=000000 000001 
FINAL
C(AC)=777770 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032712 032712 0   0   270000035416 0            000000000001 
IT1	032712 0      0   0   270000035416 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 383
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0662

AT3	032712 0      0   0   000000035416 0            270000035416 
AT6	032712 035416 0   0   000000035416 0            270000035416 
FT0	032712 035416 0   0   000000000001 0            270000035416 
FT1A	032712 035416 0   0   000000000001 0            000000000001 
FT2	032712 035416 0   0   0            0            000000000001 
FT2RQ	032712 035416 0   0   777767777777 0            000000000001 
FT3	032712 035416 0   0   777767777777 0            000000000001 
FT9	032713 035416 0   0   777767777777 0            000000000001 
ET0	032713 035416 0   0   777770000000 0            000000000001 
ST1	032713 035416 0   0   777770000000 0            000000000001 
ST2	032713 035416 0   0   777770000000 0            000000000001 
ST9	032713 035416 0   0   777770000000 0            000000000001 


*032713 EQV 	0,035477
INITIAL
C(AC)=777770 000000 
C(E)=777770 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032713 032713 0   0   444000035477 0            777770000000 
IT1	032713 0      0   0   444000035477 0            777770000000 
AT3	032713 0      0   0   000000035477 0            444000035477 
AT6	032713 035477 0   0   000000035477 0            444000035477 
FT0	032713 035477 0   0   777770000000 0            444000035477 
FT1A	032713 035477 0   0   777770000000 0            777770000000 
FT2	032713 035477 0   0   0            0            777770000000 
FT2RQ	032713 035477 0   0   777770000000 0            777770000000 
FT3	032713 035477 0   0   777770000000 0            777770000000 
FT9	032714 035477 0   0   777770000000 0            777770000000 
ET0	032714 035477 0   0   777777777777 0            777770000000 
ST1	032714 035477 0   0   777777777777 0            777770000000 
ST2	032714 035477 0   0   777777777777 0            777770000000 
ST9	032714 035477 0   0   777777777777 0            777770000000 


*032714 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032714 032714 0   0   444000035412 0            0            
IT1	032714 0      0   0   444000035412 0            0            
AT3	032714 0      0   0   000000035412 0            444000035412 
AT6	032714 035412 0   0   000000035412 0            444000035412 
FT0	032714 035412 0   0   0            0            444000035412 
FT1A	032714 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 384
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0663

FT2	032714 035412 0   0   0            0            0            
FT2RQ	032714 035412 0   0   777777777777 0            0            
FT3	032714 035412 0   0   777777777777 0            0            
FT9	032715 035412 0   0   777777777777 0            0            
ET0	032715 035412 0   0   0            0            0            
ST1	032715 035412 0   0   0            0            0            
ST2	032715 035412 0   0   0            0            0            
ST9	032715 035412 0   0   0            0            0            


*032715 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032715 032715 0   0   332000000000 0            0            
IT1	032715 0      0   0   332000000000 0            0            
AT3	032715 0      0   0   0            0            332000000000 
AT6	032715 0      0   0   0            0            332000000000 
FT0	032715 0      0   0   0            0            332000000000 
FT1A	032715 0      0   0   0            0            0            
FT9	032716 0      0   0   0            0            0            
ET0	032717 0      0   0   0            0            0            
ST1A	032717 0      0   0   0            0            0            
ST9	032717 0      0   0   0            0            0            


*032717 JUMPA	0,032720
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032717 032717 0   0   324000032720 0            000000032720 
IT1	032717 0      0   0   324000032720 0            000000032720 
AT3	032717 0      0   0   000000032720 0            324000032720 
AT6	032717 032720 0   0   000000032720 0            324000032720 
FT1A	032717 032720 0   0   000000032720 0            000000032720 
FT2	032717 032720 0   0   0            0            000000032720 
FT2RQ	032717 032720 0   0   0            0            000000032720 
FT3	032717 032720 0   0   0            0            000000032720 
FT9	032720 032720 0   0   0            0            000000032720 
ET0	032720 032720 0   0   0            0            000000032720 
ST1A	032720 032720 0   0   0            0            000000032720 
ST9	032720 032720 0   0   0            0            000000032720 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 385
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0664

*032720 MOVE 	0,035533
INITIAL
C(AC)=000000 000000 
C(E)=777577 777777 
FINAL
C(AC)=777577 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032720 032720 0   0   200000035533 0            777577777777 
IT1	032720 0      0   0   200000035533 0            777577777777 
AT3	032720 0      0   0   000000035533 0            200000035533 
AT6	032720 035533 0   0   000000035533 0            200000035533 
FT0	032720 035533 0   0   777577777777 0            200000035533 
FT1A	032720 035533 0   0   777577777777 0            777577777777 
FT9	032721 035533 0   0   777577777777 0            777577777777 
ET0	032721 035533 0   0   777577777777 0            777577777777 
ST1	032721 035533 0   0   777577777777 0            777577777777 
ST2	032721 035533 0   0   777577777777 0            777577777777 
ST9	032721 035533 0   0   777577777777 0            777577777777 


*032721 ADD 	0,035416
INITIAL
C(AC)=777577 777777 
C(E)=000000 000001 
FINAL
C(AC)=777600 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032721 032721 0   0   270000035416 0            000000000001 
IT1	032721 0      0   0   270000035416 0            000000000001 
AT3	032721 0      0   0   000000035416 0            270000035416 
AT6	032721 035416 0   0   000000035416 0            270000035416 
FT0	032721 035416 0   0   000000000001 0            270000035416 
FT1A	032721 035416 0   0   000000000001 0            000000000001 
FT2	032721 035416 0   0   0            0            000000000001 
FT2RQ	032721 035416 0   0   777577777777 0            000000000001 
FT3	032721 035416 0   0   777577777777 0            000000000001 
FT9	032722 035416 0   0   777577777777 0            000000000001 
ET0	032722 035416 0   0   777600000000 0            000000000001 
ST1	032722 035416 0   0   777600000000 0            000000000001 
ST2	032722 035416 0   0   777600000000 0            000000000001 
ST9	032722 035416 0   0   777600000000 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 386
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0665

*032722 EQV 	0,035473
INITIAL
C(AC)=777600 000000 
C(E)=777600 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032722 032722 0   0   444000035473 0            777600000000 
IT1	032722 0      0   0   444000035473 0            777600000000 
AT3	032722 0      0   0   000000035473 0            444000035473 
AT6	032722 035473 0   0   000000035473 0            444000035473 
FT0	032722 035473 0   0   777600000000 0            444000035473 
FT1A	032722 035473 0   0   777600000000 0            777600000000 
FT2	032722 035473 0   0   0            0            777600000000 
FT2RQ	032722 035473 0   0   777600000000 0            777600000000 
FT3	032722 035473 0   0   777600000000 0            777600000000 
FT9	032723 035473 0   0   777600000000 0            777600000000 
ET0	032723 035473 0   0   777777777777 0            777600000000 
ST1	032723 035473 0   0   777777777777 0            777600000000 
ST2	032723 035473 0   0   777777777777 0            777600000000 
ST9	032723 035473 0   0   777777777777 0            777600000000 


*032723 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032723 032723 0   0   444000035412 0            0            
IT1	032723 0      0   0   444000035412 0            0            
AT3	032723 0      0   0   000000035412 0            444000035412 
AT6	032723 035412 0   0   000000035412 0            444000035412 
FT0	032723 035412 0   0   0            0            444000035412 
FT1A	032723 035412 0   0   0            0            0            
FT2	032723 035412 0   0   0            0            0            
FT2RQ	032723 035412 0   0   777777777777 0            0            
FT3	032723 035412 0   0   777777777777 0            0            
FT9	032724 035412 0   0   777777777777 0            0            
ET0	032724 035412 0   0   0            0            0            
ST1	032724 035412 0   0   0            0            0            
ST2	032724 035412 0   0   0            0            0            
ST9	032724 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 387
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0666

*032724 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032724 032724 0   0   332000000000 0            0            
IT1	032724 0      0   0   332000000000 0            0            
AT3	032724 0      0   0   0            0            332000000000 
AT6	032724 0      0   0   0            0            332000000000 
FT0	032724 0      0   0   0            0            332000000000 
FT1A	032724 0      0   0   0            0            0            
FT9	032725 0      0   0   0            0            0            
ET0	032726 0      0   0   0            0            0            
ST1A	032726 0      0   0   0            0            0            
ST9	032726 0      0   0   0            0            0            


*032726 JUMPA	0,032727
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032726 032726 0   0   324000032727 0            000000032727 
IT1	032726 0      0   0   324000032727 0            000000032727 
AT3	032726 0      0   0   000000032727 0            324000032727 
AT6	032726 032727 0   0   000000032727 0            324000032727 
FT1A	032726 032727 0   0   000000032727 0            000000032727 
FT2	032726 032727 0   0   0            0            000000032727 
FT2RQ	032726 032727 0   0   0            0            000000032727 
FT3	032726 032727 0   0   0            0            000000032727 
FT9	032727 032727 0   0   0            0            000000032727 
ET0	032727 032727 0   0   0            0            000000032727 
ST1A	032727 032727 0   0   0            0            000000032727 
ST9	032727 032727 0   0   0            0            000000032727 


*032727 MOVE 	0,035534
INITIAL
C(AC)=000000 000000 
C(E)=773777 777777 
FINAL
C(AC)=773777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032727 032727 0   0   200000035534 0            773777777777 
IT1	032727 0      0   0   200000035534 0            773777777777 
AT3	032727 0      0   0   000000035534 0            200000035534 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 388
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0667

AT6	032727 035534 0   0   000000035534 0            200000035534 
FT0	032727 035534 0   0   773777777777 0            200000035534 
FT1A	032727 035534 0   0   773777777777 0            773777777777 
FT9	032730 035534 0   0   773777777777 0            773777777777 
ET0	032730 035534 0   0   773777777777 0            773777777777 
ST1	032730 035534 0   0   773777777777 0            773777777777 
ST2	032730 035534 0   0   773777777777 0            773777777777 
ST9	032730 035534 0   0   773777777777 0            773777777777 


*032730 ADD 	0,035416
INITIAL
C(AC)=773777 777777 
C(E)=000000 000001 
FINAL
C(AC)=774000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032730 032730 0   0   270000035416 0            000000000001 
IT1	032730 0      0   0   270000035416 0            000000000001 
AT3	032730 0      0   0   000000035416 0            270000035416 
AT6	032730 035416 0   0   000000035416 0            270000035416 
FT0	032730 035416 0   0   000000000001 0            270000035416 
FT1A	032730 035416 0   0   000000000001 0            000000000001 
FT2	032730 035416 0   0   0            0            000000000001 
FT2RQ	032730 035416 0   0   773777777777 0            000000000001 
FT3	032730 035416 0   0   773777777777 0            000000000001 
FT9	032731 035416 0   0   773777777777 0            000000000001 
ET0	032731 035416 0   0   774000000000 0            000000000001 
ST1	032731 035416 0   0   774000000000 0            000000000001 
ST2	032731 035416 0   0   774000000000 0            000000000001 
ST9	032731 035416 0   0   774000000000 0            000000000001 


*032731 EQV 	0,035467
INITIAL
C(AC)=774000 000000 
C(E)=774000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032731 032731 0   0   444000035467 0            774000000000 
IT1	032731 0      0   0   444000035467 0            774000000000 
AT3	032731 0      0   0   000000035467 0            444000035467 
AT6	032731 035467 0   0   000000035467 0            444000035467 
FT0	032731 035467 0   0   774000000000 0            444000035467 
FT1A	032731 035467 0   0   774000000000 0            774000000000 
FT2	032731 035467 0   0   0            0            774000000000 
FT2RQ	032731 035467 0   0   774000000000 0            774000000000 
FT3	032731 035467 0   0   774000000000 0            774000000000 
FT9	032732 035467 0   0   774000000000 0            774000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 389
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0668

ET0	032732 035467 0   0   777777777777 0            774000000000 
ST1	032732 035467 0   0   777777777777 0            774000000000 
ST2	032732 035467 0   0   777777777777 0            774000000000 
ST9	032732 035467 0   0   777777777777 0            774000000000 


*032732 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032732 032732 0   0   444000035412 0            0            
IT1	032732 0      0   0   444000035412 0            0            
AT3	032732 0      0   0   000000035412 0            444000035412 
AT6	032732 035412 0   0   000000035412 0            444000035412 
FT0	032732 035412 0   0   0            0            444000035412 
FT1A	032732 035412 0   0   0            0            0            
FT2	032732 035412 0   0   0            0            0            
FT2RQ	032732 035412 0   0   777777777777 0            0            
FT3	032732 035412 0   0   777777777777 0            0            
FT9	032733 035412 0   0   777777777777 0            0            
ET0	032733 035412 0   0   0            0            0            
ST1	032733 035412 0   0   0            0            0            
ST2	032733 035412 0   0   0            0            0            
ST9	032733 035412 0   0   0            0            0            


*032733 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032733 032733 0   0   332000000000 0            0            
IT1	032733 0      0   0   332000000000 0            0            
AT3	032733 0      0   0   0            0            332000000000 
AT6	032733 0      0   0   0            0            332000000000 
FT0	032733 0      0   0   0            0            332000000000 
FT1A	032733 0      0   0   0            0            0            
FT9	032734 0      0   0   0            0            0            
ET0	032735 0      0   0   0            0            0            
ST1A	032735 0      0   0   0            0            0            
ST9	032735 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 390
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0669

*032735 JUMPA	0,032736
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032735 032735 0   0   324000032736 0            000000032736 
IT1	032735 0      0   0   324000032736 0            000000032736 
AT3	032735 0      0   0   000000032736 0            324000032736 
AT6	032735 032736 0   0   000000032736 0            324000032736 
FT1A	032735 032736 0   0   000000032736 0            000000032736 
FT2	032735 032736 0   0   0            0            000000032736 
FT2RQ	032735 032736 0   0   0            0            000000032736 
FT3	032735 032736 0   0   0            0            000000032736 
FT9	032736 032736 0   0   0            0            000000032736 
ET0	032736 032736 0   0   0            0            000000032736 
ST1A	032736 032736 0   0   0            0            000000032736 
ST9	032736 032736 0   0   0            0            000000032736 


*032736 MOVE 	0,035535
INITIAL
C(AC)=000000 000000 
C(E)=677777 777777 
FINAL
C(AC)=677777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032736 032736 0   0   200000035535 0            677777777777 
IT1	032736 0      0   0   200000035535 0            677777777777 
AT3	032736 0      0   0   000000035535 0            200000035535 
AT6	032736 035535 0   0   000000035535 0            200000035535 
FT0	032736 035535 0   0   677777777777 0            200000035535 
FT1A	032736 035535 0   0   677777777777 0            677777777777 
FT9	032737 035535 0   0   677777777777 0            677777777777 
ET0	032737 035535 0   0   677777777777 0            677777777777 
ST1	032737 035535 0   0   677777777777 0            677777777777 
ST2	032737 035535 0   0   677777777777 0            677777777777 
ST9	032737 035535 0   0   677777777777 0            677777777777 


*032737 ADD 	0,035416
INITIAL
C(AC)=677777 777777 
C(E)=000000 000001 
FINAL
C(AC)=700000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032737 032737 0   0   270000035416 0            000000000001 
IT1	032737 0      0   0   270000035416 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 391
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0670

AT3	032737 0      0   0   000000035416 0            270000035416 
AT6	032737 035416 0   0   000000035416 0            270000035416 
FT0	032737 035416 0   0   000000000001 0            270000035416 
FT1A	032737 035416 0   0   000000000001 0            000000000001 
FT2	032737 035416 0   0   0            0            000000000001 
FT2RQ	032737 035416 0   0   677777777777 0            000000000001 
FT3	032737 035416 0   0   677777777777 0            000000000001 
FT9	032740 035416 0   0   677777777777 0            000000000001 
ET0	032740 035416 0   0   700000000000 0            000000000001 
ST1	032740 035416 0   0   700000000000 0            000000000001 
ST2	032740 035416 0   0   700000000000 0            000000000001 
ST9	032740 035416 0   0   700000000000 0            000000000001 


*032740 EQV 	0,035463
INITIAL
C(AC)=700000 000000 
C(E)=700000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032740 032740 0   0   444000035463 0            700000000000 
IT1	032740 0      0   0   444000035463 0            700000000000 
AT3	032740 0      0   0   000000035463 0            444000035463 
AT6	032740 035463 0   0   000000035463 0            444000035463 
FT0	032740 035463 0   0   700000000000 0            444000035463 
FT1A	032740 035463 0   0   700000000000 0            700000000000 
FT2	032740 035463 0   0   0            0            700000000000 
FT2RQ	032740 035463 0   0   700000000000 0            700000000000 
FT3	032740 035463 0   0   700000000000 0            700000000000 
FT9	032741 035463 0   0   700000000000 0            700000000000 
ET0	032741 035463 0   0   777777777777 0            700000000000 
ST1	032741 035463 0   0   777777777777 0            700000000000 
ST2	032741 035463 0   0   777777777777 0            700000000000 
ST9	032741 035463 0   0   777777777777 0            700000000000 


*032741 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032741 032741 0   0   444000035412 0            0            
IT1	032741 0      0   0   444000035412 0            0            
AT3	032741 0      0   0   000000035412 0            444000035412 
AT6	032741 035412 0   0   000000035412 0            444000035412 
FT0	032741 035412 0   0   0            0            444000035412 
FT1A	032741 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 392
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0671

FT2	032741 035412 0   0   0            0            0            
FT2RQ	032741 035412 0   0   777777777777 0            0            
FT3	032741 035412 0   0   777777777777 0            0            
FT9	032742 035412 0   0   777777777777 0            0            
ET0	032742 035412 0   0   0            0            0            
ST1	032742 035412 0   0   0            0            0            
ST2	032742 035412 0   0   0            0            0            
ST9	032742 035412 0   0   0            0            0            


*032742 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032742 032742 0   0   332000000000 0            0            
IT1	032742 0      0   0   332000000000 0            0            
AT3	032742 0      0   0   0            0            332000000000 
AT6	032742 0      0   0   0            0            332000000000 
FT0	032742 0      0   0   0            0            332000000000 
FT1A	032742 0      0   0   0            0            0            
FT9	032743 0      0   0   0            0            0            
ET0	032744 0      0   0   0            0            0            
ST1A	032744 0      0   0   0            0            0            
ST9	032744 0      0   0   0            0            0            


*032744 JUMPA	0,032745
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032744 032744 0   0   324000032745 0            000000032745 
IT1	032744 0      0   0   324000032745 0            000000032745 
AT3	032744 0      0   0   000000032745 0            324000032745 
AT6	032744 032745 0   0   000000032745 0            324000032745 
FT1A	032744 032745 0   0   000000032745 0            000000032745 
FT2	032744 032745 0   0   0            0            000000032745 
FT2RQ	032744 032745 0   0   0            0            000000032745 
FT3	032744 032745 0   0   0            0            000000032745 
FT9	032745 032745 0   0   0            0            000000032745 
ET0	032745 032745 0   0   0            0            000000032745 
ST1A	032745 032745 0   0   0            0            000000032745 
ST9	032745 032745 0   0   0            0            000000032745 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 393
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0672

*032745 MOVE 	0,035536
INITIAL
C(AC)=000000 000000 
C(E)=577777 777777 
FINAL
C(AC)=577777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032745 032745 0   0   200000035536 0            577777777777 
IT1	032745 0      0   0   200000035536 0            577777777777 
AT3	032745 0      0   0   000000035536 0            200000035536 
AT6	032745 035536 0   0   000000035536 0            200000035536 
FT0	032745 035536 0   0   577777777777 0            200000035536 
FT1A	032745 035536 0   0   577777777777 0            577777777777 
FT9	032746 035536 0   0   577777777777 0            577777777777 
ET0	032746 035536 0   0   577777777777 0            577777777777 
ST1	032746 035536 0   0   577777777777 0            577777777777 
ST2	032746 035536 0   0   577777777777 0            577777777777 
ST9	032746 035536 0   0   577777777777 0            577777777777 


*032746 ADD 	0,035416
INITIAL
C(AC)=577777 777777 
C(E)=000000 000001 
FINAL
C(AC)=600000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032746 032746 0   0   270000035416 0            000000000001 
IT1	032746 0      0   0   270000035416 0            000000000001 
AT3	032746 0      0   0   000000035416 0            270000035416 
AT6	032746 035416 0   0   000000035416 0            270000035416 
FT0	032746 035416 0   0   000000000001 0            270000035416 
FT1A	032746 035416 0   0   000000000001 0            000000000001 
FT2	032746 035416 0   0   0            0            000000000001 
FT2RQ	032746 035416 0   0   577777777777 0            000000000001 
FT3	032746 035416 0   0   577777777777 0            000000000001 
FT9	032747 035416 0   0   577777777777 0            000000000001 
ET0	032747 035416 0   0   600000000000 0            000000000001 
ST1	032747 035416 0   0   600000000000 0            000000000001 
ST2	032747 035416 0   0   600000000000 0            000000000001 
ST9	032747 035416 0   0   600000000000 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 394
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0673

*032747 EQV 	0,035462
INITIAL
C(AC)=600000 000000 
C(E)=600000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032747 032747 0   0   444000035462 0            600000000000 
IT1	032747 0      0   0   444000035462 0            600000000000 
AT3	032747 0      0   0   000000035462 0            444000035462 
AT6	032747 035462 0   0   000000035462 0            444000035462 
FT0	032747 035462 0   0   600000000000 0            444000035462 
FT1A	032747 035462 0   0   600000000000 0            600000000000 
FT2	032747 035462 0   0   0            0            600000000000 
FT2RQ	032747 035462 0   0   600000000000 0            600000000000 
FT3	032747 035462 0   0   600000000000 0            600000000000 
FT9	032750 035462 0   0   600000000000 0            600000000000 
ET0	032750 035462 0   0   777777777777 0            600000000000 
ST1	032750 035462 0   0   777777777777 0            600000000000 
ST2	032750 035462 0   0   777777777777 0            600000000000 
ST9	032750 035462 0   0   777777777777 0            600000000000 


*032750 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032750 032750 0   0   444000035412 0            0            
IT1	032750 0      0   0   444000035412 0            0            
AT3	032750 0      0   0   000000035412 0            444000035412 
AT6	032750 035412 0   0   000000035412 0            444000035412 
FT0	032750 035412 0   0   0            0            444000035412 
FT1A	032750 035412 0   0   0            0            0            
FT2	032750 035412 0   0   0            0            0            
FT2RQ	032750 035412 0   0   777777777777 0            0            
FT3	032750 035412 0   0   777777777777 0            0            
FT9	032751 035412 0   0   777777777777 0            0            
ET0	032751 035412 0   0   0            0            0            
ST1	032751 035412 0   0   0            0            0            
ST2	032751 035412 0   0   0            0            0            
ST9	032751 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 395
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0674

*032751 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032751 032751 0   0   332000000000 0            0            
IT1	032751 0      0   0   332000000000 0            0            
AT3	032751 0      0   0   0            0            332000000000 
AT6	032751 0      0   0   0            0            332000000000 
FT0	032751 0      0   0   0            0            332000000000 
FT1A	032751 0      0   0   0            0            0            
FT9	032752 0      0   0   0            0            0            
ET0	032753 0      0   0   0            0            0            
ST1A	032753 0      0   0   0            0            0            
ST9	032753 0      0   0   0            0            0            


*032753 JUMPA	0,032754
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032753 032753 0   0   324000032754 0            000000032754 
IT1	032753 0      0   0   324000032754 0            000000032754 
AT3	032753 0      0   0   000000032754 0            324000032754 
AT6	032753 032754 0   0   000000032754 0            324000032754 
FT1A	032753 032754 0   0   000000032754 0            000000032754 
FT2	032753 032754 0   0   0            0            000000032754 
FT2RQ	032753 032754 0   0   0            0            000000032754 
FT3	032753 032754 0   0   0            0            000000032754 
FT9	032754 032754 0   0   0            0            000000032754 
ET0	032754 032754 0   0   0            0            000000032754 
ST1A	032754 032754 0   0   0            0            000000032754 
ST9	032754 032754 0   0   0            0            000000032754 


*032754 MOVE 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032754 032754 0   0   200000035524 0            777777777777 
IT1	032754 0      0   0   200000035524 0            777777777777 
AT3	032754 0      0   0   000000035524 0            200000035524 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 396
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0675

AT6	032754 035524 0   0   000000035524 0            200000035524 
FT0	032754 035524 0   0   777777777777 0            200000035524 
FT1A	032754 035524 0   0   777777777777 0            777777777777 
FT9	032755 035524 0   0   777777777777 0            777777777777 
ET0	032755 035524 0   0   777777777777 0            777777777777 
ST1	032755 035524 0   0   777777777777 0            777777777777 
ST2	032755 035524 0   0   777777777777 0            777777777777 
ST9	032755 035524 0   0   777777777777 0            777777777777 


*032755 ADD 	0,035416
INITIAL
C(AC)=777777 777777 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032755 032755 0   0   270000035416 0            000000000001 
IT1	032755 0      0   0   270000035416 0            000000000001 
AT3	032755 0      0   0   000000035416 0            270000035416 
AT6	032755 035416 0   0   000000035416 0            270000035416 
FT0	032755 035416 0   0   000000000001 0            270000035416 
FT1A	032755 035416 0   0   000000000001 0            000000000001 
FT2	032755 035416 0   0   0            0            000000000001 
FT2RQ	032755 035416 0   0   777777777777 0            000000000001 
FT3	032755 035416 0   0   777777777777 0            000000000001 
FT9	032756 035416 0   0   777777777777 0            000000000001 
ET0	032756 035416 0   0   0            0            000000000001 
ST1	032756 035416 0   0   0            0            000000000001 
ST2	032756 035416 0   0   0            0            000000000001 
ST9	032756 035416 0   0   0            0            000000000001 


*032756 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032756 032756 0   0   332000000000 0            0            
IT1	032756 0      0   0   332000000000 0            0            
AT3	032756 0      0   0   0            0            332000000000 
AT6	032756 0      0   0   0            0            332000000000 
FT0	032756 0      0   0   0            0            332000000000 
FT1A	032756 0      0   0   0            0            0            
FT9	032757 0      0   0   0            0            0            
ET0	032760 0      0   0   0            0            0            
ST1A	032760 0      0   0   0            0            0            
ST9	032760 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 397
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0676



*032760 JUMPA	0,032761
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032760 032760 0   0   324000032761 0            000000032761 
IT1	032760 0      0   0   324000032761 0            000000032761 
AT3	032760 0      0   0   000000032761 0            324000032761 
AT6	032760 032761 0   0   000000032761 0            324000032761 
FT1A	032760 032761 0   0   000000032761 0            000000032761 
FT2	032760 032761 0   0   0            0            000000032761 
FT2RQ	032760 032761 0   0   0            0            000000032761 
FT3	032760 032761 0   0   0            0            000000032761 
FT9	032761 032761 0   0   0            0            000000032761 
ET0	032761 032761 0   0   0            0            000000032761 
ST1A	032761 032761 0   0   0            0            000000032761 
ST9	032761 032761 0   0   0            0            000000032761 


*032761 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032761 032761 0   0   200000035412 0            0            
IT1	032761 0      0   0   200000035412 0            0            
AT3	032761 0      0   0   000000035412 0            200000035412 
AT6	032761 035412 0   0   000000035412 0            200000035412 
FT0	032761 035412 0   0   0            0            200000035412 
FT1A	032761 035412 0   0   0            0            0            
FT9	032762 035412 0   0   0            0            0            
ET0	032762 035412 0   0   0            0            0            
ST1	032762 035412 0   0   0            0            0            
ST2	032762 035412 0   0   0            0            0            
ST9	032762 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 398
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0677

*032762 SUB 	0,035537
INITIAL
C(AC)=000000 000000 
C(E)=000000 777777 
FINAL
C(AC)=777777 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032762 032762 0   0   274000035537 0            000000777777 
IT1	032762 0      0   0   274000035537 0            000000777777 
AT3	032762 0      0   0   000000035537 0            274000035537 
AT6	032762 035537 0   0   000000035537 0            274000035537 
FT0	032762 035537 0   0   000000777777 0            274000035537 
FT1A	032762 035537 0   0   000000777777 0            000000777777 
FT2	032762 035537 0   0   0            0            000000777777 
FT2RQ	032762 035537 0   0   0            0            000000777777 
FT3	032762 035537 0   0   0            0            000000777777 
FT9	032763 035537 0   0   0            0            000000777777 
ET0	032763 035537 0   0   777777000001 0            000000777777 
ST1	032763 035537 0   0   777777000001 0            000000777777 
ST2	032763 035537 0   0   777777000001 0            000000777777 
ST9	032763 035537 0   0   777777000001 0            000000777777 


*032763 SKIPL	0,000000
INITIAL
C(AC)=777777 000001 
C(E)=777777 000001 
FINAL
C(AC)=777777 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032763 032763 0   0   331000000000 0            777777000001 
IT1	032763 0      0   0   331000000000 0            777777000001 
AT3	032763 0      0   0   0            0            331000000000 
AT6	032763 0      0   0   0            0            331000000000 
FT0	032763 0      0   0   777777000001 0            331000000000 
FT1A	032763 0      0   0   777777000001 0            777777000001 
FT9	032764 0      0   0   777777000001 0            777777000001 
ET0	032765 0      0   0   777777000001 0            777777000001 
ST1A	032765 0      0   0   777777000001 0            777777000001 
ST9	032765 0      0   0   777777000001 0            777777000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 399
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0678

*032765 JUMPA	0,032766
INITIAL
C(AC)=777777 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032765 032765 0   0   324000032766 0            000000032766 
IT1	032765 0      0   0   324000032766 0            000000032766 
AT3	032765 0      0   0   000000032766 0            324000032766 
AT6	032765 032766 0   0   000000032766 0            324000032766 
FT1A	032765 032766 0   0   000000032766 0            000000032766 
FT2	032765 032766 0   0   0            0            000000032766 
FT2RQ	032765 032766 0   0   777777000001 0            000000032766 
FT3	032765 032766 0   0   777777000001 0            000000032766 
FT9	032766 032766 0   0   777777000001 0            000000032766 
ET0	032766 032766 0   0   777777000001 0            000000032766 
ST1A	032766 032766 0   0   777777000001 0            000000032766 
ST9	032766 032766 0   0   777777000001 0            000000032766 


*032766 MOVE 	0,035412
INITIAL
C(AC)=777777 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032766 032766 0   0   200000035412 0            0            
IT1	032766 0      0   0   200000035412 0            0            
AT3	032766 0      0   0   000000035412 0            200000035412 
AT6	032766 035412 0   0   000000035412 0            200000035412 
FT0	032766 035412 0   0   0            0            200000035412 
FT1A	032766 035412 0   0   0            0            0            
FT9	032767 035412 0   0   0            0            0            
ET0	032767 035412 0   0   0            0            0            
ST1	032767 035412 0   0   0            0            0            
ST2	032767 035412 0   0   0            0            0            
ST9	032767 035412 0   0   0            0            0            


*032767 SUB 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032767 032767 0   0   274000035412 0            0            
IT1	032767 0      0   0   274000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 400
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0679

AT3	032767 0      0   0   000000035412 0            274000035412 
AT6	032767 035412 0   0   000000035412 0            274000035412 
FT0	032767 035412 0   0   0            0            274000035412 
FT1A	032767 035412 0   0   0            0            0            
FT2	032767 035412 0   0   0            0            0            
FT2RQ	032767 035412 0   0   0            0            0            
FT3	032767 035412 0   0   0            0            0            
FT9	032770 035412 0   0   0            0            0            
ET0	032770 035412 0   0   0            0            0            
ST1	032770 035412 0   0   0            0            0            
ST2	032770 035412 0   0   0            0            0            
ST9	032770 035412 0   0   0            0            0            


*032770 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032770 032770 0   0   332000000000 0            0            
IT1	032770 0      0   0   332000000000 0            0            
AT3	032770 0      0   0   0            0            332000000000 
AT6	032770 0      0   0   0            0            332000000000 
FT0	032770 0      0   0   0            0            332000000000 
FT1A	032770 0      0   0   0            0            0            
FT9	032771 0      0   0   0            0            0            
ET0	032772 0      0   0   0            0            0            
ST1A	032772 0      0   0   0            0            0            
ST9	032772 0      0   0   0            0            0            


*032772 JUMPA	0,032773
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032772 032772 0   0   324000032773 0            000000032773 
IT1	032772 0      0   0   324000032773 0            000000032773 
AT3	032772 0      0   0   000000032773 0            324000032773 
AT6	032772 032773 0   0   000000032773 0            324000032773 
FT1A	032772 032773 0   0   000000032773 0            000000032773 
FT2	032772 032773 0   0   0            0            000000032773 
FT2RQ	032772 032773 0   0   0            0            000000032773 
FT3	032772 032773 0   0   0            0            000000032773 
FT9	032773 032773 0   0   0            0            000000032773 
ET0	032773 032773 0   0   0            0            000000032773 
ST1A	032773 032773 0   0   0            0            000000032773 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 401
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0680

ST9	032773 032773 0   0   0            0            000000032773 


*032773 MOVE 	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032773 032773 0   0   200000035416 0            000000000001 
IT1	032773 0      0   0   200000035416 0            000000000001 
AT3	032773 0      0   0   000000035416 0            200000035416 
AT6	032773 035416 0   0   000000035416 0            200000035416 
FT0	032773 035416 0   0   000000000001 0            200000035416 
FT1A	032773 035416 0   0   000000000001 0            000000000001 
FT9	032774 035416 0   0   000000000001 0            000000000001 
ET0	032774 035416 0   0   000000000001 0            000000000001 
ST1	032774 035416 0   0   000000000001 0            000000000001 
ST2	032774 035416 0   0   000000000001 0            000000000001 
ST9	032774 035416 0   0   000000000001 0            000000000001 


*032774 SUB 	0,035416
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032774 032774 0   0   274000035416 0            000000000001 
IT1	032774 0      0   0   274000035416 0            000000000001 
AT3	032774 0      0   0   000000035416 0            274000035416 
AT6	032774 035416 0   0   000000035416 0            274000035416 
FT0	032774 035416 0   0   000000000001 0            274000035416 
FT1A	032774 035416 0   0   000000000001 0            000000000001 
FT2	032774 035416 0   0   0            0            000000000001 
FT2RQ	032774 035416 0   0   000000000001 0            000000000001 
FT3	032774 035416 0   0   000000000001 0            000000000001 
FT9	032775 035416 0   0   000000000001 0            000000000001 
ET0	032775 035416 0   0   0            0            000000000001 
ST1	032775 035416 0   0   0            0            000000000001 
ST2	032775 035416 0   0   0            0            000000000001 
ST9	032775 035416 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 402
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0681

*032775 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032775 032775 0   0   332000000000 0            0            
IT1	032775 0      0   0   332000000000 0            0            
AT3	032775 0      0   0   0            0            332000000000 
AT6	032775 0      0   0   0            0            332000000000 
FT0	032775 0      0   0   0            0            332000000000 
FT1A	032775 0      0   0   0            0            0            
FT9	032776 0      0   0   0            0            0            
ET0	032777 0      0   0   0            0            0            
ST1A	032777 0      0   0   0            0            0            
ST9	032777 0      0   0   0            0            0            


*032777 JUMPA	0,033000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032777 032777 0   0   324000033000 0            000000033000 
IT1	032777 0      0   0   324000033000 0            000000033000 
AT3	032777 0      0   0   000000033000 0            324000033000 
AT6	032777 0      0   0   000000033000 0            324000033000 
FT1A	032777 0      0   0   000000033000 0            000000033000 
FT2	032777 0      0   0   0            0            000000033000 
FT2RQ	032777 0      0   0   0            0            000000033000 
FT3	032777 0      0   0   0            0            000000033000 
FT9	0      0      0   0   0            0            000000033000 
ET0	0      0      0   0   0            0            000000033000 
ST1A	0      0      0   0   0            0            000000033000 
ST9	0      0      0   0   0            0            000000033000 


*033000 MOVE 	0,035417
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035417 0            000000000002 
IT1	0      0      0   0   200000035417 0            000000000002 
AT3	0      0      0   0   000000035417 0            200000035417 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 403
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0682

AT6	0      035417 0   0   000000035417 0            200000035417 
FT0	0      035417 0   0   000000000002 0            200000035417 
FT1A	0      035417 0   0   000000000002 0            000000000002 
FT9	033001 035417 0   0   000000000002 0            000000000002 
ET0	033001 035417 0   0   000000000002 0            000000000002 
ST1	033001 035417 0   0   000000000002 0            000000000002 
ST2	033001 035417 0   0   000000000002 0            000000000002 
ST9	033001 035417 0   0   000000000002 0            000000000002 


*033001 SUB 	0,035417
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033001 033001 0   0   274000035417 0            000000000002 
IT1	033001 0      0   0   274000035417 0            000000000002 
AT3	033001 0      0   0   000000035417 0            274000035417 
AT6	033001 035417 0   0   000000035417 0            274000035417 
FT0	033001 035417 0   0   000000000002 0            274000035417 
FT1A	033001 035417 0   0   000000000002 0            000000000002 
FT2	033001 035417 0   0   0            0            000000000002 
FT2RQ	033001 035417 0   0   000000000002 0            000000000002 
FT3	033001 035417 0   0   000000000002 0            000000000002 
FT9	033002 035417 0   0   000000000002 0            000000000002 
ET0	033002 035417 0   0   0            0            000000000002 
ST1	033002 035417 0   0   0            0            000000000002 
ST2	033002 035417 0   0   0            0            000000000002 
ST9	033002 035417 0   0   0            0            000000000002 


*033002 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033002 033002 0   0   332000000000 0            0            
IT1	033002 0      0   0   332000000000 0            0            
AT3	033002 0      0   0   0            0            332000000000 
AT6	033002 0      0   0   0            0            332000000000 
FT0	033002 0      0   0   0            0            332000000000 
FT1A	033002 0      0   0   0            0            0            
FT9	033003 0      0   0   0            0            0            
ET0	033004 0      0   0   0            0            0            
ST1A	033004 0      0   0   0            0            0            
ST9	033004 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 404
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0683



*033004 JUMPA	0,033005
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033004 033004 0   0   324000033005 0            000000033005 
IT1	033004 0      0   0   324000033005 0            000000033005 
AT3	033004 0      0   0   000000033005 0            324000033005 
AT6	033004 033005 0   0   000000033005 0            324000033005 
FT1A	033004 033005 0   0   000000033005 0            000000033005 
FT2	033004 033005 0   0   0            0            000000033005 
FT2RQ	033004 033005 0   0   0            0            000000033005 
FT3	033004 033005 0   0   0            0            000000033005 
FT9	033005 033005 0   0   0            0            000000033005 
ET0	033005 033005 0   0   0            0            000000033005 
ST1A	033005 033005 0   0   0            0            000000033005 
ST9	033005 033005 0   0   0            0            000000033005 


*033005 MOVE 	0,035420
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033005 033005 0   0   200000035420 0            000000000004 
IT1	033005 0      0   0   200000035420 0            000000000004 
AT3	033005 0      0   0   000000035420 0            200000035420 
AT6	033005 035420 0   0   000000035420 0            200000035420 
FT0	033005 035420 0   0   000000000004 0            200000035420 
FT1A	033005 035420 0   0   000000000004 0            000000000004 
FT9	033006 035420 0   0   000000000004 0            000000000004 
ET0	033006 035420 0   0   000000000004 0            000000000004 
ST1	033006 035420 0   0   000000000004 0            000000000004 
ST2	033006 035420 0   0   000000000004 0            000000000004 
ST9	033006 035420 0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 405
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0684

*033006 SUB 	0,035420
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033006 033006 0   0   274000035420 0            000000000004 
IT1	033006 0      0   0   274000035420 0            000000000004 
AT3	033006 0      0   0   000000035420 0            274000035420 
AT6	033006 035420 0   0   000000035420 0            274000035420 
FT0	033006 035420 0   0   000000000004 0            274000035420 
FT1A	033006 035420 0   0   000000000004 0            000000000004 
FT2	033006 035420 0   0   0            0            000000000004 
FT2RQ	033006 035420 0   0   000000000004 0            000000000004 
FT3	033006 035420 0   0   000000000004 0            000000000004 
FT9	033007 035420 0   0   000000000004 0            000000000004 
ET0	033007 035420 0   0   0            0            000000000004 
ST1	033007 035420 0   0   0            0            000000000004 
ST2	033007 035420 0   0   0            0            000000000004 
ST9	033007 035420 0   0   0            0            000000000004 


*033007 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033007 033007 0   0   332000000000 0            0            
IT1	033007 0      0   0   332000000000 0            0            
AT3	033007 0      0   0   0            0            332000000000 
AT6	033007 0      0   0   0            0            332000000000 
FT0	033007 0      0   0   0            0            332000000000 
FT1A	033007 0      0   0   0            0            0            
FT9	033010 0      0   0   0            0            0            
ET0	033011 0      0   0   0            0            0            
ST1A	033011 0      0   0   0            0            0            
ST9	033011 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 406
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0685

*033011 JUMPA	0,033012
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033011 033011 0   0   324000033012 0            000000033012 
IT1	033011 0      0   0   324000033012 0            000000033012 
AT3	033011 0      0   0   000000033012 0            324000033012 
AT6	033011 033012 0   0   000000033012 0            324000033012 
FT1A	033011 033012 0   0   000000033012 0            000000033012 
FT2	033011 033012 0   0   0            0            000000033012 
FT2RQ	033011 033012 0   0   0            0            000000033012 
FT3	033011 033012 0   0   0            0            000000033012 
FT9	033012 033012 0   0   0            0            000000033012 
ET0	033012 033012 0   0   0            0            000000033012 
ST1A	033012 033012 0   0   0            0            000000033012 
ST9	033012 033012 0   0   0            0            000000033012 


*033012 MOVE 	0,035421
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033012 033012 0   0   200000035421 0            000000000010 
IT1	033012 0      0   0   200000035421 0            000000000010 
AT3	033012 0      0   0   000000035421 0            200000035421 
AT6	033012 035421 0   0   000000035421 0            200000035421 
FT0	033012 035421 0   0   000000000010 0            200000035421 
FT1A	033012 035421 0   0   000000000010 0            000000000010 
FT9	033013 035421 0   0   000000000010 0            000000000010 
ET0	033013 035421 0   0   000000000010 0            000000000010 
ST1	033013 035421 0   0   000000000010 0            000000000010 
ST2	033013 035421 0   0   000000000010 0            000000000010 
ST9	033013 035421 0   0   000000000010 0            000000000010 


*033013 SUB 	0,035421
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033013 033013 0   0   274000035421 0            000000000010 
IT1	033013 0      0   0   274000035421 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 407
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0686

AT3	033013 0      0   0   000000035421 0            274000035421 
AT6	033013 035421 0   0   000000035421 0            274000035421 
FT0	033013 035421 0   0   000000000010 0            274000035421 
FT1A	033013 035421 0   0   000000000010 0            000000000010 
FT2	033013 035421 0   0   0            0            000000000010 
FT2RQ	033013 035421 0   0   000000000010 0            000000000010 
FT3	033013 035421 0   0   000000000010 0            000000000010 
FT9	033014 035421 0   0   000000000010 0            000000000010 
ET0	033014 035421 0   0   0            0            000000000010 
ST1	033014 035421 0   0   0            0            000000000010 
ST2	033014 035421 0   0   0            0            000000000010 
ST9	033014 035421 0   0   0            0            000000000010 


*033014 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033014 033014 0   0   332000000000 0            0            
IT1	033014 0      0   0   332000000000 0            0            
AT3	033014 0      0   0   0            0            332000000000 
AT6	033014 0      0   0   0            0            332000000000 
FT0	033014 0      0   0   0            0            332000000000 
FT1A	033014 0      0   0   0            0            0            
FT9	033015 0      0   0   0            0            0            
ET0	033016 0      0   0   0            0            0            
ST1A	033016 0      0   0   0            0            0            
ST9	033016 0      0   0   0            0            0            


*033016 JUMPA	0,033017
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033016 033016 0   0   324000033017 0            000000033017 
IT1	033016 0      0   0   324000033017 0            000000033017 
AT3	033016 0      0   0   000000033017 0            324000033017 
AT6	033016 033017 0   0   000000033017 0            324000033017 
FT1A	033016 033017 0   0   000000033017 0            000000033017 
FT2	033016 033017 0   0   0            0            000000033017 
FT2RQ	033016 033017 0   0   0            0            000000033017 
FT3	033016 033017 0   0   0            0            000000033017 
FT9	033017 033017 0   0   0            0            000000033017 
ET0	033017 033017 0   0   0            0            000000033017 
ST1A	033017 033017 0   0   0            0            000000033017 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 408
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0687

ST9	033017 033017 0   0   0            0            000000033017 


*033017 MOVE 	0,035422
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033017 033017 0   0   200000035422 0            000000000020 
IT1	033017 0      0   0   200000035422 0            000000000020 
AT3	033017 0      0   0   000000035422 0            200000035422 
AT6	033017 035422 0   0   000000035422 0            200000035422 
FT0	033017 035422 0   0   000000000020 0            200000035422 
FT1A	033017 035422 0   0   000000000020 0            000000000020 
FT9	033020 035422 0   0   000000000020 0            000000000020 
ET0	033020 035422 0   0   000000000020 0            000000000020 
ST1	033020 035422 0   0   000000000020 0            000000000020 
ST2	033020 035422 0   0   000000000020 0            000000000020 
ST9	033020 035422 0   0   000000000020 0            000000000020 


*033020 SUB 	0,035422
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033020 033020 0   0   274000035422 0            000000000020 
IT1	033020 0      0   0   274000035422 0            000000000020 
AT3	033020 0      0   0   000000035422 0            274000035422 
AT6	033020 035422 0   0   000000035422 0            274000035422 
FT0	033020 035422 0   0   000000000020 0            274000035422 
FT1A	033020 035422 0   0   000000000020 0            000000000020 
FT2	033020 035422 0   0   0            0            000000000020 
FT2RQ	033020 035422 0   0   000000000020 0            000000000020 
FT3	033020 035422 0   0   000000000020 0            000000000020 
FT9	033021 035422 0   0   000000000020 0            000000000020 
ET0	033021 035422 0   0   0            0            000000000020 
ST1	033021 035422 0   0   0            0            000000000020 
ST2	033021 035422 0   0   0            0            000000000020 
ST9	033021 035422 0   0   0            0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 409
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0688

*033021 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033021 033021 0   0   332000000000 0            0            
IT1	033021 0      0   0   332000000000 0            0            
AT3	033021 0      0   0   0            0            332000000000 
AT6	033021 0      0   0   0            0            332000000000 
FT0	033021 0      0   0   0            0            332000000000 
FT1A	033021 0      0   0   0            0            0            
FT9	033022 0      0   0   0            0            0            
ET0	033023 0      0   0   0            0            0            
ST1A	033023 0      0   0   0            0            0            
ST9	033023 0      0   0   0            0            0            


*033023 JUMPA	0,033024
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033023 033023 0   0   324000033024 0            000000033024 
IT1	033023 0      0   0   324000033024 0            000000033024 
AT3	033023 0      0   0   000000033024 0            324000033024 
AT6	033023 033024 0   0   000000033024 0            324000033024 
FT1A	033023 033024 0   0   000000033024 0            000000033024 
FT2	033023 033024 0   0   0            0            000000033024 
FT2RQ	033023 033024 0   0   0            0            000000033024 
FT3	033023 033024 0   0   0            0            000000033024 
FT9	033024 033024 0   0   0            0            000000033024 
ET0	033024 033024 0   0   0            0            000000033024 
ST1A	033024 033024 0   0   0            0            000000033024 
ST9	033024 033024 0   0   0            0            000000033024 


*033024 MOVE 	0,035423
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033024 033024 0   0   200000035423 0            000000000040 
IT1	033024 0      0   0   200000035423 0            000000000040 
AT3	033024 0      0   0   000000035423 0            200000035423 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 410
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0689

AT6	033024 035423 0   0   000000035423 0            200000035423 
FT0	033024 035423 0   0   000000000040 0            200000035423 
FT1A	033024 035423 0   0   000000000040 0            000000000040 
FT9	033025 035423 0   0   000000000040 0            000000000040 
ET0	033025 035423 0   0   000000000040 0            000000000040 
ST1	033025 035423 0   0   000000000040 0            000000000040 
ST2	033025 035423 0   0   000000000040 0            000000000040 
ST9	033025 035423 0   0   000000000040 0            000000000040 


*033025 SUB 	0,035423
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033025 033025 0   0   274000035423 0            000000000040 
IT1	033025 0      0   0   274000035423 0            000000000040 
AT3	033025 0      0   0   000000035423 0            274000035423 
AT6	033025 035423 0   0   000000035423 0            274000035423 
FT0	033025 035423 0   0   000000000040 0            274000035423 
FT1A	033025 035423 0   0   000000000040 0            000000000040 
FT2	033025 035423 0   0   0            0            000000000040 
FT2RQ	033025 035423 0   0   000000000040 0            000000000040 
FT3	033025 035423 0   0   000000000040 0            000000000040 
FT9	033026 035423 0   0   000000000040 0            000000000040 
ET0	033026 035423 0   0   0            0            000000000040 
ST1	033026 035423 0   0   0            0            000000000040 
ST2	033026 035423 0   0   0            0            000000000040 
ST9	033026 035423 0   0   0            0            000000000040 


*033026 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033026 033026 0   0   332000000000 0            0            
IT1	033026 0      0   0   332000000000 0            0            
AT3	033026 0      0   0   0            0            332000000000 
AT6	033026 0      0   0   0            0            332000000000 
FT0	033026 0      0   0   0            0            332000000000 
FT1A	033026 0      0   0   0            0            0            
FT9	033027 0      0   0   0            0            0            
ET0	033030 0      0   0   0            0            0            
ST1A	033030 0      0   0   0            0            0            
ST9	033030 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 411
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0690



*033030 JUMPA	0,033031
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033030 033030 0   0   324000033031 0            000000033031 
IT1	033030 0      0   0   324000033031 0            000000033031 
AT3	033030 0      0   0   000000033031 0            324000033031 
AT6	033030 033031 0   0   000000033031 0            324000033031 
FT1A	033030 033031 0   0   000000033031 0            000000033031 
FT2	033030 033031 0   0   0            0            000000033031 
FT2RQ	033030 033031 0   0   0            0            000000033031 
FT3	033030 033031 0   0   0            0            000000033031 
FT9	033031 033031 0   0   0            0            000000033031 
ET0	033031 033031 0   0   0            0            000000033031 
ST1A	033031 033031 0   0   0            0            000000033031 
ST9	033031 033031 0   0   0            0            000000033031 


*033031 MOVE 	0,035424
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033031 033031 0   0   200000035424 0            000000000100 
IT1	033031 0      0   0   200000035424 0            000000000100 
AT3	033031 0      0   0   000000035424 0            200000035424 
AT6	033031 035424 0   0   000000035424 0            200000035424 
FT0	033031 035424 0   0   000000000100 0            200000035424 
FT1A	033031 035424 0   0   000000000100 0            000000000100 
FT9	033032 035424 0   0   000000000100 0            000000000100 
ET0	033032 035424 0   0   000000000100 0            000000000100 
ST1	033032 035424 0   0   000000000100 0            000000000100 
ST2	033032 035424 0   0   000000000100 0            000000000100 
ST9	033032 035424 0   0   000000000100 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 412
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0691

*033032 SUB 	0,035424
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033032 033032 0   0   274000035424 0            000000000100 
IT1	033032 0      0   0   274000035424 0            000000000100 
AT3	033032 0      0   0   000000035424 0            274000035424 
AT6	033032 035424 0   0   000000035424 0            274000035424 
FT0	033032 035424 0   0   000000000100 0            274000035424 
FT1A	033032 035424 0   0   000000000100 0            000000000100 
FT2	033032 035424 0   0   0            0            000000000100 
FT2RQ	033032 035424 0   0   000000000100 0            000000000100 
FT3	033032 035424 0   0   000000000100 0            000000000100 
FT9	033033 035424 0   0   000000000100 0            000000000100 
ET0	033033 035424 0   0   0            0            000000000100 
ST1	033033 035424 0   0   0            0            000000000100 
ST2	033033 035424 0   0   0            0            000000000100 
ST9	033033 035424 0   0   0            0            000000000100 


*033033 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033033 033033 0   0   332000000000 0            0            
IT1	033033 0      0   0   332000000000 0            0            
AT3	033033 0      0   0   0            0            332000000000 
AT6	033033 0      0   0   0            0            332000000000 
FT0	033033 0      0   0   0            0            332000000000 
FT1A	033033 0      0   0   0            0            0            
FT9	033034 0      0   0   0            0            0            
ET0	033035 0      0   0   0            0            0            
ST1A	033035 0      0   0   0            0            0            
ST9	033035 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 413
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0692

*033035 JUMPA	0,033036
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033035 033035 0   0   324000033036 0            000000033036 
IT1	033035 0      0   0   324000033036 0            000000033036 
AT3	033035 0      0   0   000000033036 0            324000033036 
AT6	033035 033036 0   0   000000033036 0            324000033036 
FT1A	033035 033036 0   0   000000033036 0            000000033036 
FT2	033035 033036 0   0   0            0            000000033036 
FT2RQ	033035 033036 0   0   0            0            000000033036 
FT3	033035 033036 0   0   0            0            000000033036 
FT9	033036 033036 0   0   0            0            000000033036 
ET0	033036 033036 0   0   0            0            000000033036 
ST1A	033036 033036 0   0   0            0            000000033036 
ST9	033036 033036 0   0   0            0            000000033036 


*033036 MOVE 	0,035425
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033036 033036 0   0   200000035425 0            000000000200 
IT1	033036 0      0   0   200000035425 0            000000000200 
AT3	033036 0      0   0   000000035425 0            200000035425 
AT6	033036 035425 0   0   000000035425 0            200000035425 
FT0	033036 035425 0   0   000000000200 0            200000035425 
FT1A	033036 035425 0   0   000000000200 0            000000000200 
FT9	033037 035425 0   0   000000000200 0            000000000200 
ET0	033037 035425 0   0   000000000200 0            000000000200 
ST1	033037 035425 0   0   000000000200 0            000000000200 
ST2	033037 035425 0   0   000000000200 0            000000000200 
ST9	033037 035425 0   0   000000000200 0            000000000200 


*033037 SUB 	0,035425
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033037 033037 0   0   274000035425 0            000000000200 
IT1	033037 0      0   0   274000035425 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 414
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0693

AT3	033037 0      0   0   000000035425 0            274000035425 
AT6	033037 035425 0   0   000000035425 0            274000035425 
FT0	033037 035425 0   0   000000000200 0            274000035425 
FT1A	033037 035425 0   0   000000000200 0            000000000200 
FT2	033037 035425 0   0   0            0            000000000200 
FT2RQ	033037 035425 0   0   000000000200 0            000000000200 
FT3	033037 035425 0   0   000000000200 0            000000000200 
FT9	033040 035425 0   0   000000000200 0            000000000200 
ET0	033040 035425 0   0   0            0            000000000200 
ST1	033040 035425 0   0   0            0            000000000200 
ST2	033040 035425 0   0   0            0            000000000200 
ST9	033040 035425 0   0   0            0            000000000200 


*033040 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033040 033040 0   0   332000000000 0            0            
IT1	033040 0      0   0   332000000000 0            0            
AT3	033040 0      0   0   0            0            332000000000 
AT6	033040 0      0   0   0            0            332000000000 
FT0	033040 0      0   0   0            0            332000000000 
FT1A	033040 0      0   0   0            0            0            
FT9	033041 0      0   0   0            0            0            
ET0	033042 0      0   0   0            0            0            
ST1A	033042 0      0   0   0            0            0            
ST9	033042 0      0   0   0            0            0            


*033042 JUMPA	0,033043
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033042 033042 0   0   324000033043 0            000000033043 
IT1	033042 0      0   0   324000033043 0            000000033043 
AT3	033042 0      0   0   000000033043 0            324000033043 
AT6	033042 033043 0   0   000000033043 0            324000033043 
FT1A	033042 033043 0   0   000000033043 0            000000033043 
FT2	033042 033043 0   0   0            0            000000033043 
FT2RQ	033042 033043 0   0   0            0            000000033043 
FT3	033042 033043 0   0   0            0            000000033043 
FT9	033043 033043 0   0   0            0            000000033043 
ET0	033043 033043 0   0   0            0            000000033043 
ST1A	033043 033043 0   0   0            0            000000033043 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 415
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0694

ST9	033043 033043 0   0   0            0            000000033043 


*033043 MOVE 	0,035426
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033043 033043 0   0   200000035426 0            000000000400 
IT1	033043 0      0   0   200000035426 0            000000000400 
AT3	033043 0      0   0   000000035426 0            200000035426 
AT6	033043 035426 0   0   000000035426 0            200000035426 
FT0	033043 035426 0   0   000000000400 0            200000035426 
FT1A	033043 035426 0   0   000000000400 0            000000000400 
FT9	033044 035426 0   0   000000000400 0            000000000400 
ET0	033044 035426 0   0   000000000400 0            000000000400 
ST1	033044 035426 0   0   000000000400 0            000000000400 
ST2	033044 035426 0   0   000000000400 0            000000000400 
ST9	033044 035426 0   0   000000000400 0            000000000400 


*033044 SUB 	0,035426
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033044 033044 0   0   274000035426 0            000000000400 
IT1	033044 0      0   0   274000035426 0            000000000400 
AT3	033044 0      0   0   000000035426 0            274000035426 
AT6	033044 035426 0   0   000000035426 0            274000035426 
FT0	033044 035426 0   0   000000000400 0            274000035426 
FT1A	033044 035426 0   0   000000000400 0            000000000400 
FT2	033044 035426 0   0   0            0            000000000400 
FT2RQ	033044 035426 0   0   000000000400 0            000000000400 
FT3	033044 035426 0   0   000000000400 0            000000000400 
FT9	033045 035426 0   0   000000000400 0            000000000400 
ET0	033045 035426 0   0   0            0            000000000400 
ST1	033045 035426 0   0   0            0            000000000400 
ST2	033045 035426 0   0   0            0            000000000400 
ST9	033045 035426 0   0   0            0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 416
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0695

*033045 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033045 033045 0   0   332000000000 0            0            
IT1	033045 0      0   0   332000000000 0            0            
AT3	033045 0      0   0   0            0            332000000000 
AT6	033045 0      0   0   0            0            332000000000 
FT0	033045 0      0   0   0            0            332000000000 
FT1A	033045 0      0   0   0            0            0            
FT9	033046 0      0   0   0            0            0            
ET0	033047 0      0   0   0            0            0            
ST1A	033047 0      0   0   0            0            0            
ST9	033047 0      0   0   0            0            0            


*033047 JUMPA	0,033050
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033047 033047 0   0   324000033050 0            000000033050 
IT1	033047 0      0   0   324000033050 0            000000033050 
AT3	033047 0      0   0   000000033050 0            324000033050 
AT6	033047 033050 0   0   000000033050 0            324000033050 
FT1A	033047 033050 0   0   000000033050 0            000000033050 
FT2	033047 033050 0   0   0            0            000000033050 
FT2RQ	033047 033050 0   0   0            0            000000033050 
FT3	033047 033050 0   0   0            0            000000033050 
FT9	033050 033050 0   0   0            0            000000033050 
ET0	033050 033050 0   0   0            0            000000033050 
ST1A	033050 033050 0   0   0            0            000000033050 
ST9	033050 033050 0   0   0            0            000000033050 


*033050 MOVE 	0,035427
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033050 033050 0   0   200000035427 0            000000001000 
IT1	033050 0      0   0   200000035427 0            000000001000 
AT3	033050 0      0   0   000000035427 0            200000035427 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 417
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0696

AT6	033050 035427 0   0   000000035427 0            200000035427 
FT0	033050 035427 0   0   000000001000 0            200000035427 
FT1A	033050 035427 0   0   000000001000 0            000000001000 
FT9	033051 035427 0   0   000000001000 0            000000001000 
ET0	033051 035427 0   0   000000001000 0            000000001000 
ST1	033051 035427 0   0   000000001000 0            000000001000 
ST2	033051 035427 0   0   000000001000 0            000000001000 
ST9	033051 035427 0   0   000000001000 0            000000001000 


*033051 SUB 	0,035427
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033051 033051 0   0   274000035427 0            000000001000 
IT1	033051 0      0   0   274000035427 0            000000001000 
AT3	033051 0      0   0   000000035427 0            274000035427 
AT6	033051 035427 0   0   000000035427 0            274000035427 
FT0	033051 035427 0   0   000000001000 0            274000035427 
FT1A	033051 035427 0   0   000000001000 0            000000001000 
FT2	033051 035427 0   0   0            0            000000001000 
FT2RQ	033051 035427 0   0   000000001000 0            000000001000 
FT3	033051 035427 0   0   000000001000 0            000000001000 
FT9	033052 035427 0   0   000000001000 0            000000001000 
ET0	033052 035427 0   0   0            0            000000001000 
ST1	033052 035427 0   0   0            0            000000001000 
ST2	033052 035427 0   0   0            0            000000001000 
ST9	033052 035427 0   0   0            0            000000001000 


*033052 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033052 033052 0   0   332000000000 0            0            
IT1	033052 0      0   0   332000000000 0            0            
AT3	033052 0      0   0   0            0            332000000000 
AT6	033052 0      0   0   0            0            332000000000 
FT0	033052 0      0   0   0            0            332000000000 
FT1A	033052 0      0   0   0            0            0            
FT9	033053 0      0   0   0            0            0            
ET0	033054 0      0   0   0            0            0            
ST1A	033054 0      0   0   0            0            0            
ST9	033054 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 418
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0697



*033054 JUMPA	0,033055
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033054 033054 0   0   324000033055 0            000000033055 
IT1	033054 0      0   0   324000033055 0            000000033055 
AT3	033054 0      0   0   000000033055 0            324000033055 
AT6	033054 033055 0   0   000000033055 0            324000033055 
FT1A	033054 033055 0   0   000000033055 0            000000033055 
FT2	033054 033055 0   0   0            0            000000033055 
FT2RQ	033054 033055 0   0   0            0            000000033055 
FT3	033054 033055 0   0   0            0            000000033055 
FT9	033055 033055 0   0   0            0            000000033055 
ET0	033055 033055 0   0   0            0            000000033055 
ST1A	033055 033055 0   0   0            0            000000033055 
ST9	033055 033055 0   0   0            0            000000033055 


*033055 MOVE 	0,035430
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033055 033055 0   0   200000035430 0            000000002000 
IT1	033055 0      0   0   200000035430 0            000000002000 
AT3	033055 0      0   0   000000035430 0            200000035430 
AT6	033055 035430 0   0   000000035430 0            200000035430 
FT0	033055 035430 0   0   000000002000 0            200000035430 
FT1A	033055 035430 0   0   000000002000 0            000000002000 
FT9	033056 035430 0   0   000000002000 0            000000002000 
ET0	033056 035430 0   0   000000002000 0            000000002000 
ST1	033056 035430 0   0   000000002000 0            000000002000 
ST2	033056 035430 0   0   000000002000 0            000000002000 
ST9	033056 035430 0   0   000000002000 0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 419
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0698

*033056 SUB 	0,035430
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033056 033056 0   0   274000035430 0            000000002000 
IT1	033056 0      0   0   274000035430 0            000000002000 
AT3	033056 0      0   0   000000035430 0            274000035430 
AT6	033056 035430 0   0   000000035430 0            274000035430 
FT0	033056 035430 0   0   000000002000 0            274000035430 
FT1A	033056 035430 0   0   000000002000 0            000000002000 
FT2	033056 035430 0   0   0            0            000000002000 
FT2RQ	033056 035430 0   0   000000002000 0            000000002000 
FT3	033056 035430 0   0   000000002000 0            000000002000 
FT9	033057 035430 0   0   000000002000 0            000000002000 
ET0	033057 035430 0   0   0            0            000000002000 
ST1	033057 035430 0   0   0            0            000000002000 
ST2	033057 035430 0   0   0            0            000000002000 
ST9	033057 035430 0   0   0            0            000000002000 


*033057 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033057 033057 0   0   332000000000 0            0            
IT1	033057 0      0   0   332000000000 0            0            
AT3	033057 0      0   0   0            0            332000000000 
AT6	033057 0      0   0   0            0            332000000000 
FT0	033057 0      0   0   0            0            332000000000 
FT1A	033057 0      0   0   0            0            0            
FT9	033060 0      0   0   0            0            0            
ET0	033061 0      0   0   0            0            0            
ST1A	033061 0      0   0   0            0            0            
ST9	033061 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 420
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0699

*033061 JUMPA	0,033062
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033061 033061 0   0   324000033062 0            000000033062 
IT1	033061 0      0   0   324000033062 0            000000033062 
AT3	033061 0      0   0   000000033062 0            324000033062 
AT6	033061 033062 0   0   000000033062 0            324000033062 
FT1A	033061 033062 0   0   000000033062 0            000000033062 
FT2	033061 033062 0   0   0            0            000000033062 
FT2RQ	033061 033062 0   0   0            0            000000033062 
FT3	033061 033062 0   0   0            0            000000033062 
FT9	033062 033062 0   0   0            0            000000033062 
ET0	033062 033062 0   0   0            0            000000033062 
ST1A	033062 033062 0   0   0            0            000000033062 
ST9	033062 033062 0   0   0            0            000000033062 


*033062 MOVE 	0,035431
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033062 033062 0   0   200000035431 0            000000004000 
IT1	033062 0      0   0   200000035431 0            000000004000 
AT3	033062 0      0   0   000000035431 0            200000035431 
AT6	033062 035431 0   0   000000035431 0            200000035431 
FT0	033062 035431 0   0   000000004000 0            200000035431 
FT1A	033062 035431 0   0   000000004000 0            000000004000 
FT9	033063 035431 0   0   000000004000 0            000000004000 
ET0	033063 035431 0   0   000000004000 0            000000004000 
ST1	033063 035431 0   0   000000004000 0            000000004000 
ST2	033063 035431 0   0   000000004000 0            000000004000 
ST9	033063 035431 0   0   000000004000 0            000000004000 


*033063 SUB 	0,035431
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033063 033063 0   0   274000035431 0            000000004000 
IT1	033063 0      0   0   274000035431 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 421
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0700

AT3	033063 0      0   0   000000035431 0            274000035431 
AT6	033063 035431 0   0   000000035431 0            274000035431 
FT0	033063 035431 0   0   000000004000 0            274000035431 
FT1A	033063 035431 0   0   000000004000 0            000000004000 
FT2	033063 035431 0   0   0            0            000000004000 
FT2RQ	033063 035431 0   0   000000004000 0            000000004000 
FT3	033063 035431 0   0   000000004000 0            000000004000 
FT9	033064 035431 0   0   000000004000 0            000000004000 
ET0	033064 035431 0   0   0            0            000000004000 
ST1	033064 035431 0   0   0            0            000000004000 
ST2	033064 035431 0   0   0            0            000000004000 
ST9	033064 035431 0   0   0            0            000000004000 


*033064 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033064 033064 0   0   332000000000 0            0            
IT1	033064 0      0   0   332000000000 0            0            
AT3	033064 0      0   0   0            0            332000000000 
AT6	033064 0      0   0   0            0            332000000000 
FT0	033064 0      0   0   0            0            332000000000 
FT1A	033064 0      0   0   0            0            0            
FT9	033065 0      0   0   0            0            0            
ET0	033066 0      0   0   0            0            0            
ST1A	033066 0      0   0   0            0            0            
ST9	033066 0      0   0   0            0            0            


*033066 JUMPA	0,033067
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033066 033066 0   0   324000033067 0            000000033067 
IT1	033066 0      0   0   324000033067 0            000000033067 
AT3	033066 0      0   0   000000033067 0            324000033067 
AT6	033066 033067 0   0   000000033067 0            324000033067 
FT1A	033066 033067 0   0   000000033067 0            000000033067 
FT2	033066 033067 0   0   0            0            000000033067 
FT2RQ	033066 033067 0   0   0            0            000000033067 
FT3	033066 033067 0   0   0            0            000000033067 
FT9	033067 033067 0   0   0            0            000000033067 
ET0	033067 033067 0   0   0            0            000000033067 
ST1A	033067 033067 0   0   0            0            000000033067 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 422
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0701

ST9	033067 033067 0   0   0            0            000000033067 


*033067 MOVE 	0,035432
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033067 033067 0   0   200000035432 0            000000010000 
IT1	033067 0      0   0   200000035432 0            000000010000 
AT3	033067 0      0   0   000000035432 0            200000035432 
AT6	033067 035432 0   0   000000035432 0            200000035432 
FT0	033067 035432 0   0   000000010000 0            200000035432 
FT1A	033067 035432 0   0   000000010000 0            000000010000 
FT9	033070 035432 0   0   000000010000 0            000000010000 
ET0	033070 035432 0   0   000000010000 0            000000010000 
ST1	033070 035432 0   0   000000010000 0            000000010000 
ST2	033070 035432 0   0   000000010000 0            000000010000 
ST9	033070 035432 0   0   000000010000 0            000000010000 


*033070 SUB 	0,035432
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033070 033070 0   0   274000035432 0            000000010000 
IT1	033070 0      0   0   274000035432 0            000000010000 
AT3	033070 0      0   0   000000035432 0            274000035432 
AT6	033070 035432 0   0   000000035432 0            274000035432 
FT0	033070 035432 0   0   000000010000 0            274000035432 
FT1A	033070 035432 0   0   000000010000 0            000000010000 
FT2	033070 035432 0   0   0            0            000000010000 
FT2RQ	033070 035432 0   0   000000010000 0            000000010000 
FT3	033070 035432 0   0   000000010000 0            000000010000 
FT9	033071 035432 0   0   000000010000 0            000000010000 
ET0	033071 035432 0   0   0            0            000000010000 
ST1	033071 035432 0   0   0            0            000000010000 
ST2	033071 035432 0   0   0            0            000000010000 
ST9	033071 035432 0   0   0            0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 423
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0702

*033071 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033071 033071 0   0   332000000000 0            0            
IT1	033071 0      0   0   332000000000 0            0            
AT3	033071 0      0   0   0            0            332000000000 
AT6	033071 0      0   0   0            0            332000000000 
FT0	033071 0      0   0   0            0            332000000000 
FT1A	033071 0      0   0   0            0            0            
FT9	033072 0      0   0   0            0            0            
ET0	033073 0      0   0   0            0            0            
ST1A	033073 0      0   0   0            0            0            
ST9	033073 0      0   0   0            0            0            


*033073 JUMPA	0,033074
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033073 033073 0   0   324000033074 0            000000033074 
IT1	033073 0      0   0   324000033074 0            000000033074 
AT3	033073 0      0   0   000000033074 0            324000033074 
AT6	033073 033074 0   0   000000033074 0            324000033074 
FT1A	033073 033074 0   0   000000033074 0            000000033074 
FT2	033073 033074 0   0   0            0            000000033074 
FT2RQ	033073 033074 0   0   0            0            000000033074 
FT3	033073 033074 0   0   0            0            000000033074 
FT9	033074 033074 0   0   0            0            000000033074 
ET0	033074 033074 0   0   0            0            000000033074 
ST1A	033074 033074 0   0   0            0            000000033074 
ST9	033074 033074 0   0   0            0            000000033074 


*033074 MOVE 	0,035433
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033074 033074 0   0   200000035433 0            000000020000 
IT1	033074 0      0   0   200000035433 0            000000020000 
AT3	033074 0      0   0   000000035433 0            200000035433 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 424
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0703

AT6	033074 035433 0   0   000000035433 0            200000035433 
FT0	033074 035433 0   0   000000020000 0            200000035433 
FT1A	033074 035433 0   0   000000020000 0            000000020000 
FT9	033075 035433 0   0   000000020000 0            000000020000 
ET0	033075 035433 0   0   000000020000 0            000000020000 
ST1	033075 035433 0   0   000000020000 0            000000020000 
ST2	033075 035433 0   0   000000020000 0            000000020000 
ST9	033075 035433 0   0   000000020000 0            000000020000 


*033075 SUB 	0,035433
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033075 033075 0   0   274000035433 0            000000020000 
IT1	033075 0      0   0   274000035433 0            000000020000 
AT3	033075 0      0   0   000000035433 0            274000035433 
AT6	033075 035433 0   0   000000035433 0            274000035433 
FT0	033075 035433 0   0   000000020000 0            274000035433 
FT1A	033075 035433 0   0   000000020000 0            000000020000 
FT2	033075 035433 0   0   0            0            000000020000 
FT2RQ	033075 035433 0   0   000000020000 0            000000020000 
FT3	033075 035433 0   0   000000020000 0            000000020000 
FT9	033076 035433 0   0   000000020000 0            000000020000 
ET0	033076 035433 0   0   0            0            000000020000 
ST1	033076 035433 0   0   0            0            000000020000 
ST2	033076 035433 0   0   0            0            000000020000 
ST9	033076 035433 0   0   0            0            000000020000 


*033076 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033076 033076 0   0   332000000000 0            0            
IT1	033076 0      0   0   332000000000 0            0            
AT3	033076 0      0   0   0            0            332000000000 
AT6	033076 0      0   0   0            0            332000000000 
FT0	033076 0      0   0   0            0            332000000000 
FT1A	033076 0      0   0   0            0            0            
FT9	033077 0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1A	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 425
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0704



*033100 JUMPA	0,033101
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000033101 0            000000033101 
IT1	0      0      0   0   324000033101 0            000000033101 
AT3	0      0      0   0   000000033101 0            324000033101 
AT6	0      033101 0   0   000000033101 0            324000033101 
FT1A	0      033101 0   0   000000033101 0            000000033101 
FT2	0      033101 0   0   0            0            000000033101 
FT2RQ	0      033101 0   0   0            0            000000033101 
FT3	0      033101 0   0   0            0            000000033101 
FT9	033101 033101 0   0   0            0            000000033101 
ET0	033101 033101 0   0   0            0            000000033101 
ST1A	033101 033101 0   0   0            0            000000033101 
ST9	033101 033101 0   0   0            0            000000033101 


*033101 MOVE 	0,035434
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033101 033101 0   0   200000035434 0            000000040000 
IT1	033101 0      0   0   200000035434 0            000000040000 
AT3	033101 0      0   0   000000035434 0            200000035434 
AT6	033101 035434 0   0   000000035434 0            200000035434 
FT0	033101 035434 0   0   000000040000 0            200000035434 
FT1A	033101 035434 0   0   000000040000 0            000000040000 
FT9	033102 035434 0   0   000000040000 0            000000040000 
ET0	033102 035434 0   0   000000040000 0            000000040000 
ST1	033102 035434 0   0   000000040000 0            000000040000 
ST2	033102 035434 0   0   000000040000 0            000000040000 
ST9	033102 035434 0   0   000000040000 0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 426
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0705

*033102 SUB 	0,035434
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033102 033102 0   0   274000035434 0            000000040000 
IT1	033102 0      0   0   274000035434 0            000000040000 
AT3	033102 0      0   0   000000035434 0            274000035434 
AT6	033102 035434 0   0   000000035434 0            274000035434 
FT0	033102 035434 0   0   000000040000 0            274000035434 
FT1A	033102 035434 0   0   000000040000 0            000000040000 
FT2	033102 035434 0   0   0            0            000000040000 
FT2RQ	033102 035434 0   0   000000040000 0            000000040000 
FT3	033102 035434 0   0   000000040000 0            000000040000 
FT9	033103 035434 0   0   000000040000 0            000000040000 
ET0	033103 035434 0   0   0            0            000000040000 
ST1	033103 035434 0   0   0            0            000000040000 
ST2	033103 035434 0   0   0            0            000000040000 
ST9	033103 035434 0   0   0            0            000000040000 


*033103 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033103 033103 0   0   332000000000 0            0            
IT1	033103 0      0   0   332000000000 0            0            
AT3	033103 0      0   0   0            0            332000000000 
AT6	033103 0      0   0   0            0            332000000000 
FT0	033103 0      0   0   0            0            332000000000 
FT1A	033103 0      0   0   0            0            0            
FT9	033104 0      0   0   0            0            0            
ET0	033105 0      0   0   0            0            0            
ST1A	033105 0      0   0   0            0            0            
ST9	033105 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 427
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0706

*033105 JUMPA	0,033106
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033105 033105 0   0   324000033106 0            000000033106 
IT1	033105 0      0   0   324000033106 0            000000033106 
AT3	033105 0      0   0   000000033106 0            324000033106 
AT6	033105 033106 0   0   000000033106 0            324000033106 
FT1A	033105 033106 0   0   000000033106 0            000000033106 
FT2	033105 033106 0   0   0            0            000000033106 
FT2RQ	033105 033106 0   0   0            0            000000033106 
FT3	033105 033106 0   0   0            0            000000033106 
FT9	033106 033106 0   0   0            0            000000033106 
ET0	033106 033106 0   0   0            0            000000033106 
ST1A	033106 033106 0   0   0            0            000000033106 
ST9	033106 033106 0   0   0            0            000000033106 


*033106 MOVE 	0,035435
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033106 033106 0   0   200000035435 0            000000100000 
IT1	033106 0      0   0   200000035435 0            000000100000 
AT3	033106 0      0   0   000000035435 0            200000035435 
AT6	033106 035435 0   0   000000035435 0            200000035435 
FT0	033106 035435 0   0   000000100000 0            200000035435 
FT1A	033106 035435 0   0   000000100000 0            000000100000 
FT9	033107 035435 0   0   000000100000 0            000000100000 
ET0	033107 035435 0   0   000000100000 0            000000100000 
ST1	033107 035435 0   0   000000100000 0            000000100000 
ST2	033107 035435 0   0   000000100000 0            000000100000 
ST9	033107 035435 0   0   000000100000 0            000000100000 


*033107 SUB 	0,035435
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033107 033107 0   0   274000035435 0            000000100000 
IT1	033107 0      0   0   274000035435 0            000000100000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 428
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0707

AT3	033107 0      0   0   000000035435 0            274000035435 
AT6	033107 035435 0   0   000000035435 0            274000035435 
FT0	033107 035435 0   0   000000100000 0            274000035435 
FT1A	033107 035435 0   0   000000100000 0            000000100000 
FT2	033107 035435 0   0   0            0            000000100000 
FT2RQ	033107 035435 0   0   000000100000 0            000000100000 
FT3	033107 035435 0   0   000000100000 0            000000100000 
FT9	033110 035435 0   0   000000100000 0            000000100000 
ET0	033110 035435 0   0   0            0            000000100000 
ST1	033110 035435 0   0   0            0            000000100000 
ST2	033110 035435 0   0   0            0            000000100000 
ST9	033110 035435 0   0   0            0            000000100000 


*033110 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033110 033110 0   0   332000000000 0            0            
IT1	033110 0      0   0   332000000000 0            0            
AT3	033110 0      0   0   0            0            332000000000 
AT6	033110 0      0   0   0            0            332000000000 
FT0	033110 0      0   0   0            0            332000000000 
FT1A	033110 0      0   0   0            0            0            
FT9	033111 0      0   0   0            0            0            
ET0	033112 0      0   0   0            0            0            
ST1A	033112 0      0   0   0            0            0            
ST9	033112 0      0   0   0            0            0            


*033112 JUMPA	0,033113
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033112 033112 0   0   324000033113 0            000000033113 
IT1	033112 0      0   0   324000033113 0            000000033113 
AT3	033112 0      0   0   000000033113 0            324000033113 
AT6	033112 033113 0   0   000000033113 0            324000033113 
FT1A	033112 033113 0   0   000000033113 0            000000033113 
FT2	033112 033113 0   0   0            0            000000033113 
FT2RQ	033112 033113 0   0   0            0            000000033113 
FT3	033112 033113 0   0   0            0            000000033113 
FT9	033113 033113 0   0   0            0            000000033113 
ET0	033113 033113 0   0   0            0            000000033113 
ST1A	033113 033113 0   0   0            0            000000033113 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 429
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0708

ST9	033113 033113 0   0   0            0            000000033113 


*033113 MOVE 	0,035436
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033113 033113 0   0   200000035436 0            000000200000 
IT1	033113 0      0   0   200000035436 0            000000200000 
AT3	033113 0      0   0   000000035436 0            200000035436 
AT6	033113 035436 0   0   000000035436 0            200000035436 
FT0	033113 035436 0   0   000000200000 0            200000035436 
FT1A	033113 035436 0   0   000000200000 0            000000200000 
FT9	033114 035436 0   0   000000200000 0            000000200000 
ET0	033114 035436 0   0   000000200000 0            000000200000 
ST1	033114 035436 0   0   000000200000 0            000000200000 
ST2	033114 035436 0   0   000000200000 0            000000200000 
ST9	033114 035436 0   0   000000200000 0            000000200000 


*033114 SUB 	0,035436
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033114 033114 0   0   274000035436 0            000000200000 
IT1	033114 0      0   0   274000035436 0            000000200000 
AT3	033114 0      0   0   000000035436 0            274000035436 
AT6	033114 035436 0   0   000000035436 0            274000035436 
FT0	033114 035436 0   0   000000200000 0            274000035436 
FT1A	033114 035436 0   0   000000200000 0            000000200000 
FT2	033114 035436 0   0   0            0            000000200000 
FT2RQ	033114 035436 0   0   000000200000 0            000000200000 
FT3	033114 035436 0   0   000000200000 0            000000200000 
FT9	033115 035436 0   0   000000200000 0            000000200000 
ET0	033115 035436 0   0   0            0            000000200000 
ST1	033115 035436 0   0   0            0            000000200000 
ST2	033115 035436 0   0   0            0            000000200000 
ST9	033115 035436 0   0   0            0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 430
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0709

*033115 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033115 033115 0   0   332000000000 0            0            
IT1	033115 0      0   0   332000000000 0            0            
AT3	033115 0      0   0   0            0            332000000000 
AT6	033115 0      0   0   0            0            332000000000 
FT0	033115 0      0   0   0            0            332000000000 
FT1A	033115 0      0   0   0            0            0            
FT9	033116 0      0   0   0            0            0            
ET0	033117 0      0   0   0            0            0            
ST1A	033117 0      0   0   0            0            0            
ST9	033117 0      0   0   0            0            0            


*033117 JUMPA	0,033120
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033117 033117 0   0   324000033120 0            000000033120 
IT1	033117 0      0   0   324000033120 0            000000033120 
AT3	033117 0      0   0   000000033120 0            324000033120 
AT6	033117 033120 0   0   000000033120 0            324000033120 
FT1A	033117 033120 0   0   000000033120 0            000000033120 
FT2	033117 033120 0   0   0            0            000000033120 
FT2RQ	033117 033120 0   0   0            0            000000033120 
FT3	033117 033120 0   0   0            0            000000033120 
FT9	033120 033120 0   0   0            0            000000033120 
ET0	033120 033120 0   0   0            0            000000033120 
ST1A	033120 033120 0   0   0            0            000000033120 
ST9	033120 033120 0   0   0            0            000000033120 


*033120 MOVE 	0,035437
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033120 033120 0   0   200000035437 0            000000400000 
IT1	033120 0      0   0   200000035437 0            000000400000 
AT3	033120 0      0   0   000000035437 0            200000035437 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 431
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0710

AT6	033120 035437 0   0   000000035437 0            200000035437 
FT0	033120 035437 0   0   000000400000 0            200000035437 
FT1A	033120 035437 0   0   000000400000 0            000000400000 
FT9	033121 035437 0   0   000000400000 0            000000400000 
ET0	033121 035437 0   0   000000400000 0            000000400000 
ST1	033121 035437 0   0   000000400000 0            000000400000 
ST2	033121 035437 0   0   000000400000 0            000000400000 
ST9	033121 035437 0   0   000000400000 0            000000400000 


*033121 SUB 	0,035437
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033121 033121 0   0   274000035437 0            000000400000 
IT1	033121 0      0   0   274000035437 0            000000400000 
AT3	033121 0      0   0   000000035437 0            274000035437 
AT6	033121 035437 0   0   000000035437 0            274000035437 
FT0	033121 035437 0   0   000000400000 0            274000035437 
FT1A	033121 035437 0   0   000000400000 0            000000400000 
FT2	033121 035437 0   0   0            0            000000400000 
FT2RQ	033121 035437 0   0   000000400000 0            000000400000 
FT3	033121 035437 0   0   000000400000 0            000000400000 
FT9	033122 035437 0   0   000000400000 0            000000400000 
ET0	033122 035437 0   0   0            0            000000400000 
ST1	033122 035437 0   0   0            0            000000400000 
ST2	033122 035437 0   0   0            0            000000400000 
ST9	033122 035437 0   0   0            0            000000400000 


*033122 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033122 033122 0   0   332000000000 0            0            
IT1	033122 0      0   0   332000000000 0            0            
AT3	033122 0      0   0   0            0            332000000000 
AT6	033122 0      0   0   0            0            332000000000 
FT0	033122 0      0   0   0            0            332000000000 
FT1A	033122 0      0   0   0            0            0            
FT9	033123 0      0   0   0            0            0            
ET0	033124 0      0   0   0            0            0            
ST1A	033124 0      0   0   0            0            0            
ST9	033124 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 432
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0711



*033124 JUMPA	0,033125
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033124 033124 0   0   324000033125 0            000000033125 
IT1	033124 0      0   0   324000033125 0            000000033125 
AT3	033124 0      0   0   000000033125 0            324000033125 
AT6	033124 033125 0   0   000000033125 0            324000033125 
FT1A	033124 033125 0   0   000000033125 0            000000033125 
FT2	033124 033125 0   0   0            0            000000033125 
FT2RQ	033124 033125 0   0   0            0            000000033125 
FT3	033124 033125 0   0   0            0            000000033125 
FT9	033125 033125 0   0   0            0            000000033125 
ET0	033125 033125 0   0   0            0            000000033125 
ST1A	033125 033125 0   0   0            0            000000033125 
ST9	033125 033125 0   0   0            0            000000033125 


*033125 MOVE 	0,035440
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033125 033125 0   0   200000035440 0            000001000000 
IT1	033125 0      0   0   200000035440 0            000001000000 
AT3	033125 0      0   0   000000035440 0            200000035440 
AT6	033125 035440 0   0   000000035440 0            200000035440 
FT0	033125 035440 0   0   000001000000 0            200000035440 
FT1A	033125 035440 0   0   000001000000 0            000001000000 
FT9	033126 035440 0   0   000001000000 0            000001000000 
ET0	033126 035440 0   0   000001000000 0            000001000000 
ST1	033126 035440 0   0   000001000000 0            000001000000 
ST2	033126 035440 0   0   000001000000 0            000001000000 
ST9	033126 035440 0   0   000001000000 0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 433
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0712

*033126 SUB 	0,035440
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033126 033126 0   0   274000035440 0            000001000000 
IT1	033126 0      0   0   274000035440 0            000001000000 
AT3	033126 0      0   0   000000035440 0            274000035440 
AT6	033126 035440 0   0   000000035440 0            274000035440 
FT0	033126 035440 0   0   000001000000 0            274000035440 
FT1A	033126 035440 0   0   000001000000 0            000001000000 
FT2	033126 035440 0   0   0            0            000001000000 
FT2RQ	033126 035440 0   0   000001000000 0            000001000000 
FT3	033126 035440 0   0   000001000000 0            000001000000 
FT9	033127 035440 0   0   000001000000 0            000001000000 
ET0	033127 035440 0   0   0            0            000001000000 
ST1	033127 035440 0   0   0            0            000001000000 
ST2	033127 035440 0   0   0            0            000001000000 
ST9	033127 035440 0   0   0            0            000001000000 


*033127 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033127 033127 0   0   332000000000 0            0            
IT1	033127 0      0   0   332000000000 0            0            
AT3	033127 0      0   0   0            0            332000000000 
AT6	033127 0      0   0   0            0            332000000000 
FT0	033127 0      0   0   0            0            332000000000 
FT1A	033127 0      0   0   0            0            0            
FT9	033130 0      0   0   0            0            0            
ET0	033131 0      0   0   0            0            0            
ST1A	033131 0      0   0   0            0            0            
ST9	033131 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 434
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0713

*033131 JUMPA	0,033132
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033131 033131 0   0   324000033132 0            000000033132 
IT1	033131 0      0   0   324000033132 0            000000033132 
AT3	033131 0      0   0   000000033132 0            324000033132 
AT6	033131 033132 0   0   000000033132 0            324000033132 
FT1A	033131 033132 0   0   000000033132 0            000000033132 
FT2	033131 033132 0   0   0            0            000000033132 
FT2RQ	033131 033132 0   0   0            0            000000033132 
FT3	033131 033132 0   0   0            0            000000033132 
FT9	033132 033132 0   0   0            0            000000033132 
ET0	033132 033132 0   0   0            0            000000033132 
ST1A	033132 033132 0   0   0            0            000000033132 
ST9	033132 033132 0   0   0            0            000000033132 


*033132 MOVE 	0,035441
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033132 033132 0   0   200000035441 0            000002000000 
IT1	033132 0      0   0   200000035441 0            000002000000 
AT3	033132 0      0   0   000000035441 0            200000035441 
AT6	033132 035441 0   0   000000035441 0            200000035441 
FT0	033132 035441 0   0   000002000000 0            200000035441 
FT1A	033132 035441 0   0   000002000000 0            000002000000 
FT9	033133 035441 0   0   000002000000 0            000002000000 
ET0	033133 035441 0   0   000002000000 0            000002000000 
ST1	033133 035441 0   0   000002000000 0            000002000000 
ST2	033133 035441 0   0   000002000000 0            000002000000 
ST9	033133 035441 0   0   000002000000 0            000002000000 


*033133 SUB 	0,035441
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033133 033133 0   0   274000035441 0            000002000000 
IT1	033133 0      0   0   274000035441 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 435
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0714

AT3	033133 0      0   0   000000035441 0            274000035441 
AT6	033133 035441 0   0   000000035441 0            274000035441 
FT0	033133 035441 0   0   000002000000 0            274000035441 
FT1A	033133 035441 0   0   000002000000 0            000002000000 
FT2	033133 035441 0   0   0            0            000002000000 
FT2RQ	033133 035441 0   0   000002000000 0            000002000000 
FT3	033133 035441 0   0   000002000000 0            000002000000 
FT9	033134 035441 0   0   000002000000 0            000002000000 
ET0	033134 035441 0   0   0            0            000002000000 
ST1	033134 035441 0   0   0            0            000002000000 
ST2	033134 035441 0   0   0            0            000002000000 
ST9	033134 035441 0   0   0            0            000002000000 


*033134 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033134 033134 0   0   332000000000 0            0            
IT1	033134 0      0   0   332000000000 0            0            
AT3	033134 0      0   0   0            0            332000000000 
AT6	033134 0      0   0   0            0            332000000000 
FT0	033134 0      0   0   0            0            332000000000 
FT1A	033134 0      0   0   0            0            0            
FT9	033135 0      0   0   0            0            0            
ET0	033136 0      0   0   0            0            0            
ST1A	033136 0      0   0   0            0            0            
ST9	033136 0      0   0   0            0            0            


*033136 JUMPA	0,033137
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033136 033136 0   0   324000033137 0            000000033137 
IT1	033136 0      0   0   324000033137 0            000000033137 
AT3	033136 0      0   0   000000033137 0            324000033137 
AT6	033136 033137 0   0   000000033137 0            324000033137 
FT1A	033136 033137 0   0   000000033137 0            000000033137 
FT2	033136 033137 0   0   0            0            000000033137 
FT2RQ	033136 033137 0   0   0            0            000000033137 
FT3	033136 033137 0   0   0            0            000000033137 
FT9	033137 033137 0   0   0            0            000000033137 
ET0	033137 033137 0   0   0            0            000000033137 
ST1A	033137 033137 0   0   0            0            000000033137 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 436
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0715

ST9	033137 033137 0   0   0            0            000000033137 


*033137 MOVE 	0,035442
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033137 033137 0   0   200000035442 0            000004000000 
IT1	033137 0      0   0   200000035442 0            000004000000 
AT3	033137 0      0   0   000000035442 0            200000035442 
AT6	033137 035442 0   0   000000035442 0            200000035442 
FT0	033137 035442 0   0   000004000000 0            200000035442 
FT1A	033137 035442 0   0   000004000000 0            000004000000 
FT9	033140 035442 0   0   000004000000 0            000004000000 
ET0	033140 035442 0   0   000004000000 0            000004000000 
ST1	033140 035442 0   0   000004000000 0            000004000000 
ST2	033140 035442 0   0   000004000000 0            000004000000 
ST9	033140 035442 0   0   000004000000 0            000004000000 


*033140 SUB 	0,035442
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033140 033140 0   0   274000035442 0            000004000000 
IT1	033140 0      0   0   274000035442 0            000004000000 
AT3	033140 0      0   0   000000035442 0            274000035442 
AT6	033140 035442 0   0   000000035442 0            274000035442 
FT0	033140 035442 0   0   000004000000 0            274000035442 
FT1A	033140 035442 0   0   000004000000 0            000004000000 
FT2	033140 035442 0   0   0            0            000004000000 
FT2RQ	033140 035442 0   0   000004000000 0            000004000000 
FT3	033140 035442 0   0   000004000000 0            000004000000 
FT9	033141 035442 0   0   000004000000 0            000004000000 
ET0	033141 035442 0   0   0            0            000004000000 
ST1	033141 035442 0   0   0            0            000004000000 
ST2	033141 035442 0   0   0            0            000004000000 
ST9	033141 035442 0   0   0            0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 437
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0716

*033141 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033141 033141 0   0   332000000000 0            0            
IT1	033141 0      0   0   332000000000 0            0            
AT3	033141 0      0   0   0            0            332000000000 
AT6	033141 0      0   0   0            0            332000000000 
FT0	033141 0      0   0   0            0            332000000000 
FT1A	033141 0      0   0   0            0            0            
FT9	033142 0      0   0   0            0            0            
ET0	033143 0      0   0   0            0            0            
ST1A	033143 0      0   0   0            0            0            
ST9	033143 0      0   0   0            0            0            


*033143 JUMPA	0,033144
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033143 033143 0   0   324000033144 0            000000033144 
IT1	033143 0      0   0   324000033144 0            000000033144 
AT3	033143 0      0   0   000000033144 0            324000033144 
AT6	033143 033144 0   0   000000033144 0            324000033144 
FT1A	033143 033144 0   0   000000033144 0            000000033144 
FT2	033143 033144 0   0   0            0            000000033144 
FT2RQ	033143 033144 0   0   0            0            000000033144 
FT3	033143 033144 0   0   0            0            000000033144 
FT9	033144 033144 0   0   0            0            000000033144 
ET0	033144 033144 0   0   0            0            000000033144 
ST1A	033144 033144 0   0   0            0            000000033144 
ST9	033144 033144 0   0   0            0            000000033144 


*033144 MOVE 	0,035443
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033144 033144 0   0   200000035443 0            000010000000 
IT1	033144 0      0   0   200000035443 0            000010000000 
AT3	033144 0      0   0   000000035443 0            200000035443 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 438
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0717

AT6	033144 035443 0   0   000000035443 0            200000035443 
FT0	033144 035443 0   0   000010000000 0            200000035443 
FT1A	033144 035443 0   0   000010000000 0            000010000000 
FT9	033145 035443 0   0   000010000000 0            000010000000 
ET0	033145 035443 0   0   000010000000 0            000010000000 
ST1	033145 035443 0   0   000010000000 0            000010000000 
ST2	033145 035443 0   0   000010000000 0            000010000000 
ST9	033145 035443 0   0   000010000000 0            000010000000 


*033145 SUB 	0,035443
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033145 033145 0   0   274000035443 0            000010000000 
IT1	033145 0      0   0   274000035443 0            000010000000 
AT3	033145 0      0   0   000000035443 0            274000035443 
AT6	033145 035443 0   0   000000035443 0            274000035443 
FT0	033145 035443 0   0   000010000000 0            274000035443 
FT1A	033145 035443 0   0   000010000000 0            000010000000 
FT2	033145 035443 0   0   0            0            000010000000 
FT2RQ	033145 035443 0   0   000010000000 0            000010000000 
FT3	033145 035443 0   0   000010000000 0            000010000000 
FT9	033146 035443 0   0   000010000000 0            000010000000 
ET0	033146 035443 0   0   0            0            000010000000 
ST1	033146 035443 0   0   0            0            000010000000 
ST2	033146 035443 0   0   0            0            000010000000 
ST9	033146 035443 0   0   0            0            000010000000 


*033146 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033146 033146 0   0   332000000000 0            0            
IT1	033146 0      0   0   332000000000 0            0            
AT3	033146 0      0   0   0            0            332000000000 
AT6	033146 0      0   0   0            0            332000000000 
FT0	033146 0      0   0   0            0            332000000000 
FT1A	033146 0      0   0   0            0            0            
FT9	033147 0      0   0   0            0            0            
ET0	033150 0      0   0   0            0            0            
ST1A	033150 0      0   0   0            0            0            
ST9	033150 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 439
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0718



*033150 JUMPA	0,033151
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033150 033150 0   0   324000033151 0            000000033151 
IT1	033150 0      0   0   324000033151 0            000000033151 
AT3	033150 0      0   0   000000033151 0            324000033151 
AT6	033150 033151 0   0   000000033151 0            324000033151 
FT1A	033150 033151 0   0   000000033151 0            000000033151 
FT2	033150 033151 0   0   0            0            000000033151 
FT2RQ	033150 033151 0   0   0            0            000000033151 
FT3	033150 033151 0   0   0            0            000000033151 
FT9	033151 033151 0   0   0            0            000000033151 
ET0	033151 033151 0   0   0            0            000000033151 
ST1A	033151 033151 0   0   0            0            000000033151 
ST9	033151 033151 0   0   0            0            000000033151 


*033151 MOVE 	0,035444
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033151 033151 0   0   200000035444 0            000020000000 
IT1	033151 0      0   0   200000035444 0            000020000000 
AT3	033151 0      0   0   000000035444 0            200000035444 
AT6	033151 035444 0   0   000000035444 0            200000035444 
FT0	033151 035444 0   0   000020000000 0            200000035444 
FT1A	033151 035444 0   0   000020000000 0            000020000000 
FT9	033152 035444 0   0   000020000000 0            000020000000 
ET0	033152 035444 0   0   000020000000 0            000020000000 
ST1	033152 035444 0   0   000020000000 0            000020000000 
ST2	033152 035444 0   0   000020000000 0            000020000000 
ST9	033152 035444 0   0   000020000000 0            000020000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 440
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0719

*033152 SUB 	0,035444
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033152 033152 0   0   274000035444 0            000020000000 
IT1	033152 0      0   0   274000035444 0            000020000000 
AT3	033152 0      0   0   000000035444 0            274000035444 
AT6	033152 035444 0   0   000000035444 0            274000035444 
FT0	033152 035444 0   0   000020000000 0            274000035444 
FT1A	033152 035444 0   0   000020000000 0            000020000000 
FT2	033152 035444 0   0   0            0            000020000000 
FT2RQ	033152 035444 0   0   000020000000 0            000020000000 
FT3	033152 035444 0   0   000020000000 0            000020000000 
FT9	033153 035444 0   0   000020000000 0            000020000000 
ET0	033153 035444 0   0   0            0            000020000000 
ST1	033153 035444 0   0   0            0            000020000000 
ST2	033153 035444 0   0   0            0            000020000000 
ST9	033153 035444 0   0   0            0            000020000000 


*033153 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033153 033153 0   0   332000000000 0            0            
IT1	033153 0      0   0   332000000000 0            0            
AT3	033153 0      0   0   0            0            332000000000 
AT6	033153 0      0   0   0            0            332000000000 
FT0	033153 0      0   0   0            0            332000000000 
FT1A	033153 0      0   0   0            0            0            
FT9	033154 0      0   0   0            0            0            
ET0	033155 0      0   0   0            0            0            
ST1A	033155 0      0   0   0            0            0            
ST9	033155 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 441
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0720

*033155 JUMPA	0,033156
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033155 033155 0   0   324000033156 0            000000033156 
IT1	033155 0      0   0   324000033156 0            000000033156 
AT3	033155 0      0   0   000000033156 0            324000033156 
AT6	033155 033156 0   0   000000033156 0            324000033156 
FT1A	033155 033156 0   0   000000033156 0            000000033156 
FT2	033155 033156 0   0   0            0            000000033156 
FT2RQ	033155 033156 0   0   0            0            000000033156 
FT3	033155 033156 0   0   0            0            000000033156 
FT9	033156 033156 0   0   0            0            000000033156 
ET0	033156 033156 0   0   0            0            000000033156 
ST1A	033156 033156 0   0   0            0            000000033156 
ST9	033156 033156 0   0   0            0            000000033156 


*033156 MOVE 	0,035445
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033156 033156 0   0   200000035445 0            000040000000 
IT1	033156 0      0   0   200000035445 0            000040000000 
AT3	033156 0      0   0   000000035445 0            200000035445 
AT6	033156 035445 0   0   000000035445 0            200000035445 
FT0	033156 035445 0   0   000040000000 0            200000035445 
FT1A	033156 035445 0   0   000040000000 0            000040000000 
FT9	033157 035445 0   0   000040000000 0            000040000000 
ET0	033157 035445 0   0   000040000000 0            000040000000 
ST1	033157 035445 0   0   000040000000 0            000040000000 
ST2	033157 035445 0   0   000040000000 0            000040000000 
ST9	033157 035445 0   0   000040000000 0            000040000000 


*033157 SUB 	0,035445
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033157 033157 0   0   274000035445 0            000040000000 
IT1	033157 0      0   0   274000035445 0            000040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 442
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0721

AT3	033157 0      0   0   000000035445 0            274000035445 
AT6	033157 035445 0   0   000000035445 0            274000035445 
FT0	033157 035445 0   0   000040000000 0            274000035445 
FT1A	033157 035445 0   0   000040000000 0            000040000000 
FT2	033157 035445 0   0   0            0            000040000000 
FT2RQ	033157 035445 0   0   000040000000 0            000040000000 
FT3	033157 035445 0   0   000040000000 0            000040000000 
FT9	033160 035445 0   0   000040000000 0            000040000000 
ET0	033160 035445 0   0   0            0            000040000000 
ST1	033160 035445 0   0   0            0            000040000000 
ST2	033160 035445 0   0   0            0            000040000000 
ST9	033160 035445 0   0   0            0            000040000000 


*033160 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033160 033160 0   0   332000000000 0            0            
IT1	033160 0      0   0   332000000000 0            0            
AT3	033160 0      0   0   0            0            332000000000 
AT6	033160 0      0   0   0            0            332000000000 
FT0	033160 0      0   0   0            0            332000000000 
FT1A	033160 0      0   0   0            0            0            
FT9	033161 0      0   0   0            0            0            
ET0	033162 0      0   0   0            0            0            
ST1A	033162 0      0   0   0            0            0            
ST9	033162 0      0   0   0            0            0            


*033162 JUMPA	0,033163
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033162 033162 0   0   324000033163 0            000000033163 
IT1	033162 0      0   0   324000033163 0            000000033163 
AT3	033162 0      0   0   000000033163 0            324000033163 
AT6	033162 033163 0   0   000000033163 0            324000033163 
FT1A	033162 033163 0   0   000000033163 0            000000033163 
FT2	033162 033163 0   0   0            0            000000033163 
FT2RQ	033162 033163 0   0   0            0            000000033163 
FT3	033162 033163 0   0   0            0            000000033163 
FT9	033163 033163 0   0   0            0            000000033163 
ET0	033163 033163 0   0   0            0            000000033163 
ST1A	033163 033163 0   0   0            0            000000033163 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 443
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0722

ST9	033163 033163 0   0   0            0            000000033163 


*033163 MOVE 	0,035446
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033163 033163 0   0   200000035446 0            000100000000 
IT1	033163 0      0   0   200000035446 0            000100000000 
AT3	033163 0      0   0   000000035446 0            200000035446 
AT6	033163 035446 0   0   000000035446 0            200000035446 
FT0	033163 035446 0   0   000100000000 0            200000035446 
FT1A	033163 035446 0   0   000100000000 0            000100000000 
FT9	033164 035446 0   0   000100000000 0            000100000000 
ET0	033164 035446 0   0   000100000000 0            000100000000 
ST1	033164 035446 0   0   000100000000 0            000100000000 
ST2	033164 035446 0   0   000100000000 0            000100000000 
ST9	033164 035446 0   0   000100000000 0            000100000000 


*033164 SUB 	0,035446
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033164 033164 0   0   274000035446 0            000100000000 
IT1	033164 0      0   0   274000035446 0            000100000000 
AT3	033164 0      0   0   000000035446 0            274000035446 
AT6	033164 035446 0   0   000000035446 0            274000035446 
FT0	033164 035446 0   0   000100000000 0            274000035446 
FT1A	033164 035446 0   0   000100000000 0            000100000000 
FT2	033164 035446 0   0   0            0            000100000000 
FT2RQ	033164 035446 0   0   000100000000 0            000100000000 
FT3	033164 035446 0   0   000100000000 0            000100000000 
FT9	033165 035446 0   0   000100000000 0            000100000000 
ET0	033165 035446 0   0   0            0            000100000000 
ST1	033165 035446 0   0   0            0            000100000000 
ST2	033165 035446 0   0   0            0            000100000000 
ST9	033165 035446 0   0   0            0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 444
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0723

*033165 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033165 033165 0   0   332000000000 0            0            
IT1	033165 0      0   0   332000000000 0            0            
AT3	033165 0      0   0   0            0            332000000000 
AT6	033165 0      0   0   0            0            332000000000 
FT0	033165 0      0   0   0            0            332000000000 
FT1A	033165 0      0   0   0            0            0            
FT9	033166 0      0   0   0            0            0            
ET0	033167 0      0   0   0            0            0            
ST1A	033167 0      0   0   0            0            0            
ST9	033167 0      0   0   0            0            0            


*033167 JUMPA	0,033170
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033167 033167 0   0   324000033170 0            000000033170 
IT1	033167 0      0   0   324000033170 0            000000033170 
AT3	033167 0      0   0   000000033170 0            324000033170 
AT6	033167 033170 0   0   000000033170 0            324000033170 
FT1A	033167 033170 0   0   000000033170 0            000000033170 
FT2	033167 033170 0   0   0            0            000000033170 
FT2RQ	033167 033170 0   0   0            0            000000033170 
FT3	033167 033170 0   0   0            0            000000033170 
FT9	033170 033170 0   0   0            0            000000033170 
ET0	033170 033170 0   0   0            0            000000033170 
ST1A	033170 033170 0   0   0            0            000000033170 
ST9	033170 033170 0   0   0            0            000000033170 


*033170 MOVE 	0,035447
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033170 033170 0   0   200000035447 0            000200000000 
IT1	033170 0      0   0   200000035447 0            000200000000 
AT3	033170 0      0   0   000000035447 0            200000035447 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 445
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0724

AT6	033170 035447 0   0   000000035447 0            200000035447 
FT0	033170 035447 0   0   000200000000 0            200000035447 
FT1A	033170 035447 0   0   000200000000 0            000200000000 
FT9	033171 035447 0   0   000200000000 0            000200000000 
ET0	033171 035447 0   0   000200000000 0            000200000000 
ST1	033171 035447 0   0   000200000000 0            000200000000 
ST2	033171 035447 0   0   000200000000 0            000200000000 
ST9	033171 035447 0   0   000200000000 0            000200000000 


*033171 SUB 	0,035447
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033171 033171 0   0   274000035447 0            000200000000 
IT1	033171 0      0   0   274000035447 0            000200000000 
AT3	033171 0      0   0   000000035447 0            274000035447 
AT6	033171 035447 0   0   000000035447 0            274000035447 
FT0	033171 035447 0   0   000200000000 0            274000035447 
FT1A	033171 035447 0   0   000200000000 0            000200000000 
FT2	033171 035447 0   0   0            0            000200000000 
FT2RQ	033171 035447 0   0   000200000000 0            000200000000 
FT3	033171 035447 0   0   000200000000 0            000200000000 
FT9	033172 035447 0   0   000200000000 0            000200000000 
ET0	033172 035447 0   0   0            0            000200000000 
ST1	033172 035447 0   0   0            0            000200000000 
ST2	033172 035447 0   0   0            0            000200000000 
ST9	033172 035447 0   0   0            0            000200000000 


*033172 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033172 033172 0   0   332000000000 0            0            
IT1	033172 0      0   0   332000000000 0            0            
AT3	033172 0      0   0   0            0            332000000000 
AT6	033172 0      0   0   0            0            332000000000 
FT0	033172 0      0   0   0            0            332000000000 
FT1A	033172 0      0   0   0            0            0            
FT9	033173 0      0   0   0            0            0            
ET0	033174 0      0   0   0            0            0            
ST1A	033174 0      0   0   0            0            0            
ST9	033174 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 446
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0725



*033174 JUMPA	0,033175
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033174 033174 0   0   324000033175 0            000000033175 
IT1	033174 0      0   0   324000033175 0            000000033175 
AT3	033174 0      0   0   000000033175 0            324000033175 
AT6	033174 033175 0   0   000000033175 0            324000033175 
FT1A	033174 033175 0   0   000000033175 0            000000033175 
FT2	033174 033175 0   0   0            0            000000033175 
FT2RQ	033174 033175 0   0   0            0            000000033175 
FT3	033174 033175 0   0   0            0            000000033175 
FT9	033175 033175 0   0   0            0            000000033175 
ET0	033175 033175 0   0   0            0            000000033175 
ST1A	033175 033175 0   0   0            0            000000033175 
ST9	033175 033175 0   0   0            0            000000033175 


*033175 MOVE 	0,035450
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033175 033175 0   0   200000035450 0            000400000000 
IT1	033175 0      0   0   200000035450 0            000400000000 
AT3	033175 0      0   0   000000035450 0            200000035450 
AT6	033175 035450 0   0   000000035450 0            200000035450 
FT0	033175 035450 0   0   000400000000 0            200000035450 
FT1A	033175 035450 0   0   000400000000 0            000400000000 
FT9	033176 035450 0   0   000400000000 0            000400000000 
ET0	033176 035450 0   0   000400000000 0            000400000000 
ST1	033176 035450 0   0   000400000000 0            000400000000 
ST2	033176 035450 0   0   000400000000 0            000400000000 
ST9	033176 035450 0   0   000400000000 0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 447
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0726

*033176 SUB 	0,035450
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033176 033176 0   0   274000035450 0            000400000000 
IT1	033176 0      0   0   274000035450 0            000400000000 
AT3	033176 0      0   0   000000035450 0            274000035450 
AT6	033176 035450 0   0   000000035450 0            274000035450 
FT0	033176 035450 0   0   000400000000 0            274000035450 
FT1A	033176 035450 0   0   000400000000 0            000400000000 
FT2	033176 035450 0   0   0            0            000400000000 
FT2RQ	033176 035450 0   0   000400000000 0            000400000000 
FT3	033176 035450 0   0   000400000000 0            000400000000 
FT9	033177 035450 0   0   000400000000 0            000400000000 
ET0	033177 035450 0   0   0            0            000400000000 
ST1	033177 035450 0   0   0            0            000400000000 
ST2	033177 035450 0   0   0            0            000400000000 
ST9	033177 035450 0   0   0            0            000400000000 


*033177 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033177 033177 0   0   332000000000 0            0            
IT1	033177 0      0   0   332000000000 0            0            
AT3	033177 0      0   0   0            0            332000000000 
AT6	033177 0      0   0   0            0            332000000000 
FT0	033177 0      0   0   0            0            332000000000 
FT1A	033177 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	033201 0      0   0   0            0            0            
ST1A	033201 0      0   0   0            0            0            
ST9	033201 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 448
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0727

*033201 JUMPA	0,033202
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033201 033201 0   0   324000033202 0            000000033202 
IT1	033201 0      0   0   324000033202 0            000000033202 
AT3	033201 0      0   0   000000033202 0            324000033202 
AT6	033201 033202 0   0   000000033202 0            324000033202 
FT1A	033201 033202 0   0   000000033202 0            000000033202 
FT2	033201 033202 0   0   0            0            000000033202 
FT2RQ	033201 033202 0   0   0            0            000000033202 
FT3	033201 033202 0   0   0            0            000000033202 
FT9	033202 033202 0   0   0            0            000000033202 
ET0	033202 033202 0   0   0            0            000000033202 
ST1A	033202 033202 0   0   0            0            000000033202 
ST9	033202 033202 0   0   0            0            000000033202 


*033202 MOVE 	0,035451
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033202 033202 0   0   200000035451 0            001000000000 
IT1	033202 0      0   0   200000035451 0            001000000000 
AT3	033202 0      0   0   000000035451 0            200000035451 
AT6	033202 035451 0   0   000000035451 0            200000035451 
FT0	033202 035451 0   0   001000000000 0            200000035451 
FT1A	033202 035451 0   0   001000000000 0            001000000000 
FT9	033203 035451 0   0   001000000000 0            001000000000 
ET0	033203 035451 0   0   001000000000 0            001000000000 
ST1	033203 035451 0   0   001000000000 0            001000000000 
ST2	033203 035451 0   0   001000000000 0            001000000000 
ST9	033203 035451 0   0   001000000000 0            001000000000 


*033203 SUB 	0,035451
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033203 033203 0   0   274000035451 0            001000000000 
IT1	033203 0      0   0   274000035451 0            001000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 449
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0728

AT3	033203 0      0   0   000000035451 0            274000035451 
AT6	033203 035451 0   0   000000035451 0            274000035451 
FT0	033203 035451 0   0   001000000000 0            274000035451 
FT1A	033203 035451 0   0   001000000000 0            001000000000 
FT2	033203 035451 0   0   0            0            001000000000 
FT2RQ	033203 035451 0   0   001000000000 0            001000000000 
FT3	033203 035451 0   0   001000000000 0            001000000000 
FT9	033204 035451 0   0   001000000000 0            001000000000 
ET0	033204 035451 0   0   0            0            001000000000 
ST1	033204 035451 0   0   0            0            001000000000 
ST2	033204 035451 0   0   0            0            001000000000 
ST9	033204 035451 0   0   0            0            001000000000 


*033204 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033204 033204 0   0   332000000000 0            0            
IT1	033204 0      0   0   332000000000 0            0            
AT3	033204 0      0   0   0            0            332000000000 
AT6	033204 0      0   0   0            0            332000000000 
FT0	033204 0      0   0   0            0            332000000000 
FT1A	033204 0      0   0   0            0            0            
FT9	033205 0      0   0   0            0            0            
ET0	033206 0      0   0   0            0            0            
ST1A	033206 0      0   0   0            0            0            
ST9	033206 0      0   0   0            0            0            


*033206 JUMPA	0,033207
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033206 033206 0   0   324000033207 0            000000033207 
IT1	033206 0      0   0   324000033207 0            000000033207 
AT3	033206 0      0   0   000000033207 0            324000033207 
AT6	033206 033207 0   0   000000033207 0            324000033207 
FT1A	033206 033207 0   0   000000033207 0            000000033207 
FT2	033206 033207 0   0   0            0            000000033207 
FT2RQ	033206 033207 0   0   0            0            000000033207 
FT3	033206 033207 0   0   0            0            000000033207 
FT9	033207 033207 0   0   0            0            000000033207 
ET0	033207 033207 0   0   0            0            000000033207 
ST1A	033207 033207 0   0   0            0            000000033207 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 450
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0729

ST9	033207 033207 0   0   0            0            000000033207 


*033207 MOVE 	0,035452
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033207 033207 0   0   200000035452 0            002000000000 
IT1	033207 0      0   0   200000035452 0            002000000000 
AT3	033207 0      0   0   000000035452 0            200000035452 
AT6	033207 035452 0   0   000000035452 0            200000035452 
FT0	033207 035452 0   0   002000000000 0            200000035452 
FT1A	033207 035452 0   0   002000000000 0            002000000000 
FT9	033210 035452 0   0   002000000000 0            002000000000 
ET0	033210 035452 0   0   002000000000 0            002000000000 
ST1	033210 035452 0   0   002000000000 0            002000000000 
ST2	033210 035452 0   0   002000000000 0            002000000000 
ST9	033210 035452 0   0   002000000000 0            002000000000 


*033210 SUB 	0,035452
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033210 033210 0   0   274000035452 0            002000000000 
IT1	033210 0      0   0   274000035452 0            002000000000 
AT3	033210 0      0   0   000000035452 0            274000035452 
AT6	033210 035452 0   0   000000035452 0            274000035452 
FT0	033210 035452 0   0   002000000000 0            274000035452 
FT1A	033210 035452 0   0   002000000000 0            002000000000 
FT2	033210 035452 0   0   0            0            002000000000 
FT2RQ	033210 035452 0   0   002000000000 0            002000000000 
FT3	033210 035452 0   0   002000000000 0            002000000000 
FT9	033211 035452 0   0   002000000000 0            002000000000 
ET0	033211 035452 0   0   0            0            002000000000 
ST1	033211 035452 0   0   0            0            002000000000 
ST2	033211 035452 0   0   0            0            002000000000 
ST9	033211 035452 0   0   0            0            002000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 451
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0730

*033211 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033211 033211 0   0   332000000000 0            0            
IT1	033211 0      0   0   332000000000 0            0            
AT3	033211 0      0   0   0            0            332000000000 
AT6	033211 0      0   0   0            0            332000000000 
FT0	033211 0      0   0   0            0            332000000000 
FT1A	033211 0      0   0   0            0            0            
FT9	033212 0      0   0   0            0            0            
ET0	033213 0      0   0   0            0            0            
ST1A	033213 0      0   0   0            0            0            
ST9	033213 0      0   0   0            0            0            


*033213 JUMPA	0,033214
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033213 033213 0   0   324000033214 0            000000033214 
IT1	033213 0      0   0   324000033214 0            000000033214 
AT3	033213 0      0   0   000000033214 0            324000033214 
AT6	033213 033214 0   0   000000033214 0            324000033214 
FT1A	033213 033214 0   0   000000033214 0            000000033214 
FT2	033213 033214 0   0   0            0            000000033214 
FT2RQ	033213 033214 0   0   0            0            000000033214 
FT3	033213 033214 0   0   0            0            000000033214 
FT9	033214 033214 0   0   0            0            000000033214 
ET0	033214 033214 0   0   0            0            000000033214 
ST1A	033214 033214 0   0   0            0            000000033214 
ST9	033214 033214 0   0   0            0            000000033214 


*033214 MOVE 	0,035453
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033214 033214 0   0   200000035453 0            004000000000 
IT1	033214 0      0   0   200000035453 0            004000000000 
AT3	033214 0      0   0   000000035453 0            200000035453 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 452
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0731

AT6	033214 035453 0   0   000000035453 0            200000035453 
FT0	033214 035453 0   0   004000000000 0            200000035453 
FT1A	033214 035453 0   0   004000000000 0            004000000000 
FT9	033215 035453 0   0   004000000000 0            004000000000 
ET0	033215 035453 0   0   004000000000 0            004000000000 
ST1	033215 035453 0   0   004000000000 0            004000000000 
ST2	033215 035453 0   0   004000000000 0            004000000000 
ST9	033215 035453 0   0   004000000000 0            004000000000 


*033215 SUB 	0,035453
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033215 033215 0   0   274000035453 0            004000000000 
IT1	033215 0      0   0   274000035453 0            004000000000 
AT3	033215 0      0   0   000000035453 0            274000035453 
AT6	033215 035453 0   0   000000035453 0            274000035453 
FT0	033215 035453 0   0   004000000000 0            274000035453 
FT1A	033215 035453 0   0   004000000000 0            004000000000 
FT2	033215 035453 0   0   0            0            004000000000 
FT2RQ	033215 035453 0   0   004000000000 0            004000000000 
FT3	033215 035453 0   0   004000000000 0            004000000000 
FT9	033216 035453 0   0   004000000000 0            004000000000 
ET0	033216 035453 0   0   0            0            004000000000 
ST1	033216 035453 0   0   0            0            004000000000 
ST2	033216 035453 0   0   0            0            004000000000 
ST9	033216 035453 0   0   0            0            004000000000 


*033216 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033216 033216 0   0   332000000000 0            0            
IT1	033216 0      0   0   332000000000 0            0            
AT3	033216 0      0   0   0            0            332000000000 
AT6	033216 0      0   0   0            0            332000000000 
FT0	033216 0      0   0   0            0            332000000000 
FT1A	033216 0      0   0   0            0            0            
FT9	033217 0      0   0   0            0            0            
ET0	033220 0      0   0   0            0            0            
ST1A	033220 0      0   0   0            0            0            
ST9	033220 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 453
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0732



*033220 JUMPA	0,033221
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033220 033220 0   0   324000033221 0            000000033221 
IT1	033220 0      0   0   324000033221 0            000000033221 
AT3	033220 0      0   0   000000033221 0            324000033221 
AT6	033220 033221 0   0   000000033221 0            324000033221 
FT1A	033220 033221 0   0   000000033221 0            000000033221 
FT2	033220 033221 0   0   0            0            000000033221 
FT2RQ	033220 033221 0   0   0            0            000000033221 
FT3	033220 033221 0   0   0            0            000000033221 
FT9	033221 033221 0   0   0            0            000000033221 
ET0	033221 033221 0   0   0            0            000000033221 
ST1A	033221 033221 0   0   0            0            000000033221 
ST9	033221 033221 0   0   0            0            000000033221 


*033221 MOVE 	0,035454
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033221 033221 0   0   200000035454 0            010000000000 
IT1	033221 0      0   0   200000035454 0            010000000000 
AT3	033221 0      0   0   000000035454 0            200000035454 
AT6	033221 035454 0   0   000000035454 0            200000035454 
FT0	033221 035454 0   0   010000000000 0            200000035454 
FT1A	033221 035454 0   0   010000000000 0            010000000000 
FT9	033222 035454 0   0   010000000000 0            010000000000 
ET0	033222 035454 0   0   010000000000 0            010000000000 
ST1	033222 035454 0   0   010000000000 0            010000000000 
ST2	033222 035454 0   0   010000000000 0            010000000000 
ST9	033222 035454 0   0   010000000000 0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 454
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0733

*033222 SUB 	0,035454
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033222 033222 0   0   274000035454 0            010000000000 
IT1	033222 0      0   0   274000035454 0            010000000000 
AT3	033222 0      0   0   000000035454 0            274000035454 
AT6	033222 035454 0   0   000000035454 0            274000035454 
FT0	033222 035454 0   0   010000000000 0            274000035454 
FT1A	033222 035454 0   0   010000000000 0            010000000000 
FT2	033222 035454 0   0   0            0            010000000000 
FT2RQ	033222 035454 0   0   010000000000 0            010000000000 
FT3	033222 035454 0   0   010000000000 0            010000000000 
FT9	033223 035454 0   0   010000000000 0            010000000000 
ET0	033223 035454 0   0   0            0            010000000000 
ST1	033223 035454 0   0   0            0            010000000000 
ST2	033223 035454 0   0   0            0            010000000000 
ST9	033223 035454 0   0   0            0            010000000000 


*033223 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033223 033223 0   0   332000000000 0            0            
IT1	033223 0      0   0   332000000000 0            0            
AT3	033223 0      0   0   0            0            332000000000 
AT6	033223 0      0   0   0            0            332000000000 
FT0	033223 0      0   0   0            0            332000000000 
FT1A	033223 0      0   0   0            0            0            
FT9	033224 0      0   0   0            0            0            
ET0	033225 0      0   0   0            0            0            
ST1A	033225 0      0   0   0            0            0            
ST9	033225 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 455
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0734

*033225 JUMPA	0,033226
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033225 033225 0   0   324000033226 0            000000033226 
IT1	033225 0      0   0   324000033226 0            000000033226 
AT3	033225 0      0   0   000000033226 0            324000033226 
AT6	033225 033226 0   0   000000033226 0            324000033226 
FT1A	033225 033226 0   0   000000033226 0            000000033226 
FT2	033225 033226 0   0   0            0            000000033226 
FT2RQ	033225 033226 0   0   0            0            000000033226 
FT3	033225 033226 0   0   0            0            000000033226 
FT9	033226 033226 0   0   0            0            000000033226 
ET0	033226 033226 0   0   0            0            000000033226 
ST1A	033226 033226 0   0   0            0            000000033226 
ST9	033226 033226 0   0   0            0            000000033226 


*033226 MOVE 	0,035455
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033226 033226 0   0   200000035455 0            020000000000 
IT1	033226 0      0   0   200000035455 0            020000000000 
AT3	033226 0      0   0   000000035455 0            200000035455 
AT6	033226 035455 0   0   000000035455 0            200000035455 
FT0	033226 035455 0   0   020000000000 0            200000035455 
FT1A	033226 035455 0   0   020000000000 0            020000000000 
FT9	033227 035455 0   0   020000000000 0            020000000000 
ET0	033227 035455 0   0   020000000000 0            020000000000 
ST1	033227 035455 0   0   020000000000 0            020000000000 
ST2	033227 035455 0   0   020000000000 0            020000000000 
ST9	033227 035455 0   0   020000000000 0            020000000000 


*033227 SUB 	0,035455
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033227 033227 0   0   274000035455 0            020000000000 
IT1	033227 0      0   0   274000035455 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 456
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0735

AT3	033227 0      0   0   000000035455 0            274000035455 
AT6	033227 035455 0   0   000000035455 0            274000035455 
FT0	033227 035455 0   0   020000000000 0            274000035455 
FT1A	033227 035455 0   0   020000000000 0            020000000000 
FT2	033227 035455 0   0   0            0            020000000000 
FT2RQ	033227 035455 0   0   020000000000 0            020000000000 
FT3	033227 035455 0   0   020000000000 0            020000000000 
FT9	033230 035455 0   0   020000000000 0            020000000000 
ET0	033230 035455 0   0   0            0            020000000000 
ST1	033230 035455 0   0   0            0            020000000000 
ST2	033230 035455 0   0   0            0            020000000000 
ST9	033230 035455 0   0   0            0            020000000000 


*033230 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033230 033230 0   0   332000000000 0            0            
IT1	033230 0      0   0   332000000000 0            0            
AT3	033230 0      0   0   0            0            332000000000 
AT6	033230 0      0   0   0            0            332000000000 
FT0	033230 0      0   0   0            0            332000000000 
FT1A	033230 0      0   0   0            0            0            
FT9	033231 0      0   0   0            0            0            
ET0	033232 0      0   0   0            0            0            
ST1A	033232 0      0   0   0            0            0            
ST9	033232 0      0   0   0            0            0            


*033232 JUMPA	0,033233
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033232 033232 0   0   324000033233 0            000000033233 
IT1	033232 0      0   0   324000033233 0            000000033233 
AT3	033232 0      0   0   000000033233 0            324000033233 
AT6	033232 033233 0   0   000000033233 0            324000033233 
FT1A	033232 033233 0   0   000000033233 0            000000033233 
FT2	033232 033233 0   0   0            0            000000033233 
FT2RQ	033232 033233 0   0   0            0            000000033233 
FT3	033232 033233 0   0   0            0            000000033233 
FT9	033233 033233 0   0   0            0            000000033233 
ET0	033233 033233 0   0   0            0            000000033233 
ST1A	033233 033233 0   0   0            0            000000033233 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 457
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0736

ST9	033233 033233 0   0   0            0            000000033233 


*033233 MOVE 	0,035456
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033233 033233 0   0   200000035456 0            040000000000 
IT1	033233 0      0   0   200000035456 0            040000000000 
AT3	033233 0      0   0   000000035456 0            200000035456 
AT6	033233 035456 0   0   000000035456 0            200000035456 
FT0	033233 035456 0   0   040000000000 0            200000035456 
FT1A	033233 035456 0   0   040000000000 0            040000000000 
FT9	033234 035456 0   0   040000000000 0            040000000000 
ET0	033234 035456 0   0   040000000000 0            040000000000 
ST1	033234 035456 0   0   040000000000 0            040000000000 
ST2	033234 035456 0   0   040000000000 0            040000000000 
ST9	033234 035456 0   0   040000000000 0            040000000000 


*033234 SUB 	0,035456
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033234 033234 0   0   274000035456 0            040000000000 
IT1	033234 0      0   0   274000035456 0            040000000000 
AT3	033234 0      0   0   000000035456 0            274000035456 
AT6	033234 035456 0   0   000000035456 0            274000035456 
FT0	033234 035456 0   0   040000000000 0            274000035456 
FT1A	033234 035456 0   0   040000000000 0            040000000000 
FT2	033234 035456 0   0   0            0            040000000000 
FT2RQ	033234 035456 0   0   040000000000 0            040000000000 
FT3	033234 035456 0   0   040000000000 0            040000000000 
FT9	033235 035456 0   0   040000000000 0            040000000000 
ET0	033235 035456 0   0   0            0            040000000000 
ST1	033235 035456 0   0   0            0            040000000000 
ST2	033235 035456 0   0   0            0            040000000000 
ST9	033235 035456 0   0   0            0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 458
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0737

*033235 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033235 033235 0   0   332000000000 0            0            
IT1	033235 0      0   0   332000000000 0            0            
AT3	033235 0      0   0   0            0            332000000000 
AT6	033235 0      0   0   0            0            332000000000 
FT0	033235 0      0   0   0            0            332000000000 
FT1A	033235 0      0   0   0            0            0            
FT9	033236 0      0   0   0            0            0            
ET0	033237 0      0   0   0            0            0            
ST1A	033237 0      0   0   0            0            0            
ST9	033237 0      0   0   0            0            0            


*033237 JUMPA	0,033240
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033237 033237 0   0   324000033240 0            000000033240 
IT1	033237 0      0   0   324000033240 0            000000033240 
AT3	033237 0      0   0   000000033240 0            324000033240 
AT6	033237 033240 0   0   000000033240 0            324000033240 
FT1A	033237 033240 0   0   000000033240 0            000000033240 
FT2	033237 033240 0   0   0            0            000000033240 
FT2RQ	033237 033240 0   0   0            0            000000033240 
FT3	033237 033240 0   0   0            0            000000033240 
FT9	033240 033240 0   0   0            0            000000033240 
ET0	033240 033240 0   0   0            0            000000033240 
ST1A	033240 033240 0   0   0            0            000000033240 
ST9	033240 033240 0   0   0            0            000000033240 


*033240 MOVE 	0,035457
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033240 033240 0   0   200000035457 0            100000000000 
IT1	033240 0      0   0   200000035457 0            100000000000 
AT3	033240 0      0   0   000000035457 0            200000035457 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 459
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0738

AT6	033240 035457 0   0   000000035457 0            200000035457 
FT0	033240 035457 0   0   100000000000 0            200000035457 
FT1A	033240 035457 0   0   100000000000 0            100000000000 
FT9	033241 035457 0   0   100000000000 0            100000000000 
ET0	033241 035457 0   0   100000000000 0            100000000000 
ST1	033241 035457 0   0   100000000000 0            100000000000 
ST2	033241 035457 0   0   100000000000 0            100000000000 
ST9	033241 035457 0   0   100000000000 0            100000000000 


*033241 SUB 	0,035457
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033241 033241 0   0   274000035457 0            100000000000 
IT1	033241 0      0   0   274000035457 0            100000000000 
AT3	033241 0      0   0   000000035457 0            274000035457 
AT6	033241 035457 0   0   000000035457 0            274000035457 
FT0	033241 035457 0   0   100000000000 0            274000035457 
FT1A	033241 035457 0   0   100000000000 0            100000000000 
FT2	033241 035457 0   0   0            0            100000000000 
FT2RQ	033241 035457 0   0   100000000000 0            100000000000 
FT3	033241 035457 0   0   100000000000 0            100000000000 
FT9	033242 035457 0   0   100000000000 0            100000000000 
ET0	033242 035457 0   0   0            0            100000000000 
ST1	033242 035457 0   0   0            0            100000000000 
ST2	033242 035457 0   0   0            0            100000000000 
ST9	033242 035457 0   0   0            0            100000000000 


*033242 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033242 033242 0   0   332000000000 0            0            
IT1	033242 0      0   0   332000000000 0            0            
AT3	033242 0      0   0   0            0            332000000000 
AT6	033242 0      0   0   0            0            332000000000 
FT0	033242 0      0   0   0            0            332000000000 
FT1A	033242 0      0   0   0            0            0            
FT9	033243 0      0   0   0            0            0            
ET0	033244 0      0   0   0            0            0            
ST1A	033244 0      0   0   0            0            0            
ST9	033244 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 460
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0739



*033244 JUMPA	0,033245
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033244 033244 0   0   324000033245 0            000000033245 
IT1	033244 0      0   0   324000033245 0            000000033245 
AT3	033244 0      0   0   000000033245 0            324000033245 
AT6	033244 033245 0   0   000000033245 0            324000033245 
FT1A	033244 033245 0   0   000000033245 0            000000033245 
FT2	033244 033245 0   0   0            0            000000033245 
FT2RQ	033244 033245 0   0   0            0            000000033245 
FT3	033244 033245 0   0   0            0            000000033245 
FT9	033245 033245 0   0   0            0            000000033245 
ET0	033245 033245 0   0   0            0            000000033245 
ST1A	033245 033245 0   0   0            0            000000033245 
ST9	033245 033245 0   0   0            0            000000033245 


*033245 MOVE 	0,035460
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033245 033245 0   0   200000035460 0            200000000000 
IT1	033245 0      0   0   200000035460 0            200000000000 
AT3	033245 0      0   0   000000035460 0            200000035460 
AT6	033245 035460 0   0   000000035460 0            200000035460 
FT0	033245 035460 0   0   200000000000 0            200000035460 
FT1A	033245 035460 0   0   200000000000 0            200000000000 
FT9	033246 035460 0   0   200000000000 0            200000000000 
ET0	033246 035460 0   0   200000000000 0            200000000000 
ST1	033246 035460 0   0   200000000000 0            200000000000 
ST2	033246 035460 0   0   200000000000 0            200000000000 
ST9	033246 035460 0   0   200000000000 0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 461
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0740

*033246 SUB 	0,035460
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033246 033246 0   0   274000035460 0            200000000000 
IT1	033246 0      0   0   274000035460 0            200000000000 
AT3	033246 0      0   0   000000035460 0            274000035460 
AT6	033246 035460 0   0   000000035460 0            274000035460 
FT0	033246 035460 0   0   200000000000 0            274000035460 
FT1A	033246 035460 0   0   200000000000 0            200000000000 
FT2	033246 035460 0   0   0            0            200000000000 
FT2RQ	033246 035460 0   0   200000000000 0            200000000000 
FT3	033246 035460 0   0   200000000000 0            200000000000 
FT9	033247 035460 0   0   200000000000 0            200000000000 
ET0	033247 035460 0   0   0            0            200000000000 
ST1	033247 035460 0   0   0            0            200000000000 
ST2	033247 035460 0   0   0            0            200000000000 
ST9	033247 035460 0   0   0            0            200000000000 


*033247 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033247 033247 0   0   332000000000 0            0            
IT1	033247 0      0   0   332000000000 0            0            
AT3	033247 0      0   0   0            0            332000000000 
AT6	033247 0      0   0   0            0            332000000000 
FT0	033247 0      0   0   0            0            332000000000 
FT1A	033247 0      0   0   0            0            0            
FT9	033250 0      0   0   0            0            0            
ET0	033251 0      0   0   0            0            0            
ST1A	033251 0      0   0   0            0            0            
ST9	033251 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 462
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0741

*033251 JUMPA	0,033252
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033251 033251 0   0   324000033252 0            000000033252 
IT1	033251 0      0   0   324000033252 0            000000033252 
AT3	033251 0      0   0   000000033252 0            324000033252 
AT6	033251 033252 0   0   000000033252 0            324000033252 
FT1A	033251 033252 0   0   000000033252 0            000000033252 
FT2	033251 033252 0   0   0            0            000000033252 
FT2RQ	033251 033252 0   0   0            0            000000033252 
FT3	033251 033252 0   0   0            0            000000033252 
FT9	033252 033252 0   0   0            0            000000033252 
ET0	033252 033252 0   0   0            0            000000033252 
ST1A	033252 033252 0   0   0            0            000000033252 
ST9	033252 033252 0   0   0            0            000000033252 


*033252 MOVE 	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033252 033252 0   0   200000035461 0            400000000000 
IT1	033252 0      0   0   200000035461 0            400000000000 
AT3	033252 0      0   0   000000035461 0            200000035461 
AT6	033252 035461 0   0   000000035461 0            200000035461 
FT0	033252 035461 0   0   400000000000 0            200000035461 
FT1A	033252 035461 0   0   400000000000 0            400000000000 
FT9	033253 035461 0   0   400000000000 0            400000000000 
ET0	033253 035461 0   0   400000000000 0            400000000000 
ST1	033253 035461 0   0   400000000000 0            400000000000 
ST2	033253 035461 0   0   400000000000 0            400000000000 
ST9	033253 035461 0   0   400000000000 0            400000000000 


*033253 SUB 	0,035461
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033253 033253 0   0   274000035461 0            400000000000 
IT1	033253 0      0   0   274000035461 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 463
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0742

AT3	033253 0      0   0   000000035461 0            274000035461 
AT6	033253 035461 0   0   000000035461 0            274000035461 
FT0	033253 035461 0   0   400000000000 0            274000035461 
FT1A	033253 035461 0   0   400000000000 0            400000000000 
FT2	033253 035461 0   0   0            0            400000000000 
FT2RQ	033253 035461 0   0   400000000000 0            400000000000 
FT3	033253 035461 0   0   400000000000 0            400000000000 
FT9	033254 035461 0   0   400000000000 0            400000000000 
ET0	033254 035461 0   0   0            0            400000000000 
ST1	033254 035461 0   0   0            0            400000000000 
ST2	033254 035461 0   0   0            0            400000000000 
ST9	033254 035461 0   0   0            0            400000000000 


*033254 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033254 033254 0   0   332000000000 0            0            
IT1	033254 0      0   0   332000000000 0            0            
AT3	033254 0      0   0   0            0            332000000000 
AT6	033254 0      0   0   0            0            332000000000 
FT0	033254 0      0   0   0            0            332000000000 
FT1A	033254 0      0   0   0            0            0            
FT9	033255 0      0   0   0            0            0            
ET0	033256 0      0   0   0            0            0            
ST1A	033256 0      0   0   0            0            0            
ST9	033256 0      0   0   0            0            0            


*033256 JUMPA	0,033257
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033256 033256 0   0   324000033257 0            000000033257 
IT1	033256 0      0   0   324000033257 0            000000033257 
AT3	033256 0      0   0   000000033257 0            324000033257 
AT6	033256 033257 0   0   000000033257 0            324000033257 
FT1A	033256 033257 0   0   000000033257 0            000000033257 
FT2	033256 033257 0   0   0            0            000000033257 
FT2RQ	033256 033257 0   0   0            0            000000033257 
FT3	033256 033257 0   0   0            0            000000033257 
FT9	033257 033257 0   0   0            0            000000033257 
ET0	033257 033257 0   0   0            0            000000033257 
ST1A	033257 033257 0   0   0            0            000000033257 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 464
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0743

ST9	033257 033257 0   0   0            0            000000033257 


*033257 MOVE 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033257 033257 0   0   200000035524 0            777777777777 
IT1	033257 0      0   0   200000035524 0            777777777777 
AT3	033257 0      0   0   000000035524 0            200000035524 
AT6	033257 035524 0   0   000000035524 0            200000035524 
FT0	033257 035524 0   0   777777777777 0            200000035524 
FT1A	033257 035524 0   0   777777777777 0            777777777777 
FT9	033260 035524 0   0   777777777777 0            777777777777 
ET0	033260 035524 0   0   777777777777 0            777777777777 
ST1	033260 035524 0   0   777777777777 0            777777777777 
ST2	033260 035524 0   0   777777777777 0            777777777777 
ST9	033260 035524 0   0   777777777777 0            777777777777 


*033260 SUB 	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033260 033260 0   0   274000035524 0            777777777777 
IT1	033260 0      0   0   274000035524 0            777777777777 
AT3	033260 0      0   0   000000035524 0            274000035524 
AT6	033260 035524 0   0   000000035524 0            274000035524 
FT0	033260 035524 0   0   777777777777 0            274000035524 
FT1A	033260 035524 0   0   777777777777 0            777777777777 
FT2	033260 035524 0   0   0            0            777777777777 
FT2RQ	033260 035524 0   0   777777777777 0            777777777777 
FT3	033260 035524 0   0   777777777777 0            777777777777 
FT9	033261 035524 0   0   777777777777 0            777777777777 
ET0	033261 035524 0   0   0            0            777777777777 
ST1	033261 035524 0   0   0            0            777777777777 
ST2	033261 035524 0   0   0            0            777777777777 
ST9	033261 035524 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 465
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0744

*033261 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033261 033261 0   0   332000000000 0            0            
IT1	033261 0      0   0   332000000000 0            0            
AT3	033261 0      0   0   0            0            332000000000 
AT6	033261 0      0   0   0            0            332000000000 
FT0	033261 0      0   0   0            0            332000000000 
FT1A	033261 0      0   0   0            0            0            
FT9	033262 0      0   0   0            0            0            
ET0	033263 0      0   0   0            0            0            
ST1A	033263 0      0   0   0            0            0            
ST9	033263 0      0   0   0            0            0            


*033263 JUMPA	0,033264
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033263 033263 0   0   324000033264 0            000000033264 
IT1	033263 0      0   0   324000033264 0            000000033264 
AT3	033263 0      0   0   000000033264 0            324000033264 
AT6	033263 033264 0   0   000000033264 0            324000033264 
FT1A	033263 033264 0   0   000000033264 0            000000033264 
FT2	033263 033264 0   0   0            0            000000033264 
FT2RQ	033263 033264 0   0   0            0            000000033264 
FT3	033263 033264 0   0   0            0            000000033264 
FT9	033264 033264 0   0   0            0            000000033264 
ET0	033264 033264 0   0   0            0            000000033264 
ST1A	033264 033264 0   0   0            0            000000033264 
ST9	033264 033264 0   0   0            0            000000033264 


*033264 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033264 033264 0   0   200000035412 0            0            
IT1	033264 0      0   0   200000035412 0            0            
AT3	033264 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 466
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0745

AT6	033264 035412 0   0   000000035412 0            200000035412 
FT0	033264 035412 0   0   0            0            200000035412 
FT1A	033264 035412 0   0   0            0            0            
FT9	033265 035412 0   0   0            0            0            
ET0	033265 035412 0   0   0            0            0            
ST1	033265 035412 0   0   0            0            0            
ST2	033265 035412 0   0   0            0            0            
ST9	033265 035412 0   0   0            0            0            


*033265 CAMA	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033265 033265 0   0   314000000000 0            0            
IT1	033265 0      0   0   314000000000 0            0            
AT3	033265 0      0   0   0            0            314000000000 
AT6	033265 0      0   0   0            0            314000000000 
FT0	033265 0      0   0   0            0            314000000000 
FT1A	033265 0      0   0   0            0            0            
FT2	033265 0      0   0   0            0            0            
FT2RQ	033265 0      0   0   0            0            0            
FT3	033265 0      0   0   0            0            0            
FT9	033266 0      0   0   0            0            0            
ET0	033267 0      0   0   0            0            0            
ST1A	033267 0      0   0   0            0            0            
ST9	033267 0      0   0   0            0            0            


*033267 JUMPA	0,033270
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033267 033267 0   0   324000033270 0            000000033270 
IT1	033267 0      0   0   324000033270 0            000000033270 
AT3	033267 0      0   0   000000033270 0            324000033270 
AT6	033267 033270 0   0   000000033270 0            324000033270 
FT1A	033267 033270 0   0   000000033270 0            000000033270 
FT2	033267 033270 0   0   0            0            000000033270 
FT2RQ	033267 033270 0   0   0            0            000000033270 
FT3	033267 033270 0   0   0            0            000000033270 
FT9	033270 033270 0   0   0            0            000000033270 
ET0	033270 033270 0   0   0            0            000000033270 
ST1A	033270 033270 0   0   0            0            000000033270 
ST9	033270 033270 0   0   0            0            000000033270 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 467
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0746



*033270 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033270 033270 0   0   200000035412 0            0            
IT1	033270 0      0   0   200000035412 0            0            
AT3	033270 0      0   0   000000035412 0            200000035412 
AT6	033270 035412 0   0   000000035412 0            200000035412 
FT0	033270 035412 0   0   0            0            200000035412 
FT1A	033270 035412 0   0   0            0            0            
FT9	033271 035412 0   0   0            0            0            
ET0	033271 035412 0   0   0            0            0            
ST1	033271 035412 0   0   0            0            0            
ST2	033271 035412 0   0   0            0            0            
ST9	033271 035412 0   0   0            0            0            


*033271 CAME	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033271 033271 0   0   312000000000 0            0            
IT1	033271 0      0   0   312000000000 0            0            
AT3	033271 0      0   0   0            0            312000000000 
AT6	033271 0      0   0   0            0            312000000000 
FT0	033271 0      0   0   0            0            312000000000 
FT1A	033271 0      0   0   0            0            0            
FT2	033271 0      0   0   0            0            0            
FT2RQ	033271 0      0   0   0            0            0            
FT3	033271 0      0   0   0            0            0            
FT9	033272 0      0   0   0            0            0            
ET0	033273 0      0   0   0            0            0            
ST1A	033273 0      0   0   0            0            0            
ST9	033273 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 468
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0747

*033273 JUMPA	0,033274
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033273 033273 0   0   324000033274 0            000000033274 
IT1	033273 0      0   0   324000033274 0            000000033274 
AT3	033273 0      0   0   000000033274 0            324000033274 
AT6	033273 033274 0   0   000000033274 0            324000033274 
FT1A	033273 033274 0   0   000000033274 0            000000033274 
FT2	033273 033274 0   0   0            0            000000033274 
FT2RQ	033273 033274 0   0   0            0            000000033274 
FT3	033273 033274 0   0   0            0            000000033274 
FT9	033274 033274 0   0   0            0            000000033274 
ET0	033274 033274 0   0   0            0            000000033274 
ST1A	033274 033274 0   0   0            0            000000033274 
ST9	033274 033274 0   0   0            0            000000033274 


*033274 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033274 033274 0   0   200000035412 0            0            
IT1	033274 0      0   0   200000035412 0            0            
AT3	033274 0      0   0   000000035412 0            200000035412 
AT6	033274 035412 0   0   000000035412 0            200000035412 
FT0	033274 035412 0   0   0            0            200000035412 
FT1A	033274 035412 0   0   0            0            0            
FT9	033275 035412 0   0   0            0            0            
ET0	033275 035412 0   0   0            0            0            
ST1	033275 035412 0   0   0            0            0            
ST2	033275 035412 0   0   0            0            0            
ST9	033275 035412 0   0   0            0            0            


*033275 CAME	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033275 033275 0   0   312000035412 0            0            
IT1	033275 0      0   0   312000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 469
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0748

AT3	033275 0      0   0   000000035412 0            312000035412 
AT6	033275 035412 0   0   000000035412 0            312000035412 
FT0	033275 035412 0   0   0            0            312000035412 
FT1A	033275 035412 0   0   0            0            0            
FT2	033275 035412 0   0   0            0            0            
FT2RQ	033275 035412 0   0   0            0            0            
FT3	033275 035412 0   0   0            0            0            
FT9	033276 035412 0   0   0            0            0            
ET0	033277 035412 0   0   0            0            0            
ST1A	033277 035412 0   0   0            0            0            
ST9	033277 035412 0   0   0            0            0            


*033277 JUMPA	0,033300
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033277 033277 0   0   324000033300 0            000000033300 
IT1	033277 0      0   0   324000033300 0            000000033300 
AT3	033277 0      0   0   000000033300 0            324000033300 
AT6	033277 0      0   0   000000033300 0            324000033300 
FT1A	033277 0      0   0   000000033300 0            000000033300 
FT2	033277 0      0   0   0            0            000000033300 
FT2RQ	033277 0      0   0   0            0            000000033300 
FT3	033277 0      0   0   0            0            000000033300 
FT9	0      0      0   0   0            0            000000033300 
ET0	0      0      0   0   0            0            000000033300 
ST1A	0      0      0   0   0            0            000000033300 
ST9	0      0      0   0   0            0            000000033300 


*033300 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035412 0            0            
IT1	0      0      0   0   200000035412 0            0            
AT3	0      0      0   0   000000035412 0            200000035412 
AT6	0      035412 0   0   000000035412 0            200000035412 
FT0	0      035412 0   0   0            0            200000035412 
FT1A	0      035412 0   0   0            0            0            
FT9	033301 035412 0   0   0            0            0            
ET0	033301 035412 0   0   0            0            0            
ST1	033301 035412 0   0   0            0            0            
ST2	033301 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 470
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0749

ST9	033301 035412 0   0   0            0            0            


*033301 CAME	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033301 033301 0   0   312000035524 0            777777777777 
IT1	033301 0      0   0   312000035524 0            777777777777 
AT3	033301 0      0   0   000000035524 0            312000035524 
AT6	033301 035524 0   0   000000035524 0            312000035524 
FT0	033301 035524 0   0   777777777777 0            312000035524 
FT1A	033301 035524 0   0   777777777777 0            777777777777 
FT2	033301 035524 0   0   0            0            777777777777 
FT2RQ	033301 035524 0   0   0            0            777777777777 
FT3	033301 035524 0   0   0            0            777777777777 
FT9	033302 035524 0   0   0            0            777777777777 
ET0	033302 035524 0   0   000000000001 0            777777777777 
ST1A	033302 035524 0   0   000000000001 0            777777777777 
ST9	033302 035524 0   0   000000000001 0            777777777777 


*033302 SKIPA	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033302 033302 0   0   334000000000 0            0            
IT1	033302 0      0   0   334000000000 0            0            
AT3	033302 0      0   0   0            0            334000000000 
AT6	033302 0      0   0   0            0            334000000000 
FT0	033302 0      0   0   0            0            334000000000 
FT1A	033302 0      0   0   0            0            0            
FT9	033303 0      0   0   0            0            0            
ET0	033304 0      0   0   0            0            0            
ST1A	033304 0      0   0   0            0            0            
ST9	033304 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 471
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0750

*033304 JUMPA	0,033305
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033304 033304 0   0   324000033305 0            000000033305 
IT1	033304 0      0   0   324000033305 0            000000033305 
AT3	033304 0      0   0   000000033305 0            324000033305 
AT6	033304 033305 0   0   000000033305 0            324000033305 
FT1A	033304 033305 0   0   000000033305 0            000000033305 
FT2	033304 033305 0   0   0            0            000000033305 
FT2RQ	033304 033305 0   0   0            0            000000033305 
FT3	033304 033305 0   0   0            0            000000033305 
FT9	033305 033305 0   0   0            0            000000033305 
ET0	033305 033305 0   0   0            0            000000033305 
ST1A	033305 033305 0   0   0            0            000000033305 
ST9	033305 033305 0   0   0            0            000000033305 


*033305 MOVE 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033305 033305 0   0   200000035524 0            777777777777 
IT1	033305 0      0   0   200000035524 0            777777777777 
AT3	033305 0      0   0   000000035524 0            200000035524 
AT6	033305 035524 0   0   000000035524 0            200000035524 
FT0	033305 035524 0   0   777777777777 0            200000035524 
FT1A	033305 035524 0   0   777777777777 0            777777777777 
FT9	033306 035524 0   0   777777777777 0            777777777777 
ET0	033306 035524 0   0   777777777777 0            777777777777 
ST1	033306 035524 0   0   777777777777 0            777777777777 
ST2	033306 035524 0   0   777777777777 0            777777777777 
ST9	033306 035524 0   0   777777777777 0            777777777777 


*033306 CAML	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033306 033306 0   0   311000035412 0            0            
IT1	033306 0      0   0   311000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 472
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0751

AT3	033306 0      0   0   000000035412 0            311000035412 
AT6	033306 035412 0   0   000000035412 0            311000035412 
FT0	033306 035412 0   0   0            0            311000035412 
FT1A	033306 035412 0   0   0            0            0            
FT2	033306 035412 0   0   0            0            0            
FT2RQ	033306 035412 0   0   777777777777 0            0            
FT3	033306 035412 0   0   777777777777 0            0            
FT9	033307 035412 0   0   777777777777 0            0            
ET0	033310 035412 0   0   777777777777 0            0            
ST1A	033310 035412 0   0   777777777777 0            0            
ST9	033310 035412 0   0   777777777777 0            0            


*033310 JUMPA	0,033311
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033310 033310 0   0   324000033311 0            000000033311 
IT1	033310 0      0   0   324000033311 0            000000033311 
AT3	033310 0      0   0   000000033311 0            324000033311 
AT6	033310 033311 0   0   000000033311 0            324000033311 
FT1A	033310 033311 0   0   000000033311 0            000000033311 
FT2	033310 033311 0   0   0            0            000000033311 
FT2RQ	033310 033311 0   0   777777777777 0            000000033311 
FT3	033310 033311 0   0   777777777777 0            000000033311 
FT9	033311 033311 0   0   777777777777 0            000000033311 
ET0	033311 033311 0   0   777777777777 0            000000033311 
ST1A	033311 033311 0   0   777777777777 0            000000033311 
ST9	033311 033311 0   0   777777777777 0            000000033311 


*033311 MOVE 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033311 033311 0   0   200000035412 0            0            
IT1	033311 0      0   0   200000035412 0            0            
AT3	033311 0      0   0   000000035412 0            200000035412 
AT6	033311 035412 0   0   000000035412 0            200000035412 
FT0	033311 035412 0   0   0            0            200000035412 
FT1A	033311 035412 0   0   0            0            0            
FT9	033312 035412 0   0   0            0            0            
ET0	033312 035412 0   0   0            0            0            
ST1	033312 035412 0   0   0            0            0            
ST2	033312 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 473
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0752

ST9	033312 035412 0   0   0            0            0            


*033312 CAML	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033312 033312 0   0   311000035524 0            777777777777 
IT1	033312 0      0   0   311000035524 0            777777777777 
AT3	033312 0      0   0   000000035524 0            311000035524 
AT6	033312 035524 0   0   000000035524 0            311000035524 
FT0	033312 035524 0   0   777777777777 0            311000035524 
FT1A	033312 035524 0   0   777777777777 0            777777777777 
FT2	033312 035524 0   0   0            0            777777777777 
FT2RQ	033312 035524 0   0   0            0            777777777777 
FT3	033312 035524 0   0   0            0            777777777777 
FT9	033313 035524 0   0   0            0            777777777777 
ET0	033313 035524 0   0   000000000001 0            777777777777 
ST1A	033313 035524 0   0   000000000001 0            777777777777 
ST9	033313 035524 0   0   000000000001 0            777777777777 


*033313 SKIPA	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033313 033313 0   0   334000000000 0            0            
IT1	033313 0      0   0   334000000000 0            0            
AT3	033313 0      0   0   0            0            334000000000 
AT6	033313 0      0   0   0            0            334000000000 
FT0	033313 0      0   0   0            0            334000000000 
FT1A	033313 0      0   0   0            0            0            
FT9	033314 0      0   0   0            0            0            
ET0	033315 0      0   0   0            0            0            
ST1A	033315 0      0   0   0            0            0            
ST9	033315 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 474
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0753

*033315 JUMPA	0,033316
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033315 033315 0   0   324000033316 0            000000033316 
IT1	033315 0      0   0   324000033316 0            000000033316 
AT3	033315 0      0   0   000000033316 0            324000033316 
AT6	033315 033316 0   0   000000033316 0            324000033316 
FT1A	033315 033316 0   0   000000033316 0            000000033316 
FT2	033315 033316 0   0   0            0            000000033316 
FT2RQ	033315 033316 0   0   0            0            000000033316 
FT3	033315 033316 0   0   0            0            000000033316 
FT9	033316 033316 0   0   0            0            000000033316 
ET0	033316 033316 0   0   0            0            000000033316 
ST1A	033316 033316 0   0   0            0            000000033316 
ST9	033316 033316 0   0   0            0            000000033316 


*033316 MOVE 	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033316 033316 0   0   200000035461 0            400000000000 
IT1	033316 0      0   0   200000035461 0            400000000000 
AT3	033316 0      0   0   000000035461 0            200000035461 
AT6	033316 035461 0   0   000000035461 0            200000035461 
FT0	033316 035461 0   0   400000000000 0            200000035461 
FT1A	033316 035461 0   0   400000000000 0            400000000000 
FT9	033317 035461 0   0   400000000000 0            400000000000 
ET0	033317 035461 0   0   400000000000 0            400000000000 
ST1	033317 035461 0   0   400000000000 0            400000000000 
ST2	033317 035461 0   0   400000000000 0            400000000000 
ST9	033317 035461 0   0   400000000000 0            400000000000 


*033317 CAML	0,035540
INITIAL
C(AC)=400000 000000 
C(E)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033317 033317 0   0   311000035540 0            377777777777 
IT1	033317 0      0   0   311000035540 0            377777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 475
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0754

AT3	033317 0      0   0   000000035540 0            311000035540 
AT6	033317 035540 0   0   000000035540 0            311000035540 
FT0	033317 035540 0   0   377777777777 0            311000035540 
FT1A	033317 035540 0   0   377777777777 0            377777777777 
FT2	033317 035540 0   0   0            0            377777777777 
FT2RQ	033317 035540 0   0   400000000000 0            377777777777 
FT3	033317 035540 0   0   400000000000 0            377777777777 
FT9	033320 035540 0   0   400000000000 0            377777777777 
ET0	033321 035540 0   0   000000000001 0            377777777777 
ST1A	033321 035540 0   0   000000000001 0            377777777777 
ST9	033321 035540 0   0   000000000001 0            377777777777 


*033321 JUMPA	0,033322
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033321 033321 0   0   324000033322 0            000000033322 
IT1	033321 0      0   0   324000033322 0            000000033322 
AT3	033321 0      0   0   000000033322 0            324000033322 
AT6	033321 033322 0   0   000000033322 0            324000033322 
FT1A	033321 033322 0   0   000000033322 0            000000033322 
FT2	033321 033322 0   0   0            0            000000033322 
FT2RQ	033321 033322 0   0   400000000000 0            000000033322 
FT3	033321 033322 0   0   400000000000 0            000000033322 
FT9	033322 033322 0   0   400000000000 0            000000033322 
ET0	033322 033322 0   0   400000000000 0            000000033322 
ST1A	033322 033322 0   0   400000000000 0            000000033322 
ST9	033322 033322 0   0   400000000000 0            000000033322 


*033322 MOVE 	0,035540
INITIAL
C(AC)=400000 000000 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033322 033322 0   0   200000035540 0            377777777777 
IT1	033322 0      0   0   200000035540 0            377777777777 
AT3	033322 0      0   0   000000035540 0            200000035540 
AT6	033322 035540 0   0   000000035540 0            200000035540 
FT0	033322 035540 0   0   377777777777 0            200000035540 
FT1A	033322 035540 0   0   377777777777 0            377777777777 
FT9	033323 035540 0   0   377777777777 0            377777777777 
ET0	033323 035540 0   0   377777777777 0            377777777777 
ST1	033323 035540 0   0   377777777777 0            377777777777 
ST2	033323 035540 0   0   377777777777 0            377777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 476
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0755

ST9	033323 035540 0   0   377777777777 0            377777777777 


*033323 CAML	0,035461
INITIAL
C(AC)=377777 777777 
C(E)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033323 033323 0   0   311000035461 0            400000000000 
IT1	033323 0      0   0   311000035461 0            400000000000 
AT3	033323 0      0   0   000000035461 0            311000035461 
AT6	033323 035461 0   0   000000035461 0            311000035461 
FT0	033323 035461 0   0   400000000000 0            311000035461 
FT1A	033323 035461 0   0   400000000000 0            400000000000 
FT2	033323 035461 0   0   0            0            400000000000 
FT2RQ	033323 035461 0   0   377777777777 0            400000000000 
FT3	033323 035461 0   0   377777777777 0            400000000000 
FT9	033324 035461 0   0   377777777777 0            400000000000 
ET0	033324 035461 0   0   777777777777 0            400000000000 
ST1A	033324 035461 0   0   777777777777 0            400000000000 
ST9	033324 035461 0   0   777777777777 0            400000000000 


*033324 SKIPA	0,000000
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033324 033324 0   0   334000000000 0            377777777777 
IT1	033324 0      0   0   334000000000 0            377777777777 
AT3	033324 0      0   0   0            0            334000000000 
AT6	033324 0      0   0   0            0            334000000000 
FT0	033324 0      0   0   377777777777 0            334000000000 
FT1A	033324 0      0   0   377777777777 0            377777777777 
FT9	033325 0      0   0   377777777777 0            377777777777 
ET0	033326 0      0   0   377777777777 0            377777777777 
ST1A	033326 0      0   0   377777777777 0            377777777777 
ST9	033326 0      0   0   377777777777 0            377777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 477
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0756

*033326 JUMPA	0,033327
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033326 033326 0   0   324000033327 0            000000033327 
IT1	033326 0      0   0   324000033327 0            000000033327 
AT3	033326 0      0   0   000000033327 0            324000033327 
AT6	033326 033327 0   0   000000033327 0            324000033327 
FT1A	033326 033327 0   0   000000033327 0            000000033327 
FT2	033326 033327 0   0   0            0            000000033327 
FT2RQ	033326 033327 0   0   377777777777 0            000000033327 
FT3	033326 033327 0   0   377777777777 0            000000033327 
FT9	033327 033327 0   0   377777777777 0            000000033327 
ET0	033327 033327 0   0   377777777777 0            000000033327 
ST1A	033327 033327 0   0   377777777777 0            000000033327 
ST9	033327 033327 0   0   377777777777 0            000000033327 


*033327 MOVE 	0,035461
INITIAL
C(AC)=377777 777777 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033327 033327 0   0   200000035461 0            400000000000 
IT1	033327 0      0   0   200000035461 0            400000000000 
AT3	033327 0      0   0   000000035461 0            200000035461 
AT6	033327 035461 0   0   000000035461 0            200000035461 
FT0	033327 035461 0   0   400000000000 0            200000035461 
FT1A	033327 035461 0   0   400000000000 0            400000000000 
FT9	033330 035461 0   0   400000000000 0            400000000000 
ET0	033330 035461 0   0   400000000000 0            400000000000 
ST1	033330 035461 0   0   400000000000 0            400000000000 
ST2	033330 035461 0   0   400000000000 0            400000000000 
ST9	033330 035461 0   0   400000000000 0            400000000000 


*033330 CAML	0,035524
INITIAL
C(AC)=400000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033330 033330 0   0   311000035524 0            777777777777 
IT1	033330 0      0   0   311000035524 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 478
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0757

AT3	033330 0      0   0   000000035524 0            311000035524 
AT6	033330 035524 0   0   000000035524 0            311000035524 
FT0	033330 035524 0   0   777777777777 0            311000035524 
FT1A	033330 035524 0   0   777777777777 0            777777777777 
FT2	033330 035524 0   0   0            0            777777777777 
FT2RQ	033330 035524 0   0   400000000000 0            777777777777 
FT3	033330 035524 0   0   400000000000 0            777777777777 
FT9	033331 035524 0   0   400000000000 0            777777777777 
ET0	033332 035524 0   0   400000000001 0            777777777777 
ST1A	033332 035524 0   0   400000000001 0            777777777777 
ST9	033332 035524 0   0   400000000001 0            777777777777 


*033332 JUMPA	0,033333
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033332 033332 0   0   324000033333 0            000000033333 
IT1	033332 0      0   0   324000033333 0            000000033333 
AT3	033332 0      0   0   000000033333 0            324000033333 
AT6	033332 033333 0   0   000000033333 0            324000033333 
FT1A	033332 033333 0   0   000000033333 0            000000033333 
FT2	033332 033333 0   0   0            0            000000033333 
FT2RQ	033332 033333 0   0   400000000000 0            000000033333 
FT3	033332 033333 0   0   400000000000 0            000000033333 
FT9	033333 033333 0   0   400000000000 0            000000033333 
ET0	033333 033333 0   0   400000000000 0            000000033333 
ST1A	033333 033333 0   0   400000000000 0            000000033333 
ST9	033333 033333 0   0   400000000000 0            000000033333 


*033333 SETZ 	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033333 033333 0   0   400000000000 0            0            
IT1	033333 0      0   0   400000000000 0            0            
AT3	033333 0      0   0   0            0            400000000000 
AT6	033333 0      0   0   0            0            400000000000 
FT1A	033333 0      0   0   0            0            0            
FT9	033334 0      0   0   0            0            0            
ET0	033334 0      0   0   0            0            0            
ST1	033334 0      0   0   0            0            0            
ST2	033334 0      0   0   0            0            0            
ST9	033334 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 479
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0758



*033334 CAML	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033334 033334 0   0   311000035524 0            777777777777 
IT1	033334 0      0   0   311000035524 0            777777777777 
AT3	033334 0      0   0   000000035524 0            311000035524 
AT6	033334 035524 0   0   000000035524 0            311000035524 
FT0	033334 035524 0   0   777777777777 0            311000035524 
FT1A	033334 035524 0   0   777777777777 0            777777777777 
FT2	033334 035524 0   0   0            0            777777777777 
FT2RQ	033334 035524 0   0   0            0            777777777777 
FT3	033334 035524 0   0   0            0            777777777777 
FT9	033335 035524 0   0   0            0            777777777777 
ET0	033335 035524 0   0   000000000001 0            777777777777 
ST1A	033335 035524 0   0   000000000001 0            777777777777 
ST9	033335 035524 0   0   000000000001 0            777777777777 


*033335 SKIPA	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033335 033335 0   0   334000000000 0            0            
IT1	033335 0      0   0   334000000000 0            0            
AT3	033335 0      0   0   0            0            334000000000 
AT6	033335 0      0   0   0            0            334000000000 
FT0	033335 0      0   0   0            0            334000000000 
FT1A	033335 0      0   0   0            0            0            
FT9	033336 0      0   0   0            0            0            
ET0	033337 0      0   0   0            0            0            
ST1A	033337 0      0   0   0            0            0            
ST9	033337 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 480
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0759

*033337 JUMPA	0,033340
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033337 033337 0   0   324000033340 0            000000033340 
IT1	033337 0      0   0   324000033340 0            000000033340 
AT3	033337 0      0   0   000000033340 0            324000033340 
AT6	033337 033340 0   0   000000033340 0            324000033340 
FT1A	033337 033340 0   0   000000033340 0            000000033340 
FT2	033337 033340 0   0   0            0            000000033340 
FT2RQ	033337 033340 0   0   0            0            000000033340 
FT3	033337 033340 0   0   0            0            000000033340 
FT9	033340 033340 0   0   0            0            000000033340 
ET0	033340 033340 0   0   0            0            000000033340 
ST1A	033340 033340 0   0   0            0            000000033340 
ST9	033340 033340 0   0   0            0            000000033340 


*033340 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033340 033340 0   0   400000000000 0            0            
IT1	033340 0      0   0   400000000000 0            0            
AT3	033340 0      0   0   0            0            400000000000 
AT6	033340 0      0   0   0            0            400000000000 
FT1A	033340 0      0   0   0            0            0            
FT9	033341 0      0   0   0            0            0            
ET0	033341 0      0   0   0            0            0            
ST1	033341 0      0   0   0            0            0            
ST2	033341 0      0   0   0            0            0            
ST9	033341 0      0   0   0            0            0            


*033341 CAML	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033341 033341 0   0   311000035412 0            0            
IT1	033341 0      0   0   311000035412 0            0            
AT3	033341 0      0   0   000000035412 0            311000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 481
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0760

AT6	033341 035412 0   0   000000035412 0            311000035412 
FT0	033341 035412 0   0   0            0            311000035412 
FT1A	033341 035412 0   0   0            0            0            
FT2	033341 035412 0   0   0            0            0            
FT2RQ	033341 035412 0   0   0            0            0            
FT3	033341 035412 0   0   0            0            0            
FT9	033342 035412 0   0   0            0            0            
ET0	033342 035412 0   0   0            0            0            
ST1A	033342 035412 0   0   0            0            0            
ST9	033342 035412 0   0   0            0            0            


*033342 SKIPA	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033342 033342 0   0   334000000000 0            0            
IT1	033342 0      0   0   334000000000 0            0            
AT3	033342 0      0   0   0            0            334000000000 
AT6	033342 0      0   0   0            0            334000000000 
FT0	033342 0      0   0   0            0            334000000000 
FT1A	033342 0      0   0   0            0            0            
FT9	033343 0      0   0   0            0            0            
ET0	033344 0      0   0   0            0            0            
ST1A	033344 0      0   0   0            0            0            
ST9	033344 0      0   0   0            0            0            


*033344 JUMPA	0,033345
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033344 033344 0   0   324000033345 0            000000033345 
IT1	033344 0      0   0   324000033345 0            000000033345 
AT3	033344 0      0   0   000000033345 0            324000033345 
AT6	033344 033345 0   0   000000033345 0            324000033345 
FT1A	033344 033345 0   0   000000033345 0            000000033345 
FT2	033344 033345 0   0   0            0            000000033345 
FT2RQ	033344 033345 0   0   0            0            000000033345 
FT3	033344 033345 0   0   0            0            000000033345 
FT9	033345 033345 0   0   0            0            000000033345 
ET0	033345 033345 0   0   0            0            000000033345 
ST1A	033345 033345 0   0   0            0            000000033345 
ST9	033345 033345 0   0   0            0            000000033345 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 482
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0761


*033345 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033345 033345 0   0   400000000000 0            0            
IT1	033345 0      0   0   400000000000 0            0            
AT3	033345 0      0   0   0            0            400000000000 
AT6	033345 0      0   0   0            0            400000000000 
FT1A	033345 0      0   0   0            0            0            
FT9	033346 0      0   0   0            0            0            
ET0	033346 0      0   0   0            0            0            
ST1	033346 0      0   0   0            0            0            
ST2	033346 0      0   0   0            0            0            
ST9	033346 0      0   0   0            0            0            


*033346 CAML	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033346 033346 0   0   311000035461 0            400000000000 
IT1	033346 0      0   0   311000035461 0            400000000000 
AT3	033346 0      0   0   000000035461 0            311000035461 
AT6	033346 035461 0   0   000000035461 0            311000035461 
FT0	033346 035461 0   0   400000000000 0            311000035461 
FT1A	033346 035461 0   0   400000000000 0            400000000000 
FT2	033346 035461 0   0   0            0            400000000000 
FT2RQ	033346 035461 0   0   0            0            400000000000 
FT3	033346 035461 0   0   0            0            400000000000 
FT9	033347 035461 0   0   0            0            400000000000 
ET0	033347 035461 0   0   400000000000 0            400000000000 
ST1A	033347 035461 0   0   400000000000 0            400000000000 
ST9	033347 035461 0   0   400000000000 0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 483
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0762

*033347 SKIPA	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033347 033347 0   0   334000000000 0            0            
IT1	033347 0      0   0   334000000000 0            0            
AT3	033347 0      0   0   0            0            334000000000 
AT6	033347 0      0   0   0            0            334000000000 
FT0	033347 0      0   0   0            0            334000000000 
FT1A	033347 0      0   0   0            0            0            
FT9	033350 0      0   0   0            0            0            
ET0	033351 0      0   0   0            0            0            
ST1A	033351 0      0   0   0            0            0            
ST9	033351 0      0   0   0            0            0            


*033351 JUMPA	0,033352
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033351 033351 0   0   324000033352 0            000000033352 
IT1	033351 0      0   0   324000033352 0            000000033352 
AT3	033351 0      0   0   000000033352 0            324000033352 
AT6	033351 033352 0   0   000000033352 0            324000033352 
FT1A	033351 033352 0   0   000000033352 0            000000033352 
FT2	033351 033352 0   0   0            0            000000033352 
FT2RQ	033351 033352 0   0   0            0            000000033352 
FT3	033351 033352 0   0   0            0            000000033352 
FT9	033352 033352 0   0   0            0            000000033352 
ET0	033352 033352 0   0   0            0            000000033352 
ST1A	033352 033352 0   0   0            0            000000033352 
ST9	033352 033352 0   0   0            0            000000033352 


*033352 MOVE 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033352 033352 0   0   200000035524 0            777777777777 
IT1	033352 0      0   0   200000035524 0            777777777777 
AT3	033352 0      0   0   000000035524 0            200000035524 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 484
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0763

AT6	033352 035524 0   0   000000035524 0            200000035524 
FT0	033352 035524 0   0   777777777777 0            200000035524 
FT1A	033352 035524 0   0   777777777777 0            777777777777 
FT9	033353 035524 0   0   777777777777 0            777777777777 
ET0	033353 035524 0   0   777777777777 0            777777777777 
ST1	033353 035524 0   0   777777777777 0            777777777777 
ST2	033353 035524 0   0   777777777777 0            777777777777 
ST9	033353 035524 0   0   777777777777 0            777777777777 


*033353 CAM 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033353 033353 0   0   310000035412 0            0            
IT1	033353 0      0   0   310000035412 0            0            
AT3	033353 0      0   0   000000035412 0            310000035412 
AT6	033353 035412 0   0   000000035412 0            310000035412 
FT0	033353 035412 0   0   0            0            310000035412 
FT1A	033353 035412 0   0   0            0            0            
FT2	033353 035412 0   0   0            0            0            
FT2RQ	033353 035412 0   0   777777777777 0            0            
FT3	033353 035412 0   0   777777777777 0            0            
FT9	033354 035412 0   0   777777777777 0            0            
ET0	033354 035412 0   0   777777777777 0            0            
ST1A	033354 035412 0   0   777777777777 0            0            
ST9	033354 035412 0   0   777777777777 0            0            


*033354 SKIPA	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033354 033354 0   0   334000000000 0            777777777777 
IT1	033354 0      0   0   334000000000 0            777777777777 
AT3	033354 0      0   0   0            0            334000000000 
AT6	033354 0      0   0   0            0            334000000000 
FT0	033354 0      0   0   777777777777 0            334000000000 
FT1A	033354 0      0   0   777777777777 0            777777777777 
FT9	033355 0      0   0   777777777777 0            777777777777 
ET0	033356 0      0   0   777777777777 0            777777777777 
ST1A	033356 0      0   0   777777777777 0            777777777777 
ST9	033356 0      0   0   777777777777 0            777777777777 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 485
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0764


*033356 JUMPA	0,033357
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033356 033356 0   0   324000033357 0            000000033357 
IT1	033356 0      0   0   324000033357 0            000000033357 
AT3	033356 0      0   0   000000033357 0            324000033357 
AT6	033356 033357 0   0   000000033357 0            324000033357 
FT1A	033356 033357 0   0   000000033357 0            000000033357 
FT2	033356 033357 0   0   0            0            000000033357 
FT2RQ	033356 033357 0   0   777777777777 0            000000033357 
FT3	033356 033357 0   0   777777777777 0            000000033357 
FT9	033357 033357 0   0   777777777777 0            000000033357 
ET0	033357 033357 0   0   777777777777 0            000000033357 
ST1A	033357 033357 0   0   777777777777 0            000000033357 
ST9	033357 033357 0   0   777777777777 0            000000033357 


*033357 MOVE 	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033357 033357 0   0   200000035524 0            777777777777 
IT1	033357 0      0   0   200000035524 0            777777777777 
AT3	033357 0      0   0   000000035524 0            200000035524 
AT6	033357 035524 0   0   000000035524 0            200000035524 
FT0	033357 035524 0   0   777777777777 0            200000035524 
FT1A	033357 035524 0   0   777777777777 0            777777777777 
FT9	033360 035524 0   0   777777777777 0            777777777777 
ET0	033360 035524 0   0   777777777777 0            777777777777 
ST1	033360 035524 0   0   777777777777 0            777777777777 
ST2	033360 035524 0   0   777777777777 0            777777777777 
ST9	033360 035524 0   0   777777777777 0            777777777777 


*033360 CAMGE	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033360 033360 0   0   315000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 486
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0765

IT1	033360 0      0   0   315000035412 0            0            
AT3	033360 0      0   0   000000035412 0            315000035412 
AT6	033360 035412 0   0   000000035412 0            315000035412 
FT0	033360 035412 0   0   0            0            315000035412 
FT1A	033360 035412 0   0   0            0            0            
FT2	033360 035412 0   0   0            0            0            
FT2RQ	033360 035412 0   0   777777777777 0            0            
FT3	033360 035412 0   0   777777777777 0            0            
FT9	033361 035412 0   0   777777777777 0            0            
ET0	033361 035412 0   0   777777777777 0            0            
ST1A	033361 035412 0   0   777777777777 0            0            
ST9	033361 035412 0   0   777777777777 0            0            


*033361 SKIPA	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033361 033361 0   0   334000000000 0            777777777777 
IT1	033361 0      0   0   334000000000 0            777777777777 
AT3	033361 0      0   0   0            0            334000000000 
AT6	033361 0      0   0   0            0            334000000000 
FT0	033361 0      0   0   777777777777 0            334000000000 
FT1A	033361 0      0   0   777777777777 0            777777777777 
FT9	033362 0      0   0   777777777777 0            777777777777 
ET0	033363 0      0   0   777777777777 0            777777777777 
ST1A	033363 0      0   0   777777777777 0            777777777777 
ST9	033363 0      0   0   777777777777 0            777777777777 


*033363 JUMPA	0,033364
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033363 033363 0   0   324000033364 0            000000033364 
IT1	033363 0      0   0   324000033364 0            000000033364 
AT3	033363 0      0   0   000000033364 0            324000033364 
AT6	033363 033364 0   0   000000033364 0            324000033364 
FT1A	033363 033364 0   0   000000033364 0            000000033364 
FT2	033363 033364 0   0   0            0            000000033364 
FT2RQ	033363 033364 0   0   777777777777 0            000000033364 
FT3	033363 033364 0   0   777777777777 0            000000033364 
FT9	033364 033364 0   0   777777777777 0            000000033364 
ET0	033364 033364 0   0   777777777777 0            000000033364 
ST1A	033364 033364 0   0   777777777777 0            000000033364 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 487
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0766

ST9	033364 033364 0   0   777777777777 0            000000033364 


*033364 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033364 033364 0   0   400000000000 0            0            
IT1	033364 0      0   0   400000000000 0            0            
AT3	033364 0      0   0   0            0            400000000000 
AT6	033364 0      0   0   0            0            400000000000 
FT1A	033364 0      0   0   0            0            0            
FT9	033365 0      0   0   0            0            0            
ET0	033365 0      0   0   0            0            0            
ST1	033365 0      0   0   0            0            0            
ST2	033365 0      0   0   0            0            0            
ST9	033365 0      0   0   0            0            0            


*033365 CAMGE	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033365 033365 0   0   315000035524 0            777777777777 
IT1	033365 0      0   0   315000035524 0            777777777777 
AT3	033365 0      0   0   000000035524 0            315000035524 
AT6	033365 035524 0   0   000000035524 0            315000035524 
FT0	033365 035524 0   0   777777777777 0            315000035524 
FT1A	033365 035524 0   0   777777777777 0            777777777777 
FT2	033365 035524 0   0   0            0            777777777777 
FT2RQ	033365 035524 0   0   0            0            777777777777 
FT3	033365 035524 0   0   0            0            777777777777 
FT9	033366 035524 0   0   0            0            777777777777 
ET0	033367 035524 0   0   000000000001 0            777777777777 
ST1A	033367 035524 0   0   000000000001 0            777777777777 
ST9	033367 035524 0   0   000000000001 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 488
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0767

*033367 JUMPA	0,033370
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033367 033367 0   0   324000033370 0            000000033370 
IT1	033367 0      0   0   324000033370 0            000000033370 
AT3	033367 0      0   0   000000033370 0            324000033370 
AT6	033367 033370 0   0   000000033370 0            324000033370 
FT1A	033367 033370 0   0   000000033370 0            000000033370 
FT2	033367 033370 0   0   0            0            000000033370 
FT2RQ	033367 033370 0   0   0            0            000000033370 
FT3	033367 033370 0   0   0            0            000000033370 
FT9	033370 033370 0   0   0            0            000000033370 
ET0	033370 033370 0   0   0            0            000000033370 
ST1A	033370 033370 0   0   0            0            000000033370 
ST9	033370 033370 0   0   0            0            000000033370 


*033370 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033370 033370 0   0   400000000000 0            0            
IT1	033370 0      0   0   400000000000 0            0            
AT3	033370 0      0   0   0            0            400000000000 
AT6	033370 0      0   0   0            0            400000000000 
FT1A	033370 0      0   0   0            0            0            
FT9	033371 0      0   0   0            0            0            
ET0	033371 0      0   0   0            0            0            
ST1	033371 0      0   0   0            0            0            
ST2	033371 0      0   0   0            0            0            
ST9	033371 0      0   0   0            0            0            


*033371 CAMN	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033371 033371 0   0   316000035524 0            777777777777 
IT1	033371 0      0   0   316000035524 0            777777777777 
AT3	033371 0      0   0   000000035524 0            316000035524 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 489
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0768

AT6	033371 035524 0   0   000000035524 0            316000035524 
FT0	033371 035524 0   0   777777777777 0            316000035524 
FT1A	033371 035524 0   0   777777777777 0            777777777777 
FT2	033371 035524 0   0   0            0            777777777777 
FT2RQ	033371 035524 0   0   0            0            777777777777 
FT3	033371 035524 0   0   0            0            777777777777 
FT9	033372 035524 0   0   0            0            777777777777 
ET0	033373 035524 0   0   000000000001 0            777777777777 
ST1A	033373 035524 0   0   000000000001 0            777777777777 
ST9	033373 035524 0   0   000000000001 0            777777777777 


*033373 JUMPA	0,033374
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033373 033373 0   0   324000033374 0            000000033374 
IT1	033373 0      0   0   324000033374 0            000000033374 
AT3	033373 0      0   0   000000033374 0            324000033374 
AT6	033373 033374 0   0   000000033374 0            324000033374 
FT1A	033373 033374 0   0   000000033374 0            000000033374 
FT2	033373 033374 0   0   0            0            000000033374 
FT2RQ	033373 033374 0   0   0            0            000000033374 
FT3	033373 033374 0   0   0            0            000000033374 
FT9	033374 033374 0   0   0            0            000000033374 
ET0	033374 033374 0   0   0            0            000000033374 
ST1A	033374 033374 0   0   0            0            000000033374 
ST9	033374 033374 0   0   0            0            000000033374 


*033374 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033374 033374 0   0   400000000000 0            0            
IT1	033374 0      0   0   400000000000 0            0            
AT3	033374 0      0   0   0            0            400000000000 
AT6	033374 0      0   0   0            0            400000000000 
FT1A	033374 0      0   0   0            0            0            
FT9	033375 0      0   0   0            0            0            
ET0	033375 0      0   0   0            0            0            
ST1	033375 0      0   0   0            0            0            
ST2	033375 0      0   0   0            0            0            
ST9	033375 0      0   0   0            0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 490
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0769


*033375 CAMN	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033375 033375 0   0   316000035412 0            0            
IT1	033375 0      0   0   316000035412 0            0            
AT3	033375 0      0   0   000000035412 0            316000035412 
AT6	033375 035412 0   0   000000035412 0            316000035412 
FT0	033375 035412 0   0   0            0            316000035412 
FT1A	033375 035412 0   0   0            0            0            
FT2	033375 035412 0   0   0            0            0            
FT2RQ	033375 035412 0   0   0            0            0            
FT3	033375 035412 0   0   0            0            0            
FT9	033376 035412 0   0   0            0            0            
ET0	033376 035412 0   0   0            0            0            
ST1A	033376 035412 0   0   0            0            0            
ST9	033376 035412 0   0   0            0            0            


*033376 SKIPA	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033376 033376 0   0   334000000000 0            0            
IT1	033376 0      0   0   334000000000 0            0            
AT3	033376 0      0   0   0            0            334000000000 
AT6	033376 0      0   0   0            0            334000000000 
FT0	033376 0      0   0   0            0            334000000000 
FT1A	033376 0      0   0   0            0            0            
FT9	033377 0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1A	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 491
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0770

*033400 JUMPA	0,033401
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000033401 0            000000033401 
IT1	0      0      0   0   324000033401 0            000000033401 
AT3	0      0      0   0   000000033401 0            324000033401 
AT6	0      033401 0   0   000000033401 0            324000033401 
FT1A	0      033401 0   0   000000033401 0            000000033401 
FT2	0      033401 0   0   0            0            000000033401 
FT2RQ	0      033401 0   0   0            0            000000033401 
FT3	0      033401 0   0   0            0            000000033401 
FT9	033401 033401 0   0   0            0            000000033401 
ET0	033401 033401 0   0   0            0            000000033401 
ST1A	033401 033401 0   0   0            0            000000033401 
ST9	033401 033401 0   0   0            0            000000033401 


*033401 MOVE 	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033401 033401 0   0   200000035416 0            000000000001 
IT1	033401 0      0   0   200000035416 0            000000000001 
AT3	033401 0      0   0   000000035416 0            200000035416 
AT6	033401 035416 0   0   000000035416 0            200000035416 
FT0	033401 035416 0   0   000000000001 0            200000035416 
FT1A	033401 035416 0   0   000000000001 0            000000000001 
FT9	033402 035416 0   0   000000000001 0            000000000001 
ET0	033402 035416 0   0   000000000001 0            000000000001 
ST1	033402 035416 0   0   000000000001 0            000000000001 
ST2	033402 035416 0   0   000000000001 0            000000000001 
ST9	033402 035416 0   0   000000000001 0            000000000001 


*033402 CAMN	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033402 033402 0   0   316000000000 0            000000000001 
IT1	033402 0      0   0   316000000000 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 492
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0771

AT3	033402 0      0   0   0            0            316000000000 
AT6	033402 0      0   0   0            0            316000000000 
FT0	033402 0      0   0   000000000001 0            316000000000 
FT1A	033402 0      0   0   000000000001 0            000000000001 
FT2	033402 0      0   0   0            0            000000000001 
FT2RQ	033402 0      0   0   000000000001 0            000000000001 
FT3	033402 0      0   0   000000000001 0            000000000001 
FT9	033403 0      0   0   000000000001 0            000000000001 
ET0	033403 0      0   0   0            0            000000000001 
ST1A	033403 0      0   0   0            0            000000000001 
ST9	033403 0      0   0   0            0            000000000001 


*033403 CAME	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033403 033403 0   0   312000000000 0            000000000001 
IT1	033403 0      0   0   312000000000 0            000000000001 
AT3	033403 0      0   0   0            0            312000000000 
AT6	033403 0      0   0   0            0            312000000000 
FT0	033403 0      0   0   000000000001 0            312000000000 
FT1A	033403 0      0   0   000000000001 0            000000000001 
FT2	033403 0      0   0   0            0            000000000001 
FT2RQ	033403 0      0   0   000000000001 0            000000000001 
FT3	033403 0      0   0   000000000001 0            000000000001 
FT9	033404 0      0   0   000000000001 0            000000000001 
ET0	033405 0      0   0   0            0            000000000001 
ST1A	033405 0      0   0   0            0            000000000001 
ST9	033405 0      0   0   0            0            000000000001 


*033405 JUMPA	0,033406
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033405 033405 0   0   324000033406 0            000000033406 
IT1	033405 0      0   0   324000033406 0            000000033406 
AT3	033405 0      0   0   000000033406 0            324000033406 
AT6	033405 033406 0   0   000000033406 0            324000033406 
FT1A	033405 033406 0   0   000000033406 0            000000033406 
FT2	033405 033406 0   0   0            0            000000033406 
FT2RQ	033405 033406 0   0   000000000001 0            000000033406 
FT3	033405 033406 0   0   000000000001 0            000000033406 
FT9	033406 033406 0   0   000000000001 0            000000033406 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 493
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0772

ET0	033406 033406 0   0   000000000001 0            000000033406 
ST1A	033406 033406 0   0   000000000001 0            000000033406 
ST9	033406 033406 0   0   000000000001 0            000000033406 


*033406 MOVE 	0,035417
INITIAL
C(AC)=000000 000001 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033406 033406 0   0   200000035417 0            000000000002 
IT1	033406 0      0   0   200000035417 0            000000000002 
AT3	033406 0      0   0   000000035417 0            200000035417 
AT6	033406 035417 0   0   000000035417 0            200000035417 
FT0	033406 035417 0   0   000000000002 0            200000035417 
FT1A	033406 035417 0   0   000000000002 0            000000000002 
FT9	033407 035417 0   0   000000000002 0            000000000002 
ET0	033407 035417 0   0   000000000002 0            000000000002 
ST1	033407 035417 0   0   000000000002 0            000000000002 
ST2	033407 035417 0   0   000000000002 0            000000000002 
ST9	033407 035417 0   0   000000000002 0            000000000002 


*033407 CAMN	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033407 033407 0   0   316000000000 0            000000000002 
IT1	033407 0      0   0   316000000000 0            000000000002 
AT3	033407 0      0   0   0            0            316000000000 
AT6	033407 0      0   0   0            0            316000000000 
FT0	033407 0      0   0   000000000002 0            316000000000 
FT1A	033407 0      0   0   000000000002 0            000000000002 
FT2	033407 0      0   0   0            0            000000000002 
FT2RQ	033407 0      0   0   000000000002 0            000000000002 
FT3	033407 0      0   0   000000000002 0            000000000002 
FT9	033410 0      0   0   000000000002 0            000000000002 
ET0	033410 0      0   0   0            0            000000000002 
ST1A	033410 0      0   0   0            0            000000000002 
ST9	033410 0      0   0   0            0            000000000002 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 494
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0773

*033410 CAME	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033410 033410 0   0   312000000000 0            000000000002 
IT1	033410 0      0   0   312000000000 0            000000000002 
AT3	033410 0      0   0   0            0            312000000000 
AT6	033410 0      0   0   0            0            312000000000 
FT0	033410 0      0   0   000000000002 0            312000000000 
FT1A	033410 0      0   0   000000000002 0            000000000002 
FT2	033410 0      0   0   0            0            000000000002 
FT2RQ	033410 0      0   0   000000000002 0            000000000002 
FT3	033410 0      0   0   000000000002 0            000000000002 
FT9	033411 0      0   0   000000000002 0            000000000002 
ET0	033412 0      0   0   0            0            000000000002 
ST1A	033412 0      0   0   0            0            000000000002 
ST9	033412 0      0   0   0            0            000000000002 


*033412 JUMPA	0,033413
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033412 033412 0   0   324000033413 0            000000033413 
IT1	033412 0      0   0   324000033413 0            000000033413 
AT3	033412 0      0   0   000000033413 0            324000033413 
AT6	033412 033413 0   0   000000033413 0            324000033413 
FT1A	033412 033413 0   0   000000033413 0            000000033413 
FT2	033412 033413 0   0   0            0            000000033413 
FT2RQ	033412 033413 0   0   000000000002 0            000000033413 
FT3	033412 033413 0   0   000000000002 0            000000033413 
FT9	033413 033413 0   0   000000000002 0            000000033413 
ET0	033413 033413 0   0   000000000002 0            000000033413 
ST1A	033413 033413 0   0   000000000002 0            000000033413 
ST9	033413 033413 0   0   000000000002 0            000000033413 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 495
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0774

*033413 MOVE 	0,035420
INITIAL
C(AC)=000000 000002 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033413 033413 0   0   200000035420 0            000000000004 
IT1	033413 0      0   0   200000035420 0            000000000004 
AT3	033413 0      0   0   000000035420 0            200000035420 
AT6	033413 035420 0   0   000000035420 0            200000035420 
FT0	033413 035420 0   0   000000000004 0            200000035420 
FT1A	033413 035420 0   0   000000000004 0            000000000004 
FT9	033414 035420 0   0   000000000004 0            000000000004 
ET0	033414 035420 0   0   000000000004 0            000000000004 
ST1	033414 035420 0   0   000000000004 0            000000000004 
ST2	033414 035420 0   0   000000000004 0            000000000004 
ST9	033414 035420 0   0   000000000004 0            000000000004 


*033414 CAMN	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033414 033414 0   0   316000000000 0            000000000004 
IT1	033414 0      0   0   316000000000 0            000000000004 
AT3	033414 0      0   0   0            0            316000000000 
AT6	033414 0      0   0   0            0            316000000000 
FT0	033414 0      0   0   000000000004 0            316000000000 
FT1A	033414 0      0   0   000000000004 0            000000000004 
FT2	033414 0      0   0   0            0            000000000004 
FT2RQ	033414 0      0   0   000000000004 0            000000000004 
FT3	033414 0      0   0   000000000004 0            000000000004 
FT9	033415 0      0   0   000000000004 0            000000000004 
ET0	033415 0      0   0   0            0            000000000004 
ST1A	033415 0      0   0   0            0            000000000004 
ST9	033415 0      0   0   0            0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 496
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0775

*033415 CAME	0,000000
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033415 033415 0   0   312000000000 0            000000000004 
IT1	033415 0      0   0   312000000000 0            000000000004 
AT3	033415 0      0   0   0            0            312000000000 
AT6	033415 0      0   0   0            0            312000000000 
FT0	033415 0      0   0   000000000004 0            312000000000 
FT1A	033415 0      0   0   000000000004 0            000000000004 
FT2	033415 0      0   0   0            0            000000000004 
FT2RQ	033415 0      0   0   000000000004 0            000000000004 
FT3	033415 0      0   0   000000000004 0            000000000004 
FT9	033416 0      0   0   000000000004 0            000000000004 
ET0	033417 0      0   0   0            0            000000000004 
ST1A	033417 0      0   0   0            0            000000000004 
ST9	033417 0      0   0   0            0            000000000004 


*033417 JUMPA	0,033420
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033417 033417 0   0   324000033420 0            000000033420 
IT1	033417 0      0   0   324000033420 0            000000033420 
AT3	033417 0      0   0   000000033420 0            324000033420 
AT6	033417 033420 0   0   000000033420 0            324000033420 
FT1A	033417 033420 0   0   000000033420 0            000000033420 
FT2	033417 033420 0   0   0            0            000000033420 
FT2RQ	033417 033420 0   0   000000000004 0            000000033420 
FT3	033417 033420 0   0   000000000004 0            000000033420 
FT9	033420 033420 0   0   000000000004 0            000000033420 
ET0	033420 033420 0   0   000000000004 0            000000033420 
ST1A	033420 033420 0   0   000000000004 0            000000033420 
ST9	033420 033420 0   0   000000000004 0            000000033420 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 497
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0776

*033420 MOVE 	0,035421
INITIAL
C(AC)=000000 000004 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033420 033420 0   0   200000035421 0            000000000010 
IT1	033420 0      0   0   200000035421 0            000000000010 
AT3	033420 0      0   0   000000035421 0            200000035421 
AT6	033420 035421 0   0   000000035421 0            200000035421 
FT0	033420 035421 0   0   000000000010 0            200000035421 
FT1A	033420 035421 0   0   000000000010 0            000000000010 
FT9	033421 035421 0   0   000000000010 0            000000000010 
ET0	033421 035421 0   0   000000000010 0            000000000010 
ST1	033421 035421 0   0   000000000010 0            000000000010 
ST2	033421 035421 0   0   000000000010 0            000000000010 
ST9	033421 035421 0   0   000000000010 0            000000000010 


*033421 CAMN	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033421 033421 0   0   316000000000 0            000000000010 
IT1	033421 0      0   0   316000000000 0            000000000010 
AT3	033421 0      0   0   0            0            316000000000 
AT6	033421 0      0   0   0            0            316000000000 
FT0	033421 0      0   0   000000000010 0            316000000000 
FT1A	033421 0      0   0   000000000010 0            000000000010 
FT2	033421 0      0   0   0            0            000000000010 
FT2RQ	033421 0      0   0   000000000010 0            000000000010 
FT3	033421 0      0   0   000000000010 0            000000000010 
FT9	033422 0      0   0   000000000010 0            000000000010 
ET0	033422 0      0   0   0            0            000000000010 
ST1A	033422 0      0   0   0            0            000000000010 
ST9	033422 0      0   0   0            0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 498
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0777

*033422 CAME	0,000000
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033422 033422 0   0   312000000000 0            000000000010 
IT1	033422 0      0   0   312000000000 0            000000000010 
AT3	033422 0      0   0   0            0            312000000000 
AT6	033422 0      0   0   0            0            312000000000 
FT0	033422 0      0   0   000000000010 0            312000000000 
FT1A	033422 0      0   0   000000000010 0            000000000010 
FT2	033422 0      0   0   0            0            000000000010 
FT2RQ	033422 0      0   0   000000000010 0            000000000010 
FT3	033422 0      0   0   000000000010 0            000000000010 
FT9	033423 0      0   0   000000000010 0            000000000010 
ET0	033424 0      0   0   0            0            000000000010 
ST1A	033424 0      0   0   0            0            000000000010 
ST9	033424 0      0   0   0            0            000000000010 


*033424 JUMPA	0,033425
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033424 033424 0   0   324000033425 0            000000033425 
IT1	033424 0      0   0   324000033425 0            000000033425 
AT3	033424 0      0   0   000000033425 0            324000033425 
AT6	033424 033425 0   0   000000033425 0            324000033425 
FT1A	033424 033425 0   0   000000033425 0            000000033425 
FT2	033424 033425 0   0   0            0            000000033425 
FT2RQ	033424 033425 0   0   000000000010 0            000000033425 
FT3	033424 033425 0   0   000000000010 0            000000033425 
FT9	033425 033425 0   0   000000000010 0            000000033425 
ET0	033425 033425 0   0   000000000010 0            000000033425 
ST1A	033425 033425 0   0   000000000010 0            000000033425 
ST9	033425 033425 0   0   000000000010 0            000000033425 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 499
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0778

*033425 MOVE 	0,035422
INITIAL
C(AC)=000000 000010 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033425 033425 0   0   200000035422 0            000000000020 
IT1	033425 0      0   0   200000035422 0            000000000020 
AT3	033425 0      0   0   000000035422 0            200000035422 
AT6	033425 035422 0   0   000000035422 0            200000035422 
FT0	033425 035422 0   0   000000000020 0            200000035422 
FT1A	033425 035422 0   0   000000000020 0            000000000020 
FT9	033426 035422 0   0   000000000020 0            000000000020 
ET0	033426 035422 0   0   000000000020 0            000000000020 
ST1	033426 035422 0   0   000000000020 0            000000000020 
ST2	033426 035422 0   0   000000000020 0            000000000020 
ST9	033426 035422 0   0   000000000020 0            000000000020 


*033426 CAMN	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033426 033426 0   0   316000000000 0            000000000020 
IT1	033426 0      0   0   316000000000 0            000000000020 
AT3	033426 0      0   0   0            0            316000000000 
AT6	033426 0      0   0   0            0            316000000000 
FT0	033426 0      0   0   000000000020 0            316000000000 
FT1A	033426 0      0   0   000000000020 0            000000000020 
FT2	033426 0      0   0   0            0            000000000020 
FT2RQ	033426 0      0   0   000000000020 0            000000000020 
FT3	033426 0      0   0   000000000020 0            000000000020 
FT9	033427 0      0   0   000000000020 0            000000000020 
ET0	033427 0      0   0   0            0            000000000020 
ST1A	033427 0      0   0   0            0            000000000020 
ST9	033427 0      0   0   0            0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 500
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0779

*033427 CAME	0,000000
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033427 033427 0   0   312000000000 0            000000000020 
IT1	033427 0      0   0   312000000000 0            000000000020 
AT3	033427 0      0   0   0            0            312000000000 
AT6	033427 0      0   0   0            0            312000000000 
FT0	033427 0      0   0   000000000020 0            312000000000 
FT1A	033427 0      0   0   000000000020 0            000000000020 
FT2	033427 0      0   0   0            0            000000000020 
FT2RQ	033427 0      0   0   000000000020 0            000000000020 
FT3	033427 0      0   0   000000000020 0            000000000020 
FT9	033430 0      0   0   000000000020 0            000000000020 
ET0	033431 0      0   0   0            0            000000000020 
ST1A	033431 0      0   0   0            0            000000000020 
ST9	033431 0      0   0   0            0            000000000020 


*033431 JUMPA	0,033432
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033431 033431 0   0   324000033432 0            000000033432 
IT1	033431 0      0   0   324000033432 0            000000033432 
AT3	033431 0      0   0   000000033432 0            324000033432 
AT6	033431 033432 0   0   000000033432 0            324000033432 
FT1A	033431 033432 0   0   000000033432 0            000000033432 
FT2	033431 033432 0   0   0            0            000000033432 
FT2RQ	033431 033432 0   0   000000000020 0            000000033432 
FT3	033431 033432 0   0   000000000020 0            000000033432 
FT9	033432 033432 0   0   000000000020 0            000000033432 
ET0	033432 033432 0   0   000000000020 0            000000033432 
ST1A	033432 033432 0   0   000000000020 0            000000033432 
ST9	033432 033432 0   0   000000000020 0            000000033432 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 501
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0780

*033432 MOVE 	0,035423
INITIAL
C(AC)=000000 000020 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033432 033432 0   0   200000035423 0            000000000040 
IT1	033432 0      0   0   200000035423 0            000000000040 
AT3	033432 0      0   0   000000035423 0            200000035423 
AT6	033432 035423 0   0   000000035423 0            200000035423 
FT0	033432 035423 0   0   000000000040 0            200000035423 
FT1A	033432 035423 0   0   000000000040 0            000000000040 
FT9	033433 035423 0   0   000000000040 0            000000000040 
ET0	033433 035423 0   0   000000000040 0            000000000040 
ST1	033433 035423 0   0   000000000040 0            000000000040 
ST2	033433 035423 0   0   000000000040 0            000000000040 
ST9	033433 035423 0   0   000000000040 0            000000000040 


*033433 CAMN	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033433 033433 0   0   316000000000 0            000000000040 
IT1	033433 0      0   0   316000000000 0            000000000040 
AT3	033433 0      0   0   0            0            316000000000 
AT6	033433 0      0   0   0            0            316000000000 
FT0	033433 0      0   0   000000000040 0            316000000000 
FT1A	033433 0      0   0   000000000040 0            000000000040 
FT2	033433 0      0   0   0            0            000000000040 
FT2RQ	033433 0      0   0   000000000040 0            000000000040 
FT3	033433 0      0   0   000000000040 0            000000000040 
FT9	033434 0      0   0   000000000040 0            000000000040 
ET0	033434 0      0   0   0            0            000000000040 
ST1A	033434 0      0   0   0            0            000000000040 
ST9	033434 0      0   0   0            0            000000000040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 502
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0781

*033434 CAME	0,000000
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033434 033434 0   0   312000000000 0            000000000040 
IT1	033434 0      0   0   312000000000 0            000000000040 
AT3	033434 0      0   0   0            0            312000000000 
AT6	033434 0      0   0   0            0            312000000000 
FT0	033434 0      0   0   000000000040 0            312000000000 
FT1A	033434 0      0   0   000000000040 0            000000000040 
FT2	033434 0      0   0   0            0            000000000040 
FT2RQ	033434 0      0   0   000000000040 0            000000000040 
FT3	033434 0      0   0   000000000040 0            000000000040 
FT9	033435 0      0   0   000000000040 0            000000000040 
ET0	033436 0      0   0   0            0            000000000040 
ST1A	033436 0      0   0   0            0            000000000040 
ST9	033436 0      0   0   0            0            000000000040 


*033436 JUMPA	0,033437
INITIAL
C(AC)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033436 033436 0   0   324000033437 0            000000033437 
IT1	033436 0      0   0   324000033437 0            000000033437 
AT3	033436 0      0   0   000000033437 0            324000033437 
AT6	033436 033437 0   0   000000033437 0            324000033437 
FT1A	033436 033437 0   0   000000033437 0            000000033437 
FT2	033436 033437 0   0   0            0            000000033437 
FT2RQ	033436 033437 0   0   000000000040 0            000000033437 
FT3	033436 033437 0   0   000000000040 0            000000033437 
FT9	033437 033437 0   0   000000000040 0            000000033437 
ET0	033437 033437 0   0   000000000040 0            000000033437 
ST1A	033437 033437 0   0   000000000040 0            000000033437 
ST9	033437 033437 0   0   000000000040 0            000000033437 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 503
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0782

*033437 MOVE 	0,035424
INITIAL
C(AC)=000000 000040 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033437 033437 0   0   200000035424 0            000000000100 
IT1	033437 0      0   0   200000035424 0            000000000100 
AT3	033437 0      0   0   000000035424 0            200000035424 
AT6	033437 035424 0   0   000000035424 0            200000035424 
FT0	033437 035424 0   0   000000000100 0            200000035424 
FT1A	033437 035424 0   0   000000000100 0            000000000100 
FT9	033440 035424 0   0   000000000100 0            000000000100 
ET0	033440 035424 0   0   000000000100 0            000000000100 
ST1	033440 035424 0   0   000000000100 0            000000000100 
ST2	033440 035424 0   0   000000000100 0            000000000100 
ST9	033440 035424 0   0   000000000100 0            000000000100 


*033440 CAMN	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033440 033440 0   0   316000000000 0            000000000100 
IT1	033440 0      0   0   316000000000 0            000000000100 
AT3	033440 0      0   0   0            0            316000000000 
AT6	033440 0      0   0   0            0            316000000000 
FT0	033440 0      0   0   000000000100 0            316000000000 
FT1A	033440 0      0   0   000000000100 0            000000000100 
FT2	033440 0      0   0   0            0            000000000100 
FT2RQ	033440 0      0   0   000000000100 0            000000000100 
FT3	033440 0      0   0   000000000100 0            000000000100 
FT9	033441 0      0   0   000000000100 0            000000000100 
ET0	033441 0      0   0   0            0            000000000100 
ST1A	033441 0      0   0   0            0            000000000100 
ST9	033441 0      0   0   0            0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 504
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0783

*033441 CAME	0,000000
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033441 033441 0   0   312000000000 0            000000000100 
IT1	033441 0      0   0   312000000000 0            000000000100 
AT3	033441 0      0   0   0            0            312000000000 
AT6	033441 0      0   0   0            0            312000000000 
FT0	033441 0      0   0   000000000100 0            312000000000 
FT1A	033441 0      0   0   000000000100 0            000000000100 
FT2	033441 0      0   0   0            0            000000000100 
FT2RQ	033441 0      0   0   000000000100 0            000000000100 
FT3	033441 0      0   0   000000000100 0            000000000100 
FT9	033442 0      0   0   000000000100 0            000000000100 
ET0	033443 0      0   0   0            0            000000000100 
ST1A	033443 0      0   0   0            0            000000000100 
ST9	033443 0      0   0   0            0            000000000100 


*033443 JUMPA	0,033444
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033443 033443 0   0   324000033444 0            000000033444 
IT1	033443 0      0   0   324000033444 0            000000033444 
AT3	033443 0      0   0   000000033444 0            324000033444 
AT6	033443 033444 0   0   000000033444 0            324000033444 
FT1A	033443 033444 0   0   000000033444 0            000000033444 
FT2	033443 033444 0   0   0            0            000000033444 
FT2RQ	033443 033444 0   0   000000000100 0            000000033444 
FT3	033443 033444 0   0   000000000100 0            000000033444 
FT9	033444 033444 0   0   000000000100 0            000000033444 
ET0	033444 033444 0   0   000000000100 0            000000033444 
ST1A	033444 033444 0   0   000000000100 0            000000033444 
ST9	033444 033444 0   0   000000000100 0            000000033444 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 505
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0784

*033444 MOVE 	0,035425
INITIAL
C(AC)=000000 000100 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033444 033444 0   0   200000035425 0            000000000200 
IT1	033444 0      0   0   200000035425 0            000000000200 
AT3	033444 0      0   0   000000035425 0            200000035425 
AT6	033444 035425 0   0   000000035425 0            200000035425 
FT0	033444 035425 0   0   000000000200 0            200000035425 
FT1A	033444 035425 0   0   000000000200 0            000000000200 
FT9	033445 035425 0   0   000000000200 0            000000000200 
ET0	033445 035425 0   0   000000000200 0            000000000200 
ST1	033445 035425 0   0   000000000200 0            000000000200 
ST2	033445 035425 0   0   000000000200 0            000000000200 
ST9	033445 035425 0   0   000000000200 0            000000000200 


*033445 CAMN	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033445 033445 0   0   316000000000 0            000000000200 
IT1	033445 0      0   0   316000000000 0            000000000200 
AT3	033445 0      0   0   0            0            316000000000 
AT6	033445 0      0   0   0            0            316000000000 
FT0	033445 0      0   0   000000000200 0            316000000000 
FT1A	033445 0      0   0   000000000200 0            000000000200 
FT2	033445 0      0   0   0            0            000000000200 
FT2RQ	033445 0      0   0   000000000200 0            000000000200 
FT3	033445 0      0   0   000000000200 0            000000000200 
FT9	033446 0      0   0   000000000200 0            000000000200 
ET0	033446 0      0   0   0            0            000000000200 
ST1A	033446 0      0   0   0            0            000000000200 
ST9	033446 0      0   0   0            0            000000000200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 506
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0785

*033446 CAME	0,000000
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033446 033446 0   0   312000000000 0            000000000200 
IT1	033446 0      0   0   312000000000 0            000000000200 
AT3	033446 0      0   0   0            0            312000000000 
AT6	033446 0      0   0   0            0            312000000000 
FT0	033446 0      0   0   000000000200 0            312000000000 
FT1A	033446 0      0   0   000000000200 0            000000000200 
FT2	033446 0      0   0   0            0            000000000200 
FT2RQ	033446 0      0   0   000000000200 0            000000000200 
FT3	033446 0      0   0   000000000200 0            000000000200 
FT9	033447 0      0   0   000000000200 0            000000000200 
ET0	033450 0      0   0   0            0            000000000200 
ST1A	033450 0      0   0   0            0            000000000200 
ST9	033450 0      0   0   0            0            000000000200 


*033450 JUMPA	0,033451
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033450 033450 0   0   324000033451 0            000000033451 
IT1	033450 0      0   0   324000033451 0            000000033451 
AT3	033450 0      0   0   000000033451 0            324000033451 
AT6	033450 033451 0   0   000000033451 0            324000033451 
FT1A	033450 033451 0   0   000000033451 0            000000033451 
FT2	033450 033451 0   0   0            0            000000033451 
FT2RQ	033450 033451 0   0   000000000200 0            000000033451 
FT3	033450 033451 0   0   000000000200 0            000000033451 
FT9	033451 033451 0   0   000000000200 0            000000033451 
ET0	033451 033451 0   0   000000000200 0            000000033451 
ST1A	033451 033451 0   0   000000000200 0            000000033451 
ST9	033451 033451 0   0   000000000200 0            000000033451 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 507
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0786

*033451 MOVE 	0,035426
INITIAL
C(AC)=000000 000200 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033451 033451 0   0   200000035426 0            000000000400 
IT1	033451 0      0   0   200000035426 0            000000000400 
AT3	033451 0      0   0   000000035426 0            200000035426 
AT6	033451 035426 0   0   000000035426 0            200000035426 
FT0	033451 035426 0   0   000000000400 0            200000035426 
FT1A	033451 035426 0   0   000000000400 0            000000000400 
FT9	033452 035426 0   0   000000000400 0            000000000400 
ET0	033452 035426 0   0   000000000400 0            000000000400 
ST1	033452 035426 0   0   000000000400 0            000000000400 
ST2	033452 035426 0   0   000000000400 0            000000000400 
ST9	033452 035426 0   0   000000000400 0            000000000400 


*033452 CAMN	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033452 033452 0   0   316000000000 0            000000000400 
IT1	033452 0      0   0   316000000000 0            000000000400 
AT3	033452 0      0   0   0            0            316000000000 
AT6	033452 0      0   0   0            0            316000000000 
FT0	033452 0      0   0   000000000400 0            316000000000 
FT1A	033452 0      0   0   000000000400 0            000000000400 
FT2	033452 0      0   0   0            0            000000000400 
FT2RQ	033452 0      0   0   000000000400 0            000000000400 
FT3	033452 0      0   0   000000000400 0            000000000400 
FT9	033453 0      0   0   000000000400 0            000000000400 
ET0	033453 0      0   0   0            0            000000000400 
ST1A	033453 0      0   0   0            0            000000000400 
ST9	033453 0      0   0   0            0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 508
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0787

*033453 CAME	0,000000
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033453 033453 0   0   312000000000 0            000000000400 
IT1	033453 0      0   0   312000000000 0            000000000400 
AT3	033453 0      0   0   0            0            312000000000 
AT6	033453 0      0   0   0            0            312000000000 
FT0	033453 0      0   0   000000000400 0            312000000000 
FT1A	033453 0      0   0   000000000400 0            000000000400 
FT2	033453 0      0   0   0            0            000000000400 
FT2RQ	033453 0      0   0   000000000400 0            000000000400 
FT3	033453 0      0   0   000000000400 0            000000000400 
FT9	033454 0      0   0   000000000400 0            000000000400 
ET0	033455 0      0   0   0            0            000000000400 
ST1A	033455 0      0   0   0            0            000000000400 
ST9	033455 0      0   0   0            0            000000000400 


*033455 JUMPA	0,033456
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033455 033455 0   0   324000033456 0            000000033456 
IT1	033455 0      0   0   324000033456 0            000000033456 
AT3	033455 0      0   0   000000033456 0            324000033456 
AT6	033455 033456 0   0   000000033456 0            324000033456 
FT1A	033455 033456 0   0   000000033456 0            000000033456 
FT2	033455 033456 0   0   0            0            000000033456 
FT2RQ	033455 033456 0   0   000000000400 0            000000033456 
FT3	033455 033456 0   0   000000000400 0            000000033456 
FT9	033456 033456 0   0   000000000400 0            000000033456 
ET0	033456 033456 0   0   000000000400 0            000000033456 
ST1A	033456 033456 0   0   000000000400 0            000000033456 
ST9	033456 033456 0   0   000000000400 0            000000033456 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 509
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0788

*033456 MOVE 	0,035427
INITIAL
C(AC)=000000 000400 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033456 033456 0   0   200000035427 0            000000001000 
IT1	033456 0      0   0   200000035427 0            000000001000 
AT3	033456 0      0   0   000000035427 0            200000035427 
AT6	033456 035427 0   0   000000035427 0            200000035427 
FT0	033456 035427 0   0   000000001000 0            200000035427 
FT1A	033456 035427 0   0   000000001000 0            000000001000 
FT9	033457 035427 0   0   000000001000 0            000000001000 
ET0	033457 035427 0   0   000000001000 0            000000001000 
ST1	033457 035427 0   0   000000001000 0            000000001000 
ST2	033457 035427 0   0   000000001000 0            000000001000 
ST9	033457 035427 0   0   000000001000 0            000000001000 


*033457 CAMN	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033457 033457 0   0   316000000000 0            000000001000 
IT1	033457 0      0   0   316000000000 0            000000001000 
AT3	033457 0      0   0   0            0            316000000000 
AT6	033457 0      0   0   0            0            316000000000 
FT0	033457 0      0   0   000000001000 0            316000000000 
FT1A	033457 0      0   0   000000001000 0            000000001000 
FT2	033457 0      0   0   0            0            000000001000 
FT2RQ	033457 0      0   0   000000001000 0            000000001000 
FT3	033457 0      0   0   000000001000 0            000000001000 
FT9	033460 0      0   0   000000001000 0            000000001000 
ET0	033460 0      0   0   0            0            000000001000 
ST1A	033460 0      0   0   0            0            000000001000 
ST9	033460 0      0   0   0            0            000000001000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 510
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0789

*033460 CAME	0,000000
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033460 033460 0   0   312000000000 0            000000001000 
IT1	033460 0      0   0   312000000000 0            000000001000 
AT3	033460 0      0   0   0            0            312000000000 
AT6	033460 0      0   0   0            0            312000000000 
FT0	033460 0      0   0   000000001000 0            312000000000 
FT1A	033460 0      0   0   000000001000 0            000000001000 
FT2	033460 0      0   0   0            0            000000001000 
FT2RQ	033460 0      0   0   000000001000 0            000000001000 
FT3	033460 0      0   0   000000001000 0            000000001000 
FT9	033461 0      0   0   000000001000 0            000000001000 
ET0	033462 0      0   0   0            0            000000001000 
ST1A	033462 0      0   0   0            0            000000001000 
ST9	033462 0      0   0   0            0            000000001000 


*033462 JUMPA	0,033463
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033462 033462 0   0   324000033463 0            000000033463 
IT1	033462 0      0   0   324000033463 0            000000033463 
AT3	033462 0      0   0   000000033463 0            324000033463 
AT6	033462 033463 0   0   000000033463 0            324000033463 
FT1A	033462 033463 0   0   000000033463 0            000000033463 
FT2	033462 033463 0   0   0            0            000000033463 
FT2RQ	033462 033463 0   0   000000001000 0            000000033463 
FT3	033462 033463 0   0   000000001000 0            000000033463 
FT9	033463 033463 0   0   000000001000 0            000000033463 
ET0	033463 033463 0   0   000000001000 0            000000033463 
ST1A	033463 033463 0   0   000000001000 0            000000033463 
ST9	033463 033463 0   0   000000001000 0            000000033463 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 511
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0790

*033463 MOVE 	0,035430
INITIAL
C(AC)=000000 001000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033463 033463 0   0   200000035430 0            000000002000 
IT1	033463 0      0   0   200000035430 0            000000002000 
AT3	033463 0      0   0   000000035430 0            200000035430 
AT6	033463 035430 0   0   000000035430 0            200000035430 
FT0	033463 035430 0   0   000000002000 0            200000035430 
FT1A	033463 035430 0   0   000000002000 0            000000002000 
FT9	033464 035430 0   0   000000002000 0            000000002000 
ET0	033464 035430 0   0   000000002000 0            000000002000 
ST1	033464 035430 0   0   000000002000 0            000000002000 
ST2	033464 035430 0   0   000000002000 0            000000002000 
ST9	033464 035430 0   0   000000002000 0            000000002000 


*033464 CAMN	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033464 033464 0   0   316000000000 0            000000002000 
IT1	033464 0      0   0   316000000000 0            000000002000 
AT3	033464 0      0   0   0            0            316000000000 
AT6	033464 0      0   0   0            0            316000000000 
FT0	033464 0      0   0   000000002000 0            316000000000 
FT1A	033464 0      0   0   000000002000 0            000000002000 
FT2	033464 0      0   0   0            0            000000002000 
FT2RQ	033464 0      0   0   000000002000 0            000000002000 
FT3	033464 0      0   0   000000002000 0            000000002000 
FT9	033465 0      0   0   000000002000 0            000000002000 
ET0	033465 0      0   0   0            0            000000002000 
ST1A	033465 0      0   0   0            0            000000002000 
ST9	033465 0      0   0   0            0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 512
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0791

*033465 CAME	0,000000
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033465 033465 0   0   312000000000 0            000000002000 
IT1	033465 0      0   0   312000000000 0            000000002000 
AT3	033465 0      0   0   0            0            312000000000 
AT6	033465 0      0   0   0            0            312000000000 
FT0	033465 0      0   0   000000002000 0            312000000000 
FT1A	033465 0      0   0   000000002000 0            000000002000 
FT2	033465 0      0   0   0            0            000000002000 
FT2RQ	033465 0      0   0   000000002000 0            000000002000 
FT3	033465 0      0   0   000000002000 0            000000002000 
FT9	033466 0      0   0   000000002000 0            000000002000 
ET0	033467 0      0   0   0            0            000000002000 
ST1A	033467 0      0   0   0            0            000000002000 
ST9	033467 0      0   0   0            0            000000002000 


*033467 JUMPA	0,033470
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033467 033467 0   0   324000033470 0            000000033470 
IT1	033467 0      0   0   324000033470 0            000000033470 
AT3	033467 0      0   0   000000033470 0            324000033470 
AT6	033467 033470 0   0   000000033470 0            324000033470 
FT1A	033467 033470 0   0   000000033470 0            000000033470 
FT2	033467 033470 0   0   0            0            000000033470 
FT2RQ	033467 033470 0   0   000000002000 0            000000033470 
FT3	033467 033470 0   0   000000002000 0            000000033470 
FT9	033470 033470 0   0   000000002000 0            000000033470 
ET0	033470 033470 0   0   000000002000 0            000000033470 
ST1A	033470 033470 0   0   000000002000 0            000000033470 
ST9	033470 033470 0   0   000000002000 0            000000033470 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 513
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0792

*033470 MOVE 	0,035431
INITIAL
C(AC)=000000 002000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033470 033470 0   0   200000035431 0            000000004000 
IT1	033470 0      0   0   200000035431 0            000000004000 
AT3	033470 0      0   0   000000035431 0            200000035431 
AT6	033470 035431 0   0   000000035431 0            200000035431 
FT0	033470 035431 0   0   000000004000 0            200000035431 
FT1A	033470 035431 0   0   000000004000 0            000000004000 
FT9	033471 035431 0   0   000000004000 0            000000004000 
ET0	033471 035431 0   0   000000004000 0            000000004000 
ST1	033471 035431 0   0   000000004000 0            000000004000 
ST2	033471 035431 0   0   000000004000 0            000000004000 
ST9	033471 035431 0   0   000000004000 0            000000004000 


*033471 CAMN	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033471 033471 0   0   316000000000 0            000000004000 
IT1	033471 0      0   0   316000000000 0            000000004000 
AT3	033471 0      0   0   0            0            316000000000 
AT6	033471 0      0   0   0            0            316000000000 
FT0	033471 0      0   0   000000004000 0            316000000000 
FT1A	033471 0      0   0   000000004000 0            000000004000 
FT2	033471 0      0   0   0            0            000000004000 
FT2RQ	033471 0      0   0   000000004000 0            000000004000 
FT3	033471 0      0   0   000000004000 0            000000004000 
FT9	033472 0      0   0   000000004000 0            000000004000 
ET0	033472 0      0   0   0            0            000000004000 
ST1A	033472 0      0   0   0            0            000000004000 
ST9	033472 0      0   0   0            0            000000004000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 514
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0793

*033472 CAME	0,000000
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033472 033472 0   0   312000000000 0            000000004000 
IT1	033472 0      0   0   312000000000 0            000000004000 
AT3	033472 0      0   0   0            0            312000000000 
AT6	033472 0      0   0   0            0            312000000000 
FT0	033472 0      0   0   000000004000 0            312000000000 
FT1A	033472 0      0   0   000000004000 0            000000004000 
FT2	033472 0      0   0   0            0            000000004000 
FT2RQ	033472 0      0   0   000000004000 0            000000004000 
FT3	033472 0      0   0   000000004000 0            000000004000 
FT9	033473 0      0   0   000000004000 0            000000004000 
ET0	033474 0      0   0   0            0            000000004000 
ST1A	033474 0      0   0   0            0            000000004000 
ST9	033474 0      0   0   0            0            000000004000 


*033474 JUMPA	0,033475
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033474 033474 0   0   324000033475 0            000000033475 
IT1	033474 0      0   0   324000033475 0            000000033475 
AT3	033474 0      0   0   000000033475 0            324000033475 
AT6	033474 033475 0   0   000000033475 0            324000033475 
FT1A	033474 033475 0   0   000000033475 0            000000033475 
FT2	033474 033475 0   0   0            0            000000033475 
FT2RQ	033474 033475 0   0   000000004000 0            000000033475 
FT3	033474 033475 0   0   000000004000 0            000000033475 
FT9	033475 033475 0   0   000000004000 0            000000033475 
ET0	033475 033475 0   0   000000004000 0            000000033475 
ST1A	033475 033475 0   0   000000004000 0            000000033475 
ST9	033475 033475 0   0   000000004000 0            000000033475 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 515
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0794

*033475 MOVE 	0,035432
INITIAL
C(AC)=000000 004000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033475 033475 0   0   200000035432 0            000000010000 
IT1	033475 0      0   0   200000035432 0            000000010000 
AT3	033475 0      0   0   000000035432 0            200000035432 
AT6	033475 035432 0   0   000000035432 0            200000035432 
FT0	033475 035432 0   0   000000010000 0            200000035432 
FT1A	033475 035432 0   0   000000010000 0            000000010000 
FT9	033476 035432 0   0   000000010000 0            000000010000 
ET0	033476 035432 0   0   000000010000 0            000000010000 
ST1	033476 035432 0   0   000000010000 0            000000010000 
ST2	033476 035432 0   0   000000010000 0            000000010000 
ST9	033476 035432 0   0   000000010000 0            000000010000 


*033476 CAMN	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033476 033476 0   0   316000000000 0            000000010000 
IT1	033476 0      0   0   316000000000 0            000000010000 
AT3	033476 0      0   0   0            0            316000000000 
AT6	033476 0      0   0   0            0            316000000000 
FT0	033476 0      0   0   000000010000 0            316000000000 
FT1A	033476 0      0   0   000000010000 0            000000010000 
FT2	033476 0      0   0   0            0            000000010000 
FT2RQ	033476 0      0   0   000000010000 0            000000010000 
FT3	033476 0      0   0   000000010000 0            000000010000 
FT9	033477 0      0   0   000000010000 0            000000010000 
ET0	033477 0      0   0   0            0            000000010000 
ST1A	033477 0      0   0   0            0            000000010000 
ST9	033477 0      0   0   0            0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 516
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0795

*033477 CAME	0,000000
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033477 033477 0   0   312000000000 0            000000010000 
IT1	033477 0      0   0   312000000000 0            000000010000 
AT3	033477 0      0   0   0            0            312000000000 
AT6	033477 0      0   0   0            0            312000000000 
FT0	033477 0      0   0   000000010000 0            312000000000 
FT1A	033477 0      0   0   000000010000 0            000000010000 
FT2	033477 0      0   0   0            0            000000010000 
FT2RQ	033477 0      0   0   000000010000 0            000000010000 
FT3	033477 0      0   0   000000010000 0            000000010000 
FT9	0      0      0   0   000000010000 0            000000010000 
ET0	033501 0      0   0   0            0            000000010000 
ST1A	033501 0      0   0   0            0            000000010000 
ST9	033501 0      0   0   0            0            000000010000 


*033501 JUMPA	0,033502
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033501 033501 0   0   324000033502 0            000000033502 
IT1	033501 0      0   0   324000033502 0            000000033502 
AT3	033501 0      0   0   000000033502 0            324000033502 
AT6	033501 033502 0   0   000000033502 0            324000033502 
FT1A	033501 033502 0   0   000000033502 0            000000033502 
FT2	033501 033502 0   0   0            0            000000033502 
FT2RQ	033501 033502 0   0   000000010000 0            000000033502 
FT3	033501 033502 0   0   000000010000 0            000000033502 
FT9	033502 033502 0   0   000000010000 0            000000033502 
ET0	033502 033502 0   0   000000010000 0            000000033502 
ST1A	033502 033502 0   0   000000010000 0            000000033502 
ST9	033502 033502 0   0   000000010000 0            000000033502 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 517
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0796

*033502 MOVE 	0,035433
INITIAL
C(AC)=000000 010000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033502 033502 0   0   200000035433 0            000000020000 
IT1	033502 0      0   0   200000035433 0            000000020000 
AT3	033502 0      0   0   000000035433 0            200000035433 
AT6	033502 035433 0   0   000000035433 0            200000035433 
FT0	033502 035433 0   0   000000020000 0            200000035433 
FT1A	033502 035433 0   0   000000020000 0            000000020000 
FT9	033503 035433 0   0   000000020000 0            000000020000 
ET0	033503 035433 0   0   000000020000 0            000000020000 
ST1	033503 035433 0   0   000000020000 0            000000020000 
ST2	033503 035433 0   0   000000020000 0            000000020000 
ST9	033503 035433 0   0   000000020000 0            000000020000 


*033503 CAMN	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033503 033503 0   0   316000000000 0            000000020000 
IT1	033503 0      0   0   316000000000 0            000000020000 
AT3	033503 0      0   0   0            0            316000000000 
AT6	033503 0      0   0   0            0            316000000000 
FT0	033503 0      0   0   000000020000 0            316000000000 
FT1A	033503 0      0   0   000000020000 0            000000020000 
FT2	033503 0      0   0   0            0            000000020000 
FT2RQ	033503 0      0   0   000000020000 0            000000020000 
FT3	033503 0      0   0   000000020000 0            000000020000 
FT9	033504 0      0   0   000000020000 0            000000020000 
ET0	033504 0      0   0   0            0            000000020000 
ST1A	033504 0      0   0   0            0            000000020000 
ST9	033504 0      0   0   0            0            000000020000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 518
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0797

*033504 CAME	0,000000
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033504 033504 0   0   312000000000 0            000000020000 
IT1	033504 0      0   0   312000000000 0            000000020000 
AT3	033504 0      0   0   0            0            312000000000 
AT6	033504 0      0   0   0            0            312000000000 
FT0	033504 0      0   0   000000020000 0            312000000000 
FT1A	033504 0      0   0   000000020000 0            000000020000 
FT2	033504 0      0   0   0            0            000000020000 
FT2RQ	033504 0      0   0   000000020000 0            000000020000 
FT3	033504 0      0   0   000000020000 0            000000020000 
FT9	033505 0      0   0   000000020000 0            000000020000 
ET0	033506 0      0   0   0            0            000000020000 
ST1A	033506 0      0   0   0            0            000000020000 
ST9	033506 0      0   0   0            0            000000020000 


*033506 JUMPA	0,033507
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033506 033506 0   0   324000033507 0            000000033507 
IT1	033506 0      0   0   324000033507 0            000000033507 
AT3	033506 0      0   0   000000033507 0            324000033507 
AT6	033506 033507 0   0   000000033507 0            324000033507 
FT1A	033506 033507 0   0   000000033507 0            000000033507 
FT2	033506 033507 0   0   0            0            000000033507 
FT2RQ	033506 033507 0   0   000000020000 0            000000033507 
FT3	033506 033507 0   0   000000020000 0            000000033507 
FT9	033507 033507 0   0   000000020000 0            000000033507 
ET0	033507 033507 0   0   000000020000 0            000000033507 
ST1A	033507 033507 0   0   000000020000 0            000000033507 
ST9	033507 033507 0   0   000000020000 0            000000033507 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 519
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0798

*033507 MOVE 	0,035434
INITIAL
C(AC)=000000 020000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033507 033507 0   0   200000035434 0            000000040000 
IT1	033507 0      0   0   200000035434 0            000000040000 
AT3	033507 0      0   0   000000035434 0            200000035434 
AT6	033507 035434 0   0   000000035434 0            200000035434 
FT0	033507 035434 0   0   000000040000 0            200000035434 
FT1A	033507 035434 0   0   000000040000 0            000000040000 
FT9	033510 035434 0   0   000000040000 0            000000040000 
ET0	033510 035434 0   0   000000040000 0            000000040000 
ST1	033510 035434 0   0   000000040000 0            000000040000 
ST2	033510 035434 0   0   000000040000 0            000000040000 
ST9	033510 035434 0   0   000000040000 0            000000040000 


*033510 CAMN	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033510 033510 0   0   316000000000 0            000000040000 
IT1	033510 0      0   0   316000000000 0            000000040000 
AT3	033510 0      0   0   0            0            316000000000 
AT6	033510 0      0   0   0            0            316000000000 
FT0	033510 0      0   0   000000040000 0            316000000000 
FT1A	033510 0      0   0   000000040000 0            000000040000 
FT2	033510 0      0   0   0            0            000000040000 
FT2RQ	033510 0      0   0   000000040000 0            000000040000 
FT3	033510 0      0   0   000000040000 0            000000040000 
FT9	033511 0      0   0   000000040000 0            000000040000 
ET0	033511 0      0   0   0            0            000000040000 
ST1A	033511 0      0   0   0            0            000000040000 
ST9	033511 0      0   0   0            0            000000040000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 520
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0799

*033511 CAME	0,000000
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033511 033511 0   0   312000000000 0            000000040000 
IT1	033511 0      0   0   312000000000 0            000000040000 
AT3	033511 0      0   0   0            0            312000000000 
AT6	033511 0      0   0   0            0            312000000000 
FT0	033511 0      0   0   000000040000 0            312000000000 
FT1A	033511 0      0   0   000000040000 0            000000040000 
FT2	033511 0      0   0   0            0            000000040000 
FT2RQ	033511 0      0   0   000000040000 0            000000040000 
FT3	033511 0      0   0   000000040000 0            000000040000 
FT9	033512 0      0   0   000000040000 0            000000040000 
ET0	033513 0      0   0   0            0            000000040000 
ST1A	033513 0      0   0   0            0            000000040000 
ST9	033513 0      0   0   0            0            000000040000 


*033513 JUMPA	0,033514
INITIAL
C(AC)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033513 033513 0   0   324000033514 0            000000033514 
IT1	033513 0      0   0   324000033514 0            000000033514 
AT3	033513 0      0   0   000000033514 0            324000033514 
AT6	033513 033514 0   0   000000033514 0            324000033514 
FT1A	033513 033514 0   0   000000033514 0            000000033514 
FT2	033513 033514 0   0   0            0            000000033514 
FT2RQ	033513 033514 0   0   000000040000 0            000000033514 
FT3	033513 033514 0   0   000000040000 0            000000033514 
FT9	033514 033514 0   0   000000040000 0            000000033514 
ET0	033514 033514 0   0   000000040000 0            000000033514 
ST1A	033514 033514 0   0   000000040000 0            000000033514 
ST9	033514 033514 0   0   000000040000 0            000000033514 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 521
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0800

*033514 MOVE 	0,035435
INITIAL
C(AC)=000000 040000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033514 033514 0   0   200000035435 0            000000100000 
IT1	033514 0      0   0   200000035435 0            000000100000 
AT3	033514 0      0   0   000000035435 0            200000035435 
AT6	033514 035435 0   0   000000035435 0            200000035435 
FT0	033514 035435 0   0   000000100000 0            200000035435 
FT1A	033514 035435 0   0   000000100000 0            000000100000 
FT9	033515 035435 0   0   000000100000 0            000000100000 
ET0	033515 035435 0   0   000000100000 0            000000100000 
ST1	033515 035435 0   0   000000100000 0            000000100000 
ST2	033515 035435 0   0   000000100000 0            000000100000 
ST9	033515 035435 0   0   000000100000 0            000000100000 


*033515 CAMN	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033515 033515 0   0   316000000000 0            000000100000 
IT1	033515 0      0   0   316000000000 0            000000100000 
AT3	033515 0      0   0   0            0            316000000000 
AT6	033515 0      0   0   0            0            316000000000 
FT0	033515 0      0   0   000000100000 0            316000000000 
FT1A	033515 0      0   0   000000100000 0            000000100000 
FT2	033515 0      0   0   0            0            000000100000 
FT2RQ	033515 0      0   0   000000100000 0            000000100000 
FT3	033515 0      0   0   000000100000 0            000000100000 
FT9	033516 0      0   0   000000100000 0            000000100000 
ET0	033516 0      0   0   0            0            000000100000 
ST1A	033516 0      0   0   0            0            000000100000 
ST9	033516 0      0   0   0            0            000000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 522
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0801

*033516 CAME	0,000000
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033516 033516 0   0   312000000000 0            000000100000 
IT1	033516 0      0   0   312000000000 0            000000100000 
AT3	033516 0      0   0   0            0            312000000000 
AT6	033516 0      0   0   0            0            312000000000 
FT0	033516 0      0   0   000000100000 0            312000000000 
FT1A	033516 0      0   0   000000100000 0            000000100000 
FT2	033516 0      0   0   0            0            000000100000 
FT2RQ	033516 0      0   0   000000100000 0            000000100000 
FT3	033516 0      0   0   000000100000 0            000000100000 
FT9	033517 0      0   0   000000100000 0            000000100000 
ET0	033520 0      0   0   0            0            000000100000 
ST1A	033520 0      0   0   0            0            000000100000 
ST9	033520 0      0   0   0            0            000000100000 


*033520 JUMPA	0,033521
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033520 033520 0   0   324000033521 0            000000033521 
IT1	033520 0      0   0   324000033521 0            000000033521 
AT3	033520 0      0   0   000000033521 0            324000033521 
AT6	033520 033521 0   0   000000033521 0            324000033521 
FT1A	033520 033521 0   0   000000033521 0            000000033521 
FT2	033520 033521 0   0   0            0            000000033521 
FT2RQ	033520 033521 0   0   000000100000 0            000000033521 
FT3	033520 033521 0   0   000000100000 0            000000033521 
FT9	033521 033521 0   0   000000100000 0            000000033521 
ET0	033521 033521 0   0   000000100000 0            000000033521 
ST1A	033521 033521 0   0   000000100000 0            000000033521 
ST9	033521 033521 0   0   000000100000 0            000000033521 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 523
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0802

*033521 MOVE 	0,035436
INITIAL
C(AC)=000000 100000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033521 033521 0   0   200000035436 0            000000200000 
IT1	033521 0      0   0   200000035436 0            000000200000 
AT3	033521 0      0   0   000000035436 0            200000035436 
AT6	033521 035436 0   0   000000035436 0            200000035436 
FT0	033521 035436 0   0   000000200000 0            200000035436 
FT1A	033521 035436 0   0   000000200000 0            000000200000 
FT9	033522 035436 0   0   000000200000 0            000000200000 
ET0	033522 035436 0   0   000000200000 0            000000200000 
ST1	033522 035436 0   0   000000200000 0            000000200000 
ST2	033522 035436 0   0   000000200000 0            000000200000 
ST9	033522 035436 0   0   000000200000 0            000000200000 


*033522 CAMN	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033522 033522 0   0   316000000000 0            000000200000 
IT1	033522 0      0   0   316000000000 0            000000200000 
AT3	033522 0      0   0   0            0            316000000000 
AT6	033522 0      0   0   0            0            316000000000 
FT0	033522 0      0   0   000000200000 0            316000000000 
FT1A	033522 0      0   0   000000200000 0            000000200000 
FT2	033522 0      0   0   0            0            000000200000 
FT2RQ	033522 0      0   0   000000200000 0            000000200000 
FT3	033522 0      0   0   000000200000 0            000000200000 
FT9	033523 0      0   0   000000200000 0            000000200000 
ET0	033523 0      0   0   0            0            000000200000 
ST1A	033523 0      0   0   0            0            000000200000 
ST9	033523 0      0   0   0            0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 524
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0803

*033523 CAME	0,000000
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033523 033523 0   0   312000000000 0            000000200000 
IT1	033523 0      0   0   312000000000 0            000000200000 
AT3	033523 0      0   0   0            0            312000000000 
AT6	033523 0      0   0   0            0            312000000000 
FT0	033523 0      0   0   000000200000 0            312000000000 
FT1A	033523 0      0   0   000000200000 0            000000200000 
FT2	033523 0      0   0   0            0            000000200000 
FT2RQ	033523 0      0   0   000000200000 0            000000200000 
FT3	033523 0      0   0   000000200000 0            000000200000 
FT9	033524 0      0   0   000000200000 0            000000200000 
ET0	033525 0      0   0   0            0            000000200000 
ST1A	033525 0      0   0   0            0            000000200000 
ST9	033525 0      0   0   0            0            000000200000 


*033525 JUMPA	0,033526
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033525 033525 0   0   324000033526 0            000000033526 
IT1	033525 0      0   0   324000033526 0            000000033526 
AT3	033525 0      0   0   000000033526 0            324000033526 
AT6	033525 033526 0   0   000000033526 0            324000033526 
FT1A	033525 033526 0   0   000000033526 0            000000033526 
FT2	033525 033526 0   0   0            0            000000033526 
FT2RQ	033525 033526 0   0   000000200000 0            000000033526 
FT3	033525 033526 0   0   000000200000 0            000000033526 
FT9	033526 033526 0   0   000000200000 0            000000033526 
ET0	033526 033526 0   0   000000200000 0            000000033526 
ST1A	033526 033526 0   0   000000200000 0            000000033526 
ST9	033526 033526 0   0   000000200000 0            000000033526 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 525
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0804

*033526 MOVE 	0,035437
INITIAL
C(AC)=000000 200000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033526 033526 0   0   200000035437 0            000000400000 
IT1	033526 0      0   0   200000035437 0            000000400000 
AT3	033526 0      0   0   000000035437 0            200000035437 
AT6	033526 035437 0   0   000000035437 0            200000035437 
FT0	033526 035437 0   0   000000400000 0            200000035437 
FT1A	033526 035437 0   0   000000400000 0            000000400000 
FT9	033527 035437 0   0   000000400000 0            000000400000 
ET0	033527 035437 0   0   000000400000 0            000000400000 
ST1	033527 035437 0   0   000000400000 0            000000400000 
ST2	033527 035437 0   0   000000400000 0            000000400000 
ST9	033527 035437 0   0   000000400000 0            000000400000 


*033527 CAMN	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033527 033527 0   0   316000000000 0            000000400000 
IT1	033527 0      0   0   316000000000 0            000000400000 
AT3	033527 0      0   0   0            0            316000000000 
AT6	033527 0      0   0   0            0            316000000000 
FT0	033527 0      0   0   000000400000 0            316000000000 
FT1A	033527 0      0   0   000000400000 0            000000400000 
FT2	033527 0      0   0   0            0            000000400000 
FT2RQ	033527 0      0   0   000000400000 0            000000400000 
FT3	033527 0      0   0   000000400000 0            000000400000 
FT9	033530 0      0   0   000000400000 0            000000400000 
ET0	033530 0      0   0   0            0            000000400000 
ST1A	033530 0      0   0   0            0            000000400000 
ST9	033530 0      0   0   0            0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 526
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0805

*033530 CAME	0,000000
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033530 033530 0   0   312000000000 0            000000400000 
IT1	033530 0      0   0   312000000000 0            000000400000 
AT3	033530 0      0   0   0            0            312000000000 
AT6	033530 0      0   0   0            0            312000000000 
FT0	033530 0      0   0   000000400000 0            312000000000 
FT1A	033530 0      0   0   000000400000 0            000000400000 
FT2	033530 0      0   0   0            0            000000400000 
FT2RQ	033530 0      0   0   000000400000 0            000000400000 
FT3	033530 0      0   0   000000400000 0            000000400000 
FT9	033531 0      0   0   000000400000 0            000000400000 
ET0	033532 0      0   0   0            0            000000400000 
ST1A	033532 0      0   0   0            0            000000400000 
ST9	033532 0      0   0   0            0            000000400000 


*033532 JUMPA	0,033533
INITIAL
C(AC)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033532 033532 0   0   324000033533 0            000000033533 
IT1	033532 0      0   0   324000033533 0            000000033533 
AT3	033532 0      0   0   000000033533 0            324000033533 
AT6	033532 033533 0   0   000000033533 0            324000033533 
FT1A	033532 033533 0   0   000000033533 0            000000033533 
FT2	033532 033533 0   0   0            0            000000033533 
FT2RQ	033532 033533 0   0   000000400000 0            000000033533 
FT3	033532 033533 0   0   000000400000 0            000000033533 
FT9	033533 033533 0   0   000000400000 0            000000033533 
ET0	033533 033533 0   0   000000400000 0            000000033533 
ST1A	033533 033533 0   0   000000400000 0            000000033533 
ST9	033533 033533 0   0   000000400000 0            000000033533 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 527
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0806

*033533 MOVE 	0,035440
INITIAL
C(AC)=000000 400000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033533 033533 0   0   200000035440 0            000001000000 
IT1	033533 0      0   0   200000035440 0            000001000000 
AT3	033533 0      0   0   000000035440 0            200000035440 
AT6	033533 035440 0   0   000000035440 0            200000035440 
FT0	033533 035440 0   0   000001000000 0            200000035440 
FT1A	033533 035440 0   0   000001000000 0            000001000000 
FT9	033534 035440 0   0   000001000000 0            000001000000 
ET0	033534 035440 0   0   000001000000 0            000001000000 
ST1	033534 035440 0   0   000001000000 0            000001000000 
ST2	033534 035440 0   0   000001000000 0            000001000000 
ST9	033534 035440 0   0   000001000000 0            000001000000 


*033534 CAMN	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033534 033534 0   0   316000000000 0            000001000000 
IT1	033534 0      0   0   316000000000 0            000001000000 
AT3	033534 0      0   0   0            0            316000000000 
AT6	033534 0      0   0   0            0            316000000000 
FT0	033534 0      0   0   000001000000 0            316000000000 
FT1A	033534 0      0   0   000001000000 0            000001000000 
FT2	033534 0      0   0   0            0            000001000000 
FT2RQ	033534 0      0   0   000001000000 0            000001000000 
FT3	033534 0      0   0   000001000000 0            000001000000 
FT9	033535 0      0   0   000001000000 0            000001000000 
ET0	033535 0      0   0   0            0            000001000000 
ST1A	033535 0      0   0   0            0            000001000000 
ST9	033535 0      0   0   0            0            000001000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 528
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0807

*033535 CAME	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033535 033535 0   0   312000000000 0            000001000000 
IT1	033535 0      0   0   312000000000 0            000001000000 
AT3	033535 0      0   0   0            0            312000000000 
AT6	033535 0      0   0   0            0            312000000000 
FT0	033535 0      0   0   000001000000 0            312000000000 
FT1A	033535 0      0   0   000001000000 0            000001000000 
FT2	033535 0      0   0   0            0            000001000000 
FT2RQ	033535 0      0   0   000001000000 0            000001000000 
FT3	033535 0      0   0   000001000000 0            000001000000 
FT9	033536 0      0   0   000001000000 0            000001000000 
ET0	033537 0      0   0   0            0            000001000000 
ST1A	033537 0      0   0   0            0            000001000000 
ST9	033537 0      0   0   0            0            000001000000 


*033537 JUMPA	0,033540
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033537 033537 0   0   324000033540 0            000000033540 
IT1	033537 0      0   0   324000033540 0            000000033540 
AT3	033537 0      0   0   000000033540 0            324000033540 
AT6	033537 033540 0   0   000000033540 0            324000033540 
FT1A	033537 033540 0   0   000000033540 0            000000033540 
FT2	033537 033540 0   0   0            0            000000033540 
FT2RQ	033537 033540 0   0   000001000000 0            000000033540 
FT3	033537 033540 0   0   000001000000 0            000000033540 
FT9	033540 033540 0   0   000001000000 0            000000033540 
ET0	033540 033540 0   0   000001000000 0            000000033540 
ST1A	033540 033540 0   0   000001000000 0            000000033540 
ST9	033540 033540 0   0   000001000000 0            000000033540 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 529
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0808

*033540 MOVE 	0,035441
INITIAL
C(AC)=000001 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033540 033540 0   0   200000035441 0            000002000000 
IT1	033540 0      0   0   200000035441 0            000002000000 
AT3	033540 0      0   0   000000035441 0            200000035441 
AT6	033540 035441 0   0   000000035441 0            200000035441 
FT0	033540 035441 0   0   000002000000 0            200000035441 
FT1A	033540 035441 0   0   000002000000 0            000002000000 
FT9	033541 035441 0   0   000002000000 0            000002000000 
ET0	033541 035441 0   0   000002000000 0            000002000000 
ST1	033541 035441 0   0   000002000000 0            000002000000 
ST2	033541 035441 0   0   000002000000 0            000002000000 
ST9	033541 035441 0   0   000002000000 0            000002000000 


*033541 CAMN	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033541 033541 0   0   316000000000 0            000002000000 
IT1	033541 0      0   0   316000000000 0            000002000000 
AT3	033541 0      0   0   0            0            316000000000 
AT6	033541 0      0   0   0            0            316000000000 
FT0	033541 0      0   0   000002000000 0            316000000000 
FT1A	033541 0      0   0   000002000000 0            000002000000 
FT2	033541 0      0   0   0            0            000002000000 
FT2RQ	033541 0      0   0   000002000000 0            000002000000 
FT3	033541 0      0   0   000002000000 0            000002000000 
FT9	033542 0      0   0   000002000000 0            000002000000 
ET0	033542 0      0   0   0            0            000002000000 
ST1A	033542 0      0   0   0            0            000002000000 
ST9	033542 0      0   0   0            0            000002000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 530
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0809

*033542 CAME	0,000000
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033542 033542 0   0   312000000000 0            000002000000 
IT1	033542 0      0   0   312000000000 0            000002000000 
AT3	033542 0      0   0   0            0            312000000000 
AT6	033542 0      0   0   0            0            312000000000 
FT0	033542 0      0   0   000002000000 0            312000000000 
FT1A	033542 0      0   0   000002000000 0            000002000000 
FT2	033542 0      0   0   0            0            000002000000 
FT2RQ	033542 0      0   0   000002000000 0            000002000000 
FT3	033542 0      0   0   000002000000 0            000002000000 
FT9	033543 0      0   0   000002000000 0            000002000000 
ET0	033544 0      0   0   0            0            000002000000 
ST1A	033544 0      0   0   0            0            000002000000 
ST9	033544 0      0   0   0            0            000002000000 


*033544 JUMPA	0,033545
INITIAL
C(AC)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033544 033544 0   0   324000033545 0            000000033545 
IT1	033544 0      0   0   324000033545 0            000000033545 
AT3	033544 0      0   0   000000033545 0            324000033545 
AT6	033544 033545 0   0   000000033545 0            324000033545 
FT1A	033544 033545 0   0   000000033545 0            000000033545 
FT2	033544 033545 0   0   0            0            000000033545 
FT2RQ	033544 033545 0   0   000002000000 0            000000033545 
FT3	033544 033545 0   0   000002000000 0            000000033545 
FT9	033545 033545 0   0   000002000000 0            000000033545 
ET0	033545 033545 0   0   000002000000 0            000000033545 
ST1A	033545 033545 0   0   000002000000 0            000000033545 
ST9	033545 033545 0   0   000002000000 0            000000033545 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 531
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0810

*033545 MOVE 	0,035442
INITIAL
C(AC)=000002 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033545 033545 0   0   200000035442 0            000004000000 
IT1	033545 0      0   0   200000035442 0            000004000000 
AT3	033545 0      0   0   000000035442 0            200000035442 
AT6	033545 035442 0   0   000000035442 0            200000035442 
FT0	033545 035442 0   0   000004000000 0            200000035442 
FT1A	033545 035442 0   0   000004000000 0            000004000000 
FT9	033546 035442 0   0   000004000000 0            000004000000 
ET0	033546 035442 0   0   000004000000 0            000004000000 
ST1	033546 035442 0   0   000004000000 0            000004000000 
ST2	033546 035442 0   0   000004000000 0            000004000000 
ST9	033546 035442 0   0   000004000000 0            000004000000 


*033546 CAMN	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033546 033546 0   0   316000000000 0            000004000000 
IT1	033546 0      0   0   316000000000 0            000004000000 
AT3	033546 0      0   0   0            0            316000000000 
AT6	033546 0      0   0   0            0            316000000000 
FT0	033546 0      0   0   000004000000 0            316000000000 
FT1A	033546 0      0   0   000004000000 0            000004000000 
FT2	033546 0      0   0   0            0            000004000000 
FT2RQ	033546 0      0   0   000004000000 0            000004000000 
FT3	033546 0      0   0   000004000000 0            000004000000 
FT9	033547 0      0   0   000004000000 0            000004000000 
ET0	033547 0      0   0   0            0            000004000000 
ST1A	033547 0      0   0   0            0            000004000000 
ST9	033547 0      0   0   0            0            000004000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 532
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0811

*033547 CAME	0,000000
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033547 033547 0   0   312000000000 0            000004000000 
IT1	033547 0      0   0   312000000000 0            000004000000 
AT3	033547 0      0   0   0            0            312000000000 
AT6	033547 0      0   0   0            0            312000000000 
FT0	033547 0      0   0   000004000000 0            312000000000 
FT1A	033547 0      0   0   000004000000 0            000004000000 
FT2	033547 0      0   0   0            0            000004000000 
FT2RQ	033547 0      0   0   000004000000 0            000004000000 
FT3	033547 0      0   0   000004000000 0            000004000000 
FT9	033550 0      0   0   000004000000 0            000004000000 
ET0	033551 0      0   0   0            0            000004000000 
ST1A	033551 0      0   0   0            0            000004000000 
ST9	033551 0      0   0   0            0            000004000000 


*033551 JUMPA	0,033552
INITIAL
C(AC)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033551 033551 0   0   324000033552 0            000000033552 
IT1	033551 0      0   0   324000033552 0            000000033552 
AT3	033551 0      0   0   000000033552 0            324000033552 
AT6	033551 033552 0   0   000000033552 0            324000033552 
FT1A	033551 033552 0   0   000000033552 0            000000033552 
FT2	033551 033552 0   0   0            0            000000033552 
FT2RQ	033551 033552 0   0   000004000000 0            000000033552 
FT3	033551 033552 0   0   000004000000 0            000000033552 
FT9	033552 033552 0   0   000004000000 0            000000033552 
ET0	033552 033552 0   0   000004000000 0            000000033552 
ST1A	033552 033552 0   0   000004000000 0            000000033552 
ST9	033552 033552 0   0   000004000000 0            000000033552 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 533
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0812

*033552 MOVE 	0,035443
INITIAL
C(AC)=000004 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033552 033552 0   0   200000035443 0            000010000000 
IT1	033552 0      0   0   200000035443 0            000010000000 
AT3	033552 0      0   0   000000035443 0            200000035443 
AT6	033552 035443 0   0   000000035443 0            200000035443 
FT0	033552 035443 0   0   000010000000 0            200000035443 
FT1A	033552 035443 0   0   000010000000 0            000010000000 
FT9	033553 035443 0   0   000010000000 0            000010000000 
ET0	033553 035443 0   0   000010000000 0            000010000000 
ST1	033553 035443 0   0   000010000000 0            000010000000 
ST2	033553 035443 0   0   000010000000 0            000010000000 
ST9	033553 035443 0   0   000010000000 0            000010000000 


*033553 CAMN	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033553 033553 0   0   316000000000 0            000010000000 
IT1	033553 0      0   0   316000000000 0            000010000000 
AT3	033553 0      0   0   0            0            316000000000 
AT6	033553 0      0   0   0            0            316000000000 
FT0	033553 0      0   0   000010000000 0            316000000000 
FT1A	033553 0      0   0   000010000000 0            000010000000 
FT2	033553 0      0   0   0            0            000010000000 
FT2RQ	033553 0      0   0   000010000000 0            000010000000 
FT3	033553 0      0   0   000010000000 0            000010000000 
FT9	033554 0      0   0   000010000000 0            000010000000 
ET0	033554 0      0   0   0            0            000010000000 
ST1A	033554 0      0   0   0            0            000010000000 
ST9	033554 0      0   0   0            0            000010000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 534
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0813

*033554 CAME	0,000000
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033554 033554 0   0   312000000000 0            000010000000 
IT1	033554 0      0   0   312000000000 0            000010000000 
AT3	033554 0      0   0   0            0            312000000000 
AT6	033554 0      0   0   0            0            312000000000 
FT0	033554 0      0   0   000010000000 0            312000000000 
FT1A	033554 0      0   0   000010000000 0            000010000000 
FT2	033554 0      0   0   0            0            000010000000 
FT2RQ	033554 0      0   0   000010000000 0            000010000000 
FT3	033554 0      0   0   000010000000 0            000010000000 
FT9	033555 0      0   0   000010000000 0            000010000000 
ET0	033556 0      0   0   0            0            000010000000 
ST1A	033556 0      0   0   0            0            000010000000 
ST9	033556 0      0   0   0            0            000010000000 


*033556 JUMPA	0,033557
INITIAL
C(AC)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033556 033556 0   0   324000033557 0            000000033557 
IT1	033556 0      0   0   324000033557 0            000000033557 
AT3	033556 0      0   0   000000033557 0            324000033557 
AT6	033556 033557 0   0   000000033557 0            324000033557 
FT1A	033556 033557 0   0   000000033557 0            000000033557 
FT2	033556 033557 0   0   0            0            000000033557 
FT2RQ	033556 033557 0   0   000010000000 0            000000033557 
FT3	033556 033557 0   0   000010000000 0            000000033557 
FT9	033557 033557 0   0   000010000000 0            000000033557 
ET0	033557 033557 0   0   000010000000 0            000000033557 
ST1A	033557 033557 0   0   000010000000 0            000000033557 
ST9	033557 033557 0   0   000010000000 0            000000033557 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 535
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0814

*033557 MOVE 	0,035444
INITIAL
C(AC)=000010 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033557 033557 0   0   200000035444 0            000020000000 
IT1	033557 0      0   0   200000035444 0            000020000000 
AT3	033557 0      0   0   000000035444 0            200000035444 
AT6	033557 035444 0   0   000000035444 0            200000035444 
FT0	033557 035444 0   0   000020000000 0            200000035444 
FT1A	033557 035444 0   0   000020000000 0            000020000000 
FT9	033560 035444 0   0   000020000000 0            000020000000 
ET0	033560 035444 0   0   000020000000 0            000020000000 
ST1	033560 035444 0   0   000020000000 0            000020000000 
ST2	033560 035444 0   0   000020000000 0            000020000000 
ST9	033560 035444 0   0   000020000000 0            000020000000 


*033560 CAMN	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033560 033560 0   0   316000000000 0            000020000000 
IT1	033560 0      0   0   316000000000 0            000020000000 
AT3	033560 0      0   0   0            0            316000000000 
AT6	033560 0      0   0   0            0            316000000000 
FT0	033560 0      0   0   000020000000 0            316000000000 
FT1A	033560 0      0   0   000020000000 0            000020000000 
FT2	033560 0      0   0   0            0            000020000000 
FT2RQ	033560 0      0   0   000020000000 0            000020000000 
FT3	033560 0      0   0   000020000000 0            000020000000 
FT9	033561 0      0   0   000020000000 0            000020000000 
ET0	033561 0      0   0   0            0            000020000000 
ST1A	033561 0      0   0   0            0            000020000000 
ST9	033561 0      0   0   0            0            000020000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 536
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0815

*033561 CAME	0,000000
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033561 033561 0   0   312000000000 0            000020000000 
IT1	033561 0      0   0   312000000000 0            000020000000 
AT3	033561 0      0   0   0            0            312000000000 
AT6	033561 0      0   0   0            0            312000000000 
FT0	033561 0      0   0   000020000000 0            312000000000 
FT1A	033561 0      0   0   000020000000 0            000020000000 
FT2	033561 0      0   0   0            0            000020000000 
FT2RQ	033561 0      0   0   000020000000 0            000020000000 
FT3	033561 0      0   0   000020000000 0            000020000000 
FT9	033562 0      0   0   000020000000 0            000020000000 
ET0	033563 0      0   0   0            0            000020000000 
ST1A	033563 0      0   0   0            0            000020000000 
ST9	033563 0      0   0   0            0            000020000000 


*033563 JUMPA	0,033564
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033563 033563 0   0   324000033564 0            000000033564 
IT1	033563 0      0   0   324000033564 0            000000033564 
AT3	033563 0      0   0   000000033564 0            324000033564 
AT6	033563 033564 0   0   000000033564 0            324000033564 
FT1A	033563 033564 0   0   000000033564 0            000000033564 
FT2	033563 033564 0   0   0            0            000000033564 
FT2RQ	033563 033564 0   0   000020000000 0            000000033564 
FT3	033563 033564 0   0   000020000000 0            000000033564 
FT9	033564 033564 0   0   000020000000 0            000000033564 
ET0	033564 033564 0   0   000020000000 0            000000033564 
ST1A	033564 033564 0   0   000020000000 0            000000033564 
ST9	033564 033564 0   0   000020000000 0            000000033564 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 537
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0816

*033564 MOVE 	0,035445
INITIAL
C(AC)=000020 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033564 033564 0   0   200000035445 0            000040000000 
IT1	033564 0      0   0   200000035445 0            000040000000 
AT3	033564 0      0   0   000000035445 0            200000035445 
AT6	033564 035445 0   0   000000035445 0            200000035445 
FT0	033564 035445 0   0   000040000000 0            200000035445 
FT1A	033564 035445 0   0   000040000000 0            000040000000 
FT9	033565 035445 0   0   000040000000 0            000040000000 
ET0	033565 035445 0   0   000040000000 0            000040000000 
ST1	033565 035445 0   0   000040000000 0            000040000000 
ST2	033565 035445 0   0   000040000000 0            000040000000 
ST9	033565 035445 0   0   000040000000 0            000040000000 


*033565 CAMN	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033565 033565 0   0   316000000000 0            000040000000 
IT1	033565 0      0   0   316000000000 0            000040000000 
AT3	033565 0      0   0   0            0            316000000000 
AT6	033565 0      0   0   0            0            316000000000 
FT0	033565 0      0   0   000040000000 0            316000000000 
FT1A	033565 0      0   0   000040000000 0            000040000000 
FT2	033565 0      0   0   0            0            000040000000 
FT2RQ	033565 0      0   0   000040000000 0            000040000000 
FT3	033565 0      0   0   000040000000 0            000040000000 
FT9	033566 0      0   0   000040000000 0            000040000000 
ET0	033566 0      0   0   0            0            000040000000 
ST1A	033566 0      0   0   0            0            000040000000 
ST9	033566 0      0   0   0            0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 538
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0817

*033566 CAME	0,000000
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033566 033566 0   0   312000000000 0            000040000000 
IT1	033566 0      0   0   312000000000 0            000040000000 
AT3	033566 0      0   0   0            0            312000000000 
AT6	033566 0      0   0   0            0            312000000000 
FT0	033566 0      0   0   000040000000 0            312000000000 
FT1A	033566 0      0   0   000040000000 0            000040000000 
FT2	033566 0      0   0   0            0            000040000000 
FT2RQ	033566 0      0   0   000040000000 0            000040000000 
FT3	033566 0      0   0   000040000000 0            000040000000 
FT9	033567 0      0   0   000040000000 0            000040000000 
ET0	033570 0      0   0   0            0            000040000000 
ST1A	033570 0      0   0   0            0            000040000000 
ST9	033570 0      0   0   0            0            000040000000 


*033570 JUMPA	0,033571
INITIAL
C(AC)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033570 033570 0   0   324000033571 0            000000033571 
IT1	033570 0      0   0   324000033571 0            000000033571 
AT3	033570 0      0   0   000000033571 0            324000033571 
AT6	033570 033571 0   0   000000033571 0            324000033571 
FT1A	033570 033571 0   0   000000033571 0            000000033571 
FT2	033570 033571 0   0   0            0            000000033571 
FT2RQ	033570 033571 0   0   000040000000 0            000000033571 
FT3	033570 033571 0   0   000040000000 0            000000033571 
FT9	033571 033571 0   0   000040000000 0            000000033571 
ET0	033571 033571 0   0   000040000000 0            000000033571 
ST1A	033571 033571 0   0   000040000000 0            000000033571 
ST9	033571 033571 0   0   000040000000 0            000000033571 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 539
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0818

*033571 MOVE 	0,035446
INITIAL
C(AC)=000040 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033571 033571 0   0   200000035446 0            000100000000 
IT1	033571 0      0   0   200000035446 0            000100000000 
AT3	033571 0      0   0   000000035446 0            200000035446 
AT6	033571 035446 0   0   000000035446 0            200000035446 
FT0	033571 035446 0   0   000100000000 0            200000035446 
FT1A	033571 035446 0   0   000100000000 0            000100000000 
FT9	033572 035446 0   0   000100000000 0            000100000000 
ET0	033572 035446 0   0   000100000000 0            000100000000 
ST1	033572 035446 0   0   000100000000 0            000100000000 
ST2	033572 035446 0   0   000100000000 0            000100000000 
ST9	033572 035446 0   0   000100000000 0            000100000000 


*033572 CAMN	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033572 033572 0   0   316000000000 0            000100000000 
IT1	033572 0      0   0   316000000000 0            000100000000 
AT3	033572 0      0   0   0            0            316000000000 
AT6	033572 0      0   0   0            0            316000000000 
FT0	033572 0      0   0   000100000000 0            316000000000 
FT1A	033572 0      0   0   000100000000 0            000100000000 
FT2	033572 0      0   0   0            0            000100000000 
FT2RQ	033572 0      0   0   000100000000 0            000100000000 
FT3	033572 0      0   0   000100000000 0            000100000000 
FT9	033573 0      0   0   000100000000 0            000100000000 
ET0	033573 0      0   0   0            0            000100000000 
ST1A	033573 0      0   0   0            0            000100000000 
ST9	033573 0      0   0   0            0            000100000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 540
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0819

*033573 CAME	0,000000
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033573 033573 0   0   312000000000 0            000100000000 
IT1	033573 0      0   0   312000000000 0            000100000000 
AT3	033573 0      0   0   0            0            312000000000 
AT6	033573 0      0   0   0            0            312000000000 
FT0	033573 0      0   0   000100000000 0            312000000000 
FT1A	033573 0      0   0   000100000000 0            000100000000 
FT2	033573 0      0   0   0            0            000100000000 
FT2RQ	033573 0      0   0   000100000000 0            000100000000 
FT3	033573 0      0   0   000100000000 0            000100000000 
FT9	033574 0      0   0   000100000000 0            000100000000 
ET0	033575 0      0   0   0            0            000100000000 
ST1A	033575 0      0   0   0            0            000100000000 
ST9	033575 0      0   0   0            0            000100000000 


*033575 JUMPA	0,033576
INITIAL
C(AC)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033575 033575 0   0   324000033576 0            000000033576 
IT1	033575 0      0   0   324000033576 0            000000033576 
AT3	033575 0      0   0   000000033576 0            324000033576 
AT6	033575 033576 0   0   000000033576 0            324000033576 
FT1A	033575 033576 0   0   000000033576 0            000000033576 
FT2	033575 033576 0   0   0            0            000000033576 
FT2RQ	033575 033576 0   0   000100000000 0            000000033576 
FT3	033575 033576 0   0   000100000000 0            000000033576 
FT9	033576 033576 0   0   000100000000 0            000000033576 
ET0	033576 033576 0   0   000100000000 0            000000033576 
ST1A	033576 033576 0   0   000100000000 0            000000033576 
ST9	033576 033576 0   0   000100000000 0            000000033576 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 541
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0820

*033576 MOVE 	0,035447
INITIAL
C(AC)=000100 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033576 033576 0   0   200000035447 0            000200000000 
IT1	033576 0      0   0   200000035447 0            000200000000 
AT3	033576 0      0   0   000000035447 0            200000035447 
AT6	033576 035447 0   0   000000035447 0            200000035447 
FT0	033576 035447 0   0   000200000000 0            200000035447 
FT1A	033576 035447 0   0   000200000000 0            000200000000 
FT9	033577 035447 0   0   000200000000 0            000200000000 
ET0	033577 035447 0   0   000200000000 0            000200000000 
ST1	033577 035447 0   0   000200000000 0            000200000000 
ST2	033577 035447 0   0   000200000000 0            000200000000 
ST9	033577 035447 0   0   000200000000 0            000200000000 


*033577 CAMN	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033577 033577 0   0   316000000000 0            000200000000 
IT1	033577 0      0   0   316000000000 0            000200000000 
AT3	033577 0      0   0   0            0            316000000000 
AT6	033577 0      0   0   0            0            316000000000 
FT0	033577 0      0   0   000200000000 0            316000000000 
FT1A	033577 0      0   0   000200000000 0            000200000000 
FT2	033577 0      0   0   0            0            000200000000 
FT2RQ	033577 0      0   0   000200000000 0            000200000000 
FT3	033577 0      0   0   000200000000 0            000200000000 
FT9	0      0      0   0   000200000000 0            000200000000 
ET0	0      0      0   0   0            0            000200000000 
ST1A	0      0      0   0   0            0            000200000000 
ST9	0      0      0   0   0            0            000200000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 542
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0821

*033600 CAME	0,000000
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312000000000 0            000200000000 
IT1	0      0      0   0   312000000000 0            000200000000 
AT3	0      0      0   0   0            0            312000000000 
AT6	0      0      0   0   0            0            312000000000 
FT0	0      0      0   0   000200000000 0            312000000000 
FT1A	0      0      0   0   000200000000 0            000200000000 
FT2	0      0      0   0   0            0            000200000000 
FT2RQ	0      0      0   0   000200000000 0            000200000000 
FT3	0      0      0   0   000200000000 0            000200000000 
FT9	033601 0      0   0   000200000000 0            000200000000 
ET0	033602 0      0   0   0            0            000200000000 
ST1A	033602 0      0   0   0            0            000200000000 
ST9	033602 0      0   0   0            0            000200000000 


*033602 JUMPA	0,033603
INITIAL
C(AC)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033602 033602 0   0   324000033603 0            000000033603 
IT1	033602 0      0   0   324000033603 0            000000033603 
AT3	033602 0      0   0   000000033603 0            324000033603 
AT6	033602 033603 0   0   000000033603 0            324000033603 
FT1A	033602 033603 0   0   000000033603 0            000000033603 
FT2	033602 033603 0   0   0            0            000000033603 
FT2RQ	033602 033603 0   0   000200000000 0            000000033603 
FT3	033602 033603 0   0   000200000000 0            000000033603 
FT9	033603 033603 0   0   000200000000 0            000000033603 
ET0	033603 033603 0   0   000200000000 0            000000033603 
ST1A	033603 033603 0   0   000200000000 0            000000033603 
ST9	033603 033603 0   0   000200000000 0            000000033603 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 543
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0822

*033603 MOVE 	0,035450
INITIAL
C(AC)=000200 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033603 033603 0   0   200000035450 0            000400000000 
IT1	033603 0      0   0   200000035450 0            000400000000 
AT3	033603 0      0   0   000000035450 0            200000035450 
AT6	033603 035450 0   0   000000035450 0            200000035450 
FT0	033603 035450 0   0   000400000000 0            200000035450 
FT1A	033603 035450 0   0   000400000000 0            000400000000 
FT9	033604 035450 0   0   000400000000 0            000400000000 
ET0	033604 035450 0   0   000400000000 0            000400000000 
ST1	033604 035450 0   0   000400000000 0            000400000000 
ST2	033604 035450 0   0   000400000000 0            000400000000 
ST9	033604 035450 0   0   000400000000 0            000400000000 


*033604 CAMN	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033604 033604 0   0   316000000000 0            000400000000 
IT1	033604 0      0   0   316000000000 0            000400000000 
AT3	033604 0      0   0   0            0            316000000000 
AT6	033604 0      0   0   0            0            316000000000 
FT0	033604 0      0   0   000400000000 0            316000000000 
FT1A	033604 0      0   0   000400000000 0            000400000000 
FT2	033604 0      0   0   0            0            000400000000 
FT2RQ	033604 0      0   0   000400000000 0            000400000000 
FT3	033604 0      0   0   000400000000 0            000400000000 
FT9	033605 0      0   0   000400000000 0            000400000000 
ET0	033605 0      0   0   0            0            000400000000 
ST1A	033605 0      0   0   0            0            000400000000 
ST9	033605 0      0   0   0            0            000400000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 544
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0823

*033605 CAME	0,000000
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033605 033605 0   0   312000000000 0            000400000000 
IT1	033605 0      0   0   312000000000 0            000400000000 
AT3	033605 0      0   0   0            0            312000000000 
AT6	033605 0      0   0   0            0            312000000000 
FT0	033605 0      0   0   000400000000 0            312000000000 
FT1A	033605 0      0   0   000400000000 0            000400000000 
FT2	033605 0      0   0   0            0            000400000000 
FT2RQ	033605 0      0   0   000400000000 0            000400000000 
FT3	033605 0      0   0   000400000000 0            000400000000 
FT9	033606 0      0   0   000400000000 0            000400000000 
ET0	033607 0      0   0   0            0            000400000000 
ST1A	033607 0      0   0   0            0            000400000000 
ST9	033607 0      0   0   0            0            000400000000 


*033607 JUMPA	0,033610
INITIAL
C(AC)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033607 033607 0   0   324000033610 0            000000033610 
IT1	033607 0      0   0   324000033610 0            000000033610 
AT3	033607 0      0   0   000000033610 0            324000033610 
AT6	033607 033610 0   0   000000033610 0            324000033610 
FT1A	033607 033610 0   0   000000033610 0            000000033610 
FT2	033607 033610 0   0   0            0            000000033610 
FT2RQ	033607 033610 0   0   000400000000 0            000000033610 
FT3	033607 033610 0   0   000400000000 0            000000033610 
FT9	033610 033610 0   0   000400000000 0            000000033610 
ET0	033610 033610 0   0   000400000000 0            000000033610 
ST1A	033610 033610 0   0   000400000000 0            000000033610 
ST9	033610 033610 0   0   000400000000 0            000000033610 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 545
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0824

*033610 MOVE 	0,035451
INITIAL
C(AC)=000400 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033610 033610 0   0   200000035451 0            001000000000 
IT1	033610 0      0   0   200000035451 0            001000000000 
AT3	033610 0      0   0   000000035451 0            200000035451 
AT6	033610 035451 0   0   000000035451 0            200000035451 
FT0	033610 035451 0   0   001000000000 0            200000035451 
FT1A	033610 035451 0   0   001000000000 0            001000000000 
FT9	033611 035451 0   0   001000000000 0            001000000000 
ET0	033611 035451 0   0   001000000000 0            001000000000 
ST1	033611 035451 0   0   001000000000 0            001000000000 
ST2	033611 035451 0   0   001000000000 0            001000000000 
ST9	033611 035451 0   0   001000000000 0            001000000000 


*033611 CAMN	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033611 033611 0   0   316000000000 0            001000000000 
IT1	033611 0      0   0   316000000000 0            001000000000 
AT3	033611 0      0   0   0            0            316000000000 
AT6	033611 0      0   0   0            0            316000000000 
FT0	033611 0      0   0   001000000000 0            316000000000 
FT1A	033611 0      0   0   001000000000 0            001000000000 
FT2	033611 0      0   0   0            0            001000000000 
FT2RQ	033611 0      0   0   001000000000 0            001000000000 
FT3	033611 0      0   0   001000000000 0            001000000000 
FT9	033612 0      0   0   001000000000 0            001000000000 
ET0	033612 0      0   0   0            0            001000000000 
ST1A	033612 0      0   0   0            0            001000000000 
ST9	033612 0      0   0   0            0            001000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 546
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0825

*033612 CAME	0,000000
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033612 033612 0   0   312000000000 0            001000000000 
IT1	033612 0      0   0   312000000000 0            001000000000 
AT3	033612 0      0   0   0            0            312000000000 
AT6	033612 0      0   0   0            0            312000000000 
FT0	033612 0      0   0   001000000000 0            312000000000 
FT1A	033612 0      0   0   001000000000 0            001000000000 
FT2	033612 0      0   0   0            0            001000000000 
FT2RQ	033612 0      0   0   001000000000 0            001000000000 
FT3	033612 0      0   0   001000000000 0            001000000000 
FT9	033613 0      0   0   001000000000 0            001000000000 
ET0	033614 0      0   0   0            0            001000000000 
ST1A	033614 0      0   0   0            0            001000000000 
ST9	033614 0      0   0   0            0            001000000000 


*033614 JUMPA	0,033615
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033614 033614 0   0   324000033615 0            000000033615 
IT1	033614 0      0   0   324000033615 0            000000033615 
AT3	033614 0      0   0   000000033615 0            324000033615 
AT6	033614 033615 0   0   000000033615 0            324000033615 
FT1A	033614 033615 0   0   000000033615 0            000000033615 
FT2	033614 033615 0   0   0            0            000000033615 
FT2RQ	033614 033615 0   0   001000000000 0            000000033615 
FT3	033614 033615 0   0   001000000000 0            000000033615 
FT9	033615 033615 0   0   001000000000 0            000000033615 
ET0	033615 033615 0   0   001000000000 0            000000033615 
ST1A	033615 033615 0   0   001000000000 0            000000033615 
ST9	033615 033615 0   0   001000000000 0            000000033615 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 547
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0826

*033615 MOVE 	0,035452
INITIAL
C(AC)=001000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033615 033615 0   0   200000035452 0            002000000000 
IT1	033615 0      0   0   200000035452 0            002000000000 
AT3	033615 0      0   0   000000035452 0            200000035452 
AT6	033615 035452 0   0   000000035452 0            200000035452 
FT0	033615 035452 0   0   002000000000 0            200000035452 
FT1A	033615 035452 0   0   002000000000 0            002000000000 
FT9	033616 035452 0   0   002000000000 0            002000000000 
ET0	033616 035452 0   0   002000000000 0            002000000000 
ST1	033616 035452 0   0   002000000000 0            002000000000 
ST2	033616 035452 0   0   002000000000 0            002000000000 
ST9	033616 035452 0   0   002000000000 0            002000000000 


*033616 CAMN	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033616 033616 0   0   316000000000 0            002000000000 
IT1	033616 0      0   0   316000000000 0            002000000000 
AT3	033616 0      0   0   0            0            316000000000 
AT6	033616 0      0   0   0            0            316000000000 
FT0	033616 0      0   0   002000000000 0            316000000000 
FT1A	033616 0      0   0   002000000000 0            002000000000 
FT2	033616 0      0   0   0            0            002000000000 
FT2RQ	033616 0      0   0   002000000000 0            002000000000 
FT3	033616 0      0   0   002000000000 0            002000000000 
FT9	033617 0      0   0   002000000000 0            002000000000 
ET0	033617 0      0   0   0            0            002000000000 
ST1A	033617 0      0   0   0            0            002000000000 
ST9	033617 0      0   0   0            0            002000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 548
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0827

*033617 CAME	0,000000
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033617 033617 0   0   312000000000 0            002000000000 
IT1	033617 0      0   0   312000000000 0            002000000000 
AT3	033617 0      0   0   0            0            312000000000 
AT6	033617 0      0   0   0            0            312000000000 
FT0	033617 0      0   0   002000000000 0            312000000000 
FT1A	033617 0      0   0   002000000000 0            002000000000 
FT2	033617 0      0   0   0            0            002000000000 
FT2RQ	033617 0      0   0   002000000000 0            002000000000 
FT3	033617 0      0   0   002000000000 0            002000000000 
FT9	033620 0      0   0   002000000000 0            002000000000 
ET0	033621 0      0   0   0            0            002000000000 
ST1A	033621 0      0   0   0            0            002000000000 
ST9	033621 0      0   0   0            0            002000000000 


*033621 JUMPA	0,033622
INITIAL
C(AC)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033621 033621 0   0   324000033622 0            000000033622 
IT1	033621 0      0   0   324000033622 0            000000033622 
AT3	033621 0      0   0   000000033622 0            324000033622 
AT6	033621 033622 0   0   000000033622 0            324000033622 
FT1A	033621 033622 0   0   000000033622 0            000000033622 
FT2	033621 033622 0   0   0            0            000000033622 
FT2RQ	033621 033622 0   0   002000000000 0            000000033622 
FT3	033621 033622 0   0   002000000000 0            000000033622 
FT9	033622 033622 0   0   002000000000 0            000000033622 
ET0	033622 033622 0   0   002000000000 0            000000033622 
ST1A	033622 033622 0   0   002000000000 0            000000033622 
ST9	033622 033622 0   0   002000000000 0            000000033622 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 549
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0828

*033622 MOVE 	0,035453
INITIAL
C(AC)=002000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033622 033622 0   0   200000035453 0            004000000000 
IT1	033622 0      0   0   200000035453 0            004000000000 
AT3	033622 0      0   0   000000035453 0            200000035453 
AT6	033622 035453 0   0   000000035453 0            200000035453 
FT0	033622 035453 0   0   004000000000 0            200000035453 
FT1A	033622 035453 0   0   004000000000 0            004000000000 
FT9	033623 035453 0   0   004000000000 0            004000000000 
ET0	033623 035453 0   0   004000000000 0            004000000000 
ST1	033623 035453 0   0   004000000000 0            004000000000 
ST2	033623 035453 0   0   004000000000 0            004000000000 
ST9	033623 035453 0   0   004000000000 0            004000000000 


*033623 CAMN	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033623 033623 0   0   316000000000 0            004000000000 
IT1	033623 0      0   0   316000000000 0            004000000000 
AT3	033623 0      0   0   0            0            316000000000 
AT6	033623 0      0   0   0            0            316000000000 
FT0	033623 0      0   0   004000000000 0            316000000000 
FT1A	033623 0      0   0   004000000000 0            004000000000 
FT2	033623 0      0   0   0            0            004000000000 
FT2RQ	033623 0      0   0   004000000000 0            004000000000 
FT3	033623 0      0   0   004000000000 0            004000000000 
FT9	033624 0      0   0   004000000000 0            004000000000 
ET0	033624 0      0   0   0            0            004000000000 
ST1A	033624 0      0   0   0            0            004000000000 
ST9	033624 0      0   0   0            0            004000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 550
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0829

*033624 CAME	0,000000
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033624 033624 0   0   312000000000 0            004000000000 
IT1	033624 0      0   0   312000000000 0            004000000000 
AT3	033624 0      0   0   0            0            312000000000 
AT6	033624 0      0   0   0            0            312000000000 
FT0	033624 0      0   0   004000000000 0            312000000000 
FT1A	033624 0      0   0   004000000000 0            004000000000 
FT2	033624 0      0   0   0            0            004000000000 
FT2RQ	033624 0      0   0   004000000000 0            004000000000 
FT3	033624 0      0   0   004000000000 0            004000000000 
FT9	033625 0      0   0   004000000000 0            004000000000 
ET0	033626 0      0   0   0            0            004000000000 
ST1A	033626 0      0   0   0            0            004000000000 
ST9	033626 0      0   0   0            0            004000000000 


*033626 JUMPA	0,033627
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033626 033626 0   0   324000033627 0            000000033627 
IT1	033626 0      0   0   324000033627 0            000000033627 
AT3	033626 0      0   0   000000033627 0            324000033627 
AT6	033626 033627 0   0   000000033627 0            324000033627 
FT1A	033626 033627 0   0   000000033627 0            000000033627 
FT2	033626 033627 0   0   0            0            000000033627 
FT2RQ	033626 033627 0   0   004000000000 0            000000033627 
FT3	033626 033627 0   0   004000000000 0            000000033627 
FT9	033627 033627 0   0   004000000000 0            000000033627 
ET0	033627 033627 0   0   004000000000 0            000000033627 
ST1A	033627 033627 0   0   004000000000 0            000000033627 
ST9	033627 033627 0   0   004000000000 0            000000033627 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 551
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0830

*033627 MOVE 	0,035454
INITIAL
C(AC)=004000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033627 033627 0   0   200000035454 0            010000000000 
IT1	033627 0      0   0   200000035454 0            010000000000 
AT3	033627 0      0   0   000000035454 0            200000035454 
AT6	033627 035454 0   0   000000035454 0            200000035454 
FT0	033627 035454 0   0   010000000000 0            200000035454 
FT1A	033627 035454 0   0   010000000000 0            010000000000 
FT9	033630 035454 0   0   010000000000 0            010000000000 
ET0	033630 035454 0   0   010000000000 0            010000000000 
ST1	033630 035454 0   0   010000000000 0            010000000000 
ST2	033630 035454 0   0   010000000000 0            010000000000 
ST9	033630 035454 0   0   010000000000 0            010000000000 


*033630 CAMN	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033630 033630 0   0   316000000000 0            010000000000 
IT1	033630 0      0   0   316000000000 0            010000000000 
AT3	033630 0      0   0   0            0            316000000000 
AT6	033630 0      0   0   0            0            316000000000 
FT0	033630 0      0   0   010000000000 0            316000000000 
FT1A	033630 0      0   0   010000000000 0            010000000000 
FT2	033630 0      0   0   0            0            010000000000 
FT2RQ	033630 0      0   0   010000000000 0            010000000000 
FT3	033630 0      0   0   010000000000 0            010000000000 
FT9	033631 0      0   0   010000000000 0            010000000000 
ET0	033631 0      0   0   0            0            010000000000 
ST1A	033631 0      0   0   0            0            010000000000 
ST9	033631 0      0   0   0            0            010000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 552
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0831

*033631 CAME	0,000000
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033631 033631 0   0   312000000000 0            010000000000 
IT1	033631 0      0   0   312000000000 0            010000000000 
AT3	033631 0      0   0   0            0            312000000000 
AT6	033631 0      0   0   0            0            312000000000 
FT0	033631 0      0   0   010000000000 0            312000000000 
FT1A	033631 0      0   0   010000000000 0            010000000000 
FT2	033631 0      0   0   0            0            010000000000 
FT2RQ	033631 0      0   0   010000000000 0            010000000000 
FT3	033631 0      0   0   010000000000 0            010000000000 
FT9	033632 0      0   0   010000000000 0            010000000000 
ET0	033633 0      0   0   0            0            010000000000 
ST1A	033633 0      0   0   0            0            010000000000 
ST9	033633 0      0   0   0            0            010000000000 


*033633 JUMPA	0,033634
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033633 033633 0   0   324000033634 0            000000033634 
IT1	033633 0      0   0   324000033634 0            000000033634 
AT3	033633 0      0   0   000000033634 0            324000033634 
AT6	033633 033634 0   0   000000033634 0            324000033634 
FT1A	033633 033634 0   0   000000033634 0            000000033634 
FT2	033633 033634 0   0   0            0            000000033634 
FT2RQ	033633 033634 0   0   010000000000 0            000000033634 
FT3	033633 033634 0   0   010000000000 0            000000033634 
FT9	033634 033634 0   0   010000000000 0            000000033634 
ET0	033634 033634 0   0   010000000000 0            000000033634 
ST1A	033634 033634 0   0   010000000000 0            000000033634 
ST9	033634 033634 0   0   010000000000 0            000000033634 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 553
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0832

*033634 MOVE 	0,035455
INITIAL
C(AC)=010000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033634 033634 0   0   200000035455 0            020000000000 
IT1	033634 0      0   0   200000035455 0            020000000000 
AT3	033634 0      0   0   000000035455 0            200000035455 
AT6	033634 035455 0   0   000000035455 0            200000035455 
FT0	033634 035455 0   0   020000000000 0            200000035455 
FT1A	033634 035455 0   0   020000000000 0            020000000000 
FT9	033635 035455 0   0   020000000000 0            020000000000 
ET0	033635 035455 0   0   020000000000 0            020000000000 
ST1	033635 035455 0   0   020000000000 0            020000000000 
ST2	033635 035455 0   0   020000000000 0            020000000000 
ST9	033635 035455 0   0   020000000000 0            020000000000 


*033635 CAMN	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033635 033635 0   0   316000000000 0            020000000000 
IT1	033635 0      0   0   316000000000 0            020000000000 
AT3	033635 0      0   0   0            0            316000000000 
AT6	033635 0      0   0   0            0            316000000000 
FT0	033635 0      0   0   020000000000 0            316000000000 
FT1A	033635 0      0   0   020000000000 0            020000000000 
FT2	033635 0      0   0   0            0            020000000000 
FT2RQ	033635 0      0   0   020000000000 0            020000000000 
FT3	033635 0      0   0   020000000000 0            020000000000 
FT9	033636 0      0   0   020000000000 0            020000000000 
ET0	033636 0      0   0   0            0            020000000000 
ST1A	033636 0      0   0   0            0            020000000000 
ST9	033636 0      0   0   0            0            020000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 554
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0833

*033636 CAME	0,000000
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033636 033636 0   0   312000000000 0            020000000000 
IT1	033636 0      0   0   312000000000 0            020000000000 
AT3	033636 0      0   0   0            0            312000000000 
AT6	033636 0      0   0   0            0            312000000000 
FT0	033636 0      0   0   020000000000 0            312000000000 
FT1A	033636 0      0   0   020000000000 0            020000000000 
FT2	033636 0      0   0   0            0            020000000000 
FT2RQ	033636 0      0   0   020000000000 0            020000000000 
FT3	033636 0      0   0   020000000000 0            020000000000 
FT9	033637 0      0   0   020000000000 0            020000000000 
ET0	033640 0      0   0   0            0            020000000000 
ST1A	033640 0      0   0   0            0            020000000000 
ST9	033640 0      0   0   0            0            020000000000 


*033640 JUMPA	0,033641
INITIAL
C(AC)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033640 033640 0   0   324000033641 0            000000033641 
IT1	033640 0      0   0   324000033641 0            000000033641 
AT3	033640 0      0   0   000000033641 0            324000033641 
AT6	033640 033641 0   0   000000033641 0            324000033641 
FT1A	033640 033641 0   0   000000033641 0            000000033641 
FT2	033640 033641 0   0   0            0            000000033641 
FT2RQ	033640 033641 0   0   020000000000 0            000000033641 
FT3	033640 033641 0   0   020000000000 0            000000033641 
FT9	033641 033641 0   0   020000000000 0            000000033641 
ET0	033641 033641 0   0   020000000000 0            000000033641 
ST1A	033641 033641 0   0   020000000000 0            000000033641 
ST9	033641 033641 0   0   020000000000 0            000000033641 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 555
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0834

*033641 MOVE 	0,035456
INITIAL
C(AC)=020000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033641 033641 0   0   200000035456 0            040000000000 
IT1	033641 0      0   0   200000035456 0            040000000000 
AT3	033641 0      0   0   000000035456 0            200000035456 
AT6	033641 035456 0   0   000000035456 0            200000035456 
FT0	033641 035456 0   0   040000000000 0            200000035456 
FT1A	033641 035456 0   0   040000000000 0            040000000000 
FT9	033642 035456 0   0   040000000000 0            040000000000 
ET0	033642 035456 0   0   040000000000 0            040000000000 
ST1	033642 035456 0   0   040000000000 0            040000000000 
ST2	033642 035456 0   0   040000000000 0            040000000000 
ST9	033642 035456 0   0   040000000000 0            040000000000 


*033642 CAMN	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033642 033642 0   0   316000000000 0            040000000000 
IT1	033642 0      0   0   316000000000 0            040000000000 
AT3	033642 0      0   0   0            0            316000000000 
AT6	033642 0      0   0   0            0            316000000000 
FT0	033642 0      0   0   040000000000 0            316000000000 
FT1A	033642 0      0   0   040000000000 0            040000000000 
FT2	033642 0      0   0   0            0            040000000000 
FT2RQ	033642 0      0   0   040000000000 0            040000000000 
FT3	033642 0      0   0   040000000000 0            040000000000 
FT9	033643 0      0   0   040000000000 0            040000000000 
ET0	033643 0      0   0   0            0            040000000000 
ST1A	033643 0      0   0   0            0            040000000000 
ST9	033643 0      0   0   0            0            040000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 556
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0835

*033643 CAME	0,000000
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033643 033643 0   0   312000000000 0            040000000000 
IT1	033643 0      0   0   312000000000 0            040000000000 
AT3	033643 0      0   0   0            0            312000000000 
AT6	033643 0      0   0   0            0            312000000000 
FT0	033643 0      0   0   040000000000 0            312000000000 
FT1A	033643 0      0   0   040000000000 0            040000000000 
FT2	033643 0      0   0   0            0            040000000000 
FT2RQ	033643 0      0   0   040000000000 0            040000000000 
FT3	033643 0      0   0   040000000000 0            040000000000 
FT9	033644 0      0   0   040000000000 0            040000000000 
ET0	033645 0      0   0   0            0            040000000000 
ST1A	033645 0      0   0   0            0            040000000000 
ST9	033645 0      0   0   0            0            040000000000 


*033645 JUMPA	0,033646
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033645 033645 0   0   324000033646 0            000000033646 
IT1	033645 0      0   0   324000033646 0            000000033646 
AT3	033645 0      0   0   000000033646 0            324000033646 
AT6	033645 033646 0   0   000000033646 0            324000033646 
FT1A	033645 033646 0   0   000000033646 0            000000033646 
FT2	033645 033646 0   0   0            0            000000033646 
FT2RQ	033645 033646 0   0   040000000000 0            000000033646 
FT3	033645 033646 0   0   040000000000 0            000000033646 
FT9	033646 033646 0   0   040000000000 0            000000033646 
ET0	033646 033646 0   0   040000000000 0            000000033646 
ST1A	033646 033646 0   0   040000000000 0            000000033646 
ST9	033646 033646 0   0   040000000000 0            000000033646 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 557
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0836

*033646 MOVE 	0,035457
INITIAL
C(AC)=040000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033646 033646 0   0   200000035457 0            100000000000 
IT1	033646 0      0   0   200000035457 0            100000000000 
AT3	033646 0      0   0   000000035457 0            200000035457 
AT6	033646 035457 0   0   000000035457 0            200000035457 
FT0	033646 035457 0   0   100000000000 0            200000035457 
FT1A	033646 035457 0   0   100000000000 0            100000000000 
FT9	033647 035457 0   0   100000000000 0            100000000000 
ET0	033647 035457 0   0   100000000000 0            100000000000 
ST1	033647 035457 0   0   100000000000 0            100000000000 
ST2	033647 035457 0   0   100000000000 0            100000000000 
ST9	033647 035457 0   0   100000000000 0            100000000000 


*033647 CAMN	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033647 033647 0   0   316000000000 0            100000000000 
IT1	033647 0      0   0   316000000000 0            100000000000 
AT3	033647 0      0   0   0            0            316000000000 
AT6	033647 0      0   0   0            0            316000000000 
FT0	033647 0      0   0   100000000000 0            316000000000 
FT1A	033647 0      0   0   100000000000 0            100000000000 
FT2	033647 0      0   0   0            0            100000000000 
FT2RQ	033647 0      0   0   100000000000 0            100000000000 
FT3	033647 0      0   0   100000000000 0            100000000000 
FT9	033650 0      0   0   100000000000 0            100000000000 
ET0	033650 0      0   0   0            0            100000000000 
ST1A	033650 0      0   0   0            0            100000000000 
ST9	033650 0      0   0   0            0            100000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 558
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0837

*033650 CAME	0,000000
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033650 033650 0   0   312000000000 0            100000000000 
IT1	033650 0      0   0   312000000000 0            100000000000 
AT3	033650 0      0   0   0            0            312000000000 
AT6	033650 0      0   0   0            0            312000000000 
FT0	033650 0      0   0   100000000000 0            312000000000 
FT1A	033650 0      0   0   100000000000 0            100000000000 
FT2	033650 0      0   0   0            0            100000000000 
FT2RQ	033650 0      0   0   100000000000 0            100000000000 
FT3	033650 0      0   0   100000000000 0            100000000000 
FT9	033651 0      0   0   100000000000 0            100000000000 
ET0	033652 0      0   0   0            0            100000000000 
ST1A	033652 0      0   0   0            0            100000000000 
ST9	033652 0      0   0   0            0            100000000000 


*033652 JUMPA	0,033653
INITIAL
C(AC)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033652 033652 0   0   324000033653 0            000000033653 
IT1	033652 0      0   0   324000033653 0            000000033653 
AT3	033652 0      0   0   000000033653 0            324000033653 
AT6	033652 033653 0   0   000000033653 0            324000033653 
FT1A	033652 033653 0   0   000000033653 0            000000033653 
FT2	033652 033653 0   0   0            0            000000033653 
FT2RQ	033652 033653 0   0   100000000000 0            000000033653 
FT3	033652 033653 0   0   100000000000 0            000000033653 
FT9	033653 033653 0   0   100000000000 0            000000033653 
ET0	033653 033653 0   0   100000000000 0            000000033653 
ST1A	033653 033653 0   0   100000000000 0            000000033653 
ST9	033653 033653 0   0   100000000000 0            000000033653 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 559
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0838

*033653 MOVE 	0,035460
INITIAL
C(AC)=100000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033653 033653 0   0   200000035460 0            200000000000 
IT1	033653 0      0   0   200000035460 0            200000000000 
AT3	033653 0      0   0   000000035460 0            200000035460 
AT6	033653 035460 0   0   000000035460 0            200000035460 
FT0	033653 035460 0   0   200000000000 0            200000035460 
FT1A	033653 035460 0   0   200000000000 0            200000000000 
FT9	033654 035460 0   0   200000000000 0            200000000000 
ET0	033654 035460 0   0   200000000000 0            200000000000 
ST1	033654 035460 0   0   200000000000 0            200000000000 
ST2	033654 035460 0   0   200000000000 0            200000000000 
ST9	033654 035460 0   0   200000000000 0            200000000000 


*033654 CAMN	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033654 033654 0   0   316000000000 0            200000000000 
IT1	033654 0      0   0   316000000000 0            200000000000 
AT3	033654 0      0   0   0            0            316000000000 
AT6	033654 0      0   0   0            0            316000000000 
FT0	033654 0      0   0   200000000000 0            316000000000 
FT1A	033654 0      0   0   200000000000 0            200000000000 
FT2	033654 0      0   0   0            0            200000000000 
FT2RQ	033654 0      0   0   200000000000 0            200000000000 
FT3	033654 0      0   0   200000000000 0            200000000000 
FT9	033655 0      0   0   200000000000 0            200000000000 
ET0	033655 0      0   0   0            0            200000000000 
ST1A	033655 0      0   0   0            0            200000000000 
ST9	033655 0      0   0   0            0            200000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 560
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0839

*033655 CAME	0,000000
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033655 033655 0   0   312000000000 0            200000000000 
IT1	033655 0      0   0   312000000000 0            200000000000 
AT3	033655 0      0   0   0            0            312000000000 
AT6	033655 0      0   0   0            0            312000000000 
FT0	033655 0      0   0   200000000000 0            312000000000 
FT1A	033655 0      0   0   200000000000 0            200000000000 
FT2	033655 0      0   0   0            0            200000000000 
FT2RQ	033655 0      0   0   200000000000 0            200000000000 
FT3	033655 0      0   0   200000000000 0            200000000000 
FT9	033656 0      0   0   200000000000 0            200000000000 
ET0	033657 0      0   0   0            0            200000000000 
ST1A	033657 0      0   0   0            0            200000000000 
ST9	033657 0      0   0   0            0            200000000000 


*033657 JUMPA	0,033660
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033657 033657 0   0   324000033660 0            000000033660 
IT1	033657 0      0   0   324000033660 0            000000033660 
AT3	033657 0      0   0   000000033660 0            324000033660 
AT6	033657 033660 0   0   000000033660 0            324000033660 
FT1A	033657 033660 0   0   000000033660 0            000000033660 
FT2	033657 033660 0   0   0            0            000000033660 
FT2RQ	033657 033660 0   0   200000000000 0            000000033660 
FT3	033657 033660 0   0   200000000000 0            000000033660 
FT9	033660 033660 0   0   200000000000 0            000000033660 
ET0	033660 033660 0   0   200000000000 0            000000033660 
ST1A	033660 033660 0   0   200000000000 0            000000033660 
ST9	033660 033660 0   0   200000000000 0            000000033660 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 561
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0840

*033660 MOVE 	0,035461
INITIAL
C(AC)=200000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033660 033660 0   0   200000035461 0            400000000000 
IT1	033660 0      0   0   200000035461 0            400000000000 
AT3	033660 0      0   0   000000035461 0            200000035461 
AT6	033660 035461 0   0   000000035461 0            200000035461 
FT0	033660 035461 0   0   400000000000 0            200000035461 
FT1A	033660 035461 0   0   400000000000 0            400000000000 
FT9	033661 035461 0   0   400000000000 0            400000000000 
ET0	033661 035461 0   0   400000000000 0            400000000000 
ST1	033661 035461 0   0   400000000000 0            400000000000 
ST2	033661 035461 0   0   400000000000 0            400000000000 
ST9	033661 035461 0   0   400000000000 0            400000000000 


*033661 CAMN	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033661 033661 0   0   316000000000 0            400000000000 
IT1	033661 0      0   0   316000000000 0            400000000000 
AT3	033661 0      0   0   0            0            316000000000 
AT6	033661 0      0   0   0            0            316000000000 
FT0	033661 0      0   0   400000000000 0            316000000000 
FT1A	033661 0      0   0   400000000000 0            400000000000 
FT2	033661 0      0   0   0            0            400000000000 
FT2RQ	033661 0      0   0   400000000000 0            400000000000 
FT3	033661 0      0   0   400000000000 0            400000000000 
FT9	033662 0      0   0   400000000000 0            400000000000 
ET0	033662 0      0   0   0            0            400000000000 
ST1A	033662 0      0   0   0            0            400000000000 
ST9	033662 0      0   0   0            0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 562
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0841

*033662 CAME	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033662 033662 0   0   312000000000 0            400000000000 
IT1	033662 0      0   0   312000000000 0            400000000000 
AT3	033662 0      0   0   0            0            312000000000 
AT6	033662 0      0   0   0            0            312000000000 
FT0	033662 0      0   0   400000000000 0            312000000000 
FT1A	033662 0      0   0   400000000000 0            400000000000 
FT2	033662 0      0   0   0            0            400000000000 
FT2RQ	033662 0      0   0   400000000000 0            400000000000 
FT3	033662 0      0   0   400000000000 0            400000000000 
FT9	033663 0      0   0   400000000000 0            400000000000 
ET0	033664 0      0   0   0            0            400000000000 
ST1A	033664 0      0   0   0            0            400000000000 
ST9	033664 0      0   0   0            0            400000000000 


*033664 JUMPA	0,033665
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033664 033664 0   0   324000033665 0            000000033665 
IT1	033664 0      0   0   324000033665 0            000000033665 
AT3	033664 0      0   0   000000033665 0            324000033665 
AT6	033664 033665 0   0   000000033665 0            324000033665 
FT1A	033664 033665 0   0   000000033665 0            000000033665 
FT2	033664 033665 0   0   0            0            000000033665 
FT2RQ	033664 033665 0   0   400000000000 0            000000033665 
FT3	033664 033665 0   0   400000000000 0            000000033665 
FT9	033665 033665 0   0   400000000000 0            000000033665 
ET0	033665 033665 0   0   400000000000 0            000000033665 
ST1A	033665 033665 0   0   400000000000 0            000000033665 
ST9	033665 033665 0   0   400000000000 0            000000033665 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 563
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0842

*033665 SETZ 	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033665 033665 0   0   400000000000 0            0            
IT1	033665 0      0   0   400000000000 0            0            
AT3	033665 0      0   0   0            0            400000000000 
AT6	033665 0      0   0   0            0            400000000000 
FT1A	033665 0      0   0   0            0            0            
FT9	033666 0      0   0   0            0            0            
ET0	033666 0      0   0   0            0            0            
ST1	033666 0      0   0   0            0            0            
ST2	033666 0      0   0   0            0            0            
ST9	033666 0      0   0   0            0            0            


*033666 CAMN	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033666 033666 0   0   316000035416 0            000000000001 
IT1	033666 0      0   0   316000035416 0            000000000001 
AT3	033666 0      0   0   000000035416 0            316000035416 
AT6	033666 035416 0   0   000000035416 0            316000035416 
FT0	033666 035416 0   0   000000000001 0            316000035416 
FT1A	033666 035416 0   0   000000000001 0            000000000001 
FT2	033666 035416 0   0   0            0            000000000001 
FT2RQ	033666 035416 0   0   0            0            000000000001 
FT3	033666 035416 0   0   0            0            000000000001 
FT9	033667 035416 0   0   0            0            000000000001 
ET0	033670 035416 0   0   777777777777 0            000000000001 
ST1A	033670 035416 0   0   777777777777 0            000000000001 
ST9	033670 035416 0   0   777777777777 0            000000000001 


*033670 JUMPA	0,033671
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033670 033670 0   0   324000033671 0            000000033671 
IT1	033670 0      0   0   324000033671 0            000000033671 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 564
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0843

AT3	033670 0      0   0   000000033671 0            324000033671 
AT6	033670 033671 0   0   000000033671 0            324000033671 
FT1A	033670 033671 0   0   000000033671 0            000000033671 
FT2	033670 033671 0   0   0            0            000000033671 
FT2RQ	033670 033671 0   0   0            0            000000033671 
FT3	033670 033671 0   0   0            0            000000033671 
FT9	033671 033671 0   0   0            0            000000033671 
ET0	033671 033671 0   0   0            0            000000033671 
ST1A	033671 033671 0   0   0            0            000000033671 
ST9	033671 033671 0   0   0            0            000000033671 


*033671 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033671 033671 0   0   400000000000 0            0            
IT1	033671 0      0   0   400000000000 0            0            
AT3	033671 0      0   0   0            0            400000000000 
AT6	033671 0      0   0   0            0            400000000000 
FT1A	033671 0      0   0   0            0            0            
FT9	033672 0      0   0   0            0            0            
ET0	033672 0      0   0   0            0            0            
ST1	033672 0      0   0   0            0            0            
ST2	033672 0      0   0   0            0            0            
ST9	033672 0      0   0   0            0            0            


*033672 CAMN	0,035417
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033672 033672 0   0   316000035417 0            000000000002 
IT1	033672 0      0   0   316000035417 0            000000000002 
AT3	033672 0      0   0   000000035417 0            316000035417 
AT6	033672 035417 0   0   000000035417 0            316000035417 
FT0	033672 035417 0   0   000000000002 0            316000035417 
FT1A	033672 035417 0   0   000000000002 0            000000000002 
FT2	033672 035417 0   0   0            0            000000000002 
FT2RQ	033672 035417 0   0   0            0            000000000002 
FT3	033672 035417 0   0   0            0            000000000002 
FT9	033673 035417 0   0   0            0            000000000002 
ET0	033674 035417 0   0   777777777776 0            000000000002 
ST1A	033674 035417 0   0   777777777776 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 565
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0844

ST9	033674 035417 0   0   777777777776 0            000000000002 


*033674 JUMPA	0,033675
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033674 033674 0   0   324000033675 0            000000033675 
IT1	033674 0      0   0   324000033675 0            000000033675 
AT3	033674 0      0   0   000000033675 0            324000033675 
AT6	033674 033675 0   0   000000033675 0            324000033675 
FT1A	033674 033675 0   0   000000033675 0            000000033675 
FT2	033674 033675 0   0   0            0            000000033675 
FT2RQ	033674 033675 0   0   0            0            000000033675 
FT3	033674 033675 0   0   0            0            000000033675 
FT9	033675 033675 0   0   0            0            000000033675 
ET0	033675 033675 0   0   0            0            000000033675 
ST1A	033675 033675 0   0   0            0            000000033675 
ST9	033675 033675 0   0   0            0            000000033675 


*033675 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033675 033675 0   0   400000000000 0            0            
IT1	033675 0      0   0   400000000000 0            0            
AT3	033675 0      0   0   0            0            400000000000 
AT6	033675 0      0   0   0            0            400000000000 
FT1A	033675 0      0   0   0            0            0            
FT9	033676 0      0   0   0            0            0            
ET0	033676 0      0   0   0            0            0            
ST1	033676 0      0   0   0            0            0            
ST2	033676 0      0   0   0            0            0            
ST9	033676 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 566
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0845

*033676 CAMN	0,035420
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033676 033676 0   0   316000035420 0            000000000004 
IT1	033676 0      0   0   316000035420 0            000000000004 
AT3	033676 0      0   0   000000035420 0            316000035420 
AT6	033676 035420 0   0   000000035420 0            316000035420 
FT0	033676 035420 0   0   000000000004 0            316000035420 
FT1A	033676 035420 0   0   000000000004 0            000000000004 
FT2	033676 035420 0   0   0            0            000000000004 
FT2RQ	033676 035420 0   0   0            0            000000000004 
FT3	033676 035420 0   0   0            0            000000000004 
FT9	033677 035420 0   0   0            0            000000000004 
ET0	0      035420 0   0   777777777774 0            000000000004 
ST1A	0      035420 0   0   777777777774 0            000000000004 
ST9	0      035420 0   0   777777777774 0            000000000004 


*033700 JUMPA	0,033701
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000033701 0            000000033701 
IT1	0      0      0   0   324000033701 0            000000033701 
AT3	0      0      0   0   000000033701 0            324000033701 
AT6	0      033701 0   0   000000033701 0            324000033701 
FT1A	0      033701 0   0   000000033701 0            000000033701 
FT2	0      033701 0   0   0            0            000000033701 
FT2RQ	0      033701 0   0   0            0            000000033701 
FT3	0      033701 0   0   0            0            000000033701 
FT9	033701 033701 0   0   0            0            000000033701 
ET0	033701 033701 0   0   0            0            000000033701 
ST1A	033701 033701 0   0   0            0            000000033701 
ST9	033701 033701 0   0   0            0            000000033701 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 567
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0846

*033701 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033701 033701 0   0   400000000000 0            0            
IT1	033701 0      0   0   400000000000 0            0            
AT3	033701 0      0   0   0            0            400000000000 
AT6	033701 0      0   0   0            0            400000000000 
FT1A	033701 0      0   0   0            0            0            
FT9	033702 0      0   0   0            0            0            
ET0	033702 0      0   0   0            0            0            
ST1	033702 0      0   0   0            0            0            
ST2	033702 0      0   0   0            0            0            
ST9	033702 0      0   0   0            0            0            


*033702 CAMN	0,035421
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033702 033702 0   0   316000035421 0            000000000010 
IT1	033702 0      0   0   316000035421 0            000000000010 
AT3	033702 0      0   0   000000035421 0            316000035421 
AT6	033702 035421 0   0   000000035421 0            316000035421 
FT0	033702 035421 0   0   000000000010 0            316000035421 
FT1A	033702 035421 0   0   000000000010 0            000000000010 
FT2	033702 035421 0   0   0            0            000000000010 
FT2RQ	033702 035421 0   0   0            0            000000000010 
FT3	033702 035421 0   0   0            0            000000000010 
FT9	033703 035421 0   0   0            0            000000000010 
ET0	033704 035421 0   0   777777777770 0            000000000010 
ST1A	033704 035421 0   0   777777777770 0            000000000010 
ST9	033704 035421 0   0   777777777770 0            000000000010 


*033704 JUMPA	0,033705
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033704 033704 0   0   324000033705 0            000000033705 
IT1	033704 0      0   0   324000033705 0            000000033705 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 568
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0847

AT3	033704 0      0   0   000000033705 0            324000033705 
AT6	033704 033705 0   0   000000033705 0            324000033705 
FT1A	033704 033705 0   0   000000033705 0            000000033705 
FT2	033704 033705 0   0   0            0            000000033705 
FT2RQ	033704 033705 0   0   0            0            000000033705 
FT3	033704 033705 0   0   0            0            000000033705 
FT9	033705 033705 0   0   0            0            000000033705 
ET0	033705 033705 0   0   0            0            000000033705 
ST1A	033705 033705 0   0   0            0            000000033705 
ST9	033705 033705 0   0   0            0            000000033705 


*033705 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033705 033705 0   0   400000000000 0            0            
IT1	033705 0      0   0   400000000000 0            0            
AT3	033705 0      0   0   0            0            400000000000 
AT6	033705 0      0   0   0            0            400000000000 
FT1A	033705 0      0   0   0            0            0            
FT9	033706 0      0   0   0            0            0            
ET0	033706 0      0   0   0            0            0            
ST1	033706 0      0   0   0            0            0            
ST2	033706 0      0   0   0            0            0            
ST9	033706 0      0   0   0            0            0            


*033706 CAMN	0,035422
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033706 033706 0   0   316000035422 0            000000000020 
IT1	033706 0      0   0   316000035422 0            000000000020 
AT3	033706 0      0   0   000000035422 0            316000035422 
AT6	033706 035422 0   0   000000035422 0            316000035422 
FT0	033706 035422 0   0   000000000020 0            316000035422 
FT1A	033706 035422 0   0   000000000020 0            000000000020 
FT2	033706 035422 0   0   0            0            000000000020 
FT2RQ	033706 035422 0   0   0            0            000000000020 
FT3	033706 035422 0   0   0            0            000000000020 
FT9	033707 035422 0   0   0            0            000000000020 
ET0	033710 035422 0   0   777777777760 0            000000000020 
ST1A	033710 035422 0   0   777777777760 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 569
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0848

ST9	033710 035422 0   0   777777777760 0            000000000020 


*033710 JUMPA	0,033711
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033710 033710 0   0   324000033711 0            000000033711 
IT1	033710 0      0   0   324000033711 0            000000033711 
AT3	033710 0      0   0   000000033711 0            324000033711 
AT6	033710 033711 0   0   000000033711 0            324000033711 
FT1A	033710 033711 0   0   000000033711 0            000000033711 
FT2	033710 033711 0   0   0            0            000000033711 
FT2RQ	033710 033711 0   0   0            0            000000033711 
FT3	033710 033711 0   0   0            0            000000033711 
FT9	033711 033711 0   0   0            0            000000033711 
ET0	033711 033711 0   0   0            0            000000033711 
ST1A	033711 033711 0   0   0            0            000000033711 
ST9	033711 033711 0   0   0            0            000000033711 


*033711 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033711 033711 0   0   400000000000 0            0            
IT1	033711 0      0   0   400000000000 0            0            
AT3	033711 0      0   0   0            0            400000000000 
AT6	033711 0      0   0   0            0            400000000000 
FT1A	033711 0      0   0   0            0            0            
FT9	033712 0      0   0   0            0            0            
ET0	033712 0      0   0   0            0            0            
ST1	033712 0      0   0   0            0            0            
ST2	033712 0      0   0   0            0            0            
ST9	033712 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 570
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0849

*033712 CAMN	0,035423
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033712 033712 0   0   316000035423 0            000000000040 
IT1	033712 0      0   0   316000035423 0            000000000040 
AT3	033712 0      0   0   000000035423 0            316000035423 
AT6	033712 035423 0   0   000000035423 0            316000035423 
FT0	033712 035423 0   0   000000000040 0            316000035423 
FT1A	033712 035423 0   0   000000000040 0            000000000040 
FT2	033712 035423 0   0   0            0            000000000040 
FT2RQ	033712 035423 0   0   0            0            000000000040 
FT3	033712 035423 0   0   0            0            000000000040 
FT9	033713 035423 0   0   0            0            000000000040 
ET0	033714 035423 0   0   777777777740 0            000000000040 
ST1A	033714 035423 0   0   777777777740 0            000000000040 
ST9	033714 035423 0   0   777777777740 0            000000000040 


*033714 JUMPA	0,033715
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033714 033714 0   0   324000033715 0            000000033715 
IT1	033714 0      0   0   324000033715 0            000000033715 
AT3	033714 0      0   0   000000033715 0            324000033715 
AT6	033714 033715 0   0   000000033715 0            324000033715 
FT1A	033714 033715 0   0   000000033715 0            000000033715 
FT2	033714 033715 0   0   0            0            000000033715 
FT2RQ	033714 033715 0   0   0            0            000000033715 
FT3	033714 033715 0   0   0            0            000000033715 
FT9	033715 033715 0   0   0            0            000000033715 
ET0	033715 033715 0   0   0            0            000000033715 
ST1A	033715 033715 0   0   0            0            000000033715 
ST9	033715 033715 0   0   0            0            000000033715 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 571
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0850

*033715 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033715 033715 0   0   400000000000 0            0            
IT1	033715 0      0   0   400000000000 0            0            
AT3	033715 0      0   0   0            0            400000000000 
AT6	033715 0      0   0   0            0            400000000000 
FT1A	033715 0      0   0   0            0            0            
FT9	033716 0      0   0   0            0            0            
ET0	033716 0      0   0   0            0            0            
ST1	033716 0      0   0   0            0            0            
ST2	033716 0      0   0   0            0            0            
ST9	033716 0      0   0   0            0            0            


*033716 CAMN	0,035424
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033716 033716 0   0   316000035424 0            000000000100 
IT1	033716 0      0   0   316000035424 0            000000000100 
AT3	033716 0      0   0   000000035424 0            316000035424 
AT6	033716 035424 0   0   000000035424 0            316000035424 
FT0	033716 035424 0   0   000000000100 0            316000035424 
FT1A	033716 035424 0   0   000000000100 0            000000000100 
FT2	033716 035424 0   0   0            0            000000000100 
FT2RQ	033716 035424 0   0   0            0            000000000100 
FT3	033716 035424 0   0   0            0            000000000100 
FT9	033717 035424 0   0   0            0            000000000100 
ET0	033720 035424 0   0   777777777700 0            000000000100 
ST1A	033720 035424 0   0   777777777700 0            000000000100 
ST9	033720 035424 0   0   777777777700 0            000000000100 


*033720 JUMPA	0,033721
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033720 033720 0   0   324000033721 0            000000033721 
IT1	033720 0      0   0   324000033721 0            000000033721 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 572
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0851

AT3	033720 0      0   0   000000033721 0            324000033721 
AT6	033720 033721 0   0   000000033721 0            324000033721 
FT1A	033720 033721 0   0   000000033721 0            000000033721 
FT2	033720 033721 0   0   0            0            000000033721 
FT2RQ	033720 033721 0   0   0            0            000000033721 
FT3	033720 033721 0   0   0            0            000000033721 
FT9	033721 033721 0   0   0            0            000000033721 
ET0	033721 033721 0   0   0            0            000000033721 
ST1A	033721 033721 0   0   0            0            000000033721 
ST9	033721 033721 0   0   0            0            000000033721 


*033721 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033721 033721 0   0   400000000000 0            0            
IT1	033721 0      0   0   400000000000 0            0            
AT3	033721 0      0   0   0            0            400000000000 
AT6	033721 0      0   0   0            0            400000000000 
FT1A	033721 0      0   0   0            0            0            
FT9	033722 0      0   0   0            0            0            
ET0	033722 0      0   0   0            0            0            
ST1	033722 0      0   0   0            0            0            
ST2	033722 0      0   0   0            0            0            
ST9	033722 0      0   0   0            0            0            


*033722 CAMN	0,035425
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033722 033722 0   0   316000035425 0            000000000200 
IT1	033722 0      0   0   316000035425 0            000000000200 
AT3	033722 0      0   0   000000035425 0            316000035425 
AT6	033722 035425 0   0   000000035425 0            316000035425 
FT0	033722 035425 0   0   000000000200 0            316000035425 
FT1A	033722 035425 0   0   000000000200 0            000000000200 
FT2	033722 035425 0   0   0            0            000000000200 
FT2RQ	033722 035425 0   0   0            0            000000000200 
FT3	033722 035425 0   0   0            0            000000000200 
FT9	033723 035425 0   0   0            0            000000000200 
ET0	033724 035425 0   0   777777777600 0            000000000200 
ST1A	033724 035425 0   0   777777777600 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 573
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0852

ST9	033724 035425 0   0   777777777600 0            000000000200 


*033724 JUMPA	0,033725
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033724 033724 0   0   324000033725 0            000000033725 
IT1	033724 0      0   0   324000033725 0            000000033725 
AT3	033724 0      0   0   000000033725 0            324000033725 
AT6	033724 033725 0   0   000000033725 0            324000033725 
FT1A	033724 033725 0   0   000000033725 0            000000033725 
FT2	033724 033725 0   0   0            0            000000033725 
FT2RQ	033724 033725 0   0   0            0            000000033725 
FT3	033724 033725 0   0   0            0            000000033725 
FT9	033725 033725 0   0   0            0            000000033725 
ET0	033725 033725 0   0   0            0            000000033725 
ST1A	033725 033725 0   0   0            0            000000033725 
ST9	033725 033725 0   0   0            0            000000033725 


*033725 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033725 033725 0   0   400000000000 0            0            
IT1	033725 0      0   0   400000000000 0            0            
AT3	033725 0      0   0   0            0            400000000000 
AT6	033725 0      0   0   0            0            400000000000 
FT1A	033725 0      0   0   0            0            0            
FT9	033726 0      0   0   0            0            0            
ET0	033726 0      0   0   0            0            0            
ST1	033726 0      0   0   0            0            0            
ST2	033726 0      0   0   0            0            0            
ST9	033726 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 574
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0853

*033726 CAMN	0,035426
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033726 033726 0   0   316000035426 0            000000000400 
IT1	033726 0      0   0   316000035426 0            000000000400 
AT3	033726 0      0   0   000000035426 0            316000035426 
AT6	033726 035426 0   0   000000035426 0            316000035426 
FT0	033726 035426 0   0   000000000400 0            316000035426 
FT1A	033726 035426 0   0   000000000400 0            000000000400 
FT2	033726 035426 0   0   0            0            000000000400 
FT2RQ	033726 035426 0   0   0            0            000000000400 
FT3	033726 035426 0   0   0            0            000000000400 
FT9	033727 035426 0   0   0            0            000000000400 
ET0	033730 035426 0   0   777777777400 0            000000000400 
ST1A	033730 035426 0   0   777777777400 0            000000000400 
ST9	033730 035426 0   0   777777777400 0            000000000400 


*033730 JUMPA	0,033731
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033730 033730 0   0   324000033731 0            000000033731 
IT1	033730 0      0   0   324000033731 0            000000033731 
AT3	033730 0      0   0   000000033731 0            324000033731 
AT6	033730 033731 0   0   000000033731 0            324000033731 
FT1A	033730 033731 0   0   000000033731 0            000000033731 
FT2	033730 033731 0   0   0            0            000000033731 
FT2RQ	033730 033731 0   0   0            0            000000033731 
FT3	033730 033731 0   0   0            0            000000033731 
FT9	033731 033731 0   0   0            0            000000033731 
ET0	033731 033731 0   0   0            0            000000033731 
ST1A	033731 033731 0   0   0            0            000000033731 
ST9	033731 033731 0   0   0            0            000000033731 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 575
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0854

*033731 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033731 033731 0   0   400000000000 0            0            
IT1	033731 0      0   0   400000000000 0            0            
AT3	033731 0      0   0   0            0            400000000000 
AT6	033731 0      0   0   0            0            400000000000 
FT1A	033731 0      0   0   0            0            0            
FT9	033732 0      0   0   0            0            0            
ET0	033732 0      0   0   0            0            0            
ST1	033732 0      0   0   0            0            0            
ST2	033732 0      0   0   0            0            0            
ST9	033732 0      0   0   0            0            0            


*033732 CAMN	0,035427
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033732 033732 0   0   316000035427 0            000000001000 
IT1	033732 0      0   0   316000035427 0            000000001000 
AT3	033732 0      0   0   000000035427 0            316000035427 
AT6	033732 035427 0   0   000000035427 0            316000035427 
FT0	033732 035427 0   0   000000001000 0            316000035427 
FT1A	033732 035427 0   0   000000001000 0            000000001000 
FT2	033732 035427 0   0   0            0            000000001000 
FT2RQ	033732 035427 0   0   0            0            000000001000 
FT3	033732 035427 0   0   0            0            000000001000 
FT9	033733 035427 0   0   0            0            000000001000 
ET0	033734 035427 0   0   777777777000 0            000000001000 
ST1A	033734 035427 0   0   777777777000 0            000000001000 
ST9	033734 035427 0   0   777777777000 0            000000001000 


*033734 JUMPA	0,033735
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033734 033734 0   0   324000033735 0            000000033735 
IT1	033734 0      0   0   324000033735 0            000000033735 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 576
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0855

AT3	033734 0      0   0   000000033735 0            324000033735 
AT6	033734 033735 0   0   000000033735 0            324000033735 
FT1A	033734 033735 0   0   000000033735 0            000000033735 
FT2	033734 033735 0   0   0            0            000000033735 
FT2RQ	033734 033735 0   0   0            0            000000033735 
FT3	033734 033735 0   0   0            0            000000033735 
FT9	033735 033735 0   0   0            0            000000033735 
ET0	033735 033735 0   0   0            0            000000033735 
ST1A	033735 033735 0   0   0            0            000000033735 
ST9	033735 033735 0   0   0            0            000000033735 


*033735 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033735 033735 0   0   400000000000 0            0            
IT1	033735 0      0   0   400000000000 0            0            
AT3	033735 0      0   0   0            0            400000000000 
AT6	033735 0      0   0   0            0            400000000000 
FT1A	033735 0      0   0   0            0            0            
FT9	033736 0      0   0   0            0            0            
ET0	033736 0      0   0   0            0            0            
ST1	033736 0      0   0   0            0            0            
ST2	033736 0      0   0   0            0            0            
ST9	033736 0      0   0   0            0            0            


*033736 CAMN	0,035430
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033736 033736 0   0   316000035430 0            000000002000 
IT1	033736 0      0   0   316000035430 0            000000002000 
AT3	033736 0      0   0   000000035430 0            316000035430 
AT6	033736 035430 0   0   000000035430 0            316000035430 
FT0	033736 035430 0   0   000000002000 0            316000035430 
FT1A	033736 035430 0   0   000000002000 0            000000002000 
FT2	033736 035430 0   0   0            0            000000002000 
FT2RQ	033736 035430 0   0   0            0            000000002000 
FT3	033736 035430 0   0   0            0            000000002000 
FT9	033737 035430 0   0   0            0            000000002000 
ET0	033740 035430 0   0   777777776000 0            000000002000 
ST1A	033740 035430 0   0   777777776000 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 577
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0856

ST9	033740 035430 0   0   777777776000 0            000000002000 


*033740 JUMPA	0,033741
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033740 033740 0   0   324000033741 0            000000033741 
IT1	033740 0      0   0   324000033741 0            000000033741 
AT3	033740 0      0   0   000000033741 0            324000033741 
AT6	033740 033741 0   0   000000033741 0            324000033741 
FT1A	033740 033741 0   0   000000033741 0            000000033741 
FT2	033740 033741 0   0   0            0            000000033741 
FT2RQ	033740 033741 0   0   0            0            000000033741 
FT3	033740 033741 0   0   0            0            000000033741 
FT9	033741 033741 0   0   0            0            000000033741 
ET0	033741 033741 0   0   0            0            000000033741 
ST1A	033741 033741 0   0   0            0            000000033741 
ST9	033741 033741 0   0   0            0            000000033741 


*033741 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033741 033741 0   0   400000000000 0            0            
IT1	033741 0      0   0   400000000000 0            0            
AT3	033741 0      0   0   0            0            400000000000 
AT6	033741 0      0   0   0            0            400000000000 
FT1A	033741 0      0   0   0            0            0            
FT9	033742 0      0   0   0            0            0            
ET0	033742 0      0   0   0            0            0            
ST1	033742 0      0   0   0            0            0            
ST2	033742 0      0   0   0            0            0            
ST9	033742 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 578
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0857

*033742 CAMN	0,035431
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033742 033742 0   0   316000035431 0            000000004000 
IT1	033742 0      0   0   316000035431 0            000000004000 
AT3	033742 0      0   0   000000035431 0            316000035431 
AT6	033742 035431 0   0   000000035431 0            316000035431 
FT0	033742 035431 0   0   000000004000 0            316000035431 
FT1A	033742 035431 0   0   000000004000 0            000000004000 
FT2	033742 035431 0   0   0            0            000000004000 
FT2RQ	033742 035431 0   0   0            0            000000004000 
FT3	033742 035431 0   0   0            0            000000004000 
FT9	033743 035431 0   0   0            0            000000004000 
ET0	033744 035431 0   0   777777774000 0            000000004000 
ST1A	033744 035431 0   0   777777774000 0            000000004000 
ST9	033744 035431 0   0   777777774000 0            000000004000 


*033744 JUMPA	0,033745
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033744 033744 0   0   324000033745 0            000000033745 
IT1	033744 0      0   0   324000033745 0            000000033745 
AT3	033744 0      0   0   000000033745 0            324000033745 
AT6	033744 033745 0   0   000000033745 0            324000033745 
FT1A	033744 033745 0   0   000000033745 0            000000033745 
FT2	033744 033745 0   0   0            0            000000033745 
FT2RQ	033744 033745 0   0   0            0            000000033745 
FT3	033744 033745 0   0   0            0            000000033745 
FT9	033745 033745 0   0   0            0            000000033745 
ET0	033745 033745 0   0   0            0            000000033745 
ST1A	033745 033745 0   0   0            0            000000033745 
ST9	033745 033745 0   0   0            0            000000033745 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 579
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0858

*033745 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033745 033745 0   0   400000000000 0            0            
IT1	033745 0      0   0   400000000000 0            0            
AT3	033745 0      0   0   0            0            400000000000 
AT6	033745 0      0   0   0            0            400000000000 
FT1A	033745 0      0   0   0            0            0            
FT9	033746 0      0   0   0            0            0            
ET0	033746 0      0   0   0            0            0            
ST1	033746 0      0   0   0            0            0            
ST2	033746 0      0   0   0            0            0            
ST9	033746 0      0   0   0            0            0            


*033746 CAMN	0,035432
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033746 033746 0   0   316000035432 0            000000010000 
IT1	033746 0      0   0   316000035432 0            000000010000 
AT3	033746 0      0   0   000000035432 0            316000035432 
AT6	033746 035432 0   0   000000035432 0            316000035432 
FT0	033746 035432 0   0   000000010000 0            316000035432 
FT1A	033746 035432 0   0   000000010000 0            000000010000 
FT2	033746 035432 0   0   0            0            000000010000 
FT2RQ	033746 035432 0   0   0            0            000000010000 
FT3	033746 035432 0   0   0            0            000000010000 
FT9	033747 035432 0   0   0            0            000000010000 
ET0	033750 035432 0   0   777777770000 0            000000010000 
ST1A	033750 035432 0   0   777777770000 0            000000010000 
ST9	033750 035432 0   0   777777770000 0            000000010000 


*033750 JUMPA	0,033751
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033750 033750 0   0   324000033751 0            000000033751 
IT1	033750 0      0   0   324000033751 0            000000033751 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 580
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0859

AT3	033750 0      0   0   000000033751 0            324000033751 
AT6	033750 033751 0   0   000000033751 0            324000033751 
FT1A	033750 033751 0   0   000000033751 0            000000033751 
FT2	033750 033751 0   0   0            0            000000033751 
FT2RQ	033750 033751 0   0   0            0            000000033751 
FT3	033750 033751 0   0   0            0            000000033751 
FT9	033751 033751 0   0   0            0            000000033751 
ET0	033751 033751 0   0   0            0            000000033751 
ST1A	033751 033751 0   0   0            0            000000033751 
ST9	033751 033751 0   0   0            0            000000033751 


*033751 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033751 033751 0   0   400000000000 0            0            
IT1	033751 0      0   0   400000000000 0            0            
AT3	033751 0      0   0   0            0            400000000000 
AT6	033751 0      0   0   0            0            400000000000 
FT1A	033751 0      0   0   0            0            0            
FT9	033752 0      0   0   0            0            0            
ET0	033752 0      0   0   0            0            0            
ST1	033752 0      0   0   0            0            0            
ST2	033752 0      0   0   0            0            0            
ST9	033752 0      0   0   0            0            0            


*033752 CAMN	0,035433
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033752 033752 0   0   316000035433 0            000000020000 
IT1	033752 0      0   0   316000035433 0            000000020000 
AT3	033752 0      0   0   000000035433 0            316000035433 
AT6	033752 035433 0   0   000000035433 0            316000035433 
FT0	033752 035433 0   0   000000020000 0            316000035433 
FT1A	033752 035433 0   0   000000020000 0            000000020000 
FT2	033752 035433 0   0   0            0            000000020000 
FT2RQ	033752 035433 0   0   0            0            000000020000 
FT3	033752 035433 0   0   0            0            000000020000 
FT9	033753 035433 0   0   0            0            000000020000 
ET0	033754 035433 0   0   777777760000 0            000000020000 
ST1A	033754 035433 0   0   777777760000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 581
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0860

ST9	033754 035433 0   0   777777760000 0            000000020000 


*033754 JUMPA	0,033755
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033754 033754 0   0   324000033755 0            000000033755 
IT1	033754 0      0   0   324000033755 0            000000033755 
AT3	033754 0      0   0   000000033755 0            324000033755 
AT6	033754 033755 0   0   000000033755 0            324000033755 
FT1A	033754 033755 0   0   000000033755 0            000000033755 
FT2	033754 033755 0   0   0            0            000000033755 
FT2RQ	033754 033755 0   0   0            0            000000033755 
FT3	033754 033755 0   0   0            0            000000033755 
FT9	033755 033755 0   0   0            0            000000033755 
ET0	033755 033755 0   0   0            0            000000033755 
ST1A	033755 033755 0   0   0            0            000000033755 
ST9	033755 033755 0   0   0            0            000000033755 


*033755 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033755 033755 0   0   400000000000 0            0            
IT1	033755 0      0   0   400000000000 0            0            
AT3	033755 0      0   0   0            0            400000000000 
AT6	033755 0      0   0   0            0            400000000000 
FT1A	033755 0      0   0   0            0            0            
FT9	033756 0      0   0   0            0            0            
ET0	033756 0      0   0   0            0            0            
ST1	033756 0      0   0   0            0            0            
ST2	033756 0      0   0   0            0            0            
ST9	033756 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 582
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0861

*033756 CAMN	0,035434
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033756 033756 0   0   316000035434 0            000000040000 
IT1	033756 0      0   0   316000035434 0            000000040000 
AT3	033756 0      0   0   000000035434 0            316000035434 
AT6	033756 035434 0   0   000000035434 0            316000035434 
FT0	033756 035434 0   0   000000040000 0            316000035434 
FT1A	033756 035434 0   0   000000040000 0            000000040000 
FT2	033756 035434 0   0   0            0            000000040000 
FT2RQ	033756 035434 0   0   0            0            000000040000 
FT3	033756 035434 0   0   0            0            000000040000 
FT9	033757 035434 0   0   0            0            000000040000 
ET0	033760 035434 0   0   777777740000 0            000000040000 
ST1A	033760 035434 0   0   777777740000 0            000000040000 
ST9	033760 035434 0   0   777777740000 0            000000040000 


*033760 JUMPA	0,033761
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033760 033760 0   0   324000033761 0            000000033761 
IT1	033760 0      0   0   324000033761 0            000000033761 
AT3	033760 0      0   0   000000033761 0            324000033761 
AT6	033760 033761 0   0   000000033761 0            324000033761 
FT1A	033760 033761 0   0   000000033761 0            000000033761 
FT2	033760 033761 0   0   0            0            000000033761 
FT2RQ	033760 033761 0   0   0            0            000000033761 
FT3	033760 033761 0   0   0            0            000000033761 
FT9	033761 033761 0   0   0            0            000000033761 
ET0	033761 033761 0   0   0            0            000000033761 
ST1A	033761 033761 0   0   0            0            000000033761 
ST9	033761 033761 0   0   0            0            000000033761 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 583
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0862

*033761 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033761 033761 0   0   400000000000 0            0            
IT1	033761 0      0   0   400000000000 0            0            
AT3	033761 0      0   0   0            0            400000000000 
AT6	033761 0      0   0   0            0            400000000000 
FT1A	033761 0      0   0   0            0            0            
FT9	033762 0      0   0   0            0            0            
ET0	033762 0      0   0   0            0            0            
ST1	033762 0      0   0   0            0            0            
ST2	033762 0      0   0   0            0            0            
ST9	033762 0      0   0   0            0            0            


*033762 CAMN	0,035435
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033762 033762 0   0   316000035435 0            000000100000 
IT1	033762 0      0   0   316000035435 0            000000100000 
AT3	033762 0      0   0   000000035435 0            316000035435 
AT6	033762 035435 0   0   000000035435 0            316000035435 
FT0	033762 035435 0   0   000000100000 0            316000035435 
FT1A	033762 035435 0   0   000000100000 0            000000100000 
FT2	033762 035435 0   0   0            0            000000100000 
FT2RQ	033762 035435 0   0   0            0            000000100000 
FT3	033762 035435 0   0   0            0            000000100000 
FT9	033763 035435 0   0   0            0            000000100000 
ET0	033764 035435 0   0   777777700000 0            000000100000 
ST1A	033764 035435 0   0   777777700000 0            000000100000 
ST9	033764 035435 0   0   777777700000 0            000000100000 


*033764 JUMPA	0,033765
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033764 033764 0   0   324000033765 0            000000033765 
IT1	033764 0      0   0   324000033765 0            000000033765 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 584
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0863

AT3	033764 0      0   0   000000033765 0            324000033765 
AT6	033764 033765 0   0   000000033765 0            324000033765 
FT1A	033764 033765 0   0   000000033765 0            000000033765 
FT2	033764 033765 0   0   0            0            000000033765 
FT2RQ	033764 033765 0   0   0            0            000000033765 
FT3	033764 033765 0   0   0            0            000000033765 
FT9	033765 033765 0   0   0            0            000000033765 
ET0	033765 033765 0   0   0            0            000000033765 
ST1A	033765 033765 0   0   0            0            000000033765 
ST9	033765 033765 0   0   0            0            000000033765 


*033765 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033765 033765 0   0   400000000000 0            0            
IT1	033765 0      0   0   400000000000 0            0            
AT3	033765 0      0   0   0            0            400000000000 
AT6	033765 0      0   0   0            0            400000000000 
FT1A	033765 0      0   0   0            0            0            
FT9	033766 0      0   0   0            0            0            
ET0	033766 0      0   0   0            0            0            
ST1	033766 0      0   0   0            0            0            
ST2	033766 0      0   0   0            0            0            
ST9	033766 0      0   0   0            0            0            


*033766 CAMN	0,035436
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033766 033766 0   0   316000035436 0            000000200000 
IT1	033766 0      0   0   316000035436 0            000000200000 
AT3	033766 0      0   0   000000035436 0            316000035436 
AT6	033766 035436 0   0   000000035436 0            316000035436 
FT0	033766 035436 0   0   000000200000 0            316000035436 
FT1A	033766 035436 0   0   000000200000 0            000000200000 
FT2	033766 035436 0   0   0            0            000000200000 
FT2RQ	033766 035436 0   0   0            0            000000200000 
FT3	033766 035436 0   0   0            0            000000200000 
FT9	033767 035436 0   0   0            0            000000200000 
ET0	033770 035436 0   0   777777600000 0            000000200000 
ST1A	033770 035436 0   0   777777600000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 585
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0864

ST9	033770 035436 0   0   777777600000 0            000000200000 


*033770 JUMPA	0,033771
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033770 033770 0   0   324000033771 0            000000033771 
IT1	033770 0      0   0   324000033771 0            000000033771 
AT3	033770 0      0   0   000000033771 0            324000033771 
AT6	033770 033771 0   0   000000033771 0            324000033771 
FT1A	033770 033771 0   0   000000033771 0            000000033771 
FT2	033770 033771 0   0   0            0            000000033771 
FT2RQ	033770 033771 0   0   0            0            000000033771 
FT3	033770 033771 0   0   0            0            000000033771 
FT9	033771 033771 0   0   0            0            000000033771 
ET0	033771 033771 0   0   0            0            000000033771 
ST1A	033771 033771 0   0   0            0            000000033771 
ST9	033771 033771 0   0   0            0            000000033771 


*033771 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033771 033771 0   0   400000000000 0            0            
IT1	033771 0      0   0   400000000000 0            0            
AT3	033771 0      0   0   0            0            400000000000 
AT6	033771 0      0   0   0            0            400000000000 
FT1A	033771 0      0   0   0            0            0            
FT9	033772 0      0   0   0            0            0            
ET0	033772 0      0   0   0            0            0            
ST1	033772 0      0   0   0            0            0            
ST2	033772 0      0   0   0            0            0            
ST9	033772 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 586
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0865

*033772 CAMN	0,035437
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033772 033772 0   0   316000035437 0            000000400000 
IT1	033772 0      0   0   316000035437 0            000000400000 
AT3	033772 0      0   0   000000035437 0            316000035437 
AT6	033772 035437 0   0   000000035437 0            316000035437 
FT0	033772 035437 0   0   000000400000 0            316000035437 
FT1A	033772 035437 0   0   000000400000 0            000000400000 
FT2	033772 035437 0   0   0            0            000000400000 
FT2RQ	033772 035437 0   0   0            0            000000400000 
FT3	033772 035437 0   0   0            0            000000400000 
FT9	033773 035437 0   0   0            0            000000400000 
ET0	033774 035437 0   0   777777400000 0            000000400000 
ST1A	033774 035437 0   0   777777400000 0            000000400000 
ST9	033774 035437 0   0   777777400000 0            000000400000 


*033774 JUMPA	0,033775
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033774 033774 0   0   324000033775 0            000000033775 
IT1	033774 0      0   0   324000033775 0            000000033775 
AT3	033774 0      0   0   000000033775 0            324000033775 
AT6	033774 033775 0   0   000000033775 0            324000033775 
FT1A	033774 033775 0   0   000000033775 0            000000033775 
FT2	033774 033775 0   0   0            0            000000033775 
FT2RQ	033774 033775 0   0   0            0            000000033775 
FT3	033774 033775 0   0   0            0            000000033775 
FT9	033775 033775 0   0   0            0            000000033775 
ET0	033775 033775 0   0   0            0            000000033775 
ST1A	033775 033775 0   0   0            0            000000033775 
ST9	033775 033775 0   0   0            0            000000033775 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 587
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0866

*033775 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033775 033775 0   0   400000000000 0            0            
IT1	033775 0      0   0   400000000000 0            0            
AT3	033775 0      0   0   0            0            400000000000 
AT6	033775 0      0   0   0            0            400000000000 
FT1A	033775 0      0   0   0            0            0            
FT9	033776 0      0   0   0            0            0            
ET0	033776 0      0   0   0            0            0            
ST1	033776 0      0   0   0            0            0            
ST2	033776 0      0   0   0            0            0            
ST9	033776 0      0   0   0            0            0            


*033776 CAMN	0,035440
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033776 033776 0   0   316000035440 0            000001000000 
IT1	033776 0      0   0   316000035440 0            000001000000 
AT3	033776 0      0   0   000000035440 0            316000035440 
AT6	033776 035440 0   0   000000035440 0            316000035440 
FT0	033776 035440 0   0   000001000000 0            316000035440 
FT1A	033776 035440 0   0   000001000000 0            000001000000 
FT2	033776 035440 0   0   0            0            000001000000 
FT2RQ	033776 035440 0   0   0            0            000001000000 
FT3	033776 035440 0   0   0            0            000001000000 
FT9	033777 035440 0   0   0            0            000001000000 
ET0	0      035440 0   0   777777000000 0            000001000000 
ST1A	0      035440 0   0   777777000000 0            000001000000 
ST9	0      035440 0   0   777777000000 0            000001000000 


*034000 JUMPA	0,034001
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034001 0            000000034001 
IT1	0      0      0   0   324000034001 0            000000034001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 588
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0867

AT3	0      0      0   0   000000034001 0            324000034001 
AT6	0      034001 0   0   000000034001 0            324000034001 
FT1A	0      034001 0   0   000000034001 0            000000034001 
FT2	0      034001 0   0   0            0            000000034001 
FT2RQ	0      034001 0   0   0            0            000000034001 
FT3	0      034001 0   0   0            0            000000034001 
FT9	034001 034001 0   0   0            0            000000034001 
ET0	034001 034001 0   0   0            0            000000034001 
ST1A	034001 034001 0   0   0            0            000000034001 
ST9	034001 034001 0   0   0            0            000000034001 


*034001 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034001 034001 0   0   400000000000 0            0            
IT1	034001 0      0   0   400000000000 0            0            
AT3	034001 0      0   0   0            0            400000000000 
AT6	034001 0      0   0   0            0            400000000000 
FT1A	034001 0      0   0   0            0            0            
FT9	034002 0      0   0   0            0            0            
ET0	034002 0      0   0   0            0            0            
ST1	034002 0      0   0   0            0            0            
ST2	034002 0      0   0   0            0            0            
ST9	034002 0      0   0   0            0            0            


*034002 CAMN	0,035441
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034002 034002 0   0   316000035441 0            000002000000 
IT1	034002 0      0   0   316000035441 0            000002000000 
AT3	034002 0      0   0   000000035441 0            316000035441 
AT6	034002 035441 0   0   000000035441 0            316000035441 
FT0	034002 035441 0   0   000002000000 0            316000035441 
FT1A	034002 035441 0   0   000002000000 0            000002000000 
FT2	034002 035441 0   0   0            0            000002000000 
FT2RQ	034002 035441 0   0   0            0            000002000000 
FT3	034002 035441 0   0   0            0            000002000000 
FT9	034003 035441 0   0   0            0            000002000000 
ET0	034004 035441 0   0   777776000000 0            000002000000 
ST1A	034004 035441 0   0   777776000000 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 589
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0868

ST9	034004 035441 0   0   777776000000 0            000002000000 


*034004 JUMPA	0,034005
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034004 034004 0   0   324000034005 0            000000034005 
IT1	034004 0      0   0   324000034005 0            000000034005 
AT3	034004 0      0   0   000000034005 0            324000034005 
AT6	034004 034005 0   0   000000034005 0            324000034005 
FT1A	034004 034005 0   0   000000034005 0            000000034005 
FT2	034004 034005 0   0   0            0            000000034005 
FT2RQ	034004 034005 0   0   0            0            000000034005 
FT3	034004 034005 0   0   0            0            000000034005 
FT9	034005 034005 0   0   0            0            000000034005 
ET0	034005 034005 0   0   0            0            000000034005 
ST1A	034005 034005 0   0   0            0            000000034005 
ST9	034005 034005 0   0   0            0            000000034005 


*034005 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034005 034005 0   0   400000000000 0            0            
IT1	034005 0      0   0   400000000000 0            0            
AT3	034005 0      0   0   0            0            400000000000 
AT6	034005 0      0   0   0            0            400000000000 
FT1A	034005 0      0   0   0            0            0            
FT9	034006 0      0   0   0            0            0            
ET0	034006 0      0   0   0            0            0            
ST1	034006 0      0   0   0            0            0            
ST2	034006 0      0   0   0            0            0            
ST9	034006 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 590
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0869

*034006 CAMN	0,035442
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034006 034006 0   0   316000035442 0            000004000000 
IT1	034006 0      0   0   316000035442 0            000004000000 
AT3	034006 0      0   0   000000035442 0            316000035442 
AT6	034006 035442 0   0   000000035442 0            316000035442 
FT0	034006 035442 0   0   000004000000 0            316000035442 
FT1A	034006 035442 0   0   000004000000 0            000004000000 
FT2	034006 035442 0   0   0            0            000004000000 
FT2RQ	034006 035442 0   0   0            0            000004000000 
FT3	034006 035442 0   0   0            0            000004000000 
FT9	034007 035442 0   0   0            0            000004000000 
ET0	034010 035442 0   0   777774000000 0            000004000000 
ST1A	034010 035442 0   0   777774000000 0            000004000000 
ST9	034010 035442 0   0   777774000000 0            000004000000 


*034010 JUMPA	0,034011
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034010 034010 0   0   324000034011 0            000000034011 
IT1	034010 0      0   0   324000034011 0            000000034011 
AT3	034010 0      0   0   000000034011 0            324000034011 
AT6	034010 034011 0   0   000000034011 0            324000034011 
FT1A	034010 034011 0   0   000000034011 0            000000034011 
FT2	034010 034011 0   0   0            0            000000034011 
FT2RQ	034010 034011 0   0   0            0            000000034011 
FT3	034010 034011 0   0   0            0            000000034011 
FT9	034011 034011 0   0   0            0            000000034011 
ET0	034011 034011 0   0   0            0            000000034011 
ST1A	034011 034011 0   0   0            0            000000034011 
ST9	034011 034011 0   0   0            0            000000034011 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 591
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0870

*034011 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034011 034011 0   0   400000000000 0            0            
IT1	034011 0      0   0   400000000000 0            0            
AT3	034011 0      0   0   0            0            400000000000 
AT6	034011 0      0   0   0            0            400000000000 
FT1A	034011 0      0   0   0            0            0            
FT9	034012 0      0   0   0            0            0            
ET0	034012 0      0   0   0            0            0            
ST1	034012 0      0   0   0            0            0            
ST2	034012 0      0   0   0            0            0            
ST9	034012 0      0   0   0            0            0            


*034012 CAMN	0,035443
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034012 034012 0   0   316000035443 0            000010000000 
IT1	034012 0      0   0   316000035443 0            000010000000 
AT3	034012 0      0   0   000000035443 0            316000035443 
AT6	034012 035443 0   0   000000035443 0            316000035443 
FT0	034012 035443 0   0   000010000000 0            316000035443 
FT1A	034012 035443 0   0   000010000000 0            000010000000 
FT2	034012 035443 0   0   0            0            000010000000 
FT2RQ	034012 035443 0   0   0            0            000010000000 
FT3	034012 035443 0   0   0            0            000010000000 
FT9	034013 035443 0   0   0            0            000010000000 
ET0	034014 035443 0   0   777770000000 0            000010000000 
ST1A	034014 035443 0   0   777770000000 0            000010000000 
ST9	034014 035443 0   0   777770000000 0            000010000000 


*034014 JUMPA	0,034015
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034014 034014 0   0   324000034015 0            000000034015 
IT1	034014 0      0   0   324000034015 0            000000034015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 592
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0871

AT3	034014 0      0   0   000000034015 0            324000034015 
AT6	034014 034015 0   0   000000034015 0            324000034015 
FT1A	034014 034015 0   0   000000034015 0            000000034015 
FT2	034014 034015 0   0   0            0            000000034015 
FT2RQ	034014 034015 0   0   0            0            000000034015 
FT3	034014 034015 0   0   0            0            000000034015 
FT9	034015 034015 0   0   0            0            000000034015 
ET0	034015 034015 0   0   0            0            000000034015 
ST1A	034015 034015 0   0   0            0            000000034015 
ST9	034015 034015 0   0   0            0            000000034015 


*034015 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034015 034015 0   0   400000000000 0            0            
IT1	034015 0      0   0   400000000000 0            0            
AT3	034015 0      0   0   0            0            400000000000 
AT6	034015 0      0   0   0            0            400000000000 
FT1A	034015 0      0   0   0            0            0            
FT9	034016 0      0   0   0            0            0            
ET0	034016 0      0   0   0            0            0            
ST1	034016 0      0   0   0            0            0            
ST2	034016 0      0   0   0            0            0            
ST9	034016 0      0   0   0            0            0            


*034016 CAMN	0,035444
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034016 034016 0   0   316000035444 0            000020000000 
IT1	034016 0      0   0   316000035444 0            000020000000 
AT3	034016 0      0   0   000000035444 0            316000035444 
AT6	034016 035444 0   0   000000035444 0            316000035444 
FT0	034016 035444 0   0   000020000000 0            316000035444 
FT1A	034016 035444 0   0   000020000000 0            000020000000 
FT2	034016 035444 0   0   0            0            000020000000 
FT2RQ	034016 035444 0   0   0            0            000020000000 
FT3	034016 035444 0   0   0            0            000020000000 
FT9	034017 035444 0   0   0            0            000020000000 
ET0	034020 035444 0   0   777760000000 0            000020000000 
ST1A	034020 035444 0   0   777760000000 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 593
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0872

ST9	034020 035444 0   0   777760000000 0            000020000000 


*034020 JUMPA	0,034021
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034020 034020 0   0   324000034021 0            000000034021 
IT1	034020 0      0   0   324000034021 0            000000034021 
AT3	034020 0      0   0   000000034021 0            324000034021 
AT6	034020 034021 0   0   000000034021 0            324000034021 
FT1A	034020 034021 0   0   000000034021 0            000000034021 
FT2	034020 034021 0   0   0            0            000000034021 
FT2RQ	034020 034021 0   0   0            0            000000034021 
FT3	034020 034021 0   0   0            0            000000034021 
FT9	034021 034021 0   0   0            0            000000034021 
ET0	034021 034021 0   0   0            0            000000034021 
ST1A	034021 034021 0   0   0            0            000000034021 
ST9	034021 034021 0   0   0            0            000000034021 


*034021 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034021 034021 0   0   400000000000 0            0            
IT1	034021 0      0   0   400000000000 0            0            
AT3	034021 0      0   0   0            0            400000000000 
AT6	034021 0      0   0   0            0            400000000000 
FT1A	034021 0      0   0   0            0            0            
FT9	034022 0      0   0   0            0            0            
ET0	034022 0      0   0   0            0            0            
ST1	034022 0      0   0   0            0            0            
ST2	034022 0      0   0   0            0            0            
ST9	034022 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 594
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0873

*034022 CAMN	0,035445
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034022 034022 0   0   316000035445 0            000040000000 
IT1	034022 0      0   0   316000035445 0            000040000000 
AT3	034022 0      0   0   000000035445 0            316000035445 
AT6	034022 035445 0   0   000000035445 0            316000035445 
FT0	034022 035445 0   0   000040000000 0            316000035445 
FT1A	034022 035445 0   0   000040000000 0            000040000000 
FT2	034022 035445 0   0   0            0            000040000000 
FT2RQ	034022 035445 0   0   0            0            000040000000 
FT3	034022 035445 0   0   0            0            000040000000 
FT9	034023 035445 0   0   0            0            000040000000 
ET0	034024 035445 0   0   777740000000 0            000040000000 
ST1A	034024 035445 0   0   777740000000 0            000040000000 
ST9	034024 035445 0   0   777740000000 0            000040000000 


*034024 JUMPA	0,034025
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034024 034024 0   0   324000034025 0            000000034025 
IT1	034024 0      0   0   324000034025 0            000000034025 
AT3	034024 0      0   0   000000034025 0            324000034025 
AT6	034024 034025 0   0   000000034025 0            324000034025 
FT1A	034024 034025 0   0   000000034025 0            000000034025 
FT2	034024 034025 0   0   0            0            000000034025 
FT2RQ	034024 034025 0   0   0            0            000000034025 
FT3	034024 034025 0   0   0            0            000000034025 
FT9	034025 034025 0   0   0            0            000000034025 
ET0	034025 034025 0   0   0            0            000000034025 
ST1A	034025 034025 0   0   0            0            000000034025 
ST9	034025 034025 0   0   0            0            000000034025 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 595
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0874

*034025 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034025 034025 0   0   400000000000 0            0            
IT1	034025 0      0   0   400000000000 0            0            
AT3	034025 0      0   0   0            0            400000000000 
AT6	034025 0      0   0   0            0            400000000000 
FT1A	034025 0      0   0   0            0            0            
FT9	034026 0      0   0   0            0            0            
ET0	034026 0      0   0   0            0            0            
ST1	034026 0      0   0   0            0            0            
ST2	034026 0      0   0   0            0            0            
ST9	034026 0      0   0   0            0            0            


*034026 CAMN	0,035446
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034026 034026 0   0   316000035446 0            000100000000 
IT1	034026 0      0   0   316000035446 0            000100000000 
AT3	034026 0      0   0   000000035446 0            316000035446 
AT6	034026 035446 0   0   000000035446 0            316000035446 
FT0	034026 035446 0   0   000100000000 0            316000035446 
FT1A	034026 035446 0   0   000100000000 0            000100000000 
FT2	034026 035446 0   0   0            0            000100000000 
FT2RQ	034026 035446 0   0   0            0            000100000000 
FT3	034026 035446 0   0   0            0            000100000000 
FT9	034027 035446 0   0   0            0            000100000000 
ET0	034030 035446 0   0   777700000000 0            000100000000 
ST1A	034030 035446 0   0   777700000000 0            000100000000 
ST9	034030 035446 0   0   777700000000 0            000100000000 


*034030 JUMPA	0,034031
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034030 034030 0   0   324000034031 0            000000034031 
IT1	034030 0      0   0   324000034031 0            000000034031 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 596
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0875

AT3	034030 0      0   0   000000034031 0            324000034031 
AT6	034030 034031 0   0   000000034031 0            324000034031 
FT1A	034030 034031 0   0   000000034031 0            000000034031 
FT2	034030 034031 0   0   0            0            000000034031 
FT2RQ	034030 034031 0   0   0            0            000000034031 
FT3	034030 034031 0   0   0            0            000000034031 
FT9	034031 034031 0   0   0            0            000000034031 
ET0	034031 034031 0   0   0            0            000000034031 
ST1A	034031 034031 0   0   0            0            000000034031 
ST9	034031 034031 0   0   0            0            000000034031 


*034031 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034031 034031 0   0   400000000000 0            0            
IT1	034031 0      0   0   400000000000 0            0            
AT3	034031 0      0   0   0            0            400000000000 
AT6	034031 0      0   0   0            0            400000000000 
FT1A	034031 0      0   0   0            0            0            
FT9	034032 0      0   0   0            0            0            
ET0	034032 0      0   0   0            0            0            
ST1	034032 0      0   0   0            0            0            
ST2	034032 0      0   0   0            0            0            
ST9	034032 0      0   0   0            0            0            


*034032 CAMN	0,035447
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034032 034032 0   0   316000035447 0            000200000000 
IT1	034032 0      0   0   316000035447 0            000200000000 
AT3	034032 0      0   0   000000035447 0            316000035447 
AT6	034032 035447 0   0   000000035447 0            316000035447 
FT0	034032 035447 0   0   000200000000 0            316000035447 
FT1A	034032 035447 0   0   000200000000 0            000200000000 
FT2	034032 035447 0   0   0            0            000200000000 
FT2RQ	034032 035447 0   0   0            0            000200000000 
FT3	034032 035447 0   0   0            0            000200000000 
FT9	034033 035447 0   0   0            0            000200000000 
ET0	034034 035447 0   0   777600000000 0            000200000000 
ST1A	034034 035447 0   0   777600000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 597
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0876

ST9	034034 035447 0   0   777600000000 0            000200000000 


*034034 JUMPA	0,034035
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034034 034034 0   0   324000034035 0            000000034035 
IT1	034034 0      0   0   324000034035 0            000000034035 
AT3	034034 0      0   0   000000034035 0            324000034035 
AT6	034034 034035 0   0   000000034035 0            324000034035 
FT1A	034034 034035 0   0   000000034035 0            000000034035 
FT2	034034 034035 0   0   0            0            000000034035 
FT2RQ	034034 034035 0   0   0            0            000000034035 
FT3	034034 034035 0   0   0            0            000000034035 
FT9	034035 034035 0   0   0            0            000000034035 
ET0	034035 034035 0   0   0            0            000000034035 
ST1A	034035 034035 0   0   0            0            000000034035 
ST9	034035 034035 0   0   0            0            000000034035 


*034035 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034035 034035 0   0   400000000000 0            0            
IT1	034035 0      0   0   400000000000 0            0            
AT3	034035 0      0   0   0            0            400000000000 
AT6	034035 0      0   0   0            0            400000000000 
FT1A	034035 0      0   0   0            0            0            
FT9	034036 0      0   0   0            0            0            
ET0	034036 0      0   0   0            0            0            
ST1	034036 0      0   0   0            0            0            
ST2	034036 0      0   0   0            0            0            
ST9	034036 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 598
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0877

*034036 CAMN	0,035450
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034036 034036 0   0   316000035450 0            000400000000 
IT1	034036 0      0   0   316000035450 0            000400000000 
AT3	034036 0      0   0   000000035450 0            316000035450 
AT6	034036 035450 0   0   000000035450 0            316000035450 
FT0	034036 035450 0   0   000400000000 0            316000035450 
FT1A	034036 035450 0   0   000400000000 0            000400000000 
FT2	034036 035450 0   0   0            0            000400000000 
FT2RQ	034036 035450 0   0   0            0            000400000000 
FT3	034036 035450 0   0   0            0            000400000000 
FT9	034037 035450 0   0   0            0            000400000000 
ET0	034040 035450 0   0   777400000000 0            000400000000 
ST1A	034040 035450 0   0   777400000000 0            000400000000 
ST9	034040 035450 0   0   777400000000 0            000400000000 


*034040 JUMPA	0,034041
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034040 034040 0   0   324000034041 0            000000034041 
IT1	034040 0      0   0   324000034041 0            000000034041 
AT3	034040 0      0   0   000000034041 0            324000034041 
AT6	034040 034041 0   0   000000034041 0            324000034041 
FT1A	034040 034041 0   0   000000034041 0            000000034041 
FT2	034040 034041 0   0   0            0            000000034041 
FT2RQ	034040 034041 0   0   0            0            000000034041 
FT3	034040 034041 0   0   0            0            000000034041 
FT9	034041 034041 0   0   0            0            000000034041 
ET0	034041 034041 0   0   0            0            000000034041 
ST1A	034041 034041 0   0   0            0            000000034041 
ST9	034041 034041 0   0   0            0            000000034041 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 599
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0878

*034041 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034041 034041 0   0   400000000000 0            0            
IT1	034041 0      0   0   400000000000 0            0            
AT3	034041 0      0   0   0            0            400000000000 
AT6	034041 0      0   0   0            0            400000000000 
FT1A	034041 0      0   0   0            0            0            
FT9	034042 0      0   0   0            0            0            
ET0	034042 0      0   0   0            0            0            
ST1	034042 0      0   0   0            0            0            
ST2	034042 0      0   0   0            0            0            
ST9	034042 0      0   0   0            0            0            


*034042 CAMN	0,035451
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034042 034042 0   0   316000035451 0            001000000000 
IT1	034042 0      0   0   316000035451 0            001000000000 
AT3	034042 0      0   0   000000035451 0            316000035451 
AT6	034042 035451 0   0   000000035451 0            316000035451 
FT0	034042 035451 0   0   001000000000 0            316000035451 
FT1A	034042 035451 0   0   001000000000 0            001000000000 
FT2	034042 035451 0   0   0            0            001000000000 
FT2RQ	034042 035451 0   0   0            0            001000000000 
FT3	034042 035451 0   0   0            0            001000000000 
FT9	034043 035451 0   0   0            0            001000000000 
ET0	034044 035451 0   0   777000000000 0            001000000000 
ST1A	034044 035451 0   0   777000000000 0            001000000000 
ST9	034044 035451 0   0   777000000000 0            001000000000 


*034044 JUMPA	0,034045
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034044 034044 0   0   324000034045 0            000000034045 
IT1	034044 0      0   0   324000034045 0            000000034045 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 600
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0879

AT3	034044 0      0   0   000000034045 0            324000034045 
AT6	034044 034045 0   0   000000034045 0            324000034045 
FT1A	034044 034045 0   0   000000034045 0            000000034045 
FT2	034044 034045 0   0   0            0            000000034045 
FT2RQ	034044 034045 0   0   0            0            000000034045 
FT3	034044 034045 0   0   0            0            000000034045 
FT9	034045 034045 0   0   0            0            000000034045 
ET0	034045 034045 0   0   0            0            000000034045 
ST1A	034045 034045 0   0   0            0            000000034045 
ST9	034045 034045 0   0   0            0            000000034045 


*034045 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034045 034045 0   0   400000000000 0            0            
IT1	034045 0      0   0   400000000000 0            0            
AT3	034045 0      0   0   0            0            400000000000 
AT6	034045 0      0   0   0            0            400000000000 
FT1A	034045 0      0   0   0            0            0            
FT9	034046 0      0   0   0            0            0            
ET0	034046 0      0   0   0            0            0            
ST1	034046 0      0   0   0            0            0            
ST2	034046 0      0   0   0            0            0            
ST9	034046 0      0   0   0            0            0            


*034046 CAMN	0,035452
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034046 034046 0   0   316000035452 0            002000000000 
IT1	034046 0      0   0   316000035452 0            002000000000 
AT3	034046 0      0   0   000000035452 0            316000035452 
AT6	034046 035452 0   0   000000035452 0            316000035452 
FT0	034046 035452 0   0   002000000000 0            316000035452 
FT1A	034046 035452 0   0   002000000000 0            002000000000 
FT2	034046 035452 0   0   0            0            002000000000 
FT2RQ	034046 035452 0   0   0            0            002000000000 
FT3	034046 035452 0   0   0            0            002000000000 
FT9	034047 035452 0   0   0            0            002000000000 
ET0	034050 035452 0   0   776000000000 0            002000000000 
ST1A	034050 035452 0   0   776000000000 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 601
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0880

ST9	034050 035452 0   0   776000000000 0            002000000000 


*034050 JUMPA	0,034051
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034050 034050 0   0   324000034051 0            000000034051 
IT1	034050 0      0   0   324000034051 0            000000034051 
AT3	034050 0      0   0   000000034051 0            324000034051 
AT6	034050 034051 0   0   000000034051 0            324000034051 
FT1A	034050 034051 0   0   000000034051 0            000000034051 
FT2	034050 034051 0   0   0            0            000000034051 
FT2RQ	034050 034051 0   0   0            0            000000034051 
FT3	034050 034051 0   0   0            0            000000034051 
FT9	034051 034051 0   0   0            0            000000034051 
ET0	034051 034051 0   0   0            0            000000034051 
ST1A	034051 034051 0   0   0            0            000000034051 
ST9	034051 034051 0   0   0            0            000000034051 


*034051 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034051 034051 0   0   400000000000 0            0            
IT1	034051 0      0   0   400000000000 0            0            
AT3	034051 0      0   0   0            0            400000000000 
AT6	034051 0      0   0   0            0            400000000000 
FT1A	034051 0      0   0   0            0            0            
FT9	034052 0      0   0   0            0            0            
ET0	034052 0      0   0   0            0            0            
ST1	034052 0      0   0   0            0            0            
ST2	034052 0      0   0   0            0            0            
ST9	034052 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 602
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0881

*034052 CAMN	0,035453
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034052 034052 0   0   316000035453 0            004000000000 
IT1	034052 0      0   0   316000035453 0            004000000000 
AT3	034052 0      0   0   000000035453 0            316000035453 
AT6	034052 035453 0   0   000000035453 0            316000035453 
FT0	034052 035453 0   0   004000000000 0            316000035453 
FT1A	034052 035453 0   0   004000000000 0            004000000000 
FT2	034052 035453 0   0   0            0            004000000000 
FT2RQ	034052 035453 0   0   0            0            004000000000 
FT3	034052 035453 0   0   0            0            004000000000 
FT9	034053 035453 0   0   0            0            004000000000 
ET0	034054 035453 0   0   774000000000 0            004000000000 
ST1A	034054 035453 0   0   774000000000 0            004000000000 
ST9	034054 035453 0   0   774000000000 0            004000000000 


*034054 JUMPA	0,034055
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034054 034054 0   0   324000034055 0            000000034055 
IT1	034054 0      0   0   324000034055 0            000000034055 
AT3	034054 0      0   0   000000034055 0            324000034055 
AT6	034054 034055 0   0   000000034055 0            324000034055 
FT1A	034054 034055 0   0   000000034055 0            000000034055 
FT2	034054 034055 0   0   0            0            000000034055 
FT2RQ	034054 034055 0   0   0            0            000000034055 
FT3	034054 034055 0   0   0            0            000000034055 
FT9	034055 034055 0   0   0            0            000000034055 
ET0	034055 034055 0   0   0            0            000000034055 
ST1A	034055 034055 0   0   0            0            000000034055 
ST9	034055 034055 0   0   0            0            000000034055 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 603
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0882

*034055 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034055 034055 0   0   400000000000 0            0            
IT1	034055 0      0   0   400000000000 0            0            
AT3	034055 0      0   0   0            0            400000000000 
AT6	034055 0      0   0   0            0            400000000000 
FT1A	034055 0      0   0   0            0            0            
FT9	034056 0      0   0   0            0            0            
ET0	034056 0      0   0   0            0            0            
ST1	034056 0      0   0   0            0            0            
ST2	034056 0      0   0   0            0            0            
ST9	034056 0      0   0   0            0            0            


*034056 CAMN	0,035454
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034056 034056 0   0   316000035454 0            010000000000 
IT1	034056 0      0   0   316000035454 0            010000000000 
AT3	034056 0      0   0   000000035454 0            316000035454 
AT6	034056 035454 0   0   000000035454 0            316000035454 
FT0	034056 035454 0   0   010000000000 0            316000035454 
FT1A	034056 035454 0   0   010000000000 0            010000000000 
FT2	034056 035454 0   0   0            0            010000000000 
FT2RQ	034056 035454 0   0   0            0            010000000000 
FT3	034056 035454 0   0   0            0            010000000000 
FT9	034057 035454 0   0   0            0            010000000000 
ET0	034060 035454 0   0   770000000000 0            010000000000 
ST1A	034060 035454 0   0   770000000000 0            010000000000 
ST9	034060 035454 0   0   770000000000 0            010000000000 


*034060 JUMPA	0,034061
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034060 034060 0   0   324000034061 0            000000034061 
IT1	034060 0      0   0   324000034061 0            000000034061 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 604
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0883

AT3	034060 0      0   0   000000034061 0            324000034061 
AT6	034060 034061 0   0   000000034061 0            324000034061 
FT1A	034060 034061 0   0   000000034061 0            000000034061 
FT2	034060 034061 0   0   0            0            000000034061 
FT2RQ	034060 034061 0   0   0            0            000000034061 
FT3	034060 034061 0   0   0            0            000000034061 
FT9	034061 034061 0   0   0            0            000000034061 
ET0	034061 034061 0   0   0            0            000000034061 
ST1A	034061 034061 0   0   0            0            000000034061 
ST9	034061 034061 0   0   0            0            000000034061 


*034061 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034061 034061 0   0   400000000000 0            0            
IT1	034061 0      0   0   400000000000 0            0            
AT3	034061 0      0   0   0            0            400000000000 
AT6	034061 0      0   0   0            0            400000000000 
FT1A	034061 0      0   0   0            0            0            
FT9	034062 0      0   0   0            0            0            
ET0	034062 0      0   0   0            0            0            
ST1	034062 0      0   0   0            0            0            
ST2	034062 0      0   0   0            0            0            
ST9	034062 0      0   0   0            0            0            


*034062 CAMN	0,035455
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034062 034062 0   0   316000035455 0            020000000000 
IT1	034062 0      0   0   316000035455 0            020000000000 
AT3	034062 0      0   0   000000035455 0            316000035455 
AT6	034062 035455 0   0   000000035455 0            316000035455 
FT0	034062 035455 0   0   020000000000 0            316000035455 
FT1A	034062 035455 0   0   020000000000 0            020000000000 
FT2	034062 035455 0   0   0            0            020000000000 
FT2RQ	034062 035455 0   0   0            0            020000000000 
FT3	034062 035455 0   0   0            0            020000000000 
FT9	034063 035455 0   0   0            0            020000000000 
ET0	034064 035455 0   0   760000000000 0            020000000000 
ST1A	034064 035455 0   0   760000000000 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 605
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0884

ST9	034064 035455 0   0   760000000000 0            020000000000 


*034064 JUMPA	0,034065
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034064 034064 0   0   324000034065 0            000000034065 
IT1	034064 0      0   0   324000034065 0            000000034065 
AT3	034064 0      0   0   000000034065 0            324000034065 
AT6	034064 034065 0   0   000000034065 0            324000034065 
FT1A	034064 034065 0   0   000000034065 0            000000034065 
FT2	034064 034065 0   0   0            0            000000034065 
FT2RQ	034064 034065 0   0   0            0            000000034065 
FT3	034064 034065 0   0   0            0            000000034065 
FT9	034065 034065 0   0   0            0            000000034065 
ET0	034065 034065 0   0   0            0            000000034065 
ST1A	034065 034065 0   0   0            0            000000034065 
ST9	034065 034065 0   0   0            0            000000034065 


*034065 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034065 034065 0   0   400000000000 0            0            
IT1	034065 0      0   0   400000000000 0            0            
AT3	034065 0      0   0   0            0            400000000000 
AT6	034065 0      0   0   0            0            400000000000 
FT1A	034065 0      0   0   0            0            0            
FT9	034066 0      0   0   0            0            0            
ET0	034066 0      0   0   0            0            0            
ST1	034066 0      0   0   0            0            0            
ST2	034066 0      0   0   0            0            0            
ST9	034066 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 606
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0885

*034066 CAMN	0,035456
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034066 034066 0   0   316000035456 0            040000000000 
IT1	034066 0      0   0   316000035456 0            040000000000 
AT3	034066 0      0   0   000000035456 0            316000035456 
AT6	034066 035456 0   0   000000035456 0            316000035456 
FT0	034066 035456 0   0   040000000000 0            316000035456 
FT1A	034066 035456 0   0   040000000000 0            040000000000 
FT2	034066 035456 0   0   0            0            040000000000 
FT2RQ	034066 035456 0   0   0            0            040000000000 
FT3	034066 035456 0   0   0            0            040000000000 
FT9	034067 035456 0   0   0            0            040000000000 
ET0	034070 035456 0   0   740000000000 0            040000000000 
ST1A	034070 035456 0   0   740000000000 0            040000000000 
ST9	034070 035456 0   0   740000000000 0            040000000000 


*034070 JUMPA	0,034071
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034070 034070 0   0   324000034071 0            000000034071 
IT1	034070 0      0   0   324000034071 0            000000034071 
AT3	034070 0      0   0   000000034071 0            324000034071 
AT6	034070 034071 0   0   000000034071 0            324000034071 
FT1A	034070 034071 0   0   000000034071 0            000000034071 
FT2	034070 034071 0   0   0            0            000000034071 
FT2RQ	034070 034071 0   0   0            0            000000034071 
FT3	034070 034071 0   0   0            0            000000034071 
FT9	034071 034071 0   0   0            0            000000034071 
ET0	034071 034071 0   0   0            0            000000034071 
ST1A	034071 034071 0   0   0            0            000000034071 
ST9	034071 034071 0   0   0            0            000000034071 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 607
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0886

*034071 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034071 034071 0   0   400000000000 0            0            
IT1	034071 0      0   0   400000000000 0            0            
AT3	034071 0      0   0   0            0            400000000000 
AT6	034071 0      0   0   0            0            400000000000 
FT1A	034071 0      0   0   0            0            0            
FT9	034072 0      0   0   0            0            0            
ET0	034072 0      0   0   0            0            0            
ST1	034072 0      0   0   0            0            0            
ST2	034072 0      0   0   0            0            0            
ST9	034072 0      0   0   0            0            0            


*034072 CAMN	0,035457
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034072 034072 0   0   316000035457 0            100000000000 
IT1	034072 0      0   0   316000035457 0            100000000000 
AT3	034072 0      0   0   000000035457 0            316000035457 
AT6	034072 035457 0   0   000000035457 0            316000035457 
FT0	034072 035457 0   0   100000000000 0            316000035457 
FT1A	034072 035457 0   0   100000000000 0            100000000000 
FT2	034072 035457 0   0   0            0            100000000000 
FT2RQ	034072 035457 0   0   0            0            100000000000 
FT3	034072 035457 0   0   0            0            100000000000 
FT9	034073 035457 0   0   0            0            100000000000 
ET0	034074 035457 0   0   700000000000 0            100000000000 
ST1A	034074 035457 0   0   700000000000 0            100000000000 
ST9	034074 035457 0   0   700000000000 0            100000000000 


*034074 JUMPA	0,034075
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034074 034074 0   0   324000034075 0            000000034075 
IT1	034074 0      0   0   324000034075 0            000000034075 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 608
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0887

AT3	034074 0      0   0   000000034075 0            324000034075 
AT6	034074 034075 0   0   000000034075 0            324000034075 
FT1A	034074 034075 0   0   000000034075 0            000000034075 
FT2	034074 034075 0   0   0            0            000000034075 
FT2RQ	034074 034075 0   0   0            0            000000034075 
FT3	034074 034075 0   0   0            0            000000034075 
FT9	034075 034075 0   0   0            0            000000034075 
ET0	034075 034075 0   0   0            0            000000034075 
ST1A	034075 034075 0   0   0            0            000000034075 
ST9	034075 034075 0   0   0            0            000000034075 


*034075 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034075 034075 0   0   400000000000 0            0            
IT1	034075 0      0   0   400000000000 0            0            
AT3	034075 0      0   0   0            0            400000000000 
AT6	034075 0      0   0   0            0            400000000000 
FT1A	034075 0      0   0   0            0            0            
FT9	034076 0      0   0   0            0            0            
ET0	034076 0      0   0   0            0            0            
ST1	034076 0      0   0   0            0            0            
ST2	034076 0      0   0   0            0            0            
ST9	034076 0      0   0   0            0            0            


*034076 CAMN	0,035460
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034076 034076 0   0   316000035460 0            200000000000 
IT1	034076 0      0   0   316000035460 0            200000000000 
AT3	034076 0      0   0   000000035460 0            316000035460 
AT6	034076 035460 0   0   000000035460 0            316000035460 
FT0	034076 035460 0   0   200000000000 0            316000035460 
FT1A	034076 035460 0   0   200000000000 0            200000000000 
FT2	034076 035460 0   0   0            0            200000000000 
FT2RQ	034076 035460 0   0   0            0            200000000000 
FT3	034076 035460 0   0   0            0            200000000000 
FT9	034077 035460 0   0   0            0            200000000000 
ET0	0      035460 0   0   600000000000 0            200000000000 
ST1A	0      035460 0   0   600000000000 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 609
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0888

ST9	0      035460 0   0   600000000000 0            200000000000 


*034100 JUMPA	0,034101
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034101 0            000000034101 
IT1	0      0      0   0   324000034101 0            000000034101 
AT3	0      0      0   0   000000034101 0            324000034101 
AT6	0      034101 0   0   000000034101 0            324000034101 
FT1A	0      034101 0   0   000000034101 0            000000034101 
FT2	0      034101 0   0   0            0            000000034101 
FT2RQ	0      034101 0   0   0            0            000000034101 
FT3	0      034101 0   0   0            0            000000034101 
FT9	034101 034101 0   0   0            0            000000034101 
ET0	034101 034101 0   0   0            0            000000034101 
ST1A	034101 034101 0   0   0            0            000000034101 
ST9	034101 034101 0   0   0            0            000000034101 


*034101 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034101 034101 0   0   400000000000 0            0            
IT1	034101 0      0   0   400000000000 0            0            
AT3	034101 0      0   0   0            0            400000000000 
AT6	034101 0      0   0   0            0            400000000000 
FT1A	034101 0      0   0   0            0            0            
FT9	034102 0      0   0   0            0            0            
ET0	034102 0      0   0   0            0            0            
ST1	034102 0      0   0   0            0            0            
ST2	034102 0      0   0   0            0            0            
ST9	034102 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 610
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0889

*034102 CAMN	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034102 034102 0   0   316000035461 0            400000000000 
IT1	034102 0      0   0   316000035461 0            400000000000 
AT3	034102 0      0   0   000000035461 0            316000035461 
AT6	034102 035461 0   0   000000035461 0            316000035461 
FT0	034102 035461 0   0   400000000000 0            316000035461 
FT1A	034102 035461 0   0   400000000000 0            400000000000 
FT2	034102 035461 0   0   0            0            400000000000 
FT2RQ	034102 035461 0   0   0            0            400000000000 
FT3	034102 035461 0   0   0            0            400000000000 
FT9	034103 035461 0   0   0            0            400000000000 
ET0	034104 035461 0   0   400000000000 0            400000000000 
ST1A	034104 035461 0   0   400000000000 0            400000000000 
ST9	034104 035461 0   0   400000000000 0            400000000000 


*034104 JUMPA	0,034105
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034104 034104 0   0   324000034105 0            000000034105 
IT1	034104 0      0   0   324000034105 0            000000034105 
AT3	034104 0      0   0   000000034105 0            324000034105 
AT6	034104 034105 0   0   000000034105 0            324000034105 
FT1A	034104 034105 0   0   000000034105 0            000000034105 
FT2	034104 034105 0   0   0            0            000000034105 
FT2RQ	034104 034105 0   0   0            0            000000034105 
FT3	034104 034105 0   0   0            0            000000034105 
FT9	034105 034105 0   0   0            0            000000034105 
ET0	034105 034105 0   0   0            0            000000034105 
ST1A	034105 034105 0   0   0            0            000000034105 
ST9	034105 034105 0   0   0            0            000000034105 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 611
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0890

*034105 MOVE 	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034105 034105 0   0   200000035416 0            000000000001 
IT1	034105 0      0   0   200000035416 0            000000000001 
AT3	034105 0      0   0   000000035416 0            200000035416 
AT6	034105 035416 0   0   000000035416 0            200000035416 
FT0	034105 035416 0   0   000000000001 0            200000035416 
FT1A	034105 035416 0   0   000000000001 0            000000000001 
FT9	034106 035416 0   0   000000000001 0            000000000001 
ET0	034106 035416 0   0   000000000001 0            000000000001 
ST1	034106 035416 0   0   000000000001 0            000000000001 
ST2	034106 035416 0   0   000000000001 0            000000000001 
ST9	034106 035416 0   0   000000000001 0            000000000001 


*034106 CAMN	0,035412
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034106 034106 0   0   316000035412 0            0            
IT1	034106 0      0   0   316000035412 0            0            
AT3	034106 0      0   0   000000035412 0            316000035412 
AT6	034106 035412 0   0   000000035412 0            316000035412 
FT0	034106 035412 0   0   0            0            316000035412 
FT1A	034106 035412 0   0   0            0            0            
FT2	034106 035412 0   0   0            0            0            
FT2RQ	034106 035412 0   0   000000000001 0            0            
FT3	034106 035412 0   0   000000000001 0            0            
FT9	034107 035412 0   0   000000000001 0            0            
ET0	034110 035412 0   0   000000000001 0            0            
ST1A	034110 035412 0   0   000000000001 0            0            
ST9	034110 035412 0   0   000000000001 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 612
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0891

*034110 JUMPA	0,034111
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034110 034110 0   0   324000034111 0            000000034111 
IT1	034110 0      0   0   324000034111 0            000000034111 
AT3	034110 0      0   0   000000034111 0            324000034111 
AT6	034110 034111 0   0   000000034111 0            324000034111 
FT1A	034110 034111 0   0   000000034111 0            000000034111 
FT2	034110 034111 0   0   0            0            000000034111 
FT2RQ	034110 034111 0   0   000000000001 0            000000034111 
FT3	034110 034111 0   0   000000000001 0            000000034111 
FT9	034111 034111 0   0   000000000001 0            000000034111 
ET0	034111 034111 0   0   000000000001 0            000000034111 
ST1A	034111 034111 0   0   000000000001 0            000000034111 
ST9	034111 034111 0   0   000000000001 0            000000034111 


*034111 MOVE 	0,035417
INITIAL
C(AC)=000000 000001 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034111 034111 0   0   200000035417 0            000000000002 
IT1	034111 0      0   0   200000035417 0            000000000002 
AT3	034111 0      0   0   000000035417 0            200000035417 
AT6	034111 035417 0   0   000000035417 0            200000035417 
FT0	034111 035417 0   0   000000000002 0            200000035417 
FT1A	034111 035417 0   0   000000000002 0            000000000002 
FT9	034112 035417 0   0   000000000002 0            000000000002 
ET0	034112 035417 0   0   000000000002 0            000000000002 
ST1	034112 035417 0   0   000000000002 0            000000000002 
ST2	034112 035417 0   0   000000000002 0            000000000002 
ST9	034112 035417 0   0   000000000002 0            000000000002 


*034112 CAMN	0,035412
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034112 034112 0   0   316000035412 0            0            
IT1	034112 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 613
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0892

AT3	034112 0      0   0   000000035412 0            316000035412 
AT6	034112 035412 0   0   000000035412 0            316000035412 
FT0	034112 035412 0   0   0            0            316000035412 
FT1A	034112 035412 0   0   0            0            0            
FT2	034112 035412 0   0   0            0            0            
FT2RQ	034112 035412 0   0   000000000002 0            0            
FT3	034112 035412 0   0   000000000002 0            0            
FT9	034113 035412 0   0   000000000002 0            0            
ET0	034114 035412 0   0   000000000002 0            0            
ST1A	034114 035412 0   0   000000000002 0            0            
ST9	034114 035412 0   0   000000000002 0            0            


*034114 JUMPA	0,034115
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034114 034114 0   0   324000034115 0            000000034115 
IT1	034114 0      0   0   324000034115 0            000000034115 
AT3	034114 0      0   0   000000034115 0            324000034115 
AT6	034114 034115 0   0   000000034115 0            324000034115 
FT1A	034114 034115 0   0   000000034115 0            000000034115 
FT2	034114 034115 0   0   0            0            000000034115 
FT2RQ	034114 034115 0   0   000000000002 0            000000034115 
FT3	034114 034115 0   0   000000000002 0            000000034115 
FT9	034115 034115 0   0   000000000002 0            000000034115 
ET0	034115 034115 0   0   000000000002 0            000000034115 
ST1A	034115 034115 0   0   000000000002 0            000000034115 
ST9	034115 034115 0   0   000000000002 0            000000034115 


*034115 MOVE 	0,035420
INITIAL
C(AC)=000000 000002 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034115 034115 0   0   200000035420 0            000000000004 
IT1	034115 0      0   0   200000035420 0            000000000004 
AT3	034115 0      0   0   000000035420 0            200000035420 
AT6	034115 035420 0   0   000000035420 0            200000035420 
FT0	034115 035420 0   0   000000000004 0            200000035420 
FT1A	034115 035420 0   0   000000000004 0            000000000004 
FT9	034116 035420 0   0   000000000004 0            000000000004 
ET0	034116 035420 0   0   000000000004 0            000000000004 
ST1	034116 035420 0   0   000000000004 0            000000000004 
ST2	034116 035420 0   0   000000000004 0            000000000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 614
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0893

ST9	034116 035420 0   0   000000000004 0            000000000004 


*034116 CAMN	0,035412
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034116 034116 0   0   316000035412 0            0            
IT1	034116 0      0   0   316000035412 0            0            
AT3	034116 0      0   0   000000035412 0            316000035412 
AT6	034116 035412 0   0   000000035412 0            316000035412 
FT0	034116 035412 0   0   0            0            316000035412 
FT1A	034116 035412 0   0   0            0            0            
FT2	034116 035412 0   0   0            0            0            
FT2RQ	034116 035412 0   0   000000000004 0            0            
FT3	034116 035412 0   0   000000000004 0            0            
FT9	034117 035412 0   0   000000000004 0            0            
ET0	034120 035412 0   0   000000000004 0            0            
ST1A	034120 035412 0   0   000000000004 0            0            
ST9	034120 035412 0   0   000000000004 0            0            


*034120 JUMPA	0,034121
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034120 034120 0   0   324000034121 0            000000034121 
IT1	034120 0      0   0   324000034121 0            000000034121 
AT3	034120 0      0   0   000000034121 0            324000034121 
AT6	034120 034121 0   0   000000034121 0            324000034121 
FT1A	034120 034121 0   0   000000034121 0            000000034121 
FT2	034120 034121 0   0   0            0            000000034121 
FT2RQ	034120 034121 0   0   000000000004 0            000000034121 
FT3	034120 034121 0   0   000000000004 0            000000034121 
FT9	034121 034121 0   0   000000000004 0            000000034121 
ET0	034121 034121 0   0   000000000004 0            000000034121 
ST1A	034121 034121 0   0   000000000004 0            000000034121 
ST9	034121 034121 0   0   000000000004 0            000000034121 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 615
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0894

*034121 MOVE 	0,035421
INITIAL
C(AC)=000000 000004 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034121 034121 0   0   200000035421 0            000000000010 
IT1	034121 0      0   0   200000035421 0            000000000010 
AT3	034121 0      0   0   000000035421 0            200000035421 
AT6	034121 035421 0   0   000000035421 0            200000035421 
FT0	034121 035421 0   0   000000000010 0            200000035421 
FT1A	034121 035421 0   0   000000000010 0            000000000010 
FT9	034122 035421 0   0   000000000010 0            000000000010 
ET0	034122 035421 0   0   000000000010 0            000000000010 
ST1	034122 035421 0   0   000000000010 0            000000000010 
ST2	034122 035421 0   0   000000000010 0            000000000010 
ST9	034122 035421 0   0   000000000010 0            000000000010 


*034122 CAMN	0,035412
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034122 034122 0   0   316000035412 0            0            
IT1	034122 0      0   0   316000035412 0            0            
AT3	034122 0      0   0   000000035412 0            316000035412 
AT6	034122 035412 0   0   000000035412 0            316000035412 
FT0	034122 035412 0   0   0            0            316000035412 
FT1A	034122 035412 0   0   0            0            0            
FT2	034122 035412 0   0   0            0            0            
FT2RQ	034122 035412 0   0   000000000010 0            0            
FT3	034122 035412 0   0   000000000010 0            0            
FT9	034123 035412 0   0   000000000010 0            0            
ET0	034124 035412 0   0   000000000010 0            0            
ST1A	034124 035412 0   0   000000000010 0            0            
ST9	034124 035412 0   0   000000000010 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 616
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0895

*034124 JUMPA	0,034125
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034124 034124 0   0   324000034125 0            000000034125 
IT1	034124 0      0   0   324000034125 0            000000034125 
AT3	034124 0      0   0   000000034125 0            324000034125 
AT6	034124 034125 0   0   000000034125 0            324000034125 
FT1A	034124 034125 0   0   000000034125 0            000000034125 
FT2	034124 034125 0   0   0            0            000000034125 
FT2RQ	034124 034125 0   0   000000000010 0            000000034125 
FT3	034124 034125 0   0   000000000010 0            000000034125 
FT9	034125 034125 0   0   000000000010 0            000000034125 
ET0	034125 034125 0   0   000000000010 0            000000034125 
ST1A	034125 034125 0   0   000000000010 0            000000034125 
ST9	034125 034125 0   0   000000000010 0            000000034125 


*034125 MOVE 	0,035422
INITIAL
C(AC)=000000 000010 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034125 034125 0   0   200000035422 0            000000000020 
IT1	034125 0      0   0   200000035422 0            000000000020 
AT3	034125 0      0   0   000000035422 0            200000035422 
AT6	034125 035422 0   0   000000035422 0            200000035422 
FT0	034125 035422 0   0   000000000020 0            200000035422 
FT1A	034125 035422 0   0   000000000020 0            000000000020 
FT9	034126 035422 0   0   000000000020 0            000000000020 
ET0	034126 035422 0   0   000000000020 0            000000000020 
ST1	034126 035422 0   0   000000000020 0            000000000020 
ST2	034126 035422 0   0   000000000020 0            000000000020 
ST9	034126 035422 0   0   000000000020 0            000000000020 


*034126 CAMN	0,035412
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034126 034126 0   0   316000035412 0            0            
IT1	034126 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 617
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0896

AT3	034126 0      0   0   000000035412 0            316000035412 
AT6	034126 035412 0   0   000000035412 0            316000035412 
FT0	034126 035412 0   0   0            0            316000035412 
FT1A	034126 035412 0   0   0            0            0            
FT2	034126 035412 0   0   0            0            0            
FT2RQ	034126 035412 0   0   000000000020 0            0            
FT3	034126 035412 0   0   000000000020 0            0            
FT9	034127 035412 0   0   000000000020 0            0            
ET0	034130 035412 0   0   000000000020 0            0            
ST1A	034130 035412 0   0   000000000020 0            0            
ST9	034130 035412 0   0   000000000020 0            0            


*034130 JUMPA	0,034131
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034130 034130 0   0   324000034131 0            000000034131 
IT1	034130 0      0   0   324000034131 0            000000034131 
AT3	034130 0      0   0   000000034131 0            324000034131 
AT6	034130 034131 0   0   000000034131 0            324000034131 
FT1A	034130 034131 0   0   000000034131 0            000000034131 
FT2	034130 034131 0   0   0            0            000000034131 
FT2RQ	034130 034131 0   0   000000000020 0            000000034131 
FT3	034130 034131 0   0   000000000020 0            000000034131 
FT9	034131 034131 0   0   000000000020 0            000000034131 
ET0	034131 034131 0   0   000000000020 0            000000034131 
ST1A	034131 034131 0   0   000000000020 0            000000034131 
ST9	034131 034131 0   0   000000000020 0            000000034131 


*034131 MOVE 	0,035423
INITIAL
C(AC)=000000 000020 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034131 034131 0   0   200000035423 0            000000000040 
IT1	034131 0      0   0   200000035423 0            000000000040 
AT3	034131 0      0   0   000000035423 0            200000035423 
AT6	034131 035423 0   0   000000035423 0            200000035423 
FT0	034131 035423 0   0   000000000040 0            200000035423 
FT1A	034131 035423 0   0   000000000040 0            000000000040 
FT9	034132 035423 0   0   000000000040 0            000000000040 
ET0	034132 035423 0   0   000000000040 0            000000000040 
ST1	034132 035423 0   0   000000000040 0            000000000040 
ST2	034132 035423 0   0   000000000040 0            000000000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 618
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0897

ST9	034132 035423 0   0   000000000040 0            000000000040 


*034132 CAMN	0,035412
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034132 034132 0   0   316000035412 0            0            
IT1	034132 0      0   0   316000035412 0            0            
AT3	034132 0      0   0   000000035412 0            316000035412 
AT6	034132 035412 0   0   000000035412 0            316000035412 
FT0	034132 035412 0   0   0            0            316000035412 
FT1A	034132 035412 0   0   0            0            0            
FT2	034132 035412 0   0   0            0            0            
FT2RQ	034132 035412 0   0   000000000040 0            0            
FT3	034132 035412 0   0   000000000040 0            0            
FT9	034133 035412 0   0   000000000040 0            0            
ET0	034134 035412 0   0   000000000040 0            0            
ST1A	034134 035412 0   0   000000000040 0            0            
ST9	034134 035412 0   0   000000000040 0            0            


*034134 JUMPA	0,034135
INITIAL
C(AC)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034134 034134 0   0   324000034135 0            000000034135 
IT1	034134 0      0   0   324000034135 0            000000034135 
AT3	034134 0      0   0   000000034135 0            324000034135 
AT6	034134 034135 0   0   000000034135 0            324000034135 
FT1A	034134 034135 0   0   000000034135 0            000000034135 
FT2	034134 034135 0   0   0            0            000000034135 
FT2RQ	034134 034135 0   0   000000000040 0            000000034135 
FT3	034134 034135 0   0   000000000040 0            000000034135 
FT9	034135 034135 0   0   000000000040 0            000000034135 
ET0	034135 034135 0   0   000000000040 0            000000034135 
ST1A	034135 034135 0   0   000000000040 0            000000034135 
ST9	034135 034135 0   0   000000000040 0            000000034135 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 619
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0898

*034135 MOVE 	0,035424
INITIAL
C(AC)=000000 000040 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034135 034135 0   0   200000035424 0            000000000100 
IT1	034135 0      0   0   200000035424 0            000000000100 
AT3	034135 0      0   0   000000035424 0            200000035424 
AT6	034135 035424 0   0   000000035424 0            200000035424 
FT0	034135 035424 0   0   000000000100 0            200000035424 
FT1A	034135 035424 0   0   000000000100 0            000000000100 
FT9	034136 035424 0   0   000000000100 0            000000000100 
ET0	034136 035424 0   0   000000000100 0            000000000100 
ST1	034136 035424 0   0   000000000100 0            000000000100 
ST2	034136 035424 0   0   000000000100 0            000000000100 
ST9	034136 035424 0   0   000000000100 0            000000000100 


*034136 CAMN	0,035412
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034136 034136 0   0   316000035412 0            0            
IT1	034136 0      0   0   316000035412 0            0            
AT3	034136 0      0   0   000000035412 0            316000035412 
AT6	034136 035412 0   0   000000035412 0            316000035412 
FT0	034136 035412 0   0   0            0            316000035412 
FT1A	034136 035412 0   0   0            0            0            
FT2	034136 035412 0   0   0            0            0            
FT2RQ	034136 035412 0   0   000000000100 0            0            
FT3	034136 035412 0   0   000000000100 0            0            
FT9	034137 035412 0   0   000000000100 0            0            
ET0	034140 035412 0   0   000000000100 0            0            
ST1A	034140 035412 0   0   000000000100 0            0            
ST9	034140 035412 0   0   000000000100 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 620
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0899

*034140 JUMPA	0,034141
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034140 034140 0   0   324000034141 0            000000034141 
IT1	034140 0      0   0   324000034141 0            000000034141 
AT3	034140 0      0   0   000000034141 0            324000034141 
AT6	034140 034141 0   0   000000034141 0            324000034141 
FT1A	034140 034141 0   0   000000034141 0            000000034141 
FT2	034140 034141 0   0   0            0            000000034141 
FT2RQ	034140 034141 0   0   000000000100 0            000000034141 
FT3	034140 034141 0   0   000000000100 0            000000034141 
FT9	034141 034141 0   0   000000000100 0            000000034141 
ET0	034141 034141 0   0   000000000100 0            000000034141 
ST1A	034141 034141 0   0   000000000100 0            000000034141 
ST9	034141 034141 0   0   000000000100 0            000000034141 


*034141 MOVE 	0,035425
INITIAL
C(AC)=000000 000100 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034141 034141 0   0   200000035425 0            000000000200 
IT1	034141 0      0   0   200000035425 0            000000000200 
AT3	034141 0      0   0   000000035425 0            200000035425 
AT6	034141 035425 0   0   000000035425 0            200000035425 
FT0	034141 035425 0   0   000000000200 0            200000035425 
FT1A	034141 035425 0   0   000000000200 0            000000000200 
FT9	034142 035425 0   0   000000000200 0            000000000200 
ET0	034142 035425 0   0   000000000200 0            000000000200 
ST1	034142 035425 0   0   000000000200 0            000000000200 
ST2	034142 035425 0   0   000000000200 0            000000000200 
ST9	034142 035425 0   0   000000000200 0            000000000200 


*034142 CAMN	0,035412
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034142 034142 0   0   316000035412 0            0            
IT1	034142 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 621
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0900

AT3	034142 0      0   0   000000035412 0            316000035412 
AT6	034142 035412 0   0   000000035412 0            316000035412 
FT0	034142 035412 0   0   0            0            316000035412 
FT1A	034142 035412 0   0   0            0            0            
FT2	034142 035412 0   0   0            0            0            
FT2RQ	034142 035412 0   0   000000000200 0            0            
FT3	034142 035412 0   0   000000000200 0            0            
FT9	034143 035412 0   0   000000000200 0            0            
ET0	034144 035412 0   0   000000000200 0            0            
ST1A	034144 035412 0   0   000000000200 0            0            
ST9	034144 035412 0   0   000000000200 0            0            


*034144 JUMPA	0,034145
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034144 034144 0   0   324000034145 0            000000034145 
IT1	034144 0      0   0   324000034145 0            000000034145 
AT3	034144 0      0   0   000000034145 0            324000034145 
AT6	034144 034145 0   0   000000034145 0            324000034145 
FT1A	034144 034145 0   0   000000034145 0            000000034145 
FT2	034144 034145 0   0   0            0            000000034145 
FT2RQ	034144 034145 0   0   000000000200 0            000000034145 
FT3	034144 034145 0   0   000000000200 0            000000034145 
FT9	034145 034145 0   0   000000000200 0            000000034145 
ET0	034145 034145 0   0   000000000200 0            000000034145 
ST1A	034145 034145 0   0   000000000200 0            000000034145 
ST9	034145 034145 0   0   000000000200 0            000000034145 


*034145 MOVE 	0,035426
INITIAL
C(AC)=000000 000200 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034145 034145 0   0   200000035426 0            000000000400 
IT1	034145 0      0   0   200000035426 0            000000000400 
AT3	034145 0      0   0   000000035426 0            200000035426 
AT6	034145 035426 0   0   000000035426 0            200000035426 
FT0	034145 035426 0   0   000000000400 0            200000035426 
FT1A	034145 035426 0   0   000000000400 0            000000000400 
FT9	034146 035426 0   0   000000000400 0            000000000400 
ET0	034146 035426 0   0   000000000400 0            000000000400 
ST1	034146 035426 0   0   000000000400 0            000000000400 
ST2	034146 035426 0   0   000000000400 0            000000000400 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 622
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0901

ST9	034146 035426 0   0   000000000400 0            000000000400 


*034146 CAMN	0,035412
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034146 034146 0   0   316000035412 0            0            
IT1	034146 0      0   0   316000035412 0            0            
AT3	034146 0      0   0   000000035412 0            316000035412 
AT6	034146 035412 0   0   000000035412 0            316000035412 
FT0	034146 035412 0   0   0            0            316000035412 
FT1A	034146 035412 0   0   0            0            0            
FT2	034146 035412 0   0   0            0            0            
FT2RQ	034146 035412 0   0   000000000400 0            0            
FT3	034146 035412 0   0   000000000400 0            0            
FT9	034147 035412 0   0   000000000400 0            0            
ET0	034150 035412 0   0   000000000400 0            0            
ST1A	034150 035412 0   0   000000000400 0            0            
ST9	034150 035412 0   0   000000000400 0            0            


*034150 JUMPA	0,034151
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034150 034150 0   0   324000034151 0            000000034151 
IT1	034150 0      0   0   324000034151 0            000000034151 
AT3	034150 0      0   0   000000034151 0            324000034151 
AT6	034150 034151 0   0   000000034151 0            324000034151 
FT1A	034150 034151 0   0   000000034151 0            000000034151 
FT2	034150 034151 0   0   0            0            000000034151 
FT2RQ	034150 034151 0   0   000000000400 0            000000034151 
FT3	034150 034151 0   0   000000000400 0            000000034151 
FT9	034151 034151 0   0   000000000400 0            000000034151 
ET0	034151 034151 0   0   000000000400 0            000000034151 
ST1A	034151 034151 0   0   000000000400 0            000000034151 
ST9	034151 034151 0   0   000000000400 0            000000034151 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 623
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0902

*034151 MOVE 	0,035427
INITIAL
C(AC)=000000 000400 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034151 034151 0   0   200000035427 0            000000001000 
IT1	034151 0      0   0   200000035427 0            000000001000 
AT3	034151 0      0   0   000000035427 0            200000035427 
AT6	034151 035427 0   0   000000035427 0            200000035427 
FT0	034151 035427 0   0   000000001000 0            200000035427 
FT1A	034151 035427 0   0   000000001000 0            000000001000 
FT9	034152 035427 0   0   000000001000 0            000000001000 
ET0	034152 035427 0   0   000000001000 0            000000001000 
ST1	034152 035427 0   0   000000001000 0            000000001000 
ST2	034152 035427 0   0   000000001000 0            000000001000 
ST9	034152 035427 0   0   000000001000 0            000000001000 


*034152 CAMN	0,035412
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034152 034152 0   0   316000035412 0            0            
IT1	034152 0      0   0   316000035412 0            0            
AT3	034152 0      0   0   000000035412 0            316000035412 
AT6	034152 035412 0   0   000000035412 0            316000035412 
FT0	034152 035412 0   0   0            0            316000035412 
FT1A	034152 035412 0   0   0            0            0            
FT2	034152 035412 0   0   0            0            0            
FT2RQ	034152 035412 0   0   000000001000 0            0            
FT3	034152 035412 0   0   000000001000 0            0            
FT9	034153 035412 0   0   000000001000 0            0            
ET0	034154 035412 0   0   000000001000 0            0            
ST1A	034154 035412 0   0   000000001000 0            0            
ST9	034154 035412 0   0   000000001000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 624
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0903

*034154 JUMPA	0,034155
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034154 034154 0   0   324000034155 0            000000034155 
IT1	034154 0      0   0   324000034155 0            000000034155 
AT3	034154 0      0   0   000000034155 0            324000034155 
AT6	034154 034155 0   0   000000034155 0            324000034155 
FT1A	034154 034155 0   0   000000034155 0            000000034155 
FT2	034154 034155 0   0   0            0            000000034155 
FT2RQ	034154 034155 0   0   000000001000 0            000000034155 
FT3	034154 034155 0   0   000000001000 0            000000034155 
FT9	034155 034155 0   0   000000001000 0            000000034155 
ET0	034155 034155 0   0   000000001000 0            000000034155 
ST1A	034155 034155 0   0   000000001000 0            000000034155 
ST9	034155 034155 0   0   000000001000 0            000000034155 


*034155 MOVE 	0,035430
INITIAL
C(AC)=000000 001000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034155 034155 0   0   200000035430 0            000000002000 
IT1	034155 0      0   0   200000035430 0            000000002000 
AT3	034155 0      0   0   000000035430 0            200000035430 
AT6	034155 035430 0   0   000000035430 0            200000035430 
FT0	034155 035430 0   0   000000002000 0            200000035430 
FT1A	034155 035430 0   0   000000002000 0            000000002000 
FT9	034156 035430 0   0   000000002000 0            000000002000 
ET0	034156 035430 0   0   000000002000 0            000000002000 
ST1	034156 035430 0   0   000000002000 0            000000002000 
ST2	034156 035430 0   0   000000002000 0            000000002000 
ST9	034156 035430 0   0   000000002000 0            000000002000 


*034156 CAMN	0,035412
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034156 034156 0   0   316000035412 0            0            
IT1	034156 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 625
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0904

AT3	034156 0      0   0   000000035412 0            316000035412 
AT6	034156 035412 0   0   000000035412 0            316000035412 
FT0	034156 035412 0   0   0            0            316000035412 
FT1A	034156 035412 0   0   0            0            0            
FT2	034156 035412 0   0   0            0            0            
FT2RQ	034156 035412 0   0   000000002000 0            0            
FT3	034156 035412 0   0   000000002000 0            0            
FT9	034157 035412 0   0   000000002000 0            0            
ET0	034160 035412 0   0   000000002000 0            0            
ST1A	034160 035412 0   0   000000002000 0            0            
ST9	034160 035412 0   0   000000002000 0            0            


*034160 JUMPA	0,034161
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034160 034160 0   0   324000034161 0            000000034161 
IT1	034160 0      0   0   324000034161 0            000000034161 
AT3	034160 0      0   0   000000034161 0            324000034161 
AT6	034160 034161 0   0   000000034161 0            324000034161 
FT1A	034160 034161 0   0   000000034161 0            000000034161 
FT2	034160 034161 0   0   0            0            000000034161 
FT2RQ	034160 034161 0   0   000000002000 0            000000034161 
FT3	034160 034161 0   0   000000002000 0            000000034161 
FT9	034161 034161 0   0   000000002000 0            000000034161 
ET0	034161 034161 0   0   000000002000 0            000000034161 
ST1A	034161 034161 0   0   000000002000 0            000000034161 
ST9	034161 034161 0   0   000000002000 0            000000034161 


*034161 MOVE 	0,035431
INITIAL
C(AC)=000000 002000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034161 034161 0   0   200000035431 0            000000004000 
IT1	034161 0      0   0   200000035431 0            000000004000 
AT3	034161 0      0   0   000000035431 0            200000035431 
AT6	034161 035431 0   0   000000035431 0            200000035431 
FT0	034161 035431 0   0   000000004000 0            200000035431 
FT1A	034161 035431 0   0   000000004000 0            000000004000 
FT9	034162 035431 0   0   000000004000 0            000000004000 
ET0	034162 035431 0   0   000000004000 0            000000004000 
ST1	034162 035431 0   0   000000004000 0            000000004000 
ST2	034162 035431 0   0   000000004000 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 626
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0905

ST9	034162 035431 0   0   000000004000 0            000000004000 


*034162 CAMN	0,035412
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034162 034162 0   0   316000035412 0            0            
IT1	034162 0      0   0   316000035412 0            0            
AT3	034162 0      0   0   000000035412 0            316000035412 
AT6	034162 035412 0   0   000000035412 0            316000035412 
FT0	034162 035412 0   0   0            0            316000035412 
FT1A	034162 035412 0   0   0            0            0            
FT2	034162 035412 0   0   0            0            0            
FT2RQ	034162 035412 0   0   000000004000 0            0            
FT3	034162 035412 0   0   000000004000 0            0            
FT9	034163 035412 0   0   000000004000 0            0            
ET0	034164 035412 0   0   000000004000 0            0            
ST1A	034164 035412 0   0   000000004000 0            0            
ST9	034164 035412 0   0   000000004000 0            0            


*034164 JUMPA	0,034165
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034164 034164 0   0   324000034165 0            000000034165 
IT1	034164 0      0   0   324000034165 0            000000034165 
AT3	034164 0      0   0   000000034165 0            324000034165 
AT6	034164 034165 0   0   000000034165 0            324000034165 
FT1A	034164 034165 0   0   000000034165 0            000000034165 
FT2	034164 034165 0   0   0            0            000000034165 
FT2RQ	034164 034165 0   0   000000004000 0            000000034165 
FT3	034164 034165 0   0   000000004000 0            000000034165 
FT9	034165 034165 0   0   000000004000 0            000000034165 
ET0	034165 034165 0   0   000000004000 0            000000034165 
ST1A	034165 034165 0   0   000000004000 0            000000034165 
ST9	034165 034165 0   0   000000004000 0            000000034165 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 627
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0906

*034165 MOVE 	0,035432
INITIAL
C(AC)=000000 004000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034165 034165 0   0   200000035432 0            000000010000 
IT1	034165 0      0   0   200000035432 0            000000010000 
AT3	034165 0      0   0   000000035432 0            200000035432 
AT6	034165 035432 0   0   000000035432 0            200000035432 
FT0	034165 035432 0   0   000000010000 0            200000035432 
FT1A	034165 035432 0   0   000000010000 0            000000010000 
FT9	034166 035432 0   0   000000010000 0            000000010000 
ET0	034166 035432 0   0   000000010000 0            000000010000 
ST1	034166 035432 0   0   000000010000 0            000000010000 
ST2	034166 035432 0   0   000000010000 0            000000010000 
ST9	034166 035432 0   0   000000010000 0            000000010000 


*034166 CAMN	0,035412
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034166 034166 0   0   316000035412 0            0            
IT1	034166 0      0   0   316000035412 0            0            
AT3	034166 0      0   0   000000035412 0            316000035412 
AT6	034166 035412 0   0   000000035412 0            316000035412 
FT0	034166 035412 0   0   0            0            316000035412 
FT1A	034166 035412 0   0   0            0            0            
FT2	034166 035412 0   0   0            0            0            
FT2RQ	034166 035412 0   0   000000010000 0            0            
FT3	034166 035412 0   0   000000010000 0            0            
FT9	034167 035412 0   0   000000010000 0            0            
ET0	034170 035412 0   0   000000010000 0            0            
ST1A	034170 035412 0   0   000000010000 0            0            
ST9	034170 035412 0   0   000000010000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 628
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0907

*034170 JUMPA	0,034171
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034170 034170 0   0   324000034171 0            000000034171 
IT1	034170 0      0   0   324000034171 0            000000034171 
AT3	034170 0      0   0   000000034171 0            324000034171 
AT6	034170 034171 0   0   000000034171 0            324000034171 
FT1A	034170 034171 0   0   000000034171 0            000000034171 
FT2	034170 034171 0   0   0            0            000000034171 
FT2RQ	034170 034171 0   0   000000010000 0            000000034171 
FT3	034170 034171 0   0   000000010000 0            000000034171 
FT9	034171 034171 0   0   000000010000 0            000000034171 
ET0	034171 034171 0   0   000000010000 0            000000034171 
ST1A	034171 034171 0   0   000000010000 0            000000034171 
ST9	034171 034171 0   0   000000010000 0            000000034171 


*034171 MOVE 	0,035433
INITIAL
C(AC)=000000 010000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034171 034171 0   0   200000035433 0            000000020000 
IT1	034171 0      0   0   200000035433 0            000000020000 
AT3	034171 0      0   0   000000035433 0            200000035433 
AT6	034171 035433 0   0   000000035433 0            200000035433 
FT0	034171 035433 0   0   000000020000 0            200000035433 
FT1A	034171 035433 0   0   000000020000 0            000000020000 
FT9	034172 035433 0   0   000000020000 0            000000020000 
ET0	034172 035433 0   0   000000020000 0            000000020000 
ST1	034172 035433 0   0   000000020000 0            000000020000 
ST2	034172 035433 0   0   000000020000 0            000000020000 
ST9	034172 035433 0   0   000000020000 0            000000020000 


*034172 CAMN	0,035412
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034172 034172 0   0   316000035412 0            0            
IT1	034172 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 629
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0908

AT3	034172 0      0   0   000000035412 0            316000035412 
AT6	034172 035412 0   0   000000035412 0            316000035412 
FT0	034172 035412 0   0   0            0            316000035412 
FT1A	034172 035412 0   0   0            0            0            
FT2	034172 035412 0   0   0            0            0            
FT2RQ	034172 035412 0   0   000000020000 0            0            
FT3	034172 035412 0   0   000000020000 0            0            
FT9	034173 035412 0   0   000000020000 0            0            
ET0	034174 035412 0   0   000000020000 0            0            
ST1A	034174 035412 0   0   000000020000 0            0            
ST9	034174 035412 0   0   000000020000 0            0            


*034174 JUMPA	0,034175
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034174 034174 0   0   324000034175 0            000000034175 
IT1	034174 0      0   0   324000034175 0            000000034175 
AT3	034174 0      0   0   000000034175 0            324000034175 
AT6	034174 034175 0   0   000000034175 0            324000034175 
FT1A	034174 034175 0   0   000000034175 0            000000034175 
FT2	034174 034175 0   0   0            0            000000034175 
FT2RQ	034174 034175 0   0   000000020000 0            000000034175 
FT3	034174 034175 0   0   000000020000 0            000000034175 
FT9	034175 034175 0   0   000000020000 0            000000034175 
ET0	034175 034175 0   0   000000020000 0            000000034175 
ST1A	034175 034175 0   0   000000020000 0            000000034175 
ST9	034175 034175 0   0   000000020000 0            000000034175 


*034175 MOVE 	0,035434
INITIAL
C(AC)=000000 020000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034175 034175 0   0   200000035434 0            000000040000 
IT1	034175 0      0   0   200000035434 0            000000040000 
AT3	034175 0      0   0   000000035434 0            200000035434 
AT6	034175 035434 0   0   000000035434 0            200000035434 
FT0	034175 035434 0   0   000000040000 0            200000035434 
FT1A	034175 035434 0   0   000000040000 0            000000040000 
FT9	034176 035434 0   0   000000040000 0            000000040000 
ET0	034176 035434 0   0   000000040000 0            000000040000 
ST1	034176 035434 0   0   000000040000 0            000000040000 
ST2	034176 035434 0   0   000000040000 0            000000040000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 630
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0909

ST9	034176 035434 0   0   000000040000 0            000000040000 


*034176 CAMN	0,035412
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034176 034176 0   0   316000035412 0            0            
IT1	034176 0      0   0   316000035412 0            0            
AT3	034176 0      0   0   000000035412 0            316000035412 
AT6	034176 035412 0   0   000000035412 0            316000035412 
FT0	034176 035412 0   0   0            0            316000035412 
FT1A	034176 035412 0   0   0            0            0            
FT2	034176 035412 0   0   0            0            0            
FT2RQ	034176 035412 0   0   000000040000 0            0            
FT3	034176 035412 0   0   000000040000 0            0            
FT9	034177 035412 0   0   000000040000 0            0            
ET0	0      035412 0   0   000000040000 0            0            
ST1A	0      035412 0   0   000000040000 0            0            
ST9	0      035412 0   0   000000040000 0            0            


*034200 JUMPA	0,034201
INITIAL
C(AC)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034201 0            000000034201 
IT1	0      0      0   0   324000034201 0            000000034201 
AT3	0      0      0   0   000000034201 0            324000034201 
AT6	0      034201 0   0   000000034201 0            324000034201 
FT1A	0      034201 0   0   000000034201 0            000000034201 
FT2	0      034201 0   0   0            0            000000034201 
FT2RQ	0      034201 0   0   000000040000 0            000000034201 
FT3	0      034201 0   0   000000040000 0            000000034201 
FT9	034201 034201 0   0   000000040000 0            000000034201 
ET0	034201 034201 0   0   000000040000 0            000000034201 
ST1A	034201 034201 0   0   000000040000 0            000000034201 
ST9	034201 034201 0   0   000000040000 0            000000034201 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 631
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0910

*034201 MOVE 	0,035435
INITIAL
C(AC)=000000 040000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034201 034201 0   0   200000035435 0            000000100000 
IT1	034201 0      0   0   200000035435 0            000000100000 
AT3	034201 0      0   0   000000035435 0            200000035435 
AT6	034201 035435 0   0   000000035435 0            200000035435 
FT0	034201 035435 0   0   000000100000 0            200000035435 
FT1A	034201 035435 0   0   000000100000 0            000000100000 
FT9	034202 035435 0   0   000000100000 0            000000100000 
ET0	034202 035435 0   0   000000100000 0            000000100000 
ST1	034202 035435 0   0   000000100000 0            000000100000 
ST2	034202 035435 0   0   000000100000 0            000000100000 
ST9	034202 035435 0   0   000000100000 0            000000100000 


*034202 CAMN	0,035412
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034202 034202 0   0   316000035412 0            0            
IT1	034202 0      0   0   316000035412 0            0            
AT3	034202 0      0   0   000000035412 0            316000035412 
AT6	034202 035412 0   0   000000035412 0            316000035412 
FT0	034202 035412 0   0   0            0            316000035412 
FT1A	034202 035412 0   0   0            0            0            
FT2	034202 035412 0   0   0            0            0            
FT2RQ	034202 035412 0   0   000000100000 0            0            
FT3	034202 035412 0   0   000000100000 0            0            
FT9	034203 035412 0   0   000000100000 0            0            
ET0	034204 035412 0   0   000000100000 0            0            
ST1A	034204 035412 0   0   000000100000 0            0            
ST9	034204 035412 0   0   000000100000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 632
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0911

*034204 JUMPA	0,034205
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034204 034204 0   0   324000034205 0            000000034205 
IT1	034204 0      0   0   324000034205 0            000000034205 
AT3	034204 0      0   0   000000034205 0            324000034205 
AT6	034204 034205 0   0   000000034205 0            324000034205 
FT1A	034204 034205 0   0   000000034205 0            000000034205 
FT2	034204 034205 0   0   0            0            000000034205 
FT2RQ	034204 034205 0   0   000000100000 0            000000034205 
FT3	034204 034205 0   0   000000100000 0            000000034205 
FT9	034205 034205 0   0   000000100000 0            000000034205 
ET0	034205 034205 0   0   000000100000 0            000000034205 
ST1A	034205 034205 0   0   000000100000 0            000000034205 
ST9	034205 034205 0   0   000000100000 0            000000034205 


*034205 MOVE 	0,035436
INITIAL
C(AC)=000000 100000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034205 034205 0   0   200000035436 0            000000200000 
IT1	034205 0      0   0   200000035436 0            000000200000 
AT3	034205 0      0   0   000000035436 0            200000035436 
AT6	034205 035436 0   0   000000035436 0            200000035436 
FT0	034205 035436 0   0   000000200000 0            200000035436 
FT1A	034205 035436 0   0   000000200000 0            000000200000 
FT9	034206 035436 0   0   000000200000 0            000000200000 
ET0	034206 035436 0   0   000000200000 0            000000200000 
ST1	034206 035436 0   0   000000200000 0            000000200000 
ST2	034206 035436 0   0   000000200000 0            000000200000 
ST9	034206 035436 0   0   000000200000 0            000000200000 


*034206 CAMN	0,035412
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034206 034206 0   0   316000035412 0            0            
IT1	034206 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 633
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0912

AT3	034206 0      0   0   000000035412 0            316000035412 
AT6	034206 035412 0   0   000000035412 0            316000035412 
FT0	034206 035412 0   0   0            0            316000035412 
FT1A	034206 035412 0   0   0            0            0            
FT2	034206 035412 0   0   0            0            0            
FT2RQ	034206 035412 0   0   000000200000 0            0            
FT3	034206 035412 0   0   000000200000 0            0            
FT9	034207 035412 0   0   000000200000 0            0            
ET0	034210 035412 0   0   000000200000 0            0            
ST1A	034210 035412 0   0   000000200000 0            0            
ST9	034210 035412 0   0   000000200000 0            0            


*034210 JUMPA	0,034211
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034210 034210 0   0   324000034211 0            000000034211 
IT1	034210 0      0   0   324000034211 0            000000034211 
AT3	034210 0      0   0   000000034211 0            324000034211 
AT6	034210 034211 0   0   000000034211 0            324000034211 
FT1A	034210 034211 0   0   000000034211 0            000000034211 
FT2	034210 034211 0   0   0            0            000000034211 
FT2RQ	034210 034211 0   0   000000200000 0            000000034211 
FT3	034210 034211 0   0   000000200000 0            000000034211 
FT9	034211 034211 0   0   000000200000 0            000000034211 
ET0	034211 034211 0   0   000000200000 0            000000034211 
ST1A	034211 034211 0   0   000000200000 0            000000034211 
ST9	034211 034211 0   0   000000200000 0            000000034211 


*034211 MOVE 	0,035437
INITIAL
C(AC)=000000 200000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034211 034211 0   0   200000035437 0            000000400000 
IT1	034211 0      0   0   200000035437 0            000000400000 
AT3	034211 0      0   0   000000035437 0            200000035437 
AT6	034211 035437 0   0   000000035437 0            200000035437 
FT0	034211 035437 0   0   000000400000 0            200000035437 
FT1A	034211 035437 0   0   000000400000 0            000000400000 
FT9	034212 035437 0   0   000000400000 0            000000400000 
ET0	034212 035437 0   0   000000400000 0            000000400000 
ST1	034212 035437 0   0   000000400000 0            000000400000 
ST2	034212 035437 0   0   000000400000 0            000000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 634
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0913

ST9	034212 035437 0   0   000000400000 0            000000400000 


*034212 CAMN	0,035412
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034212 034212 0   0   316000035412 0            0            
IT1	034212 0      0   0   316000035412 0            0            
AT3	034212 0      0   0   000000035412 0            316000035412 
AT6	034212 035412 0   0   000000035412 0            316000035412 
FT0	034212 035412 0   0   0            0            316000035412 
FT1A	034212 035412 0   0   0            0            0            
FT2	034212 035412 0   0   0            0            0            
FT2RQ	034212 035412 0   0   000000400000 0            0            
FT3	034212 035412 0   0   000000400000 0            0            
FT9	034213 035412 0   0   000000400000 0            0            
ET0	034214 035412 0   0   000000400000 0            0            
ST1A	034214 035412 0   0   000000400000 0            0            
ST9	034214 035412 0   0   000000400000 0            0            


*034214 JUMPA	0,034215
INITIAL
C(AC)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034214 034214 0   0   324000034215 0            000000034215 
IT1	034214 0      0   0   324000034215 0            000000034215 
AT3	034214 0      0   0   000000034215 0            324000034215 
AT6	034214 034215 0   0   000000034215 0            324000034215 
FT1A	034214 034215 0   0   000000034215 0            000000034215 
FT2	034214 034215 0   0   0            0            000000034215 
FT2RQ	034214 034215 0   0   000000400000 0            000000034215 
FT3	034214 034215 0   0   000000400000 0            000000034215 
FT9	034215 034215 0   0   000000400000 0            000000034215 
ET0	034215 034215 0   0   000000400000 0            000000034215 
ST1A	034215 034215 0   0   000000400000 0            000000034215 
ST9	034215 034215 0   0   000000400000 0            000000034215 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 635
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0914

*034215 MOVE 	0,035440
INITIAL
C(AC)=000000 400000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034215 034215 0   0   200000035440 0            000001000000 
IT1	034215 0      0   0   200000035440 0            000001000000 
AT3	034215 0      0   0   000000035440 0            200000035440 
AT6	034215 035440 0   0   000000035440 0            200000035440 
FT0	034215 035440 0   0   000001000000 0            200000035440 
FT1A	034215 035440 0   0   000001000000 0            000001000000 
FT9	034216 035440 0   0   000001000000 0            000001000000 
ET0	034216 035440 0   0   000001000000 0            000001000000 
ST1	034216 035440 0   0   000001000000 0            000001000000 
ST2	034216 035440 0   0   000001000000 0            000001000000 
ST9	034216 035440 0   0   000001000000 0            000001000000 


*034216 CAMN	0,035412
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034216 034216 0   0   316000035412 0            0            
IT1	034216 0      0   0   316000035412 0            0            
AT3	034216 0      0   0   000000035412 0            316000035412 
AT6	034216 035412 0   0   000000035412 0            316000035412 
FT0	034216 035412 0   0   0            0            316000035412 
FT1A	034216 035412 0   0   0            0            0            
FT2	034216 035412 0   0   0            0            0            
FT2RQ	034216 035412 0   0   000001000000 0            0            
FT3	034216 035412 0   0   000001000000 0            0            
FT9	034217 035412 0   0   000001000000 0            0            
ET0	034220 035412 0   0   000001000000 0            0            
ST1A	034220 035412 0   0   000001000000 0            0            
ST9	034220 035412 0   0   000001000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 636
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0915

*034220 JUMPA	0,034221
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034220 034220 0   0   324000034221 0            000000034221 
IT1	034220 0      0   0   324000034221 0            000000034221 
AT3	034220 0      0   0   000000034221 0            324000034221 
AT6	034220 034221 0   0   000000034221 0            324000034221 
FT1A	034220 034221 0   0   000000034221 0            000000034221 
FT2	034220 034221 0   0   0            0            000000034221 
FT2RQ	034220 034221 0   0   000001000000 0            000000034221 
FT3	034220 034221 0   0   000001000000 0            000000034221 
FT9	034221 034221 0   0   000001000000 0            000000034221 
ET0	034221 034221 0   0   000001000000 0            000000034221 
ST1A	034221 034221 0   0   000001000000 0            000000034221 
ST9	034221 034221 0   0   000001000000 0            000000034221 


*034221 MOVE 	0,035441
INITIAL
C(AC)=000001 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034221 034221 0   0   200000035441 0            000002000000 
IT1	034221 0      0   0   200000035441 0            000002000000 
AT3	034221 0      0   0   000000035441 0            200000035441 
AT6	034221 035441 0   0   000000035441 0            200000035441 
FT0	034221 035441 0   0   000002000000 0            200000035441 
FT1A	034221 035441 0   0   000002000000 0            000002000000 
FT9	034222 035441 0   0   000002000000 0            000002000000 
ET0	034222 035441 0   0   000002000000 0            000002000000 
ST1	034222 035441 0   0   000002000000 0            000002000000 
ST2	034222 035441 0   0   000002000000 0            000002000000 
ST9	034222 035441 0   0   000002000000 0            000002000000 


*034222 CAMN	0,035412
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034222 034222 0   0   316000035412 0            0            
IT1	034222 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 637
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0916

AT3	034222 0      0   0   000000035412 0            316000035412 
AT6	034222 035412 0   0   000000035412 0            316000035412 
FT0	034222 035412 0   0   0            0            316000035412 
FT1A	034222 035412 0   0   0            0            0            
FT2	034222 035412 0   0   0            0            0            
FT2RQ	034222 035412 0   0   000002000000 0            0            
FT3	034222 035412 0   0   000002000000 0            0            
FT9	034223 035412 0   0   000002000000 0            0            
ET0	034224 035412 0   0   000002000000 0            0            
ST1A	034224 035412 0   0   000002000000 0            0            
ST9	034224 035412 0   0   000002000000 0            0            


*034224 JUMPA	0,034225
INITIAL
C(AC)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034224 034224 0   0   324000034225 0            000000034225 
IT1	034224 0      0   0   324000034225 0            000000034225 
AT3	034224 0      0   0   000000034225 0            324000034225 
AT6	034224 034225 0   0   000000034225 0            324000034225 
FT1A	034224 034225 0   0   000000034225 0            000000034225 
FT2	034224 034225 0   0   0            0            000000034225 
FT2RQ	034224 034225 0   0   000002000000 0            000000034225 
FT3	034224 034225 0   0   000002000000 0            000000034225 
FT9	034225 034225 0   0   000002000000 0            000000034225 
ET0	034225 034225 0   0   000002000000 0            000000034225 
ST1A	034225 034225 0   0   000002000000 0            000000034225 
ST9	034225 034225 0   0   000002000000 0            000000034225 


*034225 MOVE 	0,035442
INITIAL
C(AC)=000002 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034225 034225 0   0   200000035442 0            000004000000 
IT1	034225 0      0   0   200000035442 0            000004000000 
AT3	034225 0      0   0   000000035442 0            200000035442 
AT6	034225 035442 0   0   000000035442 0            200000035442 
FT0	034225 035442 0   0   000004000000 0            200000035442 
FT1A	034225 035442 0   0   000004000000 0            000004000000 
FT9	034226 035442 0   0   000004000000 0            000004000000 
ET0	034226 035442 0   0   000004000000 0            000004000000 
ST1	034226 035442 0   0   000004000000 0            000004000000 
ST2	034226 035442 0   0   000004000000 0            000004000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 638
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0917

ST9	034226 035442 0   0   000004000000 0            000004000000 


*034226 CAMN	0,035412
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034226 034226 0   0   316000035412 0            0            
IT1	034226 0      0   0   316000035412 0            0            
AT3	034226 0      0   0   000000035412 0            316000035412 
AT6	034226 035412 0   0   000000035412 0            316000035412 
FT0	034226 035412 0   0   0            0            316000035412 
FT1A	034226 035412 0   0   0            0            0            
FT2	034226 035412 0   0   0            0            0            
FT2RQ	034226 035412 0   0   000004000000 0            0            
FT3	034226 035412 0   0   000004000000 0            0            
FT9	034227 035412 0   0   000004000000 0            0            
ET0	034230 035412 0   0   000004000000 0            0            
ST1A	034230 035412 0   0   000004000000 0            0            
ST9	034230 035412 0   0   000004000000 0            0            


*034230 JUMPA	0,034231
INITIAL
C(AC)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034230 034230 0   0   324000034231 0            000000034231 
IT1	034230 0      0   0   324000034231 0            000000034231 
AT3	034230 0      0   0   000000034231 0            324000034231 
AT6	034230 034231 0   0   000000034231 0            324000034231 
FT1A	034230 034231 0   0   000000034231 0            000000034231 
FT2	034230 034231 0   0   0            0            000000034231 
FT2RQ	034230 034231 0   0   000004000000 0            000000034231 
FT3	034230 034231 0   0   000004000000 0            000000034231 
FT9	034231 034231 0   0   000004000000 0            000000034231 
ET0	034231 034231 0   0   000004000000 0            000000034231 
ST1A	034231 034231 0   0   000004000000 0            000000034231 
ST9	034231 034231 0   0   000004000000 0            000000034231 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 639
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0918

*034231 MOVE 	0,035443
INITIAL
C(AC)=000004 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034231 034231 0   0   200000035443 0            000010000000 
IT1	034231 0      0   0   200000035443 0            000010000000 
AT3	034231 0      0   0   000000035443 0            200000035443 
AT6	034231 035443 0   0   000000035443 0            200000035443 
FT0	034231 035443 0   0   000010000000 0            200000035443 
FT1A	034231 035443 0   0   000010000000 0            000010000000 
FT9	034232 035443 0   0   000010000000 0            000010000000 
ET0	034232 035443 0   0   000010000000 0            000010000000 
ST1	034232 035443 0   0   000010000000 0            000010000000 
ST2	034232 035443 0   0   000010000000 0            000010000000 
ST9	034232 035443 0   0   000010000000 0            000010000000 


*034232 CAMN	0,035412
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034232 034232 0   0   316000035412 0            0            
IT1	034232 0      0   0   316000035412 0            0            
AT3	034232 0      0   0   000000035412 0            316000035412 
AT6	034232 035412 0   0   000000035412 0            316000035412 
FT0	034232 035412 0   0   0            0            316000035412 
FT1A	034232 035412 0   0   0            0            0            
FT2	034232 035412 0   0   0            0            0            
FT2RQ	034232 035412 0   0   000010000000 0            0            
FT3	034232 035412 0   0   000010000000 0            0            
FT9	034233 035412 0   0   000010000000 0            0            
ET0	034234 035412 0   0   000010000000 0            0            
ST1A	034234 035412 0   0   000010000000 0            0            
ST9	034234 035412 0   0   000010000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 640
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0919

*034234 JUMPA	0,034235
INITIAL
C(AC)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034234 034234 0   0   324000034235 0            000000034235 
IT1	034234 0      0   0   324000034235 0            000000034235 
AT3	034234 0      0   0   000000034235 0            324000034235 
AT6	034234 034235 0   0   000000034235 0            324000034235 
FT1A	034234 034235 0   0   000000034235 0            000000034235 
FT2	034234 034235 0   0   0            0            000000034235 
FT2RQ	034234 034235 0   0   000010000000 0            000000034235 
FT3	034234 034235 0   0   000010000000 0            000000034235 
FT9	034235 034235 0   0   000010000000 0            000000034235 
ET0	034235 034235 0   0   000010000000 0            000000034235 
ST1A	034235 034235 0   0   000010000000 0            000000034235 
ST9	034235 034235 0   0   000010000000 0            000000034235 


*034235 MOVE 	0,035444
INITIAL
C(AC)=000010 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034235 034235 0   0   200000035444 0            000020000000 
IT1	034235 0      0   0   200000035444 0            000020000000 
AT3	034235 0      0   0   000000035444 0            200000035444 
AT6	034235 035444 0   0   000000035444 0            200000035444 
FT0	034235 035444 0   0   000020000000 0            200000035444 
FT1A	034235 035444 0   0   000020000000 0            000020000000 
FT9	034236 035444 0   0   000020000000 0            000020000000 
ET0	034236 035444 0   0   000020000000 0            000020000000 
ST1	034236 035444 0   0   000020000000 0            000020000000 
ST2	034236 035444 0   0   000020000000 0            000020000000 
ST9	034236 035444 0   0   000020000000 0            000020000000 


*034236 CAMN	0,035412
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034236 034236 0   0   316000035412 0            0            
IT1	034236 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 641
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0920

AT3	034236 0      0   0   000000035412 0            316000035412 
AT6	034236 035412 0   0   000000035412 0            316000035412 
FT0	034236 035412 0   0   0            0            316000035412 
FT1A	034236 035412 0   0   0            0            0            
FT2	034236 035412 0   0   0            0            0            
FT2RQ	034236 035412 0   0   000020000000 0            0            
FT3	034236 035412 0   0   000020000000 0            0            
FT9	034237 035412 0   0   000020000000 0            0            
ET0	034240 035412 0   0   000020000000 0            0            
ST1A	034240 035412 0   0   000020000000 0            0            
ST9	034240 035412 0   0   000020000000 0            0            


*034240 JUMPA	0,034241
INITIAL
C(AC)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034240 034240 0   0   324000034241 0            000000034241 
IT1	034240 0      0   0   324000034241 0            000000034241 
AT3	034240 0      0   0   000000034241 0            324000034241 
AT6	034240 034241 0   0   000000034241 0            324000034241 
FT1A	034240 034241 0   0   000000034241 0            000000034241 
FT2	034240 034241 0   0   0            0            000000034241 
FT2RQ	034240 034241 0   0   000020000000 0            000000034241 
FT3	034240 034241 0   0   000020000000 0            000000034241 
FT9	034241 034241 0   0   000020000000 0            000000034241 
ET0	034241 034241 0   0   000020000000 0            000000034241 
ST1A	034241 034241 0   0   000020000000 0            000000034241 
ST9	034241 034241 0   0   000020000000 0            000000034241 


*034241 MOVE 	0,035445
INITIAL
C(AC)=000020 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034241 034241 0   0   200000035445 0            000040000000 
IT1	034241 0      0   0   200000035445 0            000040000000 
AT3	034241 0      0   0   000000035445 0            200000035445 
AT6	034241 035445 0   0   000000035445 0            200000035445 
FT0	034241 035445 0   0   000040000000 0            200000035445 
FT1A	034241 035445 0   0   000040000000 0            000040000000 
FT9	034242 035445 0   0   000040000000 0            000040000000 
ET0	034242 035445 0   0   000040000000 0            000040000000 
ST1	034242 035445 0   0   000040000000 0            000040000000 
ST2	034242 035445 0   0   000040000000 0            000040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 642
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0921

ST9	034242 035445 0   0   000040000000 0            000040000000 


*034242 CAMN	0,035412
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034242 034242 0   0   316000035412 0            0            
IT1	034242 0      0   0   316000035412 0            0            
AT3	034242 0      0   0   000000035412 0            316000035412 
AT6	034242 035412 0   0   000000035412 0            316000035412 
FT0	034242 035412 0   0   0            0            316000035412 
FT1A	034242 035412 0   0   0            0            0            
FT2	034242 035412 0   0   0            0            0            
FT2RQ	034242 035412 0   0   000040000000 0            0            
FT3	034242 035412 0   0   000040000000 0            0            
FT9	034243 035412 0   0   000040000000 0            0            
ET0	034244 035412 0   0   000040000000 0            0            
ST1A	034244 035412 0   0   000040000000 0            0            
ST9	034244 035412 0   0   000040000000 0            0            


*034244 JUMPA	0,034245
INITIAL
C(AC)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034244 034244 0   0   324000034245 0            000000034245 
IT1	034244 0      0   0   324000034245 0            000000034245 
AT3	034244 0      0   0   000000034245 0            324000034245 
AT6	034244 034245 0   0   000000034245 0            324000034245 
FT1A	034244 034245 0   0   000000034245 0            000000034245 
FT2	034244 034245 0   0   0            0            000000034245 
FT2RQ	034244 034245 0   0   000040000000 0            000000034245 
FT3	034244 034245 0   0   000040000000 0            000000034245 
FT9	034245 034245 0   0   000040000000 0            000000034245 
ET0	034245 034245 0   0   000040000000 0            000000034245 
ST1A	034245 034245 0   0   000040000000 0            000000034245 
ST9	034245 034245 0   0   000040000000 0            000000034245 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 643
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0922

*034245 MOVE 	0,035446
INITIAL
C(AC)=000040 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034245 034245 0   0   200000035446 0            000100000000 
IT1	034245 0      0   0   200000035446 0            000100000000 
AT3	034245 0      0   0   000000035446 0            200000035446 
AT6	034245 035446 0   0   000000035446 0            200000035446 
FT0	034245 035446 0   0   000100000000 0            200000035446 
FT1A	034245 035446 0   0   000100000000 0            000100000000 
FT9	034246 035446 0   0   000100000000 0            000100000000 
ET0	034246 035446 0   0   000100000000 0            000100000000 
ST1	034246 035446 0   0   000100000000 0            000100000000 
ST2	034246 035446 0   0   000100000000 0            000100000000 
ST9	034246 035446 0   0   000100000000 0            000100000000 


*034246 CAMN	0,035412
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034246 034246 0   0   316000035412 0            0            
IT1	034246 0      0   0   316000035412 0            0            
AT3	034246 0      0   0   000000035412 0            316000035412 
AT6	034246 035412 0   0   000000035412 0            316000035412 
FT0	034246 035412 0   0   0            0            316000035412 
FT1A	034246 035412 0   0   0            0            0            
FT2	034246 035412 0   0   0            0            0            
FT2RQ	034246 035412 0   0   000100000000 0            0            
FT3	034246 035412 0   0   000100000000 0            0            
FT9	034247 035412 0   0   000100000000 0            0            
ET0	034250 035412 0   0   000100000000 0            0            
ST1A	034250 035412 0   0   000100000000 0            0            
ST9	034250 035412 0   0   000100000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 644
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0923

*034250 JUMPA	0,034251
INITIAL
C(AC)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034250 034250 0   0   324000034251 0            000000034251 
IT1	034250 0      0   0   324000034251 0            000000034251 
AT3	034250 0      0   0   000000034251 0            324000034251 
AT6	034250 034251 0   0   000000034251 0            324000034251 
FT1A	034250 034251 0   0   000000034251 0            000000034251 
FT2	034250 034251 0   0   0            0            000000034251 
FT2RQ	034250 034251 0   0   000100000000 0            000000034251 
FT3	034250 034251 0   0   000100000000 0            000000034251 
FT9	034251 034251 0   0   000100000000 0            000000034251 
ET0	034251 034251 0   0   000100000000 0            000000034251 
ST1A	034251 034251 0   0   000100000000 0            000000034251 
ST9	034251 034251 0   0   000100000000 0            000000034251 


*034251 MOVE 	0,035447
INITIAL
C(AC)=000100 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034251 034251 0   0   200000035447 0            000200000000 
IT1	034251 0      0   0   200000035447 0            000200000000 
AT3	034251 0      0   0   000000035447 0            200000035447 
AT6	034251 035447 0   0   000000035447 0            200000035447 
FT0	034251 035447 0   0   000200000000 0            200000035447 
FT1A	034251 035447 0   0   000200000000 0            000200000000 
FT9	034252 035447 0   0   000200000000 0            000200000000 
ET0	034252 035447 0   0   000200000000 0            000200000000 
ST1	034252 035447 0   0   000200000000 0            000200000000 
ST2	034252 035447 0   0   000200000000 0            000200000000 
ST9	034252 035447 0   0   000200000000 0            000200000000 


*034252 CAMN	0,035412
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034252 034252 0   0   316000035412 0            0            
IT1	034252 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 645
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0924

AT3	034252 0      0   0   000000035412 0            316000035412 
AT6	034252 035412 0   0   000000035412 0            316000035412 
FT0	034252 035412 0   0   0            0            316000035412 
FT1A	034252 035412 0   0   0            0            0            
FT2	034252 035412 0   0   0            0            0            
FT2RQ	034252 035412 0   0   000200000000 0            0            
FT3	034252 035412 0   0   000200000000 0            0            
FT9	034253 035412 0   0   000200000000 0            0            
ET0	034254 035412 0   0   000200000000 0            0            
ST1A	034254 035412 0   0   000200000000 0            0            
ST9	034254 035412 0   0   000200000000 0            0            


*034254 JUMPA	0,034255
INITIAL
C(AC)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034254 034254 0   0   324000034255 0            000000034255 
IT1	034254 0      0   0   324000034255 0            000000034255 
AT3	034254 0      0   0   000000034255 0            324000034255 
AT6	034254 034255 0   0   000000034255 0            324000034255 
FT1A	034254 034255 0   0   000000034255 0            000000034255 
FT2	034254 034255 0   0   0            0            000000034255 
FT2RQ	034254 034255 0   0   000200000000 0            000000034255 
FT3	034254 034255 0   0   000200000000 0            000000034255 
FT9	034255 034255 0   0   000200000000 0            000000034255 
ET0	034255 034255 0   0   000200000000 0            000000034255 
ST1A	034255 034255 0   0   000200000000 0            000000034255 
ST9	034255 034255 0   0   000200000000 0            000000034255 


*034255 MOVE 	0,035450
INITIAL
C(AC)=000200 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034255 034255 0   0   200000035450 0            000400000000 
IT1	034255 0      0   0   200000035450 0            000400000000 
AT3	034255 0      0   0   000000035450 0            200000035450 
AT6	034255 035450 0   0   000000035450 0            200000035450 
FT0	034255 035450 0   0   000400000000 0            200000035450 
FT1A	034255 035450 0   0   000400000000 0            000400000000 
FT9	034256 035450 0   0   000400000000 0            000400000000 
ET0	034256 035450 0   0   000400000000 0            000400000000 
ST1	034256 035450 0   0   000400000000 0            000400000000 
ST2	034256 035450 0   0   000400000000 0            000400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 646
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0925

ST9	034256 035450 0   0   000400000000 0            000400000000 


*034256 CAMN	0,035412
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034256 034256 0   0   316000035412 0            0            
IT1	034256 0      0   0   316000035412 0            0            
AT3	034256 0      0   0   000000035412 0            316000035412 
AT6	034256 035412 0   0   000000035412 0            316000035412 
FT0	034256 035412 0   0   0            0            316000035412 
FT1A	034256 035412 0   0   0            0            0            
FT2	034256 035412 0   0   0            0            0            
FT2RQ	034256 035412 0   0   000400000000 0            0            
FT3	034256 035412 0   0   000400000000 0            0            
FT9	034257 035412 0   0   000400000000 0            0            
ET0	034260 035412 0   0   000400000000 0            0            
ST1A	034260 035412 0   0   000400000000 0            0            
ST9	034260 035412 0   0   000400000000 0            0            


*034260 JUMPA	0,034261
INITIAL
C(AC)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034260 034260 0   0   324000034261 0            000000034261 
IT1	034260 0      0   0   324000034261 0            000000034261 
AT3	034260 0      0   0   000000034261 0            324000034261 
AT6	034260 034261 0   0   000000034261 0            324000034261 
FT1A	034260 034261 0   0   000000034261 0            000000034261 
FT2	034260 034261 0   0   0            0            000000034261 
FT2RQ	034260 034261 0   0   000400000000 0            000000034261 
FT3	034260 034261 0   0   000400000000 0            000000034261 
FT9	034261 034261 0   0   000400000000 0            000000034261 
ET0	034261 034261 0   0   000400000000 0            000000034261 
ST1A	034261 034261 0   0   000400000000 0            000000034261 
ST9	034261 034261 0   0   000400000000 0            000000034261 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 647
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0926

*034261 MOVE 	0,035451
INITIAL
C(AC)=000400 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034261 034261 0   0   200000035451 0            001000000000 
IT1	034261 0      0   0   200000035451 0            001000000000 
AT3	034261 0      0   0   000000035451 0            200000035451 
AT6	034261 035451 0   0   000000035451 0            200000035451 
FT0	034261 035451 0   0   001000000000 0            200000035451 
FT1A	034261 035451 0   0   001000000000 0            001000000000 
FT9	034262 035451 0   0   001000000000 0            001000000000 
ET0	034262 035451 0   0   001000000000 0            001000000000 
ST1	034262 035451 0   0   001000000000 0            001000000000 
ST2	034262 035451 0   0   001000000000 0            001000000000 
ST9	034262 035451 0   0   001000000000 0            001000000000 


*034262 CAMN	0,035412
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034262 034262 0   0   316000035412 0            0            
IT1	034262 0      0   0   316000035412 0            0            
AT3	034262 0      0   0   000000035412 0            316000035412 
AT6	034262 035412 0   0   000000035412 0            316000035412 
FT0	034262 035412 0   0   0            0            316000035412 
FT1A	034262 035412 0   0   0            0            0            
FT2	034262 035412 0   0   0            0            0            
FT2RQ	034262 035412 0   0   001000000000 0            0            
FT3	034262 035412 0   0   001000000000 0            0            
FT9	034263 035412 0   0   001000000000 0            0            
ET0	034264 035412 0   0   001000000000 0            0            
ST1A	034264 035412 0   0   001000000000 0            0            
ST9	034264 035412 0   0   001000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 648
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0927

*034264 JUMPA	0,034265
INITIAL
C(AC)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034264 034264 0   0   324000034265 0            000000034265 
IT1	034264 0      0   0   324000034265 0            000000034265 
AT3	034264 0      0   0   000000034265 0            324000034265 
AT6	034264 034265 0   0   000000034265 0            324000034265 
FT1A	034264 034265 0   0   000000034265 0            000000034265 
FT2	034264 034265 0   0   0            0            000000034265 
FT2RQ	034264 034265 0   0   001000000000 0            000000034265 
FT3	034264 034265 0   0   001000000000 0            000000034265 
FT9	034265 034265 0   0   001000000000 0            000000034265 
ET0	034265 034265 0   0   001000000000 0            000000034265 
ST1A	034265 034265 0   0   001000000000 0            000000034265 
ST9	034265 034265 0   0   001000000000 0            000000034265 


*034265 MOVE 	0,035452
INITIAL
C(AC)=001000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034265 034265 0   0   200000035452 0            002000000000 
IT1	034265 0      0   0   200000035452 0            002000000000 
AT3	034265 0      0   0   000000035452 0            200000035452 
AT6	034265 035452 0   0   000000035452 0            200000035452 
FT0	034265 035452 0   0   002000000000 0            200000035452 
FT1A	034265 035452 0   0   002000000000 0            002000000000 
FT9	034266 035452 0   0   002000000000 0            002000000000 
ET0	034266 035452 0   0   002000000000 0            002000000000 
ST1	034266 035452 0   0   002000000000 0            002000000000 
ST2	034266 035452 0   0   002000000000 0            002000000000 
ST9	034266 035452 0   0   002000000000 0            002000000000 


*034266 CAMN	0,035412
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034266 034266 0   0   316000035412 0            0            
IT1	034266 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 649
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0928

AT3	034266 0      0   0   000000035412 0            316000035412 
AT6	034266 035412 0   0   000000035412 0            316000035412 
FT0	034266 035412 0   0   0            0            316000035412 
FT1A	034266 035412 0   0   0            0            0            
FT2	034266 035412 0   0   0            0            0            
FT2RQ	034266 035412 0   0   002000000000 0            0            
FT3	034266 035412 0   0   002000000000 0            0            
FT9	034267 035412 0   0   002000000000 0            0            
ET0	034270 035412 0   0   002000000000 0            0            
ST1A	034270 035412 0   0   002000000000 0            0            
ST9	034270 035412 0   0   002000000000 0            0            


*034270 JUMPA	0,034271
INITIAL
C(AC)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034270 034270 0   0   324000034271 0            000000034271 
IT1	034270 0      0   0   324000034271 0            000000034271 
AT3	034270 0      0   0   000000034271 0            324000034271 
AT6	034270 034271 0   0   000000034271 0            324000034271 
FT1A	034270 034271 0   0   000000034271 0            000000034271 
FT2	034270 034271 0   0   0            0            000000034271 
FT2RQ	034270 034271 0   0   002000000000 0            000000034271 
FT3	034270 034271 0   0   002000000000 0            000000034271 
FT9	034271 034271 0   0   002000000000 0            000000034271 
ET0	034271 034271 0   0   002000000000 0            000000034271 
ST1A	034271 034271 0   0   002000000000 0            000000034271 
ST9	034271 034271 0   0   002000000000 0            000000034271 


*034271 MOVE 	0,035453
INITIAL
C(AC)=002000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034271 034271 0   0   200000035453 0            004000000000 
IT1	034271 0      0   0   200000035453 0            004000000000 
AT3	034271 0      0   0   000000035453 0            200000035453 
AT6	034271 035453 0   0   000000035453 0            200000035453 
FT0	034271 035453 0   0   004000000000 0            200000035453 
FT1A	034271 035453 0   0   004000000000 0            004000000000 
FT9	034272 035453 0   0   004000000000 0            004000000000 
ET0	034272 035453 0   0   004000000000 0            004000000000 
ST1	034272 035453 0   0   004000000000 0            004000000000 
ST2	034272 035453 0   0   004000000000 0            004000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 650
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0929

ST9	034272 035453 0   0   004000000000 0            004000000000 


*034272 CAMN	0,035412
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034272 034272 0   0   316000035412 0            0            
IT1	034272 0      0   0   316000035412 0            0            
AT3	034272 0      0   0   000000035412 0            316000035412 
AT6	034272 035412 0   0   000000035412 0            316000035412 
FT0	034272 035412 0   0   0            0            316000035412 
FT1A	034272 035412 0   0   0            0            0            
FT2	034272 035412 0   0   0            0            0            
FT2RQ	034272 035412 0   0   004000000000 0            0            
FT3	034272 035412 0   0   004000000000 0            0            
FT9	034273 035412 0   0   004000000000 0            0            
ET0	034274 035412 0   0   004000000000 0            0            
ST1A	034274 035412 0   0   004000000000 0            0            
ST9	034274 035412 0   0   004000000000 0            0            


*034274 JUMPA	0,034275
INITIAL
C(AC)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034274 034274 0   0   324000034275 0            000000034275 
IT1	034274 0      0   0   324000034275 0            000000034275 
AT3	034274 0      0   0   000000034275 0            324000034275 
AT6	034274 034275 0   0   000000034275 0            324000034275 
FT1A	034274 034275 0   0   000000034275 0            000000034275 
FT2	034274 034275 0   0   0            0            000000034275 
FT2RQ	034274 034275 0   0   004000000000 0            000000034275 
FT3	034274 034275 0   0   004000000000 0            000000034275 
FT9	034275 034275 0   0   004000000000 0            000000034275 
ET0	034275 034275 0   0   004000000000 0            000000034275 
ST1A	034275 034275 0   0   004000000000 0            000000034275 
ST9	034275 034275 0   0   004000000000 0            000000034275 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 651
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0930

*034275 MOVE 	0,035454
INITIAL
C(AC)=004000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034275 034275 0   0   200000035454 0            010000000000 
IT1	034275 0      0   0   200000035454 0            010000000000 
AT3	034275 0      0   0   000000035454 0            200000035454 
AT6	034275 035454 0   0   000000035454 0            200000035454 
FT0	034275 035454 0   0   010000000000 0            200000035454 
FT1A	034275 035454 0   0   010000000000 0            010000000000 
FT9	034276 035454 0   0   010000000000 0            010000000000 
ET0	034276 035454 0   0   010000000000 0            010000000000 
ST1	034276 035454 0   0   010000000000 0            010000000000 
ST2	034276 035454 0   0   010000000000 0            010000000000 
ST9	034276 035454 0   0   010000000000 0            010000000000 


*034276 CAMN	0,035412
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034276 034276 0   0   316000035412 0            0            
IT1	034276 0      0   0   316000035412 0            0            
AT3	034276 0      0   0   000000035412 0            316000035412 
AT6	034276 035412 0   0   000000035412 0            316000035412 
FT0	034276 035412 0   0   0            0            316000035412 
FT1A	034276 035412 0   0   0            0            0            
FT2	034276 035412 0   0   0            0            0            
FT2RQ	034276 035412 0   0   010000000000 0            0            
FT3	034276 035412 0   0   010000000000 0            0            
FT9	034277 035412 0   0   010000000000 0            0            
ET0	0      035412 0   0   010000000000 0            0            
ST1A	0      035412 0   0   010000000000 0            0            
ST9	0      035412 0   0   010000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 652
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0931

*034300 JUMPA	0,034301
INITIAL
C(AC)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034301 0            000000034301 
IT1	0      0      0   0   324000034301 0            000000034301 
AT3	0      0      0   0   000000034301 0            324000034301 
AT6	0      034301 0   0   000000034301 0            324000034301 
FT1A	0      034301 0   0   000000034301 0            000000034301 
FT2	0      034301 0   0   0            0            000000034301 
FT2RQ	0      034301 0   0   010000000000 0            000000034301 
FT3	0      034301 0   0   010000000000 0            000000034301 
FT9	034301 034301 0   0   010000000000 0            000000034301 
ET0	034301 034301 0   0   010000000000 0            000000034301 
ST1A	034301 034301 0   0   010000000000 0            000000034301 
ST9	034301 034301 0   0   010000000000 0            000000034301 


*034301 MOVE 	0,035455
INITIAL
C(AC)=010000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034301 034301 0   0   200000035455 0            020000000000 
IT1	034301 0      0   0   200000035455 0            020000000000 
AT3	034301 0      0   0   000000035455 0            200000035455 
AT6	034301 035455 0   0   000000035455 0            200000035455 
FT0	034301 035455 0   0   020000000000 0            200000035455 
FT1A	034301 035455 0   0   020000000000 0            020000000000 
FT9	034302 035455 0   0   020000000000 0            020000000000 
ET0	034302 035455 0   0   020000000000 0            020000000000 
ST1	034302 035455 0   0   020000000000 0            020000000000 
ST2	034302 035455 0   0   020000000000 0            020000000000 
ST9	034302 035455 0   0   020000000000 0            020000000000 


*034302 CAMN	0,035412
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034302 034302 0   0   316000035412 0            0            
IT1	034302 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 653
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0932

AT3	034302 0      0   0   000000035412 0            316000035412 
AT6	034302 035412 0   0   000000035412 0            316000035412 
FT0	034302 035412 0   0   0            0            316000035412 
FT1A	034302 035412 0   0   0            0            0            
FT2	034302 035412 0   0   0            0            0            
FT2RQ	034302 035412 0   0   020000000000 0            0            
FT3	034302 035412 0   0   020000000000 0            0            
FT9	034303 035412 0   0   020000000000 0            0            
ET0	034304 035412 0   0   020000000000 0            0            
ST1A	034304 035412 0   0   020000000000 0            0            
ST9	034304 035412 0   0   020000000000 0            0            


*034304 JUMPA	0,034305
INITIAL
C(AC)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034304 034304 0   0   324000034305 0            000000034305 
IT1	034304 0      0   0   324000034305 0            000000034305 
AT3	034304 0      0   0   000000034305 0            324000034305 
AT6	034304 034305 0   0   000000034305 0            324000034305 
FT1A	034304 034305 0   0   000000034305 0            000000034305 
FT2	034304 034305 0   0   0            0            000000034305 
FT2RQ	034304 034305 0   0   020000000000 0            000000034305 
FT3	034304 034305 0   0   020000000000 0            000000034305 
FT9	034305 034305 0   0   020000000000 0            000000034305 
ET0	034305 034305 0   0   020000000000 0            000000034305 
ST1A	034305 034305 0   0   020000000000 0            000000034305 
ST9	034305 034305 0   0   020000000000 0            000000034305 


*034305 MOVE 	0,035456
INITIAL
C(AC)=020000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034305 034305 0   0   200000035456 0            040000000000 
IT1	034305 0      0   0   200000035456 0            040000000000 
AT3	034305 0      0   0   000000035456 0            200000035456 
AT6	034305 035456 0   0   000000035456 0            200000035456 
FT0	034305 035456 0   0   040000000000 0            200000035456 
FT1A	034305 035456 0   0   040000000000 0            040000000000 
FT9	034306 035456 0   0   040000000000 0            040000000000 
ET0	034306 035456 0   0   040000000000 0            040000000000 
ST1	034306 035456 0   0   040000000000 0            040000000000 
ST2	034306 035456 0   0   040000000000 0            040000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 654
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0933

ST9	034306 035456 0   0   040000000000 0            040000000000 


*034306 CAMN	0,035412
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034306 034306 0   0   316000035412 0            0            
IT1	034306 0      0   0   316000035412 0            0            
AT3	034306 0      0   0   000000035412 0            316000035412 
AT6	034306 035412 0   0   000000035412 0            316000035412 
FT0	034306 035412 0   0   0            0            316000035412 
FT1A	034306 035412 0   0   0            0            0            
FT2	034306 035412 0   0   0            0            0            
FT2RQ	034306 035412 0   0   040000000000 0            0            
FT3	034306 035412 0   0   040000000000 0            0            
FT9	034307 035412 0   0   040000000000 0            0            
ET0	034310 035412 0   0   040000000000 0            0            
ST1A	034310 035412 0   0   040000000000 0            0            
ST9	034310 035412 0   0   040000000000 0            0            


*034310 JUMPA	0,034311
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034310 034310 0   0   324000034311 0            000000034311 
IT1	034310 0      0   0   324000034311 0            000000034311 
AT3	034310 0      0   0   000000034311 0            324000034311 
AT6	034310 034311 0   0   000000034311 0            324000034311 
FT1A	034310 034311 0   0   000000034311 0            000000034311 
FT2	034310 034311 0   0   0            0            000000034311 
FT2RQ	034310 034311 0   0   040000000000 0            000000034311 
FT3	034310 034311 0   0   040000000000 0            000000034311 
FT9	034311 034311 0   0   040000000000 0            000000034311 
ET0	034311 034311 0   0   040000000000 0            000000034311 
ST1A	034311 034311 0   0   040000000000 0            000000034311 
ST9	034311 034311 0   0   040000000000 0            000000034311 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 655
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0934

*034311 MOVE 	0,035457
INITIAL
C(AC)=040000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034311 034311 0   0   200000035457 0            100000000000 
IT1	034311 0      0   0   200000035457 0            100000000000 
AT3	034311 0      0   0   000000035457 0            200000035457 
AT6	034311 035457 0   0   000000035457 0            200000035457 
FT0	034311 035457 0   0   100000000000 0            200000035457 
FT1A	034311 035457 0   0   100000000000 0            100000000000 
FT9	034312 035457 0   0   100000000000 0            100000000000 
ET0	034312 035457 0   0   100000000000 0            100000000000 
ST1	034312 035457 0   0   100000000000 0            100000000000 
ST2	034312 035457 0   0   100000000000 0            100000000000 
ST9	034312 035457 0   0   100000000000 0            100000000000 


*034312 CAMN	0,035412
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034312 034312 0   0   316000035412 0            0            
IT1	034312 0      0   0   316000035412 0            0            
AT3	034312 0      0   0   000000035412 0            316000035412 
AT6	034312 035412 0   0   000000035412 0            316000035412 
FT0	034312 035412 0   0   0            0            316000035412 
FT1A	034312 035412 0   0   0            0            0            
FT2	034312 035412 0   0   0            0            0            
FT2RQ	034312 035412 0   0   100000000000 0            0            
FT3	034312 035412 0   0   100000000000 0            0            
FT9	034313 035412 0   0   100000000000 0            0            
ET0	034314 035412 0   0   100000000000 0            0            
ST1A	034314 035412 0   0   100000000000 0            0            
ST9	034314 035412 0   0   100000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 656
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0935

*034314 JUMPA	0,034315
INITIAL
C(AC)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034314 034314 0   0   324000034315 0            000000034315 
IT1	034314 0      0   0   324000034315 0            000000034315 
AT3	034314 0      0   0   000000034315 0            324000034315 
AT6	034314 034315 0   0   000000034315 0            324000034315 
FT1A	034314 034315 0   0   000000034315 0            000000034315 
FT2	034314 034315 0   0   0            0            000000034315 
FT2RQ	034314 034315 0   0   100000000000 0            000000034315 
FT3	034314 034315 0   0   100000000000 0            000000034315 
FT9	034315 034315 0   0   100000000000 0            000000034315 
ET0	034315 034315 0   0   100000000000 0            000000034315 
ST1A	034315 034315 0   0   100000000000 0            000000034315 
ST9	034315 034315 0   0   100000000000 0            000000034315 


*034315 MOVE 	0,035460
INITIAL
C(AC)=100000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034315 034315 0   0   200000035460 0            200000000000 
IT1	034315 0      0   0   200000035460 0            200000000000 
AT3	034315 0      0   0   000000035460 0            200000035460 
AT6	034315 035460 0   0   000000035460 0            200000035460 
FT0	034315 035460 0   0   200000000000 0            200000035460 
FT1A	034315 035460 0   0   200000000000 0            200000000000 
FT9	034316 035460 0   0   200000000000 0            200000000000 
ET0	034316 035460 0   0   200000000000 0            200000000000 
ST1	034316 035460 0   0   200000000000 0            200000000000 
ST2	034316 035460 0   0   200000000000 0            200000000000 
ST9	034316 035460 0   0   200000000000 0            200000000000 


*034316 CAMN	0,035412
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034316 034316 0   0   316000035412 0            0            
IT1	034316 0      0   0   316000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 657
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0936

AT3	034316 0      0   0   000000035412 0            316000035412 
AT6	034316 035412 0   0   000000035412 0            316000035412 
FT0	034316 035412 0   0   0            0            316000035412 
FT1A	034316 035412 0   0   0            0            0            
FT2	034316 035412 0   0   0            0            0            
FT2RQ	034316 035412 0   0   200000000000 0            0            
FT3	034316 035412 0   0   200000000000 0            0            
FT9	034317 035412 0   0   200000000000 0            0            
ET0	034320 035412 0   0   200000000000 0            0            
ST1A	034320 035412 0   0   200000000000 0            0            
ST9	034320 035412 0   0   200000000000 0            0            


*034320 JUMPA	0,034321
INITIAL
C(AC)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034320 034320 0   0   324000034321 0            000000034321 
IT1	034320 0      0   0   324000034321 0            000000034321 
AT3	034320 0      0   0   000000034321 0            324000034321 
AT6	034320 034321 0   0   000000034321 0            324000034321 
FT1A	034320 034321 0   0   000000034321 0            000000034321 
FT2	034320 034321 0   0   0            0            000000034321 
FT2RQ	034320 034321 0   0   200000000000 0            000000034321 
FT3	034320 034321 0   0   200000000000 0            000000034321 
FT9	034321 034321 0   0   200000000000 0            000000034321 
ET0	034321 034321 0   0   200000000000 0            000000034321 
ST1A	034321 034321 0   0   200000000000 0            000000034321 
ST9	034321 034321 0   0   200000000000 0            000000034321 


*034321 MOVE 	0,035461
INITIAL
C(AC)=200000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034321 034321 0   0   200000035461 0            400000000000 
IT1	034321 0      0   0   200000035461 0            400000000000 
AT3	034321 0      0   0   000000035461 0            200000035461 
AT6	034321 035461 0   0   000000035461 0            200000035461 
FT0	034321 035461 0   0   400000000000 0            200000035461 
FT1A	034321 035461 0   0   400000000000 0            400000000000 
FT9	034322 035461 0   0   400000000000 0            400000000000 
ET0	034322 035461 0   0   400000000000 0            400000000000 
ST1	034322 035461 0   0   400000000000 0            400000000000 
ST2	034322 035461 0   0   400000000000 0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 658
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0937

ST9	034322 035461 0   0   400000000000 0            400000000000 


*034322 CAMN	0,035412
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034322 034322 0   0   316000035412 0            0            
IT1	034322 0      0   0   316000035412 0            0            
AT3	034322 0      0   0   000000035412 0            316000035412 
AT6	034322 035412 0   0   000000035412 0            316000035412 
FT0	034322 035412 0   0   0            0            316000035412 
FT1A	034322 035412 0   0   0            0            0            
FT2	034322 035412 0   0   0            0            0            
FT2RQ	034322 035412 0   0   400000000000 0            0            
FT3	034322 035412 0   0   400000000000 0            0            
FT9	034323 035412 0   0   400000000000 0            0            
ET0	034324 035412 0   0   400000000000 0            0            
ST1A	034324 035412 0   0   400000000000 0            0            
ST9	034324 035412 0   0   400000000000 0            0            


*034324 JUMPA	0,034325
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034324 034324 0   0   324000034325 0            000000034325 
IT1	034324 0      0   0   324000034325 0            000000034325 
AT3	034324 0      0   0   000000034325 0            324000034325 
AT6	034324 034325 0   0   000000034325 0            324000034325 
FT1A	034324 034325 0   0   000000034325 0            000000034325 
FT2	034324 034325 0   0   0            0            000000034325 
FT2RQ	034324 034325 0   0   400000000000 0            000000034325 
FT3	034324 034325 0   0   400000000000 0            000000034325 
FT9	034325 034325 0   0   400000000000 0            000000034325 
ET0	034325 034325 0   0   400000000000 0            000000034325 
ST1A	034325 034325 0   0   400000000000 0            000000034325 
ST9	034325 034325 0   0   400000000000 0            000000034325 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 659
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0938

*034325 MOVS 	0,035410
INITIAL
C(AC)=400000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034325 034325 0   0   204000035410 0            000001000001 
IT1	034325 0      0   0   204000035410 0            000001000001 
AT3	034325 0      0   0   000000035410 0            204000035410 
AT6	034325 035410 0   0   000000035410 0            204000035410 
FT0	034325 035410 0   0   000001000001 0            204000035410 
FT1A	034325 035410 0   0   000001000001 0            000001000001 
FT9	034326 035410 0   0   000001000001 0            000001000001 
ET0	034326 035410 0   0   000001000001 0            000001000001 
ST1	034326 035410 0   0   000001000001 0            000001000001 
ST2	034326 035410 0   0   000001000001 0            000001000001 
ST9	034326 035410 0   0   000001000001 0            000001000001 


*034326 CAME	0,035410
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034326 034326 0   0   312000035410 0            000001000001 
IT1	034326 0      0   0   312000035410 0            000001000001 
AT3	034326 0      0   0   000000035410 0            312000035410 
AT6	034326 035410 0   0   000000035410 0            312000035410 
FT0	034326 035410 0   0   000001000001 0            312000035410 
FT1A	034326 035410 0   0   000001000001 0            000001000001 
FT2	034326 035410 0   0   0            0            000001000001 
FT2RQ	034326 035410 0   0   000001000001 0            000001000001 
FT3	034326 035410 0   0   000001000001 0            000001000001 
FT9	034327 035410 0   0   000001000001 0            000001000001 
ET0	034330 035410 0   0   0            0            000001000001 
ST1A	034330 035410 0   0   0            0            000001000001 
ST9	034330 035410 0   0   0            0            000001000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 660
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0939

*034330 JUMPA	0,034331
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034330 034330 0   0   324000034331 0            000000034331 
IT1	034330 0      0   0   324000034331 0            000000034331 
AT3	034330 0      0   0   000000034331 0            324000034331 
AT6	034330 034331 0   0   000000034331 0            324000034331 
FT1A	034330 034331 0   0   000000034331 0            000000034331 
FT2	034330 034331 0   0   0            0            000000034331 
FT2RQ	034330 034331 0   0   000001000001 0            000000034331 
FT3	034330 034331 0   0   000001000001 0            000000034331 
FT9	034331 034331 0   0   000001000001 0            000000034331 
ET0	034331 034331 0   0   000001000001 0            000000034331 
ST1A	034331 034331 0   0   000001000001 0            000000034331 
ST9	034331 034331 0   0   000001000001 0            000000034331 


*034331 MOVS 	0,035541
INITIAL
C(AC)=000001 000001 
C(E)=000002 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034331 034331 0   0   204000035541 0            000002000002 
IT1	034331 0      0   0   204000035541 0            000002000002 
AT3	034331 0      0   0   000000035541 0            204000035541 
AT6	034331 035541 0   0   000000035541 0            204000035541 
FT0	034331 035541 0   0   000002000002 0            204000035541 
FT1A	034331 035541 0   0   000002000002 0            000002000002 
FT9	034332 035541 0   0   000002000002 0            000002000002 
ET0	034332 035541 0   0   000002000002 0            000002000002 
ST1	034332 035541 0   0   000002000002 0            000002000002 
ST2	034332 035541 0   0   000002000002 0            000002000002 
ST9	034332 035541 0   0   000002000002 0            000002000002 


*034332 CAME	0,035541
INITIAL
C(AC)=000002 000002 
C(E)=000002 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034332 034332 0   0   312000035541 0            000002000002 
IT1	034332 0      0   0   312000035541 0            000002000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 661
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0940

AT3	034332 0      0   0   000000035541 0            312000035541 
AT6	034332 035541 0   0   000000035541 0            312000035541 
FT0	034332 035541 0   0   000002000002 0            312000035541 
FT1A	034332 035541 0   0   000002000002 0            000002000002 
FT2	034332 035541 0   0   0            0            000002000002 
FT2RQ	034332 035541 0   0   000002000002 0            000002000002 
FT3	034332 035541 0   0   000002000002 0            000002000002 
FT9	034333 035541 0   0   000002000002 0            000002000002 
ET0	034334 035541 0   0   0            0            000002000002 
ST1A	034334 035541 0   0   0            0            000002000002 
ST9	034334 035541 0   0   0            0            000002000002 


*034334 JUMPA	0,034335
INITIAL
C(AC)=000002 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034334 034334 0   0   324000034335 0            000000034335 
IT1	034334 0      0   0   324000034335 0            000000034335 
AT3	034334 0      0   0   000000034335 0            324000034335 
AT6	034334 034335 0   0   000000034335 0            324000034335 
FT1A	034334 034335 0   0   000000034335 0            000000034335 
FT2	034334 034335 0   0   0            0            000000034335 
FT2RQ	034334 034335 0   0   000002000002 0            000000034335 
FT3	034334 034335 0   0   000002000002 0            000000034335 
FT9	034335 034335 0   0   000002000002 0            000000034335 
ET0	034335 034335 0   0   000002000002 0            000000034335 
ST1A	034335 034335 0   0   000002000002 0            000000034335 
ST9	034335 034335 0   0   000002000002 0            000000034335 


*034335 MOVS 	0,035542
INITIAL
C(AC)=000002 000002 
C(E)=000004 000004 
FINAL
C(AC)=000004 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034335 034335 0   0   204000035542 0            000004000004 
IT1	034335 0      0   0   204000035542 0            000004000004 
AT3	034335 0      0   0   000000035542 0            204000035542 
AT6	034335 035542 0   0   000000035542 0            204000035542 
FT0	034335 035542 0   0   000004000004 0            204000035542 
FT1A	034335 035542 0   0   000004000004 0            000004000004 
FT9	034336 035542 0   0   000004000004 0            000004000004 
ET0	034336 035542 0   0   000004000004 0            000004000004 
ST1	034336 035542 0   0   000004000004 0            000004000004 
ST2	034336 035542 0   0   000004000004 0            000004000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 662
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0941

ST9	034336 035542 0   0   000004000004 0            000004000004 


*034336 CAME	0,035542
INITIAL
C(AC)=000004 000004 
C(E)=000004 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034336 034336 0   0   312000035542 0            000004000004 
IT1	034336 0      0   0   312000035542 0            000004000004 
AT3	034336 0      0   0   000000035542 0            312000035542 
AT6	034336 035542 0   0   000000035542 0            312000035542 
FT0	034336 035542 0   0   000004000004 0            312000035542 
FT1A	034336 035542 0   0   000004000004 0            000004000004 
FT2	034336 035542 0   0   0            0            000004000004 
FT2RQ	034336 035542 0   0   000004000004 0            000004000004 
FT3	034336 035542 0   0   000004000004 0            000004000004 
FT9	034337 035542 0   0   000004000004 0            000004000004 
ET0	034340 035542 0   0   0            0            000004000004 
ST1A	034340 035542 0   0   0            0            000004000004 
ST9	034340 035542 0   0   0            0            000004000004 


*034340 JUMPA	0,034341
INITIAL
C(AC)=000004 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034340 034340 0   0   324000034341 0            000000034341 
IT1	034340 0      0   0   324000034341 0            000000034341 
AT3	034340 0      0   0   000000034341 0            324000034341 
AT6	034340 034341 0   0   000000034341 0            324000034341 
FT1A	034340 034341 0   0   000000034341 0            000000034341 
FT2	034340 034341 0   0   0            0            000000034341 
FT2RQ	034340 034341 0   0   000004000004 0            000000034341 
FT3	034340 034341 0   0   000004000004 0            000000034341 
FT9	034341 034341 0   0   000004000004 0            000000034341 
ET0	034341 034341 0   0   000004000004 0            000000034341 
ST1A	034341 034341 0   0   000004000004 0            000000034341 
ST9	034341 034341 0   0   000004000004 0            000000034341 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 663
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0942

*034341 MOVS 	0,035543
INITIAL
C(AC)=000004 000004 
C(E)=000010 000010 
FINAL
C(AC)=000010 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034341 034341 0   0   204000035543 0            000010000010 
IT1	034341 0      0   0   204000035543 0            000010000010 
AT3	034341 0      0   0   000000035543 0            204000035543 
AT6	034341 035543 0   0   000000035543 0            204000035543 
FT0	034341 035543 0   0   000010000010 0            204000035543 
FT1A	034341 035543 0   0   000010000010 0            000010000010 
FT9	034342 035543 0   0   000010000010 0            000010000010 
ET0	034342 035543 0   0   000010000010 0            000010000010 
ST1	034342 035543 0   0   000010000010 0            000010000010 
ST2	034342 035543 0   0   000010000010 0            000010000010 
ST9	034342 035543 0   0   000010000010 0            000010000010 


*034342 CAME	0,035543
INITIAL
C(AC)=000010 000010 
C(E)=000010 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034342 034342 0   0   312000035543 0            000010000010 
IT1	034342 0      0   0   312000035543 0            000010000010 
AT3	034342 0      0   0   000000035543 0            312000035543 
AT6	034342 035543 0   0   000000035543 0            312000035543 
FT0	034342 035543 0   0   000010000010 0            312000035543 
FT1A	034342 035543 0   0   000010000010 0            000010000010 
FT2	034342 035543 0   0   0            0            000010000010 
FT2RQ	034342 035543 0   0   000010000010 0            000010000010 
FT3	034342 035543 0   0   000010000010 0            000010000010 
FT9	034343 035543 0   0   000010000010 0            000010000010 
ET0	034344 035543 0   0   0            0            000010000010 
ST1A	034344 035543 0   0   0            0            000010000010 
ST9	034344 035543 0   0   0            0            000010000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 664
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0943

*034344 JUMPA	0,034345
INITIAL
C(AC)=000010 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034344 034344 0   0   324000034345 0            000000034345 
IT1	034344 0      0   0   324000034345 0            000000034345 
AT3	034344 0      0   0   000000034345 0            324000034345 
AT6	034344 034345 0   0   000000034345 0            324000034345 
FT1A	034344 034345 0   0   000000034345 0            000000034345 
FT2	034344 034345 0   0   0            0            000000034345 
FT2RQ	034344 034345 0   0   000010000010 0            000000034345 
FT3	034344 034345 0   0   000010000010 0            000000034345 
FT9	034345 034345 0   0   000010000010 0            000000034345 
ET0	034345 034345 0   0   000010000010 0            000000034345 
ST1A	034345 034345 0   0   000010000010 0            000000034345 
ST9	034345 034345 0   0   000010000010 0            000000034345 


*034345 MOVS 	0,035544
INITIAL
C(AC)=000010 000010 
C(E)=000020 000020 
FINAL
C(AC)=000020 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034345 034345 0   0   204000035544 0            000020000020 
IT1	034345 0      0   0   204000035544 0            000020000020 
AT3	034345 0      0   0   000000035544 0            204000035544 
AT6	034345 035544 0   0   000000035544 0            204000035544 
FT0	034345 035544 0   0   000020000020 0            204000035544 
FT1A	034345 035544 0   0   000020000020 0            000020000020 
FT9	034346 035544 0   0   000020000020 0            000020000020 
ET0	034346 035544 0   0   000020000020 0            000020000020 
ST1	034346 035544 0   0   000020000020 0            000020000020 
ST2	034346 035544 0   0   000020000020 0            000020000020 
ST9	034346 035544 0   0   000020000020 0            000020000020 


*034346 CAME	0,035544
INITIAL
C(AC)=000020 000020 
C(E)=000020 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034346 034346 0   0   312000035544 0            000020000020 
IT1	034346 0      0   0   312000035544 0            000020000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 665
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0944

AT3	034346 0      0   0   000000035544 0            312000035544 
AT6	034346 035544 0   0   000000035544 0            312000035544 
FT0	034346 035544 0   0   000020000020 0            312000035544 
FT1A	034346 035544 0   0   000020000020 0            000020000020 
FT2	034346 035544 0   0   0            0            000020000020 
FT2RQ	034346 035544 0   0   000020000020 0            000020000020 
FT3	034346 035544 0   0   000020000020 0            000020000020 
FT9	034347 035544 0   0   000020000020 0            000020000020 
ET0	034350 035544 0   0   0            0            000020000020 
ST1A	034350 035544 0   0   0            0            000020000020 
ST9	034350 035544 0   0   0            0            000020000020 


*034350 JUMPA	0,034351
INITIAL
C(AC)=000020 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034350 034350 0   0   324000034351 0            000000034351 
IT1	034350 0      0   0   324000034351 0            000000034351 
AT3	034350 0      0   0   000000034351 0            324000034351 
AT6	034350 034351 0   0   000000034351 0            324000034351 
FT1A	034350 034351 0   0   000000034351 0            000000034351 
FT2	034350 034351 0   0   0            0            000000034351 
FT2RQ	034350 034351 0   0   000020000020 0            000000034351 
FT3	034350 034351 0   0   000020000020 0            000000034351 
FT9	034351 034351 0   0   000020000020 0            000000034351 
ET0	034351 034351 0   0   000020000020 0            000000034351 
ST1A	034351 034351 0   0   000020000020 0            000000034351 
ST9	034351 034351 0   0   000020000020 0            000000034351 


*034351 MOVS 	0,035545
INITIAL
C(AC)=000020 000020 
C(E)=000040 000040 
FINAL
C(AC)=000040 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034351 034351 0   0   204000035545 0            000040000040 
IT1	034351 0      0   0   204000035545 0            000040000040 
AT3	034351 0      0   0   000000035545 0            204000035545 
AT6	034351 035545 0   0   000000035545 0            204000035545 
FT0	034351 035545 0   0   000040000040 0            204000035545 
FT1A	034351 035545 0   0   000040000040 0            000040000040 
FT9	034352 035545 0   0   000040000040 0            000040000040 
ET0	034352 035545 0   0   000040000040 0            000040000040 
ST1	034352 035545 0   0   000040000040 0            000040000040 
ST2	034352 035545 0   0   000040000040 0            000040000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 666
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0945

ST9	034352 035545 0   0   000040000040 0            000040000040 


*034352 CAME	0,035545
INITIAL
C(AC)=000040 000040 
C(E)=000040 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034352 034352 0   0   312000035545 0            000040000040 
IT1	034352 0      0   0   312000035545 0            000040000040 
AT3	034352 0      0   0   000000035545 0            312000035545 
AT6	034352 035545 0   0   000000035545 0            312000035545 
FT0	034352 035545 0   0   000040000040 0            312000035545 
FT1A	034352 035545 0   0   000040000040 0            000040000040 
FT2	034352 035545 0   0   0            0            000040000040 
FT2RQ	034352 035545 0   0   000040000040 0            000040000040 
FT3	034352 035545 0   0   000040000040 0            000040000040 
FT9	034353 035545 0   0   000040000040 0            000040000040 
ET0	034354 035545 0   0   0            0            000040000040 
ST1A	034354 035545 0   0   0            0            000040000040 
ST9	034354 035545 0   0   0            0            000040000040 


*034354 JUMPA	0,034355
INITIAL
C(AC)=000040 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034354 034354 0   0   324000034355 0            000000034355 
IT1	034354 0      0   0   324000034355 0            000000034355 
AT3	034354 0      0   0   000000034355 0            324000034355 
AT6	034354 034355 0   0   000000034355 0            324000034355 
FT1A	034354 034355 0   0   000000034355 0            000000034355 
FT2	034354 034355 0   0   0            0            000000034355 
FT2RQ	034354 034355 0   0   000040000040 0            000000034355 
FT3	034354 034355 0   0   000040000040 0            000000034355 
FT9	034355 034355 0   0   000040000040 0            000000034355 
ET0	034355 034355 0   0   000040000040 0            000000034355 
ST1A	034355 034355 0   0   000040000040 0            000000034355 
ST9	034355 034355 0   0   000040000040 0            000000034355 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 667
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0946

*034355 MOVS 	0,035546
INITIAL
C(AC)=000040 000040 
C(E)=000100 000100 
FINAL
C(AC)=000100 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034355 034355 0   0   204000035546 0            000100000100 
IT1	034355 0      0   0   204000035546 0            000100000100 
AT3	034355 0      0   0   000000035546 0            204000035546 
AT6	034355 035546 0   0   000000035546 0            204000035546 
FT0	034355 035546 0   0   000100000100 0            204000035546 
FT1A	034355 035546 0   0   000100000100 0            000100000100 
FT9	034356 035546 0   0   000100000100 0            000100000100 
ET0	034356 035546 0   0   000100000100 0            000100000100 
ST1	034356 035546 0   0   000100000100 0            000100000100 
ST2	034356 035546 0   0   000100000100 0            000100000100 
ST9	034356 035546 0   0   000100000100 0            000100000100 


*034356 CAME	0,035546
INITIAL
C(AC)=000100 000100 
C(E)=000100 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034356 034356 0   0   312000035546 0            000100000100 
IT1	034356 0      0   0   312000035546 0            000100000100 
AT3	034356 0      0   0   000000035546 0            312000035546 
AT6	034356 035546 0   0   000000035546 0            312000035546 
FT0	034356 035546 0   0   000100000100 0            312000035546 
FT1A	034356 035546 0   0   000100000100 0            000100000100 
FT2	034356 035546 0   0   0            0            000100000100 
FT2RQ	034356 035546 0   0   000100000100 0            000100000100 
FT3	034356 035546 0   0   000100000100 0            000100000100 
FT9	034357 035546 0   0   000100000100 0            000100000100 
ET0	034360 035546 0   0   0            0            000100000100 
ST1A	034360 035546 0   0   0            0            000100000100 
ST9	034360 035546 0   0   0            0            000100000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 668
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0947

*034360 JUMPA	0,034361
INITIAL
C(AC)=000100 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034360 034360 0   0   324000034361 0            000000034361 
IT1	034360 0      0   0   324000034361 0            000000034361 
AT3	034360 0      0   0   000000034361 0            324000034361 
AT6	034360 034361 0   0   000000034361 0            324000034361 
FT1A	034360 034361 0   0   000000034361 0            000000034361 
FT2	034360 034361 0   0   0            0            000000034361 
FT2RQ	034360 034361 0   0   000100000100 0            000000034361 
FT3	034360 034361 0   0   000100000100 0            000000034361 
FT9	034361 034361 0   0   000100000100 0            000000034361 
ET0	034361 034361 0   0   000100000100 0            000000034361 
ST1A	034361 034361 0   0   000100000100 0            000000034361 
ST9	034361 034361 0   0   000100000100 0            000000034361 


*034361 MOVS 	0,035547
INITIAL
C(AC)=000100 000100 
C(E)=000200 000200 
FINAL
C(AC)=000200 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034361 034361 0   0   204000035547 0            000200000200 
IT1	034361 0      0   0   204000035547 0            000200000200 
AT3	034361 0      0   0   000000035547 0            204000035547 
AT6	034361 035547 0   0   000000035547 0            204000035547 
FT0	034361 035547 0   0   000200000200 0            204000035547 
FT1A	034361 035547 0   0   000200000200 0            000200000200 
FT9	034362 035547 0   0   000200000200 0            000200000200 
ET0	034362 035547 0   0   000200000200 0            000200000200 
ST1	034362 035547 0   0   000200000200 0            000200000200 
ST2	034362 035547 0   0   000200000200 0            000200000200 
ST9	034362 035547 0   0   000200000200 0            000200000200 


*034362 CAME	0,035547
INITIAL
C(AC)=000200 000200 
C(E)=000200 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034362 034362 0   0   312000035547 0            000200000200 
IT1	034362 0      0   0   312000035547 0            000200000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 669
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0948

AT3	034362 0      0   0   000000035547 0            312000035547 
AT6	034362 035547 0   0   000000035547 0            312000035547 
FT0	034362 035547 0   0   000200000200 0            312000035547 
FT1A	034362 035547 0   0   000200000200 0            000200000200 
FT2	034362 035547 0   0   0            0            000200000200 
FT2RQ	034362 035547 0   0   000200000200 0            000200000200 
FT3	034362 035547 0   0   000200000200 0            000200000200 
FT9	034363 035547 0   0   000200000200 0            000200000200 
ET0	034364 035547 0   0   0            0            000200000200 
ST1A	034364 035547 0   0   0            0            000200000200 
ST9	034364 035547 0   0   0            0            000200000200 


*034364 JUMPA	0,034365
INITIAL
C(AC)=000200 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034364 034364 0   0   324000034365 0            000000034365 
IT1	034364 0      0   0   324000034365 0            000000034365 
AT3	034364 0      0   0   000000034365 0            324000034365 
AT6	034364 034365 0   0   000000034365 0            324000034365 
FT1A	034364 034365 0   0   000000034365 0            000000034365 
FT2	034364 034365 0   0   0            0            000000034365 
FT2RQ	034364 034365 0   0   000200000200 0            000000034365 
FT3	034364 034365 0   0   000200000200 0            000000034365 
FT9	034365 034365 0   0   000200000200 0            000000034365 
ET0	034365 034365 0   0   000200000200 0            000000034365 
ST1A	034365 034365 0   0   000200000200 0            000000034365 
ST9	034365 034365 0   0   000200000200 0            000000034365 


*034365 MOVS 	0,035550
INITIAL
C(AC)=000200 000200 
C(E)=000400 000400 
FINAL
C(AC)=000400 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034365 034365 0   0   204000035550 0            000400000400 
IT1	034365 0      0   0   204000035550 0            000400000400 
AT3	034365 0      0   0   000000035550 0            204000035550 
AT6	034365 035550 0   0   000000035550 0            204000035550 
FT0	034365 035550 0   0   000400000400 0            204000035550 
FT1A	034365 035550 0   0   000400000400 0            000400000400 
FT9	034366 035550 0   0   000400000400 0            000400000400 
ET0	034366 035550 0   0   000400000400 0            000400000400 
ST1	034366 035550 0   0   000400000400 0            000400000400 
ST2	034366 035550 0   0   000400000400 0            000400000400 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 670
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0949

ST9	034366 035550 0   0   000400000400 0            000400000400 


*034366 CAME	0,035550
INITIAL
C(AC)=000400 000400 
C(E)=000400 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034366 034366 0   0   312000035550 0            000400000400 
IT1	034366 0      0   0   312000035550 0            000400000400 
AT3	034366 0      0   0   000000035550 0            312000035550 
AT6	034366 035550 0   0   000000035550 0            312000035550 
FT0	034366 035550 0   0   000400000400 0            312000035550 
FT1A	034366 035550 0   0   000400000400 0            000400000400 
FT2	034366 035550 0   0   0            0            000400000400 
FT2RQ	034366 035550 0   0   000400000400 0            000400000400 
FT3	034366 035550 0   0   000400000400 0            000400000400 
FT9	034367 035550 0   0   000400000400 0            000400000400 
ET0	034370 035550 0   0   0            0            000400000400 
ST1A	034370 035550 0   0   0            0            000400000400 
ST9	034370 035550 0   0   0            0            000400000400 


*034370 JUMPA	0,034371
INITIAL
C(AC)=000400 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034370 034370 0   0   324000034371 0            000000034371 
IT1	034370 0      0   0   324000034371 0            000000034371 
AT3	034370 0      0   0   000000034371 0            324000034371 
AT6	034370 034371 0   0   000000034371 0            324000034371 
FT1A	034370 034371 0   0   000000034371 0            000000034371 
FT2	034370 034371 0   0   0            0            000000034371 
FT2RQ	034370 034371 0   0   000400000400 0            000000034371 
FT3	034370 034371 0   0   000400000400 0            000000034371 
FT9	034371 034371 0   0   000400000400 0            000000034371 
ET0	034371 034371 0   0   000400000400 0            000000034371 
ST1A	034371 034371 0   0   000400000400 0            000000034371 
ST9	034371 034371 0   0   000400000400 0            000000034371 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 671
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0950

*034371 MOVS 	0,035551
INITIAL
C(AC)=000400 000400 
C(E)=001000 001000 
FINAL
C(AC)=001000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034371 034371 0   0   204000035551 0            001000001000 
IT1	034371 0      0   0   204000035551 0            001000001000 
AT3	034371 0      0   0   000000035551 0            204000035551 
AT6	034371 035551 0   0   000000035551 0            204000035551 
FT0	034371 035551 0   0   001000001000 0            204000035551 
FT1A	034371 035551 0   0   001000001000 0            001000001000 
FT9	034372 035551 0   0   001000001000 0            001000001000 
ET0	034372 035551 0   0   001000001000 0            001000001000 
ST1	034372 035551 0   0   001000001000 0            001000001000 
ST2	034372 035551 0   0   001000001000 0            001000001000 
ST9	034372 035551 0   0   001000001000 0            001000001000 


*034372 CAME	0,035551
INITIAL
C(AC)=001000 001000 
C(E)=001000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034372 034372 0   0   312000035551 0            001000001000 
IT1	034372 0      0   0   312000035551 0            001000001000 
AT3	034372 0      0   0   000000035551 0            312000035551 
AT6	034372 035551 0   0   000000035551 0            312000035551 
FT0	034372 035551 0   0   001000001000 0            312000035551 
FT1A	034372 035551 0   0   001000001000 0            001000001000 
FT2	034372 035551 0   0   0            0            001000001000 
FT2RQ	034372 035551 0   0   001000001000 0            001000001000 
FT3	034372 035551 0   0   001000001000 0            001000001000 
FT9	034373 035551 0   0   001000001000 0            001000001000 
ET0	034374 035551 0   0   0            0            001000001000 
ST1A	034374 035551 0   0   0            0            001000001000 
ST9	034374 035551 0   0   0            0            001000001000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 672
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0951

*034374 JUMPA	0,034375
INITIAL
C(AC)=001000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034374 034374 0   0   324000034375 0            000000034375 
IT1	034374 0      0   0   324000034375 0            000000034375 
AT3	034374 0      0   0   000000034375 0            324000034375 
AT6	034374 034375 0   0   000000034375 0            324000034375 
FT1A	034374 034375 0   0   000000034375 0            000000034375 
FT2	034374 034375 0   0   0            0            000000034375 
FT2RQ	034374 034375 0   0   001000001000 0            000000034375 
FT3	034374 034375 0   0   001000001000 0            000000034375 
FT9	034375 034375 0   0   001000001000 0            000000034375 
ET0	034375 034375 0   0   001000001000 0            000000034375 
ST1A	034375 034375 0   0   001000001000 0            000000034375 
ST9	034375 034375 0   0   001000001000 0            000000034375 


*034375 MOVS 	0,035552
INITIAL
C(AC)=001000 001000 
C(E)=002000 002000 
FINAL
C(AC)=002000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034375 034375 0   0   204000035552 0            002000002000 
IT1	034375 0      0   0   204000035552 0            002000002000 
AT3	034375 0      0   0   000000035552 0            204000035552 
AT6	034375 035552 0   0   000000035552 0            204000035552 
FT0	034375 035552 0   0   002000002000 0            204000035552 
FT1A	034375 035552 0   0   002000002000 0            002000002000 
FT9	034376 035552 0   0   002000002000 0            002000002000 
ET0	034376 035552 0   0   002000002000 0            002000002000 
ST1	034376 035552 0   0   002000002000 0            002000002000 
ST2	034376 035552 0   0   002000002000 0            002000002000 
ST9	034376 035552 0   0   002000002000 0            002000002000 


*034376 CAME	0,035552
INITIAL
C(AC)=002000 002000 
C(E)=002000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034376 034376 0   0   312000035552 0            002000002000 
IT1	034376 0      0   0   312000035552 0            002000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 673
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0952

AT3	034376 0      0   0   000000035552 0            312000035552 
AT6	034376 035552 0   0   000000035552 0            312000035552 
FT0	034376 035552 0   0   002000002000 0            312000035552 
FT1A	034376 035552 0   0   002000002000 0            002000002000 
FT2	034376 035552 0   0   0            0            002000002000 
FT2RQ	034376 035552 0   0   002000002000 0            002000002000 
FT3	034376 035552 0   0   002000002000 0            002000002000 
FT9	034377 035552 0   0   002000002000 0            002000002000 
ET0	0      035552 0   0   0            0            002000002000 
ST1A	0      035552 0   0   0            0            002000002000 
ST9	0      035552 0   0   0            0            002000002000 


*034400 JUMPA	0,034401
INITIAL
C(AC)=002000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034401 0            000000034401 
IT1	0      0      0   0   324000034401 0            000000034401 
AT3	0      0      0   0   000000034401 0            324000034401 
AT6	0      034401 0   0   000000034401 0            324000034401 
FT1A	0      034401 0   0   000000034401 0            000000034401 
FT2	0      034401 0   0   0            0            000000034401 
FT2RQ	0      034401 0   0   002000002000 0            000000034401 
FT3	0      034401 0   0   002000002000 0            000000034401 
FT9	034401 034401 0   0   002000002000 0            000000034401 
ET0	034401 034401 0   0   002000002000 0            000000034401 
ST1A	034401 034401 0   0   002000002000 0            000000034401 
ST9	034401 034401 0   0   002000002000 0            000000034401 


*034401 MOVS 	0,035553
INITIAL
C(AC)=002000 002000 
C(E)=004000 004000 
FINAL
C(AC)=004000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034401 034401 0   0   204000035553 0            004000004000 
IT1	034401 0      0   0   204000035553 0            004000004000 
AT3	034401 0      0   0   000000035553 0            204000035553 
AT6	034401 035553 0   0   000000035553 0            204000035553 
FT0	034401 035553 0   0   004000004000 0            204000035553 
FT1A	034401 035553 0   0   004000004000 0            004000004000 
FT9	034402 035553 0   0   004000004000 0            004000004000 
ET0	034402 035553 0   0   004000004000 0            004000004000 
ST1	034402 035553 0   0   004000004000 0            004000004000 
ST2	034402 035553 0   0   004000004000 0            004000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 674
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0953

ST9	034402 035553 0   0   004000004000 0            004000004000 


*034402 CAME	0,035553
INITIAL
C(AC)=004000 004000 
C(E)=004000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034402 034402 0   0   312000035553 0            004000004000 
IT1	034402 0      0   0   312000035553 0            004000004000 
AT3	034402 0      0   0   000000035553 0            312000035553 
AT6	034402 035553 0   0   000000035553 0            312000035553 
FT0	034402 035553 0   0   004000004000 0            312000035553 
FT1A	034402 035553 0   0   004000004000 0            004000004000 
FT2	034402 035553 0   0   0            0            004000004000 
FT2RQ	034402 035553 0   0   004000004000 0            004000004000 
FT3	034402 035553 0   0   004000004000 0            004000004000 
FT9	034403 035553 0   0   004000004000 0            004000004000 
ET0	034404 035553 0   0   0            0            004000004000 
ST1A	034404 035553 0   0   0            0            004000004000 
ST9	034404 035553 0   0   0            0            004000004000 


*034404 JUMPA	0,034405
INITIAL
C(AC)=004000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034404 034404 0   0   324000034405 0            000000034405 
IT1	034404 0      0   0   324000034405 0            000000034405 
AT3	034404 0      0   0   000000034405 0            324000034405 
AT6	034404 034405 0   0   000000034405 0            324000034405 
FT1A	034404 034405 0   0   000000034405 0            000000034405 
FT2	034404 034405 0   0   0            0            000000034405 
FT2RQ	034404 034405 0   0   004000004000 0            000000034405 
FT3	034404 034405 0   0   004000004000 0            000000034405 
FT9	034405 034405 0   0   004000004000 0            000000034405 
ET0	034405 034405 0   0   004000004000 0            000000034405 
ST1A	034405 034405 0   0   004000004000 0            000000034405 
ST9	034405 034405 0   0   004000004000 0            000000034405 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 675
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0954

*034405 MOVS 	0,035554
INITIAL
C(AC)=004000 004000 
C(E)=010000 010000 
FINAL
C(AC)=010000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034405 034405 0   0   204000035554 0            010000010000 
IT1	034405 0      0   0   204000035554 0            010000010000 
AT3	034405 0      0   0   000000035554 0            204000035554 
AT6	034405 035554 0   0   000000035554 0            204000035554 
FT0	034405 035554 0   0   010000010000 0            204000035554 
FT1A	034405 035554 0   0   010000010000 0            010000010000 
FT9	034406 035554 0   0   010000010000 0            010000010000 
ET0	034406 035554 0   0   010000010000 0            010000010000 
ST1	034406 035554 0   0   010000010000 0            010000010000 
ST2	034406 035554 0   0   010000010000 0            010000010000 
ST9	034406 035554 0   0   010000010000 0            010000010000 


*034406 CAME	0,035554
INITIAL
C(AC)=010000 010000 
C(E)=010000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034406 034406 0   0   312000035554 0            010000010000 
IT1	034406 0      0   0   312000035554 0            010000010000 
AT3	034406 0      0   0   000000035554 0            312000035554 
AT6	034406 035554 0   0   000000035554 0            312000035554 
FT0	034406 035554 0   0   010000010000 0            312000035554 
FT1A	034406 035554 0   0   010000010000 0            010000010000 
FT2	034406 035554 0   0   0            0            010000010000 
FT2RQ	034406 035554 0   0   010000010000 0            010000010000 
FT3	034406 035554 0   0   010000010000 0            010000010000 
FT9	034407 035554 0   0   010000010000 0            010000010000 
ET0	034410 035554 0   0   0            0            010000010000 
ST1A	034410 035554 0   0   0            0            010000010000 
ST9	034410 035554 0   0   0            0            010000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 676
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0955

*034410 JUMPA	0,034411
INITIAL
C(AC)=010000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034410 034410 0   0   324000034411 0            000000034411 
IT1	034410 0      0   0   324000034411 0            000000034411 
AT3	034410 0      0   0   000000034411 0            324000034411 
AT6	034410 034411 0   0   000000034411 0            324000034411 
FT1A	034410 034411 0   0   000000034411 0            000000034411 
FT2	034410 034411 0   0   0            0            000000034411 
FT2RQ	034410 034411 0   0   010000010000 0            000000034411 
FT3	034410 034411 0   0   010000010000 0            000000034411 
FT9	034411 034411 0   0   010000010000 0            000000034411 
ET0	034411 034411 0   0   010000010000 0            000000034411 
ST1A	034411 034411 0   0   010000010000 0            000000034411 
ST9	034411 034411 0   0   010000010000 0            000000034411 


*034411 MOVS 	0,035555
INITIAL
C(AC)=010000 010000 
C(E)=020000 020000 
FINAL
C(AC)=020000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034411 034411 0   0   204000035555 0            020000020000 
IT1	034411 0      0   0   204000035555 0            020000020000 
AT3	034411 0      0   0   000000035555 0            204000035555 
AT6	034411 035555 0   0   000000035555 0            204000035555 
FT0	034411 035555 0   0   020000020000 0            204000035555 
FT1A	034411 035555 0   0   020000020000 0            020000020000 
FT9	034412 035555 0   0   020000020000 0            020000020000 
ET0	034412 035555 0   0   020000020000 0            020000020000 
ST1	034412 035555 0   0   020000020000 0            020000020000 
ST2	034412 035555 0   0   020000020000 0            020000020000 
ST9	034412 035555 0   0   020000020000 0            020000020000 


*034412 CAME	0,035555
INITIAL
C(AC)=020000 020000 
C(E)=020000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034412 034412 0   0   312000035555 0            020000020000 
IT1	034412 0      0   0   312000035555 0            020000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 677
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0956

AT3	034412 0      0   0   000000035555 0            312000035555 
AT6	034412 035555 0   0   000000035555 0            312000035555 
FT0	034412 035555 0   0   020000020000 0            312000035555 
FT1A	034412 035555 0   0   020000020000 0            020000020000 
FT2	034412 035555 0   0   0            0            020000020000 
FT2RQ	034412 035555 0   0   020000020000 0            020000020000 
FT3	034412 035555 0   0   020000020000 0            020000020000 
FT9	034413 035555 0   0   020000020000 0            020000020000 
ET0	034414 035555 0   0   0            0            020000020000 
ST1A	034414 035555 0   0   0            0            020000020000 
ST9	034414 035555 0   0   0            0            020000020000 


*034414 JUMPA	0,034415
INITIAL
C(AC)=020000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034414 034414 0   0   324000034415 0            000000034415 
IT1	034414 0      0   0   324000034415 0            000000034415 
AT3	034414 0      0   0   000000034415 0            324000034415 
AT6	034414 034415 0   0   000000034415 0            324000034415 
FT1A	034414 034415 0   0   000000034415 0            000000034415 
FT2	034414 034415 0   0   0            0            000000034415 
FT2RQ	034414 034415 0   0   020000020000 0            000000034415 
FT3	034414 034415 0   0   020000020000 0            000000034415 
FT9	034415 034415 0   0   020000020000 0            000000034415 
ET0	034415 034415 0   0   020000020000 0            000000034415 
ST1A	034415 034415 0   0   020000020000 0            000000034415 
ST9	034415 034415 0   0   020000020000 0            000000034415 


*034415 MOVS 	0,035556
INITIAL
C(AC)=020000 020000 
C(E)=040000 040000 
FINAL
C(AC)=040000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034415 034415 0   0   204000035556 0            040000040000 
IT1	034415 0      0   0   204000035556 0            040000040000 
AT3	034415 0      0   0   000000035556 0            204000035556 
AT6	034415 035556 0   0   000000035556 0            204000035556 
FT0	034415 035556 0   0   040000040000 0            204000035556 
FT1A	034415 035556 0   0   040000040000 0            040000040000 
FT9	034416 035556 0   0   040000040000 0            040000040000 
ET0	034416 035556 0   0   040000040000 0            040000040000 
ST1	034416 035556 0   0   040000040000 0            040000040000 
ST2	034416 035556 0   0   040000040000 0            040000040000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 678
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0957

ST9	034416 035556 0   0   040000040000 0            040000040000 


*034416 CAME	0,035556
INITIAL
C(AC)=040000 040000 
C(E)=040000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034416 034416 0   0   312000035556 0            040000040000 
IT1	034416 0      0   0   312000035556 0            040000040000 
AT3	034416 0      0   0   000000035556 0            312000035556 
AT6	034416 035556 0   0   000000035556 0            312000035556 
FT0	034416 035556 0   0   040000040000 0            312000035556 
FT1A	034416 035556 0   0   040000040000 0            040000040000 
FT2	034416 035556 0   0   0            0            040000040000 
FT2RQ	034416 035556 0   0   040000040000 0            040000040000 
FT3	034416 035556 0   0   040000040000 0            040000040000 
FT9	034417 035556 0   0   040000040000 0            040000040000 
ET0	034420 035556 0   0   0            0            040000040000 
ST1A	034420 035556 0   0   0            0            040000040000 
ST9	034420 035556 0   0   0            0            040000040000 


*034420 JUMPA	0,034421
INITIAL
C(AC)=040000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034420 034420 0   0   324000034421 0            000000034421 
IT1	034420 0      0   0   324000034421 0            000000034421 
AT3	034420 0      0   0   000000034421 0            324000034421 
AT6	034420 034421 0   0   000000034421 0            324000034421 
FT1A	034420 034421 0   0   000000034421 0            000000034421 
FT2	034420 034421 0   0   0            0            000000034421 
FT2RQ	034420 034421 0   0   040000040000 0            000000034421 
FT3	034420 034421 0   0   040000040000 0            000000034421 
FT9	034421 034421 0   0   040000040000 0            000000034421 
ET0	034421 034421 0   0   040000040000 0            000000034421 
ST1A	034421 034421 0   0   040000040000 0            000000034421 
ST9	034421 034421 0   0   040000040000 0            000000034421 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 679
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0958

*034421 MOVS 	0,035557
INITIAL
C(AC)=040000 040000 
C(E)=100000 100000 
FINAL
C(AC)=100000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034421 034421 0   0   204000035557 0            100000100000 
IT1	034421 0      0   0   204000035557 0            100000100000 
AT3	034421 0      0   0   000000035557 0            204000035557 
AT6	034421 035557 0   0   000000035557 0            204000035557 
FT0	034421 035557 0   0   100000100000 0            204000035557 
FT1A	034421 035557 0   0   100000100000 0            100000100000 
FT9	034422 035557 0   0   100000100000 0            100000100000 
ET0	034422 035557 0   0   100000100000 0            100000100000 
ST1	034422 035557 0   0   100000100000 0            100000100000 
ST2	034422 035557 0   0   100000100000 0            100000100000 
ST9	034422 035557 0   0   100000100000 0            100000100000 


*034422 CAME	0,035557
INITIAL
C(AC)=100000 100000 
C(E)=100000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034422 034422 0   0   312000035557 0            100000100000 
IT1	034422 0      0   0   312000035557 0            100000100000 
AT3	034422 0      0   0   000000035557 0            312000035557 
AT6	034422 035557 0   0   000000035557 0            312000035557 
FT0	034422 035557 0   0   100000100000 0            312000035557 
FT1A	034422 035557 0   0   100000100000 0            100000100000 
FT2	034422 035557 0   0   0            0            100000100000 
FT2RQ	034422 035557 0   0   100000100000 0            100000100000 
FT3	034422 035557 0   0   100000100000 0            100000100000 
FT9	034423 035557 0   0   100000100000 0            100000100000 
ET0	034424 035557 0   0   0            0            100000100000 
ST1A	034424 035557 0   0   0            0            100000100000 
ST9	034424 035557 0   0   0            0            100000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 680
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0959

*034424 JUMPA	0,034425
INITIAL
C(AC)=100000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034424 034424 0   0   324000034425 0            000000034425 
IT1	034424 0      0   0   324000034425 0            000000034425 
AT3	034424 0      0   0   000000034425 0            324000034425 
AT6	034424 034425 0   0   000000034425 0            324000034425 
FT1A	034424 034425 0   0   000000034425 0            000000034425 
FT2	034424 034425 0   0   0            0            000000034425 
FT2RQ	034424 034425 0   0   100000100000 0            000000034425 
FT3	034424 034425 0   0   100000100000 0            000000034425 
FT9	034425 034425 0   0   100000100000 0            000000034425 
ET0	034425 034425 0   0   100000100000 0            000000034425 
ST1A	034425 034425 0   0   100000100000 0            000000034425 
ST9	034425 034425 0   0   100000100000 0            000000034425 


*034425 MOVS 	0,035560
INITIAL
C(AC)=100000 100000 
C(E)=200000 200000 
FINAL
C(AC)=200000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034425 034425 0   0   204000035560 0            200000200000 
IT1	034425 0      0   0   204000035560 0            200000200000 
AT3	034425 0      0   0   000000035560 0            204000035560 
AT6	034425 035560 0   0   000000035560 0            204000035560 
FT0	034425 035560 0   0   200000200000 0            204000035560 
FT1A	034425 035560 0   0   200000200000 0            200000200000 
FT9	034426 035560 0   0   200000200000 0            200000200000 
ET0	034426 035560 0   0   200000200000 0            200000200000 
ST1	034426 035560 0   0   200000200000 0            200000200000 
ST2	034426 035560 0   0   200000200000 0            200000200000 
ST9	034426 035560 0   0   200000200000 0            200000200000 


*034426 CAME	0,035560
INITIAL
C(AC)=200000 200000 
C(E)=200000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034426 034426 0   0   312000035560 0            200000200000 
IT1	034426 0      0   0   312000035560 0            200000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 681
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0960

AT3	034426 0      0   0   000000035560 0            312000035560 
AT6	034426 035560 0   0   000000035560 0            312000035560 
FT0	034426 035560 0   0   200000200000 0            312000035560 
FT1A	034426 035560 0   0   200000200000 0            200000200000 
FT2	034426 035560 0   0   0            0            200000200000 
FT2RQ	034426 035560 0   0   200000200000 0            200000200000 
FT3	034426 035560 0   0   200000200000 0            200000200000 
FT9	034427 035560 0   0   200000200000 0            200000200000 
ET0	034430 035560 0   0   0            0            200000200000 
ST1A	034430 035560 0   0   0            0            200000200000 
ST9	034430 035560 0   0   0            0            200000200000 


*034430 JUMPA	0,034431
INITIAL
C(AC)=200000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034430 034430 0   0   324000034431 0            000000034431 
IT1	034430 0      0   0   324000034431 0            000000034431 
AT3	034430 0      0   0   000000034431 0            324000034431 
AT6	034430 034431 0   0   000000034431 0            324000034431 
FT1A	034430 034431 0   0   000000034431 0            000000034431 
FT2	034430 034431 0   0   0            0            000000034431 
FT2RQ	034430 034431 0   0   200000200000 0            000000034431 
FT3	034430 034431 0   0   200000200000 0            000000034431 
FT9	034431 034431 0   0   200000200000 0            000000034431 
ET0	034431 034431 0   0   200000200000 0            000000034431 
ST1A	034431 034431 0   0   200000200000 0            000000034431 
ST9	034431 034431 0   0   200000200000 0            000000034431 


*034431 MOVS 	0,035561
INITIAL
C(AC)=200000 200000 
C(E)=400000 400000 
FINAL
C(AC)=400000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034431 034431 0   0   204000035561 0            400000400000 
IT1	034431 0      0   0   204000035561 0            400000400000 
AT3	034431 0      0   0   000000035561 0            204000035561 
AT6	034431 035561 0   0   000000035561 0            204000035561 
FT0	034431 035561 0   0   400000400000 0            204000035561 
FT1A	034431 035561 0   0   400000400000 0            400000400000 
FT9	034432 035561 0   0   400000400000 0            400000400000 
ET0	034432 035561 0   0   400000400000 0            400000400000 
ST1	034432 035561 0   0   400000400000 0            400000400000 
ST2	034432 035561 0   0   400000400000 0            400000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 682
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0961

ST9	034432 035561 0   0   400000400000 0            400000400000 


*034432 CAME	0,035561
INITIAL
C(AC)=400000 400000 
C(E)=400000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034432 034432 0   0   312000035561 0            400000400000 
IT1	034432 0      0   0   312000035561 0            400000400000 
AT3	034432 0      0   0   000000035561 0            312000035561 
AT6	034432 035561 0   0   000000035561 0            312000035561 
FT0	034432 035561 0   0   400000400000 0            312000035561 
FT1A	034432 035561 0   0   400000400000 0            400000400000 
FT2	034432 035561 0   0   0            0            400000400000 
FT2RQ	034432 035561 0   0   400000400000 0            400000400000 
FT3	034432 035561 0   0   400000400000 0            400000400000 
FT9	034433 035561 0   0   400000400000 0            400000400000 
ET0	034434 035561 0   0   0            0            400000400000 
ST1A	034434 035561 0   0   0            0            400000400000 
ST9	034434 035561 0   0   0            0            400000400000 


*034434 JUMPA	0,034435
INITIAL
C(AC)=400000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034434 034434 0   0   324000034435 0            000000034435 
IT1	034434 0      0   0   324000034435 0            000000034435 
AT3	034434 0      0   0   000000034435 0            324000034435 
AT6	034434 034435 0   0   000000034435 0            324000034435 
FT1A	034434 034435 0   0   000000034435 0            000000034435 
FT2	034434 034435 0   0   0            0            000000034435 
FT2RQ	034434 034435 0   0   400000400000 0            000000034435 
FT3	034434 034435 0   0   400000400000 0            000000034435 
FT9	034435 034435 0   0   400000400000 0            000000034435 
ET0	034435 034435 0   0   400000400000 0            000000034435 
ST1A	034435 034435 0   0   400000400000 0            000000034435 
ST9	034435 034435 0   0   400000400000 0            000000034435 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 683
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0962

*034435 MOVS 	0,035562
INITIAL
C(AC)=400000 400000 
C(E)=777776 777776 
FINAL
C(AC)=777776 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034435 034435 0   0   204000035562 0            777776777776 
IT1	034435 0      0   0   204000035562 0            777776777776 
AT3	034435 0      0   0   000000035562 0            204000035562 
AT6	034435 035562 0   0   000000035562 0            204000035562 
FT0	034435 035562 0   0   777776777776 0            204000035562 
FT1A	034435 035562 0   0   777776777776 0            777776777776 
FT9	034436 035562 0   0   777776777776 0            777776777776 
ET0	034436 035562 0   0   777776777776 0            777776777776 
ST1	034436 035562 0   0   777776777776 0            777776777776 
ST2	034436 035562 0   0   777776777776 0            777776777776 
ST9	034436 035562 0   0   777776777776 0            777776777776 


*034436 CAME	0,035562
INITIAL
C(AC)=777776 777776 
C(E)=777776 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034436 034436 0   0   312000035562 0            777776777776 
IT1	034436 0      0   0   312000035562 0            777776777776 
AT3	034436 0      0   0   000000035562 0            312000035562 
AT6	034436 035562 0   0   000000035562 0            312000035562 
FT0	034436 035562 0   0   777776777776 0            312000035562 
FT1A	034436 035562 0   0   777776777776 0            777776777776 
FT2	034436 035562 0   0   0            0            777776777776 
FT2RQ	034436 035562 0   0   777776777776 0            777776777776 
FT3	034436 035562 0   0   777776777776 0            777776777776 
FT9	034437 035562 0   0   777776777776 0            777776777776 
ET0	034440 035562 0   0   0            0            777776777776 
ST1A	034440 035562 0   0   0            0            777776777776 
ST9	034440 035562 0   0   0            0            777776777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 684
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0963

*034440 JUMPA	0,034441
INITIAL
C(AC)=777776 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034440 034440 0   0   324000034441 0            000000034441 
IT1	034440 0      0   0   324000034441 0            000000034441 
AT3	034440 0      0   0   000000034441 0            324000034441 
AT6	034440 034441 0   0   000000034441 0            324000034441 
FT1A	034440 034441 0   0   000000034441 0            000000034441 
FT2	034440 034441 0   0   0            0            000000034441 
FT2RQ	034440 034441 0   0   777776777776 0            000000034441 
FT3	034440 034441 0   0   777776777776 0            000000034441 
FT9	034441 034441 0   0   777776777776 0            000000034441 
ET0	034441 034441 0   0   777776777776 0            000000034441 
ST1A	034441 034441 0   0   777776777776 0            000000034441 
ST9	034441 034441 0   0   777776777776 0            000000034441 


*034441 MOVS 	0,035563
INITIAL
C(AC)=777776 777776 
C(E)=777775 777775 
FINAL
C(AC)=777775 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034441 034441 0   0   204000035563 0            777775777775 
IT1	034441 0      0   0   204000035563 0            777775777775 
AT3	034441 0      0   0   000000035563 0            204000035563 
AT6	034441 035563 0   0   000000035563 0            204000035563 
FT0	034441 035563 0   0   777775777775 0            204000035563 
FT1A	034441 035563 0   0   777775777775 0            777775777775 
FT9	034442 035563 0   0   777775777775 0            777775777775 
ET0	034442 035563 0   0   777775777775 0            777775777775 
ST1	034442 035563 0   0   777775777775 0            777775777775 
ST2	034442 035563 0   0   777775777775 0            777775777775 
ST9	034442 035563 0   0   777775777775 0            777775777775 


*034442 CAME	0,035563
INITIAL
C(AC)=777775 777775 
C(E)=777775 777775 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034442 034442 0   0   312000035563 0            777775777775 
IT1	034442 0      0   0   312000035563 0            777775777775 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 685
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0964

AT3	034442 0      0   0   000000035563 0            312000035563 
AT6	034442 035563 0   0   000000035563 0            312000035563 
FT0	034442 035563 0   0   777775777775 0            312000035563 
FT1A	034442 035563 0   0   777775777775 0            777775777775 
FT2	034442 035563 0   0   0            0            777775777775 
FT2RQ	034442 035563 0   0   777775777775 0            777775777775 
FT3	034442 035563 0   0   777775777775 0            777775777775 
FT9	034443 035563 0   0   777775777775 0            777775777775 
ET0	034444 035563 0   0   0            0            777775777775 
ST1A	034444 035563 0   0   0            0            777775777775 
ST9	034444 035563 0   0   0            0            777775777775 


*034444 JUMPA	0,034445
INITIAL
C(AC)=777775 777775 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034444 034444 0   0   324000034445 0            000000034445 
IT1	034444 0      0   0   324000034445 0            000000034445 
AT3	034444 0      0   0   000000034445 0            324000034445 
AT6	034444 034445 0   0   000000034445 0            324000034445 
FT1A	034444 034445 0   0   000000034445 0            000000034445 
FT2	034444 034445 0   0   0            0            000000034445 
FT2RQ	034444 034445 0   0   777775777775 0            000000034445 
FT3	034444 034445 0   0   777775777775 0            000000034445 
FT9	034445 034445 0   0   777775777775 0            000000034445 
ET0	034445 034445 0   0   777775777775 0            000000034445 
ST1A	034445 034445 0   0   777775777775 0            000000034445 
ST9	034445 034445 0   0   777775777775 0            000000034445 


*034445 MOVS 	0,035564
INITIAL
C(AC)=777775 777775 
C(E)=777773 777773 
FINAL
C(AC)=777773 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034445 034445 0   0   204000035564 0            777773777773 
IT1	034445 0      0   0   204000035564 0            777773777773 
AT3	034445 0      0   0   000000035564 0            204000035564 
AT6	034445 035564 0   0   000000035564 0            204000035564 
FT0	034445 035564 0   0   777773777773 0            204000035564 
FT1A	034445 035564 0   0   777773777773 0            777773777773 
FT9	034446 035564 0   0   777773777773 0            777773777773 
ET0	034446 035564 0   0   777773777773 0            777773777773 
ST1	034446 035564 0   0   777773777773 0            777773777773 
ST2	034446 035564 0   0   777773777773 0            777773777773 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 686
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0965

ST9	034446 035564 0   0   777773777773 0            777773777773 


*034446 CAME	0,035564
INITIAL
C(AC)=777773 777773 
C(E)=777773 777773 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034446 034446 0   0   312000035564 0            777773777773 
IT1	034446 0      0   0   312000035564 0            777773777773 
AT3	034446 0      0   0   000000035564 0            312000035564 
AT6	034446 035564 0   0   000000035564 0            312000035564 
FT0	034446 035564 0   0   777773777773 0            312000035564 
FT1A	034446 035564 0   0   777773777773 0            777773777773 
FT2	034446 035564 0   0   0            0            777773777773 
FT2RQ	034446 035564 0   0   777773777773 0            777773777773 
FT3	034446 035564 0   0   777773777773 0            777773777773 
FT9	034447 035564 0   0   777773777773 0            777773777773 
ET0	034450 035564 0   0   0            0            777773777773 
ST1A	034450 035564 0   0   0            0            777773777773 
ST9	034450 035564 0   0   0            0            777773777773 


*034450 JUMPA	0,034451
INITIAL
C(AC)=777773 777773 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034450 034450 0   0   324000034451 0            000000034451 
IT1	034450 0      0   0   324000034451 0            000000034451 
AT3	034450 0      0   0   000000034451 0            324000034451 
AT6	034450 034451 0   0   000000034451 0            324000034451 
FT1A	034450 034451 0   0   000000034451 0            000000034451 
FT2	034450 034451 0   0   0            0            000000034451 
FT2RQ	034450 034451 0   0   777773777773 0            000000034451 
FT3	034450 034451 0   0   777773777773 0            000000034451 
FT9	034451 034451 0   0   777773777773 0            000000034451 
ET0	034451 034451 0   0   777773777773 0            000000034451 
ST1A	034451 034451 0   0   777773777773 0            000000034451 
ST9	034451 034451 0   0   777773777773 0            000000034451 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 687
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0966

*034451 MOVS 	0,035565
INITIAL
C(AC)=777773 777773 
C(E)=777767 777767 
FINAL
C(AC)=777767 777767 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034451 034451 0   0   204000035565 0            777767777767 
IT1	034451 0      0   0   204000035565 0            777767777767 
AT3	034451 0      0   0   000000035565 0            204000035565 
AT6	034451 035565 0   0   000000035565 0            204000035565 
FT0	034451 035565 0   0   777767777767 0            204000035565 
FT1A	034451 035565 0   0   777767777767 0            777767777767 
FT9	034452 035565 0   0   777767777767 0            777767777767 
ET0	034452 035565 0   0   777767777767 0            777767777767 
ST1	034452 035565 0   0   777767777767 0            777767777767 
ST2	034452 035565 0   0   777767777767 0            777767777767 
ST9	034452 035565 0   0   777767777767 0            777767777767 


*034452 CAME	0,035565
INITIAL
C(AC)=777767 777767 
C(E)=777767 777767 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034452 034452 0   0   312000035565 0            777767777767 
IT1	034452 0      0   0   312000035565 0            777767777767 
AT3	034452 0      0   0   000000035565 0            312000035565 
AT6	034452 035565 0   0   000000035565 0            312000035565 
FT0	034452 035565 0   0   777767777767 0            312000035565 
FT1A	034452 035565 0   0   777767777767 0            777767777767 
FT2	034452 035565 0   0   0            0            777767777767 
FT2RQ	034452 035565 0   0   777767777767 0            777767777767 
FT3	034452 035565 0   0   777767777767 0            777767777767 
FT9	034453 035565 0   0   777767777767 0            777767777767 
ET0	034454 035565 0   0   0            0            777767777767 
ST1A	034454 035565 0   0   0            0            777767777767 
ST9	034454 035565 0   0   0            0            777767777767 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 688
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0967

*034454 JUMPA	0,034455
INITIAL
C(AC)=777767 777767 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034454 034454 0   0   324000034455 0            000000034455 
IT1	034454 0      0   0   324000034455 0            000000034455 
AT3	034454 0      0   0   000000034455 0            324000034455 
AT6	034454 034455 0   0   000000034455 0            324000034455 
FT1A	034454 034455 0   0   000000034455 0            000000034455 
FT2	034454 034455 0   0   0            0            000000034455 
FT2RQ	034454 034455 0   0   777767777767 0            000000034455 
FT3	034454 034455 0   0   777767777767 0            000000034455 
FT9	034455 034455 0   0   777767777767 0            000000034455 
ET0	034455 034455 0   0   777767777767 0            000000034455 
ST1A	034455 034455 0   0   777767777767 0            000000034455 
ST9	034455 034455 0   0   777767777767 0            000000034455 


*034455 MOVS 	0,035566
INITIAL
C(AC)=777767 777767 
C(E)=777757 777757 
FINAL
C(AC)=777757 777757 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034455 034455 0   0   204000035566 0            777757777757 
IT1	034455 0      0   0   204000035566 0            777757777757 
AT3	034455 0      0   0   000000035566 0            204000035566 
AT6	034455 035566 0   0   000000035566 0            204000035566 
FT0	034455 035566 0   0   777757777757 0            204000035566 
FT1A	034455 035566 0   0   777757777757 0            777757777757 
FT9	034456 035566 0   0   777757777757 0            777757777757 
ET0	034456 035566 0   0   777757777757 0            777757777757 
ST1	034456 035566 0   0   777757777757 0            777757777757 
ST2	034456 035566 0   0   777757777757 0            777757777757 
ST9	034456 035566 0   0   777757777757 0            777757777757 


*034456 CAME	0,035566
INITIAL
C(AC)=777757 777757 
C(E)=777757 777757 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034456 034456 0   0   312000035566 0            777757777757 
IT1	034456 0      0   0   312000035566 0            777757777757 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 689
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0968

AT3	034456 0      0   0   000000035566 0            312000035566 
AT6	034456 035566 0   0   000000035566 0            312000035566 
FT0	034456 035566 0   0   777757777757 0            312000035566 
FT1A	034456 035566 0   0   777757777757 0            777757777757 
FT2	034456 035566 0   0   0            0            777757777757 
FT2RQ	034456 035566 0   0   777757777757 0            777757777757 
FT3	034456 035566 0   0   777757777757 0            777757777757 
FT9	034457 035566 0   0   777757777757 0            777757777757 
ET0	034460 035566 0   0   0            0            777757777757 
ST1A	034460 035566 0   0   0            0            777757777757 
ST9	034460 035566 0   0   0            0            777757777757 


*034460 JUMPA	0,034461
INITIAL
C(AC)=777757 777757 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034460 034460 0   0   324000034461 0            000000034461 
IT1	034460 0      0   0   324000034461 0            000000034461 
AT3	034460 0      0   0   000000034461 0            324000034461 
AT6	034460 034461 0   0   000000034461 0            324000034461 
FT1A	034460 034461 0   0   000000034461 0            000000034461 
FT2	034460 034461 0   0   0            0            000000034461 
FT2RQ	034460 034461 0   0   777757777757 0            000000034461 
FT3	034460 034461 0   0   777757777757 0            000000034461 
FT9	034461 034461 0   0   777757777757 0            000000034461 
ET0	034461 034461 0   0   777757777757 0            000000034461 
ST1A	034461 034461 0   0   777757777757 0            000000034461 
ST9	034461 034461 0   0   777757777757 0            000000034461 


*034461 MOVS 	0,035567
INITIAL
C(AC)=777757 777757 
C(E)=777737 777737 
FINAL
C(AC)=777737 777737 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034461 034461 0   0   204000035567 0            777737777737 
IT1	034461 0      0   0   204000035567 0            777737777737 
AT3	034461 0      0   0   000000035567 0            204000035567 
AT6	034461 035567 0   0   000000035567 0            204000035567 
FT0	034461 035567 0   0   777737777737 0            204000035567 
FT1A	034461 035567 0   0   777737777737 0            777737777737 
FT9	034462 035567 0   0   777737777737 0            777737777737 
ET0	034462 035567 0   0   777737777737 0            777737777737 
ST1	034462 035567 0   0   777737777737 0            777737777737 
ST2	034462 035567 0   0   777737777737 0            777737777737 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 690
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0969

ST9	034462 035567 0   0   777737777737 0            777737777737 


*034462 CAME	0,035567
INITIAL
C(AC)=777737 777737 
C(E)=777737 777737 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034462 034462 0   0   312000035567 0            777737777737 
IT1	034462 0      0   0   312000035567 0            777737777737 
AT3	034462 0      0   0   000000035567 0            312000035567 
AT6	034462 035567 0   0   000000035567 0            312000035567 
FT0	034462 035567 0   0   777737777737 0            312000035567 
FT1A	034462 035567 0   0   777737777737 0            777737777737 
FT2	034462 035567 0   0   0            0            777737777737 
FT2RQ	034462 035567 0   0   777737777737 0            777737777737 
FT3	034462 035567 0   0   777737777737 0            777737777737 
FT9	034463 035567 0   0   777737777737 0            777737777737 
ET0	034464 035567 0   0   0            0            777737777737 
ST1A	034464 035567 0   0   0            0            777737777737 
ST9	034464 035567 0   0   0            0            777737777737 


*034464 JUMPA	0,034465
INITIAL
C(AC)=777737 777737 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034464 034464 0   0   324000034465 0            000000034465 
IT1	034464 0      0   0   324000034465 0            000000034465 
AT3	034464 0      0   0   000000034465 0            324000034465 
AT6	034464 034465 0   0   000000034465 0            324000034465 
FT1A	034464 034465 0   0   000000034465 0            000000034465 
FT2	034464 034465 0   0   0            0            000000034465 
FT2RQ	034464 034465 0   0   777737777737 0            000000034465 
FT3	034464 034465 0   0   777737777737 0            000000034465 
FT9	034465 034465 0   0   777737777737 0            000000034465 
ET0	034465 034465 0   0   777737777737 0            000000034465 
ST1A	034465 034465 0   0   777737777737 0            000000034465 
ST9	034465 034465 0   0   777737777737 0            000000034465 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 691
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0970

*034465 MOVS 	0,035570
INITIAL
C(AC)=777737 777737 
C(E)=777677 777677 
FINAL
C(AC)=777677 777677 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034465 034465 0   0   204000035570 0            777677777677 
IT1	034465 0      0   0   204000035570 0            777677777677 
AT3	034465 0      0   0   000000035570 0            204000035570 
AT6	034465 035570 0   0   000000035570 0            204000035570 
FT0	034465 035570 0   0   777677777677 0            204000035570 
FT1A	034465 035570 0   0   777677777677 0            777677777677 
FT9	034466 035570 0   0   777677777677 0            777677777677 
ET0	034466 035570 0   0   777677777677 0            777677777677 
ST1	034466 035570 0   0   777677777677 0            777677777677 
ST2	034466 035570 0   0   777677777677 0            777677777677 
ST9	034466 035570 0   0   777677777677 0            777677777677 


*034466 CAME	0,035570
INITIAL
C(AC)=777677 777677 
C(E)=777677 777677 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034466 034466 0   0   312000035570 0            777677777677 
IT1	034466 0      0   0   312000035570 0            777677777677 
AT3	034466 0      0   0   000000035570 0            312000035570 
AT6	034466 035570 0   0   000000035570 0            312000035570 
FT0	034466 035570 0   0   777677777677 0            312000035570 
FT1A	034466 035570 0   0   777677777677 0            777677777677 
FT2	034466 035570 0   0   0            0            777677777677 
FT2RQ	034466 035570 0   0   777677777677 0            777677777677 
FT3	034466 035570 0   0   777677777677 0            777677777677 
FT9	034467 035570 0   0   777677777677 0            777677777677 
ET0	034470 035570 0   0   0            0            777677777677 
ST1A	034470 035570 0   0   0            0            777677777677 
ST9	034470 035570 0   0   0            0            777677777677 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 692
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0971

*034470 JUMPA	0,034471
INITIAL
C(AC)=777677 777677 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034470 034470 0   0   324000034471 0            000000034471 
IT1	034470 0      0   0   324000034471 0            000000034471 
AT3	034470 0      0   0   000000034471 0            324000034471 
AT6	034470 034471 0   0   000000034471 0            324000034471 
FT1A	034470 034471 0   0   000000034471 0            000000034471 
FT2	034470 034471 0   0   0            0            000000034471 
FT2RQ	034470 034471 0   0   777677777677 0            000000034471 
FT3	034470 034471 0   0   777677777677 0            000000034471 
FT9	034471 034471 0   0   777677777677 0            000000034471 
ET0	034471 034471 0   0   777677777677 0            000000034471 
ST1A	034471 034471 0   0   777677777677 0            000000034471 
ST9	034471 034471 0   0   777677777677 0            000000034471 


*034471 MOVS 	0,035571
INITIAL
C(AC)=777677 777677 
C(E)=777577 777577 
FINAL
C(AC)=777577 777577 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034471 034471 0   0   204000035571 0            777577777577 
IT1	034471 0      0   0   204000035571 0            777577777577 
AT3	034471 0      0   0   000000035571 0            204000035571 
AT6	034471 035571 0   0   000000035571 0            204000035571 
FT0	034471 035571 0   0   777577777577 0            204000035571 
FT1A	034471 035571 0   0   777577777577 0            777577777577 
FT9	034472 035571 0   0   777577777577 0            777577777577 
ET0	034472 035571 0   0   777577777577 0            777577777577 
ST1	034472 035571 0   0   777577777577 0            777577777577 
ST2	034472 035571 0   0   777577777577 0            777577777577 
ST9	034472 035571 0   0   777577777577 0            777577777577 


*034472 CAME	0,035571
INITIAL
C(AC)=777577 777577 
C(E)=777577 777577 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034472 034472 0   0   312000035571 0            777577777577 
IT1	034472 0      0   0   312000035571 0            777577777577 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 693
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0972

AT3	034472 0      0   0   000000035571 0            312000035571 
AT6	034472 035571 0   0   000000035571 0            312000035571 
FT0	034472 035571 0   0   777577777577 0            312000035571 
FT1A	034472 035571 0   0   777577777577 0            777577777577 
FT2	034472 035571 0   0   0            0            777577777577 
FT2RQ	034472 035571 0   0   777577777577 0            777577777577 
FT3	034472 035571 0   0   777577777577 0            777577777577 
FT9	034473 035571 0   0   777577777577 0            777577777577 
ET0	034474 035571 0   0   0            0            777577777577 
ST1A	034474 035571 0   0   0            0            777577777577 
ST9	034474 035571 0   0   0            0            777577777577 


*034474 JUMPA	0,034475
INITIAL
C(AC)=777577 777577 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034474 034474 0   0   324000034475 0            000000034475 
IT1	034474 0      0   0   324000034475 0            000000034475 
AT3	034474 0      0   0   000000034475 0            324000034475 
AT6	034474 034475 0   0   000000034475 0            324000034475 
FT1A	034474 034475 0   0   000000034475 0            000000034475 
FT2	034474 034475 0   0   0            0            000000034475 
FT2RQ	034474 034475 0   0   777577777577 0            000000034475 
FT3	034474 034475 0   0   777577777577 0            000000034475 
FT9	034475 034475 0   0   777577777577 0            000000034475 
ET0	034475 034475 0   0   777577777577 0            000000034475 
ST1A	034475 034475 0   0   777577777577 0            000000034475 
ST9	034475 034475 0   0   777577777577 0            000000034475 


*034475 MOVS 	0,035572
INITIAL
C(AC)=777577 777577 
C(E)=777377 777377 
FINAL
C(AC)=777377 777377 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034475 034475 0   0   204000035572 0            777377777377 
IT1	034475 0      0   0   204000035572 0            777377777377 
AT3	034475 0      0   0   000000035572 0            204000035572 
AT6	034475 035572 0   0   000000035572 0            204000035572 
FT0	034475 035572 0   0   777377777377 0            204000035572 
FT1A	034475 035572 0   0   777377777377 0            777377777377 
FT9	034476 035572 0   0   777377777377 0            777377777377 
ET0	034476 035572 0   0   777377777377 0            777377777377 
ST1	034476 035572 0   0   777377777377 0            777377777377 
ST2	034476 035572 0   0   777377777377 0            777377777377 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 694
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0973

ST9	034476 035572 0   0   777377777377 0            777377777377 


*034476 CAME	0,035572
INITIAL
C(AC)=777377 777377 
C(E)=777377 777377 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034476 034476 0   0   312000035572 0            777377777377 
IT1	034476 0      0   0   312000035572 0            777377777377 
AT3	034476 0      0   0   000000035572 0            312000035572 
AT6	034476 035572 0   0   000000035572 0            312000035572 
FT0	034476 035572 0   0   777377777377 0            312000035572 
FT1A	034476 035572 0   0   777377777377 0            777377777377 
FT2	034476 035572 0   0   0            0            777377777377 
FT2RQ	034476 035572 0   0   777377777377 0            777377777377 
FT3	034476 035572 0   0   777377777377 0            777377777377 
FT9	034477 035572 0   0   777377777377 0            777377777377 
ET0	0      035572 0   0   0            0            777377777377 
ST1A	0      035572 0   0   0            0            777377777377 
ST9	0      035572 0   0   0            0            777377777377 


*034500 JUMPA	0,034501
INITIAL
C(AC)=777377 777377 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034501 0            000000034501 
IT1	0      0      0   0   324000034501 0            000000034501 
AT3	0      0      0   0   000000034501 0            324000034501 
AT6	0      034501 0   0   000000034501 0            324000034501 
FT1A	0      034501 0   0   000000034501 0            000000034501 
FT2	0      034501 0   0   0            0            000000034501 
FT2RQ	0      034501 0   0   777377777377 0            000000034501 
FT3	0      034501 0   0   777377777377 0            000000034501 
FT9	034501 034501 0   0   777377777377 0            000000034501 
ET0	034501 034501 0   0   777377777377 0            000000034501 
ST1A	034501 034501 0   0   777377777377 0            000000034501 
ST9	034501 034501 0   0   777377777377 0            000000034501 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 695
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0974

*034501 MOVS 	0,035573
INITIAL
C(AC)=777377 777377 
C(E)=776777 776777 
FINAL
C(AC)=776777 776777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034501 034501 0   0   204000035573 0            776777776777 
IT1	034501 0      0   0   204000035573 0            776777776777 
AT3	034501 0      0   0   000000035573 0            204000035573 
AT6	034501 035573 0   0   000000035573 0            204000035573 
FT0	034501 035573 0   0   776777776777 0            204000035573 
FT1A	034501 035573 0   0   776777776777 0            776777776777 
FT9	034502 035573 0   0   776777776777 0            776777776777 
ET0	034502 035573 0   0   776777776777 0            776777776777 
ST1	034502 035573 0   0   776777776777 0            776777776777 
ST2	034502 035573 0   0   776777776777 0            776777776777 
ST9	034502 035573 0   0   776777776777 0            776777776777 


*034502 CAME	0,035573
INITIAL
C(AC)=776777 776777 
C(E)=776777 776777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034502 034502 0   0   312000035573 0            776777776777 
IT1	034502 0      0   0   312000035573 0            776777776777 
AT3	034502 0      0   0   000000035573 0            312000035573 
AT6	034502 035573 0   0   000000035573 0            312000035573 
FT0	034502 035573 0   0   776777776777 0            312000035573 
FT1A	034502 035573 0   0   776777776777 0            776777776777 
FT2	034502 035573 0   0   0            0            776777776777 
FT2RQ	034502 035573 0   0   776777776777 0            776777776777 
FT3	034502 035573 0   0   776777776777 0            776777776777 
FT9	034503 035573 0   0   776777776777 0            776777776777 
ET0	034504 035573 0   0   0            0            776777776777 
ST1A	034504 035573 0   0   0            0            776777776777 
ST9	034504 035573 0   0   0            0            776777776777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 696
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0975

*034504 JUMPA	0,034505
INITIAL
C(AC)=776777 776777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034504 034504 0   0   324000034505 0            000000034505 
IT1	034504 0      0   0   324000034505 0            000000034505 
AT3	034504 0      0   0   000000034505 0            324000034505 
AT6	034504 034505 0   0   000000034505 0            324000034505 
FT1A	034504 034505 0   0   000000034505 0            000000034505 
FT2	034504 034505 0   0   0            0            000000034505 
FT2RQ	034504 034505 0   0   776777776777 0            000000034505 
FT3	034504 034505 0   0   776777776777 0            000000034505 
FT9	034505 034505 0   0   776777776777 0            000000034505 
ET0	034505 034505 0   0   776777776777 0            000000034505 
ST1A	034505 034505 0   0   776777776777 0            000000034505 
ST9	034505 034505 0   0   776777776777 0            000000034505 


*034505 MOVS 	0,035574
INITIAL
C(AC)=776777 776777 
C(E)=775777 775777 
FINAL
C(AC)=775777 775777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034505 034505 0   0   204000035574 0            775777775777 
IT1	034505 0      0   0   204000035574 0            775777775777 
AT3	034505 0      0   0   000000035574 0            204000035574 
AT6	034505 035574 0   0   000000035574 0            204000035574 
FT0	034505 035574 0   0   775777775777 0            204000035574 
FT1A	034505 035574 0   0   775777775777 0            775777775777 
FT9	034506 035574 0   0   775777775777 0            775777775777 
ET0	034506 035574 0   0   775777775777 0            775777775777 
ST1	034506 035574 0   0   775777775777 0            775777775777 
ST2	034506 035574 0   0   775777775777 0            775777775777 
ST9	034506 035574 0   0   775777775777 0            775777775777 


*034506 CAME	0,035574
INITIAL
C(AC)=775777 775777 
C(E)=775777 775777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034506 034506 0   0   312000035574 0            775777775777 
IT1	034506 0      0   0   312000035574 0            775777775777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 697
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0976

AT3	034506 0      0   0   000000035574 0            312000035574 
AT6	034506 035574 0   0   000000035574 0            312000035574 
FT0	034506 035574 0   0   775777775777 0            312000035574 
FT1A	034506 035574 0   0   775777775777 0            775777775777 
FT2	034506 035574 0   0   0            0            775777775777 
FT2RQ	034506 035574 0   0   775777775777 0            775777775777 
FT3	034506 035574 0   0   775777775777 0            775777775777 
FT9	034507 035574 0   0   775777775777 0            775777775777 
ET0	034510 035574 0   0   0            0            775777775777 
ST1A	034510 035574 0   0   0            0            775777775777 
ST9	034510 035574 0   0   0            0            775777775777 


*034510 JUMPA	0,034511
INITIAL
C(AC)=775777 775777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034510 034510 0   0   324000034511 0            000000034511 
IT1	034510 0      0   0   324000034511 0            000000034511 
AT3	034510 0      0   0   000000034511 0            324000034511 
AT6	034510 034511 0   0   000000034511 0            324000034511 
FT1A	034510 034511 0   0   000000034511 0            000000034511 
FT2	034510 034511 0   0   0            0            000000034511 
FT2RQ	034510 034511 0   0   775777775777 0            000000034511 
FT3	034510 034511 0   0   775777775777 0            000000034511 
FT9	034511 034511 0   0   775777775777 0            000000034511 
ET0	034511 034511 0   0   775777775777 0            000000034511 
ST1A	034511 034511 0   0   775777775777 0            000000034511 
ST9	034511 034511 0   0   775777775777 0            000000034511 


*034511 MOVS 	0,035575
INITIAL
C(AC)=775777 775777 
C(E)=773777 773777 
FINAL
C(AC)=773777 773777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034511 034511 0   0   204000035575 0            773777773777 
IT1	034511 0      0   0   204000035575 0            773777773777 
AT3	034511 0      0   0   000000035575 0            204000035575 
AT6	034511 035575 0   0   000000035575 0            204000035575 
FT0	034511 035575 0   0   773777773777 0            204000035575 
FT1A	034511 035575 0   0   773777773777 0            773777773777 
FT9	034512 035575 0   0   773777773777 0            773777773777 
ET0	034512 035575 0   0   773777773777 0            773777773777 
ST1	034512 035575 0   0   773777773777 0            773777773777 
ST2	034512 035575 0   0   773777773777 0            773777773777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 698
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0977

ST9	034512 035575 0   0   773777773777 0            773777773777 


*034512 CAME	0,035575
INITIAL
C(AC)=773777 773777 
C(E)=773777 773777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034512 034512 0   0   312000035575 0            773777773777 
IT1	034512 0      0   0   312000035575 0            773777773777 
AT3	034512 0      0   0   000000035575 0            312000035575 
AT6	034512 035575 0   0   000000035575 0            312000035575 
FT0	034512 035575 0   0   773777773777 0            312000035575 
FT1A	034512 035575 0   0   773777773777 0            773777773777 
FT2	034512 035575 0   0   0            0            773777773777 
FT2RQ	034512 035575 0   0   773777773777 0            773777773777 
FT3	034512 035575 0   0   773777773777 0            773777773777 
FT9	034513 035575 0   0   773777773777 0            773777773777 
ET0	034514 035575 0   0   0            0            773777773777 
ST1A	034514 035575 0   0   0            0            773777773777 
ST9	034514 035575 0   0   0            0            773777773777 


*034514 JUMPA	0,034515
INITIAL
C(AC)=773777 773777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034514 034514 0   0   324000034515 0            000000034515 
IT1	034514 0      0   0   324000034515 0            000000034515 
AT3	034514 0      0   0   000000034515 0            324000034515 
AT6	034514 034515 0   0   000000034515 0            324000034515 
FT1A	034514 034515 0   0   000000034515 0            000000034515 
FT2	034514 034515 0   0   0            0            000000034515 
FT2RQ	034514 034515 0   0   773777773777 0            000000034515 
FT3	034514 034515 0   0   773777773777 0            000000034515 
FT9	034515 034515 0   0   773777773777 0            000000034515 
ET0	034515 034515 0   0   773777773777 0            000000034515 
ST1A	034515 034515 0   0   773777773777 0            000000034515 
ST9	034515 034515 0   0   773777773777 0            000000034515 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 699
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0978

*034515 MOVS 	0,035576
INITIAL
C(AC)=773777 773777 
C(E)=767777 767777 
FINAL
C(AC)=767777 767777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034515 034515 0   0   204000035576 0            767777767777 
IT1	034515 0      0   0   204000035576 0            767777767777 
AT3	034515 0      0   0   000000035576 0            204000035576 
AT6	034515 035576 0   0   000000035576 0            204000035576 
FT0	034515 035576 0   0   767777767777 0            204000035576 
FT1A	034515 035576 0   0   767777767777 0            767777767777 
FT9	034516 035576 0   0   767777767777 0            767777767777 
ET0	034516 035576 0   0   767777767777 0            767777767777 
ST1	034516 035576 0   0   767777767777 0            767777767777 
ST2	034516 035576 0   0   767777767777 0            767777767777 
ST9	034516 035576 0   0   767777767777 0            767777767777 


*034516 CAME	0,035576
INITIAL
C(AC)=767777 767777 
C(E)=767777 767777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034516 034516 0   0   312000035576 0            767777767777 
IT1	034516 0      0   0   312000035576 0            767777767777 
AT3	034516 0      0   0   000000035576 0            312000035576 
AT6	034516 035576 0   0   000000035576 0            312000035576 
FT0	034516 035576 0   0   767777767777 0            312000035576 
FT1A	034516 035576 0   0   767777767777 0            767777767777 
FT2	034516 035576 0   0   0            0            767777767777 
FT2RQ	034516 035576 0   0   767777767777 0            767777767777 
FT3	034516 035576 0   0   767777767777 0            767777767777 
FT9	034517 035576 0   0   767777767777 0            767777767777 
ET0	034520 035576 0   0   0            0            767777767777 
ST1A	034520 035576 0   0   0            0            767777767777 
ST9	034520 035576 0   0   0            0            767777767777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 700
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0979

*034520 JUMPA	0,034521
INITIAL
C(AC)=767777 767777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034520 034520 0   0   324000034521 0            000000034521 
IT1	034520 0      0   0   324000034521 0            000000034521 
AT3	034520 0      0   0   000000034521 0            324000034521 
AT6	034520 034521 0   0   000000034521 0            324000034521 
FT1A	034520 034521 0   0   000000034521 0            000000034521 
FT2	034520 034521 0   0   0            0            000000034521 
FT2RQ	034520 034521 0   0   767777767777 0            000000034521 
FT3	034520 034521 0   0   767777767777 0            000000034521 
FT9	034521 034521 0   0   767777767777 0            000000034521 
ET0	034521 034521 0   0   767777767777 0            000000034521 
ST1A	034521 034521 0   0   767777767777 0            000000034521 
ST9	034521 034521 0   0   767777767777 0            000000034521 


*034521 MOVS 	0,035577
INITIAL
C(AC)=767777 767777 
C(E)=757777 757777 
FINAL
C(AC)=757777 757777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034521 034521 0   0   204000035577 0            757777757777 
IT1	034521 0      0   0   204000035577 0            757777757777 
AT3	034521 0      0   0   000000035577 0            204000035577 
AT6	034521 035577 0   0   000000035577 0            204000035577 
FT0	034521 035577 0   0   757777757777 0            204000035577 
FT1A	034521 035577 0   0   757777757777 0            757777757777 
FT9	034522 035577 0   0   757777757777 0            757777757777 
ET0	034522 035577 0   0   757777757777 0            757777757777 
ST1	034522 035577 0   0   757777757777 0            757777757777 
ST2	034522 035577 0   0   757777757777 0            757777757777 
ST9	034522 035577 0   0   757777757777 0            757777757777 


*034522 CAME	0,035577
INITIAL
C(AC)=757777 757777 
C(E)=757777 757777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034522 034522 0   0   312000035577 0            757777757777 
IT1	034522 0      0   0   312000035577 0            757777757777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 701
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0980

AT3	034522 0      0   0   000000035577 0            312000035577 
AT6	034522 035577 0   0   000000035577 0            312000035577 
FT0	034522 035577 0   0   757777757777 0            312000035577 
FT1A	034522 035577 0   0   757777757777 0            757777757777 
FT2	034522 035577 0   0   0            0            757777757777 
FT2RQ	034522 035577 0   0   757777757777 0            757777757777 
FT3	034522 035577 0   0   757777757777 0            757777757777 
FT9	034523 035577 0   0   757777757777 0            757777757777 
ET0	034524 035577 0   0   0            0            757777757777 
ST1A	034524 035577 0   0   0            0            757777757777 
ST9	034524 035577 0   0   0            0            757777757777 


*034524 JUMPA	0,034525
INITIAL
C(AC)=757777 757777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034524 034524 0   0   324000034525 0            000000034525 
IT1	034524 0      0   0   324000034525 0            000000034525 
AT3	034524 0      0   0   000000034525 0            324000034525 
AT6	034524 034525 0   0   000000034525 0            324000034525 
FT1A	034524 034525 0   0   000000034525 0            000000034525 
FT2	034524 034525 0   0   0            0            000000034525 
FT2RQ	034524 034525 0   0   757777757777 0            000000034525 
FT3	034524 034525 0   0   757777757777 0            000000034525 
FT9	034525 034525 0   0   757777757777 0            000000034525 
ET0	034525 034525 0   0   757777757777 0            000000034525 
ST1A	034525 034525 0   0   757777757777 0            000000034525 
ST9	034525 034525 0   0   757777757777 0            000000034525 


*034525 MOVS 	0,035600
INITIAL
C(AC)=757777 757777 
C(E)=737777 737777 
FINAL
C(AC)=737777 737777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034525 034525 0   0   204000035600 0            737777737777 
IT1	034525 0      0   0   204000035600 0            737777737777 
AT3	034525 0      0   0   000000035600 0            204000035600 
AT6	034525 0      0   0   000000035600 0            204000035600 
FT0	034525 0      0   0   737777737777 0            204000035600 
FT1A	034525 0      0   0   737777737777 0            737777737777 
FT9	034526 0      0   0   737777737777 0            737777737777 
ET0	034526 0      0   0   737777737777 0            737777737777 
ST1	034526 0      0   0   737777737777 0            737777737777 
ST2	034526 0      0   0   737777737777 0            737777737777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 702
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0981

ST9	034526 0      0   0   737777737777 0            737777737777 


*034526 CAME	0,035600
INITIAL
C(AC)=737777 737777 
C(E)=737777 737777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034526 034526 0   0   312000035600 0            737777737777 
IT1	034526 0      0   0   312000035600 0            737777737777 
AT3	034526 0      0   0   000000035600 0            312000035600 
AT6	034526 0      0   0   000000035600 0            312000035600 
FT0	034526 0      0   0   737777737777 0            312000035600 
FT1A	034526 0      0   0   737777737777 0            737777737777 
FT2	034526 0      0   0   0            0            737777737777 
FT2RQ	034526 0      0   0   737777737777 0            737777737777 
FT3	034526 0      0   0   737777737777 0            737777737777 
FT9	034527 0      0   0   737777737777 0            737777737777 
ET0	034530 0      0   0   0            0            737777737777 
ST1A	034530 0      0   0   0            0            737777737777 
ST9	034530 0      0   0   0            0            737777737777 


*034530 JUMPA	0,034531
INITIAL
C(AC)=737777 737777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034530 034530 0   0   324000034531 0            000000034531 
IT1	034530 0      0   0   324000034531 0            000000034531 
AT3	034530 0      0   0   000000034531 0            324000034531 
AT6	034530 034531 0   0   000000034531 0            324000034531 
FT1A	034530 034531 0   0   000000034531 0            000000034531 
FT2	034530 034531 0   0   0            0            000000034531 
FT2RQ	034530 034531 0   0   737777737777 0            000000034531 
FT3	034530 034531 0   0   737777737777 0            000000034531 
FT9	034531 034531 0   0   737777737777 0            000000034531 
ET0	034531 034531 0   0   737777737777 0            000000034531 
ST1A	034531 034531 0   0   737777737777 0            000000034531 
ST9	034531 034531 0   0   737777737777 0            000000034531 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 703
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0982

*034531 MOVS 	0,035601
INITIAL
C(AC)=737777 737777 
C(E)=677777 677777 
FINAL
C(AC)=677777 677777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034531 034531 0   0   204000035601 0            677777677777 
IT1	034531 0      0   0   204000035601 0            677777677777 
AT3	034531 0      0   0   000000035601 0            204000035601 
AT6	034531 035601 0   0   000000035601 0            204000035601 
FT0	034531 035601 0   0   677777677777 0            204000035601 
FT1A	034531 035601 0   0   677777677777 0            677777677777 
FT9	034532 035601 0   0   677777677777 0            677777677777 
ET0	034532 035601 0   0   677777677777 0            677777677777 
ST1	034532 035601 0   0   677777677777 0            677777677777 
ST2	034532 035601 0   0   677777677777 0            677777677777 
ST9	034532 035601 0   0   677777677777 0            677777677777 


*034532 CAME	0,035601
INITIAL
C(AC)=677777 677777 
C(E)=677777 677777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034532 034532 0   0   312000035601 0            677777677777 
IT1	034532 0      0   0   312000035601 0            677777677777 
AT3	034532 0      0   0   000000035601 0            312000035601 
AT6	034532 035601 0   0   000000035601 0            312000035601 
FT0	034532 035601 0   0   677777677777 0            312000035601 
FT1A	034532 035601 0   0   677777677777 0            677777677777 
FT2	034532 035601 0   0   0            0            677777677777 
FT2RQ	034532 035601 0   0   677777677777 0            677777677777 
FT3	034532 035601 0   0   677777677777 0            677777677777 
FT9	034533 035601 0   0   677777677777 0            677777677777 
ET0	034534 035601 0   0   0            0            677777677777 
ST1A	034534 035601 0   0   0            0            677777677777 
ST9	034534 035601 0   0   0            0            677777677777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 704
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0983

*034534 JUMPA	0,034535
INITIAL
C(AC)=677777 677777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034534 034534 0   0   324000034535 0            000000034535 
IT1	034534 0      0   0   324000034535 0            000000034535 
AT3	034534 0      0   0   000000034535 0            324000034535 
AT6	034534 034535 0   0   000000034535 0            324000034535 
FT1A	034534 034535 0   0   000000034535 0            000000034535 
FT2	034534 034535 0   0   0            0            000000034535 
FT2RQ	034534 034535 0   0   677777677777 0            000000034535 
FT3	034534 034535 0   0   677777677777 0            000000034535 
FT9	034535 034535 0   0   677777677777 0            000000034535 
ET0	034535 034535 0   0   677777677777 0            000000034535 
ST1A	034535 034535 0   0   677777677777 0            000000034535 
ST9	034535 034535 0   0   677777677777 0            000000034535 


*034535 MOVS 	0,035602
INITIAL
C(AC)=677777 677777 
C(E)=577777 577777 
FINAL
C(AC)=577777 577777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034535 034535 0   0   204000035602 0            577777577777 
IT1	034535 0      0   0   204000035602 0            577777577777 
AT3	034535 0      0   0   000000035602 0            204000035602 
AT6	034535 035602 0   0   000000035602 0            204000035602 
FT0	034535 035602 0   0   577777577777 0            204000035602 
FT1A	034535 035602 0   0   577777577777 0            577777577777 
FT9	034536 035602 0   0   577777577777 0            577777577777 
ET0	034536 035602 0   0   577777577777 0            577777577777 
ST1	034536 035602 0   0   577777577777 0            577777577777 
ST2	034536 035602 0   0   577777577777 0            577777577777 
ST9	034536 035602 0   0   577777577777 0            577777577777 


*034536 CAME	0,035602
INITIAL
C(AC)=577777 577777 
C(E)=577777 577777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034536 034536 0   0   312000035602 0            577777577777 
IT1	034536 0      0   0   312000035602 0            577777577777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 705
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0984

AT3	034536 0      0   0   000000035602 0            312000035602 
AT6	034536 035602 0   0   000000035602 0            312000035602 
FT0	034536 035602 0   0   577777577777 0            312000035602 
FT1A	034536 035602 0   0   577777577777 0            577777577777 
FT2	034536 035602 0   0   0            0            577777577777 
FT2RQ	034536 035602 0   0   577777577777 0            577777577777 
FT3	034536 035602 0   0   577777577777 0            577777577777 
FT9	034537 035602 0   0   577777577777 0            577777577777 
ET0	034540 035602 0   0   0            0            577777577777 
ST1A	034540 035602 0   0   0            0            577777577777 
ST9	034540 035602 0   0   0            0            577777577777 


*034540 JUMPA	0,034541
INITIAL
C(AC)=577777 577777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034540 034540 0   0   324000034541 0            000000034541 
IT1	034540 0      0   0   324000034541 0            000000034541 
AT3	034540 0      0   0   000000034541 0            324000034541 
AT6	034540 034541 0   0   000000034541 0            324000034541 
FT1A	034540 034541 0   0   000000034541 0            000000034541 
FT2	034540 034541 0   0   0            0            000000034541 
FT2RQ	034540 034541 0   0   577777577777 0            000000034541 
FT3	034540 034541 0   0   577777577777 0            000000034541 
FT9	034541 034541 0   0   577777577777 0            000000034541 
ET0	034541 034541 0   0   577777577777 0            000000034541 
ST1A	034541 034541 0   0   577777577777 0            000000034541 
ST9	034541 034541 0   0   577777577777 0            000000034541 


*034541 MOVS 	0,035603
INITIAL
C(AC)=577777 577777 
C(E)=377777 377777 
FINAL
C(AC)=377777 377777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034541 034541 0   0   204000035603 0            377777377777 
IT1	034541 0      0   0   204000035603 0            377777377777 
AT3	034541 0      0   0   000000035603 0            204000035603 
AT6	034541 035603 0   0   000000035603 0            204000035603 
FT0	034541 035603 0   0   377777377777 0            204000035603 
FT1A	034541 035603 0   0   377777377777 0            377777377777 
FT9	034542 035603 0   0   377777377777 0            377777377777 
ET0	034542 035603 0   0   377777377777 0            377777377777 
ST1	034542 035603 0   0   377777377777 0            377777377777 
ST2	034542 035603 0   0   377777377777 0            377777377777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 706
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0985

ST9	034542 035603 0   0   377777377777 0            377777377777 


*034542 CAME	0,035603
INITIAL
C(AC)=377777 377777 
C(E)=377777 377777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034542 034542 0   0   312000035603 0            377777377777 
IT1	034542 0      0   0   312000035603 0            377777377777 
AT3	034542 0      0   0   000000035603 0            312000035603 
AT6	034542 035603 0   0   000000035603 0            312000035603 
FT0	034542 035603 0   0   377777377777 0            312000035603 
FT1A	034542 035603 0   0   377777377777 0            377777377777 
FT2	034542 035603 0   0   0            0            377777377777 
FT2RQ	034542 035603 0   0   377777377777 0            377777377777 
FT3	034542 035603 0   0   377777377777 0            377777377777 
FT9	034543 035603 0   0   377777377777 0            377777377777 
ET0	034544 035603 0   0   0            0            377777377777 
ST1A	034544 035603 0   0   0            0            377777377777 
ST9	034544 035603 0   0   0            0            377777377777 


*034544 JUMPA	0,034545
INITIAL
C(AC)=377777 377777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034544 034544 0   0   324000034545 0            000000034545 
IT1	034544 0      0   0   324000034545 0            000000034545 
AT3	034544 0      0   0   000000034545 0            324000034545 
AT6	034544 034545 0   0   000000034545 0            324000034545 
FT1A	034544 034545 0   0   000000034545 0            000000034545 
FT2	034544 034545 0   0   0            0            000000034545 
FT2RQ	034544 034545 0   0   377777377777 0            000000034545 
FT3	034544 034545 0   0   377777377777 0            000000034545 
FT9	034545 034545 0   0   377777377777 0            000000034545 
ET0	034545 034545 0   0   377777377777 0            000000034545 
ST1A	034545 034545 0   0   377777377777 0            000000034545 
ST9	034545 034545 0   0   377777377777 0            000000034545 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 707
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0986

*034545 MOVS 	0,035604
INITIAL
C(AC)=377777 377777 
C(E)=000001 777776 
FINAL
C(AC)=777776 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034545 034545 0   0   204000035604 0            000001777776 
IT1	034545 0      0   0   204000035604 0            000001777776 
AT3	034545 0      0   0   000000035604 0            204000035604 
AT6	034545 035604 0   0   000000035604 0            204000035604 
FT0	034545 035604 0   0   000001777776 0            204000035604 
FT1A	034545 035604 0   0   000001777776 0            000001777776 
FT9	034546 035604 0   0   000001777776 0            000001777776 
ET0	034546 035604 0   0   777776000001 0            000001777776 
ST1	034546 035604 0   0   777776000001 0            000001777776 
ST2	034546 035604 0   0   777776000001 0            000001777776 
ST9	034546 035604 0   0   777776000001 0            000001777776 


*034546 CAME	0,035605
INITIAL
C(AC)=777776 000001 
C(E)=777776 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034546 034546 0   0   312000035605 0            777776000001 
IT1	034546 0      0   0   312000035605 0            777776000001 
AT3	034546 0      0   0   000000035605 0            312000035605 
AT6	034546 035605 0   0   000000035605 0            312000035605 
FT0	034546 035605 0   0   777776000001 0            312000035605 
FT1A	034546 035605 0   0   777776000001 0            777776000001 
FT2	034546 035605 0   0   0            0            777776000001 
FT2RQ	034546 035605 0   0   777776000001 0            777776000001 
FT3	034546 035605 0   0   777776000001 0            777776000001 
FT9	034547 035605 0   0   777776000001 0            777776000001 
ET0	034550 035605 0   0   0            0            777776000001 
ST1A	034550 035605 0   0   0            0            777776000001 
ST9	034550 035605 0   0   0            0            777776000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 708
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0987

*034550 JUMPA	0,034551
INITIAL
C(AC)=777776 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034550 034550 0   0   324000034551 0            000000034551 
IT1	034550 0      0   0   324000034551 0            000000034551 
AT3	034550 0      0   0   000000034551 0            324000034551 
AT6	034550 034551 0   0   000000034551 0            324000034551 
FT1A	034550 034551 0   0   000000034551 0            000000034551 
FT2	034550 034551 0   0   0            0            000000034551 
FT2RQ	034550 034551 0   0   777776000001 0            000000034551 
FT3	034550 034551 0   0   777776000001 0            000000034551 
FT9	034551 034551 0   0   777776000001 0            000000034551 
ET0	034551 034551 0   0   777776000001 0            000000034551 
ST1A	034551 034551 0   0   777776000001 0            000000034551 
ST9	034551 034551 0   0   777776000001 0            000000034551 


*034551 MOVS 	0,035606
INITIAL
C(AC)=777776 000001 
C(E)=000002 777775 
FINAL
C(AC)=777775 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034551 034551 0   0   204000035606 0            000002777775 
IT1	034551 0      0   0   204000035606 0            000002777775 
AT3	034551 0      0   0   000000035606 0            204000035606 
AT6	034551 035606 0   0   000000035606 0            204000035606 
FT0	034551 035606 0   0   000002777775 0            204000035606 
FT1A	034551 035606 0   0   000002777775 0            000002777775 
FT9	034552 035606 0   0   000002777775 0            000002777775 
ET0	034552 035606 0   0   777775000002 0            000002777775 
ST1	034552 035606 0   0   777775000002 0            000002777775 
ST2	034552 035606 0   0   777775000002 0            000002777775 
ST9	034552 035606 0   0   777775000002 0            000002777775 


*034552 CAME	0,035607
INITIAL
C(AC)=777775 000002 
C(E)=777775 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034552 034552 0   0   312000035607 0            777775000002 
IT1	034552 0      0   0   312000035607 0            777775000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 709
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0988

AT3	034552 0      0   0   000000035607 0            312000035607 
AT6	034552 035607 0   0   000000035607 0            312000035607 
FT0	034552 035607 0   0   777775000002 0            312000035607 
FT1A	034552 035607 0   0   777775000002 0            777775000002 
FT2	034552 035607 0   0   0            0            777775000002 
FT2RQ	034552 035607 0   0   777775000002 0            777775000002 
FT3	034552 035607 0   0   777775000002 0            777775000002 
FT9	034553 035607 0   0   777775000002 0            777775000002 
ET0	034554 035607 0   0   0            0            777775000002 
ST1A	034554 035607 0   0   0            0            777775000002 
ST9	034554 035607 0   0   0            0            777775000002 


*034554 JUMPA	0,034555
INITIAL
C(AC)=777775 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034554 034554 0   0   324000034555 0            000000034555 
IT1	034554 0      0   0   324000034555 0            000000034555 
AT3	034554 0      0   0   000000034555 0            324000034555 
AT6	034554 034555 0   0   000000034555 0            324000034555 
FT1A	034554 034555 0   0   000000034555 0            000000034555 
FT2	034554 034555 0   0   0            0            000000034555 
FT2RQ	034554 034555 0   0   777775000002 0            000000034555 
FT3	034554 034555 0   0   777775000002 0            000000034555 
FT9	034555 034555 0   0   777775000002 0            000000034555 
ET0	034555 034555 0   0   777775000002 0            000000034555 
ST1A	034555 034555 0   0   777775000002 0            000000034555 
ST9	034555 034555 0   0   777775000002 0            000000034555 


*034555 MOVS 	0,035610
INITIAL
C(AC)=777775 000002 
C(E)=000004 777773 
FINAL
C(AC)=777773 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034555 034555 0   0   204000035610 0            000004777773 
IT1	034555 0      0   0   204000035610 0            000004777773 
AT3	034555 0      0   0   000000035610 0            204000035610 
AT6	034555 035610 0   0   000000035610 0            204000035610 
FT0	034555 035610 0   0   000004777773 0            204000035610 
FT1A	034555 035610 0   0   000004777773 0            000004777773 
FT9	034556 035610 0   0   000004777773 0            000004777773 
ET0	034556 035610 0   0   777773000004 0            000004777773 
ST1	034556 035610 0   0   777773000004 0            000004777773 
ST2	034556 035610 0   0   777773000004 0            000004777773 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 710
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0989

ST9	034556 035610 0   0   777773000004 0            000004777773 


*034556 CAME	0,035611
INITIAL
C(AC)=777773 000004 
C(E)=777773 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034556 034556 0   0   312000035611 0            777773000004 
IT1	034556 0      0   0   312000035611 0            777773000004 
AT3	034556 0      0   0   000000035611 0            312000035611 
AT6	034556 035611 0   0   000000035611 0            312000035611 
FT0	034556 035611 0   0   777773000004 0            312000035611 
FT1A	034556 035611 0   0   777773000004 0            777773000004 
FT2	034556 035611 0   0   0            0            777773000004 
FT2RQ	034556 035611 0   0   777773000004 0            777773000004 
FT3	034556 035611 0   0   777773000004 0            777773000004 
FT9	034557 035611 0   0   777773000004 0            777773000004 
ET0	034560 035611 0   0   0            0            777773000004 
ST1A	034560 035611 0   0   0            0            777773000004 
ST9	034560 035611 0   0   0            0            777773000004 


*034560 JUMPA	0,034561
INITIAL
C(AC)=777773 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034560 034560 0   0   324000034561 0            000000034561 
IT1	034560 0      0   0   324000034561 0            000000034561 
AT3	034560 0      0   0   000000034561 0            324000034561 
AT6	034560 034561 0   0   000000034561 0            324000034561 
FT1A	034560 034561 0   0   000000034561 0            000000034561 
FT2	034560 034561 0   0   0            0            000000034561 
FT2RQ	034560 034561 0   0   777773000004 0            000000034561 
FT3	034560 034561 0   0   777773000004 0            000000034561 
FT9	034561 034561 0   0   777773000004 0            000000034561 
ET0	034561 034561 0   0   777773000004 0            000000034561 
ST1A	034561 034561 0   0   777773000004 0            000000034561 
ST9	034561 034561 0   0   777773000004 0            000000034561 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 711
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0990

*034561 MOVS 	0,035612
INITIAL
C(AC)=777773 000004 
C(E)=000010 777767 
FINAL
C(AC)=777767 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034561 034561 0   0   204000035612 0            000010777767 
IT1	034561 0      0   0   204000035612 0            000010777767 
AT3	034561 0      0   0   000000035612 0            204000035612 
AT6	034561 035612 0   0   000000035612 0            204000035612 
FT0	034561 035612 0   0   000010777767 0            204000035612 
FT1A	034561 035612 0   0   000010777767 0            000010777767 
FT9	034562 035612 0   0   000010777767 0            000010777767 
ET0	034562 035612 0   0   777767000010 0            000010777767 
ST1	034562 035612 0   0   777767000010 0            000010777767 
ST2	034562 035612 0   0   777767000010 0            000010777767 
ST9	034562 035612 0   0   777767000010 0            000010777767 


*034562 CAME	0,035613
INITIAL
C(AC)=777767 000010 
C(E)=777767 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034562 034562 0   0   312000035613 0            777767000010 
IT1	034562 0      0   0   312000035613 0            777767000010 
AT3	034562 0      0   0   000000035613 0            312000035613 
AT6	034562 035613 0   0   000000035613 0            312000035613 
FT0	034562 035613 0   0   777767000010 0            312000035613 
FT1A	034562 035613 0   0   777767000010 0            777767000010 
FT2	034562 035613 0   0   0            0            777767000010 
FT2RQ	034562 035613 0   0   777767000010 0            777767000010 
FT3	034562 035613 0   0   777767000010 0            777767000010 
FT9	034563 035613 0   0   777767000010 0            777767000010 
ET0	034564 035613 0   0   0            0            777767000010 
ST1A	034564 035613 0   0   0            0            777767000010 
ST9	034564 035613 0   0   0            0            777767000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 712
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0991

*034564 JUMPA	0,034565
INITIAL
C(AC)=777767 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034564 034564 0   0   324000034565 0            000000034565 
IT1	034564 0      0   0   324000034565 0            000000034565 
AT3	034564 0      0   0   000000034565 0            324000034565 
AT6	034564 034565 0   0   000000034565 0            324000034565 
FT1A	034564 034565 0   0   000000034565 0            000000034565 
FT2	034564 034565 0   0   0            0            000000034565 
FT2RQ	034564 034565 0   0   777767000010 0            000000034565 
FT3	034564 034565 0   0   777767000010 0            000000034565 
FT9	034565 034565 0   0   777767000010 0            000000034565 
ET0	034565 034565 0   0   777767000010 0            000000034565 
ST1A	034565 034565 0   0   777767000010 0            000000034565 
ST9	034565 034565 0   0   777767000010 0            000000034565 


*034565 MOVS 	0,035614
INITIAL
C(AC)=777767 000010 
C(E)=000020 777757 
FINAL
C(AC)=777757 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034565 034565 0   0   204000035614 0            000020777757 
IT1	034565 0      0   0   204000035614 0            000020777757 
AT3	034565 0      0   0   000000035614 0            204000035614 
AT6	034565 035614 0   0   000000035614 0            204000035614 
FT0	034565 035614 0   0   000020777757 0            204000035614 
FT1A	034565 035614 0   0   000020777757 0            000020777757 
FT9	034566 035614 0   0   000020777757 0            000020777757 
ET0	034566 035614 0   0   777757000020 0            000020777757 
ST1	034566 035614 0   0   777757000020 0            000020777757 
ST2	034566 035614 0   0   777757000020 0            000020777757 
ST9	034566 035614 0   0   777757000020 0            000020777757 


*034566 CAME	0,035615
INITIAL
C(AC)=777757 000020 
C(E)=777757 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034566 034566 0   0   312000035615 0            777757000020 
IT1	034566 0      0   0   312000035615 0            777757000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 713
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0992

AT3	034566 0      0   0   000000035615 0            312000035615 
AT6	034566 035615 0   0   000000035615 0            312000035615 
FT0	034566 035615 0   0   777757000020 0            312000035615 
FT1A	034566 035615 0   0   777757000020 0            777757000020 
FT2	034566 035615 0   0   0            0            777757000020 
FT2RQ	034566 035615 0   0   777757000020 0            777757000020 
FT3	034566 035615 0   0   777757000020 0            777757000020 
FT9	034567 035615 0   0   777757000020 0            777757000020 
ET0	034570 035615 0   0   0            0            777757000020 
ST1A	034570 035615 0   0   0            0            777757000020 
ST9	034570 035615 0   0   0            0            777757000020 


*034570 JUMPA	0,034571
INITIAL
C(AC)=777757 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034570 034570 0   0   324000034571 0            000000034571 
IT1	034570 0      0   0   324000034571 0            000000034571 
AT3	034570 0      0   0   000000034571 0            324000034571 
AT6	034570 034571 0   0   000000034571 0            324000034571 
FT1A	034570 034571 0   0   000000034571 0            000000034571 
FT2	034570 034571 0   0   0            0            000000034571 
FT2RQ	034570 034571 0   0   777757000020 0            000000034571 
FT3	034570 034571 0   0   777757000020 0            000000034571 
FT9	034571 034571 0   0   777757000020 0            000000034571 
ET0	034571 034571 0   0   777757000020 0            000000034571 
ST1A	034571 034571 0   0   777757000020 0            000000034571 
ST9	034571 034571 0   0   777757000020 0            000000034571 


*034571 MOVS 	0,035616
INITIAL
C(AC)=777757 000020 
C(E)=000040 777737 
FINAL
C(AC)=777737 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034571 034571 0   0   204000035616 0            000040777737 
IT1	034571 0      0   0   204000035616 0            000040777737 
AT3	034571 0      0   0   000000035616 0            204000035616 
AT6	034571 035616 0   0   000000035616 0            204000035616 
FT0	034571 035616 0   0   000040777737 0            204000035616 
FT1A	034571 035616 0   0   000040777737 0            000040777737 
FT9	034572 035616 0   0   000040777737 0            000040777737 
ET0	034572 035616 0   0   777737000040 0            000040777737 
ST1	034572 035616 0   0   777737000040 0            000040777737 
ST2	034572 035616 0   0   777737000040 0            000040777737 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 714
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0993

ST9	034572 035616 0   0   777737000040 0            000040777737 


*034572 CAME	0,035617
INITIAL
C(AC)=777737 000040 
C(E)=777737 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034572 034572 0   0   312000035617 0            777737000040 
IT1	034572 0      0   0   312000035617 0            777737000040 
AT3	034572 0      0   0   000000035617 0            312000035617 
AT6	034572 035617 0   0   000000035617 0            312000035617 
FT0	034572 035617 0   0   777737000040 0            312000035617 
FT1A	034572 035617 0   0   777737000040 0            777737000040 
FT2	034572 035617 0   0   0            0            777737000040 
FT2RQ	034572 035617 0   0   777737000040 0            777737000040 
FT3	034572 035617 0   0   777737000040 0            777737000040 
FT9	034573 035617 0   0   777737000040 0            777737000040 
ET0	034574 035617 0   0   0            0            777737000040 
ST1A	034574 035617 0   0   0            0            777737000040 
ST9	034574 035617 0   0   0            0            777737000040 


*034574 JUMPA	0,034575
INITIAL
C(AC)=777737 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034574 034574 0   0   324000034575 0            000000034575 
IT1	034574 0      0   0   324000034575 0            000000034575 
AT3	034574 0      0   0   000000034575 0            324000034575 
AT6	034574 034575 0   0   000000034575 0            324000034575 
FT1A	034574 034575 0   0   000000034575 0            000000034575 
FT2	034574 034575 0   0   0            0            000000034575 
FT2RQ	034574 034575 0   0   777737000040 0            000000034575 
FT3	034574 034575 0   0   777737000040 0            000000034575 
FT9	034575 034575 0   0   777737000040 0            000000034575 
ET0	034575 034575 0   0   777737000040 0            000000034575 
ST1A	034575 034575 0   0   777737000040 0            000000034575 
ST9	034575 034575 0   0   777737000040 0            000000034575 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 715
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0994

*034575 MOVS 	0,035620
INITIAL
C(AC)=777737 000040 
C(E)=000100 777677 
FINAL
C(AC)=777677 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034575 034575 0   0   204000035620 0            000100777677 
IT1	034575 0      0   0   204000035620 0            000100777677 
AT3	034575 0      0   0   000000035620 0            204000035620 
AT6	034575 035620 0   0   000000035620 0            204000035620 
FT0	034575 035620 0   0   000100777677 0            204000035620 
FT1A	034575 035620 0   0   000100777677 0            000100777677 
FT9	034576 035620 0   0   000100777677 0            000100777677 
ET0	034576 035620 0   0   777677000100 0            000100777677 
ST1	034576 035620 0   0   777677000100 0            000100777677 
ST2	034576 035620 0   0   777677000100 0            000100777677 
ST9	034576 035620 0   0   777677000100 0            000100777677 


*034576 CAME	0,035621
INITIAL
C(AC)=777677 000100 
C(E)=777677 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034576 034576 0   0   312000035621 0            777677000100 
IT1	034576 0      0   0   312000035621 0            777677000100 
AT3	034576 0      0   0   000000035621 0            312000035621 
AT6	034576 035621 0   0   000000035621 0            312000035621 
FT0	034576 035621 0   0   777677000100 0            312000035621 
FT1A	034576 035621 0   0   777677000100 0            777677000100 
FT2	034576 035621 0   0   0            0            777677000100 
FT2RQ	034576 035621 0   0   777677000100 0            777677000100 
FT3	034576 035621 0   0   777677000100 0            777677000100 
FT9	034577 035621 0   0   777677000100 0            777677000100 
ET0	0      035621 0   0   0            0            777677000100 
ST1A	0      035621 0   0   0            0            777677000100 
ST9	0      035621 0   0   0            0            777677000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 716
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0995

*034600 JUMPA	0,034601
INITIAL
C(AC)=777677 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034601 0            000000034601 
IT1	0      0      0   0   324000034601 0            000000034601 
AT3	0      0      0   0   000000034601 0            324000034601 
AT6	0      034601 0   0   000000034601 0            324000034601 
FT1A	0      034601 0   0   000000034601 0            000000034601 
FT2	0      034601 0   0   0            0            000000034601 
FT2RQ	0      034601 0   0   777677000100 0            000000034601 
FT3	0      034601 0   0   777677000100 0            000000034601 
FT9	034601 034601 0   0   777677000100 0            000000034601 
ET0	034601 034601 0   0   777677000100 0            000000034601 
ST1A	034601 034601 0   0   777677000100 0            000000034601 
ST9	034601 034601 0   0   777677000100 0            000000034601 


*034601 MOVS 	0,035622
INITIAL
C(AC)=777677 000100 
C(E)=000200 777577 
FINAL
C(AC)=777577 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034601 034601 0   0   204000035622 0            000200777577 
IT1	034601 0      0   0   204000035622 0            000200777577 
AT3	034601 0      0   0   000000035622 0            204000035622 
AT6	034601 035622 0   0   000000035622 0            204000035622 
FT0	034601 035622 0   0   000200777577 0            204000035622 
FT1A	034601 035622 0   0   000200777577 0            000200777577 
FT9	034602 035622 0   0   000200777577 0            000200777577 
ET0	034602 035622 0   0   777577000200 0            000200777577 
ST1	034602 035622 0   0   777577000200 0            000200777577 
ST2	034602 035622 0   0   777577000200 0            000200777577 
ST9	034602 035622 0   0   777577000200 0            000200777577 


*034602 CAME	0,035623
INITIAL
C(AC)=777577 000200 
C(E)=777577 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034602 034602 0   0   312000035623 0            777577000200 
IT1	034602 0      0   0   312000035623 0            777577000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 717
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0996

AT3	034602 0      0   0   000000035623 0            312000035623 
AT6	034602 035623 0   0   000000035623 0            312000035623 
FT0	034602 035623 0   0   777577000200 0            312000035623 
FT1A	034602 035623 0   0   777577000200 0            777577000200 
FT2	034602 035623 0   0   0            0            777577000200 
FT2RQ	034602 035623 0   0   777577000200 0            777577000200 
FT3	034602 035623 0   0   777577000200 0            777577000200 
FT9	034603 035623 0   0   777577000200 0            777577000200 
ET0	034604 035623 0   0   0            0            777577000200 
ST1A	034604 035623 0   0   0            0            777577000200 
ST9	034604 035623 0   0   0            0            777577000200 


*034604 JUMPA	0,034605
INITIAL
C(AC)=777577 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034604 034604 0   0   324000034605 0            000000034605 
IT1	034604 0      0   0   324000034605 0            000000034605 
AT3	034604 0      0   0   000000034605 0            324000034605 
AT6	034604 034605 0   0   000000034605 0            324000034605 
FT1A	034604 034605 0   0   000000034605 0            000000034605 
FT2	034604 034605 0   0   0            0            000000034605 
FT2RQ	034604 034605 0   0   777577000200 0            000000034605 
FT3	034604 034605 0   0   777577000200 0            000000034605 
FT9	034605 034605 0   0   777577000200 0            000000034605 
ET0	034605 034605 0   0   777577000200 0            000000034605 
ST1A	034605 034605 0   0   777577000200 0            000000034605 
ST9	034605 034605 0   0   777577000200 0            000000034605 


*034605 MOVS 	0,035624
INITIAL
C(AC)=777577 000200 
C(E)=000400 777377 
FINAL
C(AC)=777377 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034605 034605 0   0   204000035624 0            000400777377 
IT1	034605 0      0   0   204000035624 0            000400777377 
AT3	034605 0      0   0   000000035624 0            204000035624 
AT6	034605 035624 0   0   000000035624 0            204000035624 
FT0	034605 035624 0   0   000400777377 0            204000035624 
FT1A	034605 035624 0   0   000400777377 0            000400777377 
FT9	034606 035624 0   0   000400777377 0            000400777377 
ET0	034606 035624 0   0   777377000400 0            000400777377 
ST1	034606 035624 0   0   777377000400 0            000400777377 
ST2	034606 035624 0   0   777377000400 0            000400777377 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 718
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0997

ST9	034606 035624 0   0   777377000400 0            000400777377 


*034606 CAME	0,035625
INITIAL
C(AC)=777377 000400 
C(E)=777377 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034606 034606 0   0   312000035625 0            777377000400 
IT1	034606 0      0   0   312000035625 0            777377000400 
AT3	034606 0      0   0   000000035625 0            312000035625 
AT6	034606 035625 0   0   000000035625 0            312000035625 
FT0	034606 035625 0   0   777377000400 0            312000035625 
FT1A	034606 035625 0   0   777377000400 0            777377000400 
FT2	034606 035625 0   0   0            0            777377000400 
FT2RQ	034606 035625 0   0   777377000400 0            777377000400 
FT3	034606 035625 0   0   777377000400 0            777377000400 
FT9	034607 035625 0   0   777377000400 0            777377000400 
ET0	034610 035625 0   0   0            0            777377000400 
ST1A	034610 035625 0   0   0            0            777377000400 
ST9	034610 035625 0   0   0            0            777377000400 


*034610 JUMPA	0,034611
INITIAL
C(AC)=777377 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034610 034610 0   0   324000034611 0            000000034611 
IT1	034610 0      0   0   324000034611 0            000000034611 
AT3	034610 0      0   0   000000034611 0            324000034611 
AT6	034610 034611 0   0   000000034611 0            324000034611 
FT1A	034610 034611 0   0   000000034611 0            000000034611 
FT2	034610 034611 0   0   0            0            000000034611 
FT2RQ	034610 034611 0   0   777377000400 0            000000034611 
FT3	034610 034611 0   0   777377000400 0            000000034611 
FT9	034611 034611 0   0   777377000400 0            000000034611 
ET0	034611 034611 0   0   777377000400 0            000000034611 
ST1A	034611 034611 0   0   777377000400 0            000000034611 
ST9	034611 034611 0   0   777377000400 0            000000034611 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 719
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0998

*034611 MOVS 	0,035626
INITIAL
C(AC)=777377 000400 
C(E)=001000 776777 
FINAL
C(AC)=776777 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034611 034611 0   0   204000035626 0            001000776777 
IT1	034611 0      0   0   204000035626 0            001000776777 
AT3	034611 0      0   0   000000035626 0            204000035626 
AT6	034611 035626 0   0   000000035626 0            204000035626 
FT0	034611 035626 0   0   001000776777 0            204000035626 
FT1A	034611 035626 0   0   001000776777 0            001000776777 
FT9	034612 035626 0   0   001000776777 0            001000776777 
ET0	034612 035626 0   0   776777001000 0            001000776777 
ST1	034612 035626 0   0   776777001000 0            001000776777 
ST2	034612 035626 0   0   776777001000 0            001000776777 
ST9	034612 035626 0   0   776777001000 0            001000776777 


*034612 CAME	0,035627
INITIAL
C(AC)=776777 001000 
C(E)=776777 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034612 034612 0   0   312000035627 0            776777001000 
IT1	034612 0      0   0   312000035627 0            776777001000 
AT3	034612 0      0   0   000000035627 0            312000035627 
AT6	034612 035627 0   0   000000035627 0            312000035627 
FT0	034612 035627 0   0   776777001000 0            312000035627 
FT1A	034612 035627 0   0   776777001000 0            776777001000 
FT2	034612 035627 0   0   0            0            776777001000 
FT2RQ	034612 035627 0   0   776777001000 0            776777001000 
FT3	034612 035627 0   0   776777001000 0            776777001000 
FT9	034613 035627 0   0   776777001000 0            776777001000 
ET0	034614 035627 0   0   0            0            776777001000 
ST1A	034614 035627 0   0   0            0            776777001000 
ST9	034614 035627 0   0   0            0            776777001000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 720
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0999

*034614 JUMPA	0,034615
INITIAL
C(AC)=776777 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034614 034614 0   0   324000034615 0            000000034615 
IT1	034614 0      0   0   324000034615 0            000000034615 
AT3	034614 0      0   0   000000034615 0            324000034615 
AT6	034614 034615 0   0   000000034615 0            324000034615 
FT1A	034614 034615 0   0   000000034615 0            000000034615 
FT2	034614 034615 0   0   0            0            000000034615 
FT2RQ	034614 034615 0   0   776777001000 0            000000034615 
FT3	034614 034615 0   0   776777001000 0            000000034615 
FT9	034615 034615 0   0   776777001000 0            000000034615 
ET0	034615 034615 0   0   776777001000 0            000000034615 
ST1A	034615 034615 0   0   776777001000 0            000000034615 
ST9	034615 034615 0   0   776777001000 0            000000034615 


*034615 MOVS 	0,035630
INITIAL
C(AC)=776777 001000 
C(E)=002000 775777 
FINAL
C(AC)=775777 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034615 034615 0   0   204000035630 0            002000775777 
IT1	034615 0      0   0   204000035630 0            002000775777 
AT3	034615 0      0   0   000000035630 0            204000035630 
AT6	034615 035630 0   0   000000035630 0            204000035630 
FT0	034615 035630 0   0   002000775777 0            204000035630 
FT1A	034615 035630 0   0   002000775777 0            002000775777 
FT9	034616 035630 0   0   002000775777 0            002000775777 
ET0	034616 035630 0   0   775777002000 0            002000775777 
ST1	034616 035630 0   0   775777002000 0            002000775777 
ST2	034616 035630 0   0   775777002000 0            002000775777 
ST9	034616 035630 0   0   775777002000 0            002000775777 


*034616 CAME	0,035631
INITIAL
C(AC)=775777 002000 
C(E)=775777 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034616 034616 0   0   312000035631 0            775777002000 
IT1	034616 0      0   0   312000035631 0            775777002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 721
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1000

AT3	034616 0      0   0   000000035631 0            312000035631 
AT6	034616 035631 0   0   000000035631 0            312000035631 
FT0	034616 035631 0   0   775777002000 0            312000035631 
FT1A	034616 035631 0   0   775777002000 0            775777002000 
FT2	034616 035631 0   0   0            0            775777002000 
FT2RQ	034616 035631 0   0   775777002000 0            775777002000 
FT3	034616 035631 0   0   775777002000 0            775777002000 
FT9	034617 035631 0   0   775777002000 0            775777002000 
ET0	034620 035631 0   0   0            0            775777002000 
ST1A	034620 035631 0   0   0            0            775777002000 
ST9	034620 035631 0   0   0            0            775777002000 


*034620 JUMPA	0,034621
INITIAL
C(AC)=775777 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034620 034620 0   0   324000034621 0            000000034621 
IT1	034620 0      0   0   324000034621 0            000000034621 
AT3	034620 0      0   0   000000034621 0            324000034621 
AT6	034620 034621 0   0   000000034621 0            324000034621 
FT1A	034620 034621 0   0   000000034621 0            000000034621 
FT2	034620 034621 0   0   0            0            000000034621 
FT2RQ	034620 034621 0   0   775777002000 0            000000034621 
FT3	034620 034621 0   0   775777002000 0            000000034621 
FT9	034621 034621 0   0   775777002000 0            000000034621 
ET0	034621 034621 0   0   775777002000 0            000000034621 
ST1A	034621 034621 0   0   775777002000 0            000000034621 
ST9	034621 034621 0   0   775777002000 0            000000034621 


*034621 MOVS 	0,035632
INITIAL
C(AC)=775777 002000 
C(E)=004000 773777 
FINAL
C(AC)=773777 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034621 034621 0   0   204000035632 0            004000773777 
IT1	034621 0      0   0   204000035632 0            004000773777 
AT3	034621 0      0   0   000000035632 0            204000035632 
AT6	034621 035632 0   0   000000035632 0            204000035632 
FT0	034621 035632 0   0   004000773777 0            204000035632 
FT1A	034621 035632 0   0   004000773777 0            004000773777 
FT9	034622 035632 0   0   004000773777 0            004000773777 
ET0	034622 035632 0   0   773777004000 0            004000773777 
ST1	034622 035632 0   0   773777004000 0            004000773777 
ST2	034622 035632 0   0   773777004000 0            004000773777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 722
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1001

ST9	034622 035632 0   0   773777004000 0            004000773777 


*034622 CAME	0,035633
INITIAL
C(AC)=773777 004000 
C(E)=773777 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034622 034622 0   0   312000035633 0            773777004000 
IT1	034622 0      0   0   312000035633 0            773777004000 
AT3	034622 0      0   0   000000035633 0            312000035633 
AT6	034622 035633 0   0   000000035633 0            312000035633 
FT0	034622 035633 0   0   773777004000 0            312000035633 
FT1A	034622 035633 0   0   773777004000 0            773777004000 
FT2	034622 035633 0   0   0            0            773777004000 
FT2RQ	034622 035633 0   0   773777004000 0            773777004000 
FT3	034622 035633 0   0   773777004000 0            773777004000 
FT9	034623 035633 0   0   773777004000 0            773777004000 
ET0	034624 035633 0   0   0            0            773777004000 
ST1A	034624 035633 0   0   0            0            773777004000 
ST9	034624 035633 0   0   0            0            773777004000 


*034624 JUMPA	0,034625
INITIAL
C(AC)=773777 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034624 034624 0   0   324000034625 0            000000034625 
IT1	034624 0      0   0   324000034625 0            000000034625 
AT3	034624 0      0   0   000000034625 0            324000034625 
AT6	034624 034625 0   0   000000034625 0            324000034625 
FT1A	034624 034625 0   0   000000034625 0            000000034625 
FT2	034624 034625 0   0   0            0            000000034625 
FT2RQ	034624 034625 0   0   773777004000 0            000000034625 
FT3	034624 034625 0   0   773777004000 0            000000034625 
FT9	034625 034625 0   0   773777004000 0            000000034625 
ET0	034625 034625 0   0   773777004000 0            000000034625 
ST1A	034625 034625 0   0   773777004000 0            000000034625 
ST9	034625 034625 0   0   773777004000 0            000000034625 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 723
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1002

*034625 MOVS 	0,035634
INITIAL
C(AC)=773777 004000 
C(E)=010000 767777 
FINAL
C(AC)=767777 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034625 034625 0   0   204000035634 0            010000767777 
IT1	034625 0      0   0   204000035634 0            010000767777 
AT3	034625 0      0   0   000000035634 0            204000035634 
AT6	034625 035634 0   0   000000035634 0            204000035634 
FT0	034625 035634 0   0   010000767777 0            204000035634 
FT1A	034625 035634 0   0   010000767777 0            010000767777 
FT9	034626 035634 0   0   010000767777 0            010000767777 
ET0	034626 035634 0   0   767777010000 0            010000767777 
ST1	034626 035634 0   0   767777010000 0            010000767777 
ST2	034626 035634 0   0   767777010000 0            010000767777 
ST9	034626 035634 0   0   767777010000 0            010000767777 


*034626 CAME	0,035635
INITIAL
C(AC)=767777 010000 
C(E)=767777 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034626 034626 0   0   312000035635 0            767777010000 
IT1	034626 0      0   0   312000035635 0            767777010000 
AT3	034626 0      0   0   000000035635 0            312000035635 
AT6	034626 035635 0   0   000000035635 0            312000035635 
FT0	034626 035635 0   0   767777010000 0            312000035635 
FT1A	034626 035635 0   0   767777010000 0            767777010000 
FT2	034626 035635 0   0   0            0            767777010000 
FT2RQ	034626 035635 0   0   767777010000 0            767777010000 
FT3	034626 035635 0   0   767777010000 0            767777010000 
FT9	034627 035635 0   0   767777010000 0            767777010000 
ET0	034630 035635 0   0   0            0            767777010000 
ST1A	034630 035635 0   0   0            0            767777010000 
ST9	034630 035635 0   0   0            0            767777010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 724
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1003

*034630 JUMPA	0,034631
INITIAL
C(AC)=767777 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034630 034630 0   0   324000034631 0            000000034631 
IT1	034630 0      0   0   324000034631 0            000000034631 
AT3	034630 0      0   0   000000034631 0            324000034631 
AT6	034630 034631 0   0   000000034631 0            324000034631 
FT1A	034630 034631 0   0   000000034631 0            000000034631 
FT2	034630 034631 0   0   0            0            000000034631 
FT2RQ	034630 034631 0   0   767777010000 0            000000034631 
FT3	034630 034631 0   0   767777010000 0            000000034631 
FT9	034631 034631 0   0   767777010000 0            000000034631 
ET0	034631 034631 0   0   767777010000 0            000000034631 
ST1A	034631 034631 0   0   767777010000 0            000000034631 
ST9	034631 034631 0   0   767777010000 0            000000034631 


*034631 MOVS 	0,035636
INITIAL
C(AC)=767777 010000 
C(E)=020000 757777 
FINAL
C(AC)=757777 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034631 034631 0   0   204000035636 0            020000757777 
IT1	034631 0      0   0   204000035636 0            020000757777 
AT3	034631 0      0   0   000000035636 0            204000035636 
AT6	034631 035636 0   0   000000035636 0            204000035636 
FT0	034631 035636 0   0   020000757777 0            204000035636 
FT1A	034631 035636 0   0   020000757777 0            020000757777 
FT9	034632 035636 0   0   020000757777 0            020000757777 
ET0	034632 035636 0   0   757777020000 0            020000757777 
ST1	034632 035636 0   0   757777020000 0            020000757777 
ST2	034632 035636 0   0   757777020000 0            020000757777 
ST9	034632 035636 0   0   757777020000 0            020000757777 


*034632 CAME	0,035637
INITIAL
C(AC)=757777 020000 
C(E)=757777 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034632 034632 0   0   312000035637 0            757777020000 
IT1	034632 0      0   0   312000035637 0            757777020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 725
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1004

AT3	034632 0      0   0   000000035637 0            312000035637 
AT6	034632 035637 0   0   000000035637 0            312000035637 
FT0	034632 035637 0   0   757777020000 0            312000035637 
FT1A	034632 035637 0   0   757777020000 0            757777020000 
FT2	034632 035637 0   0   0            0            757777020000 
FT2RQ	034632 035637 0   0   757777020000 0            757777020000 
FT3	034632 035637 0   0   757777020000 0            757777020000 
FT9	034633 035637 0   0   757777020000 0            757777020000 
ET0	034634 035637 0   0   0            0            757777020000 
ST1A	034634 035637 0   0   0            0            757777020000 
ST9	034634 035637 0   0   0            0            757777020000 


*034634 JUMPA	0,034635
INITIAL
C(AC)=757777 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034634 034634 0   0   324000034635 0            000000034635 
IT1	034634 0      0   0   324000034635 0            000000034635 
AT3	034634 0      0   0   000000034635 0            324000034635 
AT6	034634 034635 0   0   000000034635 0            324000034635 
FT1A	034634 034635 0   0   000000034635 0            000000034635 
FT2	034634 034635 0   0   0            0            000000034635 
FT2RQ	034634 034635 0   0   757777020000 0            000000034635 
FT3	034634 034635 0   0   757777020000 0            000000034635 
FT9	034635 034635 0   0   757777020000 0            000000034635 
ET0	034635 034635 0   0   757777020000 0            000000034635 
ST1A	034635 034635 0   0   757777020000 0            000000034635 
ST9	034635 034635 0   0   757777020000 0            000000034635 


*034635 MOVS 	0,035640
INITIAL
C(AC)=757777 020000 
C(E)=040000 737777 
FINAL
C(AC)=737777 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034635 034635 0   0   204000035640 0            040000737777 
IT1	034635 0      0   0   204000035640 0            040000737777 
AT3	034635 0      0   0   000000035640 0            204000035640 
AT6	034635 035640 0   0   000000035640 0            204000035640 
FT0	034635 035640 0   0   040000737777 0            204000035640 
FT1A	034635 035640 0   0   040000737777 0            040000737777 
FT9	034636 035640 0   0   040000737777 0            040000737777 
ET0	034636 035640 0   0   737777040000 0            040000737777 
ST1	034636 035640 0   0   737777040000 0            040000737777 
ST2	034636 035640 0   0   737777040000 0            040000737777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 726
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1005

ST9	034636 035640 0   0   737777040000 0            040000737777 


*034636 CAME	0,035641
INITIAL
C(AC)=737777 040000 
C(E)=737777 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034636 034636 0   0   312000035641 0            737777040000 
IT1	034636 0      0   0   312000035641 0            737777040000 
AT3	034636 0      0   0   000000035641 0            312000035641 
AT6	034636 035641 0   0   000000035641 0            312000035641 
FT0	034636 035641 0   0   737777040000 0            312000035641 
FT1A	034636 035641 0   0   737777040000 0            737777040000 
FT2	034636 035641 0   0   0            0            737777040000 
FT2RQ	034636 035641 0   0   737777040000 0            737777040000 
FT3	034636 035641 0   0   737777040000 0            737777040000 
FT9	034637 035641 0   0   737777040000 0            737777040000 
ET0	034640 035641 0   0   0            0            737777040000 
ST1A	034640 035641 0   0   0            0            737777040000 
ST9	034640 035641 0   0   0            0            737777040000 


*034640 JUMPA	0,034641
INITIAL
C(AC)=737777 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034640 034640 0   0   324000034641 0            000000034641 
IT1	034640 0      0   0   324000034641 0            000000034641 
AT3	034640 0      0   0   000000034641 0            324000034641 
AT6	034640 034641 0   0   000000034641 0            324000034641 
FT1A	034640 034641 0   0   000000034641 0            000000034641 
FT2	034640 034641 0   0   0            0            000000034641 
FT2RQ	034640 034641 0   0   737777040000 0            000000034641 
FT3	034640 034641 0   0   737777040000 0            000000034641 
FT9	034641 034641 0   0   737777040000 0            000000034641 
ET0	034641 034641 0   0   737777040000 0            000000034641 
ST1A	034641 034641 0   0   737777040000 0            000000034641 
ST9	034641 034641 0   0   737777040000 0            000000034641 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 727
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1006

*034641 MOVS 	0,035642
INITIAL
C(AC)=737777 040000 
C(E)=100000 677777 
FINAL
C(AC)=677777 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034641 034641 0   0   204000035642 0            100000677777 
IT1	034641 0      0   0   204000035642 0            100000677777 
AT3	034641 0      0   0   000000035642 0            204000035642 
AT6	034641 035642 0   0   000000035642 0            204000035642 
FT0	034641 035642 0   0   100000677777 0            204000035642 
FT1A	034641 035642 0   0   100000677777 0            100000677777 
FT9	034642 035642 0   0   100000677777 0            100000677777 
ET0	034642 035642 0   0   677777100000 0            100000677777 
ST1	034642 035642 0   0   677777100000 0            100000677777 
ST2	034642 035642 0   0   677777100000 0            100000677777 
ST9	034642 035642 0   0   677777100000 0            100000677777 


*034642 CAME	0,035643
INITIAL
C(AC)=677777 100000 
C(E)=677777 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034642 034642 0   0   312000035643 0            677777100000 
IT1	034642 0      0   0   312000035643 0            677777100000 
AT3	034642 0      0   0   000000035643 0            312000035643 
AT6	034642 035643 0   0   000000035643 0            312000035643 
FT0	034642 035643 0   0   677777100000 0            312000035643 
FT1A	034642 035643 0   0   677777100000 0            677777100000 
FT2	034642 035643 0   0   0            0            677777100000 
FT2RQ	034642 035643 0   0   677777100000 0            677777100000 
FT3	034642 035643 0   0   677777100000 0            677777100000 
FT9	034643 035643 0   0   677777100000 0            677777100000 
ET0	034644 035643 0   0   0            0            677777100000 
ST1A	034644 035643 0   0   0            0            677777100000 
ST9	034644 035643 0   0   0            0            677777100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 728
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1007

*034644 JUMPA	0,034645
INITIAL
C(AC)=677777 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034644 034644 0   0   324000034645 0            000000034645 
IT1	034644 0      0   0   324000034645 0            000000034645 
AT3	034644 0      0   0   000000034645 0            324000034645 
AT6	034644 034645 0   0   000000034645 0            324000034645 
FT1A	034644 034645 0   0   000000034645 0            000000034645 
FT2	034644 034645 0   0   0            0            000000034645 
FT2RQ	034644 034645 0   0   677777100000 0            000000034645 
FT3	034644 034645 0   0   677777100000 0            000000034645 
FT9	034645 034645 0   0   677777100000 0            000000034645 
ET0	034645 034645 0   0   677777100000 0            000000034645 
ST1A	034645 034645 0   0   677777100000 0            000000034645 
ST9	034645 034645 0   0   677777100000 0            000000034645 


*034645 MOVS 	0,035644
INITIAL
C(AC)=677777 100000 
C(E)=200000 577777 
FINAL
C(AC)=577777 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034645 034645 0   0   204000035644 0            200000577777 
IT1	034645 0      0   0   204000035644 0            200000577777 
AT3	034645 0      0   0   000000035644 0            204000035644 
AT6	034645 035644 0   0   000000035644 0            204000035644 
FT0	034645 035644 0   0   200000577777 0            204000035644 
FT1A	034645 035644 0   0   200000577777 0            200000577777 
FT9	034646 035644 0   0   200000577777 0            200000577777 
ET0	034646 035644 0   0   577777200000 0            200000577777 
ST1	034646 035644 0   0   577777200000 0            200000577777 
ST2	034646 035644 0   0   577777200000 0            200000577777 
ST9	034646 035644 0   0   577777200000 0            200000577777 


*034646 CAME	0,035645
INITIAL
C(AC)=577777 200000 
C(E)=577777 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034646 034646 0   0   312000035645 0            577777200000 
IT1	034646 0      0   0   312000035645 0            577777200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 729
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1008

AT3	034646 0      0   0   000000035645 0            312000035645 
AT6	034646 035645 0   0   000000035645 0            312000035645 
FT0	034646 035645 0   0   577777200000 0            312000035645 
FT1A	034646 035645 0   0   577777200000 0            577777200000 
FT2	034646 035645 0   0   0            0            577777200000 
FT2RQ	034646 035645 0   0   577777200000 0            577777200000 
FT3	034646 035645 0   0   577777200000 0            577777200000 
FT9	034647 035645 0   0   577777200000 0            577777200000 
ET0	034650 035645 0   0   0            0            577777200000 
ST1A	034650 035645 0   0   0            0            577777200000 
ST9	034650 035645 0   0   0            0            577777200000 


*034650 JUMPA	0,034651
INITIAL
C(AC)=577777 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034650 034650 0   0   324000034651 0            000000034651 
IT1	034650 0      0   0   324000034651 0            000000034651 
AT3	034650 0      0   0   000000034651 0            324000034651 
AT6	034650 034651 0   0   000000034651 0            324000034651 
FT1A	034650 034651 0   0   000000034651 0            000000034651 
FT2	034650 034651 0   0   0            0            000000034651 
FT2RQ	034650 034651 0   0   577777200000 0            000000034651 
FT3	034650 034651 0   0   577777200000 0            000000034651 
FT9	034651 034651 0   0   577777200000 0            000000034651 
ET0	034651 034651 0   0   577777200000 0            000000034651 
ST1A	034651 034651 0   0   577777200000 0            000000034651 
ST9	034651 034651 0   0   577777200000 0            000000034651 


*034651 MOVS 	0,035646
INITIAL
C(AC)=577777 200000 
C(E)=400000 377777 
FINAL
C(AC)=377777 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034651 034651 0   0   204000035646 0            400000377777 
IT1	034651 0      0   0   204000035646 0            400000377777 
AT3	034651 0      0   0   000000035646 0            204000035646 
AT6	034651 035646 0   0   000000035646 0            204000035646 
FT0	034651 035646 0   0   400000377777 0            204000035646 
FT1A	034651 035646 0   0   400000377777 0            400000377777 
FT9	034652 035646 0   0   400000377777 0            400000377777 
ET0	034652 035646 0   0   377777400000 0            400000377777 
ST1	034652 035646 0   0   377777400000 0            400000377777 
ST2	034652 035646 0   0   377777400000 0            400000377777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 730
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1009

ST9	034652 035646 0   0   377777400000 0            400000377777 


*034652 CAME	0,035647
INITIAL
C(AC)=377777 400000 
C(E)=377777 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034652 034652 0   0   312000035647 0            377777400000 
IT1	034652 0      0   0   312000035647 0            377777400000 
AT3	034652 0      0   0   000000035647 0            312000035647 
AT6	034652 035647 0   0   000000035647 0            312000035647 
FT0	034652 035647 0   0   377777400000 0            312000035647 
FT1A	034652 035647 0   0   377777400000 0            377777400000 
FT2	034652 035647 0   0   0            0            377777400000 
FT2RQ	034652 035647 0   0   377777400000 0            377777400000 
FT3	034652 035647 0   0   377777400000 0            377777400000 
FT9	034653 035647 0   0   377777400000 0            377777400000 
ET0	034654 035647 0   0   0            0            377777400000 
ST1A	034654 035647 0   0   0            0            377777400000 
ST9	034654 035647 0   0   0            0            377777400000 


*034654 JUMPA	0,034655
INITIAL
C(AC)=377777 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034654 034654 0   0   324000034655 0            000000034655 
IT1	034654 0      0   0   324000034655 0            000000034655 
AT3	034654 0      0   0   000000034655 0            324000034655 
AT6	034654 034655 0   0   000000034655 0            324000034655 
FT1A	034654 034655 0   0   000000034655 0            000000034655 
FT2	034654 034655 0   0   0            0            000000034655 
FT2RQ	034654 034655 0   0   377777400000 0            000000034655 
FT3	034654 034655 0   0   377777400000 0            000000034655 
FT9	034655 034655 0   0   377777400000 0            000000034655 
ET0	034655 034655 0   0   377777400000 0            000000034655 
ST1A	034655 034655 0   0   377777400000 0            000000034655 
ST9	034655 034655 0   0   377777400000 0            000000034655 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 731
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1010

*034655 MOVS 	0,035605
INITIAL
C(AC)=377777 400000 
C(E)=777776 000001 
FINAL
C(AC)=000001 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034655 034655 0   0   204000035605 0            777776000001 
IT1	034655 0      0   0   204000035605 0            777776000001 
AT3	034655 0      0   0   000000035605 0            204000035605 
AT6	034655 035605 0   0   000000035605 0            204000035605 
FT0	034655 035605 0   0   777776000001 0            204000035605 
FT1A	034655 035605 0   0   777776000001 0            777776000001 
FT9	034656 035605 0   0   777776000001 0            777776000001 
ET0	034656 035605 0   0   000001777776 0            777776000001 
ST1	034656 035605 0   0   000001777776 0            777776000001 
ST2	034656 035605 0   0   000001777776 0            777776000001 
ST9	034656 035605 0   0   000001777776 0            777776000001 


*034656 CAME	0,035604
INITIAL
C(AC)=000001 777776 
C(E)=000001 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034656 034656 0   0   312000035604 0            000001777776 
IT1	034656 0      0   0   312000035604 0            000001777776 
AT3	034656 0      0   0   000000035604 0            312000035604 
AT6	034656 035604 0   0   000000035604 0            312000035604 
FT0	034656 035604 0   0   000001777776 0            312000035604 
FT1A	034656 035604 0   0   000001777776 0            000001777776 
FT2	034656 035604 0   0   0            0            000001777776 
FT2RQ	034656 035604 0   0   000001777776 0            000001777776 
FT3	034656 035604 0   0   000001777776 0            000001777776 
FT9	034657 035604 0   0   000001777776 0            000001777776 
ET0	034660 035604 0   0   0            0            000001777776 
ST1A	034660 035604 0   0   0            0            000001777776 
ST9	034660 035604 0   0   0            0            000001777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 732
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1011

*034660 JUMPA	0,034661
INITIAL
C(AC)=000001 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034660 034660 0   0   324000034661 0            000000034661 
IT1	034660 0      0   0   324000034661 0            000000034661 
AT3	034660 0      0   0   000000034661 0            324000034661 
AT6	034660 034661 0   0   000000034661 0            324000034661 
FT1A	034660 034661 0   0   000000034661 0            000000034661 
FT2	034660 034661 0   0   0            0            000000034661 
FT2RQ	034660 034661 0   0   000001777776 0            000000034661 
FT3	034660 034661 0   0   000001777776 0            000000034661 
FT9	034661 034661 0   0   000001777776 0            000000034661 
ET0	034661 034661 0   0   000001777776 0            000000034661 
ST1A	034661 034661 0   0   000001777776 0            000000034661 
ST9	034661 034661 0   0   000001777776 0            000000034661 


*034661 MOVS 	0,035607
INITIAL
C(AC)=000001 777776 
C(E)=777775 000002 
FINAL
C(AC)=000002 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034661 034661 0   0   204000035607 0            777775000002 
IT1	034661 0      0   0   204000035607 0            777775000002 
AT3	034661 0      0   0   000000035607 0            204000035607 
AT6	034661 035607 0   0   000000035607 0            204000035607 
FT0	034661 035607 0   0   777775000002 0            204000035607 
FT1A	034661 035607 0   0   777775000002 0            777775000002 
FT9	034662 035607 0   0   777775000002 0            777775000002 
ET0	034662 035607 0   0   000002777775 0            777775000002 
ST1	034662 035607 0   0   000002777775 0            777775000002 
ST2	034662 035607 0   0   000002777775 0            777775000002 
ST9	034662 035607 0   0   000002777775 0            777775000002 


*034662 CAME	0,035606
INITIAL
C(AC)=000002 777775 
C(E)=000002 777775 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034662 034662 0   0   312000035606 0            000002777775 
IT1	034662 0      0   0   312000035606 0            000002777775 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 733
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1012

AT3	034662 0      0   0   000000035606 0            312000035606 
AT6	034662 035606 0   0   000000035606 0            312000035606 
FT0	034662 035606 0   0   000002777775 0            312000035606 
FT1A	034662 035606 0   0   000002777775 0            000002777775 
FT2	034662 035606 0   0   0            0            000002777775 
FT2RQ	034662 035606 0   0   000002777775 0            000002777775 
FT3	034662 035606 0   0   000002777775 0            000002777775 
FT9	034663 035606 0   0   000002777775 0            000002777775 
ET0	034664 035606 0   0   0            0            000002777775 
ST1A	034664 035606 0   0   0            0            000002777775 
ST9	034664 035606 0   0   0            0            000002777775 


*034664 JUMPA	0,034665
INITIAL
C(AC)=000002 777775 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034664 034664 0   0   324000034665 0            000000034665 
IT1	034664 0      0   0   324000034665 0            000000034665 
AT3	034664 0      0   0   000000034665 0            324000034665 
AT6	034664 034665 0   0   000000034665 0            324000034665 
FT1A	034664 034665 0   0   000000034665 0            000000034665 
FT2	034664 034665 0   0   0            0            000000034665 
FT2RQ	034664 034665 0   0   000002777775 0            000000034665 
FT3	034664 034665 0   0   000002777775 0            000000034665 
FT9	034665 034665 0   0   000002777775 0            000000034665 
ET0	034665 034665 0   0   000002777775 0            000000034665 
ST1A	034665 034665 0   0   000002777775 0            000000034665 
ST9	034665 034665 0   0   000002777775 0            000000034665 


*034665 MOVS 	0,035611
INITIAL
C(AC)=000002 777775 
C(E)=777773 000004 
FINAL
C(AC)=000004 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034665 034665 0   0   204000035611 0            777773000004 
IT1	034665 0      0   0   204000035611 0            777773000004 
AT3	034665 0      0   0   000000035611 0            204000035611 
AT6	034665 035611 0   0   000000035611 0            204000035611 
FT0	034665 035611 0   0   777773000004 0            204000035611 
FT1A	034665 035611 0   0   777773000004 0            777773000004 
FT9	034666 035611 0   0   777773000004 0            777773000004 
ET0	034666 035611 0   0   000004777773 0            777773000004 
ST1	034666 035611 0   0   000004777773 0            777773000004 
ST2	034666 035611 0   0   000004777773 0            777773000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 734
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1013

ST9	034666 035611 0   0   000004777773 0            777773000004 


*034666 CAME	0,035610
INITIAL
C(AC)=000004 777773 
C(E)=000004 777773 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034666 034666 0   0   312000035610 0            000004777773 
IT1	034666 0      0   0   312000035610 0            000004777773 
AT3	034666 0      0   0   000000035610 0            312000035610 
AT6	034666 035610 0   0   000000035610 0            312000035610 
FT0	034666 035610 0   0   000004777773 0            312000035610 
FT1A	034666 035610 0   0   000004777773 0            000004777773 
FT2	034666 035610 0   0   0            0            000004777773 
FT2RQ	034666 035610 0   0   000004777773 0            000004777773 
FT3	034666 035610 0   0   000004777773 0            000004777773 
FT9	034667 035610 0   0   000004777773 0            000004777773 
ET0	034670 035610 0   0   0            0            000004777773 
ST1A	034670 035610 0   0   0            0            000004777773 
ST9	034670 035610 0   0   0            0            000004777773 


*034670 JUMPA	0,034671
INITIAL
C(AC)=000004 777773 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034670 034670 0   0   324000034671 0            000000034671 
IT1	034670 0      0   0   324000034671 0            000000034671 
AT3	034670 0      0   0   000000034671 0            324000034671 
AT6	034670 034671 0   0   000000034671 0            324000034671 
FT1A	034670 034671 0   0   000000034671 0            000000034671 
FT2	034670 034671 0   0   0            0            000000034671 
FT2RQ	034670 034671 0   0   000004777773 0            000000034671 
FT3	034670 034671 0   0   000004777773 0            000000034671 
FT9	034671 034671 0   0   000004777773 0            000000034671 
ET0	034671 034671 0   0   000004777773 0            000000034671 
ST1A	034671 034671 0   0   000004777773 0            000000034671 
ST9	034671 034671 0   0   000004777773 0            000000034671 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 735
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1014

*034671 MOVS 	0,035613
INITIAL
C(AC)=000004 777773 
C(E)=777767 000010 
FINAL
C(AC)=000010 777767 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034671 034671 0   0   204000035613 0            777767000010 
IT1	034671 0      0   0   204000035613 0            777767000010 
AT3	034671 0      0   0   000000035613 0            204000035613 
AT6	034671 035613 0   0   000000035613 0            204000035613 
FT0	034671 035613 0   0   777767000010 0            204000035613 
FT1A	034671 035613 0   0   777767000010 0            777767000010 
FT9	034672 035613 0   0   777767000010 0            777767000010 
ET0	034672 035613 0   0   000010777767 0            777767000010 
ST1	034672 035613 0   0   000010777767 0            777767000010 
ST2	034672 035613 0   0   000010777767 0            777767000010 
ST9	034672 035613 0   0   000010777767 0            777767000010 


*034672 CAME	0,035612
INITIAL
C(AC)=000010 777767 
C(E)=000010 777767 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034672 034672 0   0   312000035612 0            000010777767 
IT1	034672 0      0   0   312000035612 0            000010777767 
AT3	034672 0      0   0   000000035612 0            312000035612 
AT6	034672 035612 0   0   000000035612 0            312000035612 
FT0	034672 035612 0   0   000010777767 0            312000035612 
FT1A	034672 035612 0   0   000010777767 0            000010777767 
FT2	034672 035612 0   0   0            0            000010777767 
FT2RQ	034672 035612 0   0   000010777767 0            000010777767 
FT3	034672 035612 0   0   000010777767 0            000010777767 
FT9	034673 035612 0   0   000010777767 0            000010777767 
ET0	034674 035612 0   0   0            0            000010777767 
ST1A	034674 035612 0   0   0            0            000010777767 
ST9	034674 035612 0   0   0            0            000010777767 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 736
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1015

*034674 JUMPA	0,034675
INITIAL
C(AC)=000010 777767 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034674 034674 0   0   324000034675 0            000000034675 
IT1	034674 0      0   0   324000034675 0            000000034675 
AT3	034674 0      0   0   000000034675 0            324000034675 
AT6	034674 034675 0   0   000000034675 0            324000034675 
FT1A	034674 034675 0   0   000000034675 0            000000034675 
FT2	034674 034675 0   0   0            0            000000034675 
FT2RQ	034674 034675 0   0   000010777767 0            000000034675 
FT3	034674 034675 0   0   000010777767 0            000000034675 
FT9	034675 034675 0   0   000010777767 0            000000034675 
ET0	034675 034675 0   0   000010777767 0            000000034675 
ST1A	034675 034675 0   0   000010777767 0            000000034675 
ST9	034675 034675 0   0   000010777767 0            000000034675 


*034675 MOVS 	0,035615
INITIAL
C(AC)=000010 777767 
C(E)=777757 000020 
FINAL
C(AC)=000020 777757 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034675 034675 0   0   204000035615 0            777757000020 
IT1	034675 0      0   0   204000035615 0            777757000020 
AT3	034675 0      0   0   000000035615 0            204000035615 
AT6	034675 035615 0   0   000000035615 0            204000035615 
FT0	034675 035615 0   0   777757000020 0            204000035615 
FT1A	034675 035615 0   0   777757000020 0            777757000020 
FT9	034676 035615 0   0   777757000020 0            777757000020 
ET0	034676 035615 0   0   000020777757 0            777757000020 
ST1	034676 035615 0   0   000020777757 0            777757000020 
ST2	034676 035615 0   0   000020777757 0            777757000020 
ST9	034676 035615 0   0   000020777757 0            777757000020 


*034676 CAME	0,035614
INITIAL
C(AC)=000020 777757 
C(E)=000020 777757 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034676 034676 0   0   312000035614 0            000020777757 
IT1	034676 0      0   0   312000035614 0            000020777757 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 737
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1016

AT3	034676 0      0   0   000000035614 0            312000035614 
AT6	034676 035614 0   0   000000035614 0            312000035614 
FT0	034676 035614 0   0   000020777757 0            312000035614 
FT1A	034676 035614 0   0   000020777757 0            000020777757 
FT2	034676 035614 0   0   0            0            000020777757 
FT2RQ	034676 035614 0   0   000020777757 0            000020777757 
FT3	034676 035614 0   0   000020777757 0            000020777757 
FT9	034677 035614 0   0   000020777757 0            000020777757 
ET0	0      035614 0   0   0            0            000020777757 
ST1A	0      035614 0   0   0            0            000020777757 
ST9	0      035614 0   0   0            0            000020777757 


*034700 JUMPA	0,034701
INITIAL
C(AC)=000020 777757 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000034701 0            000000034701 
IT1	0      0      0   0   324000034701 0            000000034701 
AT3	0      0      0   0   000000034701 0            324000034701 
AT6	0      034701 0   0   000000034701 0            324000034701 
FT1A	0      034701 0   0   000000034701 0            000000034701 
FT2	0      034701 0   0   0            0            000000034701 
FT2RQ	0      034701 0   0   000020777757 0            000000034701 
FT3	0      034701 0   0   000020777757 0            000000034701 
FT9	034701 034701 0   0   000020777757 0            000000034701 
ET0	034701 034701 0   0   000020777757 0            000000034701 
ST1A	034701 034701 0   0   000020777757 0            000000034701 
ST9	034701 034701 0   0   000020777757 0            000000034701 


*034701 MOVS 	0,035617
INITIAL
C(AC)=000020 777757 
C(E)=777737 000040 
FINAL
C(AC)=000040 777737 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034701 034701 0   0   204000035617 0            777737000040 
IT1	034701 0      0   0   204000035617 0            777737000040 
AT3	034701 0      0   0   000000035617 0            204000035617 
AT6	034701 035617 0   0   000000035617 0            204000035617 
FT0	034701 035617 0   0   777737000040 0            204000035617 
FT1A	034701 035617 0   0   777737000040 0            777737000040 
FT9	034702 035617 0   0   777737000040 0            777737000040 
ET0	034702 035617 0   0   000040777737 0            777737000040 
ST1	034702 035617 0   0   000040777737 0            777737000040 
ST2	034702 035617 0   0   000040777737 0            777737000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 738
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1017

ST9	034702 035617 0   0   000040777737 0            777737000040 


*034702 CAME	0,035616
INITIAL
C(AC)=000040 777737 
C(E)=000040 777737 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034702 034702 0   0   312000035616 0            000040777737 
IT1	034702 0      0   0   312000035616 0            000040777737 
AT3	034702 0      0   0   000000035616 0            312000035616 
AT6	034702 035616 0   0   000000035616 0            312000035616 
FT0	034702 035616 0   0   000040777737 0            312000035616 
FT1A	034702 035616 0   0   000040777737 0            000040777737 
FT2	034702 035616 0   0   0            0            000040777737 
FT2RQ	034702 035616 0   0   000040777737 0            000040777737 
FT3	034702 035616 0   0   000040777737 0            000040777737 
FT9	034703 035616 0   0   000040777737 0            000040777737 
ET0	034704 035616 0   0   0            0            000040777737 
ST1A	034704 035616 0   0   0            0            000040777737 
ST9	034704 035616 0   0   0            0            000040777737 


*034704 JUMPA	0,034705
INITIAL
C(AC)=000040 777737 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034704 034704 0   0   324000034705 0            000000034705 
IT1	034704 0      0   0   324000034705 0            000000034705 
AT3	034704 0      0   0   000000034705 0            324000034705 
AT6	034704 034705 0   0   000000034705 0            324000034705 
FT1A	034704 034705 0   0   000000034705 0            000000034705 
FT2	034704 034705 0   0   0            0            000000034705 
FT2RQ	034704 034705 0   0   000040777737 0            000000034705 
FT3	034704 034705 0   0   000040777737 0            000000034705 
FT9	034705 034705 0   0   000040777737 0            000000034705 
ET0	034705 034705 0   0   000040777737 0            000000034705 
ST1A	034705 034705 0   0   000040777737 0            000000034705 
ST9	034705 034705 0   0   000040777737 0            000000034705 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 739
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1018

*034705 MOVS 	0,035621
INITIAL
C(AC)=000040 777737 
C(E)=777677 000100 
FINAL
C(AC)=000100 777677 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034705 034705 0   0   204000035621 0            777677000100 
IT1	034705 0      0   0   204000035621 0            777677000100 
AT3	034705 0      0   0   000000035621 0            204000035621 
AT6	034705 035621 0   0   000000035621 0            204000035621 
FT0	034705 035621 0   0   777677000100 0            204000035621 
FT1A	034705 035621 0   0   777677000100 0            777677000100 
FT9	034706 035621 0   0   777677000100 0            777677000100 
ET0	034706 035621 0   0   000100777677 0            777677000100 
ST1	034706 035621 0   0   000100777677 0            777677000100 
ST2	034706 035621 0   0   000100777677 0            777677000100 
ST9	034706 035621 0   0   000100777677 0            777677000100 


*034706 CAME	0,035620
INITIAL
C(AC)=000100 777677 
C(E)=000100 777677 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034706 034706 0   0   312000035620 0            000100777677 
IT1	034706 0      0   0   312000035620 0            000100777677 
AT3	034706 0      0   0   000000035620 0            312000035620 
AT6	034706 035620 0   0   000000035620 0            312000035620 
FT0	034706 035620 0   0   000100777677 0            312000035620 
FT1A	034706 035620 0   0   000100777677 0            000100777677 
FT2	034706 035620 0   0   0            0            000100777677 
FT2RQ	034706 035620 0   0   000100777677 0            000100777677 
FT3	034706 035620 0   0   000100777677 0            000100777677 
FT9	034707 035620 0   0   000100777677 0            000100777677 
ET0	034710 035620 0   0   0            0            000100777677 
ST1A	034710 035620 0   0   0            0            000100777677 
ST9	034710 035620 0   0   0            0            000100777677 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 740
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1019

*034710 JUMPA	0,034711
INITIAL
C(AC)=000100 777677 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034710 034710 0   0   324000034711 0            000000034711 
IT1	034710 0      0   0   324000034711 0            000000034711 
AT3	034710 0      0   0   000000034711 0            324000034711 
AT6	034710 034711 0   0   000000034711 0            324000034711 
FT1A	034710 034711 0   0   000000034711 0            000000034711 
FT2	034710 034711 0   0   0            0            000000034711 
FT2RQ	034710 034711 0   0   000100777677 0            000000034711 
FT3	034710 034711 0   0   000100777677 0            000000034711 
FT9	034711 034711 0   0   000100777677 0            000000034711 
ET0	034711 034711 0   0   000100777677 0            000000034711 
ST1A	034711 034711 0   0   000100777677 0            000000034711 
ST9	034711 034711 0   0   000100777677 0            000000034711 


*034711 MOVS 	0,035623
INITIAL
C(AC)=000100 777677 
C(E)=777577 000200 
FINAL
C(AC)=000200 777577 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034711 034711 0   0   204000035623 0            777577000200 
IT1	034711 0      0   0   204000035623 0            777577000200 
AT3	034711 0      0   0   000000035623 0            204000035623 
AT6	034711 035623 0   0   000000035623 0            204000035623 
FT0	034711 035623 0   0   777577000200 0            204000035623 
FT1A	034711 035623 0   0   777577000200 0            777577000200 
FT9	034712 035623 0   0   777577000200 0            777577000200 
ET0	034712 035623 0   0   000200777577 0            777577000200 
ST1	034712 035623 0   0   000200777577 0            777577000200 
ST2	034712 035623 0   0   000200777577 0            777577000200 
ST9	034712 035623 0   0   000200777577 0            777577000200 


*034712 CAME	0,035622
INITIAL
C(AC)=000200 777577 
C(E)=000200 777577 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034712 034712 0   0   312000035622 0            000200777577 
IT1	034712 0      0   0   312000035622 0            000200777577 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 741
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1020

AT3	034712 0      0   0   000000035622 0            312000035622 
AT6	034712 035622 0   0   000000035622 0            312000035622 
FT0	034712 035622 0   0   000200777577 0            312000035622 
FT1A	034712 035622 0   0   000200777577 0            000200777577 
FT2	034712 035622 0   0   0            0            000200777577 
FT2RQ	034712 035622 0   0   000200777577 0            000200777577 
FT3	034712 035622 0   0   000200777577 0            000200777577 
FT9	034713 035622 0   0   000200777577 0            000200777577 
ET0	034714 035622 0   0   0            0            000200777577 
ST1A	034714 035622 0   0   0            0            000200777577 
ST9	034714 035622 0   0   0            0            000200777577 


*034714 JUMPA	0,034715
INITIAL
C(AC)=000200 777577 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034714 034714 0   0   324000034715 0            000000034715 
IT1	034714 0      0   0   324000034715 0            000000034715 
AT3	034714 0      0   0   000000034715 0            324000034715 
AT6	034714 034715 0   0   000000034715 0            324000034715 
FT1A	034714 034715 0   0   000000034715 0            000000034715 
FT2	034714 034715 0   0   0            0            000000034715 
FT2RQ	034714 034715 0   0   000200777577 0            000000034715 
FT3	034714 034715 0   0   000200777577 0            000000034715 
FT9	034715 034715 0   0   000200777577 0            000000034715 
ET0	034715 034715 0   0   000200777577 0            000000034715 
ST1A	034715 034715 0   0   000200777577 0            000000034715 
ST9	034715 034715 0   0   000200777577 0            000000034715 


*034715 MOVS 	0,035625
INITIAL
C(AC)=000200 777577 
C(E)=777377 000400 
FINAL
C(AC)=000400 777377 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034715 034715 0   0   204000035625 0            777377000400 
IT1	034715 0      0   0   204000035625 0            777377000400 
AT3	034715 0      0   0   000000035625 0            204000035625 
AT6	034715 035625 0   0   000000035625 0            204000035625 
FT0	034715 035625 0   0   777377000400 0            204000035625 
FT1A	034715 035625 0   0   777377000400 0            777377000400 
FT9	034716 035625 0   0   777377000400 0            777377000400 
ET0	034716 035625 0   0   000400777377 0            777377000400 
ST1	034716 035625 0   0   000400777377 0            777377000400 
ST2	034716 035625 0   0   000400777377 0            777377000400 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 742
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1021

ST9	034716 035625 0   0   000400777377 0            777377000400 


*034716 CAME	0,035624
INITIAL
C(AC)=000400 777377 
C(E)=000400 777377 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034716 034716 0   0   312000035624 0            000400777377 
IT1	034716 0      0   0   312000035624 0            000400777377 
AT3	034716 0      0   0   000000035624 0            312000035624 
AT6	034716 035624 0   0   000000035624 0            312000035624 
FT0	034716 035624 0   0   000400777377 0            312000035624 
FT1A	034716 035624 0   0   000400777377 0            000400777377 
FT2	034716 035624 0   0   0            0            000400777377 
FT2RQ	034716 035624 0   0   000400777377 0            000400777377 
FT3	034716 035624 0   0   000400777377 0            000400777377 
FT9	034717 035624 0   0   000400777377 0            000400777377 
ET0	034720 035624 0   0   0            0            000400777377 
ST1A	034720 035624 0   0   0            0            000400777377 
ST9	034720 035624 0   0   0            0            000400777377 


*034720 JUMPA	0,034721
INITIAL
C(AC)=000400 777377 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034720 034720 0   0   324000034721 0            000000034721 
IT1	034720 0      0   0   324000034721 0            000000034721 
AT3	034720 0      0   0   000000034721 0            324000034721 
AT6	034720 034721 0   0   000000034721 0            324000034721 
FT1A	034720 034721 0   0   000000034721 0            000000034721 
FT2	034720 034721 0   0   0            0            000000034721 
FT2RQ	034720 034721 0   0   000400777377 0            000000034721 
FT3	034720 034721 0   0   000400777377 0            000000034721 
FT9	034721 034721 0   0   000400777377 0            000000034721 
ET0	034721 034721 0   0   000400777377 0            000000034721 
ST1A	034721 034721 0   0   000400777377 0            000000034721 
ST9	034721 034721 0   0   000400777377 0            000000034721 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 743
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1022

*034721 MOVS 	0,035627
INITIAL
C(AC)=000400 777377 
C(E)=776777 001000 
FINAL
C(AC)=001000 776777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034721 034721 0   0   204000035627 0            776777001000 
IT1	034721 0      0   0   204000035627 0            776777001000 
AT3	034721 0      0   0   000000035627 0            204000035627 
AT6	034721 035627 0   0   000000035627 0            204000035627 
FT0	034721 035627 0   0   776777001000 0            204000035627 
FT1A	034721 035627 0   0   776777001000 0            776777001000 
FT9	034722 035627 0   0   776777001000 0            776777001000 
ET0	034722 035627 0   0   001000776777 0            776777001000 
ST1	034722 035627 0   0   001000776777 0            776777001000 
ST2	034722 035627 0   0   001000776777 0            776777001000 
ST9	034722 035627 0   0   001000776777 0            776777001000 


*034722 CAME	0,035626
INITIAL
C(AC)=001000 776777 
C(E)=001000 776777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034722 034722 0   0   312000035626 0            001000776777 
IT1	034722 0      0   0   312000035626 0            001000776777 
AT3	034722 0      0   0   000000035626 0            312000035626 
AT6	034722 035626 0   0   000000035626 0            312000035626 
FT0	034722 035626 0   0   001000776777 0            312000035626 
FT1A	034722 035626 0   0   001000776777 0            001000776777 
FT2	034722 035626 0   0   0            0            001000776777 
FT2RQ	034722 035626 0   0   001000776777 0            001000776777 
FT3	034722 035626 0   0   001000776777 0            001000776777 
FT9	034723 035626 0   0   001000776777 0            001000776777 
ET0	034724 035626 0   0   0            0            001000776777 
ST1A	034724 035626 0   0   0            0            001000776777 
ST9	034724 035626 0   0   0            0            001000776777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 744
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1023

*034724 JUMPA	0,034725
INITIAL
C(AC)=001000 776777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034724 034724 0   0   324000034725 0            000000034725 
IT1	034724 0      0   0   324000034725 0            000000034725 
AT3	034724 0      0   0   000000034725 0            324000034725 
AT6	034724 034725 0   0   000000034725 0            324000034725 
FT1A	034724 034725 0   0   000000034725 0            000000034725 
FT2	034724 034725 0   0   0            0            000000034725 
FT2RQ	034724 034725 0   0   001000776777 0            000000034725 
FT3	034724 034725 0   0   001000776777 0            000000034725 
FT9	034725 034725 0   0   001000776777 0            000000034725 
ET0	034725 034725 0   0   001000776777 0            000000034725 
ST1A	034725 034725 0   0   001000776777 0            000000034725 
ST9	034725 034725 0   0   001000776777 0            000000034725 


*034725 MOVS 	0,035631
INITIAL
C(AC)=001000 776777 
C(E)=775777 002000 
FINAL
C(AC)=002000 775777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034725 034725 0   0   204000035631 0            775777002000 
IT1	034725 0      0   0   204000035631 0            775777002000 
AT3	034725 0      0   0   000000035631 0            204000035631 
AT6	034725 035631 0   0   000000035631 0            204000035631 
FT0	034725 035631 0   0   775777002000 0            204000035631 
FT1A	034725 035631 0   0   775777002000 0            775777002000 
FT9	034726 035631 0   0   775777002000 0            775777002000 
ET0	034726 035631 0   0   002000775777 0            775777002000 
ST1	034726 035631 0   0   002000775777 0            775777002000 
ST2	034726 035631 0   0   002000775777 0            775777002000 
ST9	034726 035631 0   0   002000775777 0            775777002000 


*034726 CAME	0,035630
INITIAL
C(AC)=002000 775777 
C(E)=002000 775777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034726 034726 0   0   312000035630 0            002000775777 
IT1	034726 0      0   0   312000035630 0            002000775777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 745
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1024

AT3	034726 0      0   0   000000035630 0            312000035630 
AT6	034726 035630 0   0   000000035630 0            312000035630 
FT0	034726 035630 0   0   002000775777 0            312000035630 
FT1A	034726 035630 0   0   002000775777 0            002000775777 
FT2	034726 035630 0   0   0            0            002000775777 
FT2RQ	034726 035630 0   0   002000775777 0            002000775777 
FT3	034726 035630 0   0   002000775777 0            002000775777 
FT9	034727 035630 0   0   002000775777 0            002000775777 
ET0	034730 035630 0   0   0            0            002000775777 
ST1A	034730 035630 0   0   0            0            002000775777 
ST9	034730 035630 0   0   0            0            002000775777 


*034730 JUMPA	0,034731
INITIAL
C(AC)=002000 775777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034730 034730 0   0   324000034731 0            000000034731 
IT1	034730 0      0   0   324000034731 0            000000034731 
AT3	034730 0      0   0   000000034731 0            324000034731 
AT6	034730 034731 0   0   000000034731 0            324000034731 
FT1A	034730 034731 0   0   000000034731 0            000000034731 
FT2	034730 034731 0   0   0            0            000000034731 
FT2RQ	034730 034731 0   0   002000775777 0            000000034731 
FT3	034730 034731 0   0   002000775777 0            000000034731 
FT9	034731 034731 0   0   002000775777 0            000000034731 
ET0	034731 034731 0   0   002000775777 0            000000034731 
ST1A	034731 034731 0   0   002000775777 0            000000034731 
ST9	034731 034731 0   0   002000775777 0            000000034731 


*034731 MOVS 	0,035633
INITIAL
C(AC)=002000 775777 
C(E)=773777 004000 
FINAL
C(AC)=004000 773777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034731 034731 0   0   204000035633 0            773777004000 
IT1	034731 0      0   0   204000035633 0            773777004000 
AT3	034731 0      0   0   000000035633 0            204000035633 
AT6	034731 035633 0   0   000000035633 0            204000035633 
FT0	034731 035633 0   0   773777004000 0            204000035633 
FT1A	034731 035633 0   0   773777004000 0            773777004000 
FT9	034732 035633 0   0   773777004000 0            773777004000 
ET0	034732 035633 0   0   004000773777 0            773777004000 
ST1	034732 035633 0   0   004000773777 0            773777004000 
ST2	034732 035633 0   0   004000773777 0            773777004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 746
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1025

ST9	034732 035633 0   0   004000773777 0            773777004000 


*034732 CAME	0,035632
INITIAL
C(AC)=004000 773777 
C(E)=004000 773777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034732 034732 0   0   312000035632 0            004000773777 
IT1	034732 0      0   0   312000035632 0            004000773777 
AT3	034732 0      0   0   000000035632 0            312000035632 
AT6	034732 035632 0   0   000000035632 0            312000035632 
FT0	034732 035632 0   0   004000773777 0            312000035632 
FT1A	034732 035632 0   0   004000773777 0            004000773777 
FT2	034732 035632 0   0   0            0            004000773777 
FT2RQ	034732 035632 0   0   004000773777 0            004000773777 
FT3	034732 035632 0   0   004000773777 0            004000773777 
FT9	034733 035632 0   0   004000773777 0            004000773777 
ET0	034734 035632 0   0   0            0            004000773777 
ST1A	034734 035632 0   0   0            0            004000773777 
ST9	034734 035632 0   0   0            0            004000773777 


*034734 JUMPA	0,034735
INITIAL
C(AC)=004000 773777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034734 034734 0   0   324000034735 0            000000034735 
IT1	034734 0      0   0   324000034735 0            000000034735 
AT3	034734 0      0   0   000000034735 0            324000034735 
AT6	034734 034735 0   0   000000034735 0            324000034735 
FT1A	034734 034735 0   0   000000034735 0            000000034735 
FT2	034734 034735 0   0   0            0            000000034735 
FT2RQ	034734 034735 0   0   004000773777 0            000000034735 
FT3	034734 034735 0   0   004000773777 0            000000034735 
FT9	034735 034735 0   0   004000773777 0            000000034735 
ET0	034735 034735 0   0   004000773777 0            000000034735 
ST1A	034735 034735 0   0   004000773777 0            000000034735 
ST9	034735 034735 0   0   004000773777 0            000000034735 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 747
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1026

*034735 MOVS 	0,035635
INITIAL
C(AC)=004000 773777 
C(E)=767777 010000 
FINAL
C(AC)=010000 767777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034735 034735 0   0   204000035635 0            767777010000 
IT1	034735 0      0   0   204000035635 0            767777010000 
AT3	034735 0      0   0   000000035635 0            204000035635 
AT6	034735 035635 0   0   000000035635 0            204000035635 
FT0	034735 035635 0   0   767777010000 0            204000035635 
FT1A	034735 035635 0   0   767777010000 0            767777010000 
FT9	034736 035635 0   0   767777010000 0            767777010000 
ET0	034736 035635 0   0   010000767777 0            767777010000 
ST1	034736 035635 0   0   010000767777 0            767777010000 
ST2	034736 035635 0   0   010000767777 0            767777010000 
ST9	034736 035635 0   0   010000767777 0            767777010000 


*034736 CAME	0,035634
INITIAL
C(AC)=010000 767777 
C(E)=010000 767777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034736 034736 0   0   312000035634 0            010000767777 
IT1	034736 0      0   0   312000035634 0            010000767777 
AT3	034736 0      0   0   000000035634 0            312000035634 
AT6	034736 035634 0   0   000000035634 0            312000035634 
FT0	034736 035634 0   0   010000767777 0            312000035634 
FT1A	034736 035634 0   0   010000767777 0            010000767777 
FT2	034736 035634 0   0   0            0            010000767777 
FT2RQ	034736 035634 0   0   010000767777 0            010000767777 
FT3	034736 035634 0   0   010000767777 0            010000767777 
FT9	034737 035634 0   0   010000767777 0            010000767777 
ET0	034740 035634 0   0   0            0            010000767777 
ST1A	034740 035634 0   0   0            0            010000767777 
ST9	034740 035634 0   0   0            0            010000767777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 748
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1027

*034740 JUMPA	0,034741
INITIAL
C(AC)=010000 767777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034740 034740 0   0   324000034741 0            000000034741 
IT1	034740 0      0   0   324000034741 0            000000034741 
AT3	034740 0      0   0   000000034741 0            324000034741 
AT6	034740 034741 0   0   000000034741 0            324000034741 
FT1A	034740 034741 0   0   000000034741 0            000000034741 
FT2	034740 034741 0   0   0            0            000000034741 
FT2RQ	034740 034741 0   0   010000767777 0            000000034741 
FT3	034740 034741 0   0   010000767777 0            000000034741 
FT9	034741 034741 0   0   010000767777 0            000000034741 
ET0	034741 034741 0   0   010000767777 0            000000034741 
ST1A	034741 034741 0   0   010000767777 0            000000034741 
ST9	034741 034741 0   0   010000767777 0            000000034741 


*034741 MOVS 	0,035637
INITIAL
C(AC)=010000 767777 
C(E)=757777 020000 
FINAL
C(AC)=020000 757777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034741 034741 0   0   204000035637 0            757777020000 
IT1	034741 0      0   0   204000035637 0            757777020000 
AT3	034741 0      0   0   000000035637 0            204000035637 
AT6	034741 035637 0   0   000000035637 0            204000035637 
FT0	034741 035637 0   0   757777020000 0            204000035637 
FT1A	034741 035637 0   0   757777020000 0            757777020000 
FT9	034742 035637 0   0   757777020000 0            757777020000 
ET0	034742 035637 0   0   020000757777 0            757777020000 
ST1	034742 035637 0   0   020000757777 0            757777020000 
ST2	034742 035637 0   0   020000757777 0            757777020000 
ST9	034742 035637 0   0   020000757777 0            757777020000 


*034742 CAME	0,035636
INITIAL
C(AC)=020000 757777 
C(E)=020000 757777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034742 034742 0   0   312000035636 0            020000757777 
IT1	034742 0      0   0   312000035636 0            020000757777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 749
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1028

AT3	034742 0      0   0   000000035636 0            312000035636 
AT6	034742 035636 0   0   000000035636 0            312000035636 
FT0	034742 035636 0   0   020000757777 0            312000035636 
FT1A	034742 035636 0   0   020000757777 0            020000757777 
FT2	034742 035636 0   0   0            0            020000757777 
FT2RQ	034742 035636 0   0   020000757777 0            020000757777 
FT3	034742 035636 0   0   020000757777 0            020000757777 
FT9	034743 035636 0   0   020000757777 0            020000757777 
ET0	034744 035636 0   0   0            0            020000757777 
ST1A	034744 035636 0   0   0            0            020000757777 
ST9	034744 035636 0   0   0            0            020000757777 


*034744 JUMPA	0,034745
INITIAL
C(AC)=020000 757777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034744 034744 0   0   324000034745 0            000000034745 
IT1	034744 0      0   0   324000034745 0            000000034745 
AT3	034744 0      0   0   000000034745 0            324000034745 
AT6	034744 034745 0   0   000000034745 0            324000034745 
FT1A	034744 034745 0   0   000000034745 0            000000034745 
FT2	034744 034745 0   0   0            0            000000034745 
FT2RQ	034744 034745 0   0   020000757777 0            000000034745 
FT3	034744 034745 0   0   020000757777 0            000000034745 
FT9	034745 034745 0   0   020000757777 0            000000034745 
ET0	034745 034745 0   0   020000757777 0            000000034745 
ST1A	034745 034745 0   0   020000757777 0            000000034745 
ST9	034745 034745 0   0   020000757777 0            000000034745 


*034745 MOVS 	0,035641
INITIAL
C(AC)=020000 757777 
C(E)=737777 040000 
FINAL
C(AC)=040000 737777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034745 034745 0   0   204000035641 0            737777040000 
IT1	034745 0      0   0   204000035641 0            737777040000 
AT3	034745 0      0   0   000000035641 0            204000035641 
AT6	034745 035641 0   0   000000035641 0            204000035641 
FT0	034745 035641 0   0   737777040000 0            204000035641 
FT1A	034745 035641 0   0   737777040000 0            737777040000 
FT9	034746 035641 0   0   737777040000 0            737777040000 
ET0	034746 035641 0   0   040000737777 0            737777040000 
ST1	034746 035641 0   0   040000737777 0            737777040000 
ST2	034746 035641 0   0   040000737777 0            737777040000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 750
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1029

ST9	034746 035641 0   0   040000737777 0            737777040000 


*034746 CAME	0,035640
INITIAL
C(AC)=040000 737777 
C(E)=040000 737777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034746 034746 0   0   312000035640 0            040000737777 
IT1	034746 0      0   0   312000035640 0            040000737777 
AT3	034746 0      0   0   000000035640 0            312000035640 
AT6	034746 035640 0   0   000000035640 0            312000035640 
FT0	034746 035640 0   0   040000737777 0            312000035640 
FT1A	034746 035640 0   0   040000737777 0            040000737777 
FT2	034746 035640 0   0   0            0            040000737777 
FT2RQ	034746 035640 0   0   040000737777 0            040000737777 
FT3	034746 035640 0   0   040000737777 0            040000737777 
FT9	034747 035640 0   0   040000737777 0            040000737777 
ET0	034750 035640 0   0   0            0            040000737777 
ST1A	034750 035640 0   0   0            0            040000737777 
ST9	034750 035640 0   0   0            0            040000737777 


*034750 JUMPA	0,034751
INITIAL
C(AC)=040000 737777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034750 034750 0   0   324000034751 0            000000034751 
IT1	034750 0      0   0   324000034751 0            000000034751 
AT3	034750 0      0   0   000000034751 0            324000034751 
AT6	034750 034751 0   0   000000034751 0            324000034751 
FT1A	034750 034751 0   0   000000034751 0            000000034751 
FT2	034750 034751 0   0   0            0            000000034751 
FT2RQ	034750 034751 0   0   040000737777 0            000000034751 
FT3	034750 034751 0   0   040000737777 0            000000034751 
FT9	034751 034751 0   0   040000737777 0            000000034751 
ET0	034751 034751 0   0   040000737777 0            000000034751 
ST1A	034751 034751 0   0   040000737777 0            000000034751 
ST9	034751 034751 0   0   040000737777 0            000000034751 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 751
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1030

*034751 MOVS 	0,035643
INITIAL
C(AC)=040000 737777 
C(E)=677777 100000 
FINAL
C(AC)=100000 677777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034751 034751 0   0   204000035643 0            677777100000 
IT1	034751 0      0   0   204000035643 0            677777100000 
AT3	034751 0      0   0   000000035643 0            204000035643 
AT6	034751 035643 0   0   000000035643 0            204000035643 
FT0	034751 035643 0   0   677777100000 0            204000035643 
FT1A	034751 035643 0   0   677777100000 0            677777100000 
FT9	034752 035643 0   0   677777100000 0            677777100000 
ET0	034752 035643 0   0   100000677777 0            677777100000 
ST1	034752 035643 0   0   100000677777 0            677777100000 
ST2	034752 035643 0   0   100000677777 0            677777100000 
ST9	034752 035643 0   0   100000677777 0            677777100000 


*034752 CAME	0,035642
INITIAL
C(AC)=100000 677777 
C(E)=100000 677777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034752 034752 0   0   312000035642 0            100000677777 
IT1	034752 0      0   0   312000035642 0            100000677777 
AT3	034752 0      0   0   000000035642 0            312000035642 
AT6	034752 035642 0   0   000000035642 0            312000035642 
FT0	034752 035642 0   0   100000677777 0            312000035642 
FT1A	034752 035642 0   0   100000677777 0            100000677777 
FT2	034752 035642 0   0   0            0            100000677777 
FT2RQ	034752 035642 0   0   100000677777 0            100000677777 
FT3	034752 035642 0   0   100000677777 0            100000677777 
FT9	034753 035642 0   0   100000677777 0            100000677777 
ET0	034754 035642 0   0   0            0            100000677777 
ST1A	034754 035642 0   0   0            0            100000677777 
ST9	034754 035642 0   0   0            0            100000677777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 752
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1031

*034754 JUMPA	0,034755
INITIAL
C(AC)=100000 677777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034754 034754 0   0   324000034755 0            000000034755 
IT1	034754 0      0   0   324000034755 0            000000034755 
AT3	034754 0      0   0   000000034755 0            324000034755 
AT6	034754 034755 0   0   000000034755 0            324000034755 
FT1A	034754 034755 0   0   000000034755 0            000000034755 
FT2	034754 034755 0   0   0            0            000000034755 
FT2RQ	034754 034755 0   0   100000677777 0            000000034755 
FT3	034754 034755 0   0   100000677777 0            000000034755 
FT9	034755 034755 0   0   100000677777 0            000000034755 
ET0	034755 034755 0   0   100000677777 0            000000034755 
ST1A	034755 034755 0   0   100000677777 0            000000034755 
ST9	034755 034755 0   0   100000677777 0            000000034755 


*034755 MOVS 	0,035645
INITIAL
C(AC)=100000 677777 
C(E)=577777 200000 
FINAL
C(AC)=200000 577777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034755 034755 0   0   204000035645 0            577777200000 
IT1	034755 0      0   0   204000035645 0            577777200000 
AT3	034755 0      0   0   000000035645 0            204000035645 
AT6	034755 035645 0   0   000000035645 0            204000035645 
FT0	034755 035645 0   0   577777200000 0            204000035645 
FT1A	034755 035645 0   0   577777200000 0            577777200000 
FT9	034756 035645 0   0   577777200000 0            577777200000 
ET0	034756 035645 0   0   200000577777 0            577777200000 
ST1	034756 035645 0   0   200000577777 0            577777200000 
ST2	034756 035645 0   0   200000577777 0            577777200000 
ST9	034756 035645 0   0   200000577777 0            577777200000 


*034756 CAME	0,035644
INITIAL
C(AC)=200000 577777 
C(E)=200000 577777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034756 034756 0   0   312000035644 0            200000577777 
IT1	034756 0      0   0   312000035644 0            200000577777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 753
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1032

AT3	034756 0      0   0   000000035644 0            312000035644 
AT6	034756 035644 0   0   000000035644 0            312000035644 
FT0	034756 035644 0   0   200000577777 0            312000035644 
FT1A	034756 035644 0   0   200000577777 0            200000577777 
FT2	034756 035644 0   0   0            0            200000577777 
FT2RQ	034756 035644 0   0   200000577777 0            200000577777 
FT3	034756 035644 0   0   200000577777 0            200000577777 
FT9	034757 035644 0   0   200000577777 0            200000577777 
ET0	034760 035644 0   0   0            0            200000577777 
ST1A	034760 035644 0   0   0            0            200000577777 
ST9	034760 035644 0   0   0            0            200000577777 


*034760 JUMPA	0,034761
INITIAL
C(AC)=200000 577777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034760 034760 0   0   324000034761 0            000000034761 
IT1	034760 0      0   0   324000034761 0            000000034761 
AT3	034760 0      0   0   000000034761 0            324000034761 
AT6	034760 034761 0   0   000000034761 0            324000034761 
FT1A	034760 034761 0   0   000000034761 0            000000034761 
FT2	034760 034761 0   0   0            0            000000034761 
FT2RQ	034760 034761 0   0   200000577777 0            000000034761 
FT3	034760 034761 0   0   200000577777 0            000000034761 
FT9	034761 034761 0   0   200000577777 0            000000034761 
ET0	034761 034761 0   0   200000577777 0            000000034761 
ST1A	034761 034761 0   0   200000577777 0            000000034761 
ST9	034761 034761 0   0   200000577777 0            000000034761 


*034761 MOVS 	0,035647
INITIAL
C(AC)=200000 577777 
C(E)=377777 400000 
FINAL
C(AC)=400000 377777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034761 034761 0   0   204000035647 0            377777400000 
IT1	034761 0      0   0   204000035647 0            377777400000 
AT3	034761 0      0   0   000000035647 0            204000035647 
AT6	034761 035647 0   0   000000035647 0            204000035647 
FT0	034761 035647 0   0   377777400000 0            204000035647 
FT1A	034761 035647 0   0   377777400000 0            377777400000 
FT9	034762 035647 0   0   377777400000 0            377777400000 
ET0	034762 035647 0   0   400000377777 0            377777400000 
ST1	034762 035647 0   0   400000377777 0            377777400000 
ST2	034762 035647 0   0   400000377777 0            377777400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 754
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1033

ST9	034762 035647 0   0   400000377777 0            377777400000 


*034762 CAME	0,035646
INITIAL
C(AC)=400000 377777 
C(E)=400000 377777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034762 034762 0   0   312000035646 0            400000377777 
IT1	034762 0      0   0   312000035646 0            400000377777 
AT3	034762 0      0   0   000000035646 0            312000035646 
AT6	034762 035646 0   0   000000035646 0            312000035646 
FT0	034762 035646 0   0   400000377777 0            312000035646 
FT1A	034762 035646 0   0   400000377777 0            400000377777 
FT2	034762 035646 0   0   0            0            400000377777 
FT2RQ	034762 035646 0   0   400000377777 0            400000377777 
FT3	034762 035646 0   0   400000377777 0            400000377777 
FT9	034763 035646 0   0   400000377777 0            400000377777 
ET0	034764 035646 0   0   0            0            400000377777 
ST1A	034764 035646 0   0   0            0            400000377777 
ST9	034764 035646 0   0   0            0            400000377777 


*034764 JUMPA	0,034765
INITIAL
C(AC)=400000 377777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034764 034764 0   0   324000034765 0            000000034765 
IT1	034764 0      0   0   324000034765 0            000000034765 
AT3	034764 0      0   0   000000034765 0            324000034765 
AT6	034764 034765 0   0   000000034765 0            324000034765 
FT1A	034764 034765 0   0   000000034765 0            000000034765 
FT2	034764 034765 0   0   0            0            000000034765 
FT2RQ	034764 034765 0   0   400000377777 0            000000034765 
FT3	034764 034765 0   0   400000377777 0            000000034765 
FT9	034765 034765 0   0   400000377777 0            000000034765 
ET0	034765 034765 0   0   400000377777 0            000000034765 
ST1A	034765 034765 0   0   400000377777 0            000000034765 
ST9	034765 034765 0   0   400000377777 0            000000034765 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 755
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1034

*034765 SETZ 	0,000000
INITIAL
C(AC)=400000 377777 
C(E)=400000 377777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034765 034765 0   0   400000000000 0            0            
IT1	034765 0      0   0   400000000000 0            0            
AT3	034765 0      0   0   0            0            400000000000 
AT6	034765 0      0   0   0            0            400000000000 
FT1A	034765 0      0   0   0            0            0            
FT9	034766 0      0   0   0            0            0            
ET0	034766 0      0   0   0            0            0            
ST1	034766 0      0   0   0            0            0            
ST2	034766 0      0   0   0            0            0            
ST9	034766 0      0   0   0            0            0            


*034766 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034766 034766 0   0   302000000000 0            0            
IT1	034766 0      0   0   302000000000 0            0            
AT3	034766 0      0   0   0            0            302000000000 
AT6	034766 0      0   0   0            0            302000000000 
FT1A	034766 0      0   0   0            0            0            
FT2	034766 0      0   0   0            0            0            
FT2RQ	034766 0      0   0   0            0            0            
FT3	034766 0      0   0   0            0            0            
FT9	034767 0      0   0   0            0            0            
ET0	034770 0      0   0   0            0            0            
ST1A	034770 0      0   0   0            0            0            
ST9	034770 0      0   0   0            0            0            


*034770 JUMPA	0,034771
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034770 034770 0   0   324000034771 0            000000034771 
IT1	034770 0      0   0   324000034771 0            000000034771 
AT3	034770 0      0   0   000000034771 0            324000034771 
AT6	034770 034771 0   0   000000034771 0            324000034771 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 756
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1035

FT1A	034770 034771 0   0   000000034771 0            000000034771 
FT2	034770 034771 0   0   0            0            000000034771 
FT2RQ	034770 034771 0   0   0            0            000000034771 
FT3	034770 034771 0   0   0            0            000000034771 
FT9	034771 034771 0   0   0            0            000000034771 
ET0	034771 034771 0   0   0            0            000000034771 
ST1A	034771 034771 0   0   0            0            000000034771 
ST9	034771 034771 0   0   0            0            000000034771 


*034771 MOVE 	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034771 034771 0   0   200000035416 0            000000000001 
IT1	034771 0      0   0   200000035416 0            000000000001 
AT3	034771 0      0   0   000000035416 0            200000035416 
AT6	034771 035416 0   0   000000035416 0            200000035416 
FT0	034771 035416 0   0   000000000001 0            200000035416 
FT1A	034771 035416 0   0   000000000001 0            000000000001 
FT9	034772 035416 0   0   000000000001 0            000000000001 
ET0	034772 035416 0   0   000000000001 0            000000000001 
ST1	034772 035416 0   0   000000000001 0            000000000001 
ST2	034772 035416 0   0   000000000001 0            000000000001 
ST9	034772 035416 0   0   000000000001 0            000000000001 


*034772 CAIE	0,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034772 034772 0   0   302000000001 0            000000000001 
IT1	034772 0      0   0   302000000001 0            000000000001 
AT3	034772 0      0   0   000000000001 0            302000000001 
AT6	034772 000001 0   0   000000000001 0            302000000001 
FT1A	034772 000001 0   0   000000000001 0            000000000001 
FT2	034772 000001 0   0   0            0            000000000001 
FT2RQ	034772 000001 0   0   000000000001 0            000000000001 
FT3	034772 000001 0   0   000000000001 0            000000000001 
FT9	034773 000001 0   0   000000000001 0            000000000001 
ET0	034774 000001 0   0   0            0            000000000001 
ST1A	034774 000001 0   0   0            0            000000000001 
ST9	034774 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 757
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1036

*034774 JUMPA	0,034775
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034774 034774 0   0   324000034775 0            000000034775 
IT1	034774 0      0   0   324000034775 0            000000034775 
AT3	034774 0      0   0   000000034775 0            324000034775 
AT6	034774 034775 0   0   000000034775 0            324000034775 
FT1A	034774 034775 0   0   000000034775 0            000000034775 
FT2	034774 034775 0   0   0            0            000000034775 
FT2RQ	034774 034775 0   0   000000000001 0            000000034775 
FT3	034774 034775 0   0   000000000001 0            000000034775 
FT9	034775 034775 0   0   000000000001 0            000000034775 
ET0	034775 034775 0   0   000000000001 0            000000034775 
ST1A	034775 034775 0   0   000000000001 0            000000034775 
ST9	034775 034775 0   0   000000000001 0            000000034775 


*034775 MOVEI	0,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034775 034775 0   0   201000000001 0            000000000001 
IT1	034775 0      0   0   201000000001 0            000000000001 
AT3	034775 0      0   0   000000000001 0            201000000001 
AT6	034775 000001 0   0   000000000001 0            201000000001 
FT1A	034775 000001 0   0   000000000001 0            000000000001 
FT9	034776 000001 0   0   000000000001 0            000000000001 
ET0	034776 000001 0   0   000000000001 0            000000000001 
ST1	034776 000001 0   0   000000000001 0            000000000001 
ST2	034776 000001 0   0   000000000001 0            000000000001 
ST9	034776 000001 0   0   000000000001 0            000000000001 


*034776 CAME	0,035416
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034776 034776 0   0   312000035416 0            000000000001 
IT1	034776 0      0   0   312000035416 0            000000000001 
AT3	034776 0      0   0   000000035416 0            312000035416 
AT6	034776 035416 0   0   000000035416 0            312000035416 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 758
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1037

FT0	034776 035416 0   0   000000000001 0            312000035416 
FT1A	034776 035416 0   0   000000000001 0            000000000001 
FT2	034776 035416 0   0   0            0            000000000001 
FT2RQ	034776 035416 0   0   000000000001 0            000000000001 
FT3	034776 035416 0   0   000000000001 0            000000000001 
FT9	034777 035416 0   0   000000000001 0            000000000001 
ET0	0      035416 0   0   0            0            000000000001 
ST1A	0      035416 0   0   0            0            000000000001 
ST9	0      035416 0   0   0            0            000000000001 


*035000 JUMPA	0,035001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000035001 0            000000035001 
IT1	0      0      0   0   324000035001 0            000000035001 
AT3	0      0      0   0   000000035001 0            324000035001 
AT6	0      035001 0   0   000000035001 0            324000035001 
FT1A	0      035001 0   0   000000035001 0            000000035001 
FT2	0      035001 0   0   0            0            000000035001 
FT2RQ	0      035001 0   0   000000000001 0            000000035001 
FT3	0      035001 0   0   000000000001 0            000000035001 
FT9	035001 035001 0   0   000000000001 0            000000035001 
ET0	035001 035001 0   0   000000000001 0            000000035001 
ST1A	035001 035001 0   0   000000000001 0            000000035001 
ST9	035001 035001 0   0   000000000001 0            000000035001 


*035001 MOVEI	0,777777
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035001 035001 0   0   201000777777 0            000000777777 
IT1	035001 0      0   0   201000777777 0            000000777777 
AT3	035001 0      0   0   000000777777 0            201000777777 
AT6	035001 777777 0   0   000000777777 0            201000777777 
FT1A	035001 777777 0   0   000000777777 0            000000777777 
FT9	035002 777777 0   0   000000777777 0            000000777777 
ET0	035002 777777 0   0   000000777777 0            000000777777 
ST1	035002 777777 0   0   000000777777 0            000000777777 
ST2	035002 777777 0   0   000000777777 0            000000777777 
ST9	035002 777777 0   0   000000777777 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 759
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1038

*035002 SETCA 	0,035524
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035002 035002 0   0   450000035524 0            000000035524 
IT1	035002 0      0   0   450000035524 0            000000035524 
AT3	035002 0      0   0   000000035524 0            450000035524 
AT6	035002 035524 0   0   000000035524 0            450000035524 
FT1A	035002 035524 0   0   000000035524 0            000000035524 
FT2	035002 035524 0   0   0            0            000000035524 
FT2RQ	035002 035524 0   0   000000777777 0            000000035524 
FT3	035002 035524 0   0   000000777777 0            000000035524 
FT9	035003 035524 0   0   000000777777 0            000000035524 
ET0	035003 035524 0   0   777777000000 0            000000035524 
ST1	035003 035524 0   0   777777000000 0            000000035524 
ST2	035003 035524 0   0   777777000000 0            000000035524 
ST9	035003 035524 0   0   777777000000 0            000000035524 


*035003 CAME	0,035502
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035003 035003 0   0   312000035502 0            777777000000 
IT1	035003 0      0   0   312000035502 0            777777000000 
AT3	035003 0      0   0   000000035502 0            312000035502 
AT6	035003 035502 0   0   000000035502 0            312000035502 
FT0	035003 035502 0   0   777777000000 0            312000035502 
FT1A	035003 035502 0   0   777777000000 0            777777000000 
FT2	035003 035502 0   0   0            0            777777000000 
FT2RQ	035003 035502 0   0   777777000000 0            777777000000 
FT3	035003 035502 0   0   777777000000 0            777777000000 
FT9	035004 035502 0   0   777777000000 0            777777000000 
ET0	035005 035502 0   0   0            0            777777000000 
ST1A	035005 035502 0   0   0            0            777777000000 
ST9	035005 035502 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 760
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1039

*035005 JUMPA	0,035006
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035005 035005 0   0   324000035006 0            000000035006 
IT1	035005 0      0   0   324000035006 0            000000035006 
AT3	035005 0      0   0   000000035006 0            324000035006 
AT6	035005 035006 0   0   000000035006 0            324000035006 
FT1A	035005 035006 0   0   000000035006 0            000000035006 
FT2	035005 035006 0   0   0            0            000000035006 
FT2RQ	035005 035006 0   0   777777000000 0            000000035006 
FT3	035005 035006 0   0   777777000000 0            000000035006 
FT9	035006 035006 0   0   777777000000 0            000000035006 
ET0	035006 035006 0   0   777777000000 0            000000035006 
ST1A	035006 035006 0   0   777777000000 0            000000035006 
ST9	035006 035006 0   0   777777000000 0            000000035006 


*035006 MOVEI	0,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035006 035006 0   0   201000777777 0            000000777777 
IT1	035006 0      0   0   201000777777 0            000000777777 
AT3	035006 0      0   0   000000777777 0            201000777777 
AT6	035006 777777 0   0   000000777777 0            201000777777 
FT1A	035006 777777 0   0   000000777777 0            000000777777 
FT9	035007 777777 0   0   000000777777 0            000000777777 
ET0	035007 777777 0   0   000000777777 0            000000777777 
ST1	035007 777777 0   0   000000777777 0            000000777777 
ST2	035007 777777 0   0   000000777777 0            000000777777 
ST9	035007 777777 0   0   000000777777 0            000000777777 


*035007 SETCA 	0,000000
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035007 035007 0   0   450000000000 0            0            
IT1	035007 0      0   0   450000000000 0            0            
AT3	035007 0      0   0   0            0            450000000000 
AT6	035007 0      0   0   0            0            450000000000 
FT1A	035007 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 761
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1040

FT2	035007 0      0   0   0            0            0            
FT2RQ	035007 0      0   0   000000777777 0            0            
FT3	035007 0      0   0   000000777777 0            0            
FT9	035010 0      0   0   000000777777 0            0            
ET0	035010 0      0   0   777777000000 0            0            
ST1	035010 0      0   0   777777000000 0            0            
ST2	035010 0      0   0   777777000000 0            0            
ST9	035010 0      0   0   777777000000 0            0            


*035010 CAME	0,035502
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035010 035010 0   0   312000035502 0            777777000000 
IT1	035010 0      0   0   312000035502 0            777777000000 
AT3	035010 0      0   0   000000035502 0            312000035502 
AT6	035010 035502 0   0   000000035502 0            312000035502 
FT0	035010 035502 0   0   777777000000 0            312000035502 
FT1A	035010 035502 0   0   777777000000 0            777777000000 
FT2	035010 035502 0   0   0            0            777777000000 
FT2RQ	035010 035502 0   0   777777000000 0            777777000000 
FT3	035010 035502 0   0   777777000000 0            777777000000 
FT9	035011 035502 0   0   777777000000 0            777777000000 
ET0	035012 035502 0   0   0            0            777777000000 
ST1A	035012 035502 0   0   0            0            777777000000 
ST9	035012 035502 0   0   0            0            777777000000 


*035012 JUMPA	0,035013
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035012 035012 0   0   324000035013 0            000000035013 
IT1	035012 0      0   0   324000035013 0            000000035013 
AT3	035012 0      0   0   000000035013 0            324000035013 
AT6	035012 035013 0   0   000000035013 0            324000035013 
FT1A	035012 035013 0   0   000000035013 0            000000035013 
FT2	035012 035013 0   0   0            0            000000035013 
FT2RQ	035012 035013 0   0   777777000000 0            000000035013 
FT3	035012 035013 0   0   777777000000 0            000000035013 
FT9	035013 035013 0   0   777777000000 0            000000035013 
ET0	035013 035013 0   0   777777000000 0            000000035013 
ST1A	035013 035013 0   0   777777000000 0            000000035013 
ST9	035013 035013 0   0   777777000000 0            000000035013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 762
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1041



*035013 MOVEI	0,000000
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035013 035013 0   0   201000000000 0            0            
IT1	035013 0      0   0   201000000000 0            0            
AT3	035013 0      0   0   0            0            201000000000 
AT6	035013 0      0   0   0            0            201000000000 
FT1A	035013 0      0   0   0            0            0            
FT9	035014 0      0   0   0            0            0            
ET0	035014 0      0   0   0            0            0            
ST1	035014 0      0   0   0            0            0            
ST2	035014 0      0   0   0            0            0            
ST9	035014 0      0   0   0            0            0            


*035014 SETCA 	0,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035014 035014 0   0   450000000000 0            0            
IT1	035014 0      0   0   450000000000 0            0            
AT3	035014 0      0   0   0            0            450000000000 
AT6	035014 0      0   0   0            0            450000000000 
FT1A	035014 0      0   0   0            0            0            
FT2	035014 0      0   0   0            0            0            
FT2RQ	035014 0      0   0   0            0            0            
FT3	035014 0      0   0   0            0            0            
FT9	035015 0      0   0   0            0            0            
ET0	035015 0      0   0   777777777777 0            0            
ST1	035015 0      0   0   777777777777 0            0            
ST2	035015 0      0   0   777777777777 0            0            
ST9	035015 0      0   0   777777777777 0            0            


*035015 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035015 035015 0   0   312000035524 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 763
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1042

IT1	035015 0      0   0   312000035524 0            777777777777 
AT3	035015 0      0   0   000000035524 0            312000035524 
AT6	035015 035524 0   0   000000035524 0            312000035524 
FT0	035015 035524 0   0   777777777777 0            312000035524 
FT1A	035015 035524 0   0   777777777777 0            777777777777 
FT2	035015 035524 0   0   0            0            777777777777 
FT2RQ	035015 035524 0   0   777777777777 0            777777777777 
FT3	035015 035524 0   0   777777777777 0            777777777777 
FT9	035016 035524 0   0   777777777777 0            777777777777 
ET0	035017 035524 0   0   0            0            777777777777 
ST1A	035017 035524 0   0   0            0            777777777777 
ST9	035017 035524 0   0   0            0            777777777777 


*035017 JUMPA	0,035020
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035017 035017 0   0   324000035020 0            000000035020 
IT1	035017 0      0   0   324000035020 0            000000035020 
AT3	035017 0      0   0   000000035020 0            324000035020 
AT6	035017 035020 0   0   000000035020 0            324000035020 
FT1A	035017 035020 0   0   000000035020 0            000000035020 
FT2	035017 035020 0   0   0            0            000000035020 
FT2RQ	035017 035020 0   0   777777777777 0            000000035020 
FT3	035017 035020 0   0   777777777777 0            000000035020 
FT9	035020 035020 0   0   777777777777 0            000000035020 
ET0	035020 035020 0   0   777777777777 0            000000035020 
ST1A	035020 035020 0   0   777777777777 0            000000035020 
ST9	035020 035020 0   0   777777777777 0            000000035020 


*035020 MOVE 	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035020 035020 0   0   200000035524 0            777777777777 
IT1	035020 0      0   0   200000035524 0            777777777777 
AT3	035020 0      0   0   000000035524 0            200000035524 
AT6	035020 035524 0   0   000000035524 0            200000035524 
FT0	035020 035524 0   0   777777777777 0            200000035524 
FT1A	035020 035524 0   0   777777777777 0            777777777777 
FT9	035021 035524 0   0   777777777777 0            777777777777 
ET0	035021 035524 0   0   777777777777 0            777777777777 
ST1	035021 035524 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 764
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1043

ST2	035021 035524 0   0   777777777777 0            777777777777 
ST9	035021 035524 0   0   777777777777 0            777777777777 


*035021 SETCA 	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035021 035021 0   0   450000000000 0            0            
IT1	035021 0      0   0   450000000000 0            0            
AT3	035021 0      0   0   0            0            450000000000 
AT6	035021 0      0   0   0            0            450000000000 
FT1A	035021 0      0   0   0            0            0            
FT2	035021 0      0   0   0            0            0            
FT2RQ	035021 0      0   0   777777777777 0            0            
FT3	035021 0      0   0   777777777777 0            0            
FT9	035022 0      0   0   777777777777 0            0            
ET0	035022 0      0   0   0            0            0            
ST1	035022 0      0   0   0            0            0            
ST2	035022 0      0   0   0            0            0            
ST9	035022 0      0   0   0            0            0            


*035022 CAME	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035022 035022 0   0   312000035412 0            0            
IT1	035022 0      0   0   312000035412 0            0            
AT3	035022 0      0   0   000000035412 0            312000035412 
AT6	035022 035412 0   0   000000035412 0            312000035412 
FT0	035022 035412 0   0   0            0            312000035412 
FT1A	035022 035412 0   0   0            0            0            
FT2	035022 035412 0   0   0            0            0            
FT2RQ	035022 035412 0   0   0            0            0            
FT3	035022 035412 0   0   0            0            0            
FT9	035023 035412 0   0   0            0            0            
ET0	035024 035412 0   0   0            0            0            
ST1A	035024 035412 0   0   0            0            0            
ST9	035024 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 765
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1044

*035024 JUMPA	0,035025
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035024 035024 0   0   324000035025 0            000000035025 
IT1	035024 0      0   0   324000035025 0            000000035025 
AT3	035024 0      0   0   000000035025 0            324000035025 
AT6	035024 035025 0   0   000000035025 0            324000035025 
FT1A	035024 035025 0   0   000000035025 0            000000035025 
FT2	035024 035025 0   0   0            0            000000035025 
FT2RQ	035024 035025 0   0   0            0            000000035025 
FT3	035024 035025 0   0   0            0            000000035025 
FT9	035025 035025 0   0   0            0            000000035025 
ET0	035025 035025 0   0   0            0            000000035025 
ST1A	035025 035025 0   0   0            0            000000035025 
ST9	035025 035025 0   0   0            0            000000035025 


*035025 MOVEI	0,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035025 035025 0   0   201000777777 0            000000777777 
IT1	035025 0      0   0   201000777777 0            000000777777 
AT3	035025 0      0   0   000000777777 0            201000777777 
AT6	035025 777777 0   0   000000777777 0            201000777777 
FT1A	035025 777777 0   0   000000777777 0            000000777777 
FT9	035026 777777 0   0   000000777777 0            000000777777 
ET0	035026 777777 0   0   000000777777 0            000000777777 
ST1	035026 777777 0   0   000000777777 0            000000777777 
ST2	035026 777777 0   0   000000777777 0            000000777777 
ST9	035026 777777 0   0   000000777777 0            000000777777 


*035026 SETCM 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035026 035026 0   0   460000000000 0            000000777777 
IT1	035026 0      0   0   460000000000 0            000000777777 
AT3	035026 0      0   0   0            0            460000000000 
AT6	035026 0      0   0   0            0            460000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 766
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1045

FT0	035026 0      0   0   000000777777 0            460000000000 
FT1A	035026 0      0   0   000000777777 0            000000777777 
FT9	035027 0      0   0   000000777777 0            000000777777 
ET0	035027 0      0   0   777777000000 0            000000777777 
ST1	035027 0      0   0   777777000000 0            000000777777 
ST2	035027 0      0   0   777777000000 0            000000777777 
ST9	035027 0      0   0   777777000000 0            000000777777 


*035027 CAME	0,035502
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035027 035027 0   0   312000035502 0            777777000000 
IT1	035027 0      0   0   312000035502 0            777777000000 
AT3	035027 0      0   0   000000035502 0            312000035502 
AT6	035027 035502 0   0   000000035502 0            312000035502 
FT0	035027 035502 0   0   777777000000 0            312000035502 
FT1A	035027 035502 0   0   777777000000 0            777777000000 
FT2	035027 035502 0   0   0            0            777777000000 
FT2RQ	035027 035502 0   0   777777000000 0            777777000000 
FT3	035027 035502 0   0   777777000000 0            777777000000 
FT9	035030 035502 0   0   777777000000 0            777777000000 
ET0	035031 035502 0   0   0            0            777777000000 
ST1A	035031 035502 0   0   0            0            777777000000 
ST9	035031 035502 0   0   0            0            777777000000 


*035031 JUMPA	0,035032
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035031 035031 0   0   324000035032 0            000000035032 
IT1	035031 0      0   0   324000035032 0            000000035032 
AT3	035031 0      0   0   000000035032 0            324000035032 
AT6	035031 035032 0   0   000000035032 0            324000035032 
FT1A	035031 035032 0   0   000000035032 0            000000035032 
FT2	035031 035032 0   0   0            0            000000035032 
FT2RQ	035031 035032 0   0   777777000000 0            000000035032 
FT3	035031 035032 0   0   777777000000 0            000000035032 
FT9	035032 035032 0   0   777777000000 0            000000035032 
ET0	035032 035032 0   0   777777000000 0            000000035032 
ST1A	035032 035032 0   0   777777000000 0            000000035032 
ST9	035032 035032 0   0   777777000000 0            000000035032 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 767
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1046


*035032 SETCM 	0,035524
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035032 035032 0   0   460000035524 0            777777777777 
IT1	035032 0      0   0   460000035524 0            777777777777 
AT3	035032 0      0   0   000000035524 0            460000035524 
AT6	035032 035524 0   0   000000035524 0            460000035524 
FT0	035032 035524 0   0   777777777777 0            460000035524 
FT1A	035032 035524 0   0   777777777777 0            777777777777 
FT9	035033 035524 0   0   777777777777 0            777777777777 
ET0	035033 035524 0   0   0            0            777777777777 
ST1	035033 035524 0   0   0            0            777777777777 
ST2	035033 035524 0   0   0            0            777777777777 
ST9	035033 035524 0   0   0            0            777777777777 


*035033 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035033 035033 0   0   332000000000 0            0            
IT1	035033 0      0   0   332000000000 0            0            
AT3	035033 0      0   0   0            0            332000000000 
AT6	035033 0      0   0   0            0            332000000000 
FT0	035033 0      0   0   0            0            332000000000 
FT1A	035033 0      0   0   0            0            0            
FT9	035034 0      0   0   0            0            0            
ET0	035035 0      0   0   0            0            0            
ST1A	035035 0      0   0   0            0            0            
ST9	035035 0      0   0   0            0            0            


*035035 JUMPA	0,035036
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035035 035035 0   0   324000035036 0            000000035036 
IT1	035035 0      0   0   324000035036 0            000000035036 
AT3	035035 0      0   0   000000035036 0            324000035036 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 768
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1047

AT6	035035 035036 0   0   000000035036 0            324000035036 
FT1A	035035 035036 0   0   000000035036 0            000000035036 
FT2	035035 035036 0   0   0            0            000000035036 
FT2RQ	035035 035036 0   0   0            0            000000035036 
FT3	035035 035036 0   0   0            0            000000035036 
FT9	035036 035036 0   0   0            0            000000035036 
ET0	035036 035036 0   0   0            0            000000035036 
ST1A	035036 035036 0   0   0            0            000000035036 
ST9	035036 035036 0   0   0            0            000000035036 


*035036 SETCM 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035036 035036 0   0   460000035412 0            0            
IT1	035036 0      0   0   460000035412 0            0            
AT3	035036 0      0   0   000000035412 0            460000035412 
AT6	035036 035412 0   0   000000035412 0            460000035412 
FT0	035036 035412 0   0   0            0            460000035412 
FT1A	035036 035412 0   0   0            0            0            
FT9	035037 035412 0   0   0            0            0            
ET0	035037 035412 0   0   777777777777 0            0            
ST1	035037 035412 0   0   777777777777 0            0            
ST2	035037 035412 0   0   777777777777 0            0            
ST9	035037 035412 0   0   777777777777 0            0            


*035037 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035037 035037 0   0   312000035524 0            777777777777 
IT1	035037 0      0   0   312000035524 0            777777777777 
AT3	035037 0      0   0   000000035524 0            312000035524 
AT6	035037 035524 0   0   000000035524 0            312000035524 
FT0	035037 035524 0   0   777777777777 0            312000035524 
FT1A	035037 035524 0   0   777777777777 0            777777777777 
FT2	035037 035524 0   0   0            0            777777777777 
FT2RQ	035037 035524 0   0   777777777777 0            777777777777 
FT3	035037 035524 0   0   777777777777 0            777777777777 
FT9	035040 035524 0   0   777777777777 0            777777777777 
ET0	035041 035524 0   0   0            0            777777777777 
ST1A	035041 035524 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 769
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1048

ST9	035041 035524 0   0   0            0            777777777777 


*035041 JUMPA	0,035042
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035041 035041 0   0   324000035042 0            000000035042 
IT1	035041 0      0   0   324000035042 0            000000035042 
AT3	035041 0      0   0   000000035042 0            324000035042 
AT6	035041 035042 0   0   000000035042 0            324000035042 
FT1A	035041 035042 0   0   000000035042 0            000000035042 
FT2	035041 035042 0   0   0            0            000000035042 
FT2RQ	035041 035042 0   0   777777777777 0            000000035042 
FT3	035041 035042 0   0   777777777777 0            000000035042 
FT9	035042 035042 0   0   777777777777 0            000000035042 
ET0	035042 035042 0   0   777777777777 0            000000035042 
ST1A	035042 035042 0   0   777777777777 0            000000035042 
ST9	035042 035042 0   0   777777777777 0            000000035042 


*035042 MOVEI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035042 035042 0   0   201000000000 0            0            
IT1	035042 0      0   0   201000000000 0            0            
AT3	035042 0      0   0   0            0            201000000000 
AT6	035042 0      0   0   0            0            201000000000 
FT1A	035042 0      0   0   0            0            0            
FT9	035043 0      0   0   0            0            0            
ET0	035043 0      0   0   0            0            0            
ST1	035043 0      0   0   0            0            0            
ST2	035043 0      0   0   0            0            0            
ST9	035043 0      0   0   0            0            0            


*035043 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035043 035043 0   0   474000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 770
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1049

IT1	035043 0      0   0   474000000000 0            0            
AT3	035043 0      0   0   0            0            474000000000 
AT6	035043 0      0   0   0            0            474000000000 
FT1A	035043 0      0   0   0            0            0            
FT9	035044 0      0   0   0            0            0            
ET0	035044 0      0   0   777777777777 0            0            
ST1	035044 0      0   0   777777777777 0            0            
ST2	035044 0      0   0   777777777777 0            0            
ST9	035044 0      0   0   777777777777 0            0            


*035044 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035044 035044 0   0   312000035524 0            777777777777 
IT1	035044 0      0   0   312000035524 0            777777777777 
AT3	035044 0      0   0   000000035524 0            312000035524 
AT6	035044 035524 0   0   000000035524 0            312000035524 
FT0	035044 035524 0   0   777777777777 0            312000035524 
FT1A	035044 035524 0   0   777777777777 0            777777777777 
FT2	035044 035524 0   0   0            0            777777777777 
FT2RQ	035044 035524 0   0   777777777777 0            777777777777 
FT3	035044 035524 0   0   777777777777 0            777777777777 
FT9	035045 035524 0   0   777777777777 0            777777777777 
ET0	035046 035524 0   0   0            0            777777777777 
ST1A	035046 035524 0   0   0            0            777777777777 
ST9	035046 035524 0   0   0            0            777777777777 


*035046 JUMPA	0,035047
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035046 035046 0   0   324000035047 0            000000035047 
IT1	035046 0      0   0   324000035047 0            000000035047 
AT3	035046 0      0   0   000000035047 0            324000035047 
AT6	035046 035047 0   0   000000035047 0            324000035047 
FT1A	035046 035047 0   0   000000035047 0            000000035047 
FT2	035046 035047 0   0   0            0            000000035047 
FT2RQ	035046 035047 0   0   777777777777 0            000000035047 
FT3	035046 035047 0   0   777777777777 0            000000035047 
FT9	035047 035047 0   0   777777777777 0            000000035047 
ET0	035047 035047 0   0   777777777777 0            000000035047 
ST1A	035047 035047 0   0   777777777777 0            000000035047 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 771
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1050

ST9	035047 035047 0   0   777777777777 0            000000035047 


*035047 MOVEI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035047 035047 0   0   201000000000 0            0            
IT1	035047 0      0   0   201000000000 0            0            
AT3	035047 0      0   0   0            0            201000000000 
AT6	035047 0      0   0   0            0            201000000000 
FT1A	035047 0      0   0   0            0            0            
FT9	035050 0      0   0   0            0            0            
ET0	035050 0      0   0   0            0            0            
ST1	035050 0      0   0   0            0            0            
ST2	035050 0      0   0   0            0            0            
ST9	035050 0      0   0   0            0            0            


*035050 ORCM 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035050 035050 0   0   464000000000 0            0            
IT1	035050 0      0   0   464000000000 0            0            
AT3	035050 0      0   0   0            0            464000000000 
AT6	035050 0      0   0   0            0            464000000000 
FT0	035050 0      0   0   0            0            464000000000 
FT1A	035050 0      0   0   0            0            0            
FT2	035050 0      0   0   0            0            0            
FT2RQ	035050 0      0   0   0            0            0            
FT3	035050 0      0   0   0            0            0            
FT9	035051 0      0   0   0            0            0            
ET0	035051 0      0   0   777777777777 0            0            
ST1	035051 0      0   0   777777777777 0            0            
ST2	035051 0      0   0   777777777777 0            0            
ST9	035051 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 772
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1051

*035051 SKIPN	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035051 035051 0   0   336000000000 0            777777777777 
IT1	035051 0      0   0   336000000000 0            777777777777 
AT3	035051 0      0   0   0            0            336000000000 
AT6	035051 0      0   0   0            0            336000000000 
FT0	035051 0      0   0   777777777777 0            336000000000 
FT1A	035051 0      0   0   777777777777 0            777777777777 
FT9	035052 0      0   0   777777777777 0            777777777777 
ET0	035053 0      0   0   777777777777 0            777777777777 
ST1A	035053 0      0   0   777777777777 0            777777777777 
ST9	035053 0      0   0   777777777777 0            777777777777 


*035053 JUMPA	0,035054
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035053 035053 0   0   324000035054 0            000000035054 
IT1	035053 0      0   0   324000035054 0            000000035054 
AT3	035053 0      0   0   000000035054 0            324000035054 
AT6	035053 035054 0   0   000000035054 0            324000035054 
FT1A	035053 035054 0   0   000000035054 0            000000035054 
FT2	035053 035054 0   0   0            0            000000035054 
FT2RQ	035053 035054 0   0   777777777777 0            000000035054 
FT3	035053 035054 0   0   777777777777 0            000000035054 
FT9	035054 035054 0   0   777777777777 0            000000035054 
ET0	035054 035054 0   0   777777777777 0            000000035054 
ST1A	035054 035054 0   0   777777777777 0            000000035054 
ST9	035054 035054 0   0   777777777777 0            000000035054 


*035054 MOVEI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035054 035054 0   0   201000000000 0            0            
IT1	035054 0      0   0   201000000000 0            0            
AT3	035054 0      0   0   0            0            201000000000 
AT6	035054 0      0   0   0            0            201000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 773
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1052

FT1A	035054 0      0   0   0            0            0            
FT9	035055 0      0   0   0            0            0            
ET0	035055 0      0   0   0            0            0            
ST1	035055 0      0   0   0            0            0            
ST2	035055 0      0   0   0            0            0            
ST9	035055 0      0   0   0            0            0            


*035055 ORCM 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035055 035055 0   0   464000000000 0            0            
IT1	035055 0      0   0   464000000000 0            0            
AT3	035055 0      0   0   0            0            464000000000 
AT6	035055 0      0   0   0            0            464000000000 
FT0	035055 0      0   0   0            0            464000000000 
FT1A	035055 0      0   0   0            0            0            
FT2	035055 0      0   0   0            0            0            
FT2RQ	035055 0      0   0   0            0            0            
FT3	035055 0      0   0   0            0            0            
FT9	035056 0      0   0   0            0            0            
ET0	035056 0      0   0   777777777777 0            0            
ST1	035056 0      0   0   777777777777 0            0            
ST2	035056 0      0   0   777777777777 0            0            
ST9	035056 0      0   0   777777777777 0            0            


*035056 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035056 035056 0   0   312000035524 0            777777777777 
IT1	035056 0      0   0   312000035524 0            777777777777 
AT3	035056 0      0   0   000000035524 0            312000035524 
AT6	035056 035524 0   0   000000035524 0            312000035524 
FT0	035056 035524 0   0   777777777777 0            312000035524 
FT1A	035056 035524 0   0   777777777777 0            777777777777 
FT2	035056 035524 0   0   0            0            777777777777 
FT2RQ	035056 035524 0   0   777777777777 0            777777777777 
FT3	035056 035524 0   0   777777777777 0            777777777777 
FT9	035057 035524 0   0   777777777777 0            777777777777 
ET0	035060 035524 0   0   0            0            777777777777 
ST1A	035060 035524 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 774
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1053

ST9	035060 035524 0   0   0            0            777777777777 


*035060 JUMPA	0,035061
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035060 035060 0   0   324000035061 0            000000035061 
IT1	035060 0      0   0   324000035061 0            000000035061 
AT3	035060 0      0   0   000000035061 0            324000035061 
AT6	035060 035061 0   0   000000035061 0            324000035061 
FT1A	035060 035061 0   0   000000035061 0            000000035061 
FT2	035060 035061 0   0   0            0            000000035061 
FT2RQ	035060 035061 0   0   777777777777 0            000000035061 
FT3	035060 035061 0   0   777777777777 0            000000035061 
FT9	035061 035061 0   0   777777777777 0            000000035061 
ET0	035061 035061 0   0   777777777777 0            000000035061 
ST1A	035061 035061 0   0   777777777777 0            000000035061 
ST9	035061 035061 0   0   777777777777 0            000000035061 


*035061 MOVE 	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035061 035061 0   0   200000035524 0            777777777777 
IT1	035061 0      0   0   200000035524 0            777777777777 
AT3	035061 0      0   0   000000035524 0            200000035524 
AT6	035061 035524 0   0   000000035524 0            200000035524 
FT0	035061 035524 0   0   777777777777 0            200000035524 
FT1A	035061 035524 0   0   777777777777 0            777777777777 
FT9	035062 035524 0   0   777777777777 0            777777777777 
ET0	035062 035524 0   0   777777777777 0            777777777777 
ST1	035062 035524 0   0   777777777777 0            777777777777 
ST2	035062 035524 0   0   777777777777 0            777777777777 
ST9	035062 035524 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 775
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1054

*035062 ORCM 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035062 035062 0   0   464000000000 0            777777777777 
IT1	035062 0      0   0   464000000000 0            777777777777 
AT3	035062 0      0   0   0            0            464000000000 
AT6	035062 0      0   0   0            0            464000000000 
FT0	035062 0      0   0   777777777777 0            464000000000 
FT1A	035062 0      0   0   777777777777 0            777777777777 
FT2	035062 0      0   0   0            0            777777777777 
FT2RQ	035062 0      0   0   777777777777 0            777777777777 
FT3	035062 0      0   0   777777777777 0            777777777777 
FT9	035063 0      0   0   777777777777 0            777777777777 
ET0	035063 0      0   0   777777777777 0            777777777777 
ST1	035063 0      0   0   777777777777 0            777777777777 
ST2	035063 0      0   0   777777777777 0            777777777777 
ST9	035063 0      0   0   777777777777 0            777777777777 


*035063 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035063 035063 0   0   312000035524 0            777777777777 
IT1	035063 0      0   0   312000035524 0            777777777777 
AT3	035063 0      0   0   000000035524 0            312000035524 
AT6	035063 035524 0   0   000000035524 0            312000035524 
FT0	035063 035524 0   0   777777777777 0            312000035524 
FT1A	035063 035524 0   0   777777777777 0            777777777777 
FT2	035063 035524 0   0   0            0            777777777777 
FT2RQ	035063 035524 0   0   777777777777 0            777777777777 
FT3	035063 035524 0   0   777777777777 0            777777777777 
FT9	035064 035524 0   0   777777777777 0            777777777777 
ET0	035065 035524 0   0   0            0            777777777777 
ST1A	035065 035524 0   0   0            0            777777777777 
ST9	035065 035524 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 776
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1055

*035065 JUMPA	0,035066
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035065 035065 0   0   324000035066 0            000000035066 
IT1	035065 0      0   0   324000035066 0            000000035066 
AT3	035065 0      0   0   000000035066 0            324000035066 
AT6	035065 035066 0   0   000000035066 0            324000035066 
FT1A	035065 035066 0   0   000000035066 0            000000035066 
FT2	035065 035066 0   0   0            0            000000035066 
FT2RQ	035065 035066 0   0   777777777777 0            000000035066 
FT3	035065 035066 0   0   777777777777 0            000000035066 
FT9	035066 035066 0   0   777777777777 0            000000035066 
ET0	035066 035066 0   0   777777777777 0            000000035066 
ST1A	035066 035066 0   0   777777777777 0            000000035066 
ST9	035066 035066 0   0   777777777777 0            000000035066 


*035066 MOVEI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035066 035066 0   0   201000000000 0            0            
IT1	035066 0      0   0   201000000000 0            0            
AT3	035066 0      0   0   0            0            201000000000 
AT6	035066 0      0   0   0            0            201000000000 
FT1A	035066 0      0   0   0            0            0            
FT9	035067 0      0   0   0            0            0            
ET0	035067 0      0   0   0            0            0            
ST1	035067 0      0   0   0            0            0            
ST2	035067 0      0   0   0            0            0            
ST9	035067 0      0   0   0            0            0            


*035067 ORCM 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035067 035067 0   0   464000035524 0            777777777777 
IT1	035067 0      0   0   464000035524 0            777777777777 
AT3	035067 0      0   0   000000035524 0            464000035524 
AT6	035067 035524 0   0   000000035524 0            464000035524 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 777
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1056

FT0	035067 035524 0   0   777777777777 0            464000035524 
FT1A	035067 035524 0   0   777777777777 0            777777777777 
FT2	035067 035524 0   0   0            0            777777777777 
FT2RQ	035067 035524 0   0   0            0            777777777777 
FT3	035067 035524 0   0   0            0            777777777777 
FT9	035070 035524 0   0   0            0            777777777777 
ET0	035070 035524 0   0   0            0            777777777777 
ST1	035070 035524 0   0   0            0            777777777777 
ST2	035070 035524 0   0   0            0            777777777777 
ST9	035070 035524 0   0   0            0            777777777777 


*035070 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035070 035070 0   0   332000000000 0            0            
IT1	035070 0      0   0   332000000000 0            0            
AT3	035070 0      0   0   0            0            332000000000 
AT6	035070 0      0   0   0            0            332000000000 
FT0	035070 0      0   0   0            0            332000000000 
FT1A	035070 0      0   0   0            0            0            
FT9	035071 0      0   0   0            0            0            
ET0	035072 0      0   0   0            0            0            
ST1A	035072 0      0   0   0            0            0            
ST9	035072 0      0   0   0            0            0            


*035072 JUMPA	0,035073
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035072 035072 0   0   324000035073 0            000000035073 
IT1	035072 0      0   0   324000035073 0            000000035073 
AT3	035072 0      0   0   000000035073 0            324000035073 
AT6	035072 035073 0   0   000000035073 0            324000035073 
FT1A	035072 035073 0   0   000000035073 0            000000035073 
FT2	035072 035073 0   0   0            0            000000035073 
FT2RQ	035072 035073 0   0   0            0            000000035073 
FT3	035072 035073 0   0   0            0            000000035073 
FT9	035073 035073 0   0   0            0            000000035073 
ET0	035073 035073 0   0   0            0            000000035073 
ST1A	035073 035073 0   0   0            0            000000035073 
ST9	035073 035073 0   0   0            0            000000035073 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 778
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1057


*035073 MOVEI	0,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035073 035073 0   0   201000000000 0            0            
IT1	035073 0      0   0   201000000000 0            0            
AT3	035073 0      0   0   0            0            201000000000 
AT6	035073 0      0   0   0            0            201000000000 
FT1A	035073 0      0   0   0            0            0            
FT9	035074 0      0   0   0            0            0            
ET0	035074 0      0   0   0            0            0            
ST1	035074 0      0   0   0            0            0            
ST2	035074 0      0   0   0            0            0            
ST9	035074 0      0   0   0            0            0            


*035074 IOR 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035074 035074 0   0   434000000000 0            0            
IT1	035074 0      0   0   434000000000 0            0            
AT3	035074 0      0   0   0            0            434000000000 
AT6	035074 0      0   0   0            0            434000000000 
FT0	035074 0      0   0   0            0            434000000000 
FT1A	035074 0      0   0   0            0            0            
FT2	035074 0      0   0   0            0            0            
FT2RQ	035074 0      0   0   0            0            0            
FT3	035074 0      0   0   0            0            0            
FT9	035075 0      0   0   0            0            0            
ET0	035075 0      0   0   0            0            0            
ST1	035075 0      0   0   0            0            0            
ST2	035075 0      0   0   0            0            0            
ST9	035075 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 779
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1058

*035075 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035075 035075 0   0   332000000000 0            0            
IT1	035075 0      0   0   332000000000 0            0            
AT3	035075 0      0   0   0            0            332000000000 
AT6	035075 0      0   0   0            0            332000000000 
FT0	035075 0      0   0   0            0            332000000000 
FT1A	035075 0      0   0   0            0            0            
FT9	035076 0      0   0   0            0            0            
ET0	035077 0      0   0   0            0            0            
ST1A	035077 0      0   0   0            0            0            
ST9	035077 0      0   0   0            0            0            


*035077 JUMPA	0,035100
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035077 035077 0   0   324000035100 0            000000035100 
IT1	035077 0      0   0   324000035100 0            000000035100 
AT3	035077 0      0   0   000000035100 0            324000035100 
AT6	035077 0      0   0   000000035100 0            324000035100 
FT1A	035077 0      0   0   000000035100 0            000000035100 
FT2	035077 0      0   0   0            0            000000035100 
FT2RQ	035077 0      0   0   0            0            000000035100 
FT3	035077 0      0   0   0            0            000000035100 
FT9	0      0      0   0   0            0            000000035100 
ET0	0      0      0   0   0            0            000000035100 
ST1A	0      0      0   0   0            0            000000035100 
ST9	0      0      0   0   0            0            000000035100 


*035100 MOVEI	0,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   201000000000 0            0            
IT1	0      0      0   0   201000000000 0            0            
AT3	0      0      0   0   0            0            201000000000 
AT6	0      0      0   0   0            0            201000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 780
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1059

FT1A	0      0      0   0   0            0            0            
FT9	035101 0      0   0   0            0            0            
ET0	035101 0      0   0   0            0            0            
ST1	035101 0      0   0   0            0            0            
ST2	035101 0      0   0   0            0            0            
ST9	035101 0      0   0   0            0            0            


*035101 IOR 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035101 035101 0   0   434000035524 0            777777777777 
IT1	035101 0      0   0   434000035524 0            777777777777 
AT3	035101 0      0   0   000000035524 0            434000035524 
AT6	035101 035524 0   0   000000035524 0            434000035524 
FT0	035101 035524 0   0   777777777777 0            434000035524 
FT1A	035101 035524 0   0   777777777777 0            777777777777 
FT2	035101 035524 0   0   0            0            777777777777 
FT2RQ	035101 035524 0   0   0            0            777777777777 
FT3	035101 035524 0   0   0            0            777777777777 
FT9	035102 035524 0   0   0            0            777777777777 
ET0	035102 035524 0   0   777777777777 0            777777777777 
ST1	035102 035524 0   0   777777777777 0            777777777777 
ST2	035102 035524 0   0   777777777777 0            777777777777 
ST9	035102 035524 0   0   777777777777 0            777777777777 


*035102 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035102 035102 0   0   312000035524 0            777777777777 
IT1	035102 0      0   0   312000035524 0            777777777777 
AT3	035102 0      0   0   000000035524 0            312000035524 
AT6	035102 035524 0   0   000000035524 0            312000035524 
FT0	035102 035524 0   0   777777777777 0            312000035524 
FT1A	035102 035524 0   0   777777777777 0            777777777777 
FT2	035102 035524 0   0   0            0            777777777777 
FT2RQ	035102 035524 0   0   777777777777 0            777777777777 
FT3	035102 035524 0   0   777777777777 0            777777777777 
FT9	035103 035524 0   0   777777777777 0            777777777777 
ET0	035104 035524 0   0   0            0            777777777777 
ST1A	035104 035524 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 781
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1060

ST9	035104 035524 0   0   0            0            777777777777 


*035104 JUMPA	0,035105
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035104 035104 0   0   324000035105 0            000000035105 
IT1	035104 0      0   0   324000035105 0            000000035105 
AT3	035104 0      0   0   000000035105 0            324000035105 
AT6	035104 035105 0   0   000000035105 0            324000035105 
FT1A	035104 035105 0   0   000000035105 0            000000035105 
FT2	035104 035105 0   0   0            0            000000035105 
FT2RQ	035104 035105 0   0   777777777777 0            000000035105 
FT3	035104 035105 0   0   777777777777 0            000000035105 
FT9	035105 035105 0   0   777777777777 0            000000035105 
ET0	035105 035105 0   0   777777777777 0            000000035105 
ST1A	035105 035105 0   0   777777777777 0            000000035105 
ST9	035105 035105 0   0   777777777777 0            000000035105 


*035105 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035105 035105 0   0   474000000000 0            0            
IT1	035105 0      0   0   474000000000 0            0            
AT3	035105 0      0   0   0            0            474000000000 
AT6	035105 0      0   0   0            0            474000000000 
FT1A	035105 0      0   0   0            0            0            
FT9	035106 0      0   0   0            0            0            
ET0	035106 0      0   0   777777777777 0            0            
ST1	035106 0      0   0   777777777777 0            0            
ST2	035106 0      0   0   777777777777 0            0            
ST9	035106 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 782
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1061

*035106 IOR 	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035106 035106 0   0   434000035524 0            777777777777 
IT1	035106 0      0   0   434000035524 0            777777777777 
AT3	035106 0      0   0   000000035524 0            434000035524 
AT6	035106 035524 0   0   000000035524 0            434000035524 
FT0	035106 035524 0   0   777777777777 0            434000035524 
FT1A	035106 035524 0   0   777777777777 0            777777777777 
FT2	035106 035524 0   0   0            0            777777777777 
FT2RQ	035106 035524 0   0   777777777777 0            777777777777 
FT3	035106 035524 0   0   777777777777 0            777777777777 
FT9	035107 035524 0   0   777777777777 0            777777777777 
ET0	035107 035524 0   0   777777777777 0            777777777777 
ST1	035107 035524 0   0   777777777777 0            777777777777 
ST2	035107 035524 0   0   777777777777 0            777777777777 
ST9	035107 035524 0   0   777777777777 0            777777777777 


*035107 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035107 035107 0   0   312000035524 0            777777777777 
IT1	035107 0      0   0   312000035524 0            777777777777 
AT3	035107 0      0   0   000000035524 0            312000035524 
AT6	035107 035524 0   0   000000035524 0            312000035524 
FT0	035107 035524 0   0   777777777777 0            312000035524 
FT1A	035107 035524 0   0   777777777777 0            777777777777 
FT2	035107 035524 0   0   0            0            777777777777 
FT2RQ	035107 035524 0   0   777777777777 0            777777777777 
FT3	035107 035524 0   0   777777777777 0            777777777777 
FT9	035110 035524 0   0   777777777777 0            777777777777 
ET0	035111 035524 0   0   0            0            777777777777 
ST1A	035111 035524 0   0   0            0            777777777777 
ST9	035111 035524 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 783
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1062

*035111 JUMPA	0,035112
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035111 035111 0   0   324000035112 0            000000035112 
IT1	035111 0      0   0   324000035112 0            000000035112 
AT3	035111 0      0   0   000000035112 0            324000035112 
AT6	035111 035112 0   0   000000035112 0            324000035112 
FT1A	035111 035112 0   0   000000035112 0            000000035112 
FT2	035111 035112 0   0   0            0            000000035112 
FT2RQ	035111 035112 0   0   777777777777 0            000000035112 
FT3	035111 035112 0   0   777777777777 0            000000035112 
FT9	035112 035112 0   0   777777777777 0            000000035112 
ET0	035112 035112 0   0   777777777777 0            000000035112 
ST1A	035112 035112 0   0   777777777777 0            000000035112 
ST9	035112 035112 0   0   777777777777 0            000000035112 


*035112 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035112 035112 0   0   474000000000 0            0            
IT1	035112 0      0   0   474000000000 0            0            
AT3	035112 0      0   0   0            0            474000000000 
AT6	035112 0      0   0   0            0            474000000000 
FT1A	035112 0      0   0   0            0            0            
FT9	035113 0      0   0   0            0            0            
ET0	035113 0      0   0   777777777777 0            0            
ST1	035113 0      0   0   777777777777 0            0            
ST2	035113 0      0   0   777777777777 0            0            
ST9	035113 0      0   0   777777777777 0            0            


*035113 IOR 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035113 035113 0   0   434000035412 0            0            
IT1	035113 0      0   0   434000035412 0            0            
AT3	035113 0      0   0   000000035412 0            434000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 784
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1063

AT6	035113 035412 0   0   000000035412 0            434000035412 
FT0	035113 035412 0   0   0            0            434000035412 
FT1A	035113 035412 0   0   0            0            0            
FT2	035113 035412 0   0   0            0            0            
FT2RQ	035113 035412 0   0   777777777777 0            0            
FT3	035113 035412 0   0   777777777777 0            0            
FT9	035114 035412 0   0   777777777777 0            0            
ET0	035114 035412 0   0   777777777777 0            0            
ST1	035114 035412 0   0   777777777777 0            0            
ST2	035114 035412 0   0   777777777777 0            0            
ST9	035114 035412 0   0   777777777777 0            0            


*035114 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035114 035114 0   0   312000035524 0            777777777777 
IT1	035114 0      0   0   312000035524 0            777777777777 
AT3	035114 0      0   0   000000035524 0            312000035524 
AT6	035114 035524 0   0   000000035524 0            312000035524 
FT0	035114 035524 0   0   777777777777 0            312000035524 
FT1A	035114 035524 0   0   777777777777 0            777777777777 
FT2	035114 035524 0   0   0            0            777777777777 
FT2RQ	035114 035524 0   0   777777777777 0            777777777777 
FT3	035114 035524 0   0   777777777777 0            777777777777 
FT9	035115 035524 0   0   777777777777 0            777777777777 
ET0	035116 035524 0   0   0            0            777777777777 
ST1A	035116 035524 0   0   0            0            777777777777 
ST9	035116 035524 0   0   0            0            777777777777 


*035116 JUMPA	0,035117
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035116 035116 0   0   324000035117 0            000000035117 
IT1	035116 0      0   0   324000035117 0            000000035117 
AT3	035116 0      0   0   000000035117 0            324000035117 
AT6	035116 035117 0   0   000000035117 0            324000035117 
FT1A	035116 035117 0   0   000000035117 0            000000035117 
FT2	035116 035117 0   0   0            0            000000035117 
FT2RQ	035116 035117 0   0   777777777777 0            000000035117 
FT3	035116 035117 0   0   777777777777 0            000000035117 
FT9	035117 035117 0   0   777777777777 0            000000035117 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 785
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1064

ET0	035117 035117 0   0   777777777777 0            000000035117 
ST1A	035117 035117 0   0   777777777777 0            000000035117 
ST9	035117 035117 0   0   777777777777 0            000000035117 


*035117 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035117 035117 0   0   474000000000 0            0            
IT1	035117 0      0   0   474000000000 0            0            
AT3	035117 0      0   0   0            0            474000000000 
AT6	035117 0      0   0   0            0            474000000000 
FT1A	035117 0      0   0   0            0            0            
FT9	035120 0      0   0   0            0            0            
ET0	035120 0      0   0   777777777777 0            0            
ST1	035120 0      0   0   777777777777 0            0            
ST2	035120 0      0   0   777777777777 0            0            
ST9	035120 0      0   0   777777777777 0            0            


*035120 ANDCM 	0,035502
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035120 035120 0   0   420000035502 0            777777000000 
IT1	035120 0      0   0   420000035502 0            777777000000 
AT3	035120 0      0   0   000000035502 0            420000035502 
AT6	035120 035502 0   0   000000035502 0            420000035502 
FT0	035120 035502 0   0   777777000000 0            420000035502 
FT1A	035120 035502 0   0   777777000000 0            777777000000 
FT2	035120 035502 0   0   0            0            777777000000 
FT2RQ	035120 035502 0   0   777777777777 0            777777000000 
FT3	035120 035502 0   0   777777777777 0            777777000000 
FT9	035121 035502 0   0   777777777777 0            777777000000 
ET0	035121 035502 0   0   000000777777 0            777777000000 
ST1	035121 035502 0   0   000000777777 0            777777000000 
ST2	035121 035502 0   0   000000777777 0            777777000000 
ST9	035121 035502 0   0   000000777777 0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 786
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1065

*035121 CAME	0,035537
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035121 035121 0   0   312000035537 0            000000777777 
IT1	035121 0      0   0   312000035537 0            000000777777 
AT3	035121 0      0   0   000000035537 0            312000035537 
AT6	035121 035537 0   0   000000035537 0            312000035537 
FT0	035121 035537 0   0   000000777777 0            312000035537 
FT1A	035121 035537 0   0   000000777777 0            000000777777 
FT2	035121 035537 0   0   0            0            000000777777 
FT2RQ	035121 035537 0   0   000000777777 0            000000777777 
FT3	035121 035537 0   0   000000777777 0            000000777777 
FT9	035122 035537 0   0   000000777777 0            000000777777 
ET0	035123 035537 0   0   0            0            000000777777 
ST1A	035123 035537 0   0   0            0            000000777777 
ST9	035123 035537 0   0   0            0            000000777777 


*035123 JUMPA	0,035124
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035123 035123 0   0   324000035124 0            000000035124 
IT1	035123 0      0   0   324000035124 0            000000035124 
AT3	035123 0      0   0   000000035124 0            324000035124 
AT6	035123 035124 0   0   000000035124 0            324000035124 
FT1A	035123 035124 0   0   000000035124 0            000000035124 
FT2	035123 035124 0   0   0            0            000000035124 
FT2RQ	035123 035124 0   0   000000777777 0            000000035124 
FT3	035123 035124 0   0   000000777777 0            000000035124 
FT9	035124 035124 0   0   000000777777 0            000000035124 
ET0	035124 035124 0   0   000000777777 0            000000035124 
ST1A	035124 035124 0   0   000000777777 0            000000035124 
ST9	035124 035124 0   0   000000777777 0            000000035124 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 787
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1066

*035124 SETO 	0,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035124 035124 0   0   474000000000 0            0            
IT1	035124 0      0   0   474000000000 0            0            
AT3	035124 0      0   0   0            0            474000000000 
AT6	035124 0      0   0   0            0            474000000000 
FT1A	035124 0      0   0   0            0            0            
FT9	035125 0      0   0   0            0            0            
ET0	035125 0      0   0   777777777777 0            0            
ST1	035125 0      0   0   777777777777 0            0            
ST2	035125 0      0   0   777777777777 0            0            
ST9	035125 0      0   0   777777777777 0            0            


*035125 ANDCM 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035125 035125 0   0   420000000000 0            777777777777 
IT1	035125 0      0   0   420000000000 0            777777777777 
AT3	035125 0      0   0   0            0            420000000000 
AT6	035125 0      0   0   0            0            420000000000 
FT0	035125 0      0   0   777777777777 0            420000000000 
FT1A	035125 0      0   0   777777777777 0            777777777777 
FT2	035125 0      0   0   0            0            777777777777 
FT2RQ	035125 0      0   0   777777777777 0            777777777777 
FT3	035125 0      0   0   777777777777 0            777777777777 
FT9	035126 0      0   0   777777777777 0            777777777777 
ET0	035126 0      0   0   0            0            777777777777 
ST1	035126 0      0   0   0            0            777777777777 
ST2	035126 0      0   0   0            0            777777777777 
ST9	035126 0      0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 788
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1067

*035126 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035126 035126 0   0   332000000000 0            0            
IT1	035126 0      0   0   332000000000 0            0            
AT3	035126 0      0   0   0            0            332000000000 
AT6	035126 0      0   0   0            0            332000000000 
FT0	035126 0      0   0   0            0            332000000000 
FT1A	035126 0      0   0   0            0            0            
FT9	035127 0      0   0   0            0            0            
ET0	035130 0      0   0   0            0            0            
ST1A	035130 0      0   0   0            0            0            
ST9	035130 0      0   0   0            0            0            


*035130 JUMPA	0,035131
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035130 035130 0   0   324000035131 0            000000035131 
IT1	035130 0      0   0   324000035131 0            000000035131 
AT3	035130 0      0   0   000000035131 0            324000035131 
AT6	035130 035131 0   0   000000035131 0            324000035131 
FT1A	035130 035131 0   0   000000035131 0            000000035131 
FT2	035130 035131 0   0   0            0            000000035131 
FT2RQ	035130 035131 0   0   0            0            000000035131 
FT3	035130 035131 0   0   0            0            000000035131 
FT9	035131 035131 0   0   0            0            000000035131 
ET0	035131 035131 0   0   0            0            000000035131 
ST1A	035131 035131 0   0   0            0            000000035131 
ST9	035131 035131 0   0   0            0            000000035131 


*035131 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035131 035131 0   0   474000000000 0            0            
IT1	035131 0      0   0   474000000000 0            0            
AT3	035131 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 789
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1068

AT6	035131 0      0   0   0            0            474000000000 
FT1A	035131 0      0   0   0            0            0            
FT9	035132 0      0   0   0            0            0            
ET0	035132 0      0   0   777777777777 0            0            
ST1	035132 0      0   0   777777777777 0            0            
ST2	035132 0      0   0   777777777777 0            0            
ST9	035132 0      0   0   777777777777 0            0            


*035132 ANDCM 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035132 035132 0   0   420000035412 0            0            
IT1	035132 0      0   0   420000035412 0            0            
AT3	035132 0      0   0   000000035412 0            420000035412 
AT6	035132 035412 0   0   000000035412 0            420000035412 
FT0	035132 035412 0   0   0            0            420000035412 
FT1A	035132 035412 0   0   0            0            0            
FT2	035132 035412 0   0   0            0            0            
FT2RQ	035132 035412 0   0   777777777777 0            0            
FT3	035132 035412 0   0   777777777777 0            0            
FT9	035133 035412 0   0   777777777777 0            0            
ET0	035133 035412 0   0   777777777777 0            0            
ST1	035133 035412 0   0   777777777777 0            0            
ST2	035133 035412 0   0   777777777777 0            0            
ST9	035133 035412 0   0   777777777777 0            0            


*035133 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035133 035133 0   0   312000035524 0            777777777777 
IT1	035133 0      0   0   312000035524 0            777777777777 
AT3	035133 0      0   0   000000035524 0            312000035524 
AT6	035133 035524 0   0   000000035524 0            312000035524 
FT0	035133 035524 0   0   777777777777 0            312000035524 
FT1A	035133 035524 0   0   777777777777 0            777777777777 
FT2	035133 035524 0   0   0            0            777777777777 
FT2RQ	035133 035524 0   0   777777777777 0            777777777777 
FT3	035133 035524 0   0   777777777777 0            777777777777 
FT9	035134 035524 0   0   777777777777 0            777777777777 
ET0	035135 035524 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 790
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1069

ST1A	035135 035524 0   0   0            0            777777777777 
ST9	035135 035524 0   0   0            0            777777777777 


*035135 JUMPA	0,035136
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035135 035135 0   0   324000035136 0            000000035136 
IT1	035135 0      0   0   324000035136 0            000000035136 
AT3	035135 0      0   0   000000035136 0            324000035136 
AT6	035135 035136 0   0   000000035136 0            324000035136 
FT1A	035135 035136 0   0   000000035136 0            000000035136 
FT2	035135 035136 0   0   0            0            000000035136 
FT2RQ	035135 035136 0   0   777777777777 0            000000035136 
FT3	035135 035136 0   0   777777777777 0            000000035136 
FT9	035136 035136 0   0   777777777777 0            000000035136 
ET0	035136 035136 0   0   777777777777 0            000000035136 
ST1A	035136 035136 0   0   777777777777 0            000000035136 
ST9	035136 035136 0   0   777777777777 0            000000035136 


*035136 MOVEI	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035136 035136 0   0   201000000000 0            0            
IT1	035136 0      0   0   201000000000 0            0            
AT3	035136 0      0   0   0            0            201000000000 
AT6	035136 0      0   0   0            0            201000000000 
FT1A	035136 0      0   0   0            0            0            
FT9	035137 0      0   0   0            0            0            
ET0	035137 0      0   0   0            0            0            
ST1	035137 0      0   0   0            0            0            
ST2	035137 0      0   0   0            0            0            
ST9	035137 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 791
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1070

*035137 ANDCM 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035137 035137 0   0   420000000000 0            0            
IT1	035137 0      0   0   420000000000 0            0            
AT3	035137 0      0   0   0            0            420000000000 
AT6	035137 0      0   0   0            0            420000000000 
FT0	035137 0      0   0   0            0            420000000000 
FT1A	035137 0      0   0   0            0            0            
FT2	035137 0      0   0   0            0            0            
FT2RQ	035137 0      0   0   0            0            0            
FT3	035137 0      0   0   0            0            0            
FT9	035140 0      0   0   0            0            0            
ET0	035140 0      0   0   0            0            0            
ST1	035140 0      0   0   0            0            0            
ST2	035140 0      0   0   0            0            0            
ST9	035140 0      0   0   0            0            0            


*035140 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035140 035140 0   0   332000000000 0            0            
IT1	035140 0      0   0   332000000000 0            0            
AT3	035140 0      0   0   0            0            332000000000 
AT6	035140 0      0   0   0            0            332000000000 
FT0	035140 0      0   0   0            0            332000000000 
FT1A	035140 0      0   0   0            0            0            
FT9	035141 0      0   0   0            0            0            
ET0	035142 0      0   0   0            0            0            
ST1A	035142 0      0   0   0            0            0            
ST9	035142 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 792
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1071

*035142 JUMPA	0,035143
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035142 035142 0   0   324000035143 0            000000035143 
IT1	035142 0      0   0   324000035143 0            000000035143 
AT3	035142 0      0   0   000000035143 0            324000035143 
AT6	035142 035143 0   0   000000035143 0            324000035143 
FT1A	035142 035143 0   0   000000035143 0            000000035143 
FT2	035142 035143 0   0   0            0            000000035143 
FT2RQ	035142 035143 0   0   0            0            000000035143 
FT3	035142 035143 0   0   0            0            000000035143 
FT9	035143 035143 0   0   0            0            000000035143 
ET0	035143 035143 0   0   0            0            000000035143 
ST1A	035143 035143 0   0   0            0            000000035143 
ST9	035143 035143 0   0   0            0            000000035143 


*035143 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035143 035143 0   0   400000000000 0            0            
IT1	035143 0      0   0   400000000000 0            0            
AT3	035143 0      0   0   0            0            400000000000 
AT6	035143 0      0   0   0            0            400000000000 
FT1A	035143 0      0   0   0            0            0            
FT9	035144 0      0   0   0            0            0            
ET0	035144 0      0   0   0            0            0            
ST1	035144 0      0   0   0            0            0            
ST2	035144 0      0   0   0            0            0            
ST9	035144 0      0   0   0            0            0            


*035144 ANDCM 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035144 035144 0   0   420000035524 0            777777777777 
IT1	035144 0      0   0   420000035524 0            777777777777 
AT3	035144 0      0   0   000000035524 0            420000035524 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 793
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1072

AT6	035144 035524 0   0   000000035524 0            420000035524 
FT0	035144 035524 0   0   777777777777 0            420000035524 
FT1A	035144 035524 0   0   777777777777 0            777777777777 
FT2	035144 035524 0   0   0            0            777777777777 
FT2RQ	035144 035524 0   0   0            0            777777777777 
FT3	035144 035524 0   0   0            0            777777777777 
FT9	035145 035524 0   0   0            0            777777777777 
ET0	035145 035524 0   0   0            0            777777777777 
ST1	035145 035524 0   0   0            0            777777777777 
ST2	035145 035524 0   0   0            0            777777777777 
ST9	035145 035524 0   0   0            0            777777777777 


*035145 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035145 035145 0   0   332000000000 0            0            
IT1	035145 0      0   0   332000000000 0            0            
AT3	035145 0      0   0   0            0            332000000000 
AT6	035145 0      0   0   0            0            332000000000 
FT0	035145 0      0   0   0            0            332000000000 
FT1A	035145 0      0   0   0            0            0            
FT9	035146 0      0   0   0            0            0            
ET0	035147 0      0   0   0            0            0            
ST1A	035147 0      0   0   0            0            0            
ST9	035147 0      0   0   0            0            0            


*035147 JUMPA	0,035150
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035147 035147 0   0   324000035150 0            000000035150 
IT1	035147 0      0   0   324000035150 0            000000035150 
AT3	035147 0      0   0   000000035150 0            324000035150 
AT6	035147 035150 0   0   000000035150 0            324000035150 
FT1A	035147 035150 0   0   000000035150 0            000000035150 
FT2	035147 035150 0   0   0            0            000000035150 
FT2RQ	035147 035150 0   0   0            0            000000035150 
FT3	035147 035150 0   0   0            0            000000035150 
FT9	035150 035150 0   0   0            0            000000035150 
ET0	035150 035150 0   0   0            0            000000035150 
ST1A	035150 035150 0   0   0            0            000000035150 
ST9	035150 035150 0   0   0            0            000000035150 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 794
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1073



*035150 MOVE 	0,035502
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035150 035150 0   0   200000035502 0            777777000000 
IT1	035150 0      0   0   200000035502 0            777777000000 
AT3	035150 0      0   0   000000035502 0            200000035502 
AT6	035150 035502 0   0   000000035502 0            200000035502 
FT0	035150 035502 0   0   777777000000 0            200000035502 
FT1A	035150 035502 0   0   777777000000 0            777777000000 
FT9	035151 035502 0   0   777777000000 0            777777000000 
ET0	035151 035502 0   0   777777000000 0            777777000000 
ST1	035151 035502 0   0   777777000000 0            777777000000 
ST2	035151 035502 0   0   777777000000 0            777777000000 
ST9	035151 035502 0   0   777777000000 0            777777000000 


*035151 ANDCA 	0,035412
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035151 035151 0   0   410000035412 0            0            
IT1	035151 0      0   0   410000035412 0            0            
AT3	035151 0      0   0   000000035412 0            410000035412 
AT6	035151 035412 0   0   000000035412 0            410000035412 
FT0	035151 035412 0   0   0            0            410000035412 
FT1A	035151 035412 0   0   0            0            0            
FT2	035151 035412 0   0   0            0            0            
FT2RQ	035151 035412 0   0   777777000000 0            0            
FT3	035151 035412 0   0   777777000000 0            0            
FT9	035152 035412 0   0   777777000000 0            0            
ET1	035152 035412 0   0   000000777777 0            0            
ET2	035152 035412 0   0   0            0            0            
ST1	035152 035412 0   0   0            0            0            
ST2	035152 035412 0   0   0            0            0            
ST9	035152 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 795
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1074

*035152 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035152 035152 0   0   332000000000 0            0            
IT1	035152 0      0   0   332000000000 0            0            
AT3	035152 0      0   0   0            0            332000000000 
AT6	035152 0      0   0   0            0            332000000000 
FT0	035152 0      0   0   0            0            332000000000 
FT1A	035152 0      0   0   0            0            0            
FT9	035153 0      0   0   0            0            0            
ET0	035154 0      0   0   0            0            0            
ST1A	035154 0      0   0   0            0            0            
ST9	035154 0      0   0   0            0            0            


*035154 JUMPA	0,035155
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035154 035154 0   0   324000035155 0            000000035155 
IT1	035154 0      0   0   324000035155 0            000000035155 
AT3	035154 0      0   0   000000035155 0            324000035155 
AT6	035154 035155 0   0   000000035155 0            324000035155 
FT1A	035154 035155 0   0   000000035155 0            000000035155 
FT2	035154 035155 0   0   0            0            000000035155 
FT2RQ	035154 035155 0   0   0            0            000000035155 
FT3	035154 035155 0   0   0            0            000000035155 
FT9	035155 035155 0   0   0            0            000000035155 
ET0	035155 035155 0   0   0            0            000000035155 
ST1A	035155 035155 0   0   0            0            000000035155 
ST9	035155 035155 0   0   0            0            000000035155 


*035155 MOVE 	0,035502
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035155 035155 0   0   200000035502 0            777777000000 
IT1	035155 0      0   0   200000035502 0            777777000000 
AT3	035155 0      0   0   000000035502 0            200000035502 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 796
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1075

AT6	035155 035502 0   0   000000035502 0            200000035502 
FT0	035155 035502 0   0   777777000000 0            200000035502 
FT1A	035155 035502 0   0   777777000000 0            777777000000 
FT9	035156 035502 0   0   777777000000 0            777777000000 
ET0	035156 035502 0   0   777777000000 0            777777000000 
ST1	035156 035502 0   0   777777000000 0            777777000000 
ST2	035156 035502 0   0   777777000000 0            777777000000 
ST9	035156 035502 0   0   777777000000 0            777777000000 


*035156 ANDCA 	0,035650
INITIAL
C(AC)=777777 000000 
C(E)=707070 707070 
FINAL
C(AC)=000000 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035156 035156 0   0   410000035650 0            707070707070 
IT1	035156 0      0   0   410000035650 0            707070707070 
AT3	035156 0      0   0   000000035650 0            410000035650 
AT6	035156 035650 0   0   000000035650 0            410000035650 
FT0	035156 035650 0   0   707070707070 0            410000035650 
FT1A	035156 035650 0   0   707070707070 0            707070707070 
FT2	035156 035650 0   0   0            0            707070707070 
FT2RQ	035156 035650 0   0   777777000000 0            707070707070 
FT3	035156 035650 0   0   777777000000 0            707070707070 
FT9	035157 035650 0   0   777777000000 0            707070707070 
ET1	035157 035650 0   0   000000777777 0            707070707070 
ET2	035157 035650 0   0   000000707070 0            707070707070 
ST1	035157 035650 0   0   000000707070 0            707070707070 
ST2	035157 035650 0   0   000000707070 0            707070707070 
ST9	035157 035650 0   0   000000707070 0            707070707070 


*035157 CAME	0,035651
INITIAL
C(AC)=000000 707070 
C(E)=000000 707070 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035157 035157 0   0   312000035651 0            000000707070 
IT1	035157 0      0   0   312000035651 0            000000707070 
AT3	035157 0      0   0   000000035651 0            312000035651 
AT6	035157 035651 0   0   000000035651 0            312000035651 
FT0	035157 035651 0   0   000000707070 0            312000035651 
FT1A	035157 035651 0   0   000000707070 0            000000707070 
FT2	035157 035651 0   0   0            0            000000707070 
FT2RQ	035157 035651 0   0   000000707070 0            000000707070 
FT3	035157 035651 0   0   000000707070 0            000000707070 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 797
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1076

FT9	035160 035651 0   0   000000707070 0            000000707070 
ET0	035161 035651 0   0   0            0            000000707070 
ST1A	035161 035651 0   0   0            0            000000707070 
ST9	035161 035651 0   0   0            0            000000707070 


*035161 JUMPA	0,035162
INITIAL
C(AC)=000000 707070 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035161 035161 0   0   324000035162 0            000000035162 
IT1	035161 0      0   0   324000035162 0            000000035162 
AT3	035161 0      0   0   000000035162 0            324000035162 
AT6	035161 035162 0   0   000000035162 0            324000035162 
FT1A	035161 035162 0   0   000000035162 0            000000035162 
FT2	035161 035162 0   0   0            0            000000035162 
FT2RQ	035161 035162 0   0   000000707070 0            000000035162 
FT3	035161 035162 0   0   000000707070 0            000000035162 
FT9	035162 035162 0   0   000000707070 0            000000035162 
ET0	035162 035162 0   0   000000707070 0            000000035162 
ST1A	035162 035162 0   0   000000707070 0            000000035162 
ST9	035162 035162 0   0   000000707070 0            000000035162 


*035162 SETZ 	0,000000
INITIAL
C(AC)=000000 707070 
C(E)=000000 707070 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035162 035162 0   0   400000000000 0            0            
IT1	035162 0      0   0   400000000000 0            0            
AT3	035162 0      0   0   0            0            400000000000 
AT6	035162 0      0   0   0            0            400000000000 
FT1A	035162 0      0   0   0            0            0            
FT9	035163 0      0   0   0            0            0            
ET0	035163 0      0   0   0            0            0            
ST1	035163 0      0   0   0            0            0            
ST2	035163 0      0   0   0            0            0            
ST9	035163 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 798
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1077

*035163 ANDCA 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035163 035163 0   0   410000000000 0            0            
IT1	035163 0      0   0   410000000000 0            0            
AT3	035163 0      0   0   0            0            410000000000 
AT6	035163 0      0   0   0            0            410000000000 
FT0	035163 0      0   0   0            0            410000000000 
FT1A	035163 0      0   0   0            0            0            
FT2	035163 0      0   0   0            0            0            
FT2RQ	035163 0      0   0   0            0            0            
FT3	035163 0      0   0   0            0            0            
FT9	035164 0      0   0   0            0            0            
ET1	035164 0      0   0   777777777777 0            0            
ET2	035164 0      0   0   0            0            0            
ST1	035164 0      0   0   0            0            0            
ST2	035164 0      0   0   0            0            0            
ST9	035164 0      0   0   0            0            0            


*035164 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035164 035164 0   0   332000000000 0            0            
IT1	035164 0      0   0   332000000000 0            0            
AT3	035164 0      0   0   0            0            332000000000 
AT6	035164 0      0   0   0            0            332000000000 
FT0	035164 0      0   0   0            0            332000000000 
FT1A	035164 0      0   0   0            0            0            
FT9	035165 0      0   0   0            0            0            
ET0	035166 0      0   0   0            0            0            
ST1A	035166 0      0   0   0            0            0            
ST9	035166 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 799
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1078

*035166 JUMPA	0,035167
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035166 035166 0   0   324000035167 0            000000035167 
IT1	035166 0      0   0   324000035167 0            000000035167 
AT3	035166 0      0   0   000000035167 0            324000035167 
AT6	035166 035167 0   0   000000035167 0            324000035167 
FT1A	035166 035167 0   0   000000035167 0            000000035167 
FT2	035166 035167 0   0   0            0            000000035167 
FT2RQ	035166 035167 0   0   0            0            000000035167 
FT3	035166 035167 0   0   0            0            000000035167 
FT9	035167 035167 0   0   0            0            000000035167 
ET0	035167 035167 0   0   0            0            000000035167 
ST1A	035167 035167 0   0   0            0            000000035167 
ST9	035167 035167 0   0   0            0            000000035167 


*035167 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035167 035167 0   0   400000000000 0            0            
IT1	035167 0      0   0   400000000000 0            0            
AT3	035167 0      0   0   0            0            400000000000 
AT6	035167 0      0   0   0            0            400000000000 
FT1A	035167 0      0   0   0            0            0            
FT9	035170 0      0   0   0            0            0            
ET0	035170 0      0   0   0            0            0            
ST1	035170 0      0   0   0            0            0            
ST2	035170 0      0   0   0            0            0            
ST9	035170 0      0   0   0            0            0            


*035170 ANDCA 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035170 035170 0   0   410000035524 0            777777777777 
IT1	035170 0      0   0   410000035524 0            777777777777 
AT3	035170 0      0   0   000000035524 0            410000035524 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 800
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1079

AT6	035170 035524 0   0   000000035524 0            410000035524 
FT0	035170 035524 0   0   777777777777 0            410000035524 
FT1A	035170 035524 0   0   777777777777 0            777777777777 
FT2	035170 035524 0   0   0            0            777777777777 
FT2RQ	035170 035524 0   0   0            0            777777777777 
FT3	035170 035524 0   0   0            0            777777777777 
FT9	035171 035524 0   0   0            0            777777777777 
ET1	035171 035524 0   0   777777777777 0            777777777777 
ET2	035171 035524 0   0   777777777777 0            777777777777 
ST1	035171 035524 0   0   777777777777 0            777777777777 
ST2	035171 035524 0   0   777777777777 0            777777777777 
ST9	035171 035524 0   0   777777777777 0            777777777777 


*035171 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035171 035171 0   0   312000035524 0            777777777777 
IT1	035171 0      0   0   312000035524 0            777777777777 
AT3	035171 0      0   0   000000035524 0            312000035524 
AT6	035171 035524 0   0   000000035524 0            312000035524 
FT0	035171 035524 0   0   777777777777 0            312000035524 
FT1A	035171 035524 0   0   777777777777 0            777777777777 
FT2	035171 035524 0   0   0            0            777777777777 
FT2RQ	035171 035524 0   0   777777777777 0            777777777777 
FT3	035171 035524 0   0   777777777777 0            777777777777 
FT9	035172 035524 0   0   777777777777 0            777777777777 
ET0	035173 035524 0   0   0            0            777777777777 
ST1A	035173 035524 0   0   0            0            777777777777 
ST9	035173 035524 0   0   0            0            777777777777 


*035173 JUMPA	0,035174
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035173 035173 0   0   324000035174 0            000000035174 
IT1	035173 0      0   0   324000035174 0            000000035174 
AT3	035173 0      0   0   000000035174 0            324000035174 
AT6	035173 035174 0   0   000000035174 0            324000035174 
FT1A	035173 035174 0   0   000000035174 0            000000035174 
FT2	035173 035174 0   0   0            0            000000035174 
FT2RQ	035173 035174 0   0   777777777777 0            000000035174 
FT3	035173 035174 0   0   777777777777 0            000000035174 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 801
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1080

FT9	035174 035174 0   0   777777777777 0            000000035174 
ET0	035174 035174 0   0   777777777777 0            000000035174 
ST1A	035174 035174 0   0   777777777777 0            000000035174 
ST9	035174 035174 0   0   777777777777 0            000000035174 


*035174 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035174 035174 0   0   474000000000 0            0            
IT1	035174 0      0   0   474000000000 0            0            
AT3	035174 0      0   0   0            0            474000000000 
AT6	035174 0      0   0   0            0            474000000000 
FT1A	035174 0      0   0   0            0            0            
FT9	035175 0      0   0   0            0            0            
ET0	035175 0      0   0   777777777777 0            0            
ST1	035175 0      0   0   777777777777 0            0            
ST2	035175 0      0   0   777777777777 0            0            
ST9	035175 0      0   0   777777777777 0            0            


*035175 ANDCA 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035175 035175 0   0   410000000000 0            777777777777 
IT1	035175 0      0   0   410000000000 0            777777777777 
AT3	035175 0      0   0   0            0            410000000000 
AT6	035175 0      0   0   0            0            410000000000 
FT0	035175 0      0   0   777777777777 0            410000000000 
FT1A	035175 0      0   0   777777777777 0            777777777777 
FT2	035175 0      0   0   0            0            777777777777 
FT2RQ	035175 0      0   0   777777777777 0            777777777777 
FT3	035175 0      0   0   777777777777 0            777777777777 
FT9	035176 0      0   0   777777777777 0            777777777777 
ET1	035176 0      0   0   0            0            777777777777 
ET2	035176 0      0   0   0            0            777777777777 
ST1	035176 0      0   0   0            0            777777777777 
ST2	035176 0      0   0   0            0            777777777777 
ST9	035176 0      0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 802
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1081

*035176 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035176 035176 0   0   332000000000 0            0            
IT1	035176 0      0   0   332000000000 0            0            
AT3	035176 0      0   0   0            0            332000000000 
AT6	035176 0      0   0   0            0            332000000000 
FT0	035176 0      0   0   0            0            332000000000 
FT1A	035176 0      0   0   0            0            0            
FT9	035177 0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1A	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            


*035200 JUMPA	0,035201
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000035201 0            000000035201 
IT1	0      0      0   0   324000035201 0            000000035201 
AT3	0      0      0   0   000000035201 0            324000035201 
AT6	0      035201 0   0   000000035201 0            324000035201 
FT1A	0      035201 0   0   000000035201 0            000000035201 
FT2	0      035201 0   0   0            0            000000035201 
FT2RQ	0      035201 0   0   0            0            000000035201 
FT3	0      035201 0   0   0            0            000000035201 
FT9	035201 035201 0   0   0            0            000000035201 
ET0	035201 035201 0   0   0            0            000000035201 
ST1A	035201 035201 0   0   0            0            000000035201 
ST9	035201 035201 0   0   0            0            000000035201 


*035201 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035201 035201 0   0   474000000000 0            0            
IT1	035201 0      0   0   474000000000 0            0            
AT3	035201 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 803
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1082

AT6	035201 0      0   0   0            0            474000000000 
FT1A	035201 0      0   0   0            0            0            
FT9	035202 0      0   0   0            0            0            
ET0	035202 0      0   0   777777777777 0            0            
ST1	035202 0      0   0   777777777777 0            0            
ST2	035202 0      0   0   777777777777 0            0            
ST9	035202 0      0   0   777777777777 0            0            


*035202 ANDCA 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035202 035202 0   0   410000035412 0            0            
IT1	035202 0      0   0   410000035412 0            0            
AT3	035202 0      0   0   000000035412 0            410000035412 
AT6	035202 035412 0   0   000000035412 0            410000035412 
FT0	035202 035412 0   0   0            0            410000035412 
FT1A	035202 035412 0   0   0            0            0            
FT2	035202 035412 0   0   0            0            0            
FT2RQ	035202 035412 0   0   777777777777 0            0            
FT3	035202 035412 0   0   777777777777 0            0            
FT9	035203 035412 0   0   777777777777 0            0            
ET1	035203 035412 0   0   0            0            0            
ET2	035203 035412 0   0   0            0            0            
ST1	035203 035412 0   0   0            0            0            
ST2	035203 035412 0   0   0            0            0            
ST9	035203 035412 0   0   0            0            0            


*035203 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035203 035203 0   0   332000000000 0            0            
IT1	035203 0      0   0   332000000000 0            0            
AT3	035203 0      0   0   0            0            332000000000 
AT6	035203 0      0   0   0            0            332000000000 
FT0	035203 0      0   0   0            0            332000000000 
FT1A	035203 0      0   0   0            0            0            
FT9	035204 0      0   0   0            0            0            
ET0	035205 0      0   0   0            0            0            
ST1A	035205 0      0   0   0            0            0            
ST9	035205 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 804
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1083



*035205 JUMPA	0,035206
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035205 035205 0   0   324000035206 0            000000035206 
IT1	035205 0      0   0   324000035206 0            000000035206 
AT3	035205 0      0   0   000000035206 0            324000035206 
AT6	035205 035206 0   0   000000035206 0            324000035206 
FT1A	035205 035206 0   0   000000035206 0            000000035206 
FT2	035205 035206 0   0   0            0            000000035206 
FT2RQ	035205 035206 0   0   0            0            000000035206 
FT3	035205 035206 0   0   0            0            000000035206 
FT9	035206 035206 0   0   0            0            000000035206 
ET0	035206 035206 0   0   0            0            000000035206 
ST1A	035206 035206 0   0   0            0            000000035206 
ST9	035206 035206 0   0   0            0            000000035206 


*035206 MOVE 	0,035502
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035206 035206 0   0   200000035502 0            777777000000 
IT1	035206 0      0   0   200000035502 0            777777000000 
AT3	035206 0      0   0   000000035502 0            200000035502 
AT6	035206 035502 0   0   000000035502 0            200000035502 
FT0	035206 035502 0   0   777777000000 0            200000035502 
FT1A	035206 035502 0   0   777777000000 0            777777000000 
FT9	035207 035502 0   0   777777000000 0            777777000000 
ET0	035207 035502 0   0   777777000000 0            777777000000 
ST1	035207 035502 0   0   777777000000 0            777777000000 
ST2	035207 035502 0   0   777777000000 0            777777000000 
ST9	035207 035502 0   0   777777000000 0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 805
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1084

*035207 ANDCB 	0,035412
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035207 035207 0   0   440000035412 0            0            
IT1	035207 0      0   0   440000035412 0            0            
AT3	035207 0      0   0   000000035412 0            440000035412 
AT6	035207 035412 0   0   000000035412 0            440000035412 
FT0	035207 035412 0   0   0            0            440000035412 
FT1A	035207 035412 0   0   0            0            0            
FT2	035207 035412 0   0   0            0            0            
FT2RQ	035207 035412 0   0   777777000000 0            0            
FT3	035207 035412 0   0   777777000000 0            0            
FT9	035210 035412 0   0   777777000000 0            0            
ET1	035210 035412 0   0   000000777777 0            0            
ET2	035210 035412 0   0   000000777777 0            0            
ST1	035210 035412 0   0   000000777777 0            0            
ST2	035210 035412 0   0   000000777777 0            0            
ST9	035210 035412 0   0   000000777777 0            0            


*035210 CAME	0,035537
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035210 035210 0   0   312000035537 0            000000777777 
IT1	035210 0      0   0   312000035537 0            000000777777 
AT3	035210 0      0   0   000000035537 0            312000035537 
AT6	035210 035537 0   0   000000035537 0            312000035537 
FT0	035210 035537 0   0   000000777777 0            312000035537 
FT1A	035210 035537 0   0   000000777777 0            000000777777 
FT2	035210 035537 0   0   0            0            000000777777 
FT2RQ	035210 035537 0   0   000000777777 0            000000777777 
FT3	035210 035537 0   0   000000777777 0            000000777777 
FT9	035211 035537 0   0   000000777777 0            000000777777 
ET0	035212 035537 0   0   0            0            000000777777 
ST1A	035212 035537 0   0   0            0            000000777777 
ST9	035212 035537 0   0   0            0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 806
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1085

*035212 JUMPA	0,035213
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035212 035212 0   0   324000035213 0            000000035213 
IT1	035212 0      0   0   324000035213 0            000000035213 
AT3	035212 0      0   0   000000035213 0            324000035213 
AT6	035212 035213 0   0   000000035213 0            324000035213 
FT1A	035212 035213 0   0   000000035213 0            000000035213 
FT2	035212 035213 0   0   0            0            000000035213 
FT2RQ	035212 035213 0   0   000000777777 0            000000035213 
FT3	035212 035213 0   0   000000777777 0            000000035213 
FT9	035213 035213 0   0   000000777777 0            000000035213 
ET0	035213 035213 0   0   000000777777 0            000000035213 
ST1A	035213 035213 0   0   000000777777 0            000000035213 
ST9	035213 035213 0   0   000000777777 0            000000035213 


*035213 MOVE 	0,035502
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035213 035213 0   0   200000035502 0            777777000000 
IT1	035213 0      0   0   200000035502 0            777777000000 
AT3	035213 0      0   0   000000035502 0            200000035502 
AT6	035213 035502 0   0   000000035502 0            200000035502 
FT0	035213 035502 0   0   777777000000 0            200000035502 
FT1A	035213 035502 0   0   777777000000 0            777777000000 
FT9	035214 035502 0   0   777777000000 0            777777000000 
ET0	035214 035502 0   0   777777000000 0            777777000000 
ST1	035214 035502 0   0   777777000000 0            777777000000 
ST2	035214 035502 0   0   777777000000 0            777777000000 
ST9	035214 035502 0   0   777777000000 0            777777000000 


*035214 ANDCB 	0,035524
INITIAL
C(AC)=777777 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035214 035214 0   0   440000035524 0            777777777777 
IT1	035214 0      0   0   440000035524 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 807
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1086

AT3	035214 0      0   0   000000035524 0            440000035524 
AT6	035214 035524 0   0   000000035524 0            440000035524 
FT0	035214 035524 0   0   777777777777 0            440000035524 
FT1A	035214 035524 0   0   777777777777 0            777777777777 
FT2	035214 035524 0   0   0            0            777777777777 
FT2RQ	035214 035524 0   0   777777000000 0            777777777777 
FT3	035214 035524 0   0   777777000000 0            777777777777 
FT9	035215 035524 0   0   777777000000 0            777777777777 
ET1	035215 035524 0   0   000000777777 0            777777777777 
ET2	035215 035524 0   0   0            0            777777777777 
ST1	035215 035524 0   0   0            0            777777777777 
ST2	035215 035524 0   0   0            0            777777777777 
ST9	035215 035524 0   0   0            0            777777777777 


*035215 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035215 035215 0   0   332000000000 0            0            
IT1	035215 0      0   0   332000000000 0            0            
AT3	035215 0      0   0   0            0            332000000000 
AT6	035215 0      0   0   0            0            332000000000 
FT0	035215 0      0   0   0            0            332000000000 
FT1A	035215 0      0   0   0            0            0            
FT9	035216 0      0   0   0            0            0            
ET0	035217 0      0   0   0            0            0            
ST1A	035217 0      0   0   0            0            0            
ST9	035217 0      0   0   0            0            0            


*035217 JUMPA	0,035220
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035217 035217 0   0   324000035220 0            000000035220 
IT1	035217 0      0   0   324000035220 0            000000035220 
AT3	035217 0      0   0   000000035220 0            324000035220 
AT6	035217 035220 0   0   000000035220 0            324000035220 
FT1A	035217 035220 0   0   000000035220 0            000000035220 
FT2	035217 035220 0   0   0            0            000000035220 
FT2RQ	035217 035220 0   0   0            0            000000035220 
FT3	035217 035220 0   0   0            0            000000035220 
FT9	035220 035220 0   0   0            0            000000035220 
ET0	035220 035220 0   0   0            0            000000035220 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 808
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1087

ST1A	035220 035220 0   0   0            0            000000035220 
ST9	035220 035220 0   0   0            0            000000035220 


*035220 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035220 035220 0   0   400000000000 0            0            
IT1	035220 0      0   0   400000000000 0            0            
AT3	035220 0      0   0   0            0            400000000000 
AT6	035220 0      0   0   0            0            400000000000 
FT1A	035220 0      0   0   0            0            0            
FT9	035221 0      0   0   0            0            0            
ET0	035221 0      0   0   0            0            0            
ST1	035221 0      0   0   0            0            0            
ST2	035221 0      0   0   0            0            0            
ST9	035221 0      0   0   0            0            0            


*035221 ANDCB 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035221 035221 0   0   440000000000 0            0            
IT1	035221 0      0   0   440000000000 0            0            
AT3	035221 0      0   0   0            0            440000000000 
AT6	035221 0      0   0   0            0            440000000000 
FT0	035221 0      0   0   0            0            440000000000 
FT1A	035221 0      0   0   0            0            0            
FT2	035221 0      0   0   0            0            0            
FT2RQ	035221 0      0   0   0            0            0            
FT3	035221 0      0   0   0            0            0            
FT9	035222 0      0   0   0            0            0            
ET1	035222 0      0   0   777777777777 0            0            
ET2	035222 0      0   0   777777777777 0            0            
ST1	035222 0      0   0   777777777777 0            0            
ST2	035222 0      0   0   777777777777 0            0            
ST9	035222 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 809
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1088

*035222 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035222 035222 0   0   312000035524 0            777777777777 
IT1	035222 0      0   0   312000035524 0            777777777777 
AT3	035222 0      0   0   000000035524 0            312000035524 
AT6	035222 035524 0   0   000000035524 0            312000035524 
FT0	035222 035524 0   0   777777777777 0            312000035524 
FT1A	035222 035524 0   0   777777777777 0            777777777777 
FT2	035222 035524 0   0   0            0            777777777777 
FT2RQ	035222 035524 0   0   777777777777 0            777777777777 
FT3	035222 035524 0   0   777777777777 0            777777777777 
FT9	035223 035524 0   0   777777777777 0            777777777777 
ET0	035224 035524 0   0   0            0            777777777777 
ST1A	035224 035524 0   0   0            0            777777777777 
ST9	035224 035524 0   0   0            0            777777777777 


*035224 JUMPA	0,035225
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035224 035224 0   0   324000035225 0            000000035225 
IT1	035224 0      0   0   324000035225 0            000000035225 
AT3	035224 0      0   0   000000035225 0            324000035225 
AT6	035224 035225 0   0   000000035225 0            324000035225 
FT1A	035224 035225 0   0   000000035225 0            000000035225 
FT2	035224 035225 0   0   0            0            000000035225 
FT2RQ	035224 035225 0   0   777777777777 0            000000035225 
FT3	035224 035225 0   0   777777777777 0            000000035225 
FT9	035225 035225 0   0   777777777777 0            000000035225 
ET0	035225 035225 0   0   777777777777 0            000000035225 
ST1A	035225 035225 0   0   777777777777 0            000000035225 
ST9	035225 035225 0   0   777777777777 0            000000035225 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 810
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1089

*035225 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035225 035225 0   0   474000000000 0            0            
IT1	035225 0      0   0   474000000000 0            0            
AT3	035225 0      0   0   0            0            474000000000 
AT6	035225 0      0   0   0            0            474000000000 
FT1A	035225 0      0   0   0            0            0            
FT9	035226 0      0   0   0            0            0            
ET0	035226 0      0   0   777777777777 0            0            
ST1	035226 0      0   0   777777777777 0            0            
ST2	035226 0      0   0   777777777777 0            0            
ST9	035226 0      0   0   777777777777 0            0            


*035226 ANDCB 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035226 035226 0   0   440000000000 0            777777777777 
IT1	035226 0      0   0   440000000000 0            777777777777 
AT3	035226 0      0   0   0            0            440000000000 
AT6	035226 0      0   0   0            0            440000000000 
FT0	035226 0      0   0   777777777777 0            440000000000 
FT1A	035226 0      0   0   777777777777 0            777777777777 
FT2	035226 0      0   0   0            0            777777777777 
FT2RQ	035226 0      0   0   777777777777 0            777777777777 
FT3	035226 0      0   0   777777777777 0            777777777777 
FT9	035227 0      0   0   777777777777 0            777777777777 
ET1	035227 0      0   0   0            0            777777777777 
ET2	035227 0      0   0   0            0            777777777777 
ST1	035227 0      0   0   0            0            777777777777 
ST2	035227 0      0   0   0            0            777777777777 
ST9	035227 0      0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 811
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1090

*035227 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035227 035227 0   0   332000000000 0            0            
IT1	035227 0      0   0   332000000000 0            0            
AT3	035227 0      0   0   0            0            332000000000 
AT6	035227 0      0   0   0            0            332000000000 
FT0	035227 0      0   0   0            0            332000000000 
FT1A	035227 0      0   0   0            0            0            
FT9	035230 0      0   0   0            0            0            
ET0	035231 0      0   0   0            0            0            
ST1A	035231 0      0   0   0            0            0            
ST9	035231 0      0   0   0            0            0            


*035231 JUMPA	0,035232
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035231 035231 0   0   324000035232 0            000000035232 
IT1	035231 0      0   0   324000035232 0            000000035232 
AT3	035231 0      0   0   000000035232 0            324000035232 
AT6	035231 035232 0   0   000000035232 0            324000035232 
FT1A	035231 035232 0   0   000000035232 0            000000035232 
FT2	035231 035232 0   0   0            0            000000035232 
FT2RQ	035231 035232 0   0   0            0            000000035232 
FT3	035231 035232 0   0   0            0            000000035232 
FT9	035232 035232 0   0   0            0            000000035232 
ET0	035232 035232 0   0   0            0            000000035232 
ST1A	035232 035232 0   0   0            0            000000035232 
ST9	035232 035232 0   0   0            0            000000035232 


*035232 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035232 035232 0   0   400000000000 0            0            
IT1	035232 0      0   0   400000000000 0            0            
AT3	035232 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 812
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1091

AT6	035232 0      0   0   0            0            400000000000 
FT1A	035232 0      0   0   0            0            0            
FT9	035233 0      0   0   0            0            0            
ET0	035233 0      0   0   0            0            0            
ST1	035233 0      0   0   0            0            0            
ST2	035233 0      0   0   0            0            0            
ST9	035233 0      0   0   0            0            0            


*035233 ANDCB 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035233 035233 0   0   440000035524 0            777777777777 
IT1	035233 0      0   0   440000035524 0            777777777777 
AT3	035233 0      0   0   000000035524 0            440000035524 
AT6	035233 035524 0   0   000000035524 0            440000035524 
FT0	035233 035524 0   0   777777777777 0            440000035524 
FT1A	035233 035524 0   0   777777777777 0            777777777777 
FT2	035233 035524 0   0   0            0            777777777777 
FT2RQ	035233 035524 0   0   0            0            777777777777 
FT3	035233 035524 0   0   0            0            777777777777 
FT9	035234 035524 0   0   0            0            777777777777 
ET1	035234 035524 0   0   777777777777 0            777777777777 
ET2	035234 035524 0   0   0            0            777777777777 
ST1	035234 035524 0   0   0            0            777777777777 
ST2	035234 035524 0   0   0            0            777777777777 
ST9	035234 035524 0   0   0            0            777777777777 


*035234 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035234 035234 0   0   302000000000 0            0            
IT1	035234 0      0   0   302000000000 0            0            
AT3	035234 0      0   0   0            0            302000000000 
AT6	035234 0      0   0   0            0            302000000000 
FT1A	035234 0      0   0   0            0            0            
FT2	035234 0      0   0   0            0            0            
FT2RQ	035234 0      0   0   0            0            0            
FT3	035234 0      0   0   0            0            0            
FT9	035235 0      0   0   0            0            0            
ET0	035236 0      0   0   0            0            0            
ST1A	035236 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 813
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1092

ST9	035236 0      0   0   0            0            0            


*035236 JUMPA	0,035237
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035236 035236 0   0   324000035237 0            000000035237 
IT1	035236 0      0   0   324000035237 0            000000035237 
AT3	035236 0      0   0   000000035237 0            324000035237 
AT6	035236 035237 0   0   000000035237 0            324000035237 
FT1A	035236 035237 0   0   000000035237 0            000000035237 
FT2	035236 035237 0   0   0            0            000000035237 
FT2RQ	035236 035237 0   0   0            0            000000035237 
FT3	035236 035237 0   0   0            0            000000035237 
FT9	035237 035237 0   0   0            0            000000035237 
ET0	035237 035237 0   0   0            0            000000035237 
ST1A	035237 035237 0   0   0            0            000000035237 
ST9	035237 035237 0   0   0            0            000000035237 


*035237 SETO 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035237 035237 0   0   474000000000 0            0            
IT1	035237 0      0   0   474000000000 0            0            
AT3	035237 0      0   0   0            0            474000000000 
AT6	035237 0      0   0   0            0            474000000000 
FT1A	035237 0      0   0   0            0            0            
FT9	035240 0      0   0   0            0            0            
ET0	035240 0      0   0   777777777777 0            0            
ST1	035240 0      0   0   777777777777 0            0            
ST2	035240 0      0   0   777777777777 0            0            
ST9	035240 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 814
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1093

*035240 ANDCB 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035240 035240 0   0   440000035412 0            0            
IT1	035240 0      0   0   440000035412 0            0            
AT3	035240 0      0   0   000000035412 0            440000035412 
AT6	035240 035412 0   0   000000035412 0            440000035412 
FT0	035240 035412 0   0   0            0            440000035412 
FT1A	035240 035412 0   0   0            0            0            
FT2	035240 035412 0   0   0            0            0            
FT2RQ	035240 035412 0   0   777777777777 0            0            
FT3	035240 035412 0   0   777777777777 0            0            
FT9	035241 035412 0   0   777777777777 0            0            
ET1	035241 035412 0   0   0            0            0            
ET2	035241 035412 0   0   0            0            0            
ST1	035241 035412 0   0   0            0            0            
ST2	035241 035412 0   0   0            0            0            
ST9	035241 035412 0   0   0            0            0            


*035241 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035241 035241 0   0   302000000000 0            0            
IT1	035241 0      0   0   302000000000 0            0            
AT3	035241 0      0   0   0            0            302000000000 
AT6	035241 0      0   0   0            0            302000000000 
FT1A	035241 0      0   0   0            0            0            
FT2	035241 0      0   0   0            0            0            
FT2RQ	035241 0      0   0   0            0            0            
FT3	035241 0      0   0   0            0            0            
FT9	035242 0      0   0   0            0            0            
ET0	035243 0      0   0   0            0            0            
ST1A	035243 0      0   0   0            0            0            
ST9	035243 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 815
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1094

*035243 JUMPA	0,035244
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035243 035243 0   0   324000035244 0            000000035244 
IT1	035243 0      0   0   324000035244 0            000000035244 
AT3	035243 0      0   0   000000035244 0            324000035244 
AT6	035243 035244 0   0   000000035244 0            324000035244 
FT1A	035243 035244 0   0   000000035244 0            000000035244 
FT2	035243 035244 0   0   0            0            000000035244 
FT2RQ	035243 035244 0   0   0            0            000000035244 
FT3	035243 035244 0   0   0            0            000000035244 
FT9	035244 035244 0   0   0            0            000000035244 
ET0	035244 035244 0   0   0            0            000000035244 
ST1A	035244 035244 0   0   0            0            000000035244 
ST9	035244 035244 0   0   0            0            000000035244 


*035244 MOVE 	0,035502
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035244 035244 0   0   200000035502 0            777777000000 
IT1	035244 0      0   0   200000035502 0            777777000000 
AT3	035244 0      0   0   000000035502 0            200000035502 
AT6	035244 035502 0   0   000000035502 0            200000035502 
FT0	035244 035502 0   0   777777000000 0            200000035502 
FT1A	035244 035502 0   0   777777000000 0            777777000000 
FT9	035245 035502 0   0   777777000000 0            777777000000 
ET0	035245 035502 0   0   777777000000 0            777777000000 
ST1	035245 035502 0   0   777777000000 0            777777000000 
ST2	035245 035502 0   0   777777000000 0            777777000000 
ST9	035245 035502 0   0   777777000000 0            777777000000 


*035245 ORCA 	0,035412
INITIAL
C(AC)=777777 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035245 035245 0   0   454000035412 0            0            
IT1	035245 0      0   0   454000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 816
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1095

AT3	035245 0      0   0   000000035412 0            454000035412 
AT6	035245 035412 0   0   000000035412 0            454000035412 
FT0	035245 035412 0   0   0            0            454000035412 
FT1A	035245 035412 0   0   0            0            0            
FT2	035245 035412 0   0   0            0            0            
FT2RQ	035245 035412 0   0   777777000000 0            0            
FT3	035245 035412 0   0   777777000000 0            0            
FT9	035246 035412 0   0   777777000000 0            0            
ET1	035246 035412 0   0   000000777777 0            0            
ET2	035246 035412 0   0   000000777777 0            0            
ST1	035246 035412 0   0   000000777777 0            0            
ST2	035246 035412 0   0   000000777777 0            0            
ST9	035246 035412 0   0   000000777777 0            0            


*035246 CAME	0,035537
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035246 035246 0   0   312000035537 0            000000777777 
IT1	035246 0      0   0   312000035537 0            000000777777 
AT3	035246 0      0   0   000000035537 0            312000035537 
AT6	035246 035537 0   0   000000035537 0            312000035537 
FT0	035246 035537 0   0   000000777777 0            312000035537 
FT1A	035246 035537 0   0   000000777777 0            000000777777 
FT2	035246 035537 0   0   0            0            000000777777 
FT2RQ	035246 035537 0   0   000000777777 0            000000777777 
FT3	035246 035537 0   0   000000777777 0            000000777777 
FT9	035247 035537 0   0   000000777777 0            000000777777 
ET0	035250 035537 0   0   0            0            000000777777 
ST1A	035250 035537 0   0   0            0            000000777777 
ST9	035250 035537 0   0   0            0            000000777777 


*035250 JUMPA	0,035251
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035250 035250 0   0   324000035251 0            000000035251 
IT1	035250 0      0   0   324000035251 0            000000035251 
AT3	035250 0      0   0   000000035251 0            324000035251 
AT6	035250 035251 0   0   000000035251 0            324000035251 
FT1A	035250 035251 0   0   000000035251 0            000000035251 
FT2	035250 035251 0   0   0            0            000000035251 
FT2RQ	035250 035251 0   0   000000777777 0            000000035251 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 817
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1096

FT3	035250 035251 0   0   000000777777 0            000000035251 
FT9	035251 035251 0   0   000000777777 0            000000035251 
ET0	035251 035251 0   0   000000777777 0            000000035251 
ST1A	035251 035251 0   0   000000777777 0            000000035251 
ST9	035251 035251 0   0   000000777777 0            000000035251 


*035251 MOVE 	0,035502
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035251 035251 0   0   200000035502 0            777777000000 
IT1	035251 0      0   0   200000035502 0            777777000000 
AT3	035251 0      0   0   000000035502 0            200000035502 
AT6	035251 035502 0   0   000000035502 0            200000035502 
FT0	035251 035502 0   0   777777000000 0            200000035502 
FT1A	035251 035502 0   0   777777000000 0            777777000000 
FT9	035252 035502 0   0   777777000000 0            777777000000 
ET0	035252 035502 0   0   777777000000 0            777777000000 
ST1	035252 035502 0   0   777777000000 0            777777000000 
ST2	035252 035502 0   0   777777000000 0            777777000000 
ST9	035252 035502 0   0   777777000000 0            777777000000 


*035252 ORCA 	0,035650
INITIAL
C(AC)=777777 000000 
C(E)=707070 707070 
FINAL
C(AC)=707070 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035252 035252 0   0   454000035650 0            707070707070 
IT1	035252 0      0   0   454000035650 0            707070707070 
AT3	035252 0      0   0   000000035650 0            454000035650 
AT6	035252 035650 0   0   000000035650 0            454000035650 
FT0	035252 035650 0   0   707070707070 0            454000035650 
FT1A	035252 035650 0   0   707070707070 0            707070707070 
FT2	035252 035650 0   0   0            0            707070707070 
FT2RQ	035252 035650 0   0   777777000000 0            707070707070 
FT3	035252 035650 0   0   777777000000 0            707070707070 
FT9	035253 035650 0   0   777777000000 0            707070707070 
ET1	035253 035650 0   0   000000777777 0            707070707070 
ET2	035253 035650 0   0   707070777777 0            707070707070 
ST1	035253 035650 0   0   707070777777 0            707070707070 
ST2	035253 035650 0   0   707070777777 0            707070707070 
ST9	035253 035650 0   0   707070777777 0            707070707070 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 818
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1097


*035253 CAME	0,035652
INITIAL
C(AC)=707070 777777 
C(E)=707070 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035253 035253 0   0   312000035652 0            707070777777 
IT1	035253 0      0   0   312000035652 0            707070777777 
AT3	035253 0      0   0   000000035652 0            312000035652 
AT6	035253 035652 0   0   000000035652 0            312000035652 
FT0	035253 035652 0   0   707070777777 0            312000035652 
FT1A	035253 035652 0   0   707070777777 0            707070777777 
FT2	035253 035652 0   0   0            0            707070777777 
FT2RQ	035253 035652 0   0   707070777777 0            707070777777 
FT3	035253 035652 0   0   707070777777 0            707070777777 
FT9	035254 035652 0   0   707070777777 0            707070777777 
ET0	035255 035652 0   0   0            0            707070777777 
ST1A	035255 035652 0   0   0            0            707070777777 
ST9	035255 035652 0   0   0            0            707070777777 


*035255 JUMPA	0,035256
INITIAL
C(AC)=707070 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035255 035255 0   0   324000035256 0            000000035256 
IT1	035255 0      0   0   324000035256 0            000000035256 
AT3	035255 0      0   0   000000035256 0            324000035256 
AT6	035255 035256 0   0   000000035256 0            324000035256 
FT1A	035255 035256 0   0   000000035256 0            000000035256 
FT2	035255 035256 0   0   0            0            000000035256 
FT2RQ	035255 035256 0   0   707070777777 0            000000035256 
FT3	035255 035256 0   0   707070777777 0            000000035256 
FT9	035256 035256 0   0   707070777777 0            000000035256 
ET0	035256 035256 0   0   707070777777 0            000000035256 
ST1A	035256 035256 0   0   707070777777 0            000000035256 
ST9	035256 035256 0   0   707070777777 0            000000035256 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 819
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1098

*035256 SETZ 	0,000000
INITIAL
C(AC)=707070 777777 
C(E)=707070 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035256 035256 0   0   400000000000 0            0            
IT1	035256 0      0   0   400000000000 0            0            
AT3	035256 0      0   0   0            0            400000000000 
AT6	035256 0      0   0   0            0            400000000000 
FT1A	035256 0      0   0   0            0            0            
FT9	035257 0      0   0   0            0            0            
ET0	035257 0      0   0   0            0            0            
ST1	035257 0      0   0   0            0            0            
ST2	035257 0      0   0   0            0            0            
ST9	035257 0      0   0   0            0            0            


*035257 ORCA 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035257 035257 0   0   454000000000 0            0            
IT1	035257 0      0   0   454000000000 0            0            
AT3	035257 0      0   0   0            0            454000000000 
AT6	035257 0      0   0   0            0            454000000000 
FT0	035257 0      0   0   0            0            454000000000 
FT1A	035257 0      0   0   0            0            0            
FT2	035257 0      0   0   0            0            0            
FT2RQ	035257 0      0   0   0            0            0            
FT3	035257 0      0   0   0            0            0            
FT9	035260 0      0   0   0            0            0            
ET1	035260 0      0   0   777777777777 0            0            
ET2	035260 0      0   0   777777777777 0            0            
ST1	035260 0      0   0   777777777777 0            0            
ST2	035260 0      0   0   777777777777 0            0            
ST9	035260 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 820
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1099

*035260 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035260 035260 0   0   312000035524 0            777777777777 
IT1	035260 0      0   0   312000035524 0            777777777777 
AT3	035260 0      0   0   000000035524 0            312000035524 
AT6	035260 035524 0   0   000000035524 0            312000035524 
FT0	035260 035524 0   0   777777777777 0            312000035524 
FT1A	035260 035524 0   0   777777777777 0            777777777777 
FT2	035260 035524 0   0   0            0            777777777777 
FT2RQ	035260 035524 0   0   777777777777 0            777777777777 
FT3	035260 035524 0   0   777777777777 0            777777777777 
FT9	035261 035524 0   0   777777777777 0            777777777777 
ET0	035262 035524 0   0   0            0            777777777777 
ST1A	035262 035524 0   0   0            0            777777777777 
ST9	035262 035524 0   0   0            0            777777777777 


*035262 JUMPA	0,035263
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035262 035262 0   0   324000035263 0            000000035263 
IT1	035262 0      0   0   324000035263 0            000000035263 
AT3	035262 0      0   0   000000035263 0            324000035263 
AT6	035262 035263 0   0   000000035263 0            324000035263 
FT1A	035262 035263 0   0   000000035263 0            000000035263 
FT2	035262 035263 0   0   0            0            000000035263 
FT2RQ	035262 035263 0   0   777777777777 0            000000035263 
FT3	035262 035263 0   0   777777777777 0            000000035263 
FT9	035263 035263 0   0   777777777777 0            000000035263 
ET0	035263 035263 0   0   777777777777 0            000000035263 
ST1A	035263 035263 0   0   777777777777 0            000000035263 
ST9	035263 035263 0   0   777777777777 0            000000035263 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 821
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1100

*035263 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035263 035263 0   0   474000000000 0            0            
IT1	035263 0      0   0   474000000000 0            0            
AT3	035263 0      0   0   0            0            474000000000 
AT6	035263 0      0   0   0            0            474000000000 
FT1A	035263 0      0   0   0            0            0            
FT9	035264 0      0   0   0            0            0            
ET0	035264 0      0   0   777777777777 0            0            
ST1	035264 0      0   0   777777777777 0            0            
ST2	035264 0      0   0   777777777777 0            0            
ST9	035264 0      0   0   777777777777 0            0            


*035264 ORCA 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035264 035264 0   0   454000000000 0            777777777777 
IT1	035264 0      0   0   454000000000 0            777777777777 
AT3	035264 0      0   0   0            0            454000000000 
AT6	035264 0      0   0   0            0            454000000000 
FT0	035264 0      0   0   777777777777 0            454000000000 
FT1A	035264 0      0   0   777777777777 0            777777777777 
FT2	035264 0      0   0   0            0            777777777777 
FT2RQ	035264 0      0   0   777777777777 0            777777777777 
FT3	035264 0      0   0   777777777777 0            777777777777 
FT9	035265 0      0   0   777777777777 0            777777777777 
ET1	035265 0      0   0   0            0            777777777777 
ET2	035265 0      0   0   777777777777 0            777777777777 
ST1	035265 0      0   0   777777777777 0            777777777777 
ST2	035265 0      0   0   777777777777 0            777777777777 
ST9	035265 0      0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 822
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1101

*035265 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035265 035265 0   0   312000035524 0            777777777777 
IT1	035265 0      0   0   312000035524 0            777777777777 
AT3	035265 0      0   0   000000035524 0            312000035524 
AT6	035265 035524 0   0   000000035524 0            312000035524 
FT0	035265 035524 0   0   777777777777 0            312000035524 
FT1A	035265 035524 0   0   777777777777 0            777777777777 
FT2	035265 035524 0   0   0            0            777777777777 
FT2RQ	035265 035524 0   0   777777777777 0            777777777777 
FT3	035265 035524 0   0   777777777777 0            777777777777 
FT9	035266 035524 0   0   777777777777 0            777777777777 
ET0	035267 035524 0   0   0            0            777777777777 
ST1A	035267 035524 0   0   0            0            777777777777 
ST9	035267 035524 0   0   0            0            777777777777 


*035267 JUMPA	0,035270
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035267 035267 0   0   324000035270 0            000000035270 
IT1	035267 0      0   0   324000035270 0            000000035270 
AT3	035267 0      0   0   000000035270 0            324000035270 
AT6	035267 035270 0   0   000000035270 0            324000035270 
FT1A	035267 035270 0   0   000000035270 0            000000035270 
FT2	035267 035270 0   0   0            0            000000035270 
FT2RQ	035267 035270 0   0   777777777777 0            000000035270 
FT3	035267 035270 0   0   777777777777 0            000000035270 
FT9	035270 035270 0   0   777777777777 0            000000035270 
ET0	035270 035270 0   0   777777777777 0            000000035270 
ST1A	035270 035270 0   0   777777777777 0            000000035270 
ST9	035270 035270 0   0   777777777777 0            000000035270 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 823
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1102

*035270 SETZ 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035270 035270 0   0   400000000000 0            0            
IT1	035270 0      0   0   400000000000 0            0            
AT3	035270 0      0   0   0            0            400000000000 
AT6	035270 0      0   0   0            0            400000000000 
FT1A	035270 0      0   0   0            0            0            
FT9	035271 0      0   0   0            0            0            
ET0	035271 0      0   0   0            0            0            
ST1	035271 0      0   0   0            0            0            
ST2	035271 0      0   0   0            0            0            
ST9	035271 0      0   0   0            0            0            


*035271 ORCA 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035271 035271 0   0   454000035524 0            777777777777 
IT1	035271 0      0   0   454000035524 0            777777777777 
AT3	035271 0      0   0   000000035524 0            454000035524 
AT6	035271 035524 0   0   000000035524 0            454000035524 
FT0	035271 035524 0   0   777777777777 0            454000035524 
FT1A	035271 035524 0   0   777777777777 0            777777777777 
FT2	035271 035524 0   0   0            0            777777777777 
FT2RQ	035271 035524 0   0   0            0            777777777777 
FT3	035271 035524 0   0   0            0            777777777777 
FT9	035272 035524 0   0   0            0            777777777777 
ET1	035272 035524 0   0   777777777777 0            777777777777 
ET2	035272 035524 0   0   777777777777 0            777777777777 
ST1	035272 035524 0   0   777777777777 0            777777777777 
ST2	035272 035524 0   0   777777777777 0            777777777777 
ST9	035272 035524 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 824
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1103

*035272 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035272 035272 0   0   312000035524 0            777777777777 
IT1	035272 0      0   0   312000035524 0            777777777777 
AT3	035272 0      0   0   000000035524 0            312000035524 
AT6	035272 035524 0   0   000000035524 0            312000035524 
FT0	035272 035524 0   0   777777777777 0            312000035524 
FT1A	035272 035524 0   0   777777777777 0            777777777777 
FT2	035272 035524 0   0   0            0            777777777777 
FT2RQ	035272 035524 0   0   777777777777 0            777777777777 
FT3	035272 035524 0   0   777777777777 0            777777777777 
FT9	035273 035524 0   0   777777777777 0            777777777777 
ET0	035274 035524 0   0   0            0            777777777777 
ST1A	035274 035524 0   0   0            0            777777777777 
ST9	035274 035524 0   0   0            0            777777777777 


*035274 JUMPA	0,035275
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035274 035274 0   0   324000035275 0            000000035275 
IT1	035274 0      0   0   324000035275 0            000000035275 
AT3	035274 0      0   0   000000035275 0            324000035275 
AT6	035274 035275 0   0   000000035275 0            324000035275 
FT1A	035274 035275 0   0   000000035275 0            000000035275 
FT2	035274 035275 0   0   0            0            000000035275 
FT2RQ	035274 035275 0   0   777777777777 0            000000035275 
FT3	035274 035275 0   0   777777777777 0            000000035275 
FT9	035275 035275 0   0   777777777777 0            000000035275 
ET0	035275 035275 0   0   777777777777 0            000000035275 
ST1A	035275 035275 0   0   777777777777 0            000000035275 
ST9	035275 035275 0   0   777777777777 0            000000035275 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 825
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1104

*035275 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035275 035275 0   0   474000000000 0            0            
IT1	035275 0      0   0   474000000000 0            0            
AT3	035275 0      0   0   0            0            474000000000 
AT6	035275 0      0   0   0            0            474000000000 
FT1A	035275 0      0   0   0            0            0            
FT9	035276 0      0   0   0            0            0            
ET0	035276 0      0   0   777777777777 0            0            
ST1	035276 0      0   0   777777777777 0            0            
ST2	035276 0      0   0   777777777777 0            0            
ST9	035276 0      0   0   777777777777 0            0            


*035276 ORCA 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035276 035276 0   0   454000035412 0            0            
IT1	035276 0      0   0   454000035412 0            0            
AT3	035276 0      0   0   000000035412 0            454000035412 
AT6	035276 035412 0   0   000000035412 0            454000035412 
FT0	035276 035412 0   0   0            0            454000035412 
FT1A	035276 035412 0   0   0            0            0            
FT2	035276 035412 0   0   0            0            0            
FT2RQ	035276 035412 0   0   777777777777 0            0            
FT3	035276 035412 0   0   777777777777 0            0            
FT9	035277 035412 0   0   777777777777 0            0            
ET1	035277 035412 0   0   0            0            0            
ET2	035277 035412 0   0   0            0            0            
ST1	035277 035412 0   0   0            0            0            
ST2	035277 035412 0   0   0            0            0            
ST9	035277 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 826
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1105

*035277 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035277 035277 0   0   302000000000 0            0            
IT1	035277 0      0   0   302000000000 0            0            
AT3	035277 0      0   0   0            0            302000000000 
AT6	035277 0      0   0   0            0            302000000000 
FT1A	035277 0      0   0   0            0            0            
FT2	035277 0      0   0   0            0            0            
FT2RQ	035277 0      0   0   0            0            0            
FT3	035277 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	035301 0      0   0   0            0            0            
ST1A	035301 0      0   0   0            0            0            
ST9	035301 0      0   0   0            0            0            


*035301 JUMPA	0,035302
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035301 035301 0   0   324000035302 0            000000035302 
IT1	035301 0      0   0   324000035302 0            000000035302 
AT3	035301 0      0   0   000000035302 0            324000035302 
AT6	035301 035302 0   0   000000035302 0            324000035302 
FT1A	035301 035302 0   0   000000035302 0            000000035302 
FT2	035301 035302 0   0   0            0            000000035302 
FT2RQ	035301 035302 0   0   0            0            000000035302 
FT3	035301 035302 0   0   0            0            000000035302 
FT9	035302 035302 0   0   0            0            000000035302 
ET0	035302 035302 0   0   0            0            000000035302 
ST1A	035302 035302 0   0   0            0            000000035302 
ST9	035302 035302 0   0   0            0            000000035302 


*035302 MOVE 	0,035502
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035302 035302 0   0   200000035502 0            777777000000 
IT1	035302 0      0   0   200000035502 0            777777000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 827
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1106

AT3	035302 0      0   0   000000035502 0            200000035502 
AT6	035302 035502 0   0   000000035502 0            200000035502 
FT0	035302 035502 0   0   777777000000 0            200000035502 
FT1A	035302 035502 0   0   777777000000 0            777777000000 
FT9	035303 035502 0   0   777777000000 0            777777000000 
ET0	035303 035502 0   0   777777000000 0            777777000000 
ST1	035303 035502 0   0   777777000000 0            777777000000 
ST2	035303 035502 0   0   777777000000 0            777777000000 
ST9	035303 035502 0   0   777777000000 0            777777000000 


*035303 ORCB 	0,035650
INITIAL
C(AC)=777777 000000 
C(E)=707070 707070 
FINAL
C(AC)=070707 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035303 035303 0   0   470000035650 0            707070707070 
IT1	035303 0      0   0   470000035650 0            707070707070 
AT3	035303 0      0   0   000000035650 0            470000035650 
AT6	035303 035650 0   0   000000035650 0            470000035650 
FT0	035303 035650 0   0   707070707070 0            470000035650 
FT1A	035303 035650 0   0   707070707070 0            707070707070 
FT2	035303 035650 0   0   0            0            707070707070 
FT2RQ	035303 035650 0   0   777777000000 0            707070707070 
FT3	035303 035650 0   0   777777000000 0            707070707070 
FT9	035304 035650 0   0   777777000000 0            707070707070 
ET1	035304 035650 0   0   000000777777 0            707070707070 
ET2	035304 035650 0   0   070707777777 0            707070707070 
ST1	035304 035650 0   0   070707777777 0            707070707070 
ST2	035304 035650 0   0   070707777777 0            707070707070 
ST9	035304 035650 0   0   070707777777 0            707070707070 


*035304 CAME	0,035653
INITIAL
C(AC)=070707 777777 
C(E)=070707 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035304 035304 0   0   312000035653 0            070707777777 
IT1	035304 0      0   0   312000035653 0            070707777777 
AT3	035304 0      0   0   000000035653 0            312000035653 
AT6	035304 035653 0   0   000000035653 0            312000035653 
FT0	035304 035653 0   0   070707777777 0            312000035653 
FT1A	035304 035653 0   0   070707777777 0            070707777777 
FT2	035304 035653 0   0   0            0            070707777777 
FT2RQ	035304 035653 0   0   070707777777 0            070707777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 828
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1107

FT3	035304 035653 0   0   070707777777 0            070707777777 
FT9	035305 035653 0   0   070707777777 0            070707777777 
ET0	035306 035653 0   0   0            0            070707777777 
ST1A	035306 035653 0   0   0            0            070707777777 
ST9	035306 035653 0   0   0            0            070707777777 


*035306 JUMPA	0,035307
INITIAL
C(AC)=070707 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035306 035306 0   0   324000035307 0            000000035307 
IT1	035306 0      0   0   324000035307 0            000000035307 
AT3	035306 0      0   0   000000035307 0            324000035307 
AT6	035306 035307 0   0   000000035307 0            324000035307 
FT1A	035306 035307 0   0   000000035307 0            000000035307 
FT2	035306 035307 0   0   0            0            000000035307 
FT2RQ	035306 035307 0   0   070707777777 0            000000035307 
FT3	035306 035307 0   0   070707777777 0            000000035307 
FT9	035307 035307 0   0   070707777777 0            000000035307 
ET0	035307 035307 0   0   070707777777 0            000000035307 
ST1A	035307 035307 0   0   070707777777 0            000000035307 
ST9	035307 035307 0   0   070707777777 0            000000035307 


*035307 MOVE 	0,035537
INITIAL
C(AC)=070707 777777 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035307 035307 0   0   200000035537 0            000000777777 
IT1	035307 0      0   0   200000035537 0            000000777777 
AT3	035307 0      0   0   000000035537 0            200000035537 
AT6	035307 035537 0   0   000000035537 0            200000035537 
FT0	035307 035537 0   0   000000777777 0            200000035537 
FT1A	035307 035537 0   0   000000777777 0            000000777777 
FT9	035310 035537 0   0   000000777777 0            000000777777 
ET0	035310 035537 0   0   000000777777 0            000000777777 
ST1	035310 035537 0   0   000000777777 0            000000777777 
ST2	035310 035537 0   0   000000777777 0            000000777777 
ST9	035310 035537 0   0   000000777777 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 829
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1108

*035310 ORCB 	0,035524
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035310 035310 0   0   470000035524 0            777777777777 
IT1	035310 0      0   0   470000035524 0            777777777777 
AT3	035310 0      0   0   000000035524 0            470000035524 
AT6	035310 035524 0   0   000000035524 0            470000035524 
FT0	035310 035524 0   0   777777777777 0            470000035524 
FT1A	035310 035524 0   0   777777777777 0            777777777777 
FT2	035310 035524 0   0   0            0            777777777777 
FT2RQ	035310 035524 0   0   000000777777 0            777777777777 
FT3	035310 035524 0   0   000000777777 0            777777777777 
FT9	035311 035524 0   0   000000777777 0            777777777777 
ET1	035311 035524 0   0   777777000000 0            777777777777 
ET2	035311 035524 0   0   777777000000 0            777777777777 
ST1	035311 035524 0   0   777777000000 0            777777777777 
ST2	035311 035524 0   0   777777000000 0            777777777777 
ST9	035311 035524 0   0   777777000000 0            777777777777 


*035311 CAME	0,035502
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035311 035311 0   0   312000035502 0            777777000000 
IT1	035311 0      0   0   312000035502 0            777777000000 
AT3	035311 0      0   0   000000035502 0            312000035502 
AT6	035311 035502 0   0   000000035502 0            312000035502 
FT0	035311 035502 0   0   777777000000 0            312000035502 
FT1A	035311 035502 0   0   777777000000 0            777777000000 
FT2	035311 035502 0   0   0            0            777777000000 
FT2RQ	035311 035502 0   0   777777000000 0            777777000000 
FT3	035311 035502 0   0   777777000000 0            777777000000 
FT9	035312 035502 0   0   777777000000 0            777777000000 
ET0	035313 035502 0   0   0            0            777777000000 
ST1A	035313 035502 0   0   0            0            777777000000 
ST9	035313 035502 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 830
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1109

*035313 JUMPA	0,035314
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035313 035313 0   0   324000035314 0            000000035314 
IT1	035313 0      0   0   324000035314 0            000000035314 
AT3	035313 0      0   0   000000035314 0            324000035314 
AT6	035313 035314 0   0   000000035314 0            324000035314 
FT1A	035313 035314 0   0   000000035314 0            000000035314 
FT2	035313 035314 0   0   0            0            000000035314 
FT2RQ	035313 035314 0   0   777777000000 0            000000035314 
FT3	035313 035314 0   0   777777000000 0            000000035314 
FT9	035314 035314 0   0   777777000000 0            000000035314 
ET0	035314 035314 0   0   777777000000 0            000000035314 
ST1A	035314 035314 0   0   777777000000 0            000000035314 
ST9	035314 035314 0   0   777777000000 0            000000035314 


*035314 SETZ 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035314 035314 0   0   400000000000 0            0            
IT1	035314 0      0   0   400000000000 0            0            
AT3	035314 0      0   0   0            0            400000000000 
AT6	035314 0      0   0   0            0            400000000000 
FT1A	035314 0      0   0   0            0            0            
FT9	035315 0      0   0   0            0            0            
ET0	035315 0      0   0   0            0            0            
ST1	035315 0      0   0   0            0            0            
ST2	035315 0      0   0   0            0            0            
ST9	035315 0      0   0   0            0            0            


*035315 ORCB 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035315 035315 0   0   470000035412 0            0            
IT1	035315 0      0   0   470000035412 0            0            
AT3	035315 0      0   0   000000035412 0            470000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 831
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1110

AT6	035315 035412 0   0   000000035412 0            470000035412 
FT0	035315 035412 0   0   0            0            470000035412 
FT1A	035315 035412 0   0   0            0            0            
FT2	035315 035412 0   0   0            0            0            
FT2RQ	035315 035412 0   0   0            0            0            
FT3	035315 035412 0   0   0            0            0            
FT9	035316 035412 0   0   0            0            0            
ET1	035316 035412 0   0   777777777777 0            0            
ET2	035316 035412 0   0   777777777777 0            0            
ST1	035316 035412 0   0   777777777777 0            0            
ST2	035316 035412 0   0   777777777777 0            0            
ST9	035316 035412 0   0   777777777777 0            0            


*035316 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035316 035316 0   0   312000035524 0            777777777777 
IT1	035316 0      0   0   312000035524 0            777777777777 
AT3	035316 0      0   0   000000035524 0            312000035524 
AT6	035316 035524 0   0   000000035524 0            312000035524 
FT0	035316 035524 0   0   777777777777 0            312000035524 
FT1A	035316 035524 0   0   777777777777 0            777777777777 
FT2	035316 035524 0   0   0            0            777777777777 
FT2RQ	035316 035524 0   0   777777777777 0            777777777777 
FT3	035316 035524 0   0   777777777777 0            777777777777 
FT9	035317 035524 0   0   777777777777 0            777777777777 
ET0	035320 035524 0   0   0            0            777777777777 
ST1A	035320 035524 0   0   0            0            777777777777 
ST9	035320 035524 0   0   0            0            777777777777 


*035320 JUMPA	0,035321
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035320 035320 0   0   324000035321 0            000000035321 
IT1	035320 0      0   0   324000035321 0            000000035321 
AT3	035320 0      0   0   000000035321 0            324000035321 
AT6	035320 035321 0   0   000000035321 0            324000035321 
FT1A	035320 035321 0   0   000000035321 0            000000035321 
FT2	035320 035321 0   0   0            0            000000035321 
FT2RQ	035320 035321 0   0   777777777777 0            000000035321 
FT3	035320 035321 0   0   777777777777 0            000000035321 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 832
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1111

FT9	035321 035321 0   0   777777777777 0            000000035321 
ET0	035321 035321 0   0   777777777777 0            000000035321 
ST1A	035321 035321 0   0   777777777777 0            000000035321 
ST9	035321 035321 0   0   777777777777 0            000000035321 


*035321 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035321 035321 0   0   474000000000 0            0            
IT1	035321 0      0   0   474000000000 0            0            
AT3	035321 0      0   0   0            0            474000000000 
AT6	035321 0      0   0   0            0            474000000000 
FT1A	035321 0      0   0   0            0            0            
FT9	035322 0      0   0   0            0            0            
ET0	035322 0      0   0   777777777777 0            0            
ST1	035322 0      0   0   777777777777 0            0            
ST2	035322 0      0   0   777777777777 0            0            
ST9	035322 0      0   0   777777777777 0            0            


*035322 ORCB 	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035322 035322 0   0   470000035524 0            777777777777 
IT1	035322 0      0   0   470000035524 0            777777777777 
AT3	035322 0      0   0   000000035524 0            470000035524 
AT6	035322 035524 0   0   000000035524 0            470000035524 
FT0	035322 035524 0   0   777777777777 0            470000035524 
FT1A	035322 035524 0   0   777777777777 0            777777777777 
FT2	035322 035524 0   0   0            0            777777777777 
FT2RQ	035322 035524 0   0   777777777777 0            777777777777 
FT3	035322 035524 0   0   777777777777 0            777777777777 
FT9	035323 035524 0   0   777777777777 0            777777777777 
ET1	035323 035524 0   0   0            0            777777777777 
ET2	035323 035524 0   0   0            0            777777777777 
ST1	035323 035524 0   0   0            0            777777777777 
ST2	035323 035524 0   0   0            0            777777777777 
ST9	035323 035524 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 833
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1112

*035323 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035323 035323 0   0   302000000000 0            0            
IT1	035323 0      0   0   302000000000 0            0            
AT3	035323 0      0   0   0            0            302000000000 
AT6	035323 0      0   0   0            0            302000000000 
FT1A	035323 0      0   0   0            0            0            
FT2	035323 0      0   0   0            0            0            
FT2RQ	035323 0      0   0   0            0            0            
FT3	035323 0      0   0   0            0            0            
FT9	035324 0      0   0   0            0            0            
ET0	035325 0      0   0   0            0            0            
ST1A	035325 0      0   0   0            0            0            
ST9	035325 0      0   0   0            0            0            


*035325 JUMPA	0,035326
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035325 035325 0   0   324000035326 0            000000035326 
IT1	035325 0      0   0   324000035326 0            000000035326 
AT3	035325 0      0   0   000000035326 0            324000035326 
AT6	035325 035326 0   0   000000035326 0            324000035326 
FT1A	035325 035326 0   0   000000035326 0            000000035326 
FT2	035325 035326 0   0   0            0            000000035326 
FT2RQ	035325 035326 0   0   0            0            000000035326 
FT3	035325 035326 0   0   0            0            000000035326 
FT9	035326 035326 0   0   0            0            000000035326 
ET0	035326 035326 0   0   0            0            000000035326 
ST1A	035326 035326 0   0   0            0            000000035326 
ST9	035326 035326 0   0   0            0            000000035326 


*035326 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035326 035326 0   0   400000000000 0            0            
IT1	035326 0      0   0   400000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 834
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1113

AT3	035326 0      0   0   0            0            400000000000 
AT6	035326 0      0   0   0            0            400000000000 
FT1A	035326 0      0   0   0            0            0            
FT9	035327 0      0   0   0            0            0            
ET0	035327 0      0   0   0            0            0            
ST1	035327 0      0   0   0            0            0            
ST2	035327 0      0   0   0            0            0            
ST9	035327 0      0   0   0            0            0            


*035327 ORCB 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035327 035327 0   0   470000035524 0            777777777777 
IT1	035327 0      0   0   470000035524 0            777777777777 
AT3	035327 0      0   0   000000035524 0            470000035524 
AT6	035327 035524 0   0   000000035524 0            470000035524 
FT0	035327 035524 0   0   777777777777 0            470000035524 
FT1A	035327 035524 0   0   777777777777 0            777777777777 
FT2	035327 035524 0   0   0            0            777777777777 
FT2RQ	035327 035524 0   0   0            0            777777777777 
FT3	035327 035524 0   0   0            0            777777777777 
FT9	035330 035524 0   0   0            0            777777777777 
ET1	035330 035524 0   0   777777777777 0            777777777777 
ET2	035330 035524 0   0   777777777777 0            777777777777 
ST1	035330 035524 0   0   777777777777 0            777777777777 
ST2	035330 035524 0   0   777777777777 0            777777777777 
ST9	035330 035524 0   0   777777777777 0            777777777777 


*035330 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035330 035330 0   0   312000035524 0            777777777777 
IT1	035330 0      0   0   312000035524 0            777777777777 
AT3	035330 0      0   0   000000035524 0            312000035524 
AT6	035330 035524 0   0   000000035524 0            312000035524 
FT0	035330 035524 0   0   777777777777 0            312000035524 
FT1A	035330 035524 0   0   777777777777 0            777777777777 
FT2	035330 035524 0   0   0            0            777777777777 
FT2RQ	035330 035524 0   0   777777777777 0            777777777777 
FT3	035330 035524 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 835
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1114

FT9	035331 035524 0   0   777777777777 0            777777777777 
ET0	035332 035524 0   0   0            0            777777777777 
ST1A	035332 035524 0   0   0            0            777777777777 
ST9	035332 035524 0   0   0            0            777777777777 


*035332 JUMPA	0,035333
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035332 035332 0   0   324000035333 0            000000035333 
IT1	035332 0      0   0   324000035333 0            000000035333 
AT3	035332 0      0   0   000000035333 0            324000035333 
AT6	035332 035333 0   0   000000035333 0            324000035333 
FT1A	035332 035333 0   0   000000035333 0            000000035333 
FT2	035332 035333 0   0   0            0            000000035333 
FT2RQ	035332 035333 0   0   777777777777 0            000000035333 
FT3	035332 035333 0   0   777777777777 0            000000035333 
FT9	035333 035333 0   0   777777777777 0            000000035333 
ET0	035333 035333 0   0   777777777777 0            000000035333 
ST1A	035333 035333 0   0   777777777777 0            000000035333 
ST9	035333 035333 0   0   777777777777 0            000000035333 


*035333 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035333 035333 0   0   474000000000 0            0            
IT1	035333 0      0   0   474000000000 0            0            
AT3	035333 0      0   0   0            0            474000000000 
AT6	035333 0      0   0   0            0            474000000000 
FT1A	035333 0      0   0   0            0            0            
FT9	035334 0      0   0   0            0            0            
ET0	035334 0      0   0   777777777777 0            0            
ST1	035334 0      0   0   777777777777 0            0            
ST2	035334 0      0   0   777777777777 0            0            
ST9	035334 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 836
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1115

*035334 ORCB 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035334 035334 0   0   470000035412 0            0            
IT1	035334 0      0   0   470000035412 0            0            
AT3	035334 0      0   0   000000035412 0            470000035412 
AT6	035334 035412 0   0   000000035412 0            470000035412 
FT0	035334 035412 0   0   0            0            470000035412 
FT1A	035334 035412 0   0   0            0            0            
FT2	035334 035412 0   0   0            0            0            
FT2RQ	035334 035412 0   0   777777777777 0            0            
FT3	035334 035412 0   0   777777777777 0            0            
FT9	035335 035412 0   0   777777777777 0            0            
ET1	035335 035412 0   0   0            0            0            
ET2	035335 035412 0   0   777777777777 0            0            
ST1	035335 035412 0   0   777777777777 0            0            
ST2	035335 035412 0   0   777777777777 0            0            
ST9	035335 035412 0   0   777777777777 0            0            


*035335 CAME	0,035524
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035335 035335 0   0   312000035524 0            777777777777 
IT1	035335 0      0   0   312000035524 0            777777777777 
AT3	035335 0      0   0   000000035524 0            312000035524 
AT6	035335 035524 0   0   000000035524 0            312000035524 
FT0	035335 035524 0   0   777777777777 0            312000035524 
FT1A	035335 035524 0   0   777777777777 0            777777777777 
FT2	035335 035524 0   0   0            0            777777777777 
FT2RQ	035335 035524 0   0   777777777777 0            777777777777 
FT3	035335 035524 0   0   777777777777 0            777777777777 
FT9	035336 035524 0   0   777777777777 0            777777777777 
ET0	035337 035524 0   0   0            0            777777777777 
ST1A	035337 035524 0   0   0            0            777777777777 
ST9	035337 035524 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 837
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1116

*035337 JUMPA	0,035340
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035337 035337 0   0   324000035340 0            000000035340 
IT1	035337 0      0   0   324000035340 0            000000035340 
AT3	035337 0      0   0   000000035340 0            324000035340 
AT6	035337 035340 0   0   000000035340 0            324000035340 
FT1A	035337 035340 0   0   000000035340 0            000000035340 
FT2	035337 035340 0   0   0            0            000000035340 
FT2RQ	035337 035340 0   0   777777777777 0            000000035340 
FT3	035337 035340 0   0   777777777777 0            000000035340 
FT9	035340 035340 0   0   777777777777 0            000000035340 
ET0	035340 035340 0   0   777777777777 0            000000035340 
ST1A	035340 035340 0   0   777777777777 0            000000035340 
ST9	035340 035340 0   0   777777777777 0            000000035340 


*035340 SETO 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035340 035340 0   0   474000000000 0            0            
IT1	035340 0      0   0   474000000000 0            0            
AT3	035340 0      0   0   0            0            474000000000 
AT6	035340 0      0   0   0            0            474000000000 
FT1A	035340 0      0   0   0            0            0            
FT9	035341 0      0   0   0            0            0            
ET0	035341 0      0   0   777777777777 0            0            
ST1	035341 0      0   0   777777777777 0            0            
ST2	035341 0      0   0   777777777777 0            0            
ST9	035341 0      0   0   777777777777 0            0            


*035341 MOVN 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035341 035341 0   0   210000035412 0            0            
IT1	035341 0      0   0   210000035412 0            0            
AT3	035341 0      0   0   000000035412 0            210000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 838
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1117

AT6	035341 035412 0   0   000000035412 0            210000035412 
FT0	035341 035412 0   0   0            0            210000035412 
FT1A	035341 035412 0   0   0            0            0            
FT9	035342 035412 0   0   0            0            0            
ET0	035342 035412 0   0   0            0            0            
ST1	035342 035412 0   0   0            0            0            
ST2	035342 035412 0   0   0            0            0            
ST9	035342 035412 0   0   0            0            0            


*035342 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035342 035342 0   0   332000000000 0            0            
IT1	035342 0      0   0   332000000000 0            0            
AT3	035342 0      0   0   0            0            332000000000 
AT6	035342 0      0   0   0            0            332000000000 
FT0	035342 0      0   0   0            0            332000000000 
FT1A	035342 0      0   0   0            0            0            
FT9	035343 0      0   0   0            0            0            
ET0	035344 0      0   0   0            0            0            
ST1A	035344 0      0   0   0            0            0            
ST9	035344 0      0   0   0            0            0            


*035344 JUMPA	0,035345
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035344 035344 0   0   324000035345 0            000000035345 
IT1	035344 0      0   0   324000035345 0            000000035345 
AT3	035344 0      0   0   000000035345 0            324000035345 
AT6	035344 035345 0   0   000000035345 0            324000035345 
FT1A	035344 035345 0   0   000000035345 0            000000035345 
FT2	035344 035345 0   0   0            0            000000035345 
FT2RQ	035344 035345 0   0   0            0            000000035345 
FT3	035344 035345 0   0   0            0            000000035345 
FT9	035345 035345 0   0   0            0            000000035345 
ET0	035345 035345 0   0   0            0            000000035345 
ST1A	035345 035345 0   0   0            0            000000035345 
ST9	035345 035345 0   0   0            0            000000035345 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 839
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1118

*035345 MOVE 	0,035502
INITIAL
C(AC)=000000 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035345 035345 0   0   200000035502 0            777777000000 
IT1	035345 0      0   0   200000035502 0            777777000000 
AT3	035345 0      0   0   000000035502 0            200000035502 
AT6	035345 035502 0   0   000000035502 0            200000035502 
FT0	035345 035502 0   0   777777000000 0            200000035502 
FT1A	035345 035502 0   0   777777000000 0            777777000000 
FT9	035346 035502 0   0   777777000000 0            777777000000 
ET0	035346 035502 0   0   777777000000 0            777777000000 
ST1	035346 035502 0   0   777777000000 0            777777000000 
ST2	035346 035502 0   0   777777000000 0            777777000000 
ST9	035346 035502 0   0   777777000000 0            777777000000 


*035346 MOVN 	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035346 035346 0   0   210000000000 0            777777000000 
IT1	035346 0      0   0   210000000000 0            777777000000 
AT3	035346 0      0   0   0            0            210000000000 
AT6	035346 0      0   0   0            0            210000000000 
FT0	035346 0      0   0   777777000000 0            210000000000 
FT1A	035346 0      0   0   777777000000 0            777777000000 
FT9	035347 0      0   0   777777000000 0            777777000000 
ET0	035347 0      0   0   000001000000 0            777777000000 
ST1	035347 0      0   0   000001000000 0            777777000000 
ST2	035347 0      0   0   000001000000 0            777777000000 
ST9	035347 0      0   0   000001000000 0            777777000000 


*035347 CAME	0,035440
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035347 035347 0   0   312000035440 0            000001000000 
IT1	035347 0      0   0   312000035440 0            000001000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 840
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1119

AT3	035347 0      0   0   000000035440 0            312000035440 
AT6	035347 035440 0   0   000000035440 0            312000035440 
FT0	035347 035440 0   0   000001000000 0            312000035440 
FT1A	035347 035440 0   0   000001000000 0            000001000000 
FT2	035347 035440 0   0   0            0            000001000000 
FT2RQ	035347 035440 0   0   000001000000 0            000001000000 
FT3	035347 035440 0   0   000001000000 0            000001000000 
FT9	035350 035440 0   0   000001000000 0            000001000000 
ET0	035351 035440 0   0   0            0            000001000000 
ST1A	035351 035440 0   0   0            0            000001000000 
ST9	035351 035440 0   0   0            0            000001000000 


*035351 JUMPA	0,035352
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035351 035351 0   0   324000035352 0            000000035352 
IT1	035351 0      0   0   324000035352 0            000000035352 
AT3	035351 0      0   0   000000035352 0            324000035352 
AT6	035351 035352 0   0   000000035352 0            324000035352 
FT1A	035351 035352 0   0   000000035352 0            000000035352 
FT2	035351 035352 0   0   0            0            000000035352 
FT2RQ	035351 035352 0   0   000001000000 0            000000035352 
FT3	035351 035352 0   0   000001000000 0            000000035352 
FT9	035352 035352 0   0   000001000000 0            000000035352 
ET0	035352 035352 0   0   000001000000 0            000000035352 
ST1A	035352 035352 0   0   000001000000 0            000000035352 
ST9	035352 035352 0   0   000001000000 0            000000035352 


*035352 SETZ 	0,000000
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035352 035352 0   0   400000000000 0            0            
IT1	035352 0      0   0   400000000000 0            0            
AT3	035352 0      0   0   0            0            400000000000 
AT6	035352 0      0   0   0            0            400000000000 
FT1A	035352 0      0   0   0            0            0            
FT9	035353 0      0   0   0            0            0            
ET0	035353 0      0   0   0            0            0            
ST1	035353 0      0   0   0            0            0            
ST2	035353 0      0   0   0            0            0            
ST9	035353 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 841
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1120



*035353 MOVN 	0,035650
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL
C(AC)=070707 070710 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035353 035353 0   0   210000035650 0            707070707070 
IT1	035353 0      0   0   210000035650 0            707070707070 
AT3	035353 0      0   0   000000035650 0            210000035650 
AT6	035353 035650 0   0   000000035650 0            210000035650 
FT0	035353 035650 0   0   707070707070 0            210000035650 
FT1A	035353 035650 0   0   707070707070 0            707070707070 
FT9	035354 035650 0   0   707070707070 0            707070707070 
ET0	035354 035650 0   0   070707070710 0            707070707070 
ST1	035354 035650 0   0   070707070710 0            707070707070 
ST2	035354 035650 0   0   070707070710 0            707070707070 
ST9	035354 035650 0   0   070707070710 0            707070707070 


*035354 CAME	0,035654
INITIAL
C(AC)=070707 070710 
C(E)=070707 070710 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035354 035354 0   0   312000035654 0            070707070710 
IT1	035354 0      0   0   312000035654 0            070707070710 
AT3	035354 0      0   0   000000035654 0            312000035654 
AT6	035354 035654 0   0   000000035654 0            312000035654 
FT0	035354 035654 0   0   070707070710 0            312000035654 
FT1A	035354 035654 0   0   070707070710 0            070707070710 
FT2	035354 035654 0   0   0            0            070707070710 
FT2RQ	035354 035654 0   0   070707070710 0            070707070710 
FT3	035354 035654 0   0   070707070710 0            070707070710 
FT9	035355 035654 0   0   070707070710 0            070707070710 
ET0	035356 035654 0   0   0            0            070707070710 
ST1A	035356 035654 0   0   0            0            070707070710 
ST9	035356 035654 0   0   0            0            070707070710 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 842
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1121

*035356 JUMPA	0,035357
INITIAL
C(AC)=070707 070710 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035356 035356 0   0   324000035357 0            000000035357 
IT1	035356 0      0   0   324000035357 0            000000035357 
AT3	035356 0      0   0   000000035357 0            324000035357 
AT6	035356 035357 0   0   000000035357 0            324000035357 
FT1A	035356 035357 0   0   000000035357 0            000000035357 
FT2	035356 035357 0   0   0            0            000000035357 
FT2RQ	035356 035357 0   0   070707070710 0            000000035357 
FT3	035356 035357 0   0   070707070710 0            000000035357 
FT9	035357 035357 0   0   070707070710 0            000000035357 
ET0	035357 035357 0   0   070707070710 0            000000035357 
ST1A	035357 035357 0   0   070707070710 0            000000035357 
ST9	035357 035357 0   0   070707070710 0            000000035357 


*035357 MOVN 	0,035524
INITIAL
C(AC)=070707 070710 
C(E)=777777 777777 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035357 035357 0   0   210000035524 0            777777777777 
IT1	035357 0      0   0   210000035524 0            777777777777 
AT3	035357 0      0   0   000000035524 0            210000035524 
AT6	035357 035524 0   0   000000035524 0            210000035524 
FT0	035357 035524 0   0   777777777777 0            210000035524 
FT1A	035357 035524 0   0   777777777777 0            777777777777 
FT9	035360 035524 0   0   777777777777 0            777777777777 
ET0	035360 035524 0   0   000000000001 0            777777777777 
ST1	035360 035524 0   0   000000000001 0            777777777777 
ST2	035360 035524 0   0   000000000001 0            777777777777 
ST9	035360 035524 0   0   000000000001 0            777777777777 


*035360 CAIE	0,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035360 035360 0   0   302000000001 0            000000000001 
IT1	035360 0      0   0   302000000001 0            000000000001 
AT3	035360 0      0   0   000000000001 0            302000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 843
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1122

AT6	035360 000001 0   0   000000000001 0            302000000001 
FT1A	035360 000001 0   0   000000000001 0            000000000001 
FT2	035360 000001 0   0   0            0            000000000001 
FT2RQ	035360 000001 0   0   000000000001 0            000000000001 
FT3	035360 000001 0   0   000000000001 0            000000000001 
FT9	035361 000001 0   0   000000000001 0            000000000001 
ET0	035362 000001 0   0   0            0            000000000001 
ST1A	035362 000001 0   0   0            0            000000000001 
ST9	035362 000001 0   0   0            0            000000000001 


*035362 JUMPA	0,035363
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035362 035362 0   0   324000035363 0            000000035363 
IT1	035362 0      0   0   324000035363 0            000000035363 
AT3	035362 0      0   0   000000035363 0            324000035363 
AT6	035362 035363 0   0   000000035363 0            324000035363 
FT1A	035362 035363 0   0   000000035363 0            000000035363 
FT2	035362 035363 0   0   0            0            000000035363 
FT2RQ	035362 035363 0   0   000000000001 0            000000035363 
FT3	035362 035363 0   0   000000000001 0            000000035363 
FT9	035363 035363 0   0   000000000001 0            000000035363 
ET0	035363 035363 0   0   000000000001 0            000000035363 
ST1A	035363 035363 0   0   000000000001 0            000000035363 
ST9	035363 035363 0   0   000000000001 0            000000035363 


*035363 SETO 	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035363 035363 0   0   474000000000 0            0            
IT1	035363 0      0   0   474000000000 0            0            
AT3	035363 0      0   0   0            0            474000000000 
AT6	035363 0      0   0   0            0            474000000000 
FT1A	035363 0      0   0   0            0            0            
FT9	035364 0      0   0   0            0            0            
ET0	035364 0      0   0   777777777777 0            0            
ST1	035364 0      0   0   777777777777 0            0            
ST2	035364 0      0   0   777777777777 0            0            
ST9	035364 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 844
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1123

*035364 MOVM 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035364 035364 0   0   214000035412 0            0            
IT1	035364 0      0   0   214000035412 0            0            
AT3	035364 0      0   0   000000035412 0            214000035412 
AT6	035364 035412 0   0   000000035412 0            214000035412 
FT0	035364 035412 0   0   0            0            214000035412 
FT1A	035364 035412 0   0   0            0            0            
FT9	035365 035412 0   0   0            0            0            
ET0	035365 035412 0   0   0            0            0            
ST1	035365 035412 0   0   0            0            0            
ST2	035365 035412 0   0   0            0            0            
ST9	035365 035412 0   0   0            0            0            


*035365 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035365 035365 0   0   332000000000 0            0            
IT1	035365 0      0   0   332000000000 0            0            
AT3	035365 0      0   0   0            0            332000000000 
AT6	035365 0      0   0   0            0            332000000000 
FT0	035365 0      0   0   0            0            332000000000 
FT1A	035365 0      0   0   0            0            0            
FT9	035366 0      0   0   0            0            0            
ET0	035367 0      0   0   0            0            0            
ST1A	035367 0      0   0   0            0            0            
ST9	035367 0      0   0   0            0            0            


*035367 JUMPA	0,035370
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035367 035367 0   0   324000035370 0            000000035370 
IT1	035367 0      0   0   324000035370 0            000000035370 
AT3	035367 0      0   0   000000035370 0            324000035370 
AT6	035367 035370 0   0   000000035370 0            324000035370 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 845
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1124

FT1A	035367 035370 0   0   000000035370 0            000000035370 
FT2	035367 035370 0   0   0            0            000000035370 
FT2RQ	035367 035370 0   0   0            0            000000035370 
FT3	035367 035370 0   0   0            0            000000035370 
FT9	035370 035370 0   0   0            0            000000035370 
ET0	035370 035370 0   0   0            0            000000035370 
ST1A	035370 035370 0   0   0            0            000000035370 
ST9	035370 035370 0   0   0            0            000000035370 


*035370 SETZ 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035370 035370 0   0   400000000000 0            0            
IT1	035370 0      0   0   400000000000 0            0            
AT3	035370 0      0   0   0            0            400000000000 
AT6	035370 0      0   0   0            0            400000000000 
FT1A	035370 0      0   0   0            0            0            
FT9	035371 0      0   0   0            0            0            
ET0	035371 0      0   0   0            0            0            
ST1	035371 0      0   0   0            0            0            
ST2	035371 0      0   0   0            0            0            
ST9	035371 0      0   0   0            0            0            


*035371 MOVM 	0,035524
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035371 035371 0   0   214000035524 0            777777777777 
IT1	035371 0      0   0   214000035524 0            777777777777 
AT3	035371 0      0   0   000000035524 0            214000035524 
AT6	035371 035524 0   0   000000035524 0            214000035524 
FT0	035371 035524 0   0   777777777777 0            214000035524 
FT1A	035371 035524 0   0   777777777777 0            777777777777 
FT9	035372 035524 0   0   777777777777 0            777777777777 
ET0	035372 035524 0   0   000000000001 0            777777777777 
ST1	035372 035524 0   0   000000000001 0            777777777777 
ST2	035372 035524 0   0   000000000001 0            777777777777 
ST9	035372 035524 0   0   000000000001 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 846
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1125

*035372 CAIE	0,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035372 035372 0   0   302000000001 0            000000000001 
IT1	035372 0      0   0   302000000001 0            000000000001 
AT3	035372 0      0   0   000000000001 0            302000000001 
AT6	035372 000001 0   0   000000000001 0            302000000001 
FT1A	035372 000001 0   0   000000000001 0            000000000001 
FT2	035372 000001 0   0   0            0            000000000001 
FT2RQ	035372 000001 0   0   000000000001 0            000000000001 
FT3	035372 000001 0   0   000000000001 0            000000000001 
FT9	035373 000001 0   0   000000000001 0            000000000001 
ET0	035374 000001 0   0   0            0            000000000001 
ST1A	035374 000001 0   0   0            0            000000000001 
ST9	035374 000001 0   0   0            0            000000000001 


*035374 JUMPA	0,035375
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035374 035374 0   0   324000035375 0            000000035375 
IT1	035374 0      0   0   324000035375 0            000000035375 
AT3	035374 0      0   0   000000035375 0            324000035375 
AT6	035374 035375 0   0   000000035375 0            324000035375 
FT1A	035374 035375 0   0   000000035375 0            000000035375 
FT2	035374 035375 0   0   0            0            000000035375 
FT2RQ	035374 035375 0   0   000000000001 0            000000035375 
FT3	035374 035375 0   0   000000000001 0            000000035375 
FT9	035375 035375 0   0   000000000001 0            000000035375 
ET0	035375 035375 0   0   000000000001 0            000000035375 
ST1A	035375 035375 0   0   000000000001 0            000000035375 
ST9	035375 035375 0   0   000000000001 0            000000035375 


*035375 SETZ 	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035375 035375 0   0   400000000000 0            0            
IT1	035375 0      0   0   400000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 847
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1126

AT3	035375 0      0   0   0            0            400000000000 
AT6	035375 0      0   0   0            0            400000000000 
FT1A	035375 0      0   0   0            0            0            
FT9	035376 0      0   0   0            0            0            
ET0	035376 0      0   0   0            0            0            
ST1	035376 0      0   0   0            0            0            
ST2	035376 0      0   0   0            0            0            
ST9	035376 0      0   0   0            0            0            


*035376 MOVM 	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035376 035376 0   0   214000035461 0            400000000000 
IT1	035376 0      0   0   214000035461 0            400000000000 
AT3	035376 0      0   0   000000035461 0            214000035461 
AT6	035376 035461 0   0   000000035461 0            214000035461 
FT0	035376 035461 0   0   400000000000 0            214000035461 
FT1A	035376 035461 0   0   400000000000 0            400000000000 
FT9	035377 035461 0   0   400000000000 0            400000000000 
ET0	035377 035461 0   0   400000000000 0            400000000000 
ST1	035377 035461 0   0   400000000000 0            400000000000 
ST2	035377 035461 0   0   400000000000 0            400000000000 
ST9	035377 035461 0   0   400000000000 0            400000000000 


*035377 CAME	0,035461
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035377 035377 0   0   312000035461 0            400000000000 
IT1	035377 0      0   0   312000035461 0            400000000000 
AT3	035377 0      0   0   000000035461 0            312000035461 
AT6	035377 035461 0   0   000000035461 0            312000035461 
FT0	035377 035461 0   0   400000000000 0            312000035461 
FT1A	035377 035461 0   0   400000000000 0            400000000000 
FT2	035377 035461 0   0   0            0            400000000000 
FT2RQ	035377 035461 0   0   400000000000 0            400000000000 
FT3	035377 035461 0   0   400000000000 0            400000000000 
FT9	0      035461 0   0   400000000000 0            400000000000 
ET0	035401 035461 0   0   0            0            400000000000 
ST1A	035401 035461 0   0   0            0            400000000000 
ST9	035401 035461 0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 848
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1127



*035401 JUMPA	0,035402
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035401 035401 0   0   324000035402 0            000000035402 
IT1	035401 0      0   0   324000035402 0            000000035402 
AT3	035401 0      0   0   000000035402 0            324000035402 
AT6	035401 035402 0   0   000000035402 0            324000035402 
FT1A	035401 035402 0   0   000000035402 0            000000035402 
FT2	035401 035402 0   0   0            0            000000035402 
FT2RQ	035401 035402 0   0   400000000000 0            000000035402 
FT3	035401 035402 0   0   400000000000 0            000000035402 
FT9	035402 035402 0   0   400000000000 0            000000035402 
ET0	035402 035402 0   0   400000000000 0            000000035402 
ST1A	035402 035402 0   0   400000000000 0            000000035402 
ST9	035402 035402 0   0   400000000000 0            000000035402 


*035402 SETZ 	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035402 035402 0   0   400000000000 0            0            
IT1	035402 0      0   0   400000000000 0            0            
AT3	035402 0      0   0   0            0            400000000000 
AT6	035402 0      0   0   0            0            400000000000 
FT1A	035402 0      0   0   0            0            0            
FT9	035403 0      0   0   0            0            0            
ET0	035403 0      0   0   0            0            0            
ST1	035403 0      0   0   0            0            0            
ST2	035403 0      0   0   0            0            0            
ST9	035403 0      0   0   0            0            0            


*035403 MOVM 	0,035540
INITIAL
C(AC)=000000 000000 
C(E)=377777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035403 035403 0   0   214000035540 0            377777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 849
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1128

IT1	035403 0      0   0   214000035540 0            377777777777 
AT3	035403 0      0   0   000000035540 0            214000035540 
AT6	035403 035540 0   0   000000035540 0            214000035540 
FT0	035403 035540 0   0   377777777777 0            214000035540 
FT1A	035403 035540 0   0   377777777777 0            377777777777 
FT9	035404 035540 0   0   377777777777 0            377777777777 
ET0	035404 035540 0   0   377777777777 0            377777777777 
ST1	035404 035540 0   0   377777777777 0            377777777777 
ST2	035404 035540 0   0   377777777777 0            377777777777 
ST9	035404 035540 0   0   377777777777 0            377777777777 


*035404 CAME	0,035540
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035404 035404 0   0   312000035540 0            377777777777 
IT1	035404 0      0   0   312000035540 0            377777777777 
AT3	035404 0      0   0   000000035540 0            312000035540 
AT6	035404 035540 0   0   000000035540 0            312000035540 
FT0	035404 035540 0   0   377777777777 0            312000035540 
FT1A	035404 035540 0   0   377777777777 0            377777777777 
FT2	035404 035540 0   0   0            0            377777777777 
FT2RQ	035404 035540 0   0   377777777777 0            377777777777 
FT3	035404 035540 0   0   377777777777 0            377777777777 
FT9	035405 035540 0   0   377777777777 0            377777777777 
ET0	035406 035540 0   0   0            0            377777777777 
ST1A	035406 035540 0   0   0            0            377777777777 
ST9	035406 035540 0   0   0            0            377777777777 


*035406 JUMPA	0,035407
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035406 035406 0   0   324000035407 0            000000035407 
IT1	035406 0      0   0   324000035407 0            000000035407 
AT3	035406 0      0   0   000000035407 0            324000035407 
AT6	035406 035407 0   0   000000035407 0            324000035407 
FT1A	035406 035407 0   0   000000035407 0            000000035407 
FT2	035406 035407 0   0   0            0            000000035407 
FT2RQ	035406 035407 0   0   377777777777 0            000000035407 
FT3	035406 035407 0   0   377777777777 0            000000035407 
FT9	035407 035407 0   0   377777777777 0            000000035407 
ET0	035407 035407 0   0   377777777777 0            000000035407 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 850
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1129

ST1A	035407 035407 0   0   377777777777 0            000000035407 
ST9	035407 035407 0   0   377777777777 0            000000035407 


*035407 JRST	0,030057
INITIAL
C(AC)=377777 777777 
C(E)=254000 030641 
FINAL

C(E)=254000 030641 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	035407 035407 0   0   254000030057 0            254000030057 
IT1	035407 0      0   0   254000030057 0            254000030057 
AT3	035407 0      0   0   000000030057 0            254000030057 
AT6	035407 030057 0   0   000000030057 0            254000030057 
FT1A	035407 030057 0   0   000000030057 0            254000030057 
FT9	035410 030057 0   0   000000030057 0            254000030057 
ET0	030057 035410 0   0   000000030057 0            254000030057 
ST1A	030057 035410 0   0   000000030057 0            254000030057 
ST9	030057 035410 0   0   000000030057 0            254000030057 


*030057 JRST	0,030641
INITIAL
C(AC)=377777 777777 
C(E)=350000 030047 
FINAL

C(E)=350000 030047 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030057 030057 0   0   254000030641 0            254000030641 
IT1	030057 0      0   0   254000030641 0            254000030641 
AT3	030057 0      0   0   000000030641 0            254000030641 
AT6	030057 030641 0   0   000000030641 0            254000030641 
FT1A	030057 030641 0   0   000000030641 0            254000030641 
FT9	030060 030641 0   0   000000030641 0            254000030641 
ET0	030641 030060 0   0   000000030641 0            254000030641 
ST1A	030641 030060 0   0   000000030641 0            254000030641 
ST9	030641 030060 0   0   000000030641 0            254000030641 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 851
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1130

*030641 AOS 	0,030047
INITIAL
C(AC)=377777 777777 
C(E)=000000 000000 
FINAL
C(AC)=377777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030641 030641 0   0   350000030047 0            0            
IT1	030641 0      0   0   350000030047 0            0            
AT3	030641 0      0   0   000000030047 0            350000030047 
AT6	030641 030047 0   0   000000030047 0            350000030047 
FT0	030641 030047 0   0   0            0            350000030047 
FT1A	030641 030047 0   0   0            0            0            
FT9	030642 030047 0   0   0            0            0            
ET0	030642 030047 0   0   000000000001 0            0            
ST5	030642 030047 0   0   000000000001 0            0            
ST6A	030642 030047 0   0   000000000001 0            0            
ST9	030642 030047 0   0   000000000001 0            0            


*030642 SOS 	0,030024
INITIAL
C(AC)=377777 777777 
C(E)=000000 000001 
FINAL
C(AC)=377777 777777 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030642 030642 0   0   370000030024 0            000000000001 
IT1	030642 0      0   0   370000030024 0            000000000001 
AT3	030642 0      0   0   000000030024 0            370000030024 
AT6	030642 030024 0   0   000000030024 0            370000030024 
FT0	030642 030024 0   0   000000000001 0            370000030024 
FT1A	030642 030024 0   0   000000000001 0            000000000001 
FT9	030643 030024 0   0   000000000001 0            000000000001 
ET0	030643 030024 0   0   0            0            000000000001 
ST5	030643 030024 0   0   0            0            000000000001 
ST6A	030643 030024 0   0   0            0            000000000001 
ST9	030643 030024 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 852
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1131

*030643 SKIPN	0,030037
INITIAL
C(AC)=377777 777777 
C(E)=000000 000000 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030643 030643 0   0   336000030037 0            0            
IT1	030643 0      0   0   336000030037 0            0            
AT3	030643 0      0   0   000000030037 0            336000030037 
AT6	030643 030037 0   0   000000030037 0            336000030037 
FT0	030643 030037 0   0   0            0            336000030037 
FT1A	030643 030037 0   0   0            0            0            
FT9	030644 030037 0   0   0            0            0            
ET0	030644 030037 0   0   0            0            0            
ST1A	030644 030037 0   0   0            0            0            
ST9	030644 030037 0   0   0            0            0            


*030644 JRST	0,030652
INITIAL
C(AC)=377777 777777 
C(E)=332000 030041 
FINAL

C(E)=332000 030041 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030644 030644 0   0   254000030652 0            254000030652 
IT1	030644 0      0   0   254000030652 0            254000030652 
AT3	030644 0      0   0   000000030652 0            254000030652 
AT6	030644 030652 0   0   000000030652 0            254000030652 
FT1A	030644 030652 0   0   000000030652 0            254000030652 
FT9	030645 030652 0   0   000000030652 0            254000030652 
ET0	030652 030645 0   0   000000030652 0            254000030652 
ST1A	030652 030645 0   0   000000030652 0            254000030652 
ST9	030652 030645 0   0   000000030652 0            254000030652 


*030652 SKIPE	0,030041
INITIAL
C(AC)=377777 777777 
C(E)=000000 000000 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030652 030652 0   0   332000030041 0            0            
IT1	030652 0      0   0   332000030041 0            0            
AT3	030652 0      0   0   000000030041 0            332000030041 
AT6	030652 030041 0   0   000000030041 0            332000030041 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 853
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1132

FT0	030652 030041 0   0   0            0            332000030041 
FT1A	030652 030041 0   0   0            0            0            
FT9	030653 030041 0   0   0            0            0            
ET0	030654 030041 0   0   0            0            0            
ST1A	030654 030041 0   0   0            0            0            
ST9	030654 030041 0   0   0            0            0            


*030654 DATAO	4,030024

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030654 030654 0   0   700540030024 0            000000030024 
IT1	030654 0      0   0   700540030024 0            000000030024 
AT3	030654 0      0   0   000000030024 0            700540030024 
AT6	030654 030024 0   0   000000030024 0            700540030024 
FT1A	030654 030024 0   0   000000030024 0            000000030024 
FT2	030654 030024 0   0   0            0            000000030024 
FT2RQ	030654 030024 0   0   0            0            000000030024 
FT3	030654 030024 0   0   0            0            000000030024 
FT9	030655 030024 0   0   0            0            000000030024 
ST1	030655 030024 0   0   0            0            000000030024 
ST2	030655 030024 0   0   0            0            000000030024 
ST9	030655 030024 0   0   0            0            000000030024 


*030655 SKIPE	0,030024
INITIAL
C(AC)=377777 777777 
C(E)=000000 000000 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030655 030655 0   0   332000030024 0            0            
IT1	030655 0      0   0   332000030024 0            0            
AT3	030655 0      0   0   000000030024 0            332000030024 
AT6	030655 030024 0   0   000000030024 0            332000030024 
FT0	030655 030024 0   0   0            0            332000030024 
FT1A	030655 030024 0   0   0            0            0            
FT9	030656 030024 0   0   0            0            0            
ET0	030657 030024 0   0   0            0            0            
ST1A	030657 030024 0   0   0            0            0            
ST9	030657 030024 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 854
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 1133

*030657 JRST	0,@030012
INITIAL
C(AC)=377777 777777 
C(E)=000000 431100 
FINAL

C(E)=000000 431100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030657 030657 0   0   254020030012 0            000000431100 
IT1	030657 0      0   0   254020030012 0            000000431100 
AT3	030657 0      0   0   000000030012 0            254020030012 
AT4	030657 030012 0   0   000000431100 0            254020030012 
IT1	030657 0      0   0   000000431100 0            254020030012 
AT3	030657 0      0   0   000000431100 0            000000431100 
AT6	030657 0      0   0   000000431100 0            000000431100 
FT1A	030657 0      0   0   000000431100 0            000000431100 
FT9	030660 0      0   0   000000431100 0            000000431100 
ET0	0      030660 0   0   000000431100 0            000000431100 
ST1A	0      030660 0   0   000000431100 0            000000431100 
ST9	0      030660 0   0   000000431100 0            000000431100