Google
 

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





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

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

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

	FUNCTION:	REGISTER ADDRESSING, PC CHANGE, XCT

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


1.0	ABSTRACT

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

2.0	REQUIREMENTS

2.1	EQUIPMENT

	A PDP-10 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-DAKAD.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-DAKAD.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-DAKAD
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAD

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #4

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

************************************************************************
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 1
DAKADT	MAC	19-JAN-77 13:37		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DAKAD
     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	DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 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
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 2
DAKADT	MAC	19-JAN-77 13:37		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

    30					SUBTTL	DIAGNOSTIC PARAMETERS
    31
    32					;PARAMETER DEFINITIONS
    33			000001		EXCASB==1
    34			000001		USRASB==1
    35			000001		PGMEND==1
    36			000100		DEBUG==100
    37
    38					;FLAG DEFINITIONS
    39			010000		USERF=10000		;USER MODE FLAG
    40
    41
    42					;MACROS
    43
    44					;SPECIAL FEATURE PARAMETERS
    45
    46			030712		SADR1=START
    47			030712		SADR2=START
    48			030712		SADR3=START
    49			030712		SADR4=START
    50		254000	030712		SADR5=JRST START
    51		254000	030712		SADR6=JRST START
    52		254000	030712		SADR7=JRST START
    53		254000	030712		SADR8=JRST START
    54		254000	030712		SADR9=JRST START
    55		254000	030712		SADR10=JRST START
    56		254000	030712		SADR11=JRST START
    57
    58			000000		PAREA0=0
    59			000000		PAREA1=0
    60			000000		PAREA2=0
    61		444253	414400		PAREA3=SIXBIT/DBKAD/
    62		645560	000000		PAREA4=SIXBIT/TMP/
    63			000000		PAREA5=0
    64			000000		PAREA6=0
    65			001000		ITERAT==1000
    66			000001		PGMEND=1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0009

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   838					SUBTTL	DIAGNOSTIC PARAMETERS
   839
   840					;ACCUMULATOR ASSIGNMENTS
   841
   842					;CONTROL WORDS
   843
   844			400000		AROV=400000		;ARITHMETIC OVERFLOW
   845			200000		CRY0=200000		;CARRY 0
   846			100000		CRY1=100000		;CARRY 1
   847			040000		FOV=40000		;FLOATING OVERFLOW
   848			020000		BIS=20000		;BYTE INTERRUPT
   849			010000		USERF=10000		;USER MODE FLAG
   850			004000		EXIOT=4000		;USER PRIV I/O FLAG
   851			000100		FXU=100			;FLOATING UNDERFLOW
   852			000040		DCK=40			;DIVIDE CHECK
   853
   854
   855					;MACROS
   856
   857					; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
   858					;	 TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION
   859
   860					DEFINE	STOP	(A)<
   861						HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   862						JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   863									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   864									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   865									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1>
   866
   867					; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG
   868
   869					DEFINE	SFLAG	(A)<
   870						MOVSI	1,A
   871						JFCL	17,.+1		;RESET ALL FLAGS
   872						JRST	2,.+1(1)	;SET A FLAG>
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 2
DAKADM	MAC	19-JAN-77 13:41		DIAGNOSTIC SECTION                                                                 SEQ 0028

   873					SUBTTL	DIAGNOSTIC SECTION
   874
   875	030712	402 00 0 00 030037 	START:	SETZM	USER#		;CLEAR USER CONTROL WORD
   876	030713	265 00 0 00 030714 		JSP	0,.+1		;GET FLAGS
   877	030714	603 00 0 00 010000 		TLNE	USERF		;IN USER MODE?
   878	030715	476 00 0 00 030037 		SETOM	USER		;YES, SET USER CONTROL WORD
   879	030716	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE?
   880	030717	402 00 0 00 030037 		SETZM	USER		;YES, CLEAR USER CONTROL WORD
   881	030720	336 00 0 00 030037 		SKIPN	USER
   882	030721	254 00 0 00 030742 		JRST	C00
   883	030722	331 00 0 00 030043 		SKIPL	MONCTL
   884	030723	051 03 0 00 030725 		TTCALL	3,PGMNAM	;MENTION OUR NAME
   885	030724	254 00 0 00 030741 		JRST	STARTA
   886
   887	030725				PGMNAM:	ASCIZ/
   888	030725	015 012 120 104 120 	PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) [DAKAD]
   889	030726	055 061 060 040 113 
   890	030727	101 061 060 040 102 
   891	030730	101 123 111 103 040 
   892	030731	111 116 123 124 122 
   893	030732	125 103 124 111 117 
   894	030733	116 040 104 111 101 
   895	030734	107 116 117 123 124 
   896	030735	111 103 040 050 064 
   897	030736	051 040 133 104 101 
   898	030737	113 101 104 135 015 
   899	030740	012 000 000 000 000 	/
   900
   901					;BASIC INSTRUCTION TEST (3)
   902					;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF
   903					;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES
   904					;IN THE FIELD.
   905
   906	030741	254 00 0 00 030742 	STARTA:	JRST	.+1
   907	030742				C00:
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 3
DAKADM	MAC	19-JAN-77 13:41		DIAGNOSTIC SECTION                                                                 SEQ 0029

   908					;TESTING BEGINS HERE
   909
   910					;IF ANY LOADING PROBLEMS OCCUR, START PROGRAM HERE.
   911
   912					;NOTE:	AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT
   913					;	IT IS THE TESTED INSTRUCTION.
   914
   915					SUBTTL	TEST OF AC HARDWARE AND INDEX REGISTERS
   916
   917					;**********
   918
   919					;THIS TEST VERIFIES THAT AC1 IS ACCESSABLE
   920					;IN THIS CASE, AC1 IS PRELOADED WITH 1.
   921					;C(AC1) IS THEN CHECKED FOR A1.  THIS TEST PASSES IF C(AC1)=1.
   922					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   923
   924	030742	400 00 0 00 000000 	C100:	SETZ			;CLEAR AC0
   925	030743	201 01 0 00 000001 		MOVEI	1,1		;PRELOAD AC1 WITH 1
   926	030744	302 01 0 00 000001 		CAIE	1,1		;PASS IF C(AC1)=1
   927						STOP^
   928	030745	254 04 0 00 030746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   929	030746	324 00 0 00 030747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   930									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   931									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   932									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   933
   934					;**********
   935
   936					;THIS TEST VERIFIES THAT AC2 IS ACCESSABLE.
   937					;IN THIS CASE, AC2 IS PRELOADED WITH 2.
   938					;C(AC2) IS THEN CHECKED FOR 2.  THIS TEST PASSES IF C(AC2)=2.
   939					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   940
   941	030747	201 02 0 00 000002 	C200:	MOVEI	2,2		;PRELOAD AC2 WITH 2
   942	030750	302 02 0 00 000002 		CAIE	2,2		;PASS IF C(AC2)=2
   943						STOP^
   944	030751	254 04 0 00 030752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   945	030752	324 00 0 00 030753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   946									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   947									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   948									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   949
   950					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 4
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0030

   951					;THIS TEST VERIFIES THAT AC4 IS ACCESSABLE.
   952					;IN THIS CASE, AC4 IS PRELOADED WITH 4.
   953					;C(AC4) IS THEN CHECKED FOR 4.  THIS TEST PASSES IF C(AC4)=4.
   954					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   955
   956	030753	201 04 0 00 000004 	C300:	MOVEI	4,4		;PRELOAD AC4 WITH 4 
   957	030754	302 04 0 00 000004 		CAIE	4,4		;PASS IF C(AC4)=4
   958						STOP^
   959	030755	254 04 0 00 030756 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   960	030756	324 00 0 00 030757 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   961									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   962									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   963									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   964
   965					;**********
   966
   967					;THIS TEST VERIFIES THAT AC10 IS ACCESSABLE.
   968					;IN THIS CASE, AC10 IS PRELOADED WITH 10.
   969					;C(AC10) IS THEN CHECKED FOR 10.  THIS TEST PASSES IF C(AC10)=10.
   970					;IF THIS TEST FAILS, THE AC HARDWARE IS PROBABLY FAULTY
   971
   972	030757	201 10 0 00 000010 	C400:	MOVEI	10,10		;PRELOAD AC10 WITH 10
   973	030760	302 10 0 00 000010 		CAIE	10,10		;PASS IF C(AC10)=10
   974						STOP^
   975	030761	254 04 0 00 030762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   976	030762	324 00 0 00 030763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
   977									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
   978									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
   979									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
   980
   981					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 5
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0031

   982			000500		SN=500
   983		777777	777777			ZZ=-1
   984
   985					;THIS TEST VERIFIES THAT ALL ACS EXIST
   986					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
   987					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
   988					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
   989
   990					C500:	REPEAT	^D16,
   991					<	ZZ=ZZ+1
   992						MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR>
   993			000000			ZZ=ZZ+1
   994	030763	201 00 0 00 000000 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   995			000001			ZZ=ZZ+1
   996	030764	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   997			000002			ZZ=ZZ+1
   998	030765	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
   999			000003			ZZ=ZZ+1
  1000	030766	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1001			000004			ZZ=ZZ+1
  1002	030767	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1003			000005			ZZ=ZZ+1
  1004	030770	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1005			000006			ZZ=ZZ+1
  1006	030771	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1007			000007			ZZ=ZZ+1
  1008	030772	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1009			000010			ZZ=ZZ+1
  1010	030773	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1011			000011			ZZ=ZZ+1
  1012	030774	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1013			000012			ZZ=ZZ+1
  1014	030775	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1015			000013			ZZ=ZZ+1
  1016	030776	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1017			000014			ZZ=ZZ+1
  1018	030777	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1019			000015			ZZ=ZZ+1
  1020	031000	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1021			000016			ZZ=ZZ+1
  1022	031001	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1023			000017			ZZ=ZZ+1
  1024	031002	201 17 0 00 000017 		MOVEI	ZZ,ZZ		;PRELOAD EACH AC WITH ITS ADDR
  1025					PAGE
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 5-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0032

  1026			000020			ZZ=20
  1027
  1028						REPEAT	^D16,<
  1029					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1030					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1031					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1032					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1033					
  1034					SN=SN+1
  1035						ZZ=ZZ-1
  1036						CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1037						STOP
  1038									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1039					
  1040					;**********
  1041					>
  1042
  1043					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1044					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1045					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1046					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1047
  1048			000501		SN=SN+1
  1049			000017			ZZ=ZZ-1
  1050	031003	302 17 0 00 000017 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1051						STOP^
  1052	031004	254 04 0 00 031005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1053	031005	324 00 0 00 031006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1054									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1055									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1056									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1057									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1058
  1059					;**********
  1060
  1061
  1062					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1063					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1064					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1065					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1066
  1067			000502		SN=SN+1
  1068			000016			ZZ=ZZ-1
  1069	031006	302 16 0 00 000016 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1070						STOP^
  1071	031007	254 04 0 00 031010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1072	031010	324 00 0 00 031011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1073									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1074									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1075									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1076									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1077
  1078					;**********
  1079
  1080
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 5-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0033

  1081					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1082					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1083					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1084					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1085
  1086			000503		SN=SN+1
  1087			000015			ZZ=ZZ-1
  1088	031011	302 15 0 00 000015 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1089						STOP^
  1090	031012	254 04 0 00 031013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1091	031013	324 00 0 00 031014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1092									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1093									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1094									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1095									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1096
  1097					;**********
  1098
  1099
  1100					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1101					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1102					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1103					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1104
  1105			000504		SN=SN+1
  1106			000014			ZZ=ZZ-1
  1107	031014	302 14 0 00 000014 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1108						STOP^
  1109	031015	254 04 0 00 031016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1110	031016	324 00 0 00 031017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1111									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1112									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1113									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1114									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1115
  1116					;**********
  1117
  1118
  1119					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1120					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1121					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1122					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1123
  1124			000505		SN=SN+1
  1125			000013			ZZ=ZZ-1
  1126	031017	302 13 0 00 000013 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1127						STOP^
  1128	031020	254 04 0 00 031021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1129	031021	324 00 0 00 031022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1130									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1131									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1132									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1133									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1134
  1135					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 5-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0034

  1136
  1137
  1138					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1139					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1140					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1141					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1142
  1143			000506		SN=SN+1
  1144			000012			ZZ=ZZ-1
  1145	031022	302 12 0 00 000012 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1146						STOP^
  1147	031023	254 04 0 00 031024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1148	031024	324 00 0 00 031025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1149									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1150									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1151									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1152									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1153
  1154					;**********
  1155
  1156
  1157					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1158					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1159					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1160					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1161
  1162			000507		SN=SN+1
  1163			000011			ZZ=ZZ-1
  1164	031025	302 11 0 00 000011 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1165						STOP^
  1166	031026	254 04 0 00 031027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1167	031027	324 00 0 00 031030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1168									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1169									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1170									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1171									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1172
  1173					;**********
  1174
  1175
  1176					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1177					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1178					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1179					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1180
  1181			000510		SN=SN+1
  1182			000010			ZZ=ZZ-1
  1183	031030	302 10 0 00 000010 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1184						STOP^
  1185	031031	254 04 0 00 031032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1186	031032	324 00 0 00 031033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1187									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1188									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1189									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1190									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 5-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0035

  1191
  1192					;**********
  1193
  1194
  1195					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1196					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1197					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1198					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1199
  1200			000511		SN=SN+1
  1201			000007			ZZ=ZZ-1
  1202	031033	302 07 0 00 000007 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1203						STOP^
  1204	031034	254 04 0 00 031035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1205	031035	324 00 0 00 031036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1206									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1207									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1208									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1209									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1210
  1211					;**********
  1212
  1213
  1214					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1215					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1216					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1217					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1218
  1219			000512		SN=SN+1
  1220			000006			ZZ=ZZ-1
  1221	031036	302 06 0 00 000006 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1222						STOP^
  1223	031037	254 04 0 00 031040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1224	031040	324 00 0 00 031041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1225									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1226									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1227									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1228									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1229
  1230					;**********
  1231
  1232
  1233					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1234					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1235					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1236					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1237
  1238			000513		SN=SN+1
  1239			000005			ZZ=ZZ-1
  1240	031041	302 05 0 00 000005 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1241						STOP^
  1242	031042	254 04 0 00 031043 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1243	031043	324 00 0 00 031044 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1244									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1245									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 5-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0036

  1246									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1247									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1248
  1249					;**********
  1250
  1251
  1252					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1253					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1254					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1255					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1256
  1257			000514		SN=SN+1
  1258			000004			ZZ=ZZ-1
  1259	031044	302 04 0 00 000004 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1260						STOP^
  1261	031045	254 04 0 00 031046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1262	031046	324 00 0 00 031047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1263									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1264									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1265									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1266									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1267
  1268					;**********
  1269
  1270
  1271					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1272					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1273					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1274					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1275
  1276			000515		SN=SN+1
  1277			000003			ZZ=ZZ-1
  1278	031047	302 03 0 00 000003 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1279						STOP^
  1280	031050	254 04 0 00 031051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1281	031051	324 00 0 00 031052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1282									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1283									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1284									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1285									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1286
  1287					;**********
  1288
  1289
  1290					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1291					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1292					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1293					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1294
  1295			000516		SN=SN+1
  1296			000002			ZZ=ZZ-1
  1297	031052	302 02 0 00 000002 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1298						STOP^
  1299	031053	254 04 0 00 031054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1300	031054	324 00 0 00 031055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 5-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0037

  1301									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1302									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1303									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1304									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1305
  1306					;**********
  1307
  1308
  1309					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1310					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1311					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1312					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1313
  1314			000517		SN=SN+1
  1315			000001			ZZ=ZZ-1
  1316	031055	302 01 0 00 000001 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1317						STOP^
  1318	031056	254 04 0 00 031057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1319	031057	324 00 0 00 031060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1320									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1321									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1322									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1323									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1324
  1325					;**********
  1326
  1327
  1328					;THIS TEST VERIFIES THAT ALL ACS EXIST.
  1329					;FIRST, EACH AC IS PRELOADED WITH ITS OWN ADDRESS;
  1330					;THEN, THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1331					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS
  1332
  1333			000520		SN=SN+1
  1334			000000			ZZ=ZZ-1
  1335	031060	302 00 0 00 000000 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1336						STOP^
  1337	031061	254 04 0 00 031062 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1338	031062	324 00 0 00 031063 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1339									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1340									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1341									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1342									;IN CASE OF FAILURE, LOOP TO C500 ADDRESS
  1343
  1344					;**********
  1345
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 6
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0038

  1346			000600		SN=600
  1347			000000			ZZ=0
  1348
  1349					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1350					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1351					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS; THEN THE CONTENTS OF EACH
  1352					;AC IS CHECKED FOR ITS ADDRESS.  IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1353
  1354					C600:	REPEAT	^D15,
  1355					<	ZZ=ZZ+1
  1356						MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1357						MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.>
  1358			000001			ZZ=ZZ+1
  1359	031063	201 00 0 00 000001 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1360	031064	202 00 0 00 000001 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1361			000002			ZZ=ZZ+1
  1362	031065	201 00 0 00 000002 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1363	031066	202 00 0 00 000002 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1364			000003			ZZ=ZZ+1
  1365	031067	201 00 0 00 000003 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1366	031070	202 00 0 00 000003 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1367			000004			ZZ=ZZ+1
  1368	031071	201 00 0 00 000004 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1369	031072	202 00 0 00 000004 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1370			000005			ZZ=ZZ+1
  1371	031073	201 00 0 00 000005 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1372	031074	202 00 0 00 000005 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1373			000006			ZZ=ZZ+1
  1374	031075	201 00 0 00 000006 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1375	031076	202 00 0 00 000006 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1376			000007			ZZ=ZZ+1
  1377	031077	201 00 0 00 000007 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1378	031100	202 00 0 00 000007 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1379			000010			ZZ=ZZ+1
  1380	031101	201 00 0 00 000010 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1381	031102	202 00 0 00 000010 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1382			000011			ZZ=ZZ+1
  1383	031103	201 00 0 00 000011 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1384	031104	202 00 0 00 000011 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1385			000012			ZZ=ZZ+1
  1386	031105	201 00 0 00 000012 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1387	031106	202 00 0 00 000012 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1388			000013			ZZ=ZZ+1
  1389	031107	201 00 0 00 000013 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1390	031110	202 00 0 00 000013 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1391			000014			ZZ=ZZ+1
  1392	031111	201 00 0 00 000014 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1393	031112	202 00 0 00 000014 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1394			000015			ZZ=ZZ+1
  1395	031113	201 00 0 00 000015 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1396	031114	202 00 0 00 000015 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1397			000016			ZZ=ZZ+1
  1398	031115	201 00 0 00 000016 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1399	031116	202 00 0 00 000016 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1400			000017			ZZ=ZZ+1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 6-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0039

  1401	031117	201 00 0 00 000017 		MOVEI	ZZ		;PRELOAD EACH AC WITH ITS ADDRESS
  1402	031120	202 00 0 00 000017 		MOVEM	ZZ		;BY REFERENCING EACH AC AS MEMORY.
  1403
  1404			000020			ZZ=20
  1405
  1406						REPEAT	^D15,<
  1407					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1408					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1409					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1410					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1411					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1412					
  1413					SN=SN+1
  1414						ZZ=ZZ-1
  1415						CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1416						STOP
  1417									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1418					
  1419					;**********
  1420					>
  1421
  1422					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1423					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1424					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1425					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1426					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1427
  1428			000601		SN=SN+1
  1429			000017			ZZ=ZZ-1
  1430	031121	302 17 0 00 000017 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1431						STOP^
  1432	031122	254 04 0 00 031123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1433	031123	324 00 0 00 031124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1434									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1435									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1436									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1437									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1438
  1439					;**********
  1440
  1441
  1442					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1443					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1444					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1445					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1446					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1447
  1448			000602		SN=SN+1
  1449			000016			ZZ=ZZ-1
  1450	031124	302 16 0 00 000016 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1451						STOP^
  1452	031125	254 04 0 00 031126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1453	031126	324 00 0 00 031127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1454									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1455									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 6-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0040

  1456									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1457									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1458
  1459					;**********
  1460
  1461
  1462					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1463					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1464					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1465					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1466					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1467
  1468			000603		SN=SN+1
  1469			000015			ZZ=ZZ-1
  1470	031127	302 15 0 00 000015 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1471						STOP^
  1472	031130	254 04 0 00 031131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1473	031131	324 00 0 00 031132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1474									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1475									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1476									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1477									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1478
  1479					;**********
  1480
  1481
  1482					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1483					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1484					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1485					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1486					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1487
  1488			000604		SN=SN+1
  1489			000014			ZZ=ZZ-1
  1490	031132	302 14 0 00 000014 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1491						STOP^
  1492	031133	254 04 0 00 031134 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1493	031134	324 00 0 00 031135 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1494									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1495									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1496									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1497									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1498
  1499					;**********
  1500
  1501
  1502					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1503					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1504					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1505					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1506					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1507
  1508			000605		SN=SN+1
  1509			000013			ZZ=ZZ-1
  1510	031135	302 13 0 00 000013 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 6-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0041

  1511						STOP^
  1512	031136	254 04 0 00 031137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1513	031137	324 00 0 00 031140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1514									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1515									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1516									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1517									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1518
  1519					;**********
  1520
  1521
  1522					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1523					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1524					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1525					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1526					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1527
  1528			000606		SN=SN+1
  1529			000012			ZZ=ZZ-1
  1530	031140	302 12 0 00 000012 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1531						STOP^
  1532	031141	254 04 0 00 031142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1533	031142	324 00 0 00 031143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1534									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1535									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1536									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1537									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1538
  1539					;**********
  1540
  1541
  1542					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1543					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1544					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1545					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1546					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1547
  1548			000607		SN=SN+1
  1549			000011			ZZ=ZZ-1
  1550	031143	302 11 0 00 000011 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1551						STOP^
  1552	031144	254 04 0 00 031145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1553	031145	324 00 0 00 031146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1554									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1555									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1556									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1557									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1558
  1559					;**********
  1560
  1561
  1562					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1563					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1564					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1565					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 6-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0042

  1566					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1567
  1568			000610		SN=SN+1
  1569			000010			ZZ=ZZ-1
  1570	031146	302 10 0 00 000010 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1571						STOP^
  1572	031147	254 04 0 00 031150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1573	031150	324 00 0 00 031151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1574									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1575									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1576									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1577									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1578
  1579					;**********
  1580
  1581
  1582					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1583					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1584					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1585					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1586					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1587
  1588			000611		SN=SN+1
  1589			000007			ZZ=ZZ-1
  1590	031151	302 07 0 00 000007 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1591						STOP^
  1592	031152	254 04 0 00 031153 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1593	031153	324 00 0 00 031154 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1594									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1595									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1596									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1597									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1598
  1599					;**********
  1600
  1601
  1602					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1603					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1604					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1605					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1606					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1607
  1608			000612		SN=SN+1
  1609			000006			ZZ=ZZ-1
  1610	031154	302 06 0 00 000006 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1611						STOP^
  1612	031155	254 04 0 00 031156 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1613	031156	324 00 0 00 031157 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1614									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1615									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1616									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1617									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1618
  1619					;**********
  1620
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 6-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0043

  1621
  1622					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1623					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1624					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1625					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1626					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1627
  1628			000613		SN=SN+1
  1629			000005			ZZ=ZZ-1
  1630	031157	302 05 0 00 000005 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1631						STOP^
  1632	031160	254 04 0 00 031161 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1633	031161	324 00 0 00 031162 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1634									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1635									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1636									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1637									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1638
  1639					;**********
  1640
  1641
  1642					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1643					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1644					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1645					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1646					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1647
  1648			000614		SN=SN+1
  1649			000004			ZZ=ZZ-1
  1650	031162	302 04 0 00 000004 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1651						STOP^
  1652	031163	254 04 0 00 031164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1653	031164	324 00 0 00 031165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1654									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1655									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1656									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1657									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1658
  1659					;**********
  1660
  1661
  1662					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1663					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1664					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1665					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1666					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1667
  1668			000615		SN=SN+1
  1669			000003			ZZ=ZZ-1
  1670	031165	302 03 0 00 000003 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1671						STOP^
  1672	031166	254 04 0 00 031167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1673	031167	324 00 0 00 031170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1674									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1675									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 6-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0044

  1676									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1677									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1678
  1679					;**********
  1680
  1681
  1682					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1683					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1684					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1685					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1686					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1687
  1688			000616		SN=SN+1
  1689			000002			ZZ=ZZ-1
  1690	031170	302 02 0 00 000002 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1691						STOP^
  1692	031171	254 04 0 00 031172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1693	031172	324 00 0 00 031173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1694									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1695									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1696									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1697									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1698
  1699					;**********
  1700
  1701
  1702					;THIS TEST VERIFIES THAT AN ADDRESS WITHIN THE AC RANGE MAY BE ACCESSED AS
  1703					;EITHER AN AC OR A MEMORY LOCATION AND THAT EITHER REFERENCE REFERS TO THE
  1704					;SAME HARDWARE.  EACH AC IS PRELOADED WITH ITS ADDRESS
  1705					;THEN THE CONTENTS OF EACH AC IS CHECKED FOR ITS ADDRESS.
  1706					;IF ANY AC DOES NOT CONTAIN ITS ADDRESS, THIS TEST FAILS.
  1707
  1708			000617		SN=SN+1
  1709			000001			ZZ=ZZ-1
  1710	031173	302 01 0 00 000001 		CAIE	ZZ,ZZ		;CHECK THAT EACH AC CONTAINS ITS OWN ADDRESS
  1711						STOP^
  1712	031174	254 04 0 00 031175 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1713	031175	324 00 0 00 031176 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1714									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1715									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1716									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1717									;IN CASE OF FAILURE, LOOP TO C600 ADDRESS
  1718
  1719					;**********
  1720
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 7
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0045

  1721			000700		SN=700
  1722			000000			ZZ=0
  1723
  1724					C700:	REPEAT	^D15,<
  1725					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1726					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1727					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1728					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1729					
  1730					SN=SN+1
  1731						ZZ=ZZ+1
  1732						MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1733						CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1734						STOP
  1735					
  1736					;**********
  1737					>
  1738
  1739					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1740					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1741					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1742					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1743
  1744			000701		SN=SN+1
  1745			000001			ZZ=ZZ+1
  1746	031176	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1747	031177	302 01 0 01 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1748						STOP^
  1749	031200	254 04 0 00 031201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1750	031201	324 00 0 00 031202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1751									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1752									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1753									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1754
  1755					;**********
  1756
  1757
  1758					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1759					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1760					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1761					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1762
  1763			000702		SN=SN+1
  1764			000002			ZZ=ZZ+1
  1765	031202	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1766	031203	302 02 0 02 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1767						STOP^
  1768	031204	254 04 0 00 031205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1769	031205	324 00 0 00 031206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1770									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1771									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1772									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1773
  1774					;**********
  1775
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 7-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0046

  1776
  1777					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1778					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1779					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1780					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1781
  1782			000703		SN=SN+1
  1783			000003			ZZ=ZZ+1
  1784	031206	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1785	031207	302 03 0 03 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1786						STOP^
  1787	031210	254 04 0 00 031211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1788	031211	324 00 0 00 031212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1789									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1790									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1791									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1792
  1793					;**********
  1794
  1795
  1796					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1797					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1798					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1799					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1800
  1801			000704		SN=SN+1
  1802			000004			ZZ=ZZ+1
  1803	031212	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1804	031213	302 04 0 04 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1805						STOP^
  1806	031214	254 04 0 00 031215 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1807	031215	324 00 0 00 031216 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1808									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1809									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1810									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1811
  1812					;**********
  1813
  1814
  1815					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1816					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1817					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1818					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1819
  1820			000705		SN=SN+1
  1821			000005			ZZ=ZZ+1
  1822	031216	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1823	031217	302 05 0 05 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1824						STOP^
  1825	031220	254 04 0 00 031221 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1826	031221	324 00 0 00 031222 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1827									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1828									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1829									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1830
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 7-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0047

  1831					;**********
  1832
  1833
  1834					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1835					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1836					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1837					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1838
  1839			000706		SN=SN+1
  1840			000006			ZZ=ZZ+1
  1841	031222	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1842	031223	302 06 0 06 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1843						STOP^
  1844	031224	254 04 0 00 031225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1845	031225	324 00 0 00 031226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1846									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1847									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1848									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1849
  1850					;**********
  1851
  1852
  1853					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1854					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1855					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1856					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1857
  1858			000707		SN=SN+1
  1859			000007			ZZ=ZZ+1
  1860	031226	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1861	031227	302 07 0 07 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1862						STOP^
  1863	031230	254 04 0 00 031231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1864	031231	324 00 0 00 031232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1865									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1866									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1867									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1868
  1869					;**********
  1870
  1871
  1872					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1873					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1874					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1875					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1876
  1877			000710		SN=SN+1
  1878			000010			ZZ=ZZ+1
  1879	031232	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1880	031233	302 10 0 10 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1881						STOP^
  1882	031234	254 04 0 00 031235 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1883	031235	324 00 0 00 031236 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1884									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1885									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 7-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0048

  1886									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1887
  1888					;**********
  1889
  1890
  1891					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1892					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1893					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1894					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1895
  1896			000711		SN=SN+1
  1897			000011			ZZ=ZZ+1
  1898	031236	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1899	031237	302 11 0 11 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1900						STOP^
  1901	031240	254 04 0 00 031241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1902	031241	324 00 0 00 031242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1903									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1904									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1905									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1906
  1907					;**********
  1908
  1909
  1910					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1911					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1912					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1913					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1914
  1915			000712		SN=SN+1
  1916			000012			ZZ=ZZ+1
  1917	031242	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1918	031243	302 12 0 12 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1919						STOP^
  1920	031244	254 04 0 00 031245 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1921	031245	324 00 0 00 031246 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1922									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1923									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1924									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1925
  1926					;**********
  1927
  1928
  1929					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1930					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1931					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1932					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1933
  1934			000713		SN=SN+1
  1935			000013			ZZ=ZZ+1
  1936	031246	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1937	031247	302 13 0 13 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1938						STOP^
  1939	031250	254 04 0 00 031251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1940	031251	324 00 0 00 031252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 7-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0049

  1941									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1942									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1943									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1944
  1945					;**********
  1946
  1947
  1948					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1949					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1950					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1951					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1952
  1953			000714		SN=SN+1
  1954			000014			ZZ=ZZ+1
  1955	031252	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1956	031253	302 14 0 14 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1957						STOP^
  1958	031254	254 04 0 00 031255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1959	031255	324 00 0 00 031256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1960									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1961									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1962									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1963
  1964					;**********
  1965
  1966
  1967					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1968					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1969					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1970					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1971
  1972			000715		SN=SN+1
  1973			000015			ZZ=ZZ+1
  1974	031256	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1975	031257	302 15 0 15 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1976						STOP^
  1977	031260	254 04 0 00 031261 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1978	031261	324 00 0 00 031262 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1979									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1980									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  1981									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  1982
  1983					;**********
  1984
  1985
  1986					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  1987					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  1988					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  1989					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  1990
  1991			000716		SN=SN+1
  1992			000016			ZZ=ZZ+1
  1993	031262	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  1994	031263	302 16 0 16 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  1995						STOP^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 7-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0050

  1996	031264	254 04 0 00 031265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1997	031265	324 00 0 00 031266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  1998									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  1999									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2000									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2001
  2002					;**********
  2003
  2004
  2005					;THIS TEST VERIFIES THAT THE INDEX REGISTERS ARE ACCESSABLE.
  2006					;FIRST, AN INDEX REGISTER IS PRELOADED WITH ITS ADDRESS; THEN,
  2007					;IT IS REFERENCED AS AN INDEX REGISTER.  IF IT CONTAINS ITS ADDRESS, THIS TEST PASSES.
  2008					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER.
  2009
  2010			000717		SN=SN+1
  2011			000017			ZZ=ZZ+1
  2012	031266	201 17 0 00 000017 		MOVEI	ZZ,ZZ		;PRELOAD INDEX REGISTER WITH ITS ADDRESS
  2013	031267	302 17 0 17 000000 		CAIE	ZZ,(ZZ)		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2014						STOP^
  2015	031270	254 04 0 00 031271 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2016	031271	324 00 0 00 031272 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2017									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2018									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2019									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2020
  2021					;**********
  2022
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 8
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0051

  2023			001000		SN=1000
  2024			000000			ZZ=0
  2025
  2026					C1000:	REPEAT	^D15,<
  2027					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2028					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2029					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2030					.
  2031					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2032					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2033					
  2034					SN=SN+1
  2035						ZZ=ZZ+1
  2036						MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2037						HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2038						CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2039						STOP
  2040					
  2041					;**********
  2042					>
  2043
  2044					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2045					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2046					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2047					.
  2048					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2049					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2050
  2051			001001		SN=SN+1
  2052			000001			ZZ=ZZ+1
  2053	031272	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2054	031273	505 01 0 00 000001 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2055	031274	312 01 0 01 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2056						STOP^
  2057	031275	254 04 0 00 031276 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2058	031276	324 00 0 00 031277 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2059									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2060									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2061									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2062
  2063					;**********
  2064
  2065
  2066					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2067					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2068					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2069					.
  2070					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2071					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2072
  2073			001002		SN=SN+1
  2074			000002			ZZ=ZZ+1
  2075	031277	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2076	031300	505 02 0 00 000002 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2077	031301	312 02 0 02 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 8-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0052

  2078						STOP^
  2079	031302	254 04 0 00 031303 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2080	031303	324 00 0 00 031304 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2081									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2082									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2083									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2084
  2085					;**********
  2086
  2087
  2088					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2089					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2090					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2091					.
  2092					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2093					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2094
  2095			001003		SN=SN+1
  2096			000003			ZZ=ZZ+1
  2097	031304	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2098	031305	505 03 0 00 000003 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2099	031306	312 03 0 03 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2100						STOP^
  2101	031307	254 04 0 00 031310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2102	031310	324 00 0 00 031311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2103									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2104									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2105									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2106
  2107					;**********
  2108
  2109
  2110					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2111					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2112					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2113					.
  2114					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2115					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2116
  2117			001004		SN=SN+1
  2118			000004			ZZ=ZZ+1
  2119	031311	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2120	031312	505 04 0 00 000004 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2121	031313	312 04 0 04 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2122						STOP^
  2123	031314	254 04 0 00 031315 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2124	031315	324 00 0 00 031316 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2125									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2126									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2127									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2128
  2129					;**********
  2130
  2131
  2132					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 8-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0053

  2133					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2134					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2135					.
  2136					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2137					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2138
  2139			001005		SN=SN+1
  2140			000005			ZZ=ZZ+1
  2141	031316	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2142	031317	505 05 0 00 000005 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2143	031320	312 05 0 05 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2144						STOP^
  2145	031321	254 04 0 00 031322 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2146	031322	324 00 0 00 031323 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2147									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2148									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2149									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2150
  2151					;**********
  2152
  2153
  2154					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2155					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2156					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2157					.
  2158					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2159					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2160
  2161			001006		SN=SN+1
  2162			000006			ZZ=ZZ+1
  2163	031323	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2164	031324	505 06 0 00 000006 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2165	031325	312 06 0 06 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2166						STOP^
  2167	031326	254 04 0 00 031327 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2168	031327	324 00 0 00 031330 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2169									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2170									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2171									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2172
  2173					;**********
  2174
  2175
  2176					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2177					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2178					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2179					.
  2180					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2181					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2182
  2183			001007		SN=SN+1
  2184			000007			ZZ=ZZ+1
  2185	031330	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2186	031331	505 07 0 00 000007 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2187	031332	312 07 0 07 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 8-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0054

  2188						STOP^
  2189	031333	254 04 0 00 031334 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2190	031334	324 00 0 00 031335 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2191									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2192									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2193									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2194
  2195					;**********
  2196
  2197
  2198					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2199					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2200					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2201					.
  2202					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2203					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2204
  2205			001010		SN=SN+1
  2206			000010			ZZ=ZZ+1
  2207	031335	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2208	031336	505 10 0 00 000010 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2209	031337	312 10 0 10 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2210						STOP^
  2211	031340	254 04 0 00 031341 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2212	031341	324 00 0 00 031342 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2213									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2214									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2215									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2216
  2217					;**********
  2218
  2219
  2220					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2221					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2222					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2223					.
  2224					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2225					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2226
  2227			001011		SN=SN+1
  2228			000011			ZZ=ZZ+1
  2229	031342	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2230	031343	505 11 0 00 000011 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2231	031344	312 11 0 11 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2232						STOP^
  2233	031345	254 04 0 00 031346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2234	031346	324 00 0 00 031347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2235									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2236									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2237									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2238
  2239					;**********
  2240
  2241
  2242					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 8-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0055

  2243					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2244					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2245					.
  2246					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2247					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2248
  2249			001012		SN=SN+1
  2250			000012			ZZ=ZZ+1
  2251	031347	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2252	031350	505 12 0 00 000012 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2253	031351	312 12 0 12 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2254						STOP^
  2255	031352	254 04 0 00 031353 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2256	031353	324 00 0 00 031354 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2257									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2258									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2259									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2260
  2261					;**********
  2262
  2263
  2264					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2265					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2266					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2267					.
  2268					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2269					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2270
  2271			001013		SN=SN+1
  2272			000013			ZZ=ZZ+1
  2273	031354	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2274	031355	505 13 0 00 000013 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2275	031356	312 13 0 13 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2276						STOP^
  2277	031357	254 04 0 00 031360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2278	031360	324 00 0 00 031361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2279									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2280									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2281									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2282
  2283					;**********
  2284
  2285
  2286					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2287					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2288					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2289					.
  2290					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2291					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2292
  2293			001014		SN=SN+1
  2294			000014			ZZ=ZZ+1
  2295	031361	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2296	031362	505 14 0 00 000014 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2297	031363	312 14 0 14 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 8-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0056

  2298						STOP^
  2299	031364	254 04 0 00 031365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2300	031365	324 00 0 00 031366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2301									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2302									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2303									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2304
  2305					;**********
  2306
  2307
  2308					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2309					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2310					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2311					.
  2312					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2313					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2314
  2315			001015		SN=SN+1
  2316			000015			ZZ=ZZ+1
  2317	031366	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2318	031367	505 15 0 00 000015 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2319	031370	312 15 0 15 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2320						STOP^
  2321	031371	254 04 0 00 031372 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2322	031372	324 00 0 00 031373 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2323									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2324									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2325									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2326
  2327					;**********
  2328
  2329
  2330					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
  2331					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2332					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2333					.
  2334					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2335					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2336
  2337			001016		SN=SN+1
  2338			000016			ZZ=ZZ+1
  2339	031373	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2340	031374	505 16 0 00 000016 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2341	031375	312 16 0 16 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2342						STOP^
  2343	031376	254 04 0 00 031377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2344	031377	324 00 0 00 031400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2345									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2346									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2347									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2348
  2349					;**********
  2350
  2351
  2352					;THIS TEST VERIFIES THAT ALL INDEX REGISTERS INDEX CORRECTLY.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 8-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF AC HARDWARE AND INDEX REGISTERS                                            SEQ 0057

  2353					;FIRST, BOTH HALVES OF THE INDEX REGISTER ARE PRELOADED WITH ITS ADDRESS.
  2354					;THEN, THE INDEX REGISTER IS REFERENCED.  IT IS THEN CHECKED FOR ITS ADDRESS IN BOTH HALVES
  2355					.
  2356					;IF IT CONTAINS ITS ADDRESS IN BOTH HALVES THIS TEST PASSES.
  2357					;THIS TEST IS REPEATED 15 TIMES IN ORDER TO TEST EACH INDEX REGISTER
  2358
  2359			001017		SN=SN+1
  2360			000017			ZZ=ZZ+1
  2361	031400	201 17 0 00 000017 		MOVEI	ZZ,ZZ		;PRELOAD BOTH HALVES OF INDEX REG WITH ITS ADDRESS
  2362	031401	505 17 0 00 000017 		HRLI	ZZ,ZZ		;PASS IF INDEX REGISTER CONTAINS ITS ADDRESS
  2363	031402	312 17 0 17 000000 		CAME	ZZ,(ZZ)		;IN BOTH HALVES
  2364						STOP^
  2365	031403	254 04 0 00 031404 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2366	031404	324 00 0 00 031405 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2367									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2368									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2369									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2370
  2371					;**********
  2372
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0058

  2373					SUBTTL	TEST OF INDEX REGISTER ADDRESSING
  2374
  2375					;**********
  2376
  2377					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2378					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2379					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2380					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A 0,
  2381					;THE FINAL RESULT IN AC3 SHOULD BE 0.  IF C(AC3)=0, THIS TEST PASSES.
  2382
  2383	031405	476 00 0 00 000003 	C1100:	SETOM	3		;PRELOAD AC3 WITH -1,,1
  2384	031406	402 00 0 00 000001 		SETZM	1		;PRELOAD AC1 WITH 0
  2385	031407	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER 2 WITH 1
  2386	031410	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2387	031411	332 00 0 00 000003 		SKIPE	3		;TEST INDEXING
  2388						STOP^
  2389	031412	254 04 0 00 031413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2390	031413	324 00 0 00 031414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2391									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2392									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2393									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2394
  2395					;**********
  2396
  2397			001200		SN=1200
  2398			000000			ZZ=0
  2399
  2400					C1200:	REPEAT	^D18,<
  2401					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2402					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2403					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2404					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2405					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2406					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2407					
  2408					SN=SN+1
  2409						ZZ=ZZ+ZZ
  2410						IFE	ZZ,<ZZ=1>
  2411						SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2412						MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2413						MOVEI	2,1		;SETUP INDEX REGISTER
  2414						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2415						CAIE	3,ZZ		;TEST INDEXING
  2416						STOP
  2417					
  2418					;**********
  2419					>
  2420
  2421					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2422					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2423					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2424					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2425					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2426					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2427
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0059

  2428			001201		SN=SN+1
  2429			000000			ZZ=ZZ+ZZ
  2430			000001			IFE	ZZ,<ZZ=1>
  2431	031414	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2432	031415	201 01 0 00 000001 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2433	031416	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2434	031417	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2435	031420	302 03 0 00 000001 		CAIE	3,ZZ		;TEST INDEXING
  2436						STOP^
  2437	031421	254 04 0 00 031422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2438	031422	324 00 0 00 031423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2439									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2440									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2441									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2442
  2443					;**********
  2444
  2445
  2446					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2447					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2448					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2449					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2450					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2451					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2452
  2453			001202		SN=SN+1
  2454			000002			ZZ=ZZ+ZZ
  2455						IFE	ZZ,<ZZ=1>
  2456	031423	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2457	031424	201 01 0 00 000002 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2458	031425	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2459	031426	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2460	031427	302 03 0 00 000002 		CAIE	3,ZZ		;TEST INDEXING
  2461						STOP^
  2462	031430	254 04 0 00 031431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2463	031431	324 00 0 00 031432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2464									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2465									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2466									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2467
  2468					;**********
  2469
  2470
  2471					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2472					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2473					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2474					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2475					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2476					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2477
  2478			001203		SN=SN+1
  2479			000004			ZZ=ZZ+ZZ
  2480						IFE	ZZ,<ZZ=1>
  2481	031432	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2482	031433	201 01 0 00 000004 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0060

  2483	031434	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2484	031435	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2485	031436	302 03 0 00 000004 		CAIE	3,ZZ		;TEST INDEXING
  2486						STOP^
  2487	031437	254 04 0 00 031440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2488	031440	324 00 0 00 031441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2489									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2490									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2491									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2492
  2493					;**********
  2494
  2495
  2496					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2497					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2498					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2499					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2500					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2501					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2502
  2503			001204		SN=SN+1
  2504			000010			ZZ=ZZ+ZZ
  2505						IFE	ZZ,<ZZ=1>
  2506	031441	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2507	031442	201 01 0 00 000010 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2508	031443	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2509	031444	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2510	031445	302 03 0 00 000010 		CAIE	3,ZZ		;TEST INDEXING
  2511						STOP^
  2512	031446	254 04 0 00 031447 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2513	031447	324 00 0 00 031450 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2514									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2515									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2516									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2517
  2518					;**********
  2519
  2520
  2521					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2522					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2523					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2524					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2525					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2526					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2527
  2528			001205		SN=SN+1
  2529			000020			ZZ=ZZ+ZZ
  2530						IFE	ZZ,<ZZ=1>
  2531	031450	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2532	031451	201 01 0 00 000020 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2533	031452	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2534	031453	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2535	031454	302 03 0 00 000020 		CAIE	3,ZZ		;TEST INDEXING
  2536						STOP^
  2537	031455	254 04 0 00 031456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0061

  2538	031456	324 00 0 00 031457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2539									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2540									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2541									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2542
  2543					;**********
  2544
  2545
  2546					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2547					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2548					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2549					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2550					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2551					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2552
  2553			001206		SN=SN+1
  2554			000040			ZZ=ZZ+ZZ
  2555						IFE	ZZ,<ZZ=1>
  2556	031457	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2557	031460	201 01 0 00 000040 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2558	031461	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2559	031462	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2560	031463	302 03 0 00 000040 		CAIE	3,ZZ		;TEST INDEXING
  2561						STOP^
  2562	031464	254 04 0 00 031465 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2563	031465	324 00 0 00 031466 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2564									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2565									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2566									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2567
  2568					;**********
  2569
  2570
  2571					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2572					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2573					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2574					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2575					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2576					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2577
  2578			001207		SN=SN+1
  2579			000100			ZZ=ZZ+ZZ
  2580						IFE	ZZ,<ZZ=1>
  2581	031466	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2582	031467	201 01 0 00 000100 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2583	031470	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2584	031471	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2585	031472	302 03 0 00 000100 		CAIE	3,ZZ		;TEST INDEXING
  2586						STOP^
  2587	031473	254 04 0 00 031474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2588	031474	324 00 0 00 031475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2589									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2590									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2591									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2592
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0062

  2593					;**********
  2594
  2595
  2596					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2597					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2598					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2599					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2600					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2601					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2602
  2603			001210		SN=SN+1
  2604			000200			ZZ=ZZ+ZZ
  2605						IFE	ZZ,<ZZ=1>
  2606	031475	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2607	031476	201 01 0 00 000200 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2608	031477	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2609	031500	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2610	031501	302 03 0 00 000200 		CAIE	3,ZZ		;TEST INDEXING
  2611						STOP^
  2612	031502	254 04 0 00 031503 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2613	031503	324 00 0 00 031504 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2614									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2615									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2616									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2617
  2618					;**********
  2619
  2620
  2621					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2622					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2623					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2624					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2625					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2626					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2627
  2628			001211		SN=SN+1
  2629			000400			ZZ=ZZ+ZZ
  2630						IFE	ZZ,<ZZ=1>
  2631	031504	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2632	031505	201 01 0 00 000400 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2633	031506	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2634	031507	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2635	031510	302 03 0 00 000400 		CAIE	3,ZZ		;TEST INDEXING
  2636						STOP^
  2637	031511	254 04 0 00 031512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2638	031512	324 00 0 00 031513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2639									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2640									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2641									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2642
  2643					;**********
  2644
  2645
  2646					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2647					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0063

  2648					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2649					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2650					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2651					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2652
  2653			001212		SN=SN+1
  2654			001000			ZZ=ZZ+ZZ
  2655						IFE	ZZ,<ZZ=1>
  2656	031513	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2657	031514	201 01 0 00 001000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2658	031515	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2659	031516	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2660	031517	302 03 0 00 001000 		CAIE	3,ZZ		;TEST INDEXING
  2661						STOP^
  2662	031520	254 04 0 00 031521 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2663	031521	324 00 0 00 031522 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2664									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2665									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2666									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2667
  2668					;**********
  2669
  2670
  2671					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2672					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2673					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2674					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2675					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2676					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2677
  2678			001213		SN=SN+1
  2679			002000			ZZ=ZZ+ZZ
  2680						IFE	ZZ,<ZZ=1>
  2681	031522	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2682	031523	201 01 0 00 002000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2683	031524	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2684	031525	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2685	031526	302 03 0 00 002000 		CAIE	3,ZZ		;TEST INDEXING
  2686						STOP^
  2687	031527	254 04 0 00 031530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2688	031530	324 00 0 00 031531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2689									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2690									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2691									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2692
  2693					;**********
  2694
  2695
  2696					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2697					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2698					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2699					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2700					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2701					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2702
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0064

  2703			001214		SN=SN+1
  2704			004000			ZZ=ZZ+ZZ
  2705						IFE	ZZ,<ZZ=1>
  2706	031531	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2707	031532	201 01 0 00 004000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2708	031533	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2709	031534	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2710	031535	302 03 0 00 004000 		CAIE	3,ZZ		;TEST INDEXING
  2711						STOP^
  2712	031536	254 04 0 00 031537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2713	031537	324 00 0 00 031540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2714									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2715									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2716									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2717
  2718					;**********
  2719
  2720
  2721					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2722					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2723					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2724					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2725					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2726					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2727
  2728			001215		SN=SN+1
  2729			010000			ZZ=ZZ+ZZ
  2730						IFE	ZZ,<ZZ=1>
  2731	031540	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2732	031541	201 01 0 00 010000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2733	031542	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2734	031543	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2735	031544	302 03 0 00 010000 		CAIE	3,ZZ		;TEST INDEXING
  2736						STOP^
  2737	031545	254 04 0 00 031546 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2738	031546	324 00 0 00 031547 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2739									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2740									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2741									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2742
  2743					;**********
  2744
  2745
  2746					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2747					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2748					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2749					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2750					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2751					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2752
  2753			001216		SN=SN+1
  2754			020000			ZZ=ZZ+ZZ
  2755						IFE	ZZ,<ZZ=1>
  2756	031547	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2757	031550	201 01 0 00 020000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-7
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0065

  2758	031551	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2759	031552	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2760	031553	302 03 0 00 020000 		CAIE	3,ZZ		;TEST INDEXING
  2761						STOP^
  2762	031554	254 04 0 00 031555 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2763	031555	324 00 0 00 031556 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2764									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2765									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2766									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2767
  2768					;**********
  2769
  2770
  2771					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2772					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2773					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2774					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2775					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2776					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2777
  2778			001217		SN=SN+1
  2779			040000			ZZ=ZZ+ZZ
  2780						IFE	ZZ,<ZZ=1>
  2781	031556	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2782	031557	201 01 0 00 040000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2783	031560	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2784	031561	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2785	031562	302 03 0 00 040000 		CAIE	3,ZZ		;TEST INDEXING
  2786						STOP^
  2787	031563	254 04 0 00 031564 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2788	031564	324 00 0 00 031565 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2789									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2790									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2791									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2792
  2793					;**********
  2794
  2795
  2796					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2797					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2798					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2799					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2800					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2801					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2802
  2803			001220		SN=SN+1
  2804			100000			ZZ=ZZ+ZZ
  2805						IFE	ZZ,<ZZ=1>
  2806	031565	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2807	031566	201 01 0 00 100000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2808	031567	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2809	031570	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2810	031571	302 03 0 00 100000 		CAIE	3,ZZ		;TEST INDEXING
  2811						STOP^
  2812	031572	254 04 0 00 031573 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-8
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0066

  2813	031573	324 00 0 00 031574 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2814									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2815									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2816									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2817
  2818					;**********
  2819
  2820
  2821					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2822					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2823					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2824					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2825					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2826					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2827
  2828			001221		SN=SN+1
  2829			200000			ZZ=ZZ+ZZ
  2830						IFE	ZZ,<ZZ=1>
  2831	031574	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2832	031575	201 01 0 00 200000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2833	031576	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2834	031577	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2835	031600	302 03 0 00 200000 		CAIE	3,ZZ		;TEST INDEXING
  2836						STOP^
  2837	031601	254 04 0 00 031602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2838	031602	324 00 0 00 031603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2839									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2840									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2841									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2842
  2843					;**********
  2844
  2845
  2846					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2847					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2848					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2849					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2850					;FLOATING 1.  THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2851					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2852
  2853			001222		SN=SN+1
  2854			400000			ZZ=ZZ+ZZ
  2855						IFE	ZZ,<ZZ=1>
  2856	031603	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2857	031604	201 01 0 00 400000 		MOVEI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2858	031605	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2859	031606	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2860	031607	302 03 0 00 400000 		CAIE	3,ZZ		;TEST INDEXING
  2861						STOP^
  2862	031610	254 04 0 00 031611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2863	031611	324 00 0 00 031612 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2864									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2865									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2866									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2867
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 9-9
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0067

  2868					;**********
  2869
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0068

  2870			001300		SN=1300
  2871			000000			ZZ=0
  2872
  2873					C1300:	REPEAT	^D18,<
  2874					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2875					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2876					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2877					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2878					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2879					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2880					
  2881					SN=SN+1
  2882						ZZ=ZZ+ZZ
  2883						IFE	ZZ,<ZZ=1>
  2884						SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2885						MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2886						MOVEI	2,1		;SETUP INDEX REGISTER
  2887						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2888						CAME	3,[ZZ,,0]	;TEST INDEXING
  2889						STOP
  2890					
  2891					;**********
  2892					>
  2893
  2894					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2895					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2896					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2897					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2898					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2899					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2900
  2901			001301		SN=SN+1
  2902			000000			ZZ=ZZ+ZZ
  2903			000001			IFE	ZZ,<ZZ=1>
  2904	031612	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2905	031613	205 01 0 00 000001 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2906	031614	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2907	031615	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2908	031616	312 03 0 00 034444 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2909						STOP^
  2910	031617	254 04 0 00 031620 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2911	031620	324 00 0 00 031621 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2912									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2913									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2914									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2915
  2916					;**********
  2917
  2918
  2919					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2920					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2921					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2922					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2923					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2924					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0069

  2925
  2926			001302		SN=SN+1
  2927			000002			ZZ=ZZ+ZZ
  2928						IFE	ZZ,<ZZ=1>
  2929	031621	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2930	031622	205 01 0 00 000002 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2931	031623	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2932	031624	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2933	031625	312 03 0 00 034445 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2934						STOP^
  2935	031626	254 04 0 00 031627 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2936	031627	324 00 0 00 031630 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2937									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2938									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2939									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2940
  2941					;**********
  2942
  2943
  2944					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2945					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2946					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2947					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2948					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2949					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2950
  2951			001303		SN=SN+1
  2952			000004			ZZ=ZZ+ZZ
  2953						IFE	ZZ,<ZZ=1>
  2954	031630	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  2955	031631	205 01 0 00 000004 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2956	031632	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2957	031633	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2958	031634	312 03 0 00 034446 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2959						STOP^
  2960	031635	254 04 0 00 031636 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2961	031636	324 00 0 00 031637 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2962									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2963									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2964									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2965
  2966					;**********
  2967
  2968
  2969					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2970					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2971					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2972					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2973					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2974					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  2975
  2976			001304		SN=SN+1
  2977			000010			ZZ=ZZ+ZZ
  2978						IFE	ZZ,<ZZ=1>
  2979	031637	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0070

  2980	031640	205 01 0 00 000010 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  2981	031641	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  2982	031642	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  2983	031643	312 03 0 00 034447 		CAME	3,[ZZ,,0]	;TEST INDEXING
  2984						STOP^
  2985	031644	254 04 0 00 031645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2986	031645	324 00 0 00 031646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  2987									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  2988									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  2989									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  2990
  2991					;**********
  2992
  2993
  2994					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  2995					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  2996					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  2997					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  2998					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  2999					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3000
  3001			001305		SN=SN+1
  3002			000020			ZZ=ZZ+ZZ
  3003						IFE	ZZ,<ZZ=1>
  3004	031646	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3005	031647	205 01 0 00 000020 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3006	031650	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3007	031651	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3008	031652	312 03 0 00 034450 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3009						STOP^
  3010	031653	254 04 0 00 031654 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3011	031654	324 00 0 00 031655 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3012									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3013									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3014									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3015
  3016					;**********
  3017
  3018
  3019					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3020					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3021					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3022					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3023					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3024					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3025
  3026			001306		SN=SN+1
  3027			000040			ZZ=ZZ+ZZ
  3028						IFE	ZZ,<ZZ=1>
  3029	031655	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3030	031656	205 01 0 00 000040 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3031	031657	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3032	031660	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3033	031661	312 03 0 00 034451 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3034						STOP^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0071

  3035	031662	254 04 0 00 031663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3036	031663	324 00 0 00 031664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3037									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3038									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3039									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3040
  3041					;**********
  3042
  3043
  3044					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3045					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3046					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3047					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3048					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3049					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3050
  3051			001307		SN=SN+1
  3052			000100			ZZ=ZZ+ZZ
  3053						IFE	ZZ,<ZZ=1>
  3054	031664	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3055	031665	205 01 0 00 000100 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3056	031666	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3057	031667	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3058	031670	312 03 0 00 034452 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3059						STOP^
  3060	031671	254 04 0 00 031672 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3061	031672	324 00 0 00 031673 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3062									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3063									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3064									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3065
  3066					;**********
  3067
  3068
  3069					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3070					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3071					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3072					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3073					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3074					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3075
  3076			001310		SN=SN+1
  3077			000200			ZZ=ZZ+ZZ
  3078						IFE	ZZ,<ZZ=1>
  3079	031673	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3080	031674	205 01 0 00 000200 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3081	031675	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3082	031676	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3083	031677	312 03 0 00 034453 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3084						STOP^
  3085	031700	254 04 0 00 031701 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3086	031701	324 00 0 00 031702 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3087									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3088									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3089									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0072

  3090
  3091					;**********
  3092
  3093
  3094					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3095					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3096					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3097					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3098					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3099					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3100
  3101			001311		SN=SN+1
  3102			000400			ZZ=ZZ+ZZ
  3103						IFE	ZZ,<ZZ=1>
  3104	031702	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3105	031703	205 01 0 00 000400 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3106	031704	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3107	031705	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3108	031706	312 03 0 00 034454 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3109						STOP^
  3110	031707	254 04 0 00 031710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3111	031710	324 00 0 00 031711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3112									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3113									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3114									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3115
  3116					;**********
  3117
  3118
  3119					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3120					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3121					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3122					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3123					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3124					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3125
  3126			001312		SN=SN+1
  3127			001000			ZZ=ZZ+ZZ
  3128						IFE	ZZ,<ZZ=1>
  3129	031711	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3130	031712	205 01 0 00 001000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3131	031713	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3132	031714	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3133	031715	312 03 0 00 034455 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3134						STOP^
  3135	031716	254 04 0 00 031717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3136	031717	324 00 0 00 031720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3137									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3138									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3139									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3140
  3141					;**********
  3142
  3143
  3144					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0073

  3145					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3146					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3147					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3148					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3149					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3150
  3151			001313		SN=SN+1
  3152			002000			ZZ=ZZ+ZZ
  3153						IFE	ZZ,<ZZ=1>
  3154	031720	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3155	031721	205 01 0 00 002000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3156	031722	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3157	031723	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3158	031724	312 03 0 00 034456 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3159						STOP^
  3160	031725	254 04 0 00 031726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3161	031726	324 00 0 00 031727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3162									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3163									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3164									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3165
  3166					;**********
  3167
  3168
  3169					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3170					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3171					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3172					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3173					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3174					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3175
  3176			001314		SN=SN+1
  3177			004000			ZZ=ZZ+ZZ
  3178						IFE	ZZ,<ZZ=1>
  3179	031727	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3180	031730	205 01 0 00 004000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3181	031731	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3182	031732	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3183	031733	312 03 0 00 034457 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3184						STOP^
  3185	031734	254 04 0 00 031735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3186	031735	324 00 0 00 031736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3187									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3188									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3189									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3190
  3191					;**********
  3192
  3193
  3194					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3195					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3196					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3197					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3198					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3199					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0074

  3200
  3201			001315		SN=SN+1
  3202			010000			ZZ=ZZ+ZZ
  3203						IFE	ZZ,<ZZ=1>
  3204	031736	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3205	031737	205 01 0 00 010000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3206	031740	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3207	031741	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3208	031742	312 03 0 00 034460 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3209						STOP^
  3210	031743	254 04 0 00 031744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3211	031744	324 00 0 00 031745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3212									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3213									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3214									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3215
  3216					;**********
  3217
  3218
  3219					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3220					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3221					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3222					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3223					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3224					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3225
  3226			001316		SN=SN+1
  3227			020000			ZZ=ZZ+ZZ
  3228						IFE	ZZ,<ZZ=1>
  3229	031745	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3230	031746	205 01 0 00 020000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3231	031747	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3232	031750	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3233	031751	312 03 0 00 034461 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3234						STOP^
  3235	031752	254 04 0 00 031753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3236	031753	324 00 0 00 031754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3237									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3238									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3239									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3240
  3241					;**********
  3242
  3243
  3244					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3245					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3246					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3247					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3248					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3249					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3250
  3251			001317		SN=SN+1
  3252			040000			ZZ=ZZ+ZZ
  3253						IFE	ZZ,<ZZ=1>
  3254	031754	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-7
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0075

  3255	031755	205 01 0 00 040000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3256	031756	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3257	031757	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3258	031760	312 03 0 00 034462 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3259						STOP^
  3260	031761	254 04 0 00 031762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3261	031762	324 00 0 00 031763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3262									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3263									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3264									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3265
  3266					;**********
  3267
  3268
  3269					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3270					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3271					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3272					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3273					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3274					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3275
  3276			001320		SN=SN+1
  3277			100000			ZZ=ZZ+ZZ
  3278						IFE	ZZ,<ZZ=1>
  3279	031763	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3280	031764	205 01 0 00 100000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3281	031765	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3282	031766	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3283	031767	312 03 0 00 034463 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3284						STOP^
  3285	031770	254 04 0 00 031771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3286	031771	324 00 0 00 031772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3287									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3288									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3289									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3290
  3291					;**********
  3292
  3293
  3294					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3295					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3296					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3297					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3298					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3299					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3300
  3301			001321		SN=SN+1
  3302			200000			ZZ=ZZ+ZZ
  3303						IFE	ZZ,<ZZ=1>
  3304	031772	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3305	031773	205 01 0 00 200000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3306	031774	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3307	031775	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3308	031776	312 03 0 00 034464 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3309						STOP^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 10-8
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0076

  3310	031777	254 04 0 00 032000 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3311	032000	324 00 0 00 032001 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3312									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3313									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3314									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3315
  3316					;**********
  3317
  3318
  3319					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3320					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3321					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3322					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3323					;FLOATING 1, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 1.
  3324					;IF C(AC3)=A FLOATING 1, THIS TEST PASSES.
  3325
  3326			001322		SN=SN+1
  3327			400000			ZZ=ZZ+ZZ
  3328						IFE	ZZ,<ZZ=1>
  3329	032001	476 00 0 00 000003 		SETOM	3		;PRELOAD AC3 WITH -1,,-1
  3330	032002	205 01 0 00 400000 		MOVSI	1,ZZ		;PRELOAD AC1 WITH FLOATING 1
  3331	032003	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3332	032004	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3333	032005	312 03 0 00 034465 		CAME	3,[ZZ,,0]	;TEST INDEXING
  3334						STOP^
  3335	032006	254 04 0 00 032007 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3336	032007	324 00 0 00 032010 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3337									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3338									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3339									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3340
  3341					;**********
  3342
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0077

  3343					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3344					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3345					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3346					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH -1,,-1,
  3347					;THE FINAL RESULT IN AC3 SHOULD BE -1,,-1.  IF C(AC3)=-1,,-1, THIS TEST PASSES.
  3348
  3349	032010	402 00 0 00 000003 	C1400:	SETZM	3		;PRELOAD AC3 WITH 0
  3350	032011	476 00 0 00 000001 		SETOM	1		;PRELOAD AC1 WITH -1,,-1
  3351	032012	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3352	032013	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3353	032014	312 03 0 00 034466 		CAME	3,[-1,,-1]	;TEST INDEXING
  3354						STOP^
  3355	032015	254 04 0 00 032016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3356	032016	324 00 0 00 032017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3357									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3358									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3359									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3360
  3361					;**********
  3362
  3363			001500		SN=1500
  3364			000000			ZZ=0
  3365
  3366					C1500:	REPEAT	^D18,<
  3367					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3368					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3369					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3370					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3371					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3372					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3373					
  3374					SN=SN+1
  3375						ZZ=<ZZ+ZZ+1>&777777
  3376						IFE	<ZZ-1>,<ZZ=777776>
  3377						SETZM	3		;PRELOAD AC3 WITH 0
  3378						HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3379						MOVEI	2,1		;SETUP INDEX REGISTER
  3380						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3381						CAME	3,[-1,,ZZ]	;TEST INDEXING
  3382						STOP
  3383					
  3384					;**********
  3385					>
  3386
  3387					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3388					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3389					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3390					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3391					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3392					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3393
  3394			001501		SN=SN+1
  3395			000001			ZZ=<ZZ+ZZ+1>&777777
  3396			777776			IFE	<ZZ-1>,<ZZ=777776>
  3397	032017	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0078

  3398	032020	561 01 0 00 777776 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3399	032021	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3400	032022	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3401	032023	312 03 0 00 034467 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3402						STOP^
  3403	032024	254 04 0 00 032025 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3404	032025	324 00 0 00 032026 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3405									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3406									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3407									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3408
  3409					;**********
  3410
  3411
  3412					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3413					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3414					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3415					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3416					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3417					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3418
  3419			001502		SN=SN+1
  3420			777775			ZZ=<ZZ+ZZ+1>&777777
  3421						IFE	<ZZ-1>,<ZZ=777776>
  3422	032026	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3423	032027	561 01 0 00 777775 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3424	032030	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3425	032031	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3426	032032	312 03 0 00 034470 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3427						STOP^
  3428	032033	254 04 0 00 032034 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3429	032034	324 00 0 00 032035 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3430									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3431									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3432									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3433
  3434					;**********
  3435
  3436
  3437					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3438					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3439					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3440					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3441					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3442					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3443
  3444			001503		SN=SN+1
  3445			777773			ZZ=<ZZ+ZZ+1>&777777
  3446						IFE	<ZZ-1>,<ZZ=777776>
  3447	032035	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3448	032036	561 01 0 00 777773 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3449	032037	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3450	032040	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3451	032041	312 03 0 00 034471 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3452						STOP^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0079

  3453	032042	254 04 0 00 032043 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3454	032043	324 00 0 00 032044 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3455									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3456									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3457									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3458
  3459					;**********
  3460
  3461
  3462					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3463					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3464					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3465					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3466					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3467					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3468
  3469			001504		SN=SN+1
  3470			777767			ZZ=<ZZ+ZZ+1>&777777
  3471						IFE	<ZZ-1>,<ZZ=777776>
  3472	032044	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3473	032045	561 01 0 00 777767 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3474	032046	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3475	032047	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3476	032050	312 03 0 00 034472 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3477						STOP^
  3478	032051	254 04 0 00 032052 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3479	032052	324 00 0 00 032053 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3480									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3481									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3482									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3483
  3484					;**********
  3485
  3486
  3487					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3488					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3489					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3490					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3491					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3492					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3493
  3494			001505		SN=SN+1
  3495			777757			ZZ=<ZZ+ZZ+1>&777777
  3496						IFE	<ZZ-1>,<ZZ=777776>
  3497	032053	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3498	032054	561 01 0 00 777757 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3499	032055	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3500	032056	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3501	032057	312 03 0 00 034473 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3502						STOP^
  3503	032060	254 04 0 00 032061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3504	032061	324 00 0 00 032062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3505									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3506									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3507									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0080

  3508
  3509					;**********
  3510
  3511
  3512					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3513					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3514					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3515					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3516					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3517					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3518
  3519			001506		SN=SN+1
  3520			777737			ZZ=<ZZ+ZZ+1>&777777
  3521						IFE	<ZZ-1>,<ZZ=777776>
  3522	032062	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3523	032063	561 01 0 00 777737 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3524	032064	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3525	032065	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3526	032066	312 03 0 00 034474 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3527						STOP^
  3528	032067	254 04 0 00 032070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3529	032070	324 00 0 00 032071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3530									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3531									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3532									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3533
  3534					;**********
  3535
  3536
  3537					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3538					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3539					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3540					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3541					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3542					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3543
  3544			001507		SN=SN+1
  3545			777677			ZZ=<ZZ+ZZ+1>&777777
  3546						IFE	<ZZ-1>,<ZZ=777776>
  3547	032071	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3548	032072	561 01 0 00 777677 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3549	032073	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3550	032074	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3551	032075	312 03 0 00 034475 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3552						STOP^
  3553	032076	254 04 0 00 032077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3554	032077	324 00 0 00 032100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3555									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3556									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3557									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3558
  3559					;**********
  3560
  3561
  3562					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0081

  3563					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3564					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3565					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3566					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3567					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3568
  3569			001510		SN=SN+1
  3570			777577			ZZ=<ZZ+ZZ+1>&777777
  3571						IFE	<ZZ-1>,<ZZ=777776>
  3572	032100	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3573	032101	561 01 0 00 777577 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3574	032102	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3575	032103	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3576	032104	312 03 0 00 034476 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3577						STOP^
  3578	032105	254 04 0 00 032106 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3579	032106	324 00 0 00 032107 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3580									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3581									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3582									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3583
  3584					;**********
  3585
  3586
  3587					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3588					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3589					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3590					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3591					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3592					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3593
  3594			001511		SN=SN+1
  3595			777377			ZZ=<ZZ+ZZ+1>&777777
  3596						IFE	<ZZ-1>,<ZZ=777776>
  3597	032107	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3598	032110	561 01 0 00 777377 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3599	032111	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3600	032112	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3601	032113	312 03 0 00 034477 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3602						STOP^
  3603	032114	254 04 0 00 032115 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3604	032115	324 00 0 00 032116 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3605									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3606									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3607									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3608
  3609					;**********
  3610
  3611
  3612					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3613					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3614					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3615					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3616					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3617					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0082

  3618
  3619			001512		SN=SN+1
  3620			776777			ZZ=<ZZ+ZZ+1>&777777
  3621						IFE	<ZZ-1>,<ZZ=777776>
  3622	032116	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3623	032117	561 01 0 00 776777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3624	032120	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3625	032121	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3626	032122	312 03 0 00 034500 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3627						STOP^
  3628	032123	254 04 0 00 032124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3629	032124	324 00 0 00 032125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3630									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3631									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3632									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3633
  3634					;**********
  3635
  3636
  3637					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3638					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3639					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3640					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3641					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3642					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3643
  3644			001513		SN=SN+1
  3645			775777			ZZ=<ZZ+ZZ+1>&777777
  3646						IFE	<ZZ-1>,<ZZ=777776>
  3647	032125	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3648	032126	561 01 0 00 775777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3649	032127	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3650	032130	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3651	032131	312 03 0 00 034501 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3652						STOP^
  3653	032132	254 04 0 00 032133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3654	032133	324 00 0 00 032134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3655									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3656									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3657									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3658
  3659					;**********
  3660
  3661
  3662					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3663					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3664					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3665					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3666					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3667					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3668
  3669			001514		SN=SN+1
  3670			773777			ZZ=<ZZ+ZZ+1>&777777
  3671						IFE	<ZZ-1>,<ZZ=777776>
  3672	032134	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0083

  3673	032135	561 01 0 00 773777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3674	032136	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3675	032137	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3676	032140	312 03 0 00 034502 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3677						STOP^
  3678	032141	254 04 0 00 032142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3679	032142	324 00 0 00 032143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3680									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3681									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3682									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3683
  3684					;**********
  3685
  3686
  3687					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3688					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3689					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3690					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3691					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3692					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3693
  3694			001515		SN=SN+1
  3695			767777			ZZ=<ZZ+ZZ+1>&777777
  3696						IFE	<ZZ-1>,<ZZ=777776>
  3697	032143	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3698	032144	561 01 0 00 767777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3699	032145	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3700	032146	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3701	032147	312 03 0 00 034503 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3702						STOP^
  3703	032150	254 04 0 00 032151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3704	032151	324 00 0 00 032152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3705									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3706									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3707									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3708
  3709					;**********
  3710
  3711
  3712					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3713					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3714					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3715					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3716					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3717					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3718
  3719			001516		SN=SN+1
  3720			757777			ZZ=<ZZ+ZZ+1>&777777
  3721						IFE	<ZZ-1>,<ZZ=777776>
  3722	032152	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3723	032153	561 01 0 00 757777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3724	032154	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3725	032155	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3726	032156	312 03 0 00 034504 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3727						STOP^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-7
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0084

  3728	032157	254 04 0 00 032160 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3729	032160	324 00 0 00 032161 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3730									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3731									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3732									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3733
  3734					;**********
  3735
  3736
  3737					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3738					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3739					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3740					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3741					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3742					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3743
  3744			001517		SN=SN+1
  3745			737777			ZZ=<ZZ+ZZ+1>&777777
  3746						IFE	<ZZ-1>,<ZZ=777776>
  3747	032161	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3748	032162	561 01 0 00 737777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3749	032163	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3750	032164	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3751	032165	312 03 0 00 034505 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3752						STOP^
  3753	032166	254 04 0 00 032167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3754	032167	324 00 0 00 032170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3755									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3756									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3757									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3758
  3759					;**********
  3760
  3761
  3762					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3763					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3764					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3765					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3766					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3767					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3768
  3769			001520		SN=SN+1
  3770			677777			ZZ=<ZZ+ZZ+1>&777777
  3771						IFE	<ZZ-1>,<ZZ=777776>
  3772	032170	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3773	032171	561 01 0 00 677777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3774	032172	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3775	032173	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3776	032174	312 03 0 00 034506 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3777						STOP^
  3778	032175	254 04 0 00 032176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3779	032176	324 00 0 00 032177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3780									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3781									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3782									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 11-8
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0085

  3783
  3784					;**********
  3785
  3786
  3787					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3788					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3789					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3790					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3791					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3792					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3793
  3794			001521		SN=SN+1
  3795			577777			ZZ=<ZZ+ZZ+1>&777777
  3796						IFE	<ZZ-1>,<ZZ=777776>
  3797	032177	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3798	032200	561 01 0 00 577777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3799	032201	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3800	032202	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3801	032203	312 03 0 00 034507 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3802						STOP^
  3803	032204	254 04 0 00 032205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3804	032205	324 00 0 00 032206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3805									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3806									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3807									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3808
  3809					;**********
  3810
  3811
  3812					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3813					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3814					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3815					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3816					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3817					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3818
  3819			001522		SN=SN+1
  3820			377777			ZZ=<ZZ+ZZ+1>&777777
  3821						IFE	<ZZ-1>,<ZZ=777776>
  3822	032206	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3823	032207	561 01 0 00 377777 		HRROI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3824	032210	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3825	032211	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3826	032212	312 03 0 00 034510 		CAME	3,[-1,,ZZ]	;TEST INDEXING
  3827						STOP^
  3828	032213	254 04 0 00 032214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3829	032214	324 00 0 00 032215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3830									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3831									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3832									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3833
  3834					;**********
  3835
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0086

  3836			001600		SN=1600
  3837			000000			ZZ=0 
  3838
  3839					C1600:	REPEAT	^D18,<
  3840					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3841					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3842					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3843					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3844					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3845					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3846					
  3847					SN=SN+1
  3848						ZZ=<ZZ+ZZ+1>&777777
  3849						IFE	<ZZ-1>,<ZZ=777776>
  3850						SETZM	3		;PRELOAD AC3 WITH 0
  3851						HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3852						MOVEI	2,1		;SETUP INDEX REGISTER
  3853						MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3854						CAME	3,[ZZ,,-1]	;TEST INDEXING
  3855						STOP
  3856					
  3857					;**********
  3858					>
  3859
  3860					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3861					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3862					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3863					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3864					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3865					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3866
  3867			001601		SN=SN+1
  3868			000001			ZZ=<ZZ+ZZ+1>&777777
  3869			777776			IFE	<ZZ-1>,<ZZ=777776>
  3870	032215	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3871	032216	525 01 0 00 777776 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3872	032217	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3873	032220	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3874	032221	312 03 0 00 034511 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3875						STOP^
  3876	032222	254 04 0 00 032223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3877	032223	324 00 0 00 032224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3878									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3879									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3880									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3881
  3882					;**********
  3883
  3884
  3885					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3886					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3887					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3888					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3889					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3890					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0087

  3891
  3892			001602		SN=SN+1
  3893			777775			ZZ=<ZZ+ZZ+1>&777777
  3894						IFE	<ZZ-1>,<ZZ=777776>
  3895	032224	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3896	032225	525 01 0 00 777775 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3897	032226	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3898	032227	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3899	032230	312 03 0 00 034512 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3900						STOP^
  3901	032231	254 04 0 00 032232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3902	032232	324 00 0 00 032233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3903									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3904									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3905									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3906
  3907					;**********
  3908
  3909
  3910					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3911					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3912					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3913					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3914					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3915					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3916
  3917			001603		SN=SN+1
  3918			777773			ZZ=<ZZ+ZZ+1>&777777
  3919						IFE	<ZZ-1>,<ZZ=777776>
  3920	032233	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3921	032234	525 01 0 00 777773 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3922	032235	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3923	032236	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3924	032237	312 03 0 00 034513 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3925						STOP^
  3926	032240	254 04 0 00 032241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3927	032241	324 00 0 00 032242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3928									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3929									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3930									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3931
  3932					;**********
  3933
  3934
  3935					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3936					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3937					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3938					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3939					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3940					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3941
  3942			001604		SN=SN+1
  3943			777767			ZZ=<ZZ+ZZ+1>&777777
  3944						IFE	<ZZ-1>,<ZZ=777776>
  3945	032242	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0088

  3946	032243	525 01 0 00 777767 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3947	032244	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3948	032245	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3949	032246	312 03 0 00 034514 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3950						STOP^
  3951	032247	254 04 0 00 032250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3952	032250	324 00 0 00 032251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3953									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3954									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3955									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3956
  3957					;**********
  3958
  3959
  3960					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3961					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3962					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3963					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3964					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3965					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3966
  3967			001605		SN=SN+1
  3968			777757			ZZ=<ZZ+ZZ+1>&777777
  3969						IFE	<ZZ-1>,<ZZ=777776>
  3970	032251	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3971	032252	525 01 0 00 777757 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3972	032253	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3973	032254	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3974	032255	312 03 0 00 034515 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  3975						STOP^
  3976	032256	254 04 0 00 032257 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3977	032257	324 00 0 00 032260 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  3978									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  3979									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  3980									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  3981
  3982					;**********
  3983
  3984
  3985					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  3986					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  3987					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  3988					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  3989					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  3990					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  3991
  3992			001606		SN=SN+1
  3993			777737			ZZ=<ZZ+ZZ+1>&777777
  3994						IFE	<ZZ-1>,<ZZ=777776>
  3995	032260	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  3996	032261	525 01 0 00 777737 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  3997	032262	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  3998	032263	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  3999	032264	312 03 0 00 034516 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4000						STOP^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0089

  4001	032265	254 04 0 00 032266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4002	032266	324 00 0 00 032267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4003									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4004									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4005									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4006
  4007					;**********
  4008
  4009
  4010					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4011					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4012					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4013					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4014					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4015					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4016
  4017			001607		SN=SN+1
  4018			777677			ZZ=<ZZ+ZZ+1>&777777
  4019						IFE	<ZZ-1>,<ZZ=777776>
  4020	032267	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4021	032270	525 01 0 00 777677 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4022	032271	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4023	032272	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4024	032273	312 03 0 00 034517 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4025						STOP^
  4026	032274	254 04 0 00 032275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4027	032275	324 00 0 00 032276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4028									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4029									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4030									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4031
  4032					;**********
  4033
  4034
  4035					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4036					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4037					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4038					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4039					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4040					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4041
  4042			001610		SN=SN+1
  4043			777577			ZZ=<ZZ+ZZ+1>&777777
  4044						IFE	<ZZ-1>,<ZZ=777776>
  4045	032276	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4046	032277	525 01 0 00 777577 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4047	032300	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4048	032301	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4049	032302	312 03 0 00 034520 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4050						STOP^
  4051	032303	254 04 0 00 032304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4052	032304	324 00 0 00 032305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4053									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4054									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4055									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0090

  4056
  4057					;**********
  4058
  4059
  4060					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4061					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4062					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4063					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4064					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4065					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4066
  4067			001611		SN=SN+1
  4068			777377			ZZ=<ZZ+ZZ+1>&777777
  4069						IFE	<ZZ-1>,<ZZ=777776>
  4070	032305	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4071	032306	525 01 0 00 777377 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4072	032307	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4073	032310	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4074	032311	312 03 0 00 034521 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4075						STOP^
  4076	032312	254 04 0 00 032313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4077	032313	324 00 0 00 032314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4078									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4079									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4080									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4081
  4082					;**********
  4083
  4084
  4085					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4086					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4087					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4088					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4089					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4090					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4091
  4092			001612		SN=SN+1
  4093			776777			ZZ=<ZZ+ZZ+1>&777777
  4094						IFE	<ZZ-1>,<ZZ=777776>
  4095	032314	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4096	032315	525 01 0 00 776777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4097	032316	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4098	032317	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4099	032320	312 03 0 00 034522 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4100						STOP^
  4101	032321	254 04 0 00 032322 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4102	032322	324 00 0 00 032323 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4103									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4104									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4105									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4106
  4107					;**********
  4108
  4109
  4110					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0091

  4111					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4112					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4113					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4114					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4115					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4116
  4117			001613		SN=SN+1
  4118			775777			ZZ=<ZZ+ZZ+1>&777777
  4119						IFE	<ZZ-1>,<ZZ=777776>
  4120	032323	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4121	032324	525 01 0 00 775777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4122	032325	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4123	032326	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4124	032327	312 03 0 00 034523 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4125						STOP^
  4126	032330	254 04 0 00 032331 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4127	032331	324 00 0 00 032332 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4128									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4129									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4130									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4131
  4132					;**********
  4133
  4134
  4135					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4136					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4137					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4138					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4139					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4140					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4141
  4142			001614		SN=SN+1
  4143			773777			ZZ=<ZZ+ZZ+1>&777777
  4144						IFE	<ZZ-1>,<ZZ=777776>
  4145	032332	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4146	032333	525 01 0 00 773777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4147	032334	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4148	032335	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4149	032336	312 03 0 00 034524 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4150						STOP^
  4151	032337	254 04 0 00 032340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4152	032340	324 00 0 00 032341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4153									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4154									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4155									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4156
  4157					;**********
  4158
  4159
  4160					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4161					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4162					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4163					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4164					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4165					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0092

  4166
  4167			001615		SN=SN+1
  4168			767777			ZZ=<ZZ+ZZ+1>&777777
  4169						IFE	<ZZ-1>,<ZZ=777776>
  4170	032341	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4171	032342	525 01 0 00 767777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4172	032343	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4173	032344	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4174	032345	312 03 0 00 034525 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4175						STOP^
  4176	032346	254 04 0 00 032347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4177	032347	324 00 0 00 032350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4178									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4179									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4180									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4181
  4182					;**********
  4183
  4184
  4185					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4186					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4187					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4188					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4189					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4190					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4191
  4192			001616		SN=SN+1
  4193			757777			ZZ=<ZZ+ZZ+1>&777777
  4194						IFE	<ZZ-1>,<ZZ=777776>
  4195	032350	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4196	032351	525 01 0 00 757777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4197	032352	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4198	032353	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4199	032354	312 03 0 00 034526 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4200						STOP^
  4201	032355	254 04 0 00 032356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4202	032356	324 00 0 00 032357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4203									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4204									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4205									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4206
  4207					;**********
  4208
  4209
  4210					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4211					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4212					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4213					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4214					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4215					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4216
  4217			001617		SN=SN+1
  4218			737777			ZZ=<ZZ+ZZ+1>&777777
  4219						IFE	<ZZ-1>,<ZZ=777776>
  4220	032357	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-7
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0093

  4221	032360	525 01 0 00 737777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4222	032361	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4223	032362	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4224	032363	312 03 0 00 034527 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4225						STOP^
  4226	032364	254 04 0 00 032365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4227	032365	324 00 0 00 032366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4228									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4229									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4230									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4231
  4232					;**********
  4233
  4234
  4235					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4236					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4237					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4238					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4239					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4240					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4241
  4242			001620		SN=SN+1
  4243			677777			ZZ=<ZZ+ZZ+1>&777777
  4244						IFE	<ZZ-1>,<ZZ=777776>
  4245	032366	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4246	032367	525 01 0 00 677777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4247	032370	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4248	032371	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4249	032372	312 03 0 00 034530 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4250						STOP^
  4251	032373	254 04 0 00 032374 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4252	032374	324 00 0 00 032375 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4253									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4254									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4255									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4256
  4257					;**********
  4258
  4259
  4260					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4261					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4262					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4263					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4264					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4265					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4266
  4267			001621		SN=SN+1
  4268			577777			ZZ=<ZZ+ZZ+1>&777777
  4269						IFE	<ZZ-1>,<ZZ=777776>
  4270	032375	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4271	032376	525 01 0 00 577777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4272	032377	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4273	032400	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4274	032401	312 03 0 00 034531 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4275						STOP^
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 12-8
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0094

  4276	032402	254 04 0 00 032403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4277	032403	324 00 0 00 032404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4278									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4279									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4280									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4281
  4282					;**********
  4283
  4284
  4285					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4286					;IN THIS TEST, A MOVE INSTRUCTION USING INDEXING IS EXECUTED.  THE MOVE INSTRUCTION
  4287					;SHOULD PLACE THE CONTENTS OF THE LOCATION SPECIFIED BY INDEX REGISTER 2 INTO AC3.
  4288					;SINCE INDEX REGISTER 2 WAS PRELOADED WITH A 1 AND AC1 WAS PRELOADED WITH A
  4289					;FLOATING 0, THE FINAL RESULT IN AC3 SHOULD BE A FLOATING 0.
  4290					;IF C(AC3)=A FLOATING 0, THIS TEST PASSES.
  4291
  4292			001622		SN=SN+1
  4293			377777			ZZ=<ZZ+ZZ+1>&777777
  4294						IFE	<ZZ-1>,<ZZ=777776>
  4295	032404	402 00 0 00 000003 		SETZM	3		;PRELOAD AC3 WITH 0
  4296	032405	525 01 0 00 377777 		HRLOI	1,ZZ		;PRELOAD AC1 WITH FLOATING 0
  4297	032406	201 02 0 00 000001 		MOVEI	2,1		;SETUP INDEX REGISTER
  4298	032407	200 03 0 02 000000 		MOVE	3,(2)		;*FWT FROM INDEXED LOCATION
  4299	032410	312 03 0 00 034532 		CAME	3,[ZZ,,-1]	;TEST INDEXING
  4300						STOP^
  4301	032411	254 04 0 00 032412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4302	032412	324 00 0 00 032413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4303									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4304									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4305									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4306
  4307					;**********
  4308
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0095

  4309					;VERIFY INDEXING WHERE 'E' IS NON-ZERO
  4310
  4311			001700		SN=1700
  4312		777777	777777			ZZ=-1
  4313		777777	777770			XX=-10
  4314
  4315					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4316					;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX,
  4317					;WHERE ZZ+1 IS THE INDEX REG.  THE AC IS PRELOADED WITH ITS OWN ADDRESS, 0,,ZZ.
  4318					;CAIE IS USED TO TEST THE INDEXING OPERATION.
  4319					;IF THE RESULT IN C(AC)=XX+C(ZZ+1 - RIGHT), THIS TEST PASSES.
  4320					;XX+C(ZZ+1 - RIGHT) SHOULD = ZZ.
  4321
  4322					C1700:	REPEAT	^D15,
  4323					<SN=SN+1
  4324						ZZ=ZZ+1
  4325						XX=XX+3
  4326						MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4327						MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4328						CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4329						STOP
  4330					
  4331					;**********
  4332					>
  4333			001701		SN=SN+1
  4334			000000			ZZ=ZZ+1
  4335		777777	777773			XX=XX+3
  4336	032413	201 01 0 00 000005 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4337	032414	201 00 0 00 000000 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4338	032415	302 00 0 01 777773 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4339						STOP^
  4340	032416	254 04 0 00 032417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4341	032417	324 00 0 00 032420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4342									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4343									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4344									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4345
  4346					;**********
  4347
  4348			001702		SN=SN+1
  4349			000001			ZZ=ZZ+1
  4350		777777	777776			XX=XX+3
  4351	032420	201 02 0 00 000003 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4352	032421	201 01 0 00 000001 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4353	032422	302 01 0 02 777776 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4354						STOP^
  4355	032423	254 04 0 00 032424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4356	032424	324 00 0 00 032425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4357									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4358									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4359									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4360
  4361					;**********
  4362
  4363			001703		SN=SN+1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0096

  4364			000002			ZZ=ZZ+1
  4365			000001			XX=XX+3
  4366	032425	201 03 0 00 000001 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4367	032426	201 02 0 00 000002 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4368	032427	302 02 0 03 000001 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4369						STOP^
  4370	032430	254 04 0 00 032431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4371	032431	324 00 0 00 032432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4372									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4373									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4374									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4375
  4376					;**********
  4377
  4378			001704		SN=SN+1
  4379			000003			ZZ=ZZ+1
  4380			000004			XX=XX+3
  4381	032432	201 04 0 00 777777 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4382	032433	201 03 0 00 000003 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4383	032434	302 03 0 04 000004 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4384						STOP^
  4385	032435	254 04 0 00 032436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4386	032436	324 00 0 00 032437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4387									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4388									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4389									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4390
  4391					;**********
  4392
  4393			001705		SN=SN+1
  4394			000004			ZZ=ZZ+1
  4395			000007			XX=XX+3
  4396	032437	201 05 0 00 777775 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4397	032440	201 04 0 00 000004 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4398	032441	302 04 0 05 000007 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4399						STOP^
  4400	032442	254 04 0 00 032443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4401	032443	324 00 0 00 032444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4402									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4403									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4404									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4405
  4406					;**********
  4407
  4408			001706		SN=SN+1
  4409			000005			ZZ=ZZ+1
  4410			000012			XX=XX+3
  4411	032444	201 06 0 00 777773 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4412	032445	201 05 0 00 000005 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4413	032446	302 05 0 06 000012 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4414						STOP^
  4415	032447	254 04 0 00 032450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4416	032450	324 00 0 00 032451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4417									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4418									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-2
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0097

  4419									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4420
  4421					;**********
  4422
  4423			001707		SN=SN+1
  4424			000006			ZZ=ZZ+1
  4425			000015			XX=XX+3
  4426	032451	201 07 0 00 777771 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4427	032452	201 06 0 00 000006 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4428	032453	302 06 0 07 000015 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4429						STOP^
  4430	032454	254 04 0 00 032455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4431	032455	324 00 0 00 032456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4432									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4433									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4434									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4435
  4436					;**********
  4437
  4438			001710		SN=SN+1
  4439			000007			ZZ=ZZ+1
  4440			000020			XX=XX+3
  4441	032456	201 10 0 00 777767 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4442	032457	201 07 0 00 000007 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4443	032460	302 07 0 10 000020 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4444						STOP^
  4445	032461	254 04 0 00 032462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4446	032462	324 00 0 00 032463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4447									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4448									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4449									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4450
  4451					;**********
  4452
  4453			001711		SN=SN+1
  4454			000010			ZZ=ZZ+1
  4455			000023			XX=XX+3
  4456	032463	201 11 0 00 777765 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4457	032464	201 10 0 00 000010 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4458	032465	302 10 0 11 000023 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4459						STOP^
  4460	032466	254 04 0 00 032467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4461	032467	324 00 0 00 032470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4462									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4463									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4464									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4465
  4466					;**********
  4467
  4468			001712		SN=SN+1
  4469			000011			ZZ=ZZ+1
  4470			000026			XX=XX+3
  4471	032470	201 12 0 00 777763 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4472	032471	201 11 0 00 000011 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4473	032472	302 11 0 12 000026 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-3
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0098

  4474						STOP^
  4475	032473	254 04 0 00 032474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4476	032474	324 00 0 00 032475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4477									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4478									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4479									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4480
  4481					;**********
  4482
  4483			001713		SN=SN+1
  4484			000012			ZZ=ZZ+1
  4485			000031			XX=XX+3
  4486	032475	201 13 0 00 777761 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4487	032476	201 12 0 00 000012 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4488	032477	302 12 0 13 000031 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4489						STOP^
  4490	032500	254 04 0 00 032501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4491	032501	324 00 0 00 032502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4492									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4493									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4494									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4495
  4496					;**********
  4497
  4498			001714		SN=SN+1
  4499			000013			ZZ=ZZ+1
  4500			000034			XX=XX+3
  4501	032502	201 14 0 00 777757 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4502	032503	201 13 0 00 000013 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4503	032504	302 13 0 14 000034 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4504						STOP^
  4505	032505	254 04 0 00 032506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4506	032506	324 00 0 00 032507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4507									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4508									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4509									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4510
  4511					;**********
  4512
  4513			001715		SN=SN+1
  4514			000014			ZZ=ZZ+1
  4515			000037			XX=XX+3
  4516	032507	201 15 0 00 777755 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4517	032510	201 14 0 00 000014 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4518	032511	302 14 0 15 000037 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4519						STOP^
  4520	032512	254 04 0 00 032513 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4521	032513	324 00 0 00 032514 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4522									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4523									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4524									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4525
  4526					;**********
  4527
  4528			001716		SN=SN+1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-4
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0099

  4529			000015			ZZ=ZZ+1
  4530			000042			XX=XX+3
  4531	032514	201 16 0 00 777753 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4532	032515	201 15 0 00 000015 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4533	032516	302 15 0 16 000042 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4534						STOP^
  4535	032517	254 04 0 00 032520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4536	032520	324 00 0 00 032521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4537									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4538									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4539									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4540
  4541					;**********
  4542
  4543			001717		SN=SN+1
  4544			000016			ZZ=ZZ+1
  4545			000045			XX=XX+3
  4546	032521	201 17 0 00 777751 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4547	032522	201 16 0 00 000016 		MOVEI	ZZ,ZZ		;PRELOAD AC WITH 0,,ZZ
  4548	032523	302 16 0 17 000045 		CAIE	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4549						STOP^
  4550	032524	254 04 0 00 032525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4551	032525	324 00 0 00 032526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4552									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4553									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4554									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4555
  4556					;**********
  4557
  4558					PAGE
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-5
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0100

  4559			002000		SN=2000
  4560		777777	777777			ZZ=-1
  4561		777777	777760			XX=-20
  4562
  4563					;THIS TEST VERIFIES THAT INDEX REGISTER ADDRESSING FUNCTIONS CORRECTLY.
  4564					;IN THIS TEST, THE INDEX REG IS SET-UP WITH MOVEI ZZ+1,ZZ-XX,
  4565					;WHERE ZZ+1 IS THE INDEX REG.  INDEXING IS TESTED BY LOADING
  4566					;THE AC VIA MOVEI ZZ,XX(ZZ+1), WHERE XX+C(ZZ+1)=ZZ.
  4567					;IF THE RESULT IN THE AC EQUALS 0,,ZZ, THIS TEST PASSES.
  4568
  4569					C2000:	REPEAT	^D15,
  4570					<SN=SN+1
  4571						ZZ=ZZ+1
  4572						XX=XX+5
  4573						MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4574						MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4575						CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4576						STOP
  4577					
  4578					;**********
  4579					>
  4580			002001		SN=SN+1
  4581			000000			ZZ=ZZ+1
  4582		777777	777765			XX=XX+5
  4583	032526	201 01 0 00 000013 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4584	032527	201 00 0 01 777765 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4585	032530	302 00 0 00 000000 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4586						STOP^
  4587	032531	254 04 0 00 032532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4588	032532	324 00 0 00 032533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4589									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4590									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4591									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4592
  4593					;**********
  4594
  4595			002002		SN=SN+1
  4596			000001			ZZ=ZZ+1
  4597		777777	777772			XX=XX+5
  4598	032533	201 02 0 00 000007 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4599	032534	201 01 0 02 777772 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4600	032535	302 01 0 00 000001 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4601						STOP^
  4602	032536	254 04 0 00 032537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4603	032537	324 00 0 00 032540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4604									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4605									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4606									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4607
  4608					;**********
  4609
  4610			002003		SN=SN+1
  4611			000002			ZZ=ZZ+1
  4612		777777	777777			XX=XX+5
  4613	032540	201 03 0 00 000003 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-6
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0101

  4614	032541	201 02 0 03 777777 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4615	032542	302 02 0 00 000002 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4616						STOP^
  4617	032543	254 04 0 00 032544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4618	032544	324 00 0 00 032545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4619									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4620									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4621									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4622
  4623					;**********
  4624
  4625			002004		SN=SN+1
  4626			000003			ZZ=ZZ+1
  4627			000004			XX=XX+5
  4628	032545	201 04 0 00 777777 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4629	032546	201 03 0 04 000004 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4630	032547	302 03 0 00 000003 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4631						STOP^
  4632	032550	254 04 0 00 032551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4633	032551	324 00 0 00 032552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4634									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4635									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4636									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4637
  4638					;**********
  4639
  4640			002005		SN=SN+1
  4641			000004			ZZ=ZZ+1
  4642			000011			XX=XX+5
  4643	032552	201 05 0 00 777773 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4644	032553	201 04 0 05 000011 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4645	032554	302 04 0 00 000004 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4646						STOP^
  4647	032555	254 04 0 00 032556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4648	032556	324 00 0 00 032557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4649									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4650									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4651									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4652
  4653					;**********
  4654
  4655			002006		SN=SN+1
  4656			000005			ZZ=ZZ+1
  4657			000016			XX=XX+5
  4658	032557	201 06 0 00 777767 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4659	032560	201 05 0 06 000016 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4660	032561	302 05 0 00 000005 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4661						STOP^
  4662	032562	254 04 0 00 032563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4663	032563	324 00 0 00 032564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4664									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4665									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4666									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4667
  4668					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-7
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0102

  4669
  4670			002007		SN=SN+1
  4671			000006			ZZ=ZZ+1
  4672			000023			XX=XX+5
  4673	032564	201 07 0 00 777763 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4674	032565	201 06 0 07 000023 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4675	032566	302 06 0 00 000006 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4676						STOP^
  4677	032567	254 04 0 00 032570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4678	032570	324 00 0 00 032571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4679									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4680									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4681									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4682
  4683					;**********
  4684
  4685			002010		SN=SN+1
  4686			000007			ZZ=ZZ+1
  4687			000030			XX=XX+5
  4688	032571	201 10 0 00 777757 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4689	032572	201 07 0 10 000030 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4690	032573	302 07 0 00 000007 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4691						STOP^
  4692	032574	254 04 0 00 032575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4693	032575	324 00 0 00 032576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4694									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4695									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4696									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4697
  4698					;**********
  4699
  4700			002011		SN=SN+1
  4701			000010			ZZ=ZZ+1
  4702			000035			XX=XX+5
  4703	032576	201 11 0 00 777753 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4704	032577	201 10 0 11 000035 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4705	032600	302 10 0 00 000010 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4706						STOP^
  4707	032601	254 04 0 00 032602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4708	032602	324 00 0 00 032603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4709									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4710									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4711									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4712
  4713					;**********
  4714
  4715			002012		SN=SN+1
  4716			000011			ZZ=ZZ+1
  4717			000042			XX=XX+5
  4718	032603	201 12 0 00 777747 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4719	032604	201 11 0 12 000042 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4720	032605	302 11 0 00 000011 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4721						STOP^
  4722	032606	254 04 0 00 032607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4723	032607	324 00 0 00 032610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-8
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0103

  4724									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4725									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4726									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4727
  4728					;**********
  4729
  4730			002013		SN=SN+1
  4731			000012			ZZ=ZZ+1
  4732			000047			XX=XX+5
  4733	032610	201 13 0 00 777743 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4734	032611	201 12 0 13 000047 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4735	032612	302 12 0 00 000012 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4736						STOP^
  4737	032613	254 04 0 00 032614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4738	032614	324 00 0 00 032615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4739									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4740									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4741									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4742
  4743					;**********
  4744
  4745			002014		SN=SN+1
  4746			000013			ZZ=ZZ+1
  4747			000054			XX=XX+5
  4748	032615	201 14 0 00 777737 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4749	032616	201 13 0 14 000054 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4750	032617	302 13 0 00 000013 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4751						STOP^
  4752	032620	254 04 0 00 032621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4753	032621	324 00 0 00 032622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4754									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4755									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4756									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4757
  4758					;**********
  4759
  4760			002015		SN=SN+1
  4761			000014			ZZ=ZZ+1
  4762			000061			XX=XX+5
  4763	032622	201 15 0 00 777733 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4764	032623	201 14 0 15 000061 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4765	032624	302 14 0 00 000014 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4766						STOP^
  4767	032625	254 04 0 00 032626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4768	032626	324 00 0 00 032627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4769									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4770									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4771									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4772
  4773					;**********
  4774
  4775			002016		SN=SN+1
  4776			000015			ZZ=ZZ+1
  4777			000066			XX=XX+5
  4778	032627	201 16 0 00 777727 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 13-9
DAKADM	MAC	19-JAN-77 13:41		TEST OF INDEX REGISTER ADDRESSING                                                  SEQ 0104

  4779	032630	201 15 0 16 000066 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4780	032631	302 15 0 00 000015 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4781						STOP^
  4782	032632	254 04 0 00 032633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4783	032633	324 00 0 00 032634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4784									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4785									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4786									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4787
  4788					;**********
  4789
  4790			002017		SN=SN+1
  4791			000016			ZZ=ZZ+1
  4792			000073			XX=XX+5
  4793	032634	201 17 0 00 777723 		MOVEI	ZZ+1,ZZ-XX	;SETUP INDEX REGISTER
  4794	032635	201 16 0 17 000073 		MOVEI	ZZ,XX(ZZ+1)	;*TEST INDEXING
  4795	032636	302 16 0 00 000016 		CAIE	ZZ,ZZ		;PASS IF C(AC)=0,,ADDRESS OF AC
  4796						STOP^
  4797	032637	254 04 0 00 032640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4798	032640	324 00 0 00 032641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4799									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4800									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4801									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4802
  4803					;**********
  4804
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 14
DAKADM	MAC	19-JAN-77 13:41		TEST OF EXCH INSTRUCTION                                                           SEQ 0105

  4805					SUBTTL	TEST OF EXCH INSTRUCTION
  4806
  4807					;**********
  4808
  4809					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4810					;MOVES C(AC) INTO E.
  4811					;IN THIS CASE, AC=E=0 AND C(AC)=C(E).  HENCE, THE FINAL RESULT
  4812					;IN AC0 SHOULD BE 0.  IF C(AC)=0, THE TEST PASSES.
  4813
  4814	032641	400 00 0 00 000000 	C2100:	SETZ			;PRELOAD AC,E WITH 0
  4815	032642	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 0 INTO AC0
  4816	032643	332 00 0 00 000000 		SKIPE			;PASS IF C(AC0)=0
  4817						STOP^
  4818	032644	254 04 0 00 032645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4819	032645	324 00 0 00 032646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4820									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4821									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4822									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4823
  4824					;**********
  4825
  4826					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4827					;MOVES C(AC) INTO E.
  4828					;IN THIS CASE, AC=E=-1,,-1 AND C(AC)=C(E).  HENCE, THE FINAL RESULT
  4829					;IN AC0 SHOULD BE -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
  4830
  4831	032646	474 00 0 00 000000 	C2200:	SETO			;PRELOAD AC,E WITH -1,,-1
  4832	032647	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE -1,,-1 INTO AC0
  4833	032650	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC0)=-1,,-1
  4834						STOP^
  4835	032651	254 04 0 00 032652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4836	032652	324 00 0 00 032653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4837									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4838									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4839									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4840
  4841					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 15
DAKADM	MAC	19-JAN-77 13:41		TEST OF EXCH INSTRUCTION                                                           SEQ 0106

  4842					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4843					;MOVES C(AC) INTO E.
  4844					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0,,-1.  HENCE, THE FINAL RESULT
  4845					;IN THE AC SHOULD BE 0,,-1 AND THE RESULT IN E SHOULD BE -1,,0,
  4846					;IF THESE RESULTS OCCUR, THE TEST PASSES.
  4847
  4848	032653	205 00 0 00 777777 	C2400:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  4849	032654	201 01 0 00 777777 		MOVEI	1,-1		;PRELOAD E WITH 0,,-1
  4850	032655	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD PLACE 0,,-1 INTO THE AC AND -1,,0 INTO E
  4851	032656	312 01 0 00 034533 		CAME	1,[-1,,0]	;PASS IF C(E)=-1,,0
  4852						STOP^
  4853	032657	254 04 0 00 032660 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4854	032660	324 00 0 00 032661 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4855									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4856									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4857									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4858	032661	312 00 0 00 034534 	C2410:	CAME	0,[0,,-1]	;PASS IF C(AC)=0,,-1
  4859						STOP^
  4860	032662	254 04 0 00 032663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4861	032663	324 00 0 00 032664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4862									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4863									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4864									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4865
  4866					;**********
  4867
  4868					;THIS TEST VERIFIES THAT EXCH MOVES C(E) INTO AC AND
  4869					;MOVES C(AC) INTO E.
  4870					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,0.  HENCE, THE FINAL RESULT
  4871					;IN THE AC SHOULD BE -1,,0 AND THE RESULT IN E SHOULD BE 0,,-1.
  4872					;IF THESE RESULTS OCCUR, THE TEST PASSES.
  4873
  4874	032664	201 00 0 00 777777 	C2700:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  4875	032665	205 01 0 00 777777 		MOVSI	1,-1		;PRELOAD E WITH -1,,0
  4876	032666	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD PLACE -1,,0 INTO THE AC AND 0,,-1 INTO E
  4877	032667	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  4878						STOP^
  4879	032670	254 04 0 00 032671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4880	032671	324 00 0 00 032672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4881									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4882									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4883									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4884	032672	312 00 0 00 034533 	C2710:	CAME	,[XWD -1,0]	;PASS IF C(AC)=-1,,0
  4885						STOP^
  4886	032673	254 04 0 00 032674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4887	032674	324 00 0 00 032675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4888									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4889									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4890									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4891
  4892					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 16
DAKADM	MAC	19-JAN-77 13:41		TEST OF EXCH INSTRUCTION                                                           SEQ 0107

  4893					;THIS TEST IS A RELIABILITY CHECK OF EXCH.
  4894					;FIRST, AC, E ARE PRELOADED WITH 252525,,252525.  THERE, EXCH IS
  4895					;EXECUTED 7 TIMES.  THE AC IS THEN CHECKED FOR 252525,,252525.
  4896					;IF C(AC)=C(E)=252525,,252525, THIS TEST PASSES.
  4897					;IN THIS TEST AC=E=AC0
  4898
  4899	032675	200 00 0 00 034535 	C3000:	MOVE	[252525252525]	;PRELOAD AC,E WITH 252525,,252525
  4900						REPEAT	7,
  4901					<	EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0>
  4902	032676	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4903	032677	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4904	032700	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4905	032701	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4906	032702	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4907	032703	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4908	032704	250 00 0 00 000000 		EXCH			;*EXCH SHOULD PLACE 252525,,252525 INTO AC0
  4909	032705	312 00 0 00 034535 		CAME	[252525252525]	;PASS IF C(AC0)=252525,,252525
  4910						STOP^
  4911	032706	254 04 0 00 032707 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4912	032707	324 00 0 00 032710 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4913									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4914									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4915									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4916
  4917					;**********
  4918					PAGE
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 16-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF EXCH INSTRUCTION                                                           SEQ 0108

  4919					;THIS TEST VERIFIES THAT EXCH MOVES C(AC) INTO E AND C(E) INTO THE AC.
  4920					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  EXCH IS EXECUTED 7 TIMES; THEN,
  4921					;THE AC IS CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0.  IF EITHER OF THESE
  4922					;RESULTS ARE NOT FOUND, THIS TEST FAILS.
  4923
  4924	032710	400 00 0 00 000000 	C3100:	SETZ			;PRELOAD AC WITH 0
  4925	032711	474 01 0 00 000000 		SETO	1,0		;PRELOAD E WITH -1,,-1
  4926						REPEAT	7,
  4927					<	EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)>
  4928	032712	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4929	032713	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4930	032714	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4931	032715	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4932	032716	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4933	032717	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4934	032720	250 00 0 00 000001 		EXCH	1		;*EXCH SHOULD EXCHANGE C(AC) AND C(E)
  4935	032721	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
  4936						STOP^
  4937	032722	254 04 0 00 032723 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4938	032723	324 00 0 00 032724 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4939									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4940									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4941									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4942	032724	312 01 0 00 034536 	C3110:	CAME	1,[0]		;PASS IF C(E)=0
  4943						STOP^
  4944	032725	254 04 0 00 032726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4945	032726	324 00 0 00 032727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4946									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4947									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4948									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4949
  4950					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 17
DAKADM	MAC	19-JAN-77 13:41		TEST OF MOVEM INSTRUCTION                                                          SEQ 0109

  4951					SUBTTL	TEST OF MOVEM INSTRUCTION
  4952
  4953					;THIS TEST VERIFIES THAT MOVEM PLACES C(AC) INTO E AND DOES NOT MODIFY C(AC)
  4954					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN AC AND E SHOULD
  4955					;BE -1,,-1.  IF C(AC) AND C(E)=-1,,-1, THIS TEST PASSES
  4956
  4957	032727	474 00 0 00 000000 	C3200:	SETO			;PRELOAD AC WITH -1,,-1
  4958	032730	400 01 0 00 000000 		SETZ	1,0		;PRELOAD E WITH 0
  4959	032731	202 00 0 00 000001 		MOVEM	1		;*MOVEM SHOULD PLACE -1,,-1 INTO E
  4960	032732	312 01 0 00 034466 		CAME	1,[-1]		;PASS IF C(E)=-1,,-1
  4961						STOP^
  4962	032733	254 04 0 00 032734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4963	032734	324 00 0 00 032735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4964									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4965									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4966									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4967	032735	312 00 0 00 034466 	C3210:	CAME	0,[-1]		;PASS IF C(AC)=-1,,-1
  4968						STOP^
  4969	032736	254 04 0 00 032737 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4970	032737	324 00 0 00 032740 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4971									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4972									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4973									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4974
  4975					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 18
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0110

  4976					SUBTTL	TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS
  4977
  4978					;**********
  4979
  4980					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION
  4981					;IF JFCL SKIPS THE NEXT INSTRUCTION, THIS TEST FAILS
  4982
  4983	032740	200 00 0 00 034537 	C3300:	MOVE	[HALT .+3]	;THIS INSTRUCTION SHOULD NOT AFFECT THE TEST
  4984	032741	255 17 0 00 032742 		JFCL	17,.+1		;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION
  4985	032742	304 00 0 00 000000 		CAIA			;SKIP HALT INSTRUCTION IF JFCL PASSES
  4986						STOP^
  4987	032743	254 04 0 00 032744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4988	032744	324 00 0 00 032745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  4989									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  4990									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  4991									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  4992
  4993					;**********
  4994
  4995					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY0 FLAG.
  4996					;ADDI IS USED TO SET CRY0.  THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY0.
  4997					;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY0 WAS RESET BY THE PREVIOUS JFCL.
  4998					;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY0
  4999
  5000	032745	200 00 0 00 034466 	C3400:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  5001	032746	271 00 0 00 000001 		ADDI	1		;SET CRY0 FLAG
  5002	032747	255 17 0 00 032750 		JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  5003	032750	255 04 0 00 032752 		JFCL	4,.+2		;PASS IF CRY0 WAS RESET BY PREVIOUS INSTRUCTION
  5004	032751	334 00 0 00 000000 		SKIPA			;SKIP HALT IF CRY0 WAS CLEARED
  5005						STOP^
  5006	032752	254 04 0 00 032753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5007	032753	324 00 0 00 032754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5008									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5009									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5010									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5011
  5012					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 19
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0111

  5013					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE CRY1 FLAG.
  5014					;ADDI IS USED TO SET CRY1.  THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR CRY1.
  5015					;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER CRY1 WAS RESET BY THE PREVIOUS JFCL.
  5016					;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR CRY1
  5017
  5018	032754	200 00 0 00 034466 	C3500:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  5019	032755	271 00 0 00 000001 		ADDI	1		;SET CRY1 FLAG
  5020	032756	255 17 0 00 032757 		JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  5021	032757	255 02 0 00 032761 		JFCL	2,.+2		;PASS IF CRY1 WAS RESET BY PREVIOUS INSTRUCTION
  5022	032760	334 00 0 00 000000 		SKIPA			;SKIP HALT IF CRY1 WAS CLEARED
  5023						STOP^
  5024	032761	254 04 0 00 032762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5025	032762	324 00 0 00 032763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5026									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5027									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5028									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5029
  5030					;**********
  5031
  5032					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE AROV FLAG.
  5033					;ADDI IS USED TO SET AROV.  THEN, JFCL 17,.+1 IS EXECUTED TO CLEAR AROV.
  5034					;JFCL 4,.+2 IS EXECUTED TO DETERMINE WHETHER AROV WAS RESET BY THE PREVIOUS JFCL.
  5035					;THIS TEST FAILS IF JFCL 17,.+1 DID NOT CLEAR AROV
  5036
  5037	032763	205 00 0 00 400000 	C3600:	MOVSI	400000		;PRELOAD AC WITH -1,,-1
  5038	032764	270 00 0 00 034465 		ADD	[XWD 400000,0]	;SET AROV FLAG
  5039	032765	255 17 0 00 032766 		JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  5040	032766	255 10 0 00 032770 		JFCL	10,.+2		;PASS IF AROV WAS RESET BY PREVIOUS INSTRUCTION
  5041	032767	334 00 0 00 000000 		SKIPA			;SKIP HALT IF AROV WAS CLEARED
  5042						STOP^
  5043	032770	254 04 0 00 032771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5044	032771	324 00 0 00 032772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5045									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5046									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5047									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5048
  5049					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 20
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0112

  5050					;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP.
  5051					;IN THIS TEST, ADD IS USED TO SET CRY0.  THEN JFCL 0,.+2 IS EXECUTED.
  5052					;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  5053
  5054	032772	205 00 0 00 400000 	C3700:	MOVSI	400000		;PRELOAD AC WITH MOST NEGATIVE NUMBER
  5055	032773	270 00 0 00 034466 		ADD	[-1]		;SET CRY0 FLAG
  5056	032774	255 00 0 00 032776 		JFCL	.+2		;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION
  5057	032775	334 00 0 00 000000 		SKIPA			;PASS IF JFCL DID NOT SKIP
  5058						STOP^
  5059	032776	254 04 0 00 032777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5060	032777	324 00 0 00 033000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5061									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5062									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5063									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5064
  5065					;**********
  5066
  5067					;THIS TEST VERIFIES THAT JFCL 0, IS A NO-OP.
  5068					;IN THIS TEST, ADD IS USED TO SET CRY1.  THEN JFCL 0,.+2 IS EXECUTED.
  5069					;IF JFCL 0,.+2 DOES NOT SKIP THE NEXT INSTRUCTION, THIS TEST PASSES
  5070
  5071	033000	205 00 0 00 200000 	C4000:	MOVSI	200000		;PRELOAD AC WITH MOST NEGATIVE NUMBER
  5072	033001	270 00 0 00 034464 		ADD	[XWD 200000,0]	;SET CRY1 FLAG
  5073	033002	255 00 0 00 033004 		JFCL	.+2		;*JFCL SHOULD RETURN TO NEXT SEQUENTIAL INSTRUCTION
  5074	033003	334 00 0 00 000000 		SKIPA			;PASS IF JFCL DID NOT SKIP
  5075						STOP^
  5076	033004	254 04 0 00 033005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5077	033005	324 00 0 00 033006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5078									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5079									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5080									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5081
  5082					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 21
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0113

  5083					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  5084					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  5085					;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1.  THEN, JFCL SHOULD SKIP
  5086					;BECAUSE A FLAG WAS SET BY ADDI
  5087					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR
  5088					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  5089
  5090	033006	200 00 0 00 034466 	C4100:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  5091	033007	271 00 0 00 000001 		ADDI	1		;*ADDI SHOULD SET CRY0/1 FLAGS
  5092	033010	255 17 0 00 033012 		JFCL	17,.+2		;*JFCL SHOULD JUMP BECAUSE FLAGS ARE SET
  5093						STOP^
  5094	033011	254 04 0 00 033012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5095	033012	324 00 0 00 033013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5096									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5097									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5098									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5099
  5100					;**********
  5101
  5102					;THIS TEST VERIFIES THAT CAI DOES NOT CLEAR ANY ARITHMETIC FLAGS.
  5103					;FIRST, CRY0 AND CRY1 ARE SET BY ADDI; THEN CAI IS EXECUTED.
  5104					;JFCL SHOULD JUMP BECAUSE FLAGS ARE SET.  IF JFCL DOES NOT JUMP,
  5105					;THE FLAGS WERE CLEARED BY CAI.  HENCE, CAI FAILED
  5106
  5107	033013	200 00 0 00 034466 	C4200:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  5108	033014	271 00 0 00 000001 		ADDI	1		;SET CYR0/1 FLAGS
  5109	033015	300 17 0 00 000017 		CAI	17,17		;*CAI SHOULD NOT CLEAR FLAGS
  5110	033016	255 17 0 00 033020 		JFCL	17,.+2		;PASS IF CAI CLEARED FLAGS
  5111						STOP^
  5112	033017	254 04 0 00 033020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5113	033020	324 00 0 00 033021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5114									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5115									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5116									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5117
  5118					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 22
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0114

  5119					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  5120					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  5121					;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1.  THEN JFCL SHOULD SKIP
  5122					;BECAUSE A FLAG WAS SET BY ADDI
  5123					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR
  5124					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  5125
  5126	033021	200 00 0 00 034466 	C4300:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  5127	033022	271 00 0 00 000001 		ADDI	1		;*ADDI SHOULD SET CRY1 FLAGS
  5128	033023	255 02 0 00 033025 		JFCL	2,.+2		;*JFCL SHOULD JUMP BECAUSE CRY1 FLAG IS SET
  5129						STOP^
  5130	033024	254 04 0 00 033025 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5131	033025	324 00 0 00 033026 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5132									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5133									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5134									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5135
  5136					;**********
  5137
  5138					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  5139					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  5140					;IN THIS TEST, ADDI SHOULD SET CRY0 AND CRY1.  THEN, JFCL SHOULD SKIP
  5141					;BECAUSE A FLAG WAS SET BY ADDI
  5142					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR
  5143					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  5144
  5145	033026	200 00 0 00 034466 	C4400:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  5146	033027	271 00 0 00 000001 		ADDI	1		;*ADDI SHOULD SET CRY0 FLAG
  5147	033030	255 04 0 00 033032 		JFCL	4,.+2		;*JFCL SHOULD JUMP BECAUSE CRY0 FLAG IS SET
  5148						STOP^
  5149	033031	254 04 0 00 033032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5150	033032	324 00 0 00 033033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5151									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5152									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5153									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5154
  5155					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 23
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0115

  5156					;THIS TEST VERIFIES THAT ADDI HAS THE ABILITY TO SET AN ARITHMETIC FLAG AND
  5157					;THAT 'JFCL 17,.+2' JUMPS WHENEVER ANY ARITHMETIC FLAG IS SET.
  5158					;BECAUSE A FLAG WAS SET BY ADD
  5159					;IF THIS TEST FAILS, ADDI COULD HAVE FAILED TO SET A FLAG OR 
  5160					;JFCL COULD HAVE FAILED TO JUMP WHEN A FLAG WAS SET
  5161
  5162	033033	205 00 0 00 400000 	C4500:	MOVSI	400000		;PRELOAD AC WITH ALL ONES
  5163	033034	270 00 0 00 034465 		ADD	[XWD 400000,0]	;*ADD SHOULD SET AROV FLAG
  5164	033035	255 10 0 00 033037 		JFCL	10,.+2		;*JFCL SHOULD JUMP BECAUSE AROV FLAG IS SET
  5165						STOP^
  5166	033036	254 04 0 00 033037 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5167	033037	324 00 0 00 033040 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5168									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5169									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5170									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5171
  5172					;**********
  5173
  5174					;THIS TEST VERIFIES THAT JFCL 17,.+1 ALWAYS CLEARS THE FLOATING OVERFLOW FLAG (FOV).
  5175					;FIRST JFCL 17,.+1 IS EXECUTED TO CLEAR FOV.  THEN, JFCL 1,.+2 IS EXECUTED TO DETERMINE
  5176					;WHETHER FOV WAS CLEARED.  IF FOV WAS CLEAR, THIS TEST PASSES
  5177
  5178	033040	255 17 0 00 033041 	C4600:	JFCL	17,.+1		;*CLEAR ARITHMETIC FLAGS
  5179	033041	255 01 0 00 033043 		JFCL	1,.+2		;PASS IF FOV WAS CLEARED
  5180	033042	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TEST PASSED
  5181						STOP^
  5182	033043	254 04 0 00 033044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5183	033044	324 00 0 00 033045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5184									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5185									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5186									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5187
  5188					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 24
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0116

  5189					;THIS TEST VERIFIES THAT JFCL 13, DOES NOT RESET CRY0.
  5190					;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL 13,.+2 IS EXECUTED
  5191					;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY0.
  5192					;THIS TEST PASSES IF JFCL 13,.+1 DID NOT RESET CRY0.
  5193
  5194	033045	200 00 0 00 034466 	C4700:	MOVE	[-1]		;RELOAD AC WITH -1,,-1
  5195	033046	271 00 0 00 000001 		ADDI	1		;SET CRY0/1
  5196	033047	255 13 0 00 033050 		JFCL	13,.+1		;*JFCL 13, SHOULD NOT RESET CRY0
  5197	033050	255 04 0 00 033052 		JFCL	4,.+2		;FAIL IF CRY 0 WAS RESET
  5198						STOP^
  5199	033051	254 04 0 00 033052 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5200	033052	324 00 0 00 033053 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5201									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5202									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5203									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5204
  5205					;**********
  5206
  5207					;THIS TEST VERIFIES THAT JFCL 15, DOES NOT RESET CRY1.
  5208					;FIRST CRY0 AND CRY1 ARE SET BY ADDI; THEN, JFCL15,.+2 IS EXECUTED
  5209					;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT CRY1.
  5210					;THIS TEST PASSES IF JFCL 15,.+1 DID NOT RESET CRY1.
  5211
  5212	033053	200 00 0 00 034466 	C5000:	MOVE	[-1]		;PRELOAD AC WITH -1,,-1
  5213	033054	271 00 0 00 000001 		ADDI	1		;SET CRY0/1
  5214	033055	255 15 0 00 033056 		JFCL	15,.+1		;*JFCL15, SHOULD NOT RESET CRY0
  5215	033056	255 02 0 00 033060 		JFCL	2,.+2		;FAIL IF CRY1 WAS RESET
  5216						STOP^
  5217	033057	254 04 0 00 033060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5218	033060	324 00 0 00 033061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5219									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5220									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5221									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5222
  5223					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 25
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0117

  5224					;THIS TEST VERIFIES THAT JFCL 17, DOES NOT RESET AROV.
  5225					;FIRST AROV IS SET BY ADD; THEN, JFCL 17,.+2 IS EXECUTED
  5226					;TO CLEAR ALL ARITHMETIC FLAGS EXCEPT AROV.
  5227					;THIS TEST PASSES IF JFCL 17,.+1 DID NOT RESET AROV.
  5228
  5229	033061	205 00 0 00 400000 	C5100:	MOVSI	400000		;PRELOAD AC WITH -1,,-1
  5230	033062	270 00 0 00 034465 		ADD	[XWD 400000,0]	;SET AROV 
  5231	033063	255 07 0 00 033064 		JFCL	7,.+1		;*JFCL 17, SHOULD NOT RESET AROV
  5232	033064	255 10 0 00 033066 		JFCL	10,.+2		;FAIL IF AROV WAS RESET
  5233						STOP^
  5234	033065	254 04 0 00 033066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5235	033066	324 00 0 00 033067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5236									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5237									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5238									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5239
  5240					;**********
  5241
  5242					;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET AROV.
  5243					;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD.
  5244					;AROV IS THEN CHECKED.  IF AROV IS SET, THIS TEST FAILS.
  5245
  5246	033067	255 17 0 00 033070 	C5200:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  5247	033070	400 00 0 00 000000 		SETZ			;PRELOAD AC,E WITH 0
  5248	033071	270 00 0 00 000000 		ADD			;*ADD SHOULD NOT SET AROV
  5249	033072	255 10 0 00 033074 		JFCL	10,.+2		;PASS IF AROV WAS RESET
  5250	033073	334 00 0 00 000000 		SKIPA			;SKIP HALT IF ADD PASSED
  5251						STOP^
  5252	033074	254 04 0 00 033075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5253	033075	324 00 0 00 033076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5254									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5255									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5256									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5257
  5258					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 26
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0118

  5259					;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY0.
  5260					;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD.
  5261					;CRY0 IS THEN CHECKED.  IF CRY0 IS SET, THIS TEST FAILS.
  5262
  5263
  5264	033076	400 00 0 00 000000 	C5300:	SETZ			;RESET ARITHMETIC FLAGS
  5265	033077	255 17 0 00 033100 		JFCL	17,.+1		;PRELOAD AC,E WITH 0
  5266	033100	270 00 0 00 000000 		ADD			;*ADD SHOULD NOT SET CRY0
  5267	033101	255 04 0 00 033103 		JFCL	4,.+2		;PASS IF CRY0 WAS RESET
  5268	033102	334 00 0 00 000000 		SKIPA			;SKIP HALT IF ADD PASSED
  5269						STOP^
  5270	033103	254 04 0 00 033104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5271	033104	324 00 0 00 033105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5272									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5273									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5274									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5275
  5276					;**********
  5277
  5278					;THIS TEST VERIFIES THAT ADD OF 0 TO 0 WILL NOT SET CRY1.
  5279					;FIRST, ALL FLAGS ARE RESET, THEN 0 IS ADDED TO 0 VIA ADD.
  5280					;CRY1 IS THEN CHECKED.  IF CRY1 IS SET, THIS TEST FAILS.
  5281
  5282	033105	400 00 0 00 000000 	C5400:	SETZ			;RESET ARITHMETIC FLAGS
  5283	033106	255 17 0 00 033107 		JFCL	17,.+1		;PRELOAD AC,E WITH 0
  5284	033107	270 00 0 00 000000 		ADD			;*ADD SHOULD NOT SET CRY1
  5285	033110	255 02 0 00 033112 		JFCL	2,.+2		;PASS IF CRY1 WAS RESET
  5286	033111	334 00 0 00 000000 		SKIPA			;SKIP HALT IF ADD PASSED
  5287						STOP^
  5288	033112	254 04 0 00 033113 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5289	033113	324 00 0 00 033114 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5290									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5291									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5292									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5293
  5294					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 27
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0119

  5295					;THIS TEST VERIFIES THAT THE 30X AND THE 31X INSTRUCTION GROUPS DO NOT AFFECT
  5296					;THE ARITHMETIC FLAGS.  FIRST, THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, CAI
  5297					;AND CAM ARE EXECUTED.  THE FLAGS ARE THEN CHECKED.  IF ANY OF THE FLAGS ARE SET,
  5298					;THIS TEST FAILS AND CAI OR CAM IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS
  5299
  5300	033114	255 17 0 00 033115 	C5500:	JFCL	17,.+1		;CLEAR ALL FLAGS
  5301	033115	400 00 0 00 000000 		SETZ			;CLEAR AC,0
  5302	033116	300 00 0 00 000000 		CAI			;*CAI SHOULD NOT SET ANY ARITHMETIC FLAG
  5303	033117	310 00 0 00 034466 		CAM	[-1]		;*CAM SHOULD NOT SET ANY ARITHMETIC FLAG
  5304	033120	255 17 0 00 033122 		JFCL	17,.+2		;FAIL IF ANY FLAG WAS SET
  5305	033121	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TEST PASSED
  5306						STOP^
  5307	033122	254 04 0 00 033123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5308	033123	324 00 0 00 033124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5309									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5310									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5311									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5312
  5313					;**********
  5314
  5315					;THIS TEST VERIFIES THAT THE BOOLEAN INSTRUCTION GROUPS DO NOT AFFECT
  5316					;THE ARITHMETIC FLAGS.  FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, XOR [0]
  5317					;AND XOR [-1] ARE EXECUTED.  THE FLAGS ARE THEN CHECKED.  IF ANY OF THE FLAGS ARE SET,
  5318					;THIS TEST FAILS AND XOR IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS
  5319
  5320	033124	255 17 0 00 033125 	C5600:	JFCL	17,.+1		;CLEAR ALL FLAGS
  5321	033125	474 00 0 00 000000 		SETO			;CLEAR AC,0
  5322	033126	430 00 0 00 034536 		XOR	[0]		;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG
  5323	033127	430 00 0 00 034466 		XOR	[-1]		;*XOR SHOULD NOT SET ANY ARITHMETIC FLAG
  5324	033130	255 17 0 00 033132 		JFCL	17,.+2		;FAIL IF ANY FLAG WAS SET
  5325	033131	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TEST PASSED
  5326						STOP^
  5327	033132	254 04 0 00 033133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5328	033133	324 00 0 00 033134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5329									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5330									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5331									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5332
  5333					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 28
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0120

  5334					;THIS TEST VERIFIES THAT THE AOBJX INSTRUCTION GROUP DOES DO NOT AFFECT
  5335					;THE ARITHMETIC FLAGS.  FIRST THE FLAGS ARE CLEARED AND AC0 IS CLEARED; THEN, AOBJN
  5336					;AND AOBJP ARE EXECUTED.  THE FLAGS ARE THEN CHECKED.  IF ANY OF THE FLAGS ARE SET,
  5337					;THIS TEST FAILS AND AOBJN OR AOBJP IS CONSIDERED TO HAVE ERRONEOUSLY SET THE FLAGS
  5338
  5339	033134	474 00 0 00 000000 	C5700:	SETO			;CLEAR ALL FLAGS
  5340	033135	255 17 0 00 033136 		JFCL	17,.+1		;CLEAR AC,0
  5341	033136	253 00 0 00 033137 		AOBJN	.+1		;*AOBJN SHOULD NOT SET ANY ARITHMETIC ARITHMETIC
  5342	033137	252 00 0 00 033140 		AOBJP	.+1		;*AOBJP SHOULD NOT SET ANY ARITHMETIC FLAG
  5343	033140	255 17 0 00 033142 		JFCL	17,.+2		;FAIL IF ANY FLAG WAS SET
  5344	033141	334 00 0 00 000000 		SKIPA			;SKIP HALT IF TST PASSED
  5345						STOP^
  5346	033142	254 04 0 00 033143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5347	033143	324 00 0 00 033144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5348									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5349									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5350									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5351
  5352					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 29
DAKADM	MAC	19-JAN-77 13:41		TEST OF JFCL INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0121

  5353					;THIS TEST VERIFIES THAT SKIP DOES NOT AFFECT THE FLAGS.
  5354					;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, SKIP IS EXECUTED.
  5355					;IF SKIP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS.
  5356
  5357	033144	255 17 0 00 033145 	C5701:	JFCL	17,.+1		;CLEAR ALL FLAGS
  5358	033145	330 00 0 00 034466 		SKIP	0,[-1]		;*SKIP SHOULD NOT SET ANY FLAGS
  5359	033146	255 17 0 00 033150 		JFCL	17,.+2		;FAIL IF ANY FLAG IS SET
  5360	033147	334 00 0 00 000000 		SKIPA			;PASS IF NO FLAG IS SET
  5361						STOP^
  5362	033150	254 04 0 00 033151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5363	033151	324 00 0 00 033152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5364									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5365									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5366									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5367
  5368					;**********
  5369
  5370					;THIS TEST VERIFIES THAT JUMP DOES NOT AFFECT THE FLAGS.
  5371					;FIRST, THE ARITHMETIC FLAGS ARE CLEARED; THEN, JUMP IS EXECUTED.
  5372					;IF JUMP SETS AROV, CRYO, CRY1 OR FOV, THIS TEST FAILS.
  5373
  5374	033152	255 17 0 00 033153 	C5702:	JFCL	17,.+1		;CLEAR ALL FLAGS
  5375	033153	320 00 0 00 034466 		JUMP	0,[-1]		;*JUMP SHOULD NOT SET ANY FLAGS
  5376	033154	255 17 0 00 033156 		JFCL	17,.+2		;FAIL IF ANY FLAG IS SET
  5377	033155	334 00 0 00 000000 		SKIPA			;PASS IF NO FLAG IS SET
  5378						STOP^
  5379	033156	254 04 0 00 033157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5380	033157	324 00 0 00 033160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5381									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5382									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5383									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5384
  5385					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 30
DAKADM	MAC	19-JAN-77 13:41		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0122

  5386					SUBTTL	TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS
  5387
  5388					;**********
  5389
  5390					;THIS TEST VERIFIES THAT 'JRST, 0' DOES NOT SET ANY FLAGS.
  5391					;FIRST THE ARITHMETIC FLAGS ARE RESET; THEN, 'JRST 0,.+1' IS EXECUTED
  5392					;THE AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED. IF ANY
  5393					;OF THESE FLAGS ARE SET, THIS TEST FAILS
  5394
  5395	033160	255 17 0 00 033161 	C6000:	JFCL	17,.+1		;RESET ALL FLAGS
  5396	033161	254 00 0 00 033162 		JRST	.+1		;*JRST SHOULD NOT SET ANY FLAGS
  5397	033162	255 16 0 00 033164 		JFCL	16,.+2		;PASS IF NO FLAGS ARE SET
  5398	033163	334 00 0 00 000000 		SKIPA			;SKIP HALT IF JRST PASSES
  5399						STOP^
  5400	033164	254 04 0 00 033165 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5401	033165	324 00 0 00 033166 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5402									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5403									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5404									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5405
  5406					;**********
  5407
  5408					;THIS TEST VERIFIES THAT 'MOVE 2,2' DOES NOT SET ANY FLAGS.
  5409					;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, 'MOVE 2,2' IS EXECUTED.
  5410					;THE FOV,AROV,CRY0 AND CRY1 FLAGS ARE THEN CHECKED.  IF ANY
  5411					;OF THESE FLAGS ARE SET, THIS TEST FAILS
  5412
  5413	033166	255 17 0 00 033167 	C6100:	JFCL	17,.+1		;RESET ALL FLAGS
  5414	033167	200 02 0 00 000002 		MOVE	2,2		;*MOVE SHOULD NOT SET ANY FLAGS
  5415	033170	255 17 0 00 033172 		JFCL	17,.+2		;PASS IF NO FLAGS ARE SET
  5416	033171	334 00 0 00 000000 		SKIPA			;SKIP HALT IF MOVE PASSED
  5417						STOP^
  5418	033172	254 04 0 00 033173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5419	033173	324 00 0 00 033174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5420									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5421									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5422									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5423
  5424					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 31
DAKADM	MAC	19-JAN-77 13:41		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0123

  5425					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  5426					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE CRY0 FLAG.
  5427					;FIRST, ALL FLAGS ARE RESET; THEN AC1 IS SET TO SPECIFY CRY0.
  5428					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY0.  CRY0 IS THEN CHECKED.  IF
  5429					;CRY0 IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5430
  5431	033174	255 17 0 00 033175 	C6200:	JFCL	17,.+1		;CLEAR ALL FLAGS
  5432						SFLAG	CRY0		^;SET CRY0 FLAG
  5433
  5434	033175	205 01 0 00 200000 		MOVSI	1,CRY0
  5435	033176	255 17 0 00 033177 		JFCL	17,.+1		;RESET ALL FLAGS
  5436	033177	254 02 0 01 033200 		JRST	2,.+1(1)	;SET CRY0 FLAG
  5437	033200	255 04 0 00 033202 		JFCL	4,.+2		;PASS IF CRY0 IS SET
  5438						STOP^
  5439	033201	254 04 0 00 033202 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5440	033202	324 00 0 00 033203 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5441									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5442									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5443									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5444
  5445					;**********
  5446
  5447					;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG
  5448					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAIN 0.  HENCE, JRST 2,.+1(1)
  5449					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE CRY0/1, FLAGS ARE SET BY ADDI;
  5450					;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1.  IF CRY1 WAS CLEARED, THE
  5451					;TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5452
  5453	033203	200 00 0 00 034466 	C6300:	MOVE	[-1]		;PRELOAD AC0 WITH -1,,-1
  5454	033204	271 00 0 00 000001 		ADDI	1		;SET CRY0/1 FLAGS
  5455						SFLAG	0		^;RESET ALL ARITHMETIC FLAGS
  5456
  5457	033205	205 01 0 00 000000 		MOVSI	1,0
  5458	033206	255 17 0 00 033207 		JFCL	17,.+1		;RESET ALL FLAGS
  5459	033207	254 02 0 01 033210 		JRST	2,.+1(1)	;SET 0 FLAG
  5460	033210	255 02 0 00 033212 		JFCL	2,.+2		;PASS IF CRY1 IS RESET
  5461	033211	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSED
  5462						STOP^
  5463	033212	254 04 0 00 033213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5464	033213	324 00 0 00 033214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5465									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5466									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5467									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5468
  5469					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 32
DAKADM	MAC	19-JAN-77 13:41		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0124

  5470
  5471					;THIS TEST VERIFIES THAT JRST 2,.+(1) WILL SET THE ARITHMETIC FLAG
  5472					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAIN 0.  HENCE, JRST 2,.+1(1)
  5473					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE CRY0/1, FLAGS ARE SET BY ADD
  5474					;THEN THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1.  IF AROV WAS CLEARED, THE
  5475					;TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5476
  5477	033214	205 00 0 00 400000 	C6400:	MOVSI	400000		;PRELOAD AC0 WITH -1,,-1
  5478	033215	270 00 0 00 034466 		ADD	[-1]		;SET CRY0 AND AROV FLAGS
  5479						SFLAG	0		^;RESET ALL ARITHMETIC FLAGS
  5480
  5481	033216	205 01 0 00 000000 		MOVSI	1,0
  5482	033217	255 17 0 00 033220 		JFCL	17,.+1		;RESET ALL FLAGS
  5483	033220	254 02 0 01 033221 		JRST	2,.+1(1)	;SET 0 FLAG
  5484	033221	255 10 0 00 033223 		JFCL	10,.+2		;PASS IF AROV IS RESET
  5485	033222	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSED
  5486						STOP^
  5487	033223	254 04 0 00 033224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5488	033224	324 00 0 00 033225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5489									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5490									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5491									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5492
  5493					;**********
  5494
  5495					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  5496					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE AROV FLAG.
  5497					;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY AROV.
  5498					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET AROV.  AROV IS THEN CHECKED.  IF
  5499					;AROV IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5500
  5501	033225				C6500:	SFLAG	AROV		^;SET AROV FLAG
  5502
  5503	033225	205 01 0 00 400000 		MOVSI	1,AROV
  5504	033226	255 17 0 00 033227 		JFCL	17,.+1		;RESET ALL FLAGS
  5505	033227	254 02 0 01 033230 		JRST	2,.+1(1)	;SET AROV FLAG
  5506	033230	255 10 0 00 033232 		JFCL	10,.+2		;PASS IF AROV WAS SET
  5507						STOP^
  5508	033231	254 04 0 00 033232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5509	033232	324 00 0 00 033233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5510									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5511									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5512									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5513
  5514					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 33
DAKADM	MAC	19-JAN-77 13:41		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0125

  5515					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  5516					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE CRY1 FLAG.
  5517					;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY CRY1.
  5518					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET CRY1.  CRY1 IS THEN CHECKED.  IF
  5519					;CRY1 IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5520
  5521	033233				C6600:	SFLAG	CRY1		^;SET CRY1 FLAG
  5522
  5523	033233	205 01 0 00 100000 		MOVSI	1,CRY1
  5524	033234	255 17 0 00 033235 		JFCL	17,.+1		;RESET ALL FLAGS
  5525	033235	254 02 0 01 033236 		JRST	2,.+1(1)	;SET CRY1 FLAG
  5526	033236	255 02 0 00 033240 		JFCL	2,.+2		;PASS IF CRY1 WAS SET
  5527						STOP^
  5528	033237	254 04 0 00 033240 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5529	033240	324 00 0 00 033241 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5530									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5531									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5532									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5533
  5534					;**********
  5535
  5536					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  5537					;SPECIFIED IN AC1.  IN THIS CASE, AC1 SPECIFIES THE FOV FLAG.
  5538					;FIRST, ALL FLAGS ARE RESET; THEN AC1 SET TO SPECIFY FOV.
  5539					;NEXT, JRST 2,.+1(1) IS EXECUTED TO SET FOV.  FOV IS THEN CHECKED.  IF
  5540					;FOV IS SET, THIS TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5541
  5542	033241				C6700:	SFLAG	FOV		^;SET FOV FLAG
  5543
  5544	033241	205 01 0 00 040000 		MOVSI	1,FOV
  5545	033242	255 17 0 00 033243 		JFCL	17,.+1		;RESET ALL FLAGS
  5546	033243	254 02 0 01 033244 		JRST	2,.+1(1)	;SET FOV FLAG
  5547	033244	255 01 0 00 033246 		JFCL	1,.+2		;PASS IF FOV WAS SET
  5548						STOP^
  5549	033245	254 04 0 00 033246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5550	033246	324 00 0 00 033247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5551									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5552									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5553									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5554
  5555					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 34
DAKADM	MAC	19-JAN-77 13:41		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0126

  5556					;THIS TEST VERIFIES THAT JFCL 0, SHOULD NEVER JUMP.
  5557					;FIRST, FOV IS SET VIA JRST2, ;THEN JFCL 0,
  5558					;IS EXECUTED.  IF JFCL 0, DOES NOT SKIP, THIS TEST PASSES
  5559
  5560	033247				C7000:	SFLAG	FOV		^;SET FOV FLAG
  5561
  5562	033247	205 01 0 00 040000 		MOVSI	1,FOV
  5563	033250	255 17 0 00 033251 		JFCL	17,.+1		;RESET ALL FLAGS
  5564	033251	254 02 0 01 033252 		JRST	2,.+1(1)	;SET FOV FLAG
  5565	033252	255 00 0 00 033254 		JFCL	,.+2		;*JFCL SHOULD NOT JUMP
  5566	033253	334 00 0 00 000000 		SKIPA			;PASS IF JFCL DID NOT JUMP
  5567						STOP^
  5568	033254	254 04 0 00 033255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5569	033255	324 00 0 00 033256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5570									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5571									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5572									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5573
  5574					;**********
  5575
  5576					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  5577					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAINS 0.  HENCE, JRST 2,.+1(1)
  5578					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE CRY0, FLAG IS SET BY JRST 2,.+1(1)
  5579					;WITH C(AC1)=CRY0.  THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0.
  5580					;IF CRY0 WAS CLEARED, THE TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5581
  5582	033256				C7100:	SFLAG	CRY0		^;SET CRY0 FLAGS
  5583
  5584	033256	205 01 0 00 200000 		MOVSI	1,CRY0
  5585	033257	255 17 0 00 033260 		JFCL	17,.+1		;RESET ALL FLAGS
  5586	033260	254 02 0 01 033261 		JRST	2,.+1(1)	;SET CRY0 FLAG
  5587	033261	400 01 0 00 000000 		SETZ	1,		;SETUP MASK TO CLEAR ARITHMETIC FLAGS
  5588	033262	254 02 0 01 033263 		JRST	2,.+1(1)	;*RESET ARITHMETIC FLAGS
  5589	033263	255 04 0 00 033265 		JFCL	4,.+2		;PASS IF CRY0 FLAG WAS RESET
  5590	033264	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PSSED
  5591						STOP^
  5592	033265	254 04 0 00 033266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5593	033266	324 00 0 00 033267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5594									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5595									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5596									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5597
  5598					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 35
DAKADM	MAC	19-JAN-77 13:41		TEST OF JRST INSTRUCTION AND ARITHMETIC FLAGS                                      SEQ 0127

  5599					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  5600					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAINS 0.  HENCE, JRST 2,.+1(1)
  5601					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE FOV, FLAG IS SET BY JRST 2,.+1(1)
  5602					;WITH C(AC1)=FOV.  THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1 WITH C(AC1)=0.
  5603					;IF FOV WAS CLEARED, THE TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5604
  5605	033267				C7200:	SFLAG	FOV		^;SET FOV FLAG
  5606
  5607	033267	205 01 0 00 040000 		MOVSI	1,FOV
  5608	033270	255 17 0 00 033271 		JFCL	17,.+1		;RESET ALL FLAGS
  5609	033271	254 02 0 01 033272 		JRST	2,.+1(1)	;SET FOV FLAG
  5610	033272	400 01 0 00 000000 		SETZ	1,		;SETUP MASK TO CLEAR ARITHMETIC FLAGS,
  5611	033273	254 02 0 01 033274 		JRST	2,.+1(1)	;*RESET ARITHMETIC FLAGS
  5612	033274	255 01 0 00 033276 		JFCL	1,.+2		;PASS IF FOV FLAG WAS RESET
  5613	033275	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PSSED
  5614						STOP^
  5615	033276	254 04 0 00 033277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5616	033277	324 00 0 00 033300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5617									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5618									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5619									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5620
  5621					;**********
  5622
  5623					;THIS TEST VERIFIES THAT JRST 2,.+1(1) WILL SET THE ARITHMETIC FLAG
  5624					;SPECIFIED IN AC1.  IN THIS CASE, AC1 CONTAINS 0.  HENCE, JRST 2,.+1(1)
  5625					;SHOULD RESET THE ARITHMETIC FLAGS.  FIRST, THE ARITHMETIC FLAGS ARE RESET BY
  5626					;JFCL 17,.+1.  THEN, THE FLAGS SHOULD BE CLEARED BY JRST 2,.+1.
  5627					;IF ALL THE ARITHMETIC FLAGS WERE CLEARED,
  5628					;THE TEST PASSES.  OTHERWISE, JRST 2,.+1 IS FAULTY
  5629
  5630	033300	255 17 0 00 033301 	C7300:	JFCL	17,.+1		;CLEAR FLAGS
  5631	033301	400 01 0 00 000000 		SETZ	1,		;SETUP MASK TO CLEAR ARITMETIC FLAGS
  5632	033302	254 02 0 01 033303 		JRST	2,.+1(1)	;*RESET ARITHMETIC FLAGS
  5633	033303	255 17 0 00 033305 		JFCL	17,.+2		;PASS IF ALL FLAGS ARE RESET
  5634	033304	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSED
  5635						STOP^
  5636	033305	254 04 0 00 033306 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5637	033306	324 00 0 00 033307 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5638									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5639									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5640									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5641
  5642					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 36
DAKADM	MAC	19-JAN-77 13:41		TEST OF JSP INSTRUCTION                                                            SEQ 0128

  5643					SUBTTL	TEST OF JSP INSTRUCTION
  5644
  5645					;**********
  5646
  5647					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS AND PC IN THE AC.
  5648					;IN THIS CASE, THE FLAGS ARE RESET; THEN, JSP IS EXECUTED.  THE AC IS THEN
  5649					;CHECKED FOR ITS CONTENTS NON-ZERO.  IF C(AC)=0, IT INDICATES
  5650					;THAT NEITHER THE FLAGS NOR THE PC WAS SAVED.  HENCE, THIS TEST FAILS.
  5651
  5652	033307	403 00 0 00 000001 	C7400:	SETZB	1		;CLEAR AC AND SETUP MASK TO RESET FLAGS
  5653	033310	254 02 0 01 033311 		JRST	2,.+1(1)	;RESET FLAGS
  5654	033311	265 00 0 00 033312 		JSP	.+1		;*JSP SHOULD STORE FLAGS AND PC IN THE AC
  5655	033312	336 00 0 00 000000 		SKIPN			;PASS IF C(AC) IS NON-ZERO
  5656						STOP			^;IT DID NOT STORE ANY FLAGS OR PC
  5657
  5658	033313	254 04 0 00 033314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5659	033314	324 00 0 00 033315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5660									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5661									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5662									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1
  5663
  5664					;**********
  5665
  5666					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE PC IN THE RIGHT HALF OF THE AC.
  5667					;IN THIS CASE, THE AC IS CLEARED, THEN, JSP IS EXECUTED.  THE RIGHT HALF OF
  5668					;THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO.  IF C(AC RIGHT HALF)
  5669					;IS NON-ZERO, IT INDICATED THAT THE PC WAS SAVED; AND THIS TEST PASSES.
  5670
  5671	033315	400 00 0 00 000000 	C7500:	SETZ			;CLEAN AC
  5672	033316	265 00 0 00 033317 		JSP	.+1		;*JSP SHOULD STORE THE PC IN THE AC
  5673	033317	606 00 0 00 777777 		TRNN	-1		;PASS IF C(AC) IN NON-ZERO
  5674						STOP^
  5675	033320	254 04 0 00 033321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5676	033321	324 00 0 00 033322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5677									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5678									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5679									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5680
  5681					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 37
DAKADM	MAC	19-JAN-77 13:41		TEST OF JSP INSTRUCTION                                                            SEQ 0129

  5682					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5683					;FIST, THE AC IS CLEARED; THEN, SOME FLAGS ARE SET AND JSP IS EXECUTED.
  5684					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5685					;WHETHER THE FLAGS WERE SAVED.  IF C(AC-LEFT) IS NON-ZERO, THIS TEST PASSES
  5686
  5687	033322	402 00 0 00 000000 	C7600:	SETZM	0		;CLEAR AC
  5688	033323	205 01 0 00 740000 		MOVSI	1,740000	;SET UP MASK TO SET FLAGS
  5689	033324	254 02 0 01 033325 		JRST	2,.+1(1)	;SET SOME ARITHMETIC FLAGS
  5690	033325	265 00 0 00 033326 		JSP	.+1		;*JSP SHOULD STORE FLAGS IN THE AC
  5691	033326	607 00 0 00 777777 		TLNN	-1		;PASS IF C(AC) IS NON-ZERO
  5692						STOP^
  5693	033327	254 04 0 00 033330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5694	033330	324 00 0 00 033331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5695									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5696									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5697									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5698
  5699					;**********
  5700
  5701					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5702					;FIRST, THE AC IS CLEARED; THEN, THE AROV FLAG IS SET AND JSP IS EXECUTED.
  5703					;THEN, THE AROV FLAG BIT OF
  5704					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5705					;WHETHER THE AROV FLAG WAS SAVED.  IF THE AROV FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5706
  5707	033331	402 00 0 00 000000 	C7700:	SETZM	0		;CLEAR THE AC
  5708						SFLAG	AROV		^;SET AROV FLAG
  5709
  5710	033332	205 01 0 00 400000 		MOVSI	1,AROV
  5711	033333	255 17 0 00 033334 		JFCL	17,.+1		;RESET ALL FLAGS
  5712	033334	254 02 0 01 033335 		JRST	2,.+1(1)	;SET AROV FLAG
  5713	033335	265 00 0 00 033336 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5714	033336	607 00 0 00 400000 		TLNN	AROV		;PASS IF AROV WAS SAVED
  5715						STOP^
  5716	033337	254 04 0 00 033340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5717	033340	324 00 0 00 033341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5718									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5719									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5720									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5721
  5722					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 38
DAKADM	MAC	19-JAN-77 13:41		TEST OF JSP INSTRUCTION                                                            SEQ 0130

  5723					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5724					;FIRST, THE AC IS CLEARED; THEN, THE CRY0 FLAG IS SET AND JSP IS EXECUTED.
  5725					;THEN, THE CRY0 FLAG BIT OF
  5726					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5727					;WHETHER THE CRY0 FLAG WAS SAVED.  IF THE CRY0 FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5728
  5729	033341	402 00 0 00 000000 	C10000:	SETZM	0		;CLEAR THE AC
  5730						SFLAG	CRY0		^;SET CRY0 FLAG
  5731
  5732	033342	205 01 0 00 200000 		MOVSI	1,CRY0
  5733	033343	255 17 0 00 033344 		JFCL	17,.+1		;RESET ALL FLAGS
  5734	033344	254 02 0 01 033345 		JRST	2,.+1(1)	;SET CRY0 FLAG
  5735	033345	265 00 0 00 033346 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5736	033346	607 00 0 00 200000 		TLNN	CRY0		;PASS IF CRY0 WAS SAVED
  5737						STOP^
  5738	033347	254 04 0 00 033350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5739	033350	324 00 0 00 033351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5740									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5741									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5742									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5743
  5744					;**********
  5745
  5746					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5747					;FIRST, THE AC IS CLEARED; THEN, THE CRY1 FLAG IS SET AND JSP IS EXECUTED.
  5748					;THEN, THE CRY1 FLAG BIT OF
  5749					;THE LEFT HALF OF THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO TO DETERMINE
  5750					;WHETHER THE FLAG WAS SAVED.  IF THE CRY1 FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5751
  5752	033351	400 00 0 00 000000 	C10100:	SETZ			;CLEAR AC
  5753						SFLAG	CRY1		^;SET CRY1 FLAG
  5754
  5755	033352	205 01 0 00 100000 		MOVSI	1,CRY1
  5756	033353	255 17 0 00 033354 		JFCL	17,.+1		;RESET ALL FLAGS
  5757	033354	254 02 0 01 033355 		JRST	2,.+1(1)	;SET CRY1 FLAG
  5758	033355	265 00 0 00 033356 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5759	033356	607 00 0 00 100000 		TLNN	CRY1		;PASS IF AROV WAS SAVED
  5760						STOP^
  5761	033357	254 04 0 00 033360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5762	033360	324 00 0 00 033361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5763									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5764									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5765									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5766
  5767					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 39
DAKADM	MAC	19-JAN-77 13:41		TEST OF JSP INSTRUCTION                                                            SEQ 0131

  5768					;THIS TEST VERIFIES THAT JSP ALWAYS STORES THE FLAGS IN THE LEFT HALF OF THE AC.
  5769					;FRIST, THE AC IS CLEARED; THEN, THE FOV FLAG IS SET AND JSP IS EXECUTED.
  5770					;THEN, THE FOV FLAG BIT OF THE LEFT HALF OF THE AC IS CHECKED FOR
  5771					;ITS CONTENTS NON-ZERO TO DETERMINE WHETHER THE FOV FLAG WAS SAVED.
  5772					;IF THE FOV FLAG BIT OF THE AC IS SET, THIS TEST PASSES
  5773
  5774	033361	400 00 0 00 000000 	C10200:	SETZ			;CLEAR THE AC
  5775						SFLAG	FOV		^;SET FOV FLAG
  5776
  5777	033362	205 01 0 00 040000 		MOVSI	1,FOV
  5778	033363	255 17 0 00 033364 		JFCL	17,.+1		;RESET ALL FLAGS
  5779	033364	254 02 0 01 033365 		JRST	2,.+1(1)	;SET FOV FLAG
  5780	033365	265 00 0 00 033366 		JSP	.+1		;*JSP SHOULD SAVE THE FLAGS IN THE AC-LEFT
  5781	033366	607 00 0 00 040000 		TLNN	FOV		;PASS IF FOV WAS SAVED
  5782						STOP^
  5783	033367	254 04 0 00 033370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5784	033370	324 00 0 00 033371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5785									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5786									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5787									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5788
  5789					;**********
  5790
  5791					;THIS TEST VERIFIES THAT JSP WILL STORE ONLY FLAGS THAT EXIST.
  5792					;I.E. RESET FLAGS WILL NOT BE SET IN THE AC.  ONLY FLAGS THAT ARE
  5793					;CLEARABLE BY JRSTF WILL BE CHECKED HERE.  FIRST ALL CLEARABLE
  5794					;FLAGS ARE RESET BY JRSTF;  THEN JSP IS EXECUTED.  THE AC IS THEN CHECKED.
  5795					;IF ANY CLEARABLE FLAGS ARE SET IN THE AC, THIS TEST FAILS.
  5796
  5797	033371				C10300:	SFLAG	0		^;CLEAR ALL CLEARABLE FLAGS
  5798
  5799	033371	205 01 0 00 000000 		MOVSI	1,0
  5800	033372	255 17 0 00 033373 		JFCL	17,.+1		;RESET ALL FLAGS
  5801	033373	254 02 0 01 033374 		JRST	2,.+1(1)	;SET 0 FLAG
  5802	033374	265 00 0 00 033375 		JSP	.+1		;*JSP SHOULD NOT STORE CLEARABLE FALGS
  5803	033375	603 00 0 00 761777 		TLNE	761777		;FAIL IF ANY CLEARABLE FLAG IS SET
  5804						STOP^
  5805	033376	254 04 0 00 033377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5806	033377	324 00 0 00 033400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5807									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5808									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5809									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5810
  5811					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 40
DAKADM	MAC	19-JAN-77 13:41		TEST OF JSP INSTRUCTION                                                            SEQ 0132

  5812					;THIS TEST VERIFIES THAT JSP ALWAYS JUMPS.
  5813					;IN THIS TEST, JSP .+2 IS EXECUTED.  IF JSP JUMPS, THE TEST PASSES;
  5814					;OTHERWISE, THIS TEST HALTS
  5815
  5816	033400	265 00 0 00 033402 	C10400:	JSP	.+2		;*JSP SHOULD ALWAYS JUMP
  5817						STOP^
  5818	033401	254 04 0 00 033402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5819	033402	324 00 0 00 033403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5820									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5821									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5822									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5823
  5824					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 41
DAKADM	MAC	19-JAN-77 13:41		TEST JRST INSTRUCTION                                                              SEQ 0133

  5825					SUBTTL	TEST JRST INSTRUCTION
  5826
  5827					;**********
  5828
  5829					;THIS TEST VERIFIES THAT JRST ALWAYS JUMPS.
  5830					;IN THIS TEST, JRST .+2 IS EXECUTED.  IF JRST JUMPS, THE TEST PASSES;
  5831					;OTHERWISE, THIS TEST HALTS
  5832
  5833	033403	254 00 0 00 033405 	C10500:	JRST	.+2		;*JRST 0, SHOULD ALWAYS JUMP
  5834						STOP^
  5835	033404	254 04 0 00 033405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5836	033405	324 00 0 00 033406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5837									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5838									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5839									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5840
  5841					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 42
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0134

  5842					SUBTTL	TEST OF AOBJX INSTRUCTIONS
  5843
  5844					;**********
  5845
  5846					;THIS TEST VERIFIES THAT AOBJN ALWAYS ADDS 1 TO BOTH HALVES OF THE AC.
  5847					;FIRST, THE AC IS CLEARED; THEN, AOBJN IS EXECUTED AND THE AC IS CHECKED
  5848					;FOR 1,,1.  IF C(AC)=1,,1, THIS TEST PASSES.
  5849
  5850	033406	400 00 0 00 000000 	C11200:	SETZ			;CLEAR THE AC
  5851	033407	253 00 0 00 033410 		AOBJN	.+1		;*AOBJN SHOULD ADD 1 TO BOTH HALVES OF THE AC
  5852	033410	312 00 0 00 034442 		CAME	[XWD 1,1]	;PASS IF C(AC)=1,,1
  5853						STOP^
  5854	033411	254 04 0 00 033412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5855	033412	324 00 0 00 033413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5856									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5857									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5858									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5859
  5860					;**********
  5861
  5862					;THIS TEST VERIFIES THAT AOBJP ALWAYS ADDS 1 TO BOTH HALVES OF THE AC.
  5863					;FIRST, THE AC IS CLEARED; THEN AOBJP IS EXECUTED AND THE AC IS CHECKED
  5864					;FOR 1,,1.  IF C(AC)=1,,1, THIS TEST PASSES.
  5865
  5866	033413	200 00 0 00 034540 	C11300:	MOVE	[XWD 377777,377777]	;PRELOAD AC WITH 377777,,377777
  5867	033414	252 00 0 00 033415 		AOBJP	.+1			;*AOBJP SHOULD ADD, TO BOTH HALVES OF THE AC
  5868	033415	312 00 0 00 034541 		CAME	[XWD 400000,400000]	;PASS IF C(AC)=400000,400000
  5869						STOP^
  5870	033416	254 04 0 00 033417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5871	033417	324 00 0 00 033420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5872									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5873									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5874									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5875
  5876					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 43
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0135

  5877					;THIS TEST VERIFIES THAT AOBJN WILL NOT JUMP WHEN C(AC) IS POSITIVE
  5878					;FIRST, THE AC IS CLEARED; AND AOBJN IS EXECUTED.  AOBJN SHOULD NOT JUMP
  5879					;BECAUSE C(AC) IS POSITIVE.  IF AOBJN JUMPS, THIS TEST FAILS
  5880
  5881	033420	400 00 0 00 000000 	C11400:	SETZ			;CLEAR THE AC
  5882	033421	253 00 0 00 033423 		AOBJN	.+2		;*AOBJN SHOULD NOT JUMP WHEN C(AC) IS POSITIVE
  5883	033422	334 00 0 00 000000 		SKIPA			;PASS IF AOBJN DOES NOT JUMP
  5884						STOP^
  5885	033423	254 04 0 00 033424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5886	033424	324 00 0 00 033425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5887									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5888									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5889									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5890
  5891					;**********
  5892
  5893					;THIS TEST VERIFIES THAT AOBJP WILL JUMP WHEN C(AC) IS POSITIVE
  5894					;FIRST, THE AC IS CLEARED; AND AOBJP IS EXECUTED.  AOBJP SHOULD JUMP
  5895					;BECAUSE C(AC) IS POSITIVE.  IF AOBJP DOES NOT JUMP, THIS TEST FAILS
  5896
  5897	033425	400 00 0 00 000000 	C11500:	SETZ			;CLEAR THE AC
  5898	033426	252 00 0 00 033430 		AOBJP 	.+2		;*AOBJP SHOULD JUMP BECAUSE C(AC) IS POSITIVE
  5899						STOP^
  5900	033427	254 04 0 00 033430 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5901	033430	324 00 0 00 033431 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5902									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5903									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5904									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5905
  5906					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 44
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0136

  5907					;THIS TEST VERIFIES THAT AOBJN WILL JUMP WHEN C(AC) IS NEGATIVE
  5908					;FIRST, THE AC IS PRELOADED WITH 400000,,0; AND AOBJN IS EXECUTED.  AOBJN SHOULD JUMP
  5909					;BECAUSE C(AC) IS NEGATIVE.  IF AOBJN DOES NOT JUMP, THIS TEST FAILS
  5910
  5911	033431	200 00 0 00 034541 	C11600:	MOVE	[XWD 400000,400000]	;PRELOAD AC WITH 400000,,400000
  5912	033432	253 00 0 00 033434 		AOBJN	.+2		;*AOBJN SHOULD JUMP BECAUSE C(AC) IS NEGATIVE
  5913						STOP^
  5914	033433	254 04 0 00 033434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5915	033434	324 00 0 00 033435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5916									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5917									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5918									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5919
  5920					;**********
  5921
  5922					;THIS TEST VERIFIES THAT AOBJP WILL NOT JUMP WHEN C(AC) IS NEGATIVE.  FIRST,
  5923					;THE AC IS PRELOADED WITH 400000,,0; AND AOBJP IS EXECUTED.  AOBJP SHOULD NOT JUMP
  5924					;BECAUSE C(AC) IS NEGATIVE.  IF AOBJP JUMPS, THIS TEST FAILS
  5925
  5926	033435	200 00 0 00 034541 	C11700:	MOVE	[XWD 400000,400000]	;PRELOAD AC WITH 400000,,400000
  5927	033436	252 00 0 00 033440 		AOBJP	.+2		;*AOBJP SHOULD NOT JUMP BECAUSE C(AC) IS NEGATIVE
  5928	033437	334 00 0 00 000000 		SKIPA			;PASS IF AOBJP DOES NOT JUMP
  5929						STOP^
  5930	033440	254 04 0 00 033441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5931	033441	324 00 0 00 033442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5932									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5933									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5934									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5935
  5936					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 45
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOBJX INSTRUCTIONS                                                         SEQ 0137

  5937					;THIS TEST VERIFIES THAT THERE IS A CARRY FROM BIT 18 TO BIT 17 OF THE AC ON AOBJN.
  5938					;THE AC IS PRELOADED WITH -1,,-1; THEN AOBJN IS EXECUTED. AOBJN SHOULD ADD ONE
  5939					;TO BOTH HALVES OF THE AC, GENERATING A CARRY FROM BIT 18 TO BIT 17. IF A
  5940					;CARRY WAS GENERATED, THIS TEST PASSES
  5941
  5942	033442	474 00 0 00 000000 	C12000:	SETO			;PRELOAD AC WITH -1,, -1
  5943	033443	253 00 0 00 033444 		AOBJN	.+1		;*AOBJN SHOULD GENERATE A CARRY FROM BIT 18 TO 17
  5944	033444	312 00 0 00 034444 		CAME	[1,,0]		;PASS IF C(AC)=1,,0 (CARRY WAS GENERATED)
  5945						STOP^
  5946	033445	254 04 0 00 033446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5947	033446	324 00 0 00 033447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5948									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5949									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5950									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5951
  5952					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 46
DAKADM	MAC	19-JAN-77 13:41		TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX                               SEQ 0138

  5953					SUBTTL	TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX
  5954
  5955					;THIS TEST VERIFIES THAT MOVNI SETS CRY0 AND CRY1 FLAGS ONLY WHEN THE DATA IS 0.
  5956					;FIRST, THE ARITHMETIC FLAGS ARE RESET; THEN, MOVNI IS EXECUTED WITH DATA OF ZEROS.
  5957					;THE ARITHMETIC FLAGS ARE CHECKED.
  5958					; CRY0/1 ARE SET AND AROV AND FOV RESET, THIS TEST PASSES.
  5959
  5960	033447	255 17 0 00 033450 	C12100:	JFCL	17,.+1		;CLEAR FLAGS
  5961	033450	211 00 0 00 000000 		MOVNI	0		;* MOVNI 0 SHOULD SET CRY0/1
  5962	033451	255 04 0 00 033453 		JCRY0	.+2		;PASS IF CRY0 IS SET
  5963						STOP^
  5964	033452	254 04 0 00 033453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5965	033453	324 00 0 00 033454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5966									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5967									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5968									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5969	033454	255 02 0 00 033456 		JCRY1	.+2		;PASS IF CRY1 IS SET
  5970						STOP^
  5971	033455	254 04 0 00 033456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5972	033456	324 00 0 00 033457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5973									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5974									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5975									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5976	033457	255 10 0 00 033461 		JOV	.+2		;PASS IF AROV RESET
  5977	033460	334 00 0 00 000000 		SKIPA
  5978						STOP^
  5979	033461	254 04 0 00 033462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5980	033462	324 00 0 00 033463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5981									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5982									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5983									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5984	033463	255 01 0 00 033465 		JFOV	.+2		;PASS IF FOV RESET
  5985	033464	334 00 0 00 000000 		SKIPA
  5986						STOP^
  5987	033465	254 04 0 00 033466 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5988	033466	324 00 0 00 033467 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  5989									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  5990									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  5991									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  5992
  5993					;**********
  5994
  5995					;THIS TEST VERIFIES THAT MOVN WILL NOT SET ARITHMETIC FLAGS WHEN THE DATA IS -1,,-1.
  5996					;FIRST, THE FLAGS ARE RESET; THEN, MOVN [-1,,-1] IS EXECUTED.
  5997					;THE ARITHMETIC FLAGS ARE CHECKED.
  5998					;IF ANY ARITHMETIC FLAG IS SET, THIS TEST FAILS.
  5999
  6000	033467	255 17 0 00 033470 	C12200:	JFCL	17,.+1		;CLEAR FLAGS
  6001	033470	210 00 0 00 034466 		MOVN	[-1]		;*MOVN [-1,,-1] SHOULD SET ARITHMETIC FLAGS
  6002	033471	255 17 0 00 033473 		JFCL	17,.+2		;FAIL IF AN ARITHMETIC FLAG IS SET
  6003	033472	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF MOVN PASSED.
  6004						STOP^
  6005	033473	254 04 0 00 033474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6006	033474	324 00 0 00 033475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6007									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 46-1
DAKADM	MAC	19-JAN-77 13:41		TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX                               SEQ 0139

  6008									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6009									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6010
  6011					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 47
DAKADM	MAC	19-JAN-77 13:41		TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX                               SEQ 0140

  6012					;THIS TEST VERIFIES THAT MOVN WILL SET THE AROV AND
  6013					;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0
  6014					;FIRST, THE FLAGS ARE RESET; THEN, MOVN [400000,,0] IS EXECUTED.
  6015					;THE ARITHMETIC FLAGS ARE CHECKED.
  6016					;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES.
  6017
  6018	033475	255 17 0 00 033476 	C12300:	JFCL	17,.+1		;CLEAR ARITHMETIC FLAGS
  6019	033476	210 00 0 00 034465 		MOVN	[XWD 400000,0]	;*MOVN [400000,,0] SHOULD SET AROV AND CRY1 ONLY
  6020	033477	255 10 0 00 033501 		JOV	.+2		;PASS IF AROV IS SET
  6021						STOP^
  6022	033500	254 04 0 00 033501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6023	033501	324 00 0 00 033502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6024									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6025									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6026									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6027	033502	255 02 0 00 033504 		JCRY1	.+2		;PASS IF CRY0 IS SET
  6028						STOP^
  6029	033503	254 04 0 00 033504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6030	033504	324 00 0 00 033505 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6031									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6032									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6033									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6034	033505	255 04 0 00 033507 		JCRY0	.+2		;PASS IF CRY0 IS RESET
  6035	033506	334 00 0 00 000000 		SKIPA
  6036						STOP^
  6037	033507	254 04 0 00 033510 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6038	033510	324 00 0 00 033511 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6039									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6040									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6041									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6042	033511	255 01 0 00 033513 		JFOV	.+2		;PASS IF FOV IS RESET
  6043	033512	334 00 0 00 000000 		SKIPA
  6044						STOP^
  6045	033513	254 04 0 00 033514 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6046	033514	324 00 0 00 033515 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6047									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6048									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6049									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6050
  6051					;**********
  6052
  6053					;THIS TEST VERIFIES THAT MOVM WILL SET THE AROV AND
  6054					;CRY1 FLAGS ONLY WHEN THE DATA IS 400000,,0
  6055					;FIRST, THE FLAGS ARE RESET; THEN, MOVM [400000,,0] IS EXECUTED.
  6056					;THE ARITHMETIC FLAGS ARE CHECKED.
  6057					;IF AROV AND CRY1 ARE SET AND CRY0 AND FOV ARE RESET, THIS TEST PASSES.
  6058
  6059	033515	255 17 0 00 033516 	C12301:	JFCL	17,.+1		;CLEAR ARITHMETIC FLAGS
  6060	033516	214 00 0 00 034465 		MOVM	[XWD 400000,0]	;*MOVM [400000,,0] SHOULD SET AROV AND CRY1 ONLY
  6061	033517	255 10 0 00 033521 		JOV	.+2		;PASS IF AROV IS SET
  6062						STOP^
  6063	033520	254 04 0 00 033521 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6064	033521	324 00 0 00 033522 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6065									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6066									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 47-1
DAKADM	MAC	19-JAN-77 13:41		TEST SETTING OF ARITHMETIC FLAGS VIA MOVNX AND MOVMX                               SEQ 0141

  6067									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6068	033522	255 02 0 00 033524 		JCRY1	.+2		;PASS IF CRY0 IS SET
  6069						STOP^
  6070	033523	254 04 0 00 033524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6071	033524	324 00 0 00 033525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6072									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6073									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6074									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6075	033525	255 04 0 00 033527 		JCRY0	.+2		;PASS IF CRY0 IS RESET
  6076	033526	334 00 0 00 000000 		SKIPA
  6077						STOP^
  6078	033527	254 04 0 00 033530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6079	033530	324 00 0 00 033531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6080									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6081									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6082									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6083	033531	255 01 0 00 033533 		JFOV	.+2		;PASS IF FOV IS RESET
  6084	033532	334 00 0 00 000000 		SKIPA
  6085						STOP^
  6086	033533	254 04 0 00 033534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6087	033534	324 00 0 00 033535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6088									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6089									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6090									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6091
  6092					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 48
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0142

  6093					SUBTTL	TEST OF AOS AND SOS INSTRUCTIONS
  6094
  6095					;**********
  6096
  6097					;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP.
  6098					;FIRST, E IS CLEARED; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 1.
  6099					;IF C(E) IS NOT 1 OR AOS SKIPPED, THIS TEST FAILS
  6100
  6101	033535	400 00 0 00 000000 	C12600:	SETZ			;CLEAR E
  6102	033536	350 00 0 00 000000 		AOS			;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP
  6103	033537	302 00 0 00 000001 		CAIE	1		;PASS IF C(E)=0,,1 ANDAOS DID NOT SKIP
  6104						STOP^
  6105	033540	254 04 0 00 033541 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6106	033541	324 00 0 00 033542 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6107									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6108									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6109									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6110
  6111					;**********
  6112
  6113					;THIS TEST VERIFIES THAT AOS ADDS 1 TO MEMORY AND DOES NOT SKIP.
  6114					;FIRST, E IS PRELOADED WITH -1,,-1; THEN, AOS IS EXECUTED. NEXT E IS CHECKED FOR 0.
  6115					;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS
  6116
  6117	033542	474 00 0 00 000000 	C12700:	SETO			;PRELOAD E WITH -1,,-1
  6118	033543	350 00 0 00 000000 		AOS			;*AOS SHOULD ADD 1 TO C(E) AND NOT SKIP
  6119	033544	302 00 0 00 000000 		CAIE			;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP
  6120						STOP^
  6121	033545	254 04 0 00 033546 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6122	033546	324 00 0 00 033547 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6123									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6124									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6125									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6126
  6127					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 49
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0143

  6128					;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP.
  6129					;FIRST, E IS CLEARED; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR -1,,-1.
  6130					;IF C(E) IS NOT -1,,-1 OR SOS SKIPPED, THIS TEST FAILS
  6131
  6132	033547	400 00 0 00 000000 	C13100:	SETZ			;CLEAR E
  6133	033550	370 00 0 00 000000 		SOS			;*SOS SHOULD SUBTRACT 1 FROM C(E) AND NOT SKIP
  6134	033551	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(E)=-1,,-1 AND SOS DID NOT SKIP
  6135						STOP^
  6136	033552	254 04 0 00 033553 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6137	033553	324 00 0 00 033554 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6138									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6139									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6140									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6141
  6142					;**********
  6143
  6144					;THIS TEST VERIFIES THAT SOS SUBTRACTS 1 FROM MEMORY AND DOES NOT SKIP.
  6145					;FIRST, E IS PRELOADED WITH A; THEN, SOS IS EXECUTED. NEXT E IS CHECKED FOR 0.
  6146					;IF C(E) IS NOT 0 OR SOS SKIPPED, THIS TEST FAILS
  6147
  6148	033554	201 00 0 00 000001 	C13200:	MOVEI	1		;PRELOAD E WITH 1
  6149	033555	370 00 0 00 000000 		SOS			;*SOS SHOULD SUBTRACT 1 FROM C(E) AND DID NOT SKIP
  6150	033556	302 00 0 00 000000 		CAIE	0		;PASS IF C(E)=0 AND SOS DID NOT SKIP
  6151						STOP^
  6152	033557	254 04 0 00 033560 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6153	033560	324 00 0 00 033561 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6154									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6155									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6156									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6157
  6158					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 50
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0144

  6159					;THIS TEST VERIFIES THAT SOS SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER
  6160					;THAN 400000,,0.  IN THIS CASE, C(E)=1.  FIRST THE FLAGS ARE RESET; THEN
  6161					;SOS IS EXECUTED.  THE  FLAGS ARE CHECKED.  IF CRY0 AND CRY1 ARE SET
  6162					;AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  6163
  6164	033561	255 17 0 00 033562 	C13300:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  6165	033562	201 00 0 00 000001 		MOVEI	1		;PRELOAD E WITH 1
  6166	033563	370 00 0 00 000000 		SOS			;*SOS SHOULD SET CRY0/1
  6167	033564	255 04 0 00 033566 		JCRY0	.+2		;PASS IF CRY0 IS SET
  6168						STOP^
  6169	033565	254 04 0 00 033566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6170	033566	324 00 0 00 033567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6171									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6172									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6173									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6174	033567	255 02 0 00 033571 		JCRY1	.+2		;PASS IF CRY1 IS SET
  6175						STOP^
  6176	033570	254 04 0 00 033571 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6177	033571	324 00 0 00 033572 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6178									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6179									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6180									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6181	033572	255 10 0 00 033574 		JOV	.+2		;PASS IF AROV IS RESET
  6182	033573	334 00 0 00 000000 		SKIPA
  6183						STOP^
  6184	033574	254 04 0 00 033575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6185	033575	324 00 0 00 033576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6186									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6187									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6188									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6189	033576	255 01 0 00 033600 		JFOV	.+2		;PASS IF FOV IS RESET
  6190	033577	334 00 0 00 000000 		SKIPA
  6191						STOP^
  6192	033600	254 04 0 00 033601 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6193	033601	324 00 0 00 033602 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6194									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6195									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6196									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6197
  6198					;**********
  6199
  6200					;THIS TEST VERIFIES THAT AOS SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1
  6201					;FIRST THE FLAGS ARE RESET; THEN
  6202					;AOS IS EXECUTED.  THE FLAGS ARE CHECKED.
  6203					;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  6204
  6205	033602	255 17 0 00 033603 	C13400:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  6206	033603	474 00 0 00 000000 		SETO			;PRELOAD E WITH 1
  6207	033604	350 00 0 00 000000 		AOS			;*AOS SHOULD SET CRY0 AND CRY1
  6208	033605	255 04 0 00 033607 		JCRY0	.+2		;PASS IF CRY0 IS SET
  6209						STOP^
  6210	033606	254 04 0 00 033607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6211	033607	324 00 0 00 033610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6212									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6213									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 50-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOS AND SOS INSTRUCTIONS                                                   SEQ 0145

  6214									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6215	033610	255 02 0 00 033612 		JCRY1	.+2		;PASS IF CRY1 IS SET
  6216						STOP^
  6217	033611	254 04 0 00 033612 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6218	033612	324 00 0 00 033613 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6219									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6220									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6221									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6222	033613	255 10 0 00 033615 		JOV	.+2		;PASS IF AROV IS RESET
  6223	033614	334 00 0 00 000000 		SKIPA
  6224						STOP^
  6225	033615	254 04 0 00 033616 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6226	033616	324 00 0 00 033617 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6227									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6228									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6229									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6230	033617	255 01 0 00 033621 		JFOV	.+2		;PASS IF FOV IS RESET
  6231	033620	334 00 0 00 000000 		SKIPA
  6232						STOP^
  6233	033621	254 04 0 00 033622 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6234	033622	324 00 0 00 033623 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6235									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6236									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6237									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6238
  6239					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 51
DAKADM	MAC	19-JAN-77 13:41		TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS                   SEQ 0146

  6240					SUBTTL	TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS
  6241
  6242					;**********
  6243
  6244					;THIS TEST VERIFIES THAT JFCL 1, WILL ALWAYS CLEAR FOV FLAG.
  6245					;FIRST, FOV IS SET VIA JRST 2, ;THEN JFCL 1,.+1 IS EXECUTED TO CLEAR FOV.
  6246					;IF FOV WAS CLEARED, THIS TEST PASSES.
  6247
  6248	033623				C13600:	SFLAG	FOV		^;SET FOV FLAG
  6249
  6250	033623	205 01 0 00 040000 		MOVSI	1,FOV
  6251	033624	255 17 0 00 033625 		JFCL	17,.+1		;RESET ALL FLAGS
  6252	033625	254 02 0 01 033626 		JRST	2,.+1(1)	;SET FOV FLAG
  6253	033626	255 01 0 00 033627 		JFCL	1,.+1		;*JFCL SHOULD RESET FOV
  6254	033627	255 01 0 00 033631 		JFCL	1,.+2		;PASS IF FOV IS RESET
  6255	033630	334 00 0 00 000000 		SKIPA			;SKIP HALT IF JFCL 1,.+1 PASSED
  6256						STOP^
  6257	033631	254 04 0 00 033632 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6258	033632	324 00 0 00 033633 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6259									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6260									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6261									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6262
  6263					;**********
  6264
  6265					;THIS TEST VERIFIES THAT JRST 2, CAN SET FXU AND JSP CAN SAVE FXU IN THE AC.
  6266					;FIRST, FXU IS SET VIA JRST 2, ;THEN, JSP IS EXECUTED. THE AC IS CHECKED
  6267					;FOR FXU.  IF FXU IS SET, THIS TEST PASSES; OTHERWISE, EITHER JRST 2, OR JSP FAILED.
  6268
  6269	033633				C13700:	SFLAG	FXU		^;*SET FXU FLAG
  6270
  6271	033633	205 01 0 00 000100 		MOVSI	1,FXU
  6272	033634	255 17 0 00 033635 		JFCL	17,.+1		;RESET ALL FLAGS
  6273	033635	254 02 0 01 033636 		JRST	2,.+1(1)	;SET FXU FLAG
  6274	033636	265 00 0 00 033637 		JSP	.+1		;*STORE FXU FLAG IN AC
  6275	033637	607 00 0 00 000100 		TLNN	FXU		;PASS IF FXU IS SET IN THE AC
  6276						STOP^
  6277	033640	254 04 0 00 033641 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6278	033641	324 00 0 00 033642 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6279									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6280									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6281									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6282
  6283					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 52
DAKADM	MAC	19-JAN-77 13:41		TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS                   SEQ 0147

  6284					;THIS TEST VERIFIES THAT JRST 2, CAN RESET FXU AND JSP CAN SAVE FXU IN THE AC.
  6285					;FIRST, FXU IS SET; THEN, FXU IS RESET VIA JRST 2,.  NEXT, JSP IS EXECUTED; AND
  6286					;THE AC IS CHECKED FOR FXU RESET.  IF FXU IS RESET IN THE AC, THIS TEST PASSES;
  6287					;OTHERWISE, JRST 2, FAILED TO CLEAR FXU OR JSP STORED FXU INCORECTLY.
  6288
  6289	033642				C14000:	SFLAG	FXU		^;SET FXU FLAG
  6290
  6291	033642	205 01 0 00 000100 		MOVSI	1,FXU
  6292	033643	255 17 0 00 033644 		JFCL	17,.+1		;RESET ALL FLAGS
  6293	033644	254 02 0 01 033645 		JRST	2,.+1(1)	;SET FXU FLAG
  6294						SFLAG			^;*RESET FXU FLAG
  6295
  6296	033645	205 01 0 00 000000 		MOVSI	1,
  6297	033646	255 17 0 00 033647 		JFCL	17,.+1		;RESET ALL FLAGS
  6298	033647	254 02 0 01 033650 		JRST	2,.+1(1)	;SET  FLAG
  6299	033650	265 00 0 00 033651 		JSP	.+1		;*STORE FXU FLAG IN THE AC
  6300	033651	603 00 0 00 000100 		TLNE	FXU		;PASS IF FXU IS RESET IN THE AC
  6301						STOP^
  6302	033652	254 04 0 00 033653 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6303	033653	324 00 0 00 033654 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6304									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6305									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6306									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6307
  6308					;**********
  6309
  6310					;THIS TEST VERIFIES THAT JRST 2, CAN SET DCK AND JSP CAN SAVE DCK IN THE AC.
  6311					;FIRST, DCK IS SET VIA JRST 2, ;THEN JSP IS EXECUTED.  THE AC IS CHECKED
  6312					;FOR DCK.  IF DCK IS SET, THIS TEST PASSES, OTHERWISE JRST 2, OR JSP FAILED.
  6313
  6314	033654				C14100:	SFLAG	DCK		^;*SET DCK FLAG
  6315
  6316	033654	205 01 0 00 000040 		MOVSI	1,DCK
  6317	033655	255 17 0 00 033656 		JFCL	17,.+1		;RESET ALL FLAGS
  6318	033656	254 02 0 01 033657 		JRST	2,.+1(1)	;SET DCK FLAG
  6319	033657	265 00 0 00 033660 		JSP	.+1		;*STORE FXU FLAG IN AC
  6320	033660	607 00 0 00 000040 		TLNN	DCK		;PASS IF FXU IS SET IN THE AC
  6321						STOP^
  6322	033661	254 04 0 00 033662 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6323	033662	324 00 0 00 033663 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6324									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6325									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6326									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6327
  6328					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 53
DAKADM	MAC	19-JAN-77 13:41		TEST OF INTERACTION OF JFCL, JRST, AND JSP WITH ARITHMETIC FLAGS                   SEQ 0148

  6329					;THIS TEST VERIFIES THAT JRST 2, CAN RESET DCK AND JSP CAN SAVE DCK IN THE AC.
  6330					;FIRST, FXU IS SET; THEN, DCK IS RESET VIA JRST 2,.  NEXT, JSP IS EXPECTED; AND
  6331					;THE AC IS CHECKED FOR DCK RESET.  IF DCK IS RESET IN THE AC, THIS TEST PASSES;
  6332					;OTHERWISE, JRST 2, FAILED TO CLEAR DCK OR JSP STORED DCK INCORRECTLY.
  6333
  6334	033663				C14200:	SFLAG	DCK		^;SET DCK FLAG
  6335
  6336	033663	205 01 0 00 000040 		MOVSI	1,DCK
  6337	033664	255 17 0 00 033665 		JFCL	17,.+1		;RESET ALL FLAGS
  6338	033665	254 02 0 01 033666 		JRST	2,.+1(1)	;SET DCK FLAG
  6339						SFLAG			^;*RESET DCK FLAG
  6340
  6341	033666	205 01 0 00 000000 		MOVSI	1,
  6342	033667	255 17 0 00 033670 		JFCL	17,.+1		;RESET ALL FLAGS
  6343	033670	254 02 0 01 033671 		JRST	2,.+1(1)	;SET  FLAG
  6344	033671	265 00 0 00 033672 		JSP	.+1		;*STORE DCK FLAG IN THE AC
  6345	033672	603 00 0 00 000040 		TLNE	DCK		;PASS IF DCK IS RESET IN THE AC
  6346						STOP^
  6347	033673	254 04 0 00 033674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6348	033674	324 00 0 00 033675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6349									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6350									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6351									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6352
  6353					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 54
DAKADM	MAC	19-JAN-77 13:41		TEST OF JUMPX INSTRUCTIONS                                                         SEQ 0149

  6354					SUBTTL	TEST OF JUMPX INSTRUCTIONS
  6355
  6356					;**********
  6357
  6358					;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6359					;C(AC) IS NEGATIVE.  IN THIS TEST, THE AC CONTAINS -1,,-1.  HENCE,
  6360					;JUMPL SHOULD JUMP.  IF JUMPL JUMPS, THIS TEST PASSES.
  6361
  6362	033675	474 00 0 00 000000 	C14500:	SETO			;PRELOAD AC WITH -1,,-1
  6363	033676	321 00 0 00 033700 		JUMPL	.+2		;*JUMPL SHOULD JUMP BECAUSE C(AC) IS NEGATIVE
  6364						STOP^
  6365	033677	254 04 0 00 033700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6366	033700	324 00 0 00 033701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6367									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6368									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6369									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6370
  6371					;**********
  6372
  6373					;THIS TEST VERIFIES THAT JUMPL IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6374					;C(AC) IS NEGATIVE.  IN THIS TEST, THE AC CONTAINS 0.  HENCE,
  6375					;JUMPL SHOULD NOT JUMP.  IF JUMPL DOES NOT JUMP, THIS TEST PASSES.
  6376
  6377	033701	400 00 0 00 000000 	C14600:	SETZ			;PRELOAD AC WITH 0
  6378	033702	321 00 0 00 033704 		JUMPL	.+2		;*JUMPL SHOULD NOT JUMP
  6379	033703	334 00 0 00 000000 		SKIPA			;PASS IF JUMPL DOES NOT JUMP
  6380						STOP^
  6381	033704	254 04 0 00 033705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6382	033705	324 00 0 00 033706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6383									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6384									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6385									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6386
  6387					;**********
  6388
  6389					;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6390					;C(AC)=0.  IN THIS TEST, THE AC CONTAINS 0.  HENCE,
  6391					;JUMPE SHOULD JUMP.  IF JUMPE JUMPS, THIS TEST PASSES.
  6392
  6393	033706	400 00 0 00 000000 	C14700:	SETZ			;PRELOAD AC WITH 0
  6394	033707	322 00 0 00 033711 		JUMPE	.+2		;*JUMPE SHOULD JUMP
  6395						STOP^
  6396	033710	254 04 0 00 033711 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6397	033711	324 00 0 00 033712 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6398									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6399									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6400									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6401
  6402					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 55
DAKADM	MAC	19-JAN-77 13:41		TEST OF JUMPX INSTRUCTIONS                                                         SEQ 0150

  6403					;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6404					;C(AC) IS NON-ZERO.  IN THIS TEST, THE AC CONTAINS 1.  HENCE,
  6405					;JUMPN SHOULD JUMP.  IF JUMPN JUMPS, THIS TEST PASSES.
  6406
  6407	033712	201 00 0 00 000001 	C15000:	MOVEI	1		;PRELOAD AC WITH 1
  6408	033713	326 00 0 00 033715 		JUMPN	.+2		;*JUMPN SHOULD JUMP
  6409						STOP^
  6410	033714	254 04 0 00 033715 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6411	033715	324 00 0 00 033716 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6412									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6413									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6414									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6415
  6416					;**********
  6417
  6418					;THIS TEST VERIFIES THAT JUMPE IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6419					;C(AC)=0.  IN THIS TEST, THE AC CONTAINS 2.  HENCE,
  6420					;JUMPL SHOULD NOT JUMP.  IF JUMPE DOES NOT JUMP, THIS TEST PASSES.
  6421
  6422	033716	201 00 0 00 000002 	C15100:	MOVEI	2		;PRELOAD AC WITH 2
  6423	033717	322 00 0 00 033721 		JUMPE	.+2		;*JUMPE SHOULD NOT JUMP
  6424	033720	334 00 0 00 000000 		SKIPA			;PASS IF JUMPE DID NOT JUMP
  6425						STOP^
  6426	033721	254 04 0 00 033722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6427	033722	324 00 0 00 033723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6428									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6429									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6430									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6431
  6432					;**********
  6433
  6434					;THIS TEST VERIFIES THAT JUMPN IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6435					;C(AC) IS NON-ZERO.  IN THIS TEST, THE AC CONTAINS 0.  HENCE,
  6436					;JUMPN SHOULD NOT JUMP.  IF JUMPN DOES NOT JUMP, THIS TEST PASSES.
  6437
  6438	033723	400 00 0 00 000000 	C15200:	SETZ			;PRELOAD AC WITH 0
  6439	033724	326 00 0 00 033726 		JUMPN	.+2		;*JUMPN SHOULD NOT JUMP
  6440	033725	334 00 0 00 000000 		SKIPA			;PASS IF JUMPN DID NOT JUMP
  6441						STOP^
  6442	033726	254 04 0 00 033727 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6443	033727	324 00 0 00 033730 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6444									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6445									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6446									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6447
  6448					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 56
DAKADM	MAC	19-JAN-77 13:41		TEST OF JUMPX INSTRUCTIONS                                                         SEQ 0151

  6449					;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6450					;C(AC) IS GREATER THAN 0.  IN THIS TEST, THE AC CONTAINS 1.  HENCE,
  6451					;JUMPG SHOULD JUMP.  IF JUMPG JUMPS, THIS TEST PASSES.
  6452
  6453	033730	201 00 0 00 000001 	C15300:	MOVEI	1		;PRELOAD  AC WITH 1
  6454	033731	327 00 0 00 033733 		JUMPG	.+2		;*JUMPG SHOULD JUMP
  6455						STOP^
  6456	033732	254 04 0 00 033733 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6457	033733	324 00 0 00 033734 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6458									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6459									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6460									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6461
  6462					;**********
  6463
  6464					;THIS TEST VERIFIES THAT JUMPG IS DATA DEPENDENT.  IT WILL JUMP IF AND ONLY IF
  6465					;C(AC) IS GREATER THAN 0.  IN THIS TEST, THE AC CONTAINS -1,,0.  HENCE,
  6466					;JUMPG SHOULD NOT JUMP.  IF JUMPG DOES NOT JUMP, THIS TEST PASSES.
  6467
  6468	033734	205 00 0 00 777777 	C15400:	MOVSI	-1		;PRELOAD AC WITH -1,,0
  6469	033735	327 00 0 00 033737 		JUMPG	.+2		;*JUMPG SHOULD NOT JUMP
  6470	033736	334 00 0 00 000000 		SKIPA			;PASS IF JUMPG DID NOT JUMP
  6471						STOP^
  6472	033737	254 04 0 00 033740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6473	033740	324 00 0 00 033741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6474									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6475									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6476									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6477
  6478					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 57
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0152

  6479					SUBTTL	TEST OF AOJ AND SOJ INSTRUCTIONS
  6480
  6481					;**********
  6482
  6483					;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP.
  6484					;FIRST, THE AC IS PRELOADED WITH 0; THEN, AOJ IS EXECUTED.  NEXT, THE
  6485					;AC IS CHECKED FOR 1.  IF C(AC) IS NOT 1 OR AOJ SKIPPED, THIS TEST FAILS.
  6486
  6487	033741	400 00 0 00 000000 	C15500:	SETZ			;PRELOAD AC WITH 0
  6488	033742	340 00 0 00 033744 		AOJ	.+2		;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP
  6489	033743	302 00 0 00 000001 		CAIE	1		;PASS IF C(AC)=1 AND AOJ DID NOT JUMP
  6490						STOP^
  6491	033744	254 04 0 00 033745 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6492	033745	324 00 0 00 033746 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6493									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6494									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6495									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6496
  6497					;**********
  6498
  6499					;THIS TEST VERIFIES THAT AOJ ADDS 1 TO THE AC AND DOES NOT JUMP.
  6500					;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, AOJ IS EXECUTED.  NEXT, THE
  6501					;AC IS CHECKED FOR 0.  IF C(AC) IS NOT 0 OR AOJ SKIPPED, THIS TEST FAILS.
  6502
  6503	033746	474 00 0 00 000000 	C15600:	SETO			;PRELOAD AC WITH 0
  6504	033747	340 00 0 00 033751 		AOJ	.+2		;*AOJ SHOULD ADD 1 TO THE AC AND NOT JUMP
  6505	033750	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=1 AND AOJ DID NOT JUMP
  6506						STOP^
  6507	033751	254 04 0 00 033752 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6508	033752	324 00 0 00 033753 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6509									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6510									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6511									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6512
  6513					;**********
  6514
  6515					;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP.
  6516					;FIRST, THE AC IS PRELOADED WITH 0; THEN, SOJ IS EXECUTED.  NEXT, THE
  6517					;AC IS CHECKED FOR -1,,-1.  IF C(AC) IS NOT -1,,-1 OR SOJ SKIPPED, THIS TEST FAILS.
  6518
  6519	033753	400 00 0 00 000000 	C15700:	SETZ			;PRELOAD AC WITH 0
  6520	033754	360 00 0 00 033756 		SOJ	.+2		;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP
  6521	033755	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC)=-1,,-1 AND SOJ DID NOT JUMP
  6522						STOP^
  6523	033756	254 04 0 00 033757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6524	033757	324 00 0 00 033760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6525									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6526									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6527									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6528
  6529					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 58
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0153

  6530					;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP.
  6531					;FIRST, THE AC IS PRELOADED WITH -1,,-1; THEN, SOJ IS EXECUTED.  NEXT, THE
  6532					;AC IS CHECKED FOR -1,,-2.  IF C(AC) IS NOT -1,,-2 OR SOJ SKIPPED, THIS TEST FAILS.
  6533
  6534	033760	474 00 0 00 000000 	C16000:	SETO			;PRELOAD AC WITH -1,,-1
  6535	033761	360 00 0 00 033763 		SOJ	.+2		;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP
  6536	033762	312 00 0 00 034467 		CAME	[-2]		;PASS IF C(AC)=-1,,-2 AND SOJ DID NOT JUMP
  6537						STOP^
  6538	033763	254 04 0 00 033764 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6539	033764	324 00 0 00 033765 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6540									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6541									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6542									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6543
  6544					;**********
  6545
  6546					;THIS TEST VERIFIES THAT SOJ SUBTRACTS 1 FROM THE AC AND DOES NOT JUMP.
  6547					;FIRST, THE AC IS PRELOADED WITH 0,,1; THEN, SOJ IS EXECUTED.  NEXT, THE
  6548					;AC IS CHECKED FOR 0.  IF C(AC) IS NOT 0 OR SOJ SKIPPED, THIS TEST FAILS.
  6549
  6550	033765	201 00 0 00 000001 	C16100:	MOVEI	1		;PRELOAD AC WITH 1
  6551	033766	360 00 0 00 033770 		SOJ	.+2		;*SOJ SHOULD SUBTRACT 1 FROM THE AC AND NOT JUMP
  6552	033767	302 00 0 00 000000 		CAIE	0		;PASS IF C(AC)=0 AND SOJ DID NOT JUMP
  6553						STOP^
  6554	033770	254 04 0 00 033771 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6555	033771	324 00 0 00 033772 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6556									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6557									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6558									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6559
  6560					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 59
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0154

  6561					;THIS TEST VERIFIES THAT SOJ AC, FOLLOWED BY AOJ AC, HAS NO NET EFFECT ON C(AC).
  6562					;IN THIS CASE, THE AC IS PRELOADED WITH 0; THEN, SOJ AC, FOLLOWED BY AOJ. 
  6563					;AC, IS REPEATED 7 TIMES.  THE AC IS THEN CHECKED FOR ITS ORIGINAL CONTENTS, 0.
  6564					;IF C(AC)=0, THIS TEST PASSES; OTHERWISE AOJ OR SOJ FAILED.
  6565
  6566			000017		C16200:	AC=17
  6567	033772	400 17 0 00 000000 		SETZ	AC,		;PRELOAD AC WITH 0
  6568						REPEAT	^D10,<
  6569						SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6570						AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC>
  6571
  6572	033773	360 17 0 00 033773 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6573	033774	340 17 0 00 033774 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6574
  6575	033775	360 17 0 00 033775 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6576	033776	340 17 0 00 033776 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6577
  6578	033777	360 17 0 00 033777 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6579	034000	340 17 0 00 034000 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6580
  6581	034001	360 17 0 00 034001 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6582	034002	340 17 0 00 034002 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6583
  6584	034003	360 17 0 00 034003 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6585	034004	340 17 0 00 034004 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6586
  6587	034005	360 17 0 00 034005 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6588	034006	340 17 0 00 034006 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6589
  6590	034007	360 17 0 00 034007 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6591	034010	340 17 0 00 034010 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6592
  6593	034011	360 17 0 00 034011 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6594	034012	340 17 0 00 034012 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6595
  6596	034013	360 17 0 00 034013 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6597	034014	340 17 0 00 034014 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6598
  6599	034015	360 17 0 00 034015 		SOJ	AC,.		;*SOJ SHOULD SUBTRACT 1 FROM THE AC
  6600	034016	340 17 0 00 034016 		AOJ	AC,.		;*AOJ SHOULD ADD 1 TO THE AC
  6601	034017	332 00 0 00 000017 		SKIPE	AC		;PASS IF C(AC) IS UNCHANGED. I.E. C(AC)=0
  6602						STOP^
  6603	034020	254 04 0 00 034021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6604	034021	324 00 0 00 034022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6605									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6606									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6607									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6608
  6609					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 60
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0155

  6610					;THIS TEST VERIFIES THAT SOJ SETS CRY0/1 FLAGS IF C(E) IS A NON-ZERO NUMBER OTHER
  6611					;THAN 400000,,0.  IN THIS CASE, C(E)=1.  FIRST THE FLAGS ARE RESET; THEN
  6612					;SOJ IS EXECUTED.  THE  FLAGS ARE CHECKED.  IF CRY0 AND CRY1 ARE SET
  6613					;AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  6614
  6615	034022	255 17 0 00 034023 	C16201:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  6616	034023	201 00 0 00 000001 		MOVEI	1		;PRELOAD E WITH 1
  6617	034024	360 00 0 00 000000 		SOJ			;*SOJ SHOULD SET CRY0/1
  6618	034025	255 04 0 00 034027 		JCRY0	.+2		;PASS IF CRY0 IS SET
  6619						STOP^
  6620	034026	254 04 0 00 034027 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6621	034027	324 00 0 00 034030 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6622									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6623									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6624									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6625	034030	255 02 0 00 034032 		JCRY1	.+2		;PASS IF CRY1 IS SET
  6626						STOP^
  6627	034031	254 04 0 00 034032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6628	034032	324 00 0 00 034033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6629									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6630									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6631									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6632	034033	255 10 0 00 034035 		JOV	.+2		;PASS IF AROV IS RESET
  6633	034034	334 00 0 00 000000 		SKIPA
  6634						STOP^
  6635	034035	254 04 0 00 034036 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6636	034036	324 00 0 00 034037 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6637									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6638									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6639									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6640	034037	255 01 0 00 034041 		JFOV	.+2		;PASS IF FOV IS RESET
  6641	034040	334 00 0 00 000000 		SKIPA
  6642						STOP^
  6643	034041	254 04 0 00 034042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6644	034042	324 00 0 00 034043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6645									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6646									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6647									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6648
  6649					;**********
  6650
  6651					;THIS TEST VERIFIES THAT AOJ SETS CRY0 AND CRY1 FLAG IF C(E) IS -1,,-1
  6652					;FIRST THE FLAGS ARE RESET; THEN
  6653					;AOJ IS EXECUTED.  THE FLAGS ARE CHECKED.
  6654					;IF CRY0 AND CRY1 ARE SET AND AROV AND FOV ARE RESET, THIS TEST PASSES.
  6655
  6656	034043	255 17 0 00 034044 	C16202:	JFCL	17,.+1		;RESET ARITHMETIC FLAGS
  6657	034044	474 00 0 00 000000 		SETO			;PRELOAD E WITH 1
  6658	034045	340 00 0 00 000000 		AOJ			;*AOJ SHOULD SET CRY0 AND CRY1
  6659	034046	255 04 0 00 034050 		JCRY0	.+2		;PASS IF CRY0 IS SET
  6660						STOP^
  6661	034047	254 04 0 00 034050 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6662	034050	324 00 0 00 034051 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6663									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6664									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 60-1
DAKADM	MAC	19-JAN-77 13:41		TEST OF AOJ AND SOJ INSTRUCTIONS                                                   SEQ 0156

  6665									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6666	034051	255 02 0 00 034053 		JCRY1	.+2		;PASS IF CRY1 IS SET
  6667						STOP^
  6668	034052	254 04 0 00 034053 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6669	034053	324 00 0 00 034054 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6670									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6671									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6672									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6673	034054	255 10 0 00 034056 		JOV	.+2		;PASS IF AROV IS RESET
  6674	034055	334 00 0 00 000000 		SKIPA
  6675						STOP^
  6676	034056	254 04 0 00 034057 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6677	034057	324 00 0 00 034060 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6678									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6679									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6680									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6681	034060	255 01 0 00 034062 		JFOV	.+2		;PASS IF FOV IS RESET
  6682	034061	334 00 0 00 000000 		SKIPA
  6683						STOP^
  6684	034062	254 04 0 00 034063 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6685	034063	324 00 0 00 034064 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6686									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6687									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6688									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6689
  6690					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 61
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0157

  6691					SUBTTL	TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS
  6692
  6693					;**********
  6694
  6695					;THIS TEST VERIFIES THAT ADDM DOES NOT MODIFY C(AC)
  6696					;BOTH AC AND E ARE PRELOADED WITH -1,,-1.  THEN ADDM IS EXECUTED.
  6697					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  6698
  6699	034064	477 00 0 00 000001 	C16400:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  6700	034065	272 00 0 00 000001 		ADDM	1		;*ADDM SHOULD NOT AFFECT C(AC)
  6701	034066	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC) IS UNMODIFIED BY ADDM
  6702						STOP^
  6703	034067	254 04 0 00 034070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6704	034070	324 00 0 00 034071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6705									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6706									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6707									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6708
  6709					;**********
  6710
  6711					;THIS TEST VERIFIES THAT HRREM DOES NOT MODIFY C(AC)
  6712					;THE AC IS PRELOADED WITH 0,,-1.  THEN HRRM IS EXECUTED.
  6713					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  6714
  6715	034071	201 00 0 00 777777 	C16500:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  6716	034072	572 00 0 00 000001 		HRREM	1		;*HRRM SHOULD NOT AFFECT C(AC)
  6717	034073	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC) IS UNMODIFIED BY HRRM
  6718						STOP^
  6719	034074	254 04 0 00 034075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6720	034075	324 00 0 00 034076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6721									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6722									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6723									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6724
  6725					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 62
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0158

  6726					;THIS TEST VERIFIES THAT MOVSM DOES NOT MODIFY C(AC)
  6727					;THE AC IS PRELOADED WITH 0,,-1.  THEN MOVSM IS EXECUTED.
  6728					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  6729
  6730	034076	201 00 0 00 777777 	C16600:	MOVEI	-1		;PRELOAD AC WITH 0,,-1
  6731	034077	206 00 0 00 000001 		MOVSM	1		;*MOVSM SHOULD NOT AFFECT C(AC)
  6732	034100	302 00 0 00 777777 		CAIE	-1		;PASS IF C(AC) IS UNMODIFIED BY MOVSM
  6733						STOP^
  6734	034101	254 04 0 00 034102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6735	034102	324 00 0 00 034103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6736									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6737									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6738									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6739
  6740					;**********
  6741
  6742					;THIS TEST VERIFIES THAT XORM DOES NOT MODIFY C(AC)
  6743					;BOTH AC AND E ARE PRELOADED WITH -1,,-1.  THEN XORM IS EXECUTED.
  6744					;THIS TEST PASSES IF C(AC) ARE UNCHANGED
  6745
  6746	034103	477 00 0 00 000001 	C16700:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  6747	034104	432 00 0 00 000001 		XORM	1		;*XORM SHOULD NOT AFFECT C(AC)
  6748	034105	312 00 0 00 034466 		CAME	[-1]		;PASS IF C(AC) IS UNMODIFIED BY XORM
  6749						STOP^
  6750	034106	254 04 0 00 034107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6751	034107	324 00 0 00 034110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6752									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6753									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6754									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6755
  6756					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 63
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0159

  6757					;THIS TEST VERIFIES THAT ADDB ADDS C(AC) TO C(E) AND PLACES THE
  6758					;RESULT IN BOTH AC AND E.  IN THIS TEST, BOTH AC AND E ARE PRELOADED
  6759					;WITH -1,,-1, THEN, ADDB IS EXECUTED.  C(AC) IS THEN COMPARED TO C(E);
  6760					;AND C(AC) IS THEN COMPARED TO -2.  IF BOTH OF THESE COMPARISONS SUCCEED, THIS
  6761					;TEST PASSES; OTHERWISE, ADDB FAILED
  6762
  6763	034110	477 00 0 00 000001 	C17000:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  6764	034111	273 00 0 00 000001 		ADDB	1		;*ADDB SHOULD ADD C(AC) TO C(E) AND PLACE RESULT
  6765									;INTO BOTH AC AND E
  6766	034112	312 00 0 00 000001 		CAME	1		;PASS IF C(AC)=C(E)
  6767						STOP^
  6768	034113	254 04 0 00 034114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6769	034114	324 00 0 00 034115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6770									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6771									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6772									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6773	034115	312 00 0 00 034467 		CAME	[-2]		;PASS IF C(AC)=-2
  6774						STOP^
  6775	034116	254 04 0 00 034117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6776	034117	324 00 0 00 034120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6777									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6778									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6779									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6780
  6781					;**********
  6782
  6783					;THIS TEST VERIFIES THAT ADDM ADDS C(AC) TO C(E) AND PLACES THE RESULT IN E
  6784					;IN THIS CASE, AC, E ARE BOTH PRELOADED WITH -1; THEN, ADDM IS EXECUTED.
  6785					;E IS THEN CHECKED FOR -2.  IF C(E)=-2, THIS TEST PASSES; OTHERWISE, ADDM FAILED
  6786
  6787	034120	477 00 0 00 000001 	C17100:	SETOB	1		;PRELOAD AC, E WITH -1,,-1
  6788	034121	272 00 0 00 000001 		ADDM	1		;*ADDM SHOULD ADD C(AC) TO C(E)
  6789	034122	312 01 0 00 034467 		CAME	1,[-2]		;PASS IF C(E)=-2
  6790						STOP^
  6791	034123	254 04 0 00 034124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6792	034124	324 00 0 00 034125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6793									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6794									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6795									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6796
  6797					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 64
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0160

  6798					;THIS TEST VERIFIES THAT HLLOS PLACES ONES ON THE RIGHT HALF OF E
  6799					;BUT DOES NOT AFFECT THE LEFT HALF OF E.  IN THIS CASE,
  6800					;E IS PRELOADED WITH 0; THE, HLLOS IS EXECUTED.  THE RESULT
  6801					;IN E SHOULD BE 0,,-1.  IF C(E)=0,,-1, THIS TEST PASSES
  6802
  6803	034125	402 00 0 00 000001 	C17200:	SETZM	1		;PRELOAD E WITH 0
  6804	034126	523 00 0 00 000001 		HLLOS	1		;*HLLOS SHOULD PLACE 0,,-1 INTO E
  6805	034127	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  6806						STOP^
  6807	034130	254 04 0 00 034131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6808	034131	324 00 0 00 034132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6809									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6810									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6811									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6812
  6813					;**********
  6814
  6815					;THIS TEST VERIFIES THAT MOVSS SWAPS BOTHS HALVES OF E AND
  6816					;PLACES THE RESULT IN E.  IN THIS CASE, E IS PRELOADED WITH
  6817					;-1,,0; THEN, MOVSS IS EXECUTED.  THE RESULT IN E SHOULD BE 0,,-1.
  6818					;IF C(E)=0,,-1, THIS TEST PASSES
  6819
  6820	034132	205 01 0 00 777777 	C17300:	MOVSI	1,-1		;PRELOAD E WITH -1,,0
  6821	034133	207 00 0 00 000001 		MOVSS	1		;*MOVSS SHOULD PLACE 0,,-1 INTO E
  6822	034134	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  6823						STOP^
  6824	034135	254 04 0 00 034136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6825	034136	324 00 0 00 034137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6826									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6827									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6828									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6829
  6830					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 65
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0161

  6831					;THIS TEST VERIFIES THAT AOS ADDS ONE TO MEMORY BUT DOES NOT SKIP
  6832					;FIRST, E IS PRELOADED WITH -1,-1; THEN, AOS IS EXECUTED.  NEXT, E IS CHECKED FOR 0.
  6833					;IF C(E) IS NOT 0 OR AOS SKIPPED, THIS TEST FAILS
  6834
  6835	034137	477 00 0 00 000001 	C17400:	SETOB	1		;PRELOAD E WITH -1,,-1
  6836	034140	350 00 0 00 000001 		AOS	1		;*AOS SHOULD ADD TO C(E) AND NOT SKIP
  6837	034141	302 01 0 00 000000 		CAIE	1,0		;PASS IF C(E)=0,,0 AND AOS DID NOT SKIP
  6838						STOP^
  6839	034142	254 04 0 00 034143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6840	034143	324 00 0 00 034144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6841									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6842									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6843									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6844
  6845					;**********
  6846
  6847					;THIS TEST VERIFIES THAT HRLM PLACES C(AC-RIGHT) INTO E-LEFT AND DOES
  6848					;NOT MODIFY E-RIGHT.  IN THIS CASE, AC IS PRELOADED WITH 0 AND E IS PRELOADED
  6849					;WITH -1,,-1.  THEN, HRLM IS EXECUTED.  E IS THEN CHECKED FOR 0,,-1.  IF
  6850					;C(E)=0,,-1, THIS TEST PASSES
  6851
  6852	034144	400 00 0 00 000000 	C17500:	SETZ			;PRELOAD AC WITH 0
  6853	034145	474 01 0 00 000000 		SETO	1,		;PRELOAD E WITH -1,,-1
  6854	034146	506 00 0 00 000001 		HRLM	1		;*HRLM SHOULD PLACE 0,,-1 INTO E
  6855	034147	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(E)=0,,-1
  6856						STOP^
  6857	034150	254 04 0 00 034151 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6858	034151	324 00 0 00 034152 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6859									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6860									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6861									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6862
  6863					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 66
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0162

  6864					;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY E
  6865					;E IS PRELOADED WITH 0 AND AC IS PRELOADED WITH -1,,-1.
  6866					;HRRS IS EXECUTED; THEN E IS CHECKED.  IF C(E) DOES
  6867					;NOT CHANGE, THIS TEST PASSES
  6868
  6869	034152	474 00 0 00 000000 	C17600:	SETO			;PRELOAD AC WITH -1,,-1
  6870	034153	400 01 0 00 000000 		SETZ	1,		;PRELOAD E WITH 0,,0
  6871	034154	543 00 0 00 000001 		HRRS	1		;*HRRS SHOULD PLACE 0,,0 INTO E
  6872	034155	332 00 0 00 000001 		SKIPE	1
  6873						STOP^
  6874	034156	254 04 0 00 034157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6875	034157	324 00 0 00 034160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6876									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6877									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6878									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6879
  6880					;**********
  6881
  6882					;THIS TEST VERIFIES THAT HRRZM PLACES C(AC-RIGHT) INTO E-RIGHT AND PLACES
  6883					;ZEROS INTO E-LEFT.  IN THIS CASE, AC=E=AC1 AND C(AC)=C(E)=-1,,0.  HRRZM
  6884					;IS EXECUTED AND AC1 IS CHECKED FOR 0.  IF AC1=0, THIS TEST PASSES.
  6885
  6886	034160	474 00 0 00 000000 	C17700:	SETO			;PRELOAD AC0 WITH -1,,-1
  6887	034161	205 01 0 00 777777 		MOVSI	1,-1		;PRELOAD AC1 WITH -1,,0
  6888	034162	552 01 0 00 000001 		HRRZM	1,1		;*HRRZM SHOULD PLACE 0 INTO AC1
  6889	034163	332 00 0 00 000001 		SKIPE	1		;PASS IF C(AC1)=0
  6890						STOP^
  6891	034164	254 04 0 00 034165 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6892	034165	324 00 0 00 034166 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6893									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6894									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6895									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6896
  6897					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 67
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0163

  6898					;THIS TEST VERIFIES THAT JFCL 17,.+1 NEVER JUMPS AND DOES NOT MODIFY C(AC0).
  6899					;FIRST, AC0 IS PRELOADED; THEN, JFCL IS EXECUTED.  IF AC0 IS MODIFIED
  6900					;OR JFCL SKIPS, THIS TEST FAILS
  6901
  6902	034166	400 00 0 00 000000 	C20000:	SETZ			;CLEAR AC0
  6903	034167	255 17 0 00 034170 		JFCL	17,.+1		;*JFCL SHOULD NOT JUMP OR MODIFY C(AC0).
  6904	034170	332 00 0 00 000000 		SKIPE			;PASS IF C(AC0)=0 AND JFCL DID NOT JUMP
  6905						STOP^
  6906	034171	254 04 0 00 034172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6907	034172	324 00 0 00 034173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6908									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6909									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6910									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6911
  6912					;**********
  6913
  6914					;THIS TEST VERIFIES THAT XORM PERFORMS THE LOGICAL EXCLUSIVE OR FUNCTION
  6915					;BETWEEN C(AC) AND C(E) AND PLACES THE RESULT INTO E
  6916					;IN THIS CASE, AC AND E ARE PRELOADED WITH -1,,-1; THEN, XORM IS
  6917					;EXECUTED.  IF THE RESULT IN E IS 0, THE TEST PASSES
  6918
  6919	034173	477 00 0 00 000001 	C20100:	SETOB	1		;PRELOAD AC,E WITH -1,,-1
  6920	034174	432 00 0 00 000001 		XORM	1		;*XORM SHOULD PLACE 0 INTO E
  6921	034175	302 01 0 00 000000 		CAIE	1,0		;PASS IF C(E)=0
  6922						STOP^
  6923	034176	254 04 0 00 034177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6924	034177	324 00 0 00 034200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6925									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6926									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6927									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6928
  6929					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 68
DAKADM	MAC	19-JAN-77 13:41		TEST OF MEMORY, BOTH AND SELF MODE INSTRUCTIONS                                    SEQ 0164

  6930					;THIS TEST VERIFIES THAT SETZB PLACES ZEROS INTO BOTH AC AND E.
  6931					;AFTER SETZB IS EXECUTED, BOTH AC AND E ARE CHECKED
  6932					;FOR 0.  IF EITHER AC OR E CONTAINS ANY ONES, THIS TEST FAILS
  6933
  6934	034200	403 00 0 00 000001 	C20200:	SETZB	1		;*SETZB SHOULD PLACE ZEROES IN BOTH AC AND E
  6935	034201	316 00 0 00 034536 		CAMN	[0]		;FAIL IF C(AC) IS NON-ZERO
  6936	034202	312 00 0 00 000001 		CAME	1		;FAIL IF C(E) IS NON-ZERO
  6937						STOP^
  6938	034203	254 04 0 00 034204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6939	034204	324 00 0 00 034205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6940									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6941									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6942									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6943
  6944					;**********
  6945
  6946					;THIS TEST VERIFIES THAT SETAB PLACES C(AC) INTO BOTH AC AND E.
  6947					;FIRST, AC IS PRELOADED WITH -1,,-1 AND E IS PRELOADED WITH 0;
  6948					;THEN, SETAB IS EXECUTED.  BOTH AC AND E ARE CHECKED FOR -1,,-1
  6949					;IF EITHER AC OR E CONTAIN ANY ZEROS, THIS TEST FAILS.
  6950
  6951	034205	400 01 0 00 000000 	C20300:	SETZ	1,		;PRELOAD E WITH 0
  6952	034206	474 00 0 00 000000 		SETO			;PRELOAD AC WITH -1,,-1
  6953	034207	427 00 0 00 000001 		SETAB	1		;*SETAB SHOULD PLACE -1,,-1 INTO BOTH AC AND E
  6954	034210	316 00 0 00 034466 		CAMN	[-1]		;FAIL IF C(AC) IS NOT -1,-1
  6955	034211	312 00 0 00 000001 		CAME	1		;FAIL IF C(E) IS NOT -1,,-1
  6956						STOP^
  6957	034212	254 04 0 00 034213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6958	034213	324 00 0 00 034214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6959									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6960									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6961									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6962
  6963					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 69
DAKADM	MAC	19-JAN-77 13:41		XCT INSTRUCTION - BASIC TESTS                                                      SEQ 0165

  6964					SUBTTL	XCT INSTRUCTION - BASIC TESTS
  6965
  6966					;**********
  6967
  6968					;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E)
  6969					;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION
  6970					;AFTER EXECUTING MOVEI, CONTROL SHOULD RETURN TO
  6971					;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT.
  6972					;THIS TEST PASSES IF CONTROL RETURNS TO THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING XCT
  6973
  6974	034214	403 00 0 00 000001 	C20400:	SETZB	1		;CLEAR AC0 AND AC1
  6975	034215	256 00 0 00 034542 		XCT	[MOVEI 1,.+2]	;*XCT SHOULD RETURN CONTROL TO NEXT INSTRUCTION
  6976	034216	334 00 0 00 000000 		SKIPA
  6977						STOP^
  6978	034217	254 04 0 00 034220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6979	034220	324 00 0 00 034221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6980									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6981									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6982									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  6983
  6984					;**********
  6985
  6986					;THIS TEST VERIFIES THAT XCT WILL EXECUTE THE INSTRUCTION SPECIFIED BY C(E)
  6987					;IN THIS CASE, C(E) SPECIFIES A MOVEI INSTRUCTION.
  6988					;AFTER EXECUTING MOVEI, THE AC SPECIFIED BY MOVEI IS CHECKED FOR
  6989					;0,,1 (THE EXPECTED RESULT).  IF C(AC)=0,,1, THIS TEST PASSES
  6990
  6991	034221	403 00 0 00 000001 	C20500:	SETZB	1		;CLEAR AC
  6992	034222	256 00 0 00 034543 		XCT	[MOVEI 1,1]	;*XCT OF MOVEI SHOULD PLACE 1 IN THE AC
  6993	034223	302 01 0 00 000001 		CAIE	1,1		;PASS IF C(AC)=1
  6994						STOP^
  6995	034224	254 04 0 00 034225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6996	034225	324 00 0 00 034226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  6997									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  6998									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  6999									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7000
  7001					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 70
DAKADM	MAC	19-JAN-77 13:41		XCT INSTRUCTION - BASIC TESTS                                                      SEQ 0166

  7002					;THIS TEST VERIFIES THAT A NEST OF XCT INSTRUCTIONS WILL EXECUTE
  7003					;THE INSTRUCTION SPECIFIED BY THE MOST NESTED XCT AND RETURN CONTROL TO
  7004					;THE NEXT SEQUENTIAL INSTRUCTION FOLLOWING THE FIRST XCT.
  7005					;IN THIS CASE, THE EXECUTED INSTRUCTION IS MOVEI.  AFTER EXECUTING THE MOVEI,
  7006					;C(AC) IS CHECKED FOR 0,,-1 (THE EXPECTED RESULT).  IF C(AC)=0,,-1, THIS TEST PASSES
  7007
  7008	034226	403 00 0 00 000001 	C20600:	SETZB	1		;CLEAR AC
  7009	034227	256 00 0 00 034550 		XCT	[XCT[XCT[XCT[XCT[MOVEI 1,-1]]]]] ;*NESTED XCT OF MOVEI
  7010									;SHOULD PLACE 0,,-1 INTO AC
  7011	034230	302 01 0 00 777777 		CAIE	1,-1		;PASS IF C(AC)=0,,-1
  7012						STOP^
  7013	034231	254 04 0 00 034232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7014	034232	324 00 0 00 034233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7015									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7016									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7017									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7018
  7019					;**********
  7020
  7021					;THIS TEST VERIFIES THAT XCT WILL NOT MODIFY AN AC WHICH IS NOT SPECIFIED BY THE
  7022					;EXECUTED INSTRUCTION.  IN THIS CASE, AC0 IS CLEARED AND THEN CHECKED FOR ZERO AFTER
  7023					;THE XCT INSTRUCTION IS EXECUTED.  AC0 SHOULD NOT BE MODIFIED.
  7024
  7025	034233	403 00 0 00 000001 	C20700:	SETZB	1		;CLEAR AC0,AC1
  7026	034234	256 00 0 00 034551 		XCT	[MOVE 1,[-1]]	;*XCT SHOULD NOT MODIFY AC0
  7027	034235	332 00 0 00 000000 		SKIPE			;PASS IF AC0 WAS NOT MODIFIED
  7028						STOP^
  7029	034236	254 04 0 00 034237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7030	034237	324 00 0 00 034240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7031									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7032									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7033									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7034
  7035					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 71
DAKADM	MAC	19-JAN-77 13:41		XCT INSTRUCTION - BASIC TESTS                                                      SEQ 0167

  7036					;THIS TEST VERIFIES THAT XCT OF SKIPA SHOULD RETURN CONTROL TO THE
  7037					;SECOND SEQUENTIAL INSTRUCTION FOLLOWING XCT
  7038
  7039	034240	256 00 0 00 034552 	C21000:	XCT	[SKIPA]		;XCT OF SKIPA SHOULD RETURN CONTROL TO .+2
  7040						STOP^
  7041	034241	254 04 0 00 034242 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7042	034242	324 00 0 00 034243 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7043									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7044									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7045									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7046
  7047					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 72
DAKADM	MAC	19-JAN-77 13:41		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0168

  7048					SUBTTL	INDIRECT ADDRESSING - BASIC TESTS
  7049
  7050					;**********
  7051
  7052					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  7053					;ARE WITHIN THE AC RANGE.
  7054					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  7055					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 0,
  7056					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  7057
  7058	034243	476 00 0 00 000001 	C21100:	SETOM	1		;PRELOAD AC WITH -1,,-1
  7059	034244	201 07 0 00 000003 		MOVEI	7,3		;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  7060	034245	402 00 0 00 000003 		SETZM	3		;PRELOAD INDIRECT ADDRESS WITH 0
  7061	034246	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESSS SHOULD
  7062									;PLACE 0 INTO THE AC
  7063	034247	332 00 0 00 000001 		SKIPE	1		;PASS IF C(AC)=0
  7064						STOP^
  7065	034250	254 04 0 00 034251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7066	034251	324 00 0 00 034252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7067									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7068									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7069									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7070
  7071					;**********
  7072
  7073					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  7074					;ARE WITHIN THE AC RANGE.
  7075					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  7076					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR -1,,-1,
  7077					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  7078
  7079	034252	402 00 0 00 000001 	C21200:	SETZM	1		;PRELOAD AC WITH -1,,-1
  7080	034253	201 07 0 00 000003 		MOVEI	7,3		;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  7081	034254	476 00 0 00 000003 		SETOM	3		;PRELOAD INDIRECT ADDRESS WITH -1,,-1
  7082	034255	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESS SHOULD
  7083									;PLACE -1,,-1 INTO THE AC
  7084	034256	312 01 0 00 034466 		CAME	1,[-1,,-1]	;PASS IF C(AC)=-1,,-1
  7085						STOP^
  7086	034257	254 04 0 00 034260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7087	034260	324 00 0 00 034261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7088									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7089									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7090									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7091
  7092					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 73
DAKADM	MAC	19-JAN-77 13:41		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0169

  7093					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  7094					;ARE WITHIN THE AC RANGE.
  7095					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  7096					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070,
  7097					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  7098
  7099	034261	402 00 0 00 000001 	C21300:	SETZM	1		;PRELOAD AC WITH 0
  7100	034262	201 07 0 00 000003 		MOVEI	7,3		;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  7101	034263	200 03 0 00 034553 		MOVE	3,[707070,,707070] ;PRELOAD INDIRECT ADDRESS WITH 707070,,707070
  7102	034264	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESS SHOULD
  7103									;PLACE 707070,,707070 INTO THE AC
  7104	034265	312 01 0 00 034553 		CAME	1,[707070,,707070]	;PASS IF C(AC)=707070,,707070
  7105						STOP^
  7106	034266	254 04 0 00 034267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7107	034267	324 00 0 00 034270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7108									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7109									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7110									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7111
  7112					;**********
  7113
  7114					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE
  7115					;AND @E IS BEYOND THE AC RANGE.
  7116					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  7117					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 707070,,707070,
  7118					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  7119
  7120	034270	254 00 0 00 034272 	C21400:	JRST	.+2
  7121	034271	707070	707070			XWD	707070,707070	;INDIRECT ADDRESS AND ITS DATA
  7122	034272	402 00 0 00 000001 		SETZM	1		;PRELOAD AC WITH 0
  7123	034273	201 07 0 00 034271 		MOVEI	7,C21400+1	;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  7124	034274	200 01 1 00 000007 		MOVE	1,@7		;*FWT FROM INDIRECT ADDRESS SHOULD
  7125									;PLACE 707070,,707070 INTO AC
  7126	034275	312 01 0 00 034271 		CAME	1,C21400+1	;PASS IF C(AC)=707070,,707070
  7127						STOP^
  7128	034276	254 04 0 00 034277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7129	034277	324 00 0 00 034300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7130									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7131									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7132									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7133
  7134					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 74
DAKADM	MAC	19-JAN-77 13:41		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0170

  7135					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  7136					;ARE BEYOND THE AC RANGE.
  7137					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A MOVE.
  7138					;AFTER MOVE IS EXECUTED, C(AC) IS CHECKED FOR 202020,,202020,
  7139					;THE INITIAL CONTENTS OF THE INDIRECT ADDRESS
  7140
  7141	034300	254 00 0 00 034303 	C21500:	JRST	.+3
  7142	034301	000000	034302				.+1		;DIRECT ADDRESS AND ITS DATA
  7143	034302	202020	202020			XWD	202020,202020	;INDIRECT ADDRESS AND ITS DATA
  7144	034303	402 00 0 00 000001 		SETZM	1		;PRELOAD AC WITH 0
  7145	034304	200 01 1 00 034301 		MOVE	1,@C21500+1	;*FWT FROM INDIRECT ADDRESS SHOULD
  7146									;PLACE 202020,,202020 INTO AC
  7147	034305	312 01 0 00 034302 		CAME	1,C21500+2	;PASS IF C(AC)=202020,,202020
  7148						STOP^
  7149	034306	254 04 0 00 034307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7150	034307	324 00 0 00 034310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7151									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7152									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7153									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7154
  7155					;**********
  7156
  7157					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN BOTH E AND @E
  7158					;ARE BEYOND THE AC RANGE.
  7159					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME.
  7160
  7161	034310	254 00 0 00 034313 	C21600:	JRST	.+3
  7162	034311	000000	034312				.+1		;DIRECT ADDRESS AND ITS DATA
  7163	034312	272727	272727			XWD	272727,272727	;INDIRECT ADDRESS AND ITS DATA
  7164	034313	200 01 0 00 034312 		MOVE	1,C21600+2	;PRELOAD AC
  7165	034314	312 01 1 00 034311 		CAME	1,@C21600+1	;*CAME OF DATA FROM INDIRECT ADDRESS - NON-AC RANGE
  7166						STOP^
  7167	034315	254 04 0 00 034316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7168	034316	324 00 0 00 034317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7169									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7170									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7171									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7172
  7173					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 75
DAKADM	MAC	19-JAN-77 13:41		INDIRECT ADDRESSING - BASIC TESTS                                                  SEQ 0171

  7174					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING WORKS WHEN E IS WITHIN THE AC RANGE
  7175					;AND @E IS BEYOND THE AC RANGE.
  7176					;THE INSTRUCTION SPECIFYING INDIRECT ADDRESSING IS A CAME.
  7177
  7178	034317	254 00 0 00 034321 	C21700:	JRST	.+2
  7179	034320	252525	252525			XWD	252525,252525	;INDIRECT ADDRESS AND ITS DATA
  7180	034321	201 07 0 00 034320 		MOVEI	7,C21700+1	;SETUP DIRECT ADDRESS WITH INDIRECT ADDRESS
  7181	034322	200 01 0 00 034320 		MOVE	1,C21700+1	;SETUP AC
  7182	034323	312 01 1 00 000007 		CAME	1,@7		;*CAME IF DATA FROM INDIRECT ADDRESS - AC RANGE
  7183						STOP^
  7184	034324	254 04 0 00 034325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7185	034325	324 00 0 00 034326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7186									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7187									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7188									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7189
  7190					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 76
DAKADM	MAC	19-JAN-77 13:41		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0172

  7191					SUBTTL	TEST INDIRECT ADDRESSING WITH INDEXING
  7192
  7193					;SETUP INDEX REGISTERS
  7194
  7195	034326	201 01 0 00 777774 		MOVEI	1,-4
  7196	034327	201 03 0 00 000002 		MOVEI	3,2
  7197	034330	201 04 0 00 000010 		MOVEI	4,10
  7198	034331	201 05 0 00 000001 		MOVEI	5,1
  7199	034332	201 06 0 00 000005 		MOVEI	6,5
  7200	034333	201 07 0 00 000007 		MOVEI	7,7
  7201	034334	201 10 0 00 000004 		MOVEI	10,4
  7202	034335	201 11 0 00 777772 		MOVEI	11,-6
  7203	034336	201 12 0 00 000005 		MOVEI	12,5
  7204	034337	201 13 0 00 000002 		MOVEI	13,2
  7205
  7206	034340	254 00 0 00 034371 		JRST	C22000		;RESUME TEST
  7207
  7208					;INDIRECT ADDRESSING/INDEXING TEST TABLE
  7209
  7210					;;;;;;;;;;;          ;;;;;;;;;;          ;;;;;;;;;;
  7211
  7212					;DO NOT MODIFY THIS TABLE OR TESTS C21700 THRU C22600 INDEPENDENTLY !
  7213
  7214					;;;;;;;;;;          ;;;;;;;;;;          ;;;;;;;;;;
  7215
  7216	034341	000003	034344		E217:		E217A(3)
  7217	034342	000020	034347		E220:		@E220A
  7218	034343	220220	220220		E220B:	220220,,220220
  7219	034344	000020	034351		E217A:		@E221A		;E221-4
  7220	034345	221221	221221		E221B:	221221,,221221
  7221	034346	217217	217217		E222A:	217217,,217217		;E217A+2
  7222	034347	000000	034343		E220A:		E220B
  7223	034350	000000	034350		E221:		E221
  7224	034351	000000	034345		E221A:		E221B
  7225	034352	000000	034350		E222:		E221
  7226	034353	223223	223223		E223A:	223223,,223223
  7227	034354	000004	034354		E224A:		E224A(4)	;E223-6
  7228	034355	222222	222222			222222,,222222		;E222A+7
  7229	034356	000000	034356		E225:		E225
  7230	034357	000007	034346				E222A(7)	;E222+5
  7231	034360	000020	034363				@E225A		;E225+2
  7232	034361	225225	225225		E225B:	225225,,225225
  7233	034362	000000	034362		E223:		E223
  7234	034363	000000	034361		E225A:		E225B
  7235	034364	224224	224224			224224,,224224		;E224A+10
  7236	034365	226226	226226		E226B:	226226,,226226
  7237	034366	000000	034353				E223A		;E223+4
  7238	034367	000025	034367		E226A:		@E226A(5)	;E223+5
  7239	034370	000000	034365				E226B		;E226A+1
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 77
DAKADM	MAC	19-JAN-77 13:41		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0173

  7240					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7241					LY.
  7242					;IN THIS CASE, MOVE 2,@E217 IS TESTED WHERE C(E217)=E217A(3) AND C(3)=0,,2.
  7243					;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A+2)=217217,,217217
  7244
  7245	034371	476 00 0 00 000002 	C22000:	SETOM	2		;INITIALIZE AC
  7246	034372	200 02 1 00 034341 		MOVE	2,@E217		;TEST INDIRECT ADDRESSING WITH INDEXING
  7247	034373	312 02 0 00 034346 		CAME	2,E217A+2	;PASS IF C(AC)=217217,,217217
  7248						STOP^
  7249	034374	254 04 0 00 034375 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7250	034375	324 00 0 00 034376 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7251									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7252									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7253									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7254
  7255					;**********
  7256
  7257					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7258					LY.
  7259					;IN THIS CASE, MOVE 2,@E220 IS TESTED WHERE C(E220)=@E220A AND C(E220A)=E220B.
  7260					;HENCE, THE RESULT IN THE AC SHOULD BE C(E220B)=220220,,220220
  7261
  7262	034376	402 00 0 00 000002 	C22100:	SETZM	2		;INITIALIZE AC
  7263	034377	200 02 1 00 034342 		MOVE	2,@E220		;TEST INDIRECT ADDRESSING WITH INDEXING
  7264	034400	312 02 0 00 034343 		CAME	2,E220B		;PASS IF C(AC)=220220,,220220
  7265						STOP^
  7266	034401	254 04 0 00 034402 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7267	034402	324 00 0 00 034403 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7268									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7269									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7270									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7271
  7272					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 78
DAKADM	MAC	19-JAN-77 13:41		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0174

  7273					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7274					LY.
  7275					;IN THIS CASE,E221(1) 2,@E217 IS TESTED WHERE C(1)=-4 AND E221-4=E217A
  7276					;HENCE, THE RESULT IN THE AC SHOULD BE C(E217A)=@E221A=20,,E221A
  7277
  7278	034403	476 00 0 00 000002 	C22200:	SETOM	2		;INITIALIZE AC
  7279	034404	200 02 0 01 034350 		MOVE	2,E221(1)	;TEST INDIRECT ADDRESSING WITH INDEXING
  7280	034405	312 02 0 00 034344 		CAME	2,E217A		;PASS IF C(AC)=@E221A=20,,E221A
  7281						STOP^
  7282	034406	254 04 0 00 034407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7283	034407	324 00 0 00 034410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7284									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7285									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7286									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7287
  7288					;**********
  7289
  7290					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7291					LY.
  7292					;IN THIS CASE, MOVE 2,E222(6) IS TESTED WHERE C(6)=5
  7293					;HENCE, THE RESULT IN THE AC SHOULD BE C(E222+5)=E222A(7)=7,,E222A
  7294
  7295	034410	402 00 0 00 000002 	C22300:	SETZM	2		;INITIALIZE AC
  7296	034411	200 02 0 06 034352 		MOVE	2,E222(6)	;TEST INDIRECT ADDRESSING WITH INDEXING
  7297	034412	312 02 0 00 034357 		CAME	2,E222+5	;PASS IF C(AC)=E222A(7)=7,,E222A
  7298						STOP^
  7299	034413	254 04 0 00 034414 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7300	034414	324 00 0 00 034415 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7301									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7302									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7303									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7304
  7305					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 79
DAKADM	MAC	19-JAN-77 13:41		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0175

  7306					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7307					LY.
  7308					;IN THIS CASE, MOVE 2,@E223(10) IS TESTED WHERE C(10)=4 AND C(E223+4)=E223A
  7309					;HENCE, THE RESULT IN THE AC SHOULD BE C(E223A)=223223,,223223
  7310
  7311	034415	476 00 0 00 000002 	C22400:	SETOM	2		;INITIALIZE AC
  7312	034416	200 02 1 10 034362 		MOVE	2,@E223(10)	;TEST INDIRECT ADDRESSING WITH INDEXING
  7313	034417	312 02 0 00 034353 		CAME	2,E223A		;PASS IF C(AC)=223223,,223223
  7314						STOP^
  7315	034420	254 04 0 00 034421 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7316	034421	324 00 0 00 034422 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7317									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7318									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7319									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7320
  7321					;**********
  7322
  7323					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7324					LY.
  7325					;IN THIS CASE, MOVE 2,@E223(11) IS TESTED WHERE C(11)=-6, C(E223-6)=E224A(4) AND C(4)=10
  7326					;HENCE, THE RESULT IN THE AC SHOULD BE C(E224A+10)=224224,,224224
  7327
  7328	034422	402 00 0 00 000002 	C22500:	SETZM	2		;INITIALIZE AC
  7329	034423	200 02 1 11 034362 		MOVE	2,@E223(11)	;TEST INDIRECT ADDRESSING WITH INDEXING
  7330	034424	312 02 0 00 034364 		CAME	2,E224A+10	;PASS IF C(AC)=224224,,224224
  7331						STOP^
  7332	034425	254 04 0 00 034426 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7333	034426	324 00 0 00 034427 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7334									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7335									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7336									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7337
  7338					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 80
DAKADM	MAC	19-JAN-77 13:41		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0176

  7339					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7340					LY.
  7341					;IN THIS CASE, MOVE 2,@E225(13) IS TESTED WHERE C(13)=2, C(E225+2)=@E225A
  7342					;AND C(E225A)=E225B
  7343					;HENCE, THE RESULT IN THE AC SHOULD BE C(E225B)=225225,,225225
  7344
  7345	034427	476 00 0 00 000002 	C22600:	SETOM	2		;INITIALIZE AC
  7346	034430	200 02 1 13 034356 		MOVE	2,@E225(13)	;TEST INDIRECT ADDRESSING WITH INDEXING
  7347	034431	312 02 0 00 034361 		CAME	2,E225B		;PASS IF C(AC)=225225,,225225
  7348						STOP^
  7349	034432	254 04 0 00 034433 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7350	034433	324 00 0 00 034434 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7351									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7352									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7353									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7354
  7355					;**********
  7356
  7357					;THIS TEST VERIFIES THAT INDIRECT ADDRESSING IN COMBINATION WITH INDEXING FUNCTIONS CORRECT
  7358					LY.
  7359					;IN THIS CASE, MOVE 2,@E223(12) IS TESTED WHERE C(12)=5, C(E223+5)=@E226A(5),
  7360					;C(5)=1 AND C(E226A+1)=E226B
  7361					;HENCE, THE RESULT IN THE AC SHOULD BE C(E226B)=226226,,226226
  7362
  7363	034434	402 00 0 00 000002 	C22700:	SETZM	2		;INITIALIZE AC
  7364	034435	200 02 1 12 034362 		MOVE	2,@E223(12)	;TEST INDIRECT ADDRESSING WITH INDEXING
  7365	034436	312 02 0 00 034365 		CAME	2,E226B		;PASS IF C(AC)=226226,,226226
  7366						STOP^
  7367	034437	254 04 0 00 034440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7368	034440	324 00 0 00 034441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
  7369									;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
  7370									;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
  7371									;AND CHANGE HALT INSTRUCTION TO JUMPA .+1^
  7372
  7373					;**********
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 81
DAKADM	MAC	19-JAN-77 13:41		TEST INDIRECT ADDRESSING WITH INDEXING                                             SEQ 0177

  7374
  7375	034441	254 00 0 00 030057 		JRST	BEGEND
  7376					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  7377
  7378					;PROGRAM LITERALS
  7379
  7380						XLIST
  7381					IFNDEF	$LPAPER,<LIST>
  7382	034442					LIT
  7383	034442	000001	000001
  7384	034443	254 00 0 00 030741 
  7385	034444	000001	000000
  7386	034445	000002	000000
  7387	034446	000004	000000
  7388	034447	000010	000000
  7389	034450	000020	000000
  7390	034451	000040	000000
  7391	034452	000100	000000
  7392	034453	000200	000000
  7393	034454	000400	000000
  7394	034455	001000	000000
  7395	034456	002000	000000
  7396	034457	004000	000000
  7397	034460	010000	000000
  7398	034461	020000	000000
  7399	034462	040000	000000
  7400	034463	100000	000000
  7401	034464	200000	000000
  7402	034465	400000	000000
  7403	034466	777777	777777
  7404	034467	777777	777776
  7405	034470	777777	777775
  7406	034471	777777	777773
  7407	034472	777777	777767
  7408	034473	777777	777757
  7409	034474	777777	777737
  7410	034475	777777	777677
  7411	034476	777777	777577
  7412	034477	777777	777377
  7413	034500	777777	776777
  7414	034501	777777	775777
  7415	034502	777777	773777
  7416	034503	777777	767777
  7417	034504	777777	757777
  7418	034505	777777	737777
  7419	034506	777777	677777
  7420	034507	777777	577777
  7421	034510	777777	377777
  7422	034511	777776	777777
  7423	034512	777775	777777
  7424	034513	777773	777777
  7425	034514	777767	777777
  7426	034515	777757	777777
  7427	034516	777737	777777
  7428	034517	777677	777777
DAKAD PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (4) 0,2	MACRO %52(537) 14:33 19-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0178

  7429	034520	777577	777777
  7430	034521	777377	777777
  7431	034522	776777	777777
  7432	034523	775777	777777
  7433	034524	773777	777777
  7434	034525	767777	777777
  7435	034526	757777	777777
  7436	034527	737777	777777
  7437	034530	677777	777777
  7438	034531	577777	777777
  7439	034532	377777	777777
  7440	034533	777777	000000
  7441	034534	000000	777777
  7442	034535	252525	252525
  7443	034536	000000	000000
  7444	034537	254 04 0 00 032743 
  7445	034540	377777	377777
  7446	034541	400000	400000
  7447	034542	201 01 0 00 034217 
  7448	034543	201 01 0 00 000001 
  7449	034544	201 01 0 00 777777 
  7450	034545	256 00 0 00 034544 
  7451	034546	256 00 0 00 034545 
  7452	034547	256 00 0 00 034546 
  7453	034550	256 00 0 00 034547 
  7454	034551	200 01 0 00 034466 
  7455	034552	334 00 0 00 000000 
  7456	034553	707070	707070
  7457						LIST
  7458	034554	000000	000000		ENDSLD:	0
  7459
  7460					IFDEF	DEBUG,<
  7461	034555				PATCH:	BLOCK DEBUG		;PATCHING AREA
  7462					>
  7463
  7464					;PROGRAM VARIABLES
  7465	034655					VAR
  7466
  7467					IFDEF	PGMEND,<
  7468	034655	000000	000000		END:	0
  7469			030000			END	BEGIN	>

NO ERRORS DETECTED

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

11K CORE USED

ABORT	    77#
AC	  6566#	  6567	  6572	  6573	  6575	  6576	  6578	  6579	  6581	  6582	  6584	  6585	  6587	  6588     SEQ 0179
	  6590	  6591	  6593	  6594	  6596	  6597	  6599	  6600	  6601
AC0	   672#
ALTMGO	   431#
ANXM	   345#
APR	   769	   770	   771
AROV	   345#	   844#	  5503	  5710	  5714
AROVU	   345#
AST	   546#
ATSIN	   547#
BEGEND	   427#	  7375
BEGIN	   291	   292	   358#	   715	   837	  7469
BEGIN1	   374#	   428
BELL	   550#
BIS	   345#	   848#
C00	   882	   907#
C100	   924#
C1000	  2026#
C10000	  5729#
C10100	  5752#
C10200	  5774#
C10300	  5797#
C10400	  5816#
C10500	  5833#
C1100	  2383#
C11200	  5850#
C11300	  5866#
C11400	  5881#
C11500	  5897#
C11600	  5911#
C11700	  5926#
C1200	  2400#
C12000	  5942#
C12100	  5960#
C12200	  6000#
C12300	  6018#
C12301	  6059#
C12600	  6101#
C12700	  6117#
C1300	  2873#
C13100	  6132#
C13200	  6148#
C13300	  6164#
C13400	  6205#
C13600	  6248#
C13700	  6269#
C1400	  3349#
C14000	  6289#
C14100	  6314#
C14200	  6334#
C14500	  6362#
C14600	  6377#
C14700	  6393#
C1500	  3366#                                                                                                            SEQ 0180
C15000	  6407#
C15100	  6422#
C15200	  6438#
C15300	  6453#
C15400	  6468#
C15500	  6487#
C15600	  6503#
C15700	  6519#
C1600	  3839#
C16000	  6534#
C16100	  6550#
C16200	  6566#
C16201	  6615#
C16202	  6656#
C16400	  6699#
C16500	  6715#
C16600	  6730#
C16700	  6746#
C1700	  4322#
C17000	  6763#
C17100	  6787#
C17200	  6803#
C17300	  6820#
C17400	  6835#
C17500	  6852#
C17600	  6869#
C17700	  6886#
C200	   941#
C2000	  4569#
C20000	  6902#
C20100	  6919#
C20200	  6934#
C20300	  6951#
C20400	  6974#
C20500	  6991#
C20600	  7008#
C20700	  7025#
C2100	  4814#
C21000	  7039#
C21100	  7058#
C21200	  7079#
C21300	  7099#
C21400	  7120#	  7123	  7126
C21500	  7141#	  7145	  7147
C21600	  7161#	  7164	  7165
C21700	  7178#	  7180	  7181
C2200	  4831#
C22000	  7206	  7245#
C22100	  7262#
C22200	  7278#
C22300	  7295#
C22400	  7311#
C22500	  7328#                                                                                                            SEQ 0181
C22600	  7345#
C22700	  7363#
C2400	  4848#
C2410	  4858#
C2700	  4874#
C2710	  4884#
C300	   956#
C3000	  4899#
C3100	  4924#
C3110	  4942#
C3200	  4957#
C3210	  4967#
C3300	  4983#
C3400	  5000#
C3500	  5018#
C3600	  5037#
C3700	  5054#
C400	   972#
C4000	  5071#
C4100	  5090#
C4200	  5107#
C4300	  5126#
C4400	  5145#
C4500	  5162#
C4600	  5178#
C4700	  5194#
C500	   990#
C5000	  5212#
C5100	  5229#
C5200	  5246#
C5300	  5264#
C5400	  5282#
C5500	  5300#
C5600	  5320#
C5700	  5339#
C5701	  5357#
C5702	  5374#
C600	  1354#
C6000	  5395#
C6100	  5413#
C6200	  5431#
C6300	  5453#
C6400	  5477#
C6500	  5501#
C6600	  5521#
C6700	  5542#
C700	  1724#
C7000	  5560#
C7100	  5582#
C7200	  5605#
C7300	  5630#
C7400	  5652#
C7500	  5671#                                                                                                            SEQ 0182
C7600	  5687#
C7700	  5707#
CCA	   345#
CHAIN	    97#
CHNOFF	   345#
CHNON	   345#
CLK	   345#
CLKCLR	   345#
CLKDIS	   345#
CLKENB	   345#
CLKU	   345#
CLOCKF	   413#
CNTLC	   430#
COMMA	   539#
CONSW	   414#
CPOPJ	   434#
CPOPJ1	   432#
CRLF	   226	   227	   534#
CRLF2	   230	   231	   536#
CRY0	   345#	   845#	  5434	  5584	  5732	  5736
CRY1	   345#	   846#	  5523	  5755	  5759
CSHFLG	   593#
CSHMEM	   594#
CYCL60	   587#
DCK	   345#	   852#	  6316	  6320	  6336	  6345
DDT	   674#
DDTLNK	   111#	   372
DDTSRT	   372#
DEBUG	    36#	  7460	  7461
DECVER	     5#	    11	    27	   393
DF22F	   498#
DIAGMN	   361#
DIAGNO	   673#
DIAMON	   675#
DING	    83#
DOLLAR	   553#
DONG11	   676#	   816	   832
DSKUPD	   398
DTE	   680#	   816	   818	   832	   834
DTE0	   681#
DTE1	   682#
DTE2	   683#
DTE3	   684#
E217	  7216#	  7246
E217A	  7216	  7219#	  7247	  7280
E220	  7217#	  7263
E220A	  7217	  7222#
E220B	  7218#	  7222	  7264
E221	  7223#	  7223	  7225	  7279
E221A	  7219	  7224#
E221B	  7220#	  7224
E222	  7225#	  7296	  7297
E222A	  7221#	  7230                                                                                                     SEQ 0183
E223	  7233#	  7233	  7312	  7329	  7364
E223A	  7226#	  7237	  7313
E224A	  7227#	  7227	  7330
E225	  7229#	  7229	  7346
E225A	  7231	  7234#
E225B	  7232#	  7234	  7347
E226A	  7238#	  7238
E226B	  7236#	  7239	  7365
END	  7468#
ENDFIX	   667#
ENDSLD	  7458#
ERMORE	   447#
ERRPC	   418#
ERRTLS	   419#
ERSTOP	    86#
EXCASB	    33#	   396
EXIOT	   345#	   850#
FOV	   345#	   847#	  5544	  5562	  5607	  5777	  5781	  6250
FOVU	   345#
FRDLNK	   109#
FSELNK	   108#
FXU	   345#	   851#	  6271	  6275	  6291	  6300
HYPEN	   544#
INHCSH	    94#
INHPAG	    91#
INXM	   345#
IOCLR	   345#
ITERAT	    65#	   391
ITRCH1	   451#
ITRCNT	   391#	   761	   790	   794	   802	   803	   807
JOB41	   345#
JOBAPR	   345#
JOBCNI	   345#
JOBDDT	   345#
JOBFF	   345#
JOBOPC	   345#
JOBREL	   345#
JOBREN	   345#
JOBSA	   345#
JOBSYM	   345#
JOBTPC	   345#
JOBUSY	   345#
JOBUUO	   345#
JOBVER	   345#
KA10	   345
KAHZ50	    99#
KAIFLG	   408#
KI10	   345
KL10	   345
KLFLG	   409#	   763	   781	   800
KLOLD	   306
KLTYP	   625#	   762	   773	   815	   817	   831	   833
LDLNK	   110#	   361	   363                                                                                             SEQ 0184
LFP	   548#
LOOPER	    85#
LUUO	   345#
LUUO1	   478	   479
LUUO10	   478	   483
LUUO11	   478	   483
LUUO12	   478	   484
LUUO13	   478	   484
LUUO14	   478	   485
LUUO15	   478	   485
LUUO16	   478	   486
LUUO17	   478	   486
LUUO2	   478	   480
LUUO20	   478	   487
LUUO21	   478	   487
LUUO22	   478	   488
LUUO23	   478	   488
LUUO24	   478	   489
LUUO25	   478	   489
LUUO26	   478	   490
LUUO27	   478	   490
LUUO3	   478	   480
LUUO30	   478	   491
LUUO31	   478	   491
LUUO32	   478	   492
LUUO33	   478	   492
LUUO4	   478	   481
LUUO5	   478	   481
LUUO6	   478	   482
LUUO7	   478	   482
LUUOI	   345#
MAPNEW	   499#
MARGIN	   421#
MCNVER	     6#	    11	    27	   393
MEMLOW	   501#
MEMMAP	   399
MEMSIZ	   502#
MEMTOT	   500#
MINUS	   543#
MODDVC	    93#
MODDVL	   291	   291#	   394
MODDVU	   292	   292#	   395
MODLNK	   112#	   358
MONCTL	   411#	   810	   883
MONFLG	   410#	   755	   879
MONTEN	   412#	   760	   796	   825
MPVU	   345#
NOPNT	    81#
NXMU	   345#
OPRSEL	    95#
OPTIME	   513#
P	   138	   139	   140	   141	   345#	   433
PAG	   345#                                                                                                            SEQ 0185
PALERS	    87#
PARCLR	   345#
PARDIS	   345#
PAREA0	    58#
PAREA1	    59#	   389
PAREA2	    60#	   390
PAREA3	    61#	   387
PAREA4	    62#	   388
PAREA5	    63#	   400
PAREA6	    64#	   401
PAREA7	   400#
PAREA8	   401#
PARENB	   345#
PARU	   345#
PASCNT	   415#	   789
PATCH	  7461#
PDISF	   510#
PDLOVU	   345#
PERIOD	   540#
PFSTRT	   367#
PGMEND	    35#	    66#	  7467
PGMNAM	   392	   884	   887#
PI	   802
PICHN1	   345#
PICHN2	   345#
PICHN3	   345#
PICHN4	   345#
PICHN5	   345#
PICHN6	   345#
PICHN7	   345#
PICHNA	   345#
PICLR	   345#
PIOFF	   345#
PION	   345#
PLIST	   579#	   579
PLISTE	   579	   581#	   665
PLISTS	   580#
PLUS	   545#
PNTENB	   509#
PNTEXT	   388#
PNTFLG	   508#
PNTINH	   511#
PNTLPT	    82#
PNTNAM	   387#
PNTSPC	   512#
PVPAGI	   606#
PWFCLR	   345#
QUEST	   551#
RADIX	   554#
RADLSC	   556#
RADLSP	   555#
RANDBS	   389#
REENTR	   369#                                                                                                            SEQ 0186
RELIAB	    89#
REPT	   345#
REPT1	   345#
REPTU	   467#
REQSET	   345#
RESRT1	   444#
RESRT2	   445#
RETURN	   376#	   798	   805	   826
RSTART	    78#
RTP	   549#
RUNFLG	   416#
SADR1	    46#	   365
SADR10	    55#	   381
SADR11	    56#	   382
SADR2	    47#	   367
SADR3	    48#	   369
SADR4	    49#
SADR5	    50#	   430
SADR6	    51#	   431
SADR7	    52#	   378
SADR8	    53#	   379
SADR9	    54#	   380
SBINIT	   151	   375#
SCOPE	   468#
SFSTRT	   365#
SLASH	   552#
SN	   982#	  1048	  1048#	  1067	  1067#	  1086	  1086#	  1105	  1105#	  1124	  1124#	  1143	  1143#	  1162
	  1162#	  1181	  1181#	  1200	  1200#	  1219	  1219#	  1238	  1238#	  1257	  1257#	  1276	  1276#	  1295
	  1295#	  1314	  1314#	  1333	  1333#	  1346#	  1428	  1428#	  1448	  1448#	  1468	  1468#	  1488	  1488#
	  1508	  1508#	  1528	  1528#	  1548	  1548#	  1568	  1568#	  1588	  1588#	  1608	  1608#	  1628	  1628#
	  1648	  1648#	  1668	  1668#	  1688	  1688#	  1708	  1708#	  1721#	  1744	  1744#	  1763	  1763#	  1782
	  1782#	  1801	  1801#	  1820	  1820#	  1839	  1839#	  1858	  1858#	  1877	  1877#	  1896	  1896#	  1915
	  1915#	  1934	  1934#	  1953	  1953#	  1972	  1972#	  1991	  1991#	  2010	  2010#	  2023#	  2051	  2051#
	  2073	  2073#	  2095	  2095#	  2117	  2117#	  2139	  2139#	  2161	  2161#	  2183	  2183#	  2205	  2205#
	  2227	  2227#	  2249	  2249#	  2271	  2271#	  2293	  2293#	  2315	  2315#	  2337	  2337#	  2359	  2359#
	  2397#	  2428	  2428#	  2453	  2453#	  2478	  2478#	  2503	  2503#	  2528	  2528#	  2553	  2553#	  2578
	  2578#	  2603	  2603#	  2628	  2628#	  2653	  2653#	  2678	  2678#	  2703	  2703#	  2728	  2728#	  2753
	  2753#	  2778	  2778#	  2803	  2803#	  2828	  2828#	  2853	  2853#	  2870#	  2901	  2901#	  2926	  2926#
	  2951	  2951#	  2976	  2976#	  3001	  3001#	  3026	  3026#	  3051	  3051#	  3076	  3076#	  3101	  3101#
	  3126	  3126#	  3151	  3151#	  3176	  3176#	  3201	  3201#	  3226	  3226#	  3251	  3251#	  3276	  3276#
	  3301	  3301#	  3326	  3326#	  3363#	  3394	  3394#	  3419	  3419#	  3444	  3444#	  3469	  3469#	  3494
	  3494#	  3519	  3519#	  3544	  3544#	  3569	  3569#	  3594	  3594#	  3619	  3619#	  3644	  3644#	  3669
	  3669#	  3694	  3694#	  3719	  3719#	  3744	  3744#	  3769	  3769#	  3794	  3794#	  3819	  3819#	  3836#
	  3867	  3867#	  3892	  3892#	  3917	  3917#	  3942	  3942#	  3967	  3967#	  3992	  3992#	  4017	  4017#
	  4042	  4042#	  4067	  4067#	  4092	  4092#	  4117	  4117#	  4142	  4142#	  4167	  4167#	  4192	  4192#
	  4217	  4217#	  4242	  4242#	  4267	  4267#	  4292	  4292#	  4311#	  4333	  4333#	  4348	  4348#	  4363
	  4363#	  4378	  4378#	  4393	  4393#	  4408	  4408#	  4423	  4423#	  4438	  4438#	  4453	  4453#	  4468
	  4468#	  4483	  4483#	  4498	  4498#	  4513	  4513#	  4528	  4528#	  4543	  4543#	  4559#	  4580	  4580#
	  4595	  4595#	  4610	  4610#	  4625	  4625#	  4640	  4640#	  4655	  4655#	  4670	  4670#	  4685	  4685#
	  4700	  4700#	  4715	  4715#	  4730	  4730#	  4745	  4745#	  4760	  4760#	  4775	  4775#	  4790	  4790#
SPACE	   541#
SRTDDT	   371#
START	    46	    47	    48	    49	    50	    51	    52	    53	    54	    55	    56	   359	   758	   767     SEQ 0187
	   782	   786	   875#
START1	   378#
START2	   379#
START3	   380#
START4	   381#
START5	   382#
STARTA	   374	   784	   795	   804	   811	   821	   885	   906#
SUBLNK	   113#	   375
SWTEXR	   390#
SYSEXR	   363#
TAB	   542#
TESTPC	   417#
TICKS	   420#
TOTALS	    79#
TTNBRF	   600#
TTYFIL	   516#
TTYSPD	   517#
TXTINH	    90#
USER	   407#	   751	   754	   756	   757	   791	   875#	   875	   878	   880	   881
USERF	    39#	   345#	   753	   849#	   877
USRASB	    34#	   397
USRCRF	   526#
USRLFF	   525#
UUODIS	   479#
UUOEXT	   435#
UUORTN	   436#
UUOSKP	   433#
XX	  4313#	  4335	  4335#	  4336	  4338	  4350	  4350#	  4351	  4353	  4365	  4365#	  4366	  4368	  4380
	  4380#	  4381	  4383	  4395	  4395#	  4396	  4398	  4410	  4410#	  4411	  4413	  4425	  4425#	  4426
	  4428	  4440	  4440#	  4441	  4443	  4455	  4455#	  4456	  4458	  4470	  4470#	  4471	  4473	  4485
	  4485#	  4486	  4488	  4500	  4500#	  4501	  4503	  4515	  4515#	  4516	  4518	  4530	  4530#	  4531
	  4533	  4545	  4545#	  4546	  4548	  4561#	  4582	  4582#	  4583	  4584	  4597	  4597#	  4598	  4599
	  4612	  4612#	  4613	  4614	  4627	  4627#	  4628	  4629	  4642	  4642#	  4643	  4644	  4657	  4657#
	  4658	  4659	  4672	  4672#	  4673	  4674	  4687	  4687#	  4688	  4689	  4702	  4702#	  4703	  4704
	  4717	  4717#	  4718	  4719	  4732	  4732#	  4733	  4734	  4747	  4747#	  4748	  4749	  4762	  4762#
	  4763	  4764	  4777	  4777#	  4778	  4779	  4792	  4792#	  4793	  4794
ZZ	   983#	   993	   993#	   994	   995	   995#	   996	   997	   997#	   998	   999	   999#	  1000	  1001
	  1001#	  1002	  1003	  1003#	  1004	  1005	  1005#	  1006	  1007	  1007#	  1008	  1009	  1009#	  1010
	  1011	  1011#	  1012	  1013	  1013#	  1014	  1015	  1015#	  1016	  1017	  1017#	  1018	  1019	  1019#
	  1020	  1021	  1021#	  1022	  1023	  1023#	  1024	  1026#	  1049	  1049#	  1050	  1068	  1068#	  1069
	  1087	  1087#	  1088	  1106	  1106#	  1107	  1125	  1125#	  1126	  1144	  1144#	  1145	  1163	  1163#
	  1164	  1182	  1182#	  1183	  1201	  1201#	  1202	  1220	  1220#	  1221	  1239	  1239#	  1240	  1258
	  1258#	  1259	  1277	  1277#	  1278	  1296	  1296#	  1297	  1315	  1315#	  1316	  1334	  1334#	  1335
	  1347#	  1358	  1358#	  1359	  1360	  1361	  1361#	  1362	  1363	  1364	  1364#	  1365	  1366	  1367
	  1367#	  1368	  1369	  1370	  1370#	  1371	  1372	  1373	  1373#	  1374	  1375	  1376	  1376#	  1377
	  1378	  1379	  1379#	  1380	  1381	  1382	  1382#	  1383	  1384	  1385	  1385#	  1386	  1387	  1388
	  1388#	  1389	  1390	  1391	  1391#	  1392	  1393	  1394	  1394#	  1395	  1396	  1397	  1397#	  1398
	  1399	  1400	  1400#	  1401	  1402	  1404#	  1429	  1429#	  1430	  1449	  1449#	  1450	  1469	  1469#
	  1470	  1489	  1489#	  1490	  1509	  1509#	  1510	  1529	  1529#	  1530	  1549	  1549#	  1550	  1569
	  1569#	  1570	  1589	  1589#	  1590	  1609	  1609#	  1610	  1629	  1629#	  1630	  1649	  1649#	  1650
	  1669	  1669#	  1670	  1689	  1689#	  1690	  1709	  1709#	  1710	  1722#	  1745	  1745#	  1746	  1747
	  1764	  1764#	  1765	  1766	  1783	  1783#	  1784	  1785	  1802	  1802#	  1803	  1804	  1821	  1821#
	  1822	  1823	  1840	  1840#	  1841	  1842	  1859	  1859#	  1860	  1861	  1878	  1878#	  1879	  1880     SEQ 0188
	  1897	  1897#	  1898	  1899	  1916	  1916#	  1917	  1918	  1935	  1935#	  1936	  1937	  1954	  1954#
	  1955	  1956	  1973	  1973#	  1974	  1975	  1992	  1992#	  1993	  1994	  2011	  2011#	  2012	  2013
	  2024#	  2052	  2052#	  2053	  2054	  2055	  2074	  2074#	  2075	  2076	  2077	  2096	  2096#	  2097
	  2098	  2099	  2118	  2118#	  2119	  2120	  2121	  2140	  2140#	  2141	  2142	  2143	  2162	  2162#
	  2163	  2164	  2165	  2184	  2184#	  2185	  2186	  2187	  2206	  2206#	  2207	  2208	  2209	  2228
	  2228#	  2229	  2230	  2231	  2250	  2250#	  2251	  2252	  2253	  2272	  2272#	  2273	  2274	  2275
	  2294	  2294#	  2295	  2296	  2297	  2316	  2316#	  2317	  2318	  2319	  2338	  2338#	  2339	  2340
	  2341	  2360	  2360#	  2361	  2362	  2363	  2398#	  2429	  2429#	  2430	  2430#	  2432	  2435	  2454
	  2454#	  2455	  2457	  2460	  2479	  2479#	  2480	  2482	  2485	  2504	  2504#	  2505	  2507	  2510
	  2529	  2529#	  2530	  2532	  2535	  2554	  2554#	  2555	  2557	  2560	  2579	  2579#	  2580	  2582
	  2585	  2604	  2604#	  2605	  2607	  2610	  2629	  2629#	  2630	  2632	  2635	  2654	  2654#	  2655
	  2657	  2660	  2679	  2679#	  2680	  2682	  2685	  2704	  2704#	  2705	  2707	  2710	  2729	  2729#
	  2730	  2732	  2735	  2754	  2754#	  2755	  2757	  2760	  2779	  2779#	  2780	  2782	  2785	  2804
	  2804#	  2805	  2807	  2810	  2829	  2829#	  2830	  2832	  2835	  2854	  2854#	  2855	  2857	  2860
	  2871#	  2902	  2902#	  2903	  2903#	  2905	  2908	  2927	  2927#	  2928	  2930	  2933	  2952	  2952#
	  2953	  2955	  2958	  2977	  2977#	  2978	  2980	  2983	  3002	  3002#	  3003	  3005	  3008	  3027
	  3027#	  3028	  3030	  3033	  3052	  3052#	  3053	  3055	  3058	  3077	  3077#	  3078	  3080	  3083
	  3102	  3102#	  3103	  3105	  3108	  3127	  3127#	  3128	  3130	  3133	  3152	  3152#	  3153	  3155
	  3158	  3177	  3177#	  3178	  3180	  3183	  3202	  3202#	  3203	  3205	  3208	  3227	  3227#	  3228
	  3230	  3233	  3252	  3252#	  3253	  3255	  3258	  3277	  3277#	  3278	  3280	  3283	  3302	  3302#
	  3303	  3305	  3308	  3327	  3327#	  3328	  3330	  3333	  3364#	  3395	  3395#	  3396	  3396#	  3398
	  3401	  3420	  3420#	  3421	  3423	  3426	  3445	  3445#	  3446	  3448	  3451	  3470	  3470#	  3471
	  3473	  3476	  3495	  3495#	  3496	  3498	  3501	  3520	  3520#	  3521	  3523	  3526	  3545	  3545#
	  3546	  3548	  3551	  3570	  3570#	  3571	  3573	  3576	  3595	  3595#	  3596	  3598	  3601	  3620
	  3620#	  3621	  3623	  3626	  3645	  3645#	  3646	  3648	  3651	  3670	  3670#	  3671	  3673	  3676
	  3695	  3695#	  3696	  3698	  3701	  3720	  3720#	  3721	  3723	  3726	  3745	  3745#	  3746	  3748
	  3751	  3770	  3770#	  3771	  3773	  3776	  3795	  3795#	  3796	  3798	  3801	  3820	  3820#	  3821
	  3823	  3826	  3837#	  3868	  3868#	  3869	  3869#	  3871	  3874	  3893	  3893#	  3894	  3896	  3899
	  3918	  3918#	  3919	  3921	  3924	  3943	  3943#	  3944	  3946	  3949	  3968	  3968#	  3969	  3971
	  3974	  3993	  3993#	  3994	  3996	  3999	  4018	  4018#	  4019	  4021	  4024	  4043	  4043#	  4044
	  4046	  4049	  4068	  4068#	  4069	  4071	  4074	  4093	  4093#	  4094	  4096	  4099	  4118	  4118#
	  4119	  4121	  4124	  4143	  4143#	  4144	  4146	  4149	  4168	  4168#	  4169	  4171	  4174	  4193
	  4193#	  4194	  4196	  4199	  4218	  4218#	  4219	  4221	  4224	  4243	  4243#	  4244	  4246	  4249
	  4268	  4268#	  4269	  4271	  4274	  4293	  4293#	  4294	  4296	  4299	  4312#	  4334	  4334#	  4336
	  4337	  4338	  4349	  4349#	  4351	  4352	  4353	  4364	  4364#	  4366	  4367	  4368	  4379	  4379#
	  4381	  4382	  4383	  4394	  4394#	  4396	  4397	  4398	  4409	  4409#	  4411	  4412	  4413	  4424
	  4424#	  4426	  4427	  4428	  4439	  4439#	  4441	  4442	  4443	  4454	  4454#	  4456	  4457	  4458
	  4469	  4469#	  4471	  4472	  4473	  4484	  4484#	  4486	  4487	  4488	  4499	  4499#	  4501	  4502
	  4503	  4514	  4514#	  4516	  4517	  4518	  4529	  4529#	  4531	  4532	  4533	  4544	  4544#	  4546
	  4547	  4548	  4560#	  4581	  4581#	  4583	  4584	  4585	  4596	  4596#	  4598	  4599	  4600	  4611
	  4611#	  4613	  4614	  4615	  4626	  4626#	  4628	  4629	  4630	  4641	  4641#	  4643	  4644	  4645
	  4656	  4656#	  4658	  4659	  4660	  4671	  4671#	  4673	  4674	  4675	  4686	  4686#	  4688	  4689
	  4690	  4701	  4701#	  4703	  4704	  4705	  4716	  4716#	  4718	  4719	  4720	  4731	  4731#	  4733
	  4734	  4735	  4746	  4746#	  4748	  4749	  4750	  4761	  4761#	  4763	  4764	  4765	  4776	  4776#
	  4778	  4779	  4780	  4791	  4791#	  4793	  4794	  4795
$$420	   725#
$$421	   726#
$$422	   727#
$$423	   728#
$$424	   729#
$$425	   730#
$$426	   731#
$$427	   732#                                                                                                            SEQ 0189
$$430	   733#
$$431	   734#
$$432	   735#
$$433	   736#
$$434	   737#
$$435	   738#
$$436	   739#
$$437	   740#
$$500	   743#
$$501	   744#
$$502	   745#
$$503	   746#
$$BEGI	   711#
$$DTE0	   777	   816#
$$DTE1	   778	   818#
$$DTE2	   779	   832#
$$DTE3	   780	   834#
$$LOC	   708#	   747
$$MUUO	   631#
$$OUTE	   637#
$$STAR	   711	   712	   751#
$$TAX1	   649#
$$TAX2	   650#
$$TOGG	   643#
$$UUO	   620#
$ACC0	   458#
$BEGEN	   720#
$BEND1	   428#
$BEND2	   429#
$CHRIN	   519#
$CRLF	   521#
$DDT	   689#
$DEVCH	   345#
$DSKUP	   398#
$DTCHR	   701#
$DTCI	   695#
$DTCLK	   694#	   775
$DTCMD	   698#	   813	   829
$DTF11	   697#
$DTFLG	   693#	   774	   814	   819	   830	   835
$DTMTD	   702#
$DTMTI	   703#
$DTOPR	   700#	   776
$DTSEQ	   699#
$DTSWR	   705#
$DTT11	   696#
$DVCH1	   345#
$DVOFF	   515#
$EMODE	   396#
$ENDFX	   665#	   666
$FFF	   523#
$IBUF	   571#
$INEXT	   573#                                                                                                            SEQ 0190
$INNM	   572#
$ITRHL	   439#
$ITRX1	   440#
$LPAPE	  7381
$MMAP	   399#
$MODVL	   394#
$MODVU	   395#
$OBUF	   562#
$ONETM	   422#
$OUTEX	   564#
$OUTNM	   563#
$PAPER	   345
$PARER	   446#
$PNAME	   392#
$PSHER	   450#
$PVER	   393#
$RSRTX	   442#
$RSRTY	   443#
$SPAG1	   462#
$SPB1	   785	   791#
$SPBEN	   720	   789#
$SPBEX	   792	   800#
$SPBKL	   801	   807#
$SPBUS	   794#
$SPEC	   717	   784#
$SPKLD	   808	   825#
$START	   359#
$STD	   688#	   715#
$STKIL	   760#
$STKL	   769#
$STL	   690#
$STM	   691#	   717#
$SVAPR	   460#
$SVPAG	   461#
$SVPI	   459#
$SVUPC	   465#
$SVUUO	   464#
$TABF	   522#
$TTCHR	   518#
$TWCNT	   514#
$TYPNB	   520#
$UMODE	   397#
$UORTX	   437#
$USRHL	   441#
$UUOER	   438#	   479
$VTF	   524#
%ACTFL	   471#
%ACTUL	   472#
%COREC	   470#
%CORFL	   469#
%DISCR	   473#
%ERHI1	   612#
%ERHI2	   613#                                                                                                            SEQ 0191
%ERHI3	   614#
.JB41	   345#
.JBAPR	   345#
.JBCNI	   345#
.JBDDT	   345#
.JBFF	   345#
.JBOPC	   345#
.JBREL	   345#
.JBREN	   345#
.JBSA	   345#
.JBSYM	   345#
.JBTPC	   345#
.JBUSY	   345#
.JBUUO	   345#
.JBVER	   345#
CFLUSH	   262#
CINVAL	   261#                                                                                                            SEQ 0192
CLOKOP	   256#
CWRTBI	   263#
DROPDV	   223#
ENDUUO	   269#	   427
EOPUUO	   270#	   429
ERLOOP	   314#
ERLP1	   315#
ERLP2	   316#
ERRHLT	   158#
ERROR	   323#
ERROR1	   335#
ERUUO	   313#
EXIT	   797
FATAL	   157#
FRD36	   298#
FRD8	   299#
FREAD	   297#
FSELEC	   296#
GET	   141#
GO	   138#
HALT	   143#	   448	   725	   727	   728	   732	   746	   837	   928	   944	   959	   975	  1052	  1071
	  1090	  1109	  1128	  1147	  1166	  1185	  1204	  1223	  1242	  1261	  1280	  1299	  1318	  1337
	  1432	  1452	  1472	  1492	  1512	  1532	  1552	  1572	  1592	  1612	  1632	  1652	  1672	  1692
	  1712	  1749	  1768	  1787	  1806	  1825	  1844	  1863	  1882	  1901	  1920	  1939	  1958	  1977
	  1996	  2015	  2057	  2079	  2101	  2123	  2145	  2167	  2189	  2211	  2233	  2255	  2277	  2299
	  2321	  2343	  2365	  2389	  2437	  2462	  2487	  2512	  2537	  2562	  2587	  2612	  2637	  2662
	  2687	  2712	  2737	  2762	  2787	  2812	  2837	  2862	  2910	  2935	  2960	  2985	  3010	  3035
	  3060	  3085	  3110	  3135	  3160	  3185	  3210	  3235	  3260	  3285	  3310	  3335	  3355	  3403
	  3428	  3453	  3478	  3503	  3528	  3553	  3578	  3603	  3628	  3653	  3678	  3703	  3728	  3753
	  3778	  3803	  3828	  3876	  3901	  3926	  3951	  3976	  4001	  4026	  4051	  4076	  4101	  4126
	  4151	  4176	  4201	  4226	  4251	  4276	  4301	  4340	  4355	  4370	  4385	  4400	  4415	  4430
	  4445	  4460	  4475	  4490	  4505	  4520	  4535	  4550	  4587	  4602	  4617	  4632	  4647	  4662
	  4677	  4692	  4707	  4722	  4737	  4752	  4767	  4782	  4797	  4818	  4835	  4853	  4860	  4879
	  4886	  4911	  4937	  4944	  4962	  4969	  4983	  4987	  5006	  5024	  5043	  5059	  5076	  5094
	  5112	  5130	  5149	  5166	  5182	  5199	  5217	  5234	  5252	  5270	  5288	  5307	  5327	  5346
	  5362	  5379	  5400	  5418	  5439	  5463	  5487	  5508	  5528	  5549	  5568	  5592	  5615	  5636
	  5658	  5675	  5693	  5716	  5738	  5761	  5783	  5805	  5818	  5835	  5854	  5870	  5885	  5900
	  5914	  5930	  5946	  5964	  5971	  5979	  5987	  6005	  6022	  6029	  6037	  6045	  6063	  6070
	  6078	  6086	  6105	  6121	  6136	  6152	  6169	  6176	  6184	  6192	  6210	  6217	  6225	  6233
	  6257	  6277	  6302	  6322	  6347	  6365	  6381	  6396	  6410	  6426	  6442	  6456	  6472	  6491
	  6507	  6523	  6538	  6554	  6603	  6620	  6627	  6635	  6643	  6661	  6668	  6676	  6684	  6703
	  6719	  6734	  6750	  6768	  6775	  6791	  6807	  6824	  6839	  6857	  6874	  6891	  6906	  6923
	  6938	  6957	  6978	  6995	  7013	  7029	  7041	  7065	  7086	  7106	  7128	  7149	  7167	  7184
	  7249	  7266	  7282	  7299	  7315	  7332	  7349	  7367
JEN	   145#
JRSTF	   144#
MAPADR	   279#
MAPCNK	   280#
MAPMEM	   276#
MAPPNT	   282#
MAPSET	   281#
MEMSEG	   278#
MEMZRO	   277#                                                                                                            SEQ 0193
MODPCP	   289#
MODPCU	   288#
MTROP	   257#
NAME	     9#	    11
PBELL	   232#
PCRL	   226#
PCRL2	   230#
PCRL2F	   231#
PCRLF	   227#
PFORCE	   234#
PGMINT	   151#
PJRST	   142#
PMSG	   236#
PMSGF	   239#
PNT1	   192#
PNT11	   206#
PNT11F	   207#
PNT1F	   193#
PNT2	   194#
PNT2F	   195#
PNT3	   196#
PNT3F	   197#
PNT4	   198#
PNT4F	   199#
PNT5	   200#
PNT5F	   201#
PNT6	   202#
PNT6F	   203#
PNT7	   204#
PNT7F	   205#
PNTA	   178#
PNTADF	   209#
PNTADR	   208#
PNTAF	   179#
PNTAL	   180#
PNTALF	   181#
PNTCHF	   191#
PNTCHR	   190#
PNTCI	   188#
PNTCIF	   189#
PNTCW	   224#
PNTCWF	   225#
PNTDCF	   217#
PNTDEC	   216#
PNTDS	   218#
PNTDSF	   219#
PNTHW	   212#
PNTHWF	   213#
PNTMGN	   303#
PNTMSF	   185#
PNTMSG	   184#
PNTNM	   220#
PNTOCF	   215#                                                                                                            SEQ 0194
PNTOCS	   214#
PNTOCT	   210#
PNTOTF	   211#
PNTSIX	   221#
PNTSXF	   222#
PSIXL	   182#
PSIXLF	   183#
PSIXM	   186#
PSIXMF	   187#
PSP	   228#
PSPF	   229#
PUT	   140#
REPTUO	   317#
RTN	   139#	   435
S	    69#	    71	    75	   104	   106	   115	   118	   133	   134	   136	   147	   149	   153	   155
	   160	   164	   309	   311	   345	   350	   356	   383	   385	   403	   405	   423	   425	   454
	   456	   474	   476	   494	   496	   504	   506	   527	   532	   558	   560	   567	   569	   575
	   577	   583	   585	   589	   591	   596	   598	   602	   604	   608	   610	   616	   618	   621
	   623	   627	   629	   633	   635	   639	   641	   645	   647	   652	   657	   661	   663
SFLAG	   869#	  5432	  5455	  5479	  5501	  5521	  5542	  5560	  5582	  5605	  5708	  5730	  5753	  5775
	  5797	  6248	  6269	  6289	  6294	  6314	  6334	  6339
SIXBTZ	   245#
STOP	   860#	   927	   943	   958	   974	  1051	  1070	  1089	  1108	  1127	  1146	  1165	  1184	  1203
	  1222	  1241	  1260	  1279	  1298	  1317	  1336	  1431	  1451	  1471	  1491	  1511	  1531	  1551
	  1571	  1591	  1611	  1631	  1651	  1671	  1691	  1711	  1748	  1767	  1786	  1805	  1824	  1843
	  1862	  1881	  1900	  1919	  1938	  1957	  1976	  1995	  2014	  2056	  2078	  2100	  2122	  2144
	  2166	  2188	  2210	  2232	  2254	  2276	  2298	  2320	  2342	  2364	  2388	  2436	  2461	  2486
	  2511	  2536	  2561	  2586	  2611	  2636	  2661	  2686	  2711	  2736	  2761	  2786	  2811	  2836
	  2861	  2909	  2934	  2959	  2984	  3009	  3034	  3059	  3084	  3109	  3134	  3159	  3184	  3209
	  3234	  3259	  3284	  3309	  3334	  3354	  3402	  3427	  3452	  3477	  3502	  3527	  3552	  3577
	  3602	  3627	  3652	  3677	  3702	  3727	  3752	  3777	  3802	  3827	  3875	  3900	  3925	  3950
	  3975	  4000	  4025	  4050	  4075	  4100	  4125	  4150	  4175	  4200	  4225	  4250	  4275	  4300
	  4339	  4354	  4369	  4384	  4399	  4414	  4429	  4444	  4459	  4474	  4489	  4504	  4519	  4534
	  4549	  4586	  4601	  4616	  4631	  4646	  4661	  4676	  4691	  4706	  4721	  4736	  4751	  4766
	  4781	  4796	  4817	  4834	  4852	  4859	  4878	  4885	  4910	  4936	  4943	  4961	  4968	  4986
	  5005	  5023	  5042	  5058	  5075	  5093	  5111	  5129	  5148	  5165	  5181	  5198	  5216	  5233
	  5251	  5269	  5287	  5306	  5326	  5345	  5361	  5378	  5399	  5417	  5438	  5462	  5486	  5507
	  5527	  5548	  5567	  5591	  5614	  5635	  5656	  5674	  5692	  5715	  5737	  5760	  5782	  5804
	  5817	  5834	  5853	  5869	  5884	  5899	  5913	  5929	  5945	  5963	  5970	  5978	  5986	  6004
	  6021	  6028	  6036	  6044	  6062	  6069	  6077	  6085	  6104	  6120	  6135	  6151	  6168	  6175
	  6183	  6191	  6209	  6216	  6224	  6232	  6256	  6276	  6301	  6321	  6346	  6364	  6380	  6395
	  6409	  6425	  6441	  6455	  6471	  6490	  6506	  6522	  6537	  6553	  6602	  6619	  6626	  6634
	  6642	  6660	  6667	  6675	  6683	  6702	  6718	  6733	  6749	  6767	  6774	  6790	  6806	  6823
	  6838	  6856	  6873	  6890	  6905	  6922	  6937	  6956	  6977	  6994	  7012	  7028	  7040	  7064
	  7085	  7105	  7127	  7148	  7166	  7183	  7248	  7265	  7281	  7298	  7314	  7331	  7348	  7366
SWITCH	   251#
TTALTM	   173#
TTICHR	   166#
TTICNV	   171#
TTIDEC	   170#
TTINO	   168#
TTIOCT	   169#
TTIYES	   167#                                                                                                            SEQ 0195
TTLOOK	   172#
TTSIXB	   174#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 1
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0196


*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
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0197

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
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0198

*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
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0199

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,034442
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   200040034442 0            000001000001 
IT1	030614 0      0   0   200040034442 0            000001000001 
AT3	030614 0      0   0   000000034442 0            200040034442 
AT6	030614 034442 0   0   000000034442 0            200040034442 
FT0	030614 034442 0   0   000001000001 0            200040034442 
FT1A	030614 034442 0   0   000001000001 0            000001000001 
FT9	030615 034442 0   0   000001000001 0            000001000001 
ET0	030615 034442 0   0   000001000001 0            000001000001 
ST1	030615 034442 0   0   000001000001 0            000001000001 
ST2	030615 034442 0   0   000001000001 0            000001000001 
ST9	030615 034442 0   0   000001000001 0            000001000001 


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

*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,034442
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


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


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

*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
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0202

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
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0203

*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)=400000 000000 
FINAL

C(E)=400000 000000 

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 SETZ 	0,000000
INITIAL
C(AC)=000000 030714 
C(E)=000000 030714 
FINAL
C(AC)=000000 000000 

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

FT1A	030742 0      0   0   0            0            0            
FT9	030743 0      0   0   0            0            0            
ET0	030743 0      0   0   0            0            0            
ST1	030743 0      0   0   0            0            0            
ST2	030743 0      0   0   0            0            0            
ST9	030743 0      0   0   0            0            0            


*030743 MOVEI	1,000001
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030743 030743 0   0   201040000001 0            000000000001 
IT1	030743 0      0   0   201040000001 0            000000000001 
AT3	030743 0      0   0   000000000001 0            201040000001 
AT6	030743 000001 0   0   000000000001 0            201040000001 
FT1A	030743 000001 0   0   000000000001 0            000000000001 
FT9	030744 000001 0   0   000000000001 0            000000000001 
ET0	030744 000001 0   0   000000000001 0            000000000001 
ST1	030744 000001 0   0   000000000001 0            000000000001 
ST2	030744 000001 0   0   000000000001 0            000000000001 
ST9	030744 000001 0   0   000000000001 0            000000000001 


*030744 CAIE	1,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030744 030744 0   0   302040000001 0            000000000001 
IT1	030744 0      0   0   302040000001 0            000000000001 
AT3	030744 0      0   0   000000000001 0            302040000001 
AT6	030744 000001 0   0   000000000001 0            302040000001 
FT1A	030744 000001 0   0   000000000001 0            000000000001 
FT2	030744 000001 0   0   0            0            000000000001 
FT2RQ	030744 000001 0   0   000000000001 0            000000000001 
FT3	030744 000001 0   0   000000000001 0            000000000001 
FT9	030745 000001 0   0   000000000001 0            000000000001 
ET0	030746 000001 0   0   0            0            000000000001 
ST1A	030746 000001 0   0   0            0            000000000001 
ST9	030746 000001 0   0   0            0            000000000001 


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

*030746 JUMPA	0,030747
INITIAL
C(AC)=000000 000000 
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   0            0            000000030747 
FT3	030746 030747 0   0   0            0            000000030747 
FT9	030747 030747 0   0   0            0            000000030747 
ET0	030747 030747 0   0   0            0            000000030747 
ST1A	030747 030747 0   0   0            0            000000030747 
ST9	030747 030747 0   0   0            0            000000030747 


*030747 MOVEI	2,000002
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030747 030747 0   0   201100000002 0            000000000002 
IT1	030747 0      0   0   201100000002 0            000000000002 
AT3	030747 0      0   0   000000000002 0            201100000002 
AT6	030747 000002 0   0   000000000002 0            201100000002 
FT1A	030747 000002 0   0   000000000002 0            000000000002 
FT9	030750 000002 0   0   000000000002 0            000000000002 
ET0	030750 000002 0   0   000000000002 0            000000000002 
ST1	030750 000002 0   0   000000000002 0            000000000002 
ST2	030750 000002 0   0   000000000002 0            000000000002 
ST9	030750 000002 0   0   000000000002 0            000000000002 


*030750 CAIE	2,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030750 030750 0   0   302100000002 0            000000000002 
IT1	030750 0      0   0   302100000002 0            000000000002 
AT3	030750 0      0   0   000000000002 0            302100000002 
AT6	030750 000002 0   0   000000000002 0            302100000002 
FT1A	030750 000002 0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 11
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0206

FT2	030750 000002 0   0   0            0            000000000002 
FT2RQ	030750 000002 0   0   000000000002 0            000000000002 
FT3	030750 000002 0   0   000000000002 0            000000000002 
FT9	030751 000002 0   0   000000000002 0            000000000002 
ET0	030752 000002 0   0   0            0            000000000002 
ST1A	030752 000002 0   0   0            0            000000000002 
ST9	030752 000002 0   0   0            0            000000000002 


*030752 JUMPA	0,030753
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030752 030752 0   0   324000030753 0            000000030753 
IT1	030752 0      0   0   324000030753 0            000000030753 
AT3	030752 0      0   0   000000030753 0            324000030753 
AT6	030752 030753 0   0   000000030753 0            324000030753 
FT1A	030752 030753 0   0   000000030753 0            000000030753 
FT2	030752 030753 0   0   0            0            000000030753 
FT2RQ	030752 030753 0   0   0            0            000000030753 
FT3	030752 030753 0   0   0            0            000000030753 
FT9	030753 030753 0   0   0            0            000000030753 
ET0	030753 030753 0   0   0            0            000000030753 
ST1A	030753 030753 0   0   0            0            000000030753 
ST9	030753 030753 0   0   0            0            000000030753 


*030753 MOVEI	4,000004
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030753 030753 0   0   201200000004 0            000000000004 
IT1	030753 0      0   0   201200000004 0            000000000004 
AT3	030753 0      0   0   000000000004 0            201200000004 
AT6	030753 000004 0   0   000000000004 0            201200000004 
FT1A	030753 000004 0   0   000000000004 0            000000000004 
FT9	030754 000004 0   0   000000000004 0            000000000004 
ET0	030754 000004 0   0   000000000004 0            000000000004 
ST1	030754 000004 0   0   000000000004 0            000000000004 
ST2	030754 000004 0   0   000000000004 0            000000000004 
ST9	030754 000004 0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 12
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0207

*030754 CAIE	4,000004
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030754 030754 0   0   302200000004 0            000000000004 
IT1	030754 0      0   0   302200000004 0            000000000004 
AT3	030754 0      0   0   000000000004 0            302200000004 
AT6	030754 000004 0   0   000000000004 0            302200000004 
FT1A	030754 000004 0   0   000000000004 0            000000000004 
FT2	030754 000004 0   0   0            0            000000000004 
FT2RQ	030754 000004 0   0   000000000004 0            000000000004 
FT3	030754 000004 0   0   000000000004 0            000000000004 
FT9	030755 000004 0   0   000000000004 0            000000000004 
ET0	030756 000004 0   0   0            0            000000000004 
ST1A	030756 000004 0   0   0            0            000000000004 
ST9	030756 000004 0   0   0            0            000000000004 


*030756 JUMPA	0,030757
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030756 030756 0   0   324000030757 0            000000030757 
IT1	030756 0      0   0   324000030757 0            000000030757 
AT3	030756 0      0   0   000000030757 0            324000030757 
AT6	030756 030757 0   0   000000030757 0            324000030757 
FT1A	030756 030757 0   0   000000030757 0            000000030757 
FT2	030756 030757 0   0   0            0            000000030757 
FT2RQ	030756 030757 0   0   0            0            000000030757 
FT3	030756 030757 0   0   0            0            000000030757 
FT9	030757 030757 0   0   0            0            000000030757 
ET0	030757 030757 0   0   0            0            000000030757 
ST1A	030757 030757 0   0   0            0            000000030757 
ST9	030757 030757 0   0   0            0            000000030757 


*030757 MOVEI	10,000010
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030757 030757 0   0   201400000010 0            000000000010 
IT1	030757 0      0   0   201400000010 0            000000000010 
AT3	030757 0      0   0   000000000010 0            201400000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 13
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0208

AT6	030757 000010 0   0   000000000010 0            201400000010 
FT1A	030757 000010 0   0   000000000010 0            000000000010 
FT9	030760 000010 0   0   000000000010 0            000000000010 
ET0	030760 000010 0   0   000000000010 0            000000000010 
ST1	030760 000010 0   0   000000000010 0            000000000010 
ST2	030760 000010 0   0   000000000010 0            000000000010 
ST9	030760 000010 0   0   000000000010 0            000000000010 


*030760 CAIE	10,000010
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030760 030760 0   0   302400000010 0            000000000010 
IT1	030760 0      0   0   302400000010 0            000000000010 
AT3	030760 0      0   0   000000000010 0            302400000010 
AT6	030760 000010 0   0   000000000010 0            302400000010 
FT1A	030760 000010 0   0   000000000010 0            000000000010 
FT2	030760 000010 0   0   0            0            000000000010 
FT2RQ	030760 000010 0   0   000000000010 0            000000000010 
FT3	030760 000010 0   0   000000000010 0            000000000010 
FT9	030761 000010 0   0   000000000010 0            000000000010 
ET0	030762 000010 0   0   0            0            000000000010 
ST1A	030762 000010 0   0   0            0            000000000010 
ST9	030762 000010 0   0   0            0            000000000010 


*030762 JUMPA	0,030763
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030762 030762 0   0   324000030763 0            000000030763 
IT1	030762 0      0   0   324000030763 0            000000030763 
AT3	030762 0      0   0   000000030763 0            324000030763 
AT6	030762 030763 0   0   000000030763 0            324000030763 
FT1A	030762 030763 0   0   000000030763 0            000000030763 
FT2	030762 030763 0   0   0            0            000000030763 
FT2RQ	030762 030763 0   0   0            0            000000030763 
FT3	030762 030763 0   0   0            0            000000030763 
FT9	030763 030763 0   0   0            0            000000030763 
ET0	030763 030763 0   0   0            0            000000030763 
ST1A	030763 030763 0   0   0            0            000000030763 
ST9	030763 030763 0   0   0            0            000000030763 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 14
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0209

*030763 MOVEI	0,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030763 030763 0   0   201000000000 0            0            
IT1	030763 0      0   0   201000000000 0            0            
AT3	030763 0      0   0   0            0            201000000000 
AT6	030763 0      0   0   0            0            201000000000 
FT1A	030763 0      0   0   0            0            0            
FT9	030764 0      0   0   0            0            0            
ET0	030764 0      0   0   0            0            0            
ST1	030764 0      0   0   0            0            0            
ST2	030764 0      0   0   0            0            0            
ST9	030764 0      0   0   0            0            0            


*030764 MOVEI	1,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030764 030764 0   0   201040000001 0            000000000001 
IT1	030764 0      0   0   201040000001 0            000000000001 
AT3	030764 0      0   0   000000000001 0            201040000001 
AT6	030764 000001 0   0   000000000001 0            201040000001 
FT1A	030764 000001 0   0   000000000001 0            000000000001 
FT9	030765 000001 0   0   000000000001 0            000000000001 
ET0	030765 000001 0   0   000000000001 0            000000000001 
ST1	030765 000001 0   0   000000000001 0            000000000001 
ST2	030765 000001 0   0   000000000001 0            000000000001 
ST9	030765 000001 0   0   000000000001 0            000000000001 


*030765 MOVEI	2,000002
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030765 030765 0   0   201100000002 0            000000000002 
IT1	030765 0      0   0   201100000002 0            000000000002 
AT3	030765 0      0   0   000000000002 0            201100000002 
AT6	030765 000002 0   0   000000000002 0            201100000002 
FT1A	030765 000002 0   0   000000000002 0            000000000002 
FT9	030766 000002 0   0   000000000002 0            000000000002 
ET0	030766 000002 0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 15
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0210

ST1	030766 000002 0   0   000000000002 0            000000000002 
ST2	030766 000002 0   0   000000000002 0            000000000002 
ST9	030766 000002 0   0   000000000002 0            000000000002 


*030766 MOVEI	3,000003
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030766 030766 0   0   201140000003 0            000000000003 
IT1	030766 0      0   0   201140000003 0            000000000003 
AT3	030766 0      0   0   000000000003 0            201140000003 
AT6	030766 000003 0   0   000000000003 0            201140000003 
FT1A	030766 000003 0   0   000000000003 0            000000000003 
FT9	030767 000003 0   0   000000000003 0            000000000003 
ET0	030767 000003 0   0   000000000003 0            000000000003 
ST1	030767 000003 0   0   000000000003 0            000000000003 
ST2	030767 000003 0   0   000000000003 0            000000000003 
ST9	030767 000003 0   0   000000000003 0            000000000003 


*030767 MOVEI	4,000004
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030767 030767 0   0   201200000004 0            000000000004 
IT1	030767 0      0   0   201200000004 0            000000000004 
AT3	030767 0      0   0   000000000004 0            201200000004 
AT6	030767 000004 0   0   000000000004 0            201200000004 
FT1A	030767 000004 0   0   000000000004 0            000000000004 
FT9	030770 000004 0   0   000000000004 0            000000000004 
ET0	030770 000004 0   0   000000000004 0            000000000004 
ST1	030770 000004 0   0   000000000004 0            000000000004 
ST2	030770 000004 0   0   000000000004 0            000000000004 
ST9	030770 000004 0   0   000000000004 0            000000000004 


*030770 MOVEI	5,000005
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030770 030770 0   0   201240000005 0            000000000005 
IT1	030770 0      0   0   201240000005 0            000000000005 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 16
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0211

AT3	030770 0      0   0   000000000005 0            201240000005 
AT6	030770 000005 0   0   000000000005 0            201240000005 
FT1A	030770 000005 0   0   000000000005 0            000000000005 
FT9	030771 000005 0   0   000000000005 0            000000000005 
ET0	030771 000005 0   0   000000000005 0            000000000005 
ST1	030771 000005 0   0   000000000005 0            000000000005 
ST2	030771 000005 0   0   000000000005 0            000000000005 
ST9	030771 000005 0   0   000000000005 0            000000000005 


*030771 MOVEI	6,000006
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030771 030771 0   0   201300000006 0            000000000006 
IT1	030771 0      0   0   201300000006 0            000000000006 
AT3	030771 0      0   0   000000000006 0            201300000006 
AT6	030771 000006 0   0   000000000006 0            201300000006 
FT1A	030771 000006 0   0   000000000006 0            000000000006 
FT9	030772 000006 0   0   000000000006 0            000000000006 
ET0	030772 000006 0   0   000000000006 0            000000000006 
ST1	030772 000006 0   0   000000000006 0            000000000006 
ST2	030772 000006 0   0   000000000006 0            000000000006 
ST9	030772 000006 0   0   000000000006 0            000000000006 


*030772 MOVEI	7,000007
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030772 030772 0   0   201340000007 0            000000000007 
IT1	030772 0      0   0   201340000007 0            000000000007 
AT3	030772 0      0   0   000000000007 0            201340000007 
AT6	030772 000007 0   0   000000000007 0            201340000007 
FT1A	030772 000007 0   0   000000000007 0            000000000007 
FT9	030773 000007 0   0   000000000007 0            000000000007 
ET0	030773 000007 0   0   000000000007 0            000000000007 
ST1	030773 000007 0   0   000000000007 0            000000000007 
ST2	030773 000007 0   0   000000000007 0            000000000007 
ST9	030773 000007 0   0   000000000007 0            000000000007 


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

*030773 MOVEI	10,000010
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030773 030773 0   0   201400000010 0            000000000010 
IT1	030773 0      0   0   201400000010 0            000000000010 
AT3	030773 0      0   0   000000000010 0            201400000010 
AT6	030773 000010 0   0   000000000010 0            201400000010 
FT1A	030773 000010 0   0   000000000010 0            000000000010 
FT9	030774 000010 0   0   000000000010 0            000000000010 
ET0	030774 000010 0   0   000000000010 0            000000000010 
ST1	030774 000010 0   0   000000000010 0            000000000010 
ST2	030774 000010 0   0   000000000010 0            000000000010 
ST9	030774 000010 0   0   000000000010 0            000000000010 


*030774 MOVEI	11,000011
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030774 030774 0   0   201440000011 0            000000000011 
IT1	030774 0      0   0   201440000011 0            000000000011 
AT3	030774 0      0   0   000000000011 0            201440000011 
AT6	030774 000011 0   0   000000000011 0            201440000011 
FT1A	030774 000011 0   0   000000000011 0            000000000011 
FT9	030775 000011 0   0   000000000011 0            000000000011 
ET0	030775 000011 0   0   000000000011 0            000000000011 
ST1	030775 000011 0   0   000000000011 0            000000000011 
ST2	030775 000011 0   0   000000000011 0            000000000011 
ST9	030775 000011 0   0   000000000011 0            000000000011 


*030775 MOVEI	12,000012
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030775 030775 0   0   201500000012 0            000000000012 
IT1	030775 0      0   0   201500000012 0            000000000012 
AT3	030775 0      0   0   000000000012 0            201500000012 
AT6	030775 000012 0   0   000000000012 0            201500000012 
FT1A	030775 000012 0   0   000000000012 0            000000000012 
FT9	030776 000012 0   0   000000000012 0            000000000012 
ET0	030776 000012 0   0   000000000012 0            000000000012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 18
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0213

ST1	030776 000012 0   0   000000000012 0            000000000012 
ST2	030776 000012 0   0   000000000012 0            000000000012 
ST9	030776 000012 0   0   000000000012 0            000000000012 


*030776 MOVEI	13,000013
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030776 030776 0   0   201540000013 0            000000000013 
IT1	030776 0      0   0   201540000013 0            000000000013 
AT3	030776 0      0   0   000000000013 0            201540000013 
AT6	030776 000013 0   0   000000000013 0            201540000013 
FT1A	030776 000013 0   0   000000000013 0            000000000013 
FT9	030777 000013 0   0   000000000013 0            000000000013 
ET0	030777 000013 0   0   000000000013 0            000000000013 
ST1	030777 000013 0   0   000000000013 0            000000000013 
ST2	030777 000013 0   0   000000000013 0            000000000013 
ST9	030777 000013 0   0   000000000013 0            000000000013 


*030777 MOVEI	14,000014
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030777 030777 0   0   201600000014 0            000000000014 
IT1	030777 0      0   0   201600000014 0            000000000014 
AT3	030777 0      0   0   000000000014 0            201600000014 
AT6	030777 000014 0   0   000000000014 0            201600000014 
FT1A	030777 000014 0   0   000000000014 0            000000000014 
FT9	0      000014 0   0   000000000014 0            000000000014 
ET0	0      000014 0   0   000000000014 0            000000000014 
ST1	0      000014 0   0   000000000014 0            000000000014 
ST2	0      000014 0   0   000000000014 0            000000000014 
ST9	0      000014 0   0   000000000014 0            000000000014 


*031000 MOVEI	15,000015
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   201640000015 0            000000000015 
IT1	0      0      0   0   201640000015 0            000000000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 19
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0214

AT3	0      0      0   0   000000000015 0            201640000015 
AT6	0      000015 0   0   000000000015 0            201640000015 
FT1A	0      000015 0   0   000000000015 0            000000000015 
FT9	031001 000015 0   0   000000000015 0            000000000015 
ET0	031001 000015 0   0   000000000015 0            000000000015 
ST1	031001 000015 0   0   000000000015 0            000000000015 
ST2	031001 000015 0   0   000000000015 0            000000000015 
ST9	031001 000015 0   0   000000000015 0            000000000015 


*031001 MOVEI	16,000016
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031001 031001 0   0   201700000016 0            000000000016 
IT1	031001 0      0   0   201700000016 0            000000000016 
AT3	031001 0      0   0   000000000016 0            201700000016 
AT6	031001 000016 0   0   000000000016 0            201700000016 
FT1A	031001 000016 0   0   000000000016 0            000000000016 
FT9	031002 000016 0   0   000000000016 0            000000000016 
ET0	031002 000016 0   0   000000000016 0            000000000016 
ST1	031002 000016 0   0   000000000016 0            000000000016 
ST2	031002 000016 0   0   000000000016 0            000000000016 
ST9	031002 000016 0   0   000000000016 0            000000000016 


*031002 MOVEI	17,000017
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031002 031002 0   0   201740000017 0            000000000017 
IT1	031002 0      0   0   201740000017 0            000000000017 
AT3	031002 0      0   0   000000000017 0            201740000017 
AT6	031002 000017 0   0   000000000017 0            201740000017 
FT1A	031002 000017 0   0   000000000017 0            000000000017 
FT9	031003 000017 0   0   000000000017 0            000000000017 
ET0	031003 000017 0   0   000000000017 0            000000000017 
ST1	031003 000017 0   0   000000000017 0            000000000017 
ST2	031003 000017 0   0   000000000017 0            000000000017 
ST9	031003 000017 0   0   000000000017 0            000000000017 


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

*031003 CAIE	17,000017
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031003 031003 0   0   302740000017 0            000000000017 
IT1	031003 0      0   0   302740000017 0            000000000017 
AT3	031003 0      0   0   000000000017 0            302740000017 
AT6	031003 000017 0   0   000000000017 0            302740000017 
FT1A	031003 000017 0   0   000000000017 0            000000000017 
FT2	031003 000017 0   0   0            0            000000000017 
FT2RQ	031003 000017 0   0   000000000017 0            000000000017 
FT3	031003 000017 0   0   000000000017 0            000000000017 
FT9	031004 000017 0   0   000000000017 0            000000000017 
ET0	031005 000017 0   0   0            0            000000000017 
ST1A	031005 000017 0   0   0            0            000000000017 
ST9	031005 000017 0   0   0            0            000000000017 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031005 031005 0   0   324000031006 0            000000031006 
IT1	031005 0      0   0   324000031006 0            000000031006 
AT3	031005 0      0   0   000000031006 0            324000031006 
AT6	031005 031006 0   0   000000031006 0            324000031006 
FT1A	031005 031006 0   0   000000031006 0            000000031006 
FT2	031005 031006 0   0   0            0            000000031006 
FT2RQ	031005 031006 0   0   0            0            000000031006 
FT3	031005 031006 0   0   0            0            000000031006 
FT9	031006 031006 0   0   0            0            000000031006 
ET0	031006 031006 0   0   0            0            000000031006 
ST1A	031006 031006 0   0   0            0            000000031006 
ST9	031006 031006 0   0   0            0            000000031006 


*031006 CAIE	16,000016
INITIAL
C(AC)=000000 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031006 031006 0   0   302700000016 0            000000000016 
IT1	031006 0      0   0   302700000016 0            000000000016 
AT3	031006 0      0   0   000000000016 0            302700000016 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 21
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0216

AT6	031006 000016 0   0   000000000016 0            302700000016 
FT1A	031006 000016 0   0   000000000016 0            000000000016 
FT2	031006 000016 0   0   0            0            000000000016 
FT2RQ	031006 000016 0   0   000000000016 0            000000000016 
FT3	031006 000016 0   0   000000000016 0            000000000016 
FT9	031007 000016 0   0   000000000016 0            000000000016 
ET0	031010 000016 0   0   0            0            000000000016 
ST1A	031010 000016 0   0   0            0            000000000016 
ST9	031010 000016 0   0   0            0            000000000016 


*031010 JUMPA	0,031011
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031010 031010 0   0   324000031011 0            000000031011 
IT1	031010 0      0   0   324000031011 0            000000031011 
AT3	031010 0      0   0   000000031011 0            324000031011 
AT6	031010 031011 0   0   000000031011 0            324000031011 
FT1A	031010 031011 0   0   000000031011 0            000000031011 
FT2	031010 031011 0   0   0            0            000000031011 
FT2RQ	031010 031011 0   0   0            0            000000031011 
FT3	031010 031011 0   0   0            0            000000031011 
FT9	031011 031011 0   0   0            0            000000031011 
ET0	031011 031011 0   0   0            0            000000031011 
ST1A	031011 031011 0   0   0            0            000000031011 
ST9	031011 031011 0   0   0            0            000000031011 


*031011 CAIE	15,000015
INITIAL
C(AC)=000000 000015 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031011 031011 0   0   302640000015 0            000000000015 
IT1	031011 0      0   0   302640000015 0            000000000015 
AT3	031011 0      0   0   000000000015 0            302640000015 
AT6	031011 000015 0   0   000000000015 0            302640000015 
FT1A	031011 000015 0   0   000000000015 0            000000000015 
FT2	031011 000015 0   0   0            0            000000000015 
FT2RQ	031011 000015 0   0   000000000015 0            000000000015 
FT3	031011 000015 0   0   000000000015 0            000000000015 
FT9	031012 000015 0   0   000000000015 0            000000000015 
ET0	031013 000015 0   0   0            0            000000000015 
ST1A	031013 000015 0   0   0            0            000000000015 
ST9	031013 000015 0   0   0            0            000000000015 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 22
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0217


*031013 JUMPA	0,031014
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031013 031013 0   0   324000031014 0            000000031014 
IT1	031013 0      0   0   324000031014 0            000000031014 
AT3	031013 0      0   0   000000031014 0            324000031014 
AT6	031013 031014 0   0   000000031014 0            324000031014 
FT1A	031013 031014 0   0   000000031014 0            000000031014 
FT2	031013 031014 0   0   0            0            000000031014 
FT2RQ	031013 031014 0   0   0            0            000000031014 
FT3	031013 031014 0   0   0            0            000000031014 
FT9	031014 031014 0   0   0            0            000000031014 
ET0	031014 031014 0   0   0            0            000000031014 
ST1A	031014 031014 0   0   0            0            000000031014 
ST9	031014 031014 0   0   0            0            000000031014 


*031014 CAIE	14,000014
INITIAL
C(AC)=000000 000014 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031014 031014 0   0   302600000014 0            000000000014 
IT1	031014 0      0   0   302600000014 0            000000000014 
AT3	031014 0      0   0   000000000014 0            302600000014 
AT6	031014 000014 0   0   000000000014 0            302600000014 
FT1A	031014 000014 0   0   000000000014 0            000000000014 
FT2	031014 000014 0   0   0            0            000000000014 
FT2RQ	031014 000014 0   0   000000000014 0            000000000014 
FT3	031014 000014 0   0   000000000014 0            000000000014 
FT9	031015 000014 0   0   000000000014 0            000000000014 
ET0	031016 000014 0   0   0            0            000000000014 
ST1A	031016 000014 0   0   0            0            000000000014 
ST9	031016 000014 0   0   0            0            000000000014 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031016 031016 0   0   324000031017 0            000000031017 
IT1	031016 0      0   0   324000031017 0            000000031017 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 23
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0218

AT3	031016 0      0   0   000000031017 0            324000031017 
AT6	031016 031017 0   0   000000031017 0            324000031017 
FT1A	031016 031017 0   0   000000031017 0            000000031017 
FT2	031016 031017 0   0   0            0            000000031017 
FT2RQ	031016 031017 0   0   0            0            000000031017 
FT3	031016 031017 0   0   0            0            000000031017 
FT9	031017 031017 0   0   0            0            000000031017 
ET0	031017 031017 0   0   0            0            000000031017 
ST1A	031017 031017 0   0   0            0            000000031017 
ST9	031017 031017 0   0   0            0            000000031017 


*031017 CAIE	13,000013
INITIAL
C(AC)=000000 000013 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031017 031017 0   0   302540000013 0            000000000013 
IT1	031017 0      0   0   302540000013 0            000000000013 
AT3	031017 0      0   0   000000000013 0            302540000013 
AT6	031017 000013 0   0   000000000013 0            302540000013 
FT1A	031017 000013 0   0   000000000013 0            000000000013 
FT2	031017 000013 0   0   0            0            000000000013 
FT2RQ	031017 000013 0   0   000000000013 0            000000000013 
FT3	031017 000013 0   0   000000000013 0            000000000013 
FT9	031020 000013 0   0   000000000013 0            000000000013 
ET0	031021 000013 0   0   0            0            000000000013 
ST1A	031021 000013 0   0   0            0            000000000013 
ST9	031021 000013 0   0   0            0            000000000013 


*031021 JUMPA	0,031022
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031021 031021 0   0   324000031022 0            000000031022 
IT1	031021 0      0   0   324000031022 0            000000031022 
AT3	031021 0      0   0   000000031022 0            324000031022 
AT6	031021 031022 0   0   000000031022 0            324000031022 
FT1A	031021 031022 0   0   000000031022 0            000000031022 
FT2	031021 031022 0   0   0            0            000000031022 
FT2RQ	031021 031022 0   0   0            0            000000031022 
FT3	031021 031022 0   0   0            0            000000031022 
FT9	031022 031022 0   0   0            0            000000031022 
ET0	031022 031022 0   0   0            0            000000031022 
ST1A	031022 031022 0   0   0            0            000000031022 
ST9	031022 031022 0   0   0            0            000000031022 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 24
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0219



*031022 CAIE	12,000012
INITIAL
C(AC)=000000 000012 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031022 031022 0   0   302500000012 0            000000000012 
IT1	031022 0      0   0   302500000012 0            000000000012 
AT3	031022 0      0   0   000000000012 0            302500000012 
AT6	031022 000012 0   0   000000000012 0            302500000012 
FT1A	031022 000012 0   0   000000000012 0            000000000012 
FT2	031022 000012 0   0   0            0            000000000012 
FT2RQ	031022 000012 0   0   000000000012 0            000000000012 
FT3	031022 000012 0   0   000000000012 0            000000000012 
FT9	031023 000012 0   0   000000000012 0            000000000012 
ET0	031024 000012 0   0   0            0            000000000012 
ST1A	031024 000012 0   0   0            0            000000000012 
ST9	031024 000012 0   0   0            0            000000000012 


*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 25
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0220

*031025 CAIE	11,000011
INITIAL
C(AC)=000000 000011 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031025 031025 0   0   302440000011 0            000000000011 
IT1	031025 0      0   0   302440000011 0            000000000011 
AT3	031025 0      0   0   000000000011 0            302440000011 
AT6	031025 000011 0   0   000000000011 0            302440000011 
FT1A	031025 000011 0   0   000000000011 0            000000000011 
FT2	031025 000011 0   0   0            0            000000000011 
FT2RQ	031025 000011 0   0   000000000011 0            000000000011 
FT3	031025 000011 0   0   000000000011 0            000000000011 
FT9	031026 000011 0   0   000000000011 0            000000000011 
ET0	031027 000011 0   0   0            0            000000000011 
ST1A	031027 000011 0   0   0            0            000000000011 
ST9	031027 000011 0   0   0            0            000000000011 


*031027 JUMPA	0,031030
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031027 031027 0   0   324000031030 0            000000031030 
IT1	031027 0      0   0   324000031030 0            000000031030 
AT3	031027 0      0   0   000000031030 0            324000031030 
AT6	031027 031030 0   0   000000031030 0            324000031030 
FT1A	031027 031030 0   0   000000031030 0            000000031030 
FT2	031027 031030 0   0   0            0            000000031030 
FT2RQ	031027 031030 0   0   0            0            000000031030 
FT3	031027 031030 0   0   0            0            000000031030 
FT9	031030 031030 0   0   0            0            000000031030 
ET0	031030 031030 0   0   0            0            000000031030 
ST1A	031030 031030 0   0   0            0            000000031030 
ST9	031030 031030 0   0   0            0            000000031030 


*031030 CAIE	10,000010
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031030 031030 0   0   302400000010 0            000000000010 
IT1	031030 0      0   0   302400000010 0            000000000010 
AT3	031030 0      0   0   000000000010 0            302400000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 26
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0221

AT6	031030 000010 0   0   000000000010 0            302400000010 
FT1A	031030 000010 0   0   000000000010 0            000000000010 
FT2	031030 000010 0   0   0            0            000000000010 
FT2RQ	031030 000010 0   0   000000000010 0            000000000010 
FT3	031030 000010 0   0   000000000010 0            000000000010 
FT9	031031 000010 0   0   000000000010 0            000000000010 
ET0	031032 000010 0   0   0            0            000000000010 
ST1A	031032 000010 0   0   0            0            000000000010 
ST9	031032 000010 0   0   0            0            000000000010 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031032 031032 0   0   324000031033 0            000000031033 
IT1	031032 0      0   0   324000031033 0            000000031033 
AT3	031032 0      0   0   000000031033 0            324000031033 
AT6	031032 031033 0   0   000000031033 0            324000031033 
FT1A	031032 031033 0   0   000000031033 0            000000031033 
FT2	031032 031033 0   0   0            0            000000031033 
FT2RQ	031032 031033 0   0   0            0            000000031033 
FT3	031032 031033 0   0   0            0            000000031033 
FT9	031033 031033 0   0   0            0            000000031033 
ET0	031033 031033 0   0   0            0            000000031033 
ST1A	031033 031033 0   0   0            0            000000031033 
ST9	031033 031033 0   0   0            0            000000031033 


*031033 CAIE	7,000007
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031033 031033 0   0   302340000007 0            000000000007 
IT1	031033 0      0   0   302340000007 0            000000000007 
AT3	031033 0      0   0   000000000007 0            302340000007 
AT6	031033 000007 0   0   000000000007 0            302340000007 
FT1A	031033 000007 0   0   000000000007 0            000000000007 
FT2	031033 000007 0   0   0            0            000000000007 
FT2RQ	031033 000007 0   0   000000000007 0            000000000007 
FT3	031033 000007 0   0   000000000007 0            000000000007 
FT9	031034 000007 0   0   000000000007 0            000000000007 
ET0	031035 000007 0   0   0            0            000000000007 
ST1A	031035 000007 0   0   0            0            000000000007 
ST9	031035 000007 0   0   0            0            000000000007 

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


*031035 JUMPA	0,031036
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031035 031035 0   0   324000031036 0            000000031036 
IT1	031035 0      0   0   324000031036 0            000000031036 
AT3	031035 0      0   0   000000031036 0            324000031036 
AT6	031035 031036 0   0   000000031036 0            324000031036 
FT1A	031035 031036 0   0   000000031036 0            000000031036 
FT2	031035 031036 0   0   0            0            000000031036 
FT2RQ	031035 031036 0   0   0            0            000000031036 
FT3	031035 031036 0   0   0            0            000000031036 
FT9	031036 031036 0   0   0            0            000000031036 
ET0	031036 031036 0   0   0            0            000000031036 
ST1A	031036 031036 0   0   0            0            000000031036 
ST9	031036 031036 0   0   0            0            000000031036 


*031036 CAIE	6,000006
INITIAL
C(AC)=000000 000006 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031036 031036 0   0   302300000006 0            000000000006 
IT1	031036 0      0   0   302300000006 0            000000000006 
AT3	031036 0      0   0   000000000006 0            302300000006 
AT6	031036 000006 0   0   000000000006 0            302300000006 
FT1A	031036 000006 0   0   000000000006 0            000000000006 
FT2	031036 000006 0   0   0            0            000000000006 
FT2RQ	031036 000006 0   0   000000000006 0            000000000006 
FT3	031036 000006 0   0   000000000006 0            000000000006 
FT9	031037 000006 0   0   000000000006 0            000000000006 
ET0	031040 000006 0   0   0            0            000000000006 
ST1A	031040 000006 0   0   0            0            000000000006 
ST9	031040 000006 0   0   0            0            000000000006 


*031040 JUMPA	0,031041
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031040 031040 0   0   324000031041 0            000000031041 
IT1	031040 0      0   0   324000031041 0            000000031041 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 28
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0223

AT3	031040 0      0   0   000000031041 0            324000031041 
AT6	031040 031041 0   0   000000031041 0            324000031041 
FT1A	031040 031041 0   0   000000031041 0            000000031041 
FT2	031040 031041 0   0   0            0            000000031041 
FT2RQ	031040 031041 0   0   0            0            000000031041 
FT3	031040 031041 0   0   0            0            000000031041 
FT9	031041 031041 0   0   0            0            000000031041 
ET0	031041 031041 0   0   0            0            000000031041 
ST1A	031041 031041 0   0   0            0            000000031041 
ST9	031041 031041 0   0   0            0            000000031041 


*031041 CAIE	5,000005
INITIAL
C(AC)=000000 000005 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031041 031041 0   0   302240000005 0            000000000005 
IT1	031041 0      0   0   302240000005 0            000000000005 
AT3	031041 0      0   0   000000000005 0            302240000005 
AT6	031041 000005 0   0   000000000005 0            302240000005 
FT1A	031041 000005 0   0   000000000005 0            000000000005 
FT2	031041 000005 0   0   0            0            000000000005 
FT2RQ	031041 000005 0   0   000000000005 0            000000000005 
FT3	031041 000005 0   0   000000000005 0            000000000005 
FT9	031042 000005 0   0   000000000005 0            000000000005 
ET0	031043 000005 0   0   0            0            000000000005 
ST1A	031043 000005 0   0   0            0            000000000005 
ST9	031043 000005 0   0   0            0            000000000005 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031043 031043 0   0   324000031044 0            000000031044 
IT1	031043 0      0   0   324000031044 0            000000031044 
AT3	031043 0      0   0   000000031044 0            324000031044 
AT6	031043 031044 0   0   000000031044 0            324000031044 
FT1A	031043 031044 0   0   000000031044 0            000000031044 
FT2	031043 031044 0   0   0            0            000000031044 
FT2RQ	031043 031044 0   0   0            0            000000031044 
FT3	031043 031044 0   0   0            0            000000031044 
FT9	031044 031044 0   0   0            0            000000031044 
ET0	031044 031044 0   0   0            0            000000031044 
ST1A	031044 031044 0   0   0            0            000000031044 
ST9	031044 031044 0   0   0            0            000000031044 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 29
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0224



*031044 CAIE	4,000004
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031044 031044 0   0   302200000004 0            000000000004 
IT1	031044 0      0   0   302200000004 0            000000000004 
AT3	031044 0      0   0   000000000004 0            302200000004 
AT6	031044 000004 0   0   000000000004 0            302200000004 
FT1A	031044 000004 0   0   000000000004 0            000000000004 
FT2	031044 000004 0   0   0            0            000000000004 
FT2RQ	031044 000004 0   0   000000000004 0            000000000004 
FT3	031044 000004 0   0   000000000004 0            000000000004 
FT9	031045 000004 0   0   000000000004 0            000000000004 
ET0	031046 000004 0   0   0            0            000000000004 
ST1A	031046 000004 0   0   0            0            000000000004 
ST9	031046 000004 0   0   0            0            000000000004 


*031046 JUMPA	0,031047
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031046 031046 0   0   324000031047 0            000000031047 
IT1	031046 0      0   0   324000031047 0            000000031047 
AT3	031046 0      0   0   000000031047 0            324000031047 
AT6	031046 031047 0   0   000000031047 0            324000031047 
FT1A	031046 031047 0   0   000000031047 0            000000031047 
FT2	031046 031047 0   0   0            0            000000031047 
FT2RQ	031046 031047 0   0   0            0            000000031047 
FT3	031046 031047 0   0   0            0            000000031047 
FT9	031047 031047 0   0   0            0            000000031047 
ET0	031047 031047 0   0   0            0            000000031047 
ST1A	031047 031047 0   0   0            0            000000031047 
ST9	031047 031047 0   0   0            0            000000031047 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 30
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0225

*031047 CAIE	3,000003
INITIAL
C(AC)=000000 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031047 031047 0   0   302140000003 0            000000000003 
IT1	031047 0      0   0   302140000003 0            000000000003 
AT3	031047 0      0   0   000000000003 0            302140000003 
AT6	031047 000003 0   0   000000000003 0            302140000003 
FT1A	031047 000003 0   0   000000000003 0            000000000003 
FT2	031047 000003 0   0   0            0            000000000003 
FT2RQ	031047 000003 0   0   000000000003 0            000000000003 
FT3	031047 000003 0   0   000000000003 0            000000000003 
FT9	031050 000003 0   0   000000000003 0            000000000003 
ET0	031051 000003 0   0   0            0            000000000003 
ST1A	031051 000003 0   0   0            0            000000000003 
ST9	031051 000003 0   0   0            0            000000000003 


*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 


*031052 CAIE	2,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031052 031052 0   0   302100000002 0            000000000002 
IT1	031052 0      0   0   302100000002 0            000000000002 
AT3	031052 0      0   0   000000000002 0            302100000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 31
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0226

AT6	031052 000002 0   0   000000000002 0            302100000002 
FT1A	031052 000002 0   0   000000000002 0            000000000002 
FT2	031052 000002 0   0   0            0            000000000002 
FT2RQ	031052 000002 0   0   000000000002 0            000000000002 
FT3	031052 000002 0   0   000000000002 0            000000000002 
FT9	031053 000002 0   0   000000000002 0            000000000002 
ET0	031054 000002 0   0   0            0            000000000002 
ST1A	031054 000002 0   0   0            0            000000000002 
ST9	031054 000002 0   0   0            0            000000000002 


*031054 JUMPA	0,031055
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031054 031054 0   0   324000031055 0            000000031055 
IT1	031054 0      0   0   324000031055 0            000000031055 
AT3	031054 0      0   0   000000031055 0            324000031055 
AT6	031054 031055 0   0   000000031055 0            324000031055 
FT1A	031054 031055 0   0   000000031055 0            000000031055 
FT2	031054 031055 0   0   0            0            000000031055 
FT2RQ	031054 031055 0   0   0            0            000000031055 
FT3	031054 031055 0   0   0            0            000000031055 
FT9	031055 031055 0   0   0            0            000000031055 
ET0	031055 031055 0   0   0            0            000000031055 
ST1A	031055 031055 0   0   0            0            000000031055 
ST9	031055 031055 0   0   0            0            000000031055 


*031055 CAIE	1,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031055 031055 0   0   302040000001 0            000000000001 
IT1	031055 0      0   0   302040000001 0            000000000001 
AT3	031055 0      0   0   000000000001 0            302040000001 
AT6	031055 000001 0   0   000000000001 0            302040000001 
FT1A	031055 000001 0   0   000000000001 0            000000000001 
FT2	031055 000001 0   0   0            0            000000000001 
FT2RQ	031055 000001 0   0   000000000001 0            000000000001 
FT3	031055 000001 0   0   000000000001 0            000000000001 
FT9	031056 000001 0   0   000000000001 0            000000000001 
ET0	031057 000001 0   0   0            0            000000000001 
ST1A	031057 000001 0   0   0            0            000000000001 
ST9	031057 000001 0   0   0            0            000000000001 

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


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031057 031057 0   0   324000031060 0            000000031060 
IT1	031057 0      0   0   324000031060 0            000000031060 
AT3	031057 0      0   0   000000031060 0            324000031060 
AT6	031057 031060 0   0   000000031060 0            324000031060 
FT1A	031057 031060 0   0   000000031060 0            000000031060 
FT2	031057 031060 0   0   0            0            000000031060 
FT2RQ	031057 031060 0   0   0            0            000000031060 
FT3	031057 031060 0   0   0            0            000000031060 
FT9	031060 031060 0   0   0            0            000000031060 
ET0	031060 031060 0   0   0            0            000000031060 
ST1A	031060 031060 0   0   0            0            000000031060 
ST9	031060 031060 0   0   0            0            000000031060 


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


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


*031062 JUMPA	0,031063
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031062 031062 0   0   324000031063 0            000000031063 
IT1	031062 0      0   0   324000031063 0            000000031063 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 33
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0228

AT3	031062 0      0   0   000000031063 0            324000031063 
AT6	031062 031063 0   0   000000031063 0            324000031063 
FT1A	031062 031063 0   0   000000031063 0            000000031063 
FT2	031062 031063 0   0   0            0            000000031063 
FT2RQ	031062 031063 0   0   0            0            000000031063 
FT3	031062 031063 0   0   0            0            000000031063 
FT9	031063 031063 0   0   0            0            000000031063 
ET0	031063 031063 0   0   0            0            000000031063 
ST1A	031063 031063 0   0   0            0            000000031063 
ST9	031063 031063 0   0   0            0            000000031063 


*031063 MOVEI	0,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031063 031063 0   0   201000000001 0            000000000001 
IT1	031063 0      0   0   201000000001 0            000000000001 
AT3	031063 0      0   0   000000000001 0            201000000001 
AT6	031063 000001 0   0   000000000001 0            201000000001 
FT1A	031063 000001 0   0   000000000001 0            000000000001 
FT9	031064 000001 0   0   000000000001 0            000000000001 
ET0	031064 000001 0   0   000000000001 0            000000000001 
ST1	031064 000001 0   0   000000000001 0            000000000001 
ST2	031064 000001 0   0   000000000001 0            000000000001 
ST9	031064 000001 0   0   000000000001 0            000000000001 


*031064 MOVEM	0,000001
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL

C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031064 031064 0   0   202000000001 0            000000000001 
IT1	031064 0      0   0   202000000001 0            000000000001 
AT3	031064 0      0   0   000000000001 0            202000000001 
AT6	031064 000001 0   0   000000000001 0            202000000001 
FT1A	031064 000001 0   0   000000000001 0            000000000001 
FT2	031064 000001 0   0   0            0            000000000001 
FT2RQ	031064 000001 0   0   000000000001 0            000000000001 
FT3	031064 000001 0   0   000000000001 0            000000000001 
FT9	031065 000001 0   0   000000000001 0            000000000001 
ET0	031065 000001 0   0   000000000001 0            000000000001 
ST6	031065 000001 0   0   000000000001 0            000000000001 
ST6A	031065 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 34
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0229

ST9	031065 000001 0   0   000000000001 0            000000000001 


*031065 MOVEI	0,000002
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031065 031065 0   0   201000000002 0            000000000002 
IT1	031065 0      0   0   201000000002 0            000000000002 
AT3	031065 0      0   0   000000000002 0            201000000002 
AT6	031065 000002 0   0   000000000002 0            201000000002 
FT1A	031065 000002 0   0   000000000002 0            000000000002 
FT9	031066 000002 0   0   000000000002 0            000000000002 
ET0	031066 000002 0   0   000000000002 0            000000000002 
ST1	031066 000002 0   0   000000000002 0            000000000002 
ST2	031066 000002 0   0   000000000002 0            000000000002 
ST9	031066 000002 0   0   000000000002 0            000000000002 


*031066 MOVEM	0,000002
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL

C(E)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031066 031066 0   0   202000000002 0            000000000002 
IT1	031066 0      0   0   202000000002 0            000000000002 
AT3	031066 0      0   0   000000000002 0            202000000002 
AT6	031066 000002 0   0   000000000002 0            202000000002 
FT1A	031066 000002 0   0   000000000002 0            000000000002 
FT2	031066 000002 0   0   0            0            000000000002 
FT2RQ	031066 000002 0   0   000000000002 0            000000000002 
FT3	031066 000002 0   0   000000000002 0            000000000002 
FT9	031067 000002 0   0   000000000002 0            000000000002 
ET0	031067 000002 0   0   000000000002 0            000000000002 
ST6	031067 000002 0   0   000000000002 0            000000000002 
ST6A	031067 000002 0   0   000000000002 0            000000000002 
ST9	031067 000002 0   0   000000000002 0            000000000002 


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

*031067 MOVEI	0,000003
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031067 031067 0   0   201000000003 0            000000000003 
IT1	031067 0      0   0   201000000003 0            000000000003 
AT3	031067 0      0   0   000000000003 0            201000000003 
AT6	031067 000003 0   0   000000000003 0            201000000003 
FT1A	031067 000003 0   0   000000000003 0            000000000003 
FT9	031070 000003 0   0   000000000003 0            000000000003 
ET0	031070 000003 0   0   000000000003 0            000000000003 
ST1	031070 000003 0   0   000000000003 0            000000000003 
ST2	031070 000003 0   0   000000000003 0            000000000003 
ST9	031070 000003 0   0   000000000003 0            000000000003 


*031070 MOVEM	0,000003
INITIAL
C(AC)=000000 000003 
C(E)=000000 000003 
FINAL

C(E)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031070 031070 0   0   202000000003 0            000000000003 
IT1	031070 0      0   0   202000000003 0            000000000003 
AT3	031070 0      0   0   000000000003 0            202000000003 
AT6	031070 000003 0   0   000000000003 0            202000000003 
FT1A	031070 000003 0   0   000000000003 0            000000000003 
FT2	031070 000003 0   0   0            0            000000000003 
FT2RQ	031070 000003 0   0   000000000003 0            000000000003 
FT3	031070 000003 0   0   000000000003 0            000000000003 
FT9	031071 000003 0   0   000000000003 0            000000000003 
ET0	031071 000003 0   0   000000000003 0            000000000003 
ST6	031071 000003 0   0   000000000003 0            000000000003 
ST6A	031071 000003 0   0   000000000003 0            000000000003 
ST9	031071 000003 0   0   000000000003 0            000000000003 


*031071 MOVEI	0,000004
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031071 031071 0   0   201000000004 0            000000000004 
IT1	031071 0      0   0   201000000004 0            000000000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 36
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0231

AT3	031071 0      0   0   000000000004 0            201000000004 
AT6	031071 000004 0   0   000000000004 0            201000000004 
FT1A	031071 000004 0   0   000000000004 0            000000000004 
FT9	031072 000004 0   0   000000000004 0            000000000004 
ET0	031072 000004 0   0   000000000004 0            000000000004 
ST1	031072 000004 0   0   000000000004 0            000000000004 
ST2	031072 000004 0   0   000000000004 0            000000000004 
ST9	031072 000004 0   0   000000000004 0            000000000004 


*031072 MOVEM	0,000004
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL

C(E)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031072 031072 0   0   202000000004 0            000000000004 
IT1	031072 0      0   0   202000000004 0            000000000004 
AT3	031072 0      0   0   000000000004 0            202000000004 
AT6	031072 000004 0   0   000000000004 0            202000000004 
FT1A	031072 000004 0   0   000000000004 0            000000000004 
FT2	031072 000004 0   0   0            0            000000000004 
FT2RQ	031072 000004 0   0   000000000004 0            000000000004 
FT3	031072 000004 0   0   000000000004 0            000000000004 
FT9	031073 000004 0   0   000000000004 0            000000000004 
ET0	031073 000004 0   0   000000000004 0            000000000004 
ST6	031073 000004 0   0   000000000004 0            000000000004 
ST6A	031073 000004 0   0   000000000004 0            000000000004 
ST9	031073 000004 0   0   000000000004 0            000000000004 


*031073 MOVEI	0,000005
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031073 031073 0   0   201000000005 0            000000000005 
IT1	031073 0      0   0   201000000005 0            000000000005 
AT3	031073 0      0   0   000000000005 0            201000000005 
AT6	031073 000005 0   0   000000000005 0            201000000005 
FT1A	031073 000005 0   0   000000000005 0            000000000005 
FT9	031074 000005 0   0   000000000005 0            000000000005 
ET0	031074 000005 0   0   000000000005 0            000000000005 
ST1	031074 000005 0   0   000000000005 0            000000000005 
ST2	031074 000005 0   0   000000000005 0            000000000005 
ST9	031074 000005 0   0   000000000005 0            000000000005 

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


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

C(E)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031074 031074 0   0   202000000005 0            000000000005 
IT1	031074 0      0   0   202000000005 0            000000000005 
AT3	031074 0      0   0   000000000005 0            202000000005 
AT6	031074 000005 0   0   000000000005 0            202000000005 
FT1A	031074 000005 0   0   000000000005 0            000000000005 
FT2	031074 000005 0   0   0            0            000000000005 
FT2RQ	031074 000005 0   0   000000000005 0            000000000005 
FT3	031074 000005 0   0   000000000005 0            000000000005 
FT9	031075 000005 0   0   000000000005 0            000000000005 
ET0	031075 000005 0   0   000000000005 0            000000000005 
ST6	031075 000005 0   0   000000000005 0            000000000005 
ST6A	031075 000005 0   0   000000000005 0            000000000005 
ST9	031075 000005 0   0   000000000005 0            000000000005 


*031075 MOVEI	0,000006
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031075 031075 0   0   201000000006 0            000000000006 
IT1	031075 0      0   0   201000000006 0            000000000006 
AT3	031075 0      0   0   000000000006 0            201000000006 
AT6	031075 000006 0   0   000000000006 0            201000000006 
FT1A	031075 000006 0   0   000000000006 0            000000000006 
FT9	031076 000006 0   0   000000000006 0            000000000006 
ET0	031076 000006 0   0   000000000006 0            000000000006 
ST1	031076 000006 0   0   000000000006 0            000000000006 
ST2	031076 000006 0   0   000000000006 0            000000000006 
ST9	031076 000006 0   0   000000000006 0            000000000006 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 38
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0233

*031076 MOVEM	0,000006
INITIAL
C(AC)=000000 000006 
C(E)=000000 000006 
FINAL

C(E)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031076 031076 0   0   202000000006 0            000000000006 
IT1	031076 0      0   0   202000000006 0            000000000006 
AT3	031076 0      0   0   000000000006 0            202000000006 
AT6	031076 000006 0   0   000000000006 0            202000000006 
FT1A	031076 000006 0   0   000000000006 0            000000000006 
FT2	031076 000006 0   0   0            0            000000000006 
FT2RQ	031076 000006 0   0   000000000006 0            000000000006 
FT3	031076 000006 0   0   000000000006 0            000000000006 
FT9	031077 000006 0   0   000000000006 0            000000000006 
ET0	031077 000006 0   0   000000000006 0            000000000006 
ST6	031077 000006 0   0   000000000006 0            000000000006 
ST6A	031077 000006 0   0   000000000006 0            000000000006 
ST9	031077 000006 0   0   000000000006 0            000000000006 


*031077 MOVEI	0,000007
INITIAL
C(AC)=000000 000006 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031077 031077 0   0   201000000007 0            000000000007 
IT1	031077 0      0   0   201000000007 0            000000000007 
AT3	031077 0      0   0   000000000007 0            201000000007 
AT6	031077 000007 0   0   000000000007 0            201000000007 
FT1A	031077 000007 0   0   000000000007 0            000000000007 
FT9	0      000007 0   0   000000000007 0            000000000007 
ET0	0      000007 0   0   000000000007 0            000000000007 
ST1	0      000007 0   0   000000000007 0            000000000007 
ST2	0      000007 0   0   000000000007 0            000000000007 
ST9	0      000007 0   0   000000000007 0            000000000007 


*031100 MOVEM	0,000007
INITIAL
C(AC)=000000 000007 
C(E)=000000 000007 
FINAL

C(E)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 39
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0234

IT0	0      0      0   0   202000000007 0            000000000007 
IT1	0      0      0   0   202000000007 0            000000000007 
AT3	0      0      0   0   000000000007 0            202000000007 
AT6	0      000007 0   0   000000000007 0            202000000007 
FT1A	0      000007 0   0   000000000007 0            000000000007 
FT2	0      000007 0   0   0            0            000000000007 
FT2RQ	0      000007 0   0   000000000007 0            000000000007 
FT3	0      000007 0   0   000000000007 0            000000000007 
FT9	031101 000007 0   0   000000000007 0            000000000007 
ET0	031101 000007 0   0   000000000007 0            000000000007 
ST6	031101 000007 0   0   000000000007 0            000000000007 
ST6A	031101 000007 0   0   000000000007 0            000000000007 
ST9	031101 000007 0   0   000000000007 0            000000000007 


*031101 MOVEI	0,000010
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031101 031101 0   0   201000000010 0            000000000010 
IT1	031101 0      0   0   201000000010 0            000000000010 
AT3	031101 0      0   0   000000000010 0            201000000010 
AT6	031101 000010 0   0   000000000010 0            201000000010 
FT1A	031101 000010 0   0   000000000010 0            000000000010 
FT9	031102 000010 0   0   000000000010 0            000000000010 
ET0	031102 000010 0   0   000000000010 0            000000000010 
ST1	031102 000010 0   0   000000000010 0            000000000010 
ST2	031102 000010 0   0   000000000010 0            000000000010 
ST9	031102 000010 0   0   000000000010 0            000000000010 


*031102 MOVEM	0,000010
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL

C(E)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031102 031102 0   0   202000000010 0            000000000010 
IT1	031102 0      0   0   202000000010 0            000000000010 
AT3	031102 0      0   0   000000000010 0            202000000010 
AT6	031102 000010 0   0   000000000010 0            202000000010 
FT1A	031102 000010 0   0   000000000010 0            000000000010 
FT2	031102 000010 0   0   0            0            000000000010 
FT2RQ	031102 000010 0   0   000000000010 0            000000000010 
FT3	031102 000010 0   0   000000000010 0            000000000010 
FT9	031103 000010 0   0   000000000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 40
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0235

ET0	031103 000010 0   0   000000000010 0            000000000010 
ST6	031103 000010 0   0   000000000010 0            000000000010 
ST6A	031103 000010 0   0   000000000010 0            000000000010 
ST9	031103 000010 0   0   000000000010 0            000000000010 


*031103 MOVEI	0,000011
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031103 031103 0   0   201000000011 0            000000000011 
IT1	031103 0      0   0   201000000011 0            000000000011 
AT3	031103 0      0   0   000000000011 0            201000000011 
AT6	031103 000011 0   0   000000000011 0            201000000011 
FT1A	031103 000011 0   0   000000000011 0            000000000011 
FT9	031104 000011 0   0   000000000011 0            000000000011 
ET0	031104 000011 0   0   000000000011 0            000000000011 
ST1	031104 000011 0   0   000000000011 0            000000000011 
ST2	031104 000011 0   0   000000000011 0            000000000011 
ST9	031104 000011 0   0   000000000011 0            000000000011 


*031104 MOVEM	0,000011
INITIAL
C(AC)=000000 000011 
C(E)=000000 000011 
FINAL

C(E)=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031104 031104 0   0   202000000011 0            000000000011 
IT1	031104 0      0   0   202000000011 0            000000000011 
AT3	031104 0      0   0   000000000011 0            202000000011 
AT6	031104 000011 0   0   000000000011 0            202000000011 
FT1A	031104 000011 0   0   000000000011 0            000000000011 
FT2	031104 000011 0   0   0            0            000000000011 
FT2RQ	031104 000011 0   0   000000000011 0            000000000011 
FT3	031104 000011 0   0   000000000011 0            000000000011 
FT9	031105 000011 0   0   000000000011 0            000000000011 
ET0	031105 000011 0   0   000000000011 0            000000000011 
ST6	031105 000011 0   0   000000000011 0            000000000011 
ST6A	031105 000011 0   0   000000000011 0            000000000011 
ST9	031105 000011 0   0   000000000011 0            000000000011 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 41
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0236

*031105 MOVEI	0,000012
INITIAL
C(AC)=000000 000011 
FINAL
C(AC)=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031105 031105 0   0   201000000012 0            000000000012 
IT1	031105 0      0   0   201000000012 0            000000000012 
AT3	031105 0      0   0   000000000012 0            201000000012 
AT6	031105 000012 0   0   000000000012 0            201000000012 
FT1A	031105 000012 0   0   000000000012 0            000000000012 
FT9	031106 000012 0   0   000000000012 0            000000000012 
ET0	031106 000012 0   0   000000000012 0            000000000012 
ST1	031106 000012 0   0   000000000012 0            000000000012 
ST2	031106 000012 0   0   000000000012 0            000000000012 
ST9	031106 000012 0   0   000000000012 0            000000000012 


*031106 MOVEM	0,000012
INITIAL
C(AC)=000000 000012 
C(E)=000000 000012 
FINAL

C(E)=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031106 031106 0   0   202000000012 0            000000000012 
IT1	031106 0      0   0   202000000012 0            000000000012 
AT3	031106 0      0   0   000000000012 0            202000000012 
AT6	031106 000012 0   0   000000000012 0            202000000012 
FT1A	031106 000012 0   0   000000000012 0            000000000012 
FT2	031106 000012 0   0   0            0            000000000012 
FT2RQ	031106 000012 0   0   000000000012 0            000000000012 
FT3	031106 000012 0   0   000000000012 0            000000000012 
FT9	031107 000012 0   0   000000000012 0            000000000012 
ET0	031107 000012 0   0   000000000012 0            000000000012 
ST6	031107 000012 0   0   000000000012 0            000000000012 
ST6A	031107 000012 0   0   000000000012 0            000000000012 
ST9	031107 000012 0   0   000000000012 0            000000000012 


*031107 MOVEI	0,000013
INITIAL
C(AC)=000000 000012 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031107 031107 0   0   201000000013 0            000000000013 
IT1	031107 0      0   0   201000000013 0            000000000013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 42
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0237

AT3	031107 0      0   0   000000000013 0            201000000013 
AT6	031107 000013 0   0   000000000013 0            201000000013 
FT1A	031107 000013 0   0   000000000013 0            000000000013 
FT9	031110 000013 0   0   000000000013 0            000000000013 
ET0	031110 000013 0   0   000000000013 0            000000000013 
ST1	031110 000013 0   0   000000000013 0            000000000013 
ST2	031110 000013 0   0   000000000013 0            000000000013 
ST9	031110 000013 0   0   000000000013 0            000000000013 


*031110 MOVEM	0,000013
INITIAL
C(AC)=000000 000013 
C(E)=000000 000013 
FINAL

C(E)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031110 031110 0   0   202000000013 0            000000000013 
IT1	031110 0      0   0   202000000013 0            000000000013 
AT3	031110 0      0   0   000000000013 0            202000000013 
AT6	031110 000013 0   0   000000000013 0            202000000013 
FT1A	031110 000013 0   0   000000000013 0            000000000013 
FT2	031110 000013 0   0   0            0            000000000013 
FT2RQ	031110 000013 0   0   000000000013 0            000000000013 
FT3	031110 000013 0   0   000000000013 0            000000000013 
FT9	031111 000013 0   0   000000000013 0            000000000013 
ET0	031111 000013 0   0   000000000013 0            000000000013 
ST6	031111 000013 0   0   000000000013 0            000000000013 
ST6A	031111 000013 0   0   000000000013 0            000000000013 
ST9	031111 000013 0   0   000000000013 0            000000000013 


*031111 MOVEI	0,000014
INITIAL
C(AC)=000000 000013 
FINAL
C(AC)=000000 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031111 031111 0   0   201000000014 0            000000000014 
IT1	031111 0      0   0   201000000014 0            000000000014 
AT3	031111 0      0   0   000000000014 0            201000000014 
AT6	031111 000014 0   0   000000000014 0            201000000014 
FT1A	031111 000014 0   0   000000000014 0            000000000014 
FT9	031112 000014 0   0   000000000014 0            000000000014 
ET0	031112 000014 0   0   000000000014 0            000000000014 
ST1	031112 000014 0   0   000000000014 0            000000000014 
ST2	031112 000014 0   0   000000000014 0            000000000014 
ST9	031112 000014 0   0   000000000014 0            000000000014 

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


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

C(E)=000000 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031112 031112 0   0   202000000014 0            000000000014 
IT1	031112 0      0   0   202000000014 0            000000000014 
AT3	031112 0      0   0   000000000014 0            202000000014 
AT6	031112 000014 0   0   000000000014 0            202000000014 
FT1A	031112 000014 0   0   000000000014 0            000000000014 
FT2	031112 000014 0   0   0            0            000000000014 
FT2RQ	031112 000014 0   0   000000000014 0            000000000014 
FT3	031112 000014 0   0   000000000014 0            000000000014 
FT9	031113 000014 0   0   000000000014 0            000000000014 
ET0	031113 000014 0   0   000000000014 0            000000000014 
ST6	031113 000014 0   0   000000000014 0            000000000014 
ST6A	031113 000014 0   0   000000000014 0            000000000014 
ST9	031113 000014 0   0   000000000014 0            000000000014 


*031113 MOVEI	0,000015
INITIAL
C(AC)=000000 000014 
FINAL
C(AC)=000000 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031113 031113 0   0   201000000015 0            000000000015 
IT1	031113 0      0   0   201000000015 0            000000000015 
AT3	031113 0      0   0   000000000015 0            201000000015 
AT6	031113 000015 0   0   000000000015 0            201000000015 
FT1A	031113 000015 0   0   000000000015 0            000000000015 
FT9	031114 000015 0   0   000000000015 0            000000000015 
ET0	031114 000015 0   0   000000000015 0            000000000015 
ST1	031114 000015 0   0   000000000015 0            000000000015 
ST2	031114 000015 0   0   000000000015 0            000000000015 
ST9	031114 000015 0   0   000000000015 0            000000000015 


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

*031114 MOVEM	0,000015
INITIAL
C(AC)=000000 000015 
C(E)=000000 000015 
FINAL

C(E)=000000 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031114 031114 0   0   202000000015 0            000000000015 
IT1	031114 0      0   0   202000000015 0            000000000015 
AT3	031114 0      0   0   000000000015 0            202000000015 
AT6	031114 000015 0   0   000000000015 0            202000000015 
FT1A	031114 000015 0   0   000000000015 0            000000000015 
FT2	031114 000015 0   0   0            0            000000000015 
FT2RQ	031114 000015 0   0   000000000015 0            000000000015 
FT3	031114 000015 0   0   000000000015 0            000000000015 
FT9	031115 000015 0   0   000000000015 0            000000000015 
ET0	031115 000015 0   0   000000000015 0            000000000015 
ST6	031115 000015 0   0   000000000015 0            000000000015 
ST6A	031115 000015 0   0   000000000015 0            000000000015 
ST9	031115 000015 0   0   000000000015 0            000000000015 


*031115 MOVEI	0,000016
INITIAL
C(AC)=000000 000015 
FINAL
C(AC)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031115 031115 0   0   201000000016 0            000000000016 
IT1	031115 0      0   0   201000000016 0            000000000016 
AT3	031115 0      0   0   000000000016 0            201000000016 
AT6	031115 000016 0   0   000000000016 0            201000000016 
FT1A	031115 000016 0   0   000000000016 0            000000000016 
FT9	031116 000016 0   0   000000000016 0            000000000016 
ET0	031116 000016 0   0   000000000016 0            000000000016 
ST1	031116 000016 0   0   000000000016 0            000000000016 
ST2	031116 000016 0   0   000000000016 0            000000000016 
ST9	031116 000016 0   0   000000000016 0            000000000016 


*031116 MOVEM	0,000016
INITIAL
C(AC)=000000 000016 
C(E)=000000 000016 
FINAL

C(E)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 45
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0240

IT0	031116 031116 0   0   202000000016 0            000000000016 
IT1	031116 0      0   0   202000000016 0            000000000016 
AT3	031116 0      0   0   000000000016 0            202000000016 
AT6	031116 000016 0   0   000000000016 0            202000000016 
FT1A	031116 000016 0   0   000000000016 0            000000000016 
FT2	031116 000016 0   0   0            0            000000000016 
FT2RQ	031116 000016 0   0   000000000016 0            000000000016 
FT3	031116 000016 0   0   000000000016 0            000000000016 
FT9	031117 000016 0   0   000000000016 0            000000000016 
ET0	031117 000016 0   0   000000000016 0            000000000016 
ST6	031117 000016 0   0   000000000016 0            000000000016 
ST6A	031117 000016 0   0   000000000016 0            000000000016 
ST9	031117 000016 0   0   000000000016 0            000000000016 


*031117 MOVEI	0,000017
INITIAL
C(AC)=000000 000016 
FINAL
C(AC)=000000 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031117 031117 0   0   201000000017 0            000000000017 
IT1	031117 0      0   0   201000000017 0            000000000017 
AT3	031117 0      0   0   000000000017 0            201000000017 
AT6	031117 000017 0   0   000000000017 0            201000000017 
FT1A	031117 000017 0   0   000000000017 0            000000000017 
FT9	031120 000017 0   0   000000000017 0            000000000017 
ET0	031120 000017 0   0   000000000017 0            000000000017 
ST1	031120 000017 0   0   000000000017 0            000000000017 
ST2	031120 000017 0   0   000000000017 0            000000000017 
ST9	031120 000017 0   0   000000000017 0            000000000017 


*031120 MOVEM	0,000017
INITIAL
C(AC)=000000 000017 
C(E)=000000 000017 
FINAL

C(E)=000000 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031120 031120 0   0   202000000017 0            000000000017 
IT1	031120 0      0   0   202000000017 0            000000000017 
AT3	031120 0      0   0   000000000017 0            202000000017 
AT6	031120 000017 0   0   000000000017 0            202000000017 
FT1A	031120 000017 0   0   000000000017 0            000000000017 
FT2	031120 000017 0   0   0            0            000000000017 
FT2RQ	031120 000017 0   0   000000000017 0            000000000017 
FT3	031120 000017 0   0   000000000017 0            000000000017 
FT9	031121 000017 0   0   000000000017 0            000000000017 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 46
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0241

ET0	031121 000017 0   0   000000000017 0            000000000017 
ST6	031121 000017 0   0   000000000017 0            000000000017 
ST6A	031121 000017 0   0   000000000017 0            000000000017 
ST9	031121 000017 0   0   000000000017 0            000000000017 


*031121 CAIE	17,000017
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031121 031121 0   0   302740000017 0            000000000017 
IT1	031121 0      0   0   302740000017 0            000000000017 
AT3	031121 0      0   0   000000000017 0            302740000017 
AT6	031121 000017 0   0   000000000017 0            302740000017 
FT1A	031121 000017 0   0   000000000017 0            000000000017 
FT2	031121 000017 0   0   0            0            000000000017 
FT2RQ	031121 000017 0   0   000000000017 0            000000000017 
FT3	031121 000017 0   0   000000000017 0            000000000017 
FT9	031122 000017 0   0   000000000017 0            000000000017 
ET0	031123 000017 0   0   0            0            000000000017 
ST1A	031123 000017 0   0   0            0            000000000017 
ST9	031123 000017 0   0   0            0            000000000017 


*031123 JUMPA	0,031124
INITIAL
C(AC)=000000 000017 
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   000000000017 0            000000031124 
FT3	031123 031124 0   0   000000000017 0            000000031124 
FT9	031124 031124 0   0   000000000017 0            000000031124 
ET0	031124 031124 0   0   000000000017 0            000000031124 
ST1A	031124 031124 0   0   000000000017 0            000000031124 
ST9	031124 031124 0   0   000000000017 0            000000031124 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 47
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0242

*031124 CAIE	16,000016
INITIAL
C(AC)=000000 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031124 031124 0   0   302700000016 0            000000000016 
IT1	031124 0      0   0   302700000016 0            000000000016 
AT3	031124 0      0   0   000000000016 0            302700000016 
AT6	031124 000016 0   0   000000000016 0            302700000016 
FT1A	031124 000016 0   0   000000000016 0            000000000016 
FT2	031124 000016 0   0   0            0            000000000016 
FT2RQ	031124 000016 0   0   000000000016 0            000000000016 
FT3	031124 000016 0   0   000000000016 0            000000000016 
FT9	031125 000016 0   0   000000000016 0            000000000016 
ET0	031126 000016 0   0   0            0            000000000016 
ST1A	031126 000016 0   0   0            0            000000000016 
ST9	031126 000016 0   0   0            0            000000000016 


*031126 JUMPA	0,031127
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031126 031126 0   0   324000031127 0            000000031127 
IT1	031126 0      0   0   324000031127 0            000000031127 
AT3	031126 0      0   0   000000031127 0            324000031127 
AT6	031126 031127 0   0   000000031127 0            324000031127 
FT1A	031126 031127 0   0   000000031127 0            000000031127 
FT2	031126 031127 0   0   0            0            000000031127 
FT2RQ	031126 031127 0   0   000000000017 0            000000031127 
FT3	031126 031127 0   0   000000000017 0            000000031127 
FT9	031127 031127 0   0   000000000017 0            000000031127 
ET0	031127 031127 0   0   000000000017 0            000000031127 
ST1A	031127 031127 0   0   000000000017 0            000000031127 
ST9	031127 031127 0   0   000000000017 0            000000031127 


*031127 CAIE	15,000015
INITIAL
C(AC)=000000 000015 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031127 031127 0   0   302640000015 0            000000000015 
IT1	031127 0      0   0   302640000015 0            000000000015 
AT3	031127 0      0   0   000000000015 0            302640000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 48
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0243

AT6	031127 000015 0   0   000000000015 0            302640000015 
FT1A	031127 000015 0   0   000000000015 0            000000000015 
FT2	031127 000015 0   0   0            0            000000000015 
FT2RQ	031127 000015 0   0   000000000015 0            000000000015 
FT3	031127 000015 0   0   000000000015 0            000000000015 
FT9	031130 000015 0   0   000000000015 0            000000000015 
ET0	031131 000015 0   0   0            0            000000000015 
ST1A	031131 000015 0   0   0            0            000000000015 
ST9	031131 000015 0   0   0            0            000000000015 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031131 031131 0   0   324000031132 0            000000031132 
IT1	031131 0      0   0   324000031132 0            000000031132 
AT3	031131 0      0   0   000000031132 0            324000031132 
AT6	031131 031132 0   0   000000031132 0            324000031132 
FT1A	031131 031132 0   0   000000031132 0            000000031132 
FT2	031131 031132 0   0   0            0            000000031132 
FT2RQ	031131 031132 0   0   000000000017 0            000000031132 
FT3	031131 031132 0   0   000000000017 0            000000031132 
FT9	031132 031132 0   0   000000000017 0            000000031132 
ET0	031132 031132 0   0   000000000017 0            000000031132 
ST1A	031132 031132 0   0   000000000017 0            000000031132 
ST9	031132 031132 0   0   000000000017 0            000000031132 


*031132 CAIE	14,000014
INITIAL
C(AC)=000000 000014 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031132 031132 0   0   302600000014 0            000000000014 
IT1	031132 0      0   0   302600000014 0            000000000014 
AT3	031132 0      0   0   000000000014 0            302600000014 
AT6	031132 000014 0   0   000000000014 0            302600000014 
FT1A	031132 000014 0   0   000000000014 0            000000000014 
FT2	031132 000014 0   0   0            0            000000000014 
FT2RQ	031132 000014 0   0   000000000014 0            000000000014 
FT3	031132 000014 0   0   000000000014 0            000000000014 
FT9	031133 000014 0   0   000000000014 0            000000000014 
ET0	031134 000014 0   0   0            0            000000000014 
ST1A	031134 000014 0   0   0            0            000000000014 
ST9	031134 000014 0   0   0            0            000000000014 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 49
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0244


*031134 JUMPA	0,031135
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031134 031134 0   0   324000031135 0            000000031135 
IT1	031134 0      0   0   324000031135 0            000000031135 
AT3	031134 0      0   0   000000031135 0            324000031135 
AT6	031134 031135 0   0   000000031135 0            324000031135 
FT1A	031134 031135 0   0   000000031135 0            000000031135 
FT2	031134 031135 0   0   0            0            000000031135 
FT2RQ	031134 031135 0   0   000000000017 0            000000031135 
FT3	031134 031135 0   0   000000000017 0            000000031135 
FT9	031135 031135 0   0   000000000017 0            000000031135 
ET0	031135 031135 0   0   000000000017 0            000000031135 
ST1A	031135 031135 0   0   000000000017 0            000000031135 
ST9	031135 031135 0   0   000000000017 0            000000031135 


*031135 CAIE	13,000013
INITIAL
C(AC)=000000 000013 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031135 031135 0   0   302540000013 0            000000000013 
IT1	031135 0      0   0   302540000013 0            000000000013 
AT3	031135 0      0   0   000000000013 0            302540000013 
AT6	031135 000013 0   0   000000000013 0            302540000013 
FT1A	031135 000013 0   0   000000000013 0            000000000013 
FT2	031135 000013 0   0   0            0            000000000013 
FT2RQ	031135 000013 0   0   000000000013 0            000000000013 
FT3	031135 000013 0   0   000000000013 0            000000000013 
FT9	031136 000013 0   0   000000000013 0            000000000013 
ET0	031137 000013 0   0   0            0            000000000013 
ST1A	031137 000013 0   0   0            0            000000000013 
ST9	031137 000013 0   0   0            0            000000000013 


*031137 JUMPA	0,031140
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031137 031137 0   0   324000031140 0            000000031140 
IT1	031137 0      0   0   324000031140 0            000000031140 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 50
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0245

AT3	031137 0      0   0   000000031140 0            324000031140 
AT6	031137 031140 0   0   000000031140 0            324000031140 
FT1A	031137 031140 0   0   000000031140 0            000000031140 
FT2	031137 031140 0   0   0            0            000000031140 
FT2RQ	031137 031140 0   0   000000000017 0            000000031140 
FT3	031137 031140 0   0   000000000017 0            000000031140 
FT9	031140 031140 0   0   000000000017 0            000000031140 
ET0	031140 031140 0   0   000000000017 0            000000031140 
ST1A	031140 031140 0   0   000000000017 0            000000031140 
ST9	031140 031140 0   0   000000000017 0            000000031140 


*031140 CAIE	12,000012
INITIAL
C(AC)=000000 000012 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031140 031140 0   0   302500000012 0            000000000012 
IT1	031140 0      0   0   302500000012 0            000000000012 
AT3	031140 0      0   0   000000000012 0            302500000012 
AT6	031140 000012 0   0   000000000012 0            302500000012 
FT1A	031140 000012 0   0   000000000012 0            000000000012 
FT2	031140 000012 0   0   0            0            000000000012 
FT2RQ	031140 000012 0   0   000000000012 0            000000000012 
FT3	031140 000012 0   0   000000000012 0            000000000012 
FT9	031141 000012 0   0   000000000012 0            000000000012 
ET0	031142 000012 0   0   0            0            000000000012 
ST1A	031142 000012 0   0   0            0            000000000012 
ST9	031142 000012 0   0   0            0            000000000012 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031142 031142 0   0   324000031143 0            000000031143 
IT1	031142 0      0   0   324000031143 0            000000031143 
AT3	031142 0      0   0   000000031143 0            324000031143 
AT6	031142 031143 0   0   000000031143 0            324000031143 
FT1A	031142 031143 0   0   000000031143 0            000000031143 
FT2	031142 031143 0   0   0            0            000000031143 
FT2RQ	031142 031143 0   0   000000000017 0            000000031143 
FT3	031142 031143 0   0   000000000017 0            000000031143 
FT9	031143 031143 0   0   000000000017 0            000000031143 
ET0	031143 031143 0   0   000000000017 0            000000031143 
ST1A	031143 031143 0   0   000000000017 0            000000031143 
ST9	031143 031143 0   0   000000000017 0            000000031143 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 51
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0246



*031143 CAIE	11,000011
INITIAL
C(AC)=000000 000011 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031143 031143 0   0   302440000011 0            000000000011 
IT1	031143 0      0   0   302440000011 0            000000000011 
AT3	031143 0      0   0   000000000011 0            302440000011 
AT6	031143 000011 0   0   000000000011 0            302440000011 
FT1A	031143 000011 0   0   000000000011 0            000000000011 
FT2	031143 000011 0   0   0            0            000000000011 
FT2RQ	031143 000011 0   0   000000000011 0            000000000011 
FT3	031143 000011 0   0   000000000011 0            000000000011 
FT9	031144 000011 0   0   000000000011 0            000000000011 
ET0	031145 000011 0   0   0            0            000000000011 
ST1A	031145 000011 0   0   0            0            000000000011 
ST9	031145 000011 0   0   0            0            000000000011 


*031145 JUMPA	0,031146
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031145 031145 0   0   324000031146 0            000000031146 
IT1	031145 0      0   0   324000031146 0            000000031146 
AT3	031145 0      0   0   000000031146 0            324000031146 
AT6	031145 031146 0   0   000000031146 0            324000031146 
FT1A	031145 031146 0   0   000000031146 0            000000031146 
FT2	031145 031146 0   0   0            0            000000031146 
FT2RQ	031145 031146 0   0   000000000017 0            000000031146 
FT3	031145 031146 0   0   000000000017 0            000000031146 
FT9	031146 031146 0   0   000000000017 0            000000031146 
ET0	031146 031146 0   0   000000000017 0            000000031146 
ST1A	031146 031146 0   0   000000000017 0            000000031146 
ST9	031146 031146 0   0   000000000017 0            000000031146 


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

*031146 CAIE	10,000010
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031146 031146 0   0   302400000010 0            000000000010 
IT1	031146 0      0   0   302400000010 0            000000000010 
AT3	031146 0      0   0   000000000010 0            302400000010 
AT6	031146 000010 0   0   000000000010 0            302400000010 
FT1A	031146 000010 0   0   000000000010 0            000000000010 
FT2	031146 000010 0   0   0            0            000000000010 
FT2RQ	031146 000010 0   0   000000000010 0            000000000010 
FT3	031146 000010 0   0   000000000010 0            000000000010 
FT9	031147 000010 0   0   000000000010 0            000000000010 
ET0	031150 000010 0   0   0            0            000000000010 
ST1A	031150 000010 0   0   0            0            000000000010 
ST9	031150 000010 0   0   0            0            000000000010 


*031150 JUMPA	0,031151
INITIAL
C(AC)=000000 000017 
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   000000000017 0            000000031151 
FT3	031150 031151 0   0   000000000017 0            000000031151 
FT9	031151 031151 0   0   000000000017 0            000000031151 
ET0	031151 031151 0   0   000000000017 0            000000031151 
ST1A	031151 031151 0   0   000000000017 0            000000031151 
ST9	031151 031151 0   0   000000000017 0            000000031151 


*031151 CAIE	7,000007
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031151 031151 0   0   302340000007 0            000000000007 
IT1	031151 0      0   0   302340000007 0            000000000007 
AT3	031151 0      0   0   000000000007 0            302340000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 53
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0248

AT6	031151 000007 0   0   000000000007 0            302340000007 
FT1A	031151 000007 0   0   000000000007 0            000000000007 
FT2	031151 000007 0   0   0            0            000000000007 
FT2RQ	031151 000007 0   0   000000000007 0            000000000007 
FT3	031151 000007 0   0   000000000007 0            000000000007 
FT9	031152 000007 0   0   000000000007 0            000000000007 
ET0	031153 000007 0   0   0            0            000000000007 
ST1A	031153 000007 0   0   0            0            000000000007 
ST9	031153 000007 0   0   0            0            000000000007 


*031153 JUMPA	0,031154
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031153 031153 0   0   324000031154 0            000000031154 
IT1	031153 0      0   0   324000031154 0            000000031154 
AT3	031153 0      0   0   000000031154 0            324000031154 
AT6	031153 031154 0   0   000000031154 0            324000031154 
FT1A	031153 031154 0   0   000000031154 0            000000031154 
FT2	031153 031154 0   0   0            0            000000031154 
FT2RQ	031153 031154 0   0   000000000017 0            000000031154 
FT3	031153 031154 0   0   000000000017 0            000000031154 
FT9	031154 031154 0   0   000000000017 0            000000031154 
ET0	031154 031154 0   0   000000000017 0            000000031154 
ST1A	031154 031154 0   0   000000000017 0            000000031154 
ST9	031154 031154 0   0   000000000017 0            000000031154 


*031154 CAIE	6,000006
INITIAL
C(AC)=000000 000006 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031154 031154 0   0   302300000006 0            000000000006 
IT1	031154 0      0   0   302300000006 0            000000000006 
AT3	031154 0      0   0   000000000006 0            302300000006 
AT6	031154 000006 0   0   000000000006 0            302300000006 
FT1A	031154 000006 0   0   000000000006 0            000000000006 
FT2	031154 000006 0   0   0            0            000000000006 
FT2RQ	031154 000006 0   0   000000000006 0            000000000006 
FT3	031154 000006 0   0   000000000006 0            000000000006 
FT9	031155 000006 0   0   000000000006 0            000000000006 
ET0	031156 000006 0   0   0            0            000000000006 
ST1A	031156 000006 0   0   0            0            000000000006 
ST9	031156 000006 0   0   0            0            000000000006 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 54
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0249


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031156 031156 0   0   324000031157 0            000000031157 
IT1	031156 0      0   0   324000031157 0            000000031157 
AT3	031156 0      0   0   000000031157 0            324000031157 
AT6	031156 031157 0   0   000000031157 0            324000031157 
FT1A	031156 031157 0   0   000000031157 0            000000031157 
FT2	031156 031157 0   0   0            0            000000031157 
FT2RQ	031156 031157 0   0   000000000017 0            000000031157 
FT3	031156 031157 0   0   000000000017 0            000000031157 
FT9	031157 031157 0   0   000000000017 0            000000031157 
ET0	031157 031157 0   0   000000000017 0            000000031157 
ST1A	031157 031157 0   0   000000000017 0            000000031157 
ST9	031157 031157 0   0   000000000017 0            000000031157 


*031157 CAIE	5,000005
INITIAL
C(AC)=000000 000005 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031157 031157 0   0   302240000005 0            000000000005 
IT1	031157 0      0   0   302240000005 0            000000000005 
AT3	031157 0      0   0   000000000005 0            302240000005 
AT6	031157 000005 0   0   000000000005 0            302240000005 
FT1A	031157 000005 0   0   000000000005 0            000000000005 
FT2	031157 000005 0   0   0            0            000000000005 
FT2RQ	031157 000005 0   0   000000000005 0            000000000005 
FT3	031157 000005 0   0   000000000005 0            000000000005 
FT9	031160 000005 0   0   000000000005 0            000000000005 
ET0	031161 000005 0   0   0            0            000000000005 
ST1A	031161 000005 0   0   0            0            000000000005 
ST9	031161 000005 0   0   0            0            000000000005 


*031161 JUMPA	0,031162
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031161 031161 0   0   324000031162 0            000000031162 
IT1	031161 0      0   0   324000031162 0            000000031162 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 55
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0250

AT3	031161 0      0   0   000000031162 0            324000031162 
AT6	031161 031162 0   0   000000031162 0            324000031162 
FT1A	031161 031162 0   0   000000031162 0            000000031162 
FT2	031161 031162 0   0   0            0            000000031162 
FT2RQ	031161 031162 0   0   000000000017 0            000000031162 
FT3	031161 031162 0   0   000000000017 0            000000031162 
FT9	031162 031162 0   0   000000000017 0            000000031162 
ET0	031162 031162 0   0   000000000017 0            000000031162 
ST1A	031162 031162 0   0   000000000017 0            000000031162 
ST9	031162 031162 0   0   000000000017 0            000000031162 


*031162 CAIE	4,000004
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031162 031162 0   0   302200000004 0            000000000004 
IT1	031162 0      0   0   302200000004 0            000000000004 
AT3	031162 0      0   0   000000000004 0            302200000004 
AT6	031162 000004 0   0   000000000004 0            302200000004 
FT1A	031162 000004 0   0   000000000004 0            000000000004 
FT2	031162 000004 0   0   0            0            000000000004 
FT2RQ	031162 000004 0   0   000000000004 0            000000000004 
FT3	031162 000004 0   0   000000000004 0            000000000004 
FT9	031163 000004 0   0   000000000004 0            000000000004 
ET0	031164 000004 0   0   0            0            000000000004 
ST1A	031164 000004 0   0   0            0            000000000004 
ST9	031164 000004 0   0   0            0            000000000004 


*031164 JUMPA	0,031165
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031164 031164 0   0   324000031165 0            000000031165 
IT1	031164 0      0   0   324000031165 0            000000031165 
AT3	031164 0      0   0   000000031165 0            324000031165 
AT6	031164 031165 0   0   000000031165 0            324000031165 
FT1A	031164 031165 0   0   000000031165 0            000000031165 
FT2	031164 031165 0   0   0            0            000000031165 
FT2RQ	031164 031165 0   0   000000000017 0            000000031165 
FT3	031164 031165 0   0   000000000017 0            000000031165 
FT9	031165 031165 0   0   000000000017 0            000000031165 
ET0	031165 031165 0   0   000000000017 0            000000031165 
ST1A	031165 031165 0   0   000000000017 0            000000031165 
ST9	031165 031165 0   0   000000000017 0            000000031165 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 56
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0251



*031165 CAIE	3,000003
INITIAL
C(AC)=000000 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031165 031165 0   0   302140000003 0            000000000003 
IT1	031165 0      0   0   302140000003 0            000000000003 
AT3	031165 0      0   0   000000000003 0            302140000003 
AT6	031165 000003 0   0   000000000003 0            302140000003 
FT1A	031165 000003 0   0   000000000003 0            000000000003 
FT2	031165 000003 0   0   0            0            000000000003 
FT2RQ	031165 000003 0   0   000000000003 0            000000000003 
FT3	031165 000003 0   0   000000000003 0            000000000003 
FT9	031166 000003 0   0   000000000003 0            000000000003 
ET0	031167 000003 0   0   0            0            000000000003 
ST1A	031167 000003 0   0   0            0            000000000003 
ST9	031167 000003 0   0   0            0            000000000003 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031167 031167 0   0   324000031170 0            000000031170 
IT1	031167 0      0   0   324000031170 0            000000031170 
AT3	031167 0      0   0   000000031170 0            324000031170 
AT6	031167 031170 0   0   000000031170 0            324000031170 
FT1A	031167 031170 0   0   000000031170 0            000000031170 
FT2	031167 031170 0   0   0            0            000000031170 
FT2RQ	031167 031170 0   0   000000000017 0            000000031170 
FT3	031167 031170 0   0   000000000017 0            000000031170 
FT9	031170 031170 0   0   000000000017 0            000000031170 
ET0	031170 031170 0   0   000000000017 0            000000031170 
ST1A	031170 031170 0   0   000000000017 0            000000031170 
ST9	031170 031170 0   0   000000000017 0            000000031170 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 57
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0252

*031170 CAIE	2,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031170 031170 0   0   302100000002 0            000000000002 
IT1	031170 0      0   0   302100000002 0            000000000002 
AT3	031170 0      0   0   000000000002 0            302100000002 
AT6	031170 000002 0   0   000000000002 0            302100000002 
FT1A	031170 000002 0   0   000000000002 0            000000000002 
FT2	031170 000002 0   0   0            0            000000000002 
FT2RQ	031170 000002 0   0   000000000002 0            000000000002 
FT3	031170 000002 0   0   000000000002 0            000000000002 
FT9	031171 000002 0   0   000000000002 0            000000000002 
ET0	031172 000002 0   0   0            0            000000000002 
ST1A	031172 000002 0   0   0            0            000000000002 
ST9	031172 000002 0   0   0            0            000000000002 


*031172 JUMPA	0,031173
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031172 031172 0   0   324000031173 0            000000031173 
IT1	031172 0      0   0   324000031173 0            000000031173 
AT3	031172 0      0   0   000000031173 0            324000031173 
AT6	031172 031173 0   0   000000031173 0            324000031173 
FT1A	031172 031173 0   0   000000031173 0            000000031173 
FT2	031172 031173 0   0   0            0            000000031173 
FT2RQ	031172 031173 0   0   000000000017 0            000000031173 
FT3	031172 031173 0   0   000000000017 0            000000031173 
FT9	031173 031173 0   0   000000000017 0            000000031173 
ET0	031173 031173 0   0   000000000017 0            000000031173 
ST1A	031173 031173 0   0   000000000017 0            000000031173 
ST9	031173 031173 0   0   000000000017 0            000000031173 


*031173 CAIE	1,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031173 031173 0   0   302040000001 0            000000000001 
IT1	031173 0      0   0   302040000001 0            000000000001 
AT3	031173 0      0   0   000000000001 0            302040000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 58
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0253

AT6	031173 000001 0   0   000000000001 0            302040000001 
FT1A	031173 000001 0   0   000000000001 0            000000000001 
FT2	031173 000001 0   0   0            0            000000000001 
FT2RQ	031173 000001 0   0   000000000001 0            000000000001 
FT3	031173 000001 0   0   000000000001 0            000000000001 
FT9	031174 000001 0   0   000000000001 0            000000000001 
ET0	031175 000001 0   0   0            0            000000000001 
ST1A	031175 000001 0   0   0            0            000000000001 
ST9	031175 000001 0   0   0            0            000000000001 


*031175 JUMPA	0,031176
INITIAL
C(AC)=000000 000017 
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   000000000017 0            000000031176 
FT3	031175 031176 0   0   000000000017 0            000000031176 
FT9	031176 031176 0   0   000000000017 0            000000031176 
ET0	031176 031176 0   0   000000000017 0            000000031176 
ST1A	031176 031176 0   0   000000000017 0            000000031176 
ST9	031176 031176 0   0   000000000017 0            000000031176 


*031176 MOVEI	1,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031176 031176 0   0   201040000001 0            000000000001 
IT1	031176 0      0   0   201040000001 0            000000000001 
AT3	031176 0      0   0   000000000001 0            201040000001 
AT6	031176 000001 0   0   000000000001 0            201040000001 
FT1A	031176 000001 0   0   000000000001 0            000000000001 
FT9	031177 000001 0   0   000000000001 0            000000000001 
ET0	031177 000001 0   0   000000000001 0            000000000001 
ST1	031177 000001 0   0   000000000001 0            000000000001 
ST2	031177 000001 0   0   000000000001 0            000000000001 
ST9	031177 000001 0   0   000000000001 0            000000000001 


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

*031177 CAIE	1,000000(1)
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031177 031177 0   0   302041000000 0            000000000001 
IT1	031177 0      0   0   302041000000 0            000000000001 
AT1	031177 0      0   0   0            0            302041000000 
AT2	031177 0      0   0   000000000001 0            302041000000 
AT3	031177 0      0   0   000000000001 0            000000000001 
AT6	031177 000001 0   0   000000000001 0            000000000001 
FT1A	031177 000001 0   0   000000000001 0            000000000001 
FT2	031177 000001 0   0   0            0            000000000001 
FT2RQ	031177 000001 0   0   000000000001 0            000000000001 
FT3	031177 000001 0   0   000000000001 0            000000000001 
FT9	0      000001 0   0   000000000001 0            000000000001 
ET0	031201 000001 0   0   0            0            000000000001 
ST1A	031201 000001 0   0   0            0            000000000001 
ST9	031201 000001 0   0   0            0            000000000001 


*031201 JUMPA	0,031202
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031201 031201 0   0   324000031202 0            000000031202 
IT1	031201 0      0   0   324000031202 0            000000031202 
AT3	031201 0      0   0   000000031202 0            324000031202 
AT6	031201 031202 0   0   000000031202 0            324000031202 
FT1A	031201 031202 0   0   000000031202 0            000000031202 
FT2	031201 031202 0   0   0            0            000000031202 
FT2RQ	031201 031202 0   0   000000000017 0            000000031202 
FT3	031201 031202 0   0   000000000017 0            000000031202 
FT9	031202 031202 0   0   000000000017 0            000000031202 
ET0	031202 031202 0   0   000000000017 0            000000031202 
ST1A	031202 031202 0   0   000000000017 0            000000031202 
ST9	031202 031202 0   0   000000000017 0            000000031202 


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

*031202 MOVEI	2,000002
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031202 031202 0   0   201100000002 0            000000000002 
IT1	031202 0      0   0   201100000002 0            000000000002 
AT3	031202 0      0   0   000000000002 0            201100000002 
AT6	031202 000002 0   0   000000000002 0            201100000002 
FT1A	031202 000002 0   0   000000000002 0            000000000002 
FT9	031203 000002 0   0   000000000002 0            000000000002 
ET0	031203 000002 0   0   000000000002 0            000000000002 
ST1	031203 000002 0   0   000000000002 0            000000000002 
ST2	031203 000002 0   0   000000000002 0            000000000002 
ST9	031203 000002 0   0   000000000002 0            000000000002 


*031203 CAIE	2,000000(2)
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031203 031203 0   0   302102000000 0            000000000002 
IT1	031203 0      0   0   302102000000 0            000000000002 
AT1	031203 0      0   0   0            0            302102000000 
AT2	031203 0      0   0   000000000002 0            302102000000 
AT3	031203 0      0   0   000000000002 0            000000000002 
AT6	031203 000002 0   0   000000000002 0            000000000002 
FT1A	031203 000002 0   0   000000000002 0            000000000002 
FT2	031203 000002 0   0   0            0            000000000002 
FT2RQ	031203 000002 0   0   000000000002 0            000000000002 
FT3	031203 000002 0   0   000000000002 0            000000000002 
FT9	031204 000002 0   0   000000000002 0            000000000002 
ET0	031205 000002 0   0   0            0            000000000002 
ST1A	031205 000002 0   0   0            0            000000000002 
ST9	031205 000002 0   0   0            0            000000000002 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031205 031205 0   0   324000031206 0            000000031206 
IT1	031205 0      0   0   324000031206 0            000000031206 
AT3	031205 0      0   0   000000031206 0            324000031206 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 61
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0256

AT6	031205 031206 0   0   000000031206 0            324000031206 
FT1A	031205 031206 0   0   000000031206 0            000000031206 
FT2	031205 031206 0   0   0            0            000000031206 
FT2RQ	031205 031206 0   0   000000000017 0            000000031206 
FT3	031205 031206 0   0   000000000017 0            000000031206 
FT9	031206 031206 0   0   000000000017 0            000000031206 
ET0	031206 031206 0   0   000000000017 0            000000031206 
ST1A	031206 031206 0   0   000000000017 0            000000031206 
ST9	031206 031206 0   0   000000000017 0            000000031206 


*031206 MOVEI	3,000003
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031206 031206 0   0   201140000003 0            000000000003 
IT1	031206 0      0   0   201140000003 0            000000000003 
AT3	031206 0      0   0   000000000003 0            201140000003 
AT6	031206 000003 0   0   000000000003 0            201140000003 
FT1A	031206 000003 0   0   000000000003 0            000000000003 
FT9	031207 000003 0   0   000000000003 0            000000000003 
ET0	031207 000003 0   0   000000000003 0            000000000003 
ST1	031207 000003 0   0   000000000003 0            000000000003 
ST2	031207 000003 0   0   000000000003 0            000000000003 
ST9	031207 000003 0   0   000000000003 0            000000000003 


*031207 CAIE	3,000000(3)
INITIAL
C(AC)=000000 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031207 031207 0   0   302143000000 0            000000000003 
IT1	031207 0      0   0   302143000000 0            000000000003 
AT1	031207 0      0   0   0            0            302143000000 
AT2	031207 0      0   0   000000000003 0            302143000000 
AT3	031207 0      0   0   000000000003 0            000000000003 
AT6	031207 000003 0   0   000000000003 0            000000000003 
FT1A	031207 000003 0   0   000000000003 0            000000000003 
FT2	031207 000003 0   0   0            0            000000000003 
FT2RQ	031207 000003 0   0   000000000003 0            000000000003 
FT3	031207 000003 0   0   000000000003 0            000000000003 
FT9	031210 000003 0   0   000000000003 0            000000000003 
ET0	031211 000003 0   0   0            0            000000000003 
ST1A	031211 000003 0   0   0            0            000000000003 
ST9	031211 000003 0   0   0            0            000000000003 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 62
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0257


*031211 JUMPA	0,031212
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031211 031211 0   0   324000031212 0            000000031212 
IT1	031211 0      0   0   324000031212 0            000000031212 
AT3	031211 0      0   0   000000031212 0            324000031212 
AT6	031211 031212 0   0   000000031212 0            324000031212 
FT1A	031211 031212 0   0   000000031212 0            000000031212 
FT2	031211 031212 0   0   0            0            000000031212 
FT2RQ	031211 031212 0   0   000000000017 0            000000031212 
FT3	031211 031212 0   0   000000000017 0            000000031212 
FT9	031212 031212 0   0   000000000017 0            000000031212 
ET0	031212 031212 0   0   000000000017 0            000000031212 
ST1A	031212 031212 0   0   000000000017 0            000000031212 
ST9	031212 031212 0   0   000000000017 0            000000031212 


*031212 MOVEI	4,000004
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031212 031212 0   0   201200000004 0            000000000004 
IT1	031212 0      0   0   201200000004 0            000000000004 
AT3	031212 0      0   0   000000000004 0            201200000004 
AT6	031212 000004 0   0   000000000004 0            201200000004 
FT1A	031212 000004 0   0   000000000004 0            000000000004 
FT9	031213 000004 0   0   000000000004 0            000000000004 
ET0	031213 000004 0   0   000000000004 0            000000000004 
ST1	031213 000004 0   0   000000000004 0            000000000004 
ST2	031213 000004 0   0   000000000004 0            000000000004 
ST9	031213 000004 0   0   000000000004 0            000000000004 


*031213 CAIE	4,000000(4)
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031213 031213 0   0   302204000000 0            000000000004 
IT1	031213 0      0   0   302204000000 0            000000000004 
AT1	031213 0      0   0   0            0            302204000000 
AT2	031213 0      0   0   000000000004 0            302204000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 63
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0258

AT3	031213 0      0   0   000000000004 0            000000000004 
AT6	031213 000004 0   0   000000000004 0            000000000004 
FT1A	031213 000004 0   0   000000000004 0            000000000004 
FT2	031213 000004 0   0   0            0            000000000004 
FT2RQ	031213 000004 0   0   000000000004 0            000000000004 
FT3	031213 000004 0   0   000000000004 0            000000000004 
FT9	031214 000004 0   0   000000000004 0            000000000004 
ET0	031215 000004 0   0   0            0            000000000004 
ST1A	031215 000004 0   0   0            0            000000000004 
ST9	031215 000004 0   0   0            0            000000000004 


*031215 JUMPA	0,031216
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031215 031215 0   0   324000031216 0            000000031216 
IT1	031215 0      0   0   324000031216 0            000000031216 
AT3	031215 0      0   0   000000031216 0            324000031216 
AT6	031215 031216 0   0   000000031216 0            324000031216 
FT1A	031215 031216 0   0   000000031216 0            000000031216 
FT2	031215 031216 0   0   0            0            000000031216 
FT2RQ	031215 031216 0   0   000000000017 0            000000031216 
FT3	031215 031216 0   0   000000000017 0            000000031216 
FT9	031216 031216 0   0   000000000017 0            000000031216 
ET0	031216 031216 0   0   000000000017 0            000000031216 
ST1A	031216 031216 0   0   000000000017 0            000000031216 
ST9	031216 031216 0   0   000000000017 0            000000031216 


*031216 MOVEI	5,000005
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031216 031216 0   0   201240000005 0            000000000005 
IT1	031216 0      0   0   201240000005 0            000000000005 
AT3	031216 0      0   0   000000000005 0            201240000005 
AT6	031216 000005 0   0   000000000005 0            201240000005 
FT1A	031216 000005 0   0   000000000005 0            000000000005 
FT9	031217 000005 0   0   000000000005 0            000000000005 
ET0	031217 000005 0   0   000000000005 0            000000000005 
ST1	031217 000005 0   0   000000000005 0            000000000005 
ST2	031217 000005 0   0   000000000005 0            000000000005 
ST9	031217 000005 0   0   000000000005 0            000000000005 


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

*031217 CAIE	5,000000(5)
INITIAL
C(AC)=000000 000005 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031217 031217 0   0   302245000000 0            000000000005 
IT1	031217 0      0   0   302245000000 0            000000000005 
AT1	031217 0      0   0   0            0            302245000000 
AT2	031217 0      0   0   000000000005 0            302245000000 
AT3	031217 0      0   0   000000000005 0            000000000005 
AT6	031217 000005 0   0   000000000005 0            000000000005 
FT1A	031217 000005 0   0   000000000005 0            000000000005 
FT2	031217 000005 0   0   0            0            000000000005 
FT2RQ	031217 000005 0   0   000000000005 0            000000000005 
FT3	031217 000005 0   0   000000000005 0            000000000005 
FT9	031220 000005 0   0   000000000005 0            000000000005 
ET0	031221 000005 0   0   0            0            000000000005 
ST1A	031221 000005 0   0   0            0            000000000005 
ST9	031221 000005 0   0   0            0            000000000005 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031221 031221 0   0   324000031222 0            000000031222 
IT1	031221 0      0   0   324000031222 0            000000031222 
AT3	031221 0      0   0   000000031222 0            324000031222 
AT6	031221 031222 0   0   000000031222 0            324000031222 
FT1A	031221 031222 0   0   000000031222 0            000000031222 
FT2	031221 031222 0   0   0            0            000000031222 
FT2RQ	031221 031222 0   0   000000000017 0            000000031222 
FT3	031221 031222 0   0   000000000017 0            000000031222 
FT9	031222 031222 0   0   000000000017 0            000000031222 
ET0	031222 031222 0   0   000000000017 0            000000031222 
ST1A	031222 031222 0   0   000000000017 0            000000031222 
ST9	031222 031222 0   0   000000000017 0            000000031222 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 65
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0260

*031222 MOVEI	6,000006
INITIAL
C(AC)=000000 000006 
FINAL
C(AC)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031222 031222 0   0   201300000006 0            000000000006 
IT1	031222 0      0   0   201300000006 0            000000000006 
AT3	031222 0      0   0   000000000006 0            201300000006 
AT6	031222 000006 0   0   000000000006 0            201300000006 
FT1A	031222 000006 0   0   000000000006 0            000000000006 
FT9	031223 000006 0   0   000000000006 0            000000000006 
ET0	031223 000006 0   0   000000000006 0            000000000006 
ST1	031223 000006 0   0   000000000006 0            000000000006 
ST2	031223 000006 0   0   000000000006 0            000000000006 
ST9	031223 000006 0   0   000000000006 0            000000000006 


*031223 CAIE	6,000000(6)
INITIAL
C(AC)=000000 000006 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031223 031223 0   0   302306000000 0            000000000006 
IT1	031223 0      0   0   302306000000 0            000000000006 
AT1	031223 0      0   0   0            0            302306000000 
AT2	031223 0      0   0   000000000006 0            302306000000 
AT3	031223 0      0   0   000000000006 0            000000000006 
AT6	031223 000006 0   0   000000000006 0            000000000006 
FT1A	031223 000006 0   0   000000000006 0            000000000006 
FT2	031223 000006 0   0   0            0            000000000006 
FT2RQ	031223 000006 0   0   000000000006 0            000000000006 
FT3	031223 000006 0   0   000000000006 0            000000000006 
FT9	031224 000006 0   0   000000000006 0            000000000006 
ET0	031225 000006 0   0   0            0            000000000006 
ST1A	031225 000006 0   0   0            0            000000000006 
ST9	031225 000006 0   0   0            0            000000000006 


*031225 JUMPA	0,031226
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031225 031225 0   0   324000031226 0            000000031226 
IT1	031225 0      0   0   324000031226 0            000000031226 
AT3	031225 0      0   0   000000031226 0            324000031226 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 66
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0261

AT6	031225 031226 0   0   000000031226 0            324000031226 
FT1A	031225 031226 0   0   000000031226 0            000000031226 
FT2	031225 031226 0   0   0            0            000000031226 
FT2RQ	031225 031226 0   0   000000000017 0            000000031226 
FT3	031225 031226 0   0   000000000017 0            000000031226 
FT9	031226 031226 0   0   000000000017 0            000000031226 
ET0	031226 031226 0   0   000000000017 0            000000031226 
ST1A	031226 031226 0   0   000000000017 0            000000031226 
ST9	031226 031226 0   0   000000000017 0            000000031226 


*031226 MOVEI	7,000007
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031226 031226 0   0   201340000007 0            000000000007 
IT1	031226 0      0   0   201340000007 0            000000000007 
AT3	031226 0      0   0   000000000007 0            201340000007 
AT6	031226 000007 0   0   000000000007 0            201340000007 
FT1A	031226 000007 0   0   000000000007 0            000000000007 
FT9	031227 000007 0   0   000000000007 0            000000000007 
ET0	031227 000007 0   0   000000000007 0            000000000007 
ST1	031227 000007 0   0   000000000007 0            000000000007 
ST2	031227 000007 0   0   000000000007 0            000000000007 
ST9	031227 000007 0   0   000000000007 0            000000000007 


*031227 CAIE	7,000000(7)
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031227 031227 0   0   302347000000 0            000000000007 
IT1	031227 0      0   0   302347000000 0            000000000007 
AT1	031227 0      0   0   0            0            302347000000 
AT2	031227 0      0   0   000000000007 0            302347000000 
AT3	031227 0      0   0   000000000007 0            000000000007 
AT6	031227 000007 0   0   000000000007 0            000000000007 
FT1A	031227 000007 0   0   000000000007 0            000000000007 
FT2	031227 000007 0   0   0            0            000000000007 
FT2RQ	031227 000007 0   0   000000000007 0            000000000007 
FT3	031227 000007 0   0   000000000007 0            000000000007 
FT9	031230 000007 0   0   000000000007 0            000000000007 
ET0	031231 000007 0   0   0            0            000000000007 
ST1A	031231 000007 0   0   0            0            000000000007 
ST9	031231 000007 0   0   0            0            000000000007 

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


*031231 JUMPA	0,031232
INITIAL
C(AC)=000000 000017 
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   000000000017 0            000000031232 
FT3	031231 031232 0   0   000000000017 0            000000031232 
FT9	031232 031232 0   0   000000000017 0            000000031232 
ET0	031232 031232 0   0   000000000017 0            000000031232 
ST1A	031232 031232 0   0   000000000017 0            000000031232 
ST9	031232 031232 0   0   000000000017 0            000000031232 


*031232 MOVEI	10,000010
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031232 031232 0   0   201400000010 0            000000000010 
IT1	031232 0      0   0   201400000010 0            000000000010 
AT3	031232 0      0   0   000000000010 0            201400000010 
AT6	031232 000010 0   0   000000000010 0            201400000010 
FT1A	031232 000010 0   0   000000000010 0            000000000010 
FT9	031233 000010 0   0   000000000010 0            000000000010 
ET0	031233 000010 0   0   000000000010 0            000000000010 
ST1	031233 000010 0   0   000000000010 0            000000000010 
ST2	031233 000010 0   0   000000000010 0            000000000010 
ST9	031233 000010 0   0   000000000010 0            000000000010 


*031233 CAIE	10,000000(10)
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031233 031233 0   0   302410000000 0            000000000010 
IT1	031233 0      0   0   302410000000 0            000000000010 
AT1	031233 0      0   0   0            0            302410000000 
AT2	031233 0      0   0   000000000010 0            302410000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 68
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0263

AT3	031233 0      0   0   000000000010 0            000000000010 
AT6	031233 000010 0   0   000000000010 0            000000000010 
FT1A	031233 000010 0   0   000000000010 0            000000000010 
FT2	031233 000010 0   0   0            0            000000000010 
FT2RQ	031233 000010 0   0   000000000010 0            000000000010 
FT3	031233 000010 0   0   000000000010 0            000000000010 
FT9	031234 000010 0   0   000000000010 0            000000000010 
ET0	031235 000010 0   0   0            0            000000000010 
ST1A	031235 000010 0   0   0            0            000000000010 
ST9	031235 000010 0   0   0            0            000000000010 


*031235 JUMPA	0,031236
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031235 031235 0   0   324000031236 0            000000031236 
IT1	031235 0      0   0   324000031236 0            000000031236 
AT3	031235 0      0   0   000000031236 0            324000031236 
AT6	031235 031236 0   0   000000031236 0            324000031236 
FT1A	031235 031236 0   0   000000031236 0            000000031236 
FT2	031235 031236 0   0   0            0            000000031236 
FT2RQ	031235 031236 0   0   000000000017 0            000000031236 
FT3	031235 031236 0   0   000000000017 0            000000031236 
FT9	031236 031236 0   0   000000000017 0            000000031236 
ET0	031236 031236 0   0   000000000017 0            000000031236 
ST1A	031236 031236 0   0   000000000017 0            000000031236 
ST9	031236 031236 0   0   000000000017 0            000000031236 


*031236 MOVEI	11,000011
INITIAL
C(AC)=000000 000011 
FINAL
C(AC)=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031236 031236 0   0   201440000011 0            000000000011 
IT1	031236 0      0   0   201440000011 0            000000000011 
AT3	031236 0      0   0   000000000011 0            201440000011 
AT6	031236 000011 0   0   000000000011 0            201440000011 
FT1A	031236 000011 0   0   000000000011 0            000000000011 
FT9	031237 000011 0   0   000000000011 0            000000000011 
ET0	031237 000011 0   0   000000000011 0            000000000011 
ST1	031237 000011 0   0   000000000011 0            000000000011 
ST2	031237 000011 0   0   000000000011 0            000000000011 
ST9	031237 000011 0   0   000000000011 0            000000000011 


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

*031237 CAIE	11,000000(11)
INITIAL
C(AC)=000000 000011 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031237 031237 0   0   302451000000 0            000000000011 
IT1	031237 0      0   0   302451000000 0            000000000011 
AT1	031237 0      0   0   0            0            302451000000 
AT2	031237 0      0   0   000000000011 0            302451000000 
AT3	031237 0      0   0   000000000011 0            000000000011 
AT6	031237 000011 0   0   000000000011 0            000000000011 
FT1A	031237 000011 0   0   000000000011 0            000000000011 
FT2	031237 000011 0   0   0            0            000000000011 
FT2RQ	031237 000011 0   0   000000000011 0            000000000011 
FT3	031237 000011 0   0   000000000011 0            000000000011 
FT9	031240 000011 0   0   000000000011 0            000000000011 
ET0	031241 000011 0   0   0            0            000000000011 
ST1A	031241 000011 0   0   0            0            000000000011 
ST9	031241 000011 0   0   0            0            000000000011 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031241 031241 0   0   324000031242 0            000000031242 
IT1	031241 0      0   0   324000031242 0            000000031242 
AT3	031241 0      0   0   000000031242 0            324000031242 
AT6	031241 031242 0   0   000000031242 0            324000031242 
FT1A	031241 031242 0   0   000000031242 0            000000031242 
FT2	031241 031242 0   0   0            0            000000031242 
FT2RQ	031241 031242 0   0   000000000017 0            000000031242 
FT3	031241 031242 0   0   000000000017 0            000000031242 
FT9	031242 031242 0   0   000000000017 0            000000031242 
ET0	031242 031242 0   0   000000000017 0            000000031242 
ST1A	031242 031242 0   0   000000000017 0            000000031242 
ST9	031242 031242 0   0   000000000017 0            000000031242 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 70
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0265

*031242 MOVEI	12,000012
INITIAL
C(AC)=000000 000012 
FINAL
C(AC)=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031242 031242 0   0   201500000012 0            000000000012 
IT1	031242 0      0   0   201500000012 0            000000000012 
AT3	031242 0      0   0   000000000012 0            201500000012 
AT6	031242 000012 0   0   000000000012 0            201500000012 
FT1A	031242 000012 0   0   000000000012 0            000000000012 
FT9	031243 000012 0   0   000000000012 0            000000000012 
ET0	031243 000012 0   0   000000000012 0            000000000012 
ST1	031243 000012 0   0   000000000012 0            000000000012 
ST2	031243 000012 0   0   000000000012 0            000000000012 
ST9	031243 000012 0   0   000000000012 0            000000000012 


*031243 CAIE	12,000000(12)
INITIAL
C(AC)=000000 000012 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031243 031243 0   0   302512000000 0            000000000012 
IT1	031243 0      0   0   302512000000 0            000000000012 
AT1	031243 0      0   0   0            0            302512000000 
AT2	031243 0      0   0   000000000012 0            302512000000 
AT3	031243 0      0   0   000000000012 0            000000000012 
AT6	031243 000012 0   0   000000000012 0            000000000012 
FT1A	031243 000012 0   0   000000000012 0            000000000012 
FT2	031243 000012 0   0   0            0            000000000012 
FT2RQ	031243 000012 0   0   000000000012 0            000000000012 
FT3	031243 000012 0   0   000000000012 0            000000000012 
FT9	031244 000012 0   0   000000000012 0            000000000012 
ET0	031245 000012 0   0   0            0            000000000012 
ST1A	031245 000012 0   0   0            0            000000000012 
ST9	031245 000012 0   0   0            0            000000000012 


*031245 JUMPA	0,031246
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031245 031245 0   0   324000031246 0            000000031246 
IT1	031245 0      0   0   324000031246 0            000000031246 
AT3	031245 0      0   0   000000031246 0            324000031246 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 71
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0266

AT6	031245 031246 0   0   000000031246 0            324000031246 
FT1A	031245 031246 0   0   000000031246 0            000000031246 
FT2	031245 031246 0   0   0            0            000000031246 
FT2RQ	031245 031246 0   0   000000000017 0            000000031246 
FT3	031245 031246 0   0   000000000017 0            000000031246 
FT9	031246 031246 0   0   000000000017 0            000000031246 
ET0	031246 031246 0   0   000000000017 0            000000031246 
ST1A	031246 031246 0   0   000000000017 0            000000031246 
ST9	031246 031246 0   0   000000000017 0            000000031246 


*031246 MOVEI	13,000013
INITIAL
C(AC)=000000 000013 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031246 031246 0   0   201540000013 0            000000000013 
IT1	031246 0      0   0   201540000013 0            000000000013 
AT3	031246 0      0   0   000000000013 0            201540000013 
AT6	031246 000013 0   0   000000000013 0            201540000013 
FT1A	031246 000013 0   0   000000000013 0            000000000013 
FT9	031247 000013 0   0   000000000013 0            000000000013 
ET0	031247 000013 0   0   000000000013 0            000000000013 
ST1	031247 000013 0   0   000000000013 0            000000000013 
ST2	031247 000013 0   0   000000000013 0            000000000013 
ST9	031247 000013 0   0   000000000013 0            000000000013 


*031247 CAIE	13,000000(13)
INITIAL
C(AC)=000000 000013 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031247 031247 0   0   302553000000 0            000000000013 
IT1	031247 0      0   0   302553000000 0            000000000013 
AT1	031247 0      0   0   0            0            302553000000 
AT2	031247 0      0   0   000000000013 0            302553000000 
AT3	031247 0      0   0   000000000013 0            000000000013 
AT6	031247 000013 0   0   000000000013 0            000000000013 
FT1A	031247 000013 0   0   000000000013 0            000000000013 
FT2	031247 000013 0   0   0            0            000000000013 
FT2RQ	031247 000013 0   0   000000000013 0            000000000013 
FT3	031247 000013 0   0   000000000013 0            000000000013 
FT9	031250 000013 0   0   000000000013 0            000000000013 
ET0	031251 000013 0   0   0            0            000000000013 
ST1A	031251 000013 0   0   0            0            000000000013 
ST9	031251 000013 0   0   0            0            000000000013 

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


*031251 JUMPA	0,031252
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031251 031251 0   0   324000031252 0            000000031252 
IT1	031251 0      0   0   324000031252 0            000000031252 
AT3	031251 0      0   0   000000031252 0            324000031252 
AT6	031251 031252 0   0   000000031252 0            324000031252 
FT1A	031251 031252 0   0   000000031252 0            000000031252 
FT2	031251 031252 0   0   0            0            000000031252 
FT2RQ	031251 031252 0   0   000000000017 0            000000031252 
FT3	031251 031252 0   0   000000000017 0            000000031252 
FT9	031252 031252 0   0   000000000017 0            000000031252 
ET0	031252 031252 0   0   000000000017 0            000000031252 
ST1A	031252 031252 0   0   000000000017 0            000000031252 
ST9	031252 031252 0   0   000000000017 0            000000031252 


*031252 MOVEI	14,000014
INITIAL
C(AC)=000000 000014 
FINAL
C(AC)=000000 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031252 031252 0   0   201600000014 0            000000000014 
IT1	031252 0      0   0   201600000014 0            000000000014 
AT3	031252 0      0   0   000000000014 0            201600000014 
AT6	031252 000014 0   0   000000000014 0            201600000014 
FT1A	031252 000014 0   0   000000000014 0            000000000014 
FT9	031253 000014 0   0   000000000014 0            000000000014 
ET0	031253 000014 0   0   000000000014 0            000000000014 
ST1	031253 000014 0   0   000000000014 0            000000000014 
ST2	031253 000014 0   0   000000000014 0            000000000014 
ST9	031253 000014 0   0   000000000014 0            000000000014 


*031253 CAIE	14,000000(14)
INITIAL
C(AC)=000000 000014 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031253 031253 0   0   302614000000 0            000000000014 
IT1	031253 0      0   0   302614000000 0            000000000014 
AT1	031253 0      0   0   0            0            302614000000 
AT2	031253 0      0   0   000000000014 0            302614000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 73
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0268

AT3	031253 0      0   0   000000000014 0            000000000014 
AT6	031253 000014 0   0   000000000014 0            000000000014 
FT1A	031253 000014 0   0   000000000014 0            000000000014 
FT2	031253 000014 0   0   0            0            000000000014 
FT2RQ	031253 000014 0   0   000000000014 0            000000000014 
FT3	031253 000014 0   0   000000000014 0            000000000014 
FT9	031254 000014 0   0   000000000014 0            000000000014 
ET0	031255 000014 0   0   0            0            000000000014 
ST1A	031255 000014 0   0   0            0            000000000014 
ST9	031255 000014 0   0   0            0            000000000014 


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


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031255 031255 0   0   324000031256 0            000000031256 
IT1	031255 0      0   0   324000031256 0            000000031256 
AT3	031255 0      0   0   000000031256 0            324000031256 
AT6	031255 031256 0   0   000000031256 0            324000031256 
FT1A	031255 031256 0   0   000000031256 0            000000031256 
FT2	031255 031256 0   0   0            0            000000031256 
FT2RQ	031255 031256 0   0   000000000017 0            000000031256 
FT3	031255 031256 0   0   000000000017 0            000000031256 
FT9	031256 031256 0   0   000000000017 0            000000031256 
ET0	031256 031256 0   0   000000000017 0            000000031256 
ST1A	031256 031256 0   0   000000000017 0            000000031256 
ST9	031256 031256 0   0   000000000017 0            000000031256 


*031256 MOVEI	15,000015
INITIAL
C(AC)=000000 000015 
FINAL
C(AC)=000000 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031256 031256 0   0   201640000015 0            000000000015 
IT1	031256 0      0   0   201640000015 0            000000000015 
AT3	031256 0      0   0   000000000015 0            201640000015 
AT6	031256 000015 0   0   000000000015 0            201640000015 
FT1A	031256 000015 0   0   000000000015 0            000000000015 
FT9	031257 000015 0   0   000000000015 0            000000000015 
ET0	031257 000015 0   0   000000000015 0            000000000015 
ST1	031257 000015 0   0   000000000015 0            000000000015 
ST2	031257 000015 0   0   000000000015 0            000000000015 
ST9	031257 000015 0   0   000000000015 0            000000000015 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 74
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0269

*031257 CAIE	15,000000(15)
INITIAL
C(AC)=000000 000015 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031257 031257 0   0   302655000000 0            000000000015 
IT1	031257 0      0   0   302655000000 0            000000000015 
AT1	031257 0      0   0   0            0            302655000000 
AT2	031257 0      0   0   000000000015 0            302655000000 
AT3	031257 0      0   0   000000000015 0            000000000015 
AT6	031257 000015 0   0   000000000015 0            000000000015 
FT1A	031257 000015 0   0   000000000015 0            000000000015 
FT2	031257 000015 0   0   0            0            000000000015 
FT2RQ	031257 000015 0   0   000000000015 0            000000000015 
FT3	031257 000015 0   0   000000000015 0            000000000015 
FT9	031260 000015 0   0   000000000015 0            000000000015 
ET0	031261 000015 0   0   0            0            000000000015 
ST1A	031261 000015 0   0   0            0            000000000015 
ST9	031261 000015 0   0   0            0            000000000015 


*031261 JUMPA	0,031262
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031261 031261 0   0   324000031262 0            000000031262 
IT1	031261 0      0   0   324000031262 0            000000031262 
AT3	031261 0      0   0   000000031262 0            324000031262 
AT6	031261 031262 0   0   000000031262 0            324000031262 
FT1A	031261 031262 0   0   000000031262 0            000000031262 
FT2	031261 031262 0   0   0            0            000000031262 
FT2RQ	031261 031262 0   0   000000000017 0            000000031262 
FT3	031261 031262 0   0   000000000017 0            000000031262 
FT9	031262 031262 0   0   000000000017 0            000000031262 
ET0	031262 031262 0   0   000000000017 0            000000031262 
ST1A	031262 031262 0   0   000000000017 0            000000031262 
ST9	031262 031262 0   0   000000000017 0            000000031262 


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

*031262 MOVEI	16,000016
INITIAL
C(AC)=000000 000016 
FINAL
C(AC)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031262 031262 0   0   201700000016 0            000000000016 
IT1	031262 0      0   0   201700000016 0            000000000016 
AT3	031262 0      0   0   000000000016 0            201700000016 
AT6	031262 000016 0   0   000000000016 0            201700000016 
FT1A	031262 000016 0   0   000000000016 0            000000000016 
FT9	031263 000016 0   0   000000000016 0            000000000016 
ET0	031263 000016 0   0   000000000016 0            000000000016 
ST1	031263 000016 0   0   000000000016 0            000000000016 
ST2	031263 000016 0   0   000000000016 0            000000000016 
ST9	031263 000016 0   0   000000000016 0            000000000016 


*031263 CAIE	16,000000(16)
INITIAL
C(AC)=000000 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031263 031263 0   0   302716000000 0            000000000016 
IT1	031263 0      0   0   302716000000 0            000000000016 
AT1	031263 0      0   0   0            0            302716000000 
AT2	031263 0      0   0   000000000016 0            302716000000 
AT3	031263 0      0   0   000000000016 0            000000000016 
AT6	031263 000016 0   0   000000000016 0            000000000016 
FT1A	031263 000016 0   0   000000000016 0            000000000016 
FT2	031263 000016 0   0   0            0            000000000016 
FT2RQ	031263 000016 0   0   000000000016 0            000000000016 
FT3	031263 000016 0   0   000000000016 0            000000000016 
FT9	031264 000016 0   0   000000000016 0            000000000016 
ET0	031265 000016 0   0   0            0            000000000016 
ST1A	031265 000016 0   0   0            0            000000000016 
ST9	031265 000016 0   0   0            0            000000000016 


*031265 JUMPA	0,031266
INITIAL
C(AC)=000000 000017 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 76
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0271

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   000000000017 0            000000031266 
FT3	031265 031266 0   0   000000000017 0            000000031266 
FT9	031266 031266 0   0   000000000017 0            000000031266 
ET0	031266 031266 0   0   000000000017 0            000000031266 
ST1A	031266 031266 0   0   000000000017 0            000000031266 
ST9	031266 031266 0   0   000000000017 0            000000031266 


*031266 MOVEI	17,000017
INITIAL
C(AC)=000000 000017 
FINAL
C(AC)=000000 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031266 031266 0   0   201740000017 0            000000000017 
IT1	031266 0      0   0   201740000017 0            000000000017 
AT3	031266 0      0   0   000000000017 0            201740000017 
AT6	031266 000017 0   0   000000000017 0            201740000017 
FT1A	031266 000017 0   0   000000000017 0            000000000017 
FT9	031267 000017 0   0   000000000017 0            000000000017 
ET0	031267 000017 0   0   000000000017 0            000000000017 
ST1	031267 000017 0   0   000000000017 0            000000000017 
ST2	031267 000017 0   0   000000000017 0            000000000017 
ST9	031267 000017 0   0   000000000017 0            000000000017 


*031267 CAIE	17,000000(17)
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031267 031267 0   0   302757000000 0            000000000017 
IT1	031267 0      0   0   302757000000 0            000000000017 
AT1	031267 0      0   0   0            0            302757000000 
AT2	031267 0      0   0   000000000017 0            302757000000 
AT3	031267 0      0   0   000000000017 0            000000000017 
AT6	031267 000017 0   0   000000000017 0            000000000017 
FT1A	031267 000017 0   0   000000000017 0            000000000017 
FT2	031267 000017 0   0   0            0            000000000017 
FT2RQ	031267 000017 0   0   000000000017 0            000000000017 
FT3	031267 000017 0   0   000000000017 0            000000000017 
FT9	031270 000017 0   0   000000000017 0            000000000017 
ET0	031271 000017 0   0   0            0            000000000017 
ST1A	031271 000017 0   0   0            0            000000000017 
ST9	031271 000017 0   0   0            0            000000000017 

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


*031271 JUMPA	0,031272
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031271 031271 0   0   324000031272 0            000000031272 
IT1	031271 0      0   0   324000031272 0            000000031272 
AT3	031271 0      0   0   000000031272 0            324000031272 
AT6	031271 031272 0   0   000000031272 0            324000031272 
FT1A	031271 031272 0   0   000000031272 0            000000031272 
FT2	031271 031272 0   0   0            0            000000031272 
FT2RQ	031271 031272 0   0   000000000017 0            000000031272 
FT3	031271 031272 0   0   000000000017 0            000000031272 
FT9	031272 031272 0   0   000000000017 0            000000031272 
ET0	031272 031272 0   0   000000000017 0            000000031272 
ST1A	031272 031272 0   0   000000000017 0            000000031272 
ST9	031272 031272 0   0   000000000017 0            000000031272 


*031272 MOVEI	1,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031272 031272 0   0   201040000001 0            000000000001 
IT1	031272 0      0   0   201040000001 0            000000000001 
AT3	031272 0      0   0   000000000001 0            201040000001 
AT6	031272 000001 0   0   000000000001 0            201040000001 
FT1A	031272 000001 0   0   000000000001 0            000000000001 
FT9	031273 000001 0   0   000000000001 0            000000000001 
ET0	031273 000001 0   0   000000000001 0            000000000001 
ST1	031273 000001 0   0   000000000001 0            000000000001 
ST2	031273 000001 0   0   000000000001 0            000000000001 
ST9	031273 000001 0   0   000000000001 0            000000000001 


*031273 HRLI	1,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031273 031273 0   0   505040000001 0            000000000001 
IT1	031273 0      0   0   505040000001 0            000000000001 
AT3	031273 0      0   0   000000000001 0            505040000001 
AT6	031273 000001 0   0   000000000001 0            505040000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 78
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0273

FT1A	031273 000001 0   0   000000000001 0            000000000001 
FT2	031273 000001 0   0   0            0            000000000001 
FT2RQ	031273 000001 0   0   000000000001 0            000000000001 
FT3	031273 000001 0   0   000000000001 0            000000000001 
FT9	031274 000001 0   0   000000000001 0            000000000001 
ET0	031274 000001 0   0   000000000001 0            000000000001 
ET1	031274 000001 0   0   000001000001 0            000000000001 
ST1	031274 000001 0   0   000001000001 0            000000000001 
ST2	031274 000001 0   0   000001000001 0            000000000001 
ST9	031274 000001 0   0   000001000001 0            000000000001 


*031274 CAME	1,000000(1)
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031274 031274 0   0   312041000000 0            000001000001 
IT1	031274 0      0   0   312041000000 0            000001000001 
AT1	031274 0      0   0   0            0            312041000000 
AT2	031274 0      0   0   000001000001 0            312041000000 
AT3	031274 0      0   0   000000000001 0            000001000001 
AT6	031274 000001 0   0   000000000001 0            000001000001 
FT0	031274 000001 0   0   000001000001 0            000001000001 
FT1A	031274 000001 0   0   000001000001 0            000001000001 
FT2	031274 000001 0   0   0            0            000001000001 
FT2RQ	031274 000001 0   0   000001000001 0            000001000001 
FT3	031274 000001 0   0   000001000001 0            000001000001 
FT9	031275 000001 0   0   000001000001 0            000001000001 
ET0	031276 000001 0   0   0            0            000001000001 
ST1A	031276 000001 0   0   0            0            000001000001 
ST9	031276 000001 0   0   0            0            000001000001 


*031276 JUMPA	0,031277
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031276 031276 0   0   324000031277 0            000000031277 
IT1	031276 0      0   0   324000031277 0            000000031277 
AT3	031276 0      0   0   000000031277 0            324000031277 
AT6	031276 031277 0   0   000000031277 0            324000031277 
FT1A	031276 031277 0   0   000000031277 0            000000031277 
FT2	031276 031277 0   0   0            0            000000031277 
FT2RQ	031276 031277 0   0   000000000017 0            000000031277 
FT3	031276 031277 0   0   000000000017 0            000000031277 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 79
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0274

FT9	031277 031277 0   0   000000000017 0            000000031277 
ET0	031277 031277 0   0   000000000017 0            000000031277 
ST1A	031277 031277 0   0   000000000017 0            000000031277 
ST9	031277 031277 0   0   000000000017 0            000000031277 


*031277 MOVEI	2,000002
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031277 031277 0   0   201100000002 0            000000000002 
IT1	031277 0      0   0   201100000002 0            000000000002 
AT3	031277 0      0   0   000000000002 0            201100000002 
AT6	031277 000002 0   0   000000000002 0            201100000002 
FT1A	031277 000002 0   0   000000000002 0            000000000002 
FT9	0      000002 0   0   000000000002 0            000000000002 
ET0	0      000002 0   0   000000000002 0            000000000002 
ST1	0      000002 0   0   000000000002 0            000000000002 
ST2	0      000002 0   0   000000000002 0            000000000002 
ST9	0      000002 0   0   000000000002 0            000000000002 


*031300 HRLI	2,000002
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000002 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   505100000002 0            000000000002 
IT1	0      0      0   0   505100000002 0            000000000002 
AT3	0      0      0   0   000000000002 0            505100000002 
AT6	0      000002 0   0   000000000002 0            505100000002 
FT1A	0      000002 0   0   000000000002 0            000000000002 
FT2	0      000002 0   0   0            0            000000000002 
FT2RQ	0      000002 0   0   000000000002 0            000000000002 
FT3	0      000002 0   0   000000000002 0            000000000002 
FT9	031301 000002 0   0   000000000002 0            000000000002 
ET0	031301 000002 0   0   000000000002 0            000000000002 
ET1	031301 000002 0   0   000002000002 0            000000000002 
ST1	031301 000002 0   0   000002000002 0            000000000002 
ST2	031301 000002 0   0   000002000002 0            000000000002 
ST9	031301 000002 0   0   000002000002 0            000000000002 


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

*031301 CAME	2,000000(2)
INITIAL
C(AC)=000002 000002 
C(E)=000002 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031301 031301 0   0   312102000000 0            000002000002 
IT1	031301 0      0   0   312102000000 0            000002000002 
AT1	031301 0      0   0   0            0            312102000000 
AT2	031301 0      0   0   000002000002 0            312102000000 
AT3	031301 0      0   0   000000000002 0            000002000002 
AT6	031301 000002 0   0   000000000002 0            000002000002 
FT0	031301 000002 0   0   000002000002 0            000002000002 
FT1A	031301 000002 0   0   000002000002 0            000002000002 
FT2	031301 000002 0   0   0            0            000002000002 
FT2RQ	031301 000002 0   0   000002000002 0            000002000002 
FT3	031301 000002 0   0   000002000002 0            000002000002 
FT9	031302 000002 0   0   000002000002 0            000002000002 
ET0	031303 000002 0   0   0            0            000002000002 
ST1A	031303 000002 0   0   0            0            000002000002 
ST9	031303 000002 0   0   0            0            000002000002 


*031303 JUMPA	0,031304
INITIAL
C(AC)=000000 000017 
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   000000000017 0            000000031304 
FT3	031303 031304 0   0   000000000017 0            000000031304 
FT9	031304 031304 0   0   000000000017 0            000000031304 
ET0	031304 031304 0   0   000000000017 0            000000031304 
ST1A	031304 031304 0   0   000000000017 0            000000031304 
ST9	031304 031304 0   0   000000000017 0            000000031304 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 81
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0276

*031304 MOVEI	3,000003
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031304 031304 0   0   201140000003 0            000000000003 
IT1	031304 0      0   0   201140000003 0            000000000003 
AT3	031304 0      0   0   000000000003 0            201140000003 
AT6	031304 000003 0   0   000000000003 0            201140000003 
FT1A	031304 000003 0   0   000000000003 0            000000000003 
FT9	031305 000003 0   0   000000000003 0            000000000003 
ET0	031305 000003 0   0   000000000003 0            000000000003 
ST1	031305 000003 0   0   000000000003 0            000000000003 
ST2	031305 000003 0   0   000000000003 0            000000000003 
ST9	031305 000003 0   0   000000000003 0            000000000003 


*031305 HRLI	3,000003
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000003 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031305 031305 0   0   505140000003 0            000000000003 
IT1	031305 0      0   0   505140000003 0            000000000003 
AT3	031305 0      0   0   000000000003 0            505140000003 
AT6	031305 000003 0   0   000000000003 0            505140000003 
FT1A	031305 000003 0   0   000000000003 0            000000000003 
FT2	031305 000003 0   0   0            0            000000000003 
FT2RQ	031305 000003 0   0   000000000003 0            000000000003 
FT3	031305 000003 0   0   000000000003 0            000000000003 
FT9	031306 000003 0   0   000000000003 0            000000000003 
ET0	031306 000003 0   0   000000000003 0            000000000003 
ET1	031306 000003 0   0   000003000003 0            000000000003 
ST1	031306 000003 0   0   000003000003 0            000000000003 
ST2	031306 000003 0   0   000003000003 0            000000000003 
ST9	031306 000003 0   0   000003000003 0            000000000003 


*031306 CAME	3,000000(3)
INITIAL
C(AC)=000003 000003 
C(E)=000003 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031306 031306 0   0   312143000000 0            000003000003 
IT1	031306 0      0   0   312143000000 0            000003000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 82
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0277

AT1	031306 0      0   0   0            0            312143000000 
AT2	031306 0      0   0   000003000003 0            312143000000 
AT3	031306 0      0   0   000000000003 0            000003000003 
AT6	031306 000003 0   0   000000000003 0            000003000003 
FT0	031306 000003 0   0   000003000003 0            000003000003 
FT1A	031306 000003 0   0   000003000003 0            000003000003 
FT2	031306 000003 0   0   0            0            000003000003 
FT2RQ	031306 000003 0   0   000003000003 0            000003000003 
FT3	031306 000003 0   0   000003000003 0            000003000003 
FT9	031307 000003 0   0   000003000003 0            000003000003 
ET0	031310 000003 0   0   0            0            000003000003 
ST1A	031310 000003 0   0   0            0            000003000003 
ST9	031310 000003 0   0   0            0            000003000003 


*031310 JUMPA	0,031311
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031310 031310 0   0   324000031311 0            000000031311 
IT1	031310 0      0   0   324000031311 0            000000031311 
AT3	031310 0      0   0   000000031311 0            324000031311 
AT6	031310 031311 0   0   000000031311 0            324000031311 
FT1A	031310 031311 0   0   000000031311 0            000000031311 
FT2	031310 031311 0   0   0            0            000000031311 
FT2RQ	031310 031311 0   0   000000000017 0            000000031311 
FT3	031310 031311 0   0   000000000017 0            000000031311 
FT9	031311 031311 0   0   000000000017 0            000000031311 
ET0	031311 031311 0   0   000000000017 0            000000031311 
ST1A	031311 031311 0   0   000000000017 0            000000031311 
ST9	031311 031311 0   0   000000000017 0            000000031311 


*031311 MOVEI	4,000004
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031311 031311 0   0   201200000004 0            000000000004 
IT1	031311 0      0   0   201200000004 0            000000000004 
AT3	031311 0      0   0   000000000004 0            201200000004 
AT6	031311 000004 0   0   000000000004 0            201200000004 
FT1A	031311 000004 0   0   000000000004 0            000000000004 
FT9	031312 000004 0   0   000000000004 0            000000000004 
ET0	031312 000004 0   0   000000000004 0            000000000004 
ST1	031312 000004 0   0   000000000004 0            000000000004 
ST2	031312 000004 0   0   000000000004 0            000000000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 83
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0278

ST9	031312 000004 0   0   000000000004 0            000000000004 


*031312 HRLI	4,000004
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000004 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031312 031312 0   0   505200000004 0            000000000004 
IT1	031312 0      0   0   505200000004 0            000000000004 
AT3	031312 0      0   0   000000000004 0            505200000004 
AT6	031312 000004 0   0   000000000004 0            505200000004 
FT1A	031312 000004 0   0   000000000004 0            000000000004 
FT2	031312 000004 0   0   0            0            000000000004 
FT2RQ	031312 000004 0   0   000000000004 0            000000000004 
FT3	031312 000004 0   0   000000000004 0            000000000004 
FT9	031313 000004 0   0   000000000004 0            000000000004 
ET0	031313 000004 0   0   000000000004 0            000000000004 
ET1	031313 000004 0   0   000004000004 0            000000000004 
ST1	031313 000004 0   0   000004000004 0            000000000004 
ST2	031313 000004 0   0   000004000004 0            000000000004 
ST9	031313 000004 0   0   000004000004 0            000000000004 


*031313 CAME	4,000000(4)
INITIAL
C(AC)=000004 000004 
C(E)=000004 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031313 031313 0   0   312204000000 0            000004000004 
IT1	031313 0      0   0   312204000000 0            000004000004 
AT1	031313 0      0   0   0            0            312204000000 
AT2	031313 0      0   0   000004000004 0            312204000000 
AT3	031313 0      0   0   000000000004 0            000004000004 
AT6	031313 000004 0   0   000000000004 0            000004000004 
FT0	031313 000004 0   0   000004000004 0            000004000004 
FT1A	031313 000004 0   0   000004000004 0            000004000004 
FT2	031313 000004 0   0   0            0            000004000004 
FT2RQ	031313 000004 0   0   000004000004 0            000004000004 
FT3	031313 000004 0   0   000004000004 0            000004000004 
FT9	031314 000004 0   0   000004000004 0            000004000004 
ET0	031315 000004 0   0   0            0            000004000004 
ST1A	031315 000004 0   0   0            0            000004000004 
ST9	031315 000004 0   0   0            0            000004000004 


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

*031315 JUMPA	0,031316
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031315 031315 0   0   324000031316 0            000000031316 
IT1	031315 0      0   0   324000031316 0            000000031316 
AT3	031315 0      0   0   000000031316 0            324000031316 
AT6	031315 031316 0   0   000000031316 0            324000031316 
FT1A	031315 031316 0   0   000000031316 0            000000031316 
FT2	031315 031316 0   0   0            0            000000031316 
FT2RQ	031315 031316 0   0   000000000017 0            000000031316 
FT3	031315 031316 0   0   000000000017 0            000000031316 
FT9	031316 031316 0   0   000000000017 0            000000031316 
ET0	031316 031316 0   0   000000000017 0            000000031316 
ST1A	031316 031316 0   0   000000000017 0            000000031316 
ST9	031316 031316 0   0   000000000017 0            000000031316 


*031316 MOVEI	5,000005
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031316 031316 0   0   201240000005 0            000000000005 
IT1	031316 0      0   0   201240000005 0            000000000005 
AT3	031316 0      0   0   000000000005 0            201240000005 
AT6	031316 000005 0   0   000000000005 0            201240000005 
FT1A	031316 000005 0   0   000000000005 0            000000000005 
FT9	031317 000005 0   0   000000000005 0            000000000005 
ET0	031317 000005 0   0   000000000005 0            000000000005 
ST1	031317 000005 0   0   000000000005 0            000000000005 
ST2	031317 000005 0   0   000000000005 0            000000000005 
ST9	031317 000005 0   0   000000000005 0            000000000005 


*031317 HRLI	5,000005
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000005 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031317 031317 0   0   505240000005 0            000000000005 
IT1	031317 0      0   0   505240000005 0            000000000005 
AT3	031317 0      0   0   000000000005 0            505240000005 
AT6	031317 000005 0   0   000000000005 0            505240000005 
FT1A	031317 000005 0   0   000000000005 0            000000000005 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 85
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0280

FT2	031317 000005 0   0   0            0            000000000005 
FT2RQ	031317 000005 0   0   000000000005 0            000000000005 
FT3	031317 000005 0   0   000000000005 0            000000000005 
FT9	031320 000005 0   0   000000000005 0            000000000005 
ET0	031320 000005 0   0   000000000005 0            000000000005 
ET1	031320 000005 0   0   000005000005 0            000000000005 
ST1	031320 000005 0   0   000005000005 0            000000000005 
ST2	031320 000005 0   0   000005000005 0            000000000005 
ST9	031320 000005 0   0   000005000005 0            000000000005 


*031320 CAME	5,000000(5)
INITIAL
C(AC)=000005 000005 
C(E)=000005 000005 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031320 031320 0   0   312245000000 0            000005000005 
IT1	031320 0      0   0   312245000000 0            000005000005 
AT1	031320 0      0   0   0            0            312245000000 
AT2	031320 0      0   0   000005000005 0            312245000000 
AT3	031320 0      0   0   000000000005 0            000005000005 
AT6	031320 000005 0   0   000000000005 0            000005000005 
FT0	031320 000005 0   0   000005000005 0            000005000005 
FT1A	031320 000005 0   0   000005000005 0            000005000005 
FT2	031320 000005 0   0   0            0            000005000005 
FT2RQ	031320 000005 0   0   000005000005 0            000005000005 
FT3	031320 000005 0   0   000005000005 0            000005000005 
FT9	031321 000005 0   0   000005000005 0            000005000005 
ET0	031322 000005 0   0   0            0            000005000005 
ST1A	031322 000005 0   0   0            0            000005000005 
ST9	031322 000005 0   0   0            0            000005000005 


*031322 JUMPA	0,031323
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031322 031322 0   0   324000031323 0            000000031323 
IT1	031322 0      0   0   324000031323 0            000000031323 
AT3	031322 0      0   0   000000031323 0            324000031323 
AT6	031322 031323 0   0   000000031323 0            324000031323 
FT1A	031322 031323 0   0   000000031323 0            000000031323 
FT2	031322 031323 0   0   0            0            000000031323 
FT2RQ	031322 031323 0   0   000000000017 0            000000031323 
FT3	031322 031323 0   0   000000000017 0            000000031323 
FT9	031323 031323 0   0   000000000017 0            000000031323 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 86
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0281

ET0	031323 031323 0   0   000000000017 0            000000031323 
ST1A	031323 031323 0   0   000000000017 0            000000031323 
ST9	031323 031323 0   0   000000000017 0            000000031323 


*031323 MOVEI	6,000006
INITIAL
C(AC)=000000 000006 
FINAL
C(AC)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031323 031323 0   0   201300000006 0            000000000006 
IT1	031323 0      0   0   201300000006 0            000000000006 
AT3	031323 0      0   0   000000000006 0            201300000006 
AT6	031323 000006 0   0   000000000006 0            201300000006 
FT1A	031323 000006 0   0   000000000006 0            000000000006 
FT9	031324 000006 0   0   000000000006 0            000000000006 
ET0	031324 000006 0   0   000000000006 0            000000000006 
ST1	031324 000006 0   0   000000000006 0            000000000006 
ST2	031324 000006 0   0   000000000006 0            000000000006 
ST9	031324 000006 0   0   000000000006 0            000000000006 


*031324 HRLI	6,000006
INITIAL
C(AC)=000000 000006 
FINAL
C(AC)=000006 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031324 031324 0   0   505300000006 0            000000000006 
IT1	031324 0      0   0   505300000006 0            000000000006 
AT3	031324 0      0   0   000000000006 0            505300000006 
AT6	031324 000006 0   0   000000000006 0            505300000006 
FT1A	031324 000006 0   0   000000000006 0            000000000006 
FT2	031324 000006 0   0   0            0            000000000006 
FT2RQ	031324 000006 0   0   000000000006 0            000000000006 
FT3	031324 000006 0   0   000000000006 0            000000000006 
FT9	031325 000006 0   0   000000000006 0            000000000006 
ET0	031325 000006 0   0   000000000006 0            000000000006 
ET1	031325 000006 0   0   000006000006 0            000000000006 
ST1	031325 000006 0   0   000006000006 0            000000000006 
ST2	031325 000006 0   0   000006000006 0            000000000006 
ST9	031325 000006 0   0   000006000006 0            000000000006 


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

*031325 CAME	6,000000(6)
INITIAL
C(AC)=000006 000006 
C(E)=000006 000006 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031325 031325 0   0   312306000000 0            000006000006 
IT1	031325 0      0   0   312306000000 0            000006000006 
AT1	031325 0      0   0   0            0            312306000000 
AT2	031325 0      0   0   000006000006 0            312306000000 
AT3	031325 0      0   0   000000000006 0            000006000006 
AT6	031325 000006 0   0   000000000006 0            000006000006 
FT0	031325 000006 0   0   000006000006 0            000006000006 
FT1A	031325 000006 0   0   000006000006 0            000006000006 
FT2	031325 000006 0   0   0            0            000006000006 
FT2RQ	031325 000006 0   0   000006000006 0            000006000006 
FT3	031325 000006 0   0   000006000006 0            000006000006 
FT9	031326 000006 0   0   000006000006 0            000006000006 
ET0	031327 000006 0   0   0            0            000006000006 
ST1A	031327 000006 0   0   0            0            000006000006 
ST9	031327 000006 0   0   0            0            000006000006 


*031327 JUMPA	0,031330
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031327 031327 0   0   324000031330 0            000000031330 
IT1	031327 0      0   0   324000031330 0            000000031330 
AT3	031327 0      0   0   000000031330 0            324000031330 
AT6	031327 031330 0   0   000000031330 0            324000031330 
FT1A	031327 031330 0   0   000000031330 0            000000031330 
FT2	031327 031330 0   0   0            0            000000031330 
FT2RQ	031327 031330 0   0   000000000017 0            000000031330 
FT3	031327 031330 0   0   000000000017 0            000000031330 
FT9	031330 031330 0   0   000000000017 0            000000031330 
ET0	031330 031330 0   0   000000000017 0            000000031330 
ST1A	031330 031330 0   0   000000000017 0            000000031330 
ST9	031330 031330 0   0   000000000017 0            000000031330 


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

*031330 MOVEI	7,000007
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031330 031330 0   0   201340000007 0            000000000007 
IT1	031330 0      0   0   201340000007 0            000000000007 
AT3	031330 0      0   0   000000000007 0            201340000007 
AT6	031330 000007 0   0   000000000007 0            201340000007 
FT1A	031330 000007 0   0   000000000007 0            000000000007 
FT9	031331 000007 0   0   000000000007 0            000000000007 
ET0	031331 000007 0   0   000000000007 0            000000000007 
ST1	031331 000007 0   0   000000000007 0            000000000007 
ST2	031331 000007 0   0   000000000007 0            000000000007 
ST9	031331 000007 0   0   000000000007 0            000000000007 


*031331 HRLI	7,000007
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000007 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031331 031331 0   0   505340000007 0            000000000007 
IT1	031331 0      0   0   505340000007 0            000000000007 
AT3	031331 0      0   0   000000000007 0            505340000007 
AT6	031331 000007 0   0   000000000007 0            505340000007 
FT1A	031331 000007 0   0   000000000007 0            000000000007 
FT2	031331 000007 0   0   0            0            000000000007 
FT2RQ	031331 000007 0   0   000000000007 0            000000000007 
FT3	031331 000007 0   0   000000000007 0            000000000007 
FT9	031332 000007 0   0   000000000007 0            000000000007 
ET0	031332 000007 0   0   000000000007 0            000000000007 
ET1	031332 000007 0   0   000007000007 0            000000000007 
ST1	031332 000007 0   0   000007000007 0            000000000007 
ST2	031332 000007 0   0   000007000007 0            000000000007 
ST9	031332 000007 0   0   000007000007 0            000000000007 


*031332 CAME	7,000000(7)
INITIAL
C(AC)=000007 000007 
C(E)=000007 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031332 031332 0   0   312347000000 0            000007000007 
IT1	031332 0      0   0   312347000000 0            000007000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 89
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0284

AT1	031332 0      0   0   0            0            312347000000 
AT2	031332 0      0   0   000007000007 0            312347000000 
AT3	031332 0      0   0   000000000007 0            000007000007 
AT6	031332 000007 0   0   000000000007 0            000007000007 
FT0	031332 000007 0   0   000007000007 0            000007000007 
FT1A	031332 000007 0   0   000007000007 0            000007000007 
FT2	031332 000007 0   0   0            0            000007000007 
FT2RQ	031332 000007 0   0   000007000007 0            000007000007 
FT3	031332 000007 0   0   000007000007 0            000007000007 
FT9	031333 000007 0   0   000007000007 0            000007000007 
ET0	031334 000007 0   0   0            0            000007000007 
ST1A	031334 000007 0   0   0            0            000007000007 
ST9	031334 000007 0   0   0            0            000007000007 


*031334 JUMPA	0,031335
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031334 031334 0   0   324000031335 0            000000031335 
IT1	031334 0      0   0   324000031335 0            000000031335 
AT3	031334 0      0   0   000000031335 0            324000031335 
AT6	031334 031335 0   0   000000031335 0            324000031335 
FT1A	031334 031335 0   0   000000031335 0            000000031335 
FT2	031334 031335 0   0   0            0            000000031335 
FT2RQ	031334 031335 0   0   000000000017 0            000000031335 
FT3	031334 031335 0   0   000000000017 0            000000031335 
FT9	031335 031335 0   0   000000000017 0            000000031335 
ET0	031335 031335 0   0   000000000017 0            000000031335 
ST1A	031335 031335 0   0   000000000017 0            000000031335 
ST9	031335 031335 0   0   000000000017 0            000000031335 


*031335 MOVEI	10,000010
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031335 031335 0   0   201400000010 0            000000000010 
IT1	031335 0      0   0   201400000010 0            000000000010 
AT3	031335 0      0   0   000000000010 0            201400000010 
AT6	031335 000010 0   0   000000000010 0            201400000010 
FT1A	031335 000010 0   0   000000000010 0            000000000010 
FT9	031336 000010 0   0   000000000010 0            000000000010 
ET0	031336 000010 0   0   000000000010 0            000000000010 
ST1	031336 000010 0   0   000000000010 0            000000000010 
ST2	031336 000010 0   0   000000000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 90
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0285

ST9	031336 000010 0   0   000000000010 0            000000000010 


*031336 HRLI	10,000010
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000010 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031336 031336 0   0   505400000010 0            000000000010 
IT1	031336 0      0   0   505400000010 0            000000000010 
AT3	031336 0      0   0   000000000010 0            505400000010 
AT6	031336 000010 0   0   000000000010 0            505400000010 
FT1A	031336 000010 0   0   000000000010 0            000000000010 
FT2	031336 000010 0   0   0            0            000000000010 
FT2RQ	031336 000010 0   0   000000000010 0            000000000010 
FT3	031336 000010 0   0   000000000010 0            000000000010 
FT9	031337 000010 0   0   000000000010 0            000000000010 
ET0	031337 000010 0   0   000000000010 0            000000000010 
ET1	031337 000010 0   0   000010000010 0            000000000010 
ST1	031337 000010 0   0   000010000010 0            000000000010 
ST2	031337 000010 0   0   000010000010 0            000000000010 
ST9	031337 000010 0   0   000010000010 0            000000000010 


*031337 CAME	10,000000(10)
INITIAL
C(AC)=000010 000010 
C(E)=000010 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031337 031337 0   0   312410000000 0            000010000010 
IT1	031337 0      0   0   312410000000 0            000010000010 
AT1	031337 0      0   0   0            0            312410000000 
AT2	031337 0      0   0   000010000010 0            312410000000 
AT3	031337 0      0   0   000000000010 0            000010000010 
AT6	031337 000010 0   0   000000000010 0            000010000010 
FT0	031337 000010 0   0   000010000010 0            000010000010 
FT1A	031337 000010 0   0   000010000010 0            000010000010 
FT2	031337 000010 0   0   0            0            000010000010 
FT2RQ	031337 000010 0   0   000010000010 0            000010000010 
FT3	031337 000010 0   0   000010000010 0            000010000010 
FT9	031340 000010 0   0   000010000010 0            000010000010 
ET0	031341 000010 0   0   0            0            000010000010 
ST1A	031341 000010 0   0   0            0            000010000010 
ST9	031341 000010 0   0   0            0            000010000010 


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

*031341 JUMPA	0,031342
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031341 031341 0   0   324000031342 0            000000031342 
IT1	031341 0      0   0   324000031342 0            000000031342 
AT3	031341 0      0   0   000000031342 0            324000031342 
AT6	031341 031342 0   0   000000031342 0            324000031342 
FT1A	031341 031342 0   0   000000031342 0            000000031342 
FT2	031341 031342 0   0   0            0            000000031342 
FT2RQ	031341 031342 0   0   000000000017 0            000000031342 
FT3	031341 031342 0   0   000000000017 0            000000031342 
FT9	031342 031342 0   0   000000000017 0            000000031342 
ET0	031342 031342 0   0   000000000017 0            000000031342 
ST1A	031342 031342 0   0   000000000017 0            000000031342 
ST9	031342 031342 0   0   000000000017 0            000000031342 


*031342 MOVEI	11,000011
INITIAL
C(AC)=000000 000011 
FINAL
C(AC)=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031342 031342 0   0   201440000011 0            000000000011 
IT1	031342 0      0   0   201440000011 0            000000000011 
AT3	031342 0      0   0   000000000011 0            201440000011 
AT6	031342 000011 0   0   000000000011 0            201440000011 
FT1A	031342 000011 0   0   000000000011 0            000000000011 
FT9	031343 000011 0   0   000000000011 0            000000000011 
ET0	031343 000011 0   0   000000000011 0            000000000011 
ST1	031343 000011 0   0   000000000011 0            000000000011 
ST2	031343 000011 0   0   000000000011 0            000000000011 
ST9	031343 000011 0   0   000000000011 0            000000000011 


*031343 HRLI	11,000011
INITIAL
C(AC)=000000 000011 
FINAL
C(AC)=000011 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031343 031343 0   0   505440000011 0            000000000011 
IT1	031343 0      0   0   505440000011 0            000000000011 
AT3	031343 0      0   0   000000000011 0            505440000011 
AT6	031343 000011 0   0   000000000011 0            505440000011 
FT1A	031343 000011 0   0   000000000011 0            000000000011 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 92
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0287

FT2	031343 000011 0   0   0            0            000000000011 
FT2RQ	031343 000011 0   0   000000000011 0            000000000011 
FT3	031343 000011 0   0   000000000011 0            000000000011 
FT9	031344 000011 0   0   000000000011 0            000000000011 
ET0	031344 000011 0   0   000000000011 0            000000000011 
ET1	031344 000011 0   0   000011000011 0            000000000011 
ST1	031344 000011 0   0   000011000011 0            000000000011 
ST2	031344 000011 0   0   000011000011 0            000000000011 
ST9	031344 000011 0   0   000011000011 0            000000000011 


*031344 CAME	11,000000(11)
INITIAL
C(AC)=000011 000011 
C(E)=000011 000011 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031344 031344 0   0   312451000000 0            000011000011 
IT1	031344 0      0   0   312451000000 0            000011000011 
AT1	031344 0      0   0   0            0            312451000000 
AT2	031344 0      0   0   000011000011 0            312451000000 
AT3	031344 0      0   0   000000000011 0            000011000011 
AT6	031344 000011 0   0   000000000011 0            000011000011 
FT0	031344 000011 0   0   000011000011 0            000011000011 
FT1A	031344 000011 0   0   000011000011 0            000011000011 
FT2	031344 000011 0   0   0            0            000011000011 
FT2RQ	031344 000011 0   0   000011000011 0            000011000011 
FT3	031344 000011 0   0   000011000011 0            000011000011 
FT9	031345 000011 0   0   000011000011 0            000011000011 
ET0	031346 000011 0   0   0            0            000011000011 
ST1A	031346 000011 0   0   0            0            000011000011 
ST9	031346 000011 0   0   0            0            000011000011 


*031346 JUMPA	0,031347
INITIAL
C(AC)=000000 000017 
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   000000000017 0            000000031347 
FT3	031346 031347 0   0   000000000017 0            000000031347 
FT9	031347 031347 0   0   000000000017 0            000000031347 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 93
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0288

ET0	031347 031347 0   0   000000000017 0            000000031347 
ST1A	031347 031347 0   0   000000000017 0            000000031347 
ST9	031347 031347 0   0   000000000017 0            000000031347 


*031347 MOVEI	12,000012
INITIAL
C(AC)=000000 000012 
FINAL
C(AC)=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031347 031347 0   0   201500000012 0            000000000012 
IT1	031347 0      0   0   201500000012 0            000000000012 
AT3	031347 0      0   0   000000000012 0            201500000012 
AT6	031347 000012 0   0   000000000012 0            201500000012 
FT1A	031347 000012 0   0   000000000012 0            000000000012 
FT9	031350 000012 0   0   000000000012 0            000000000012 
ET0	031350 000012 0   0   000000000012 0            000000000012 
ST1	031350 000012 0   0   000000000012 0            000000000012 
ST2	031350 000012 0   0   000000000012 0            000000000012 
ST9	031350 000012 0   0   000000000012 0            000000000012 


*031350 HRLI	12,000012
INITIAL
C(AC)=000000 000012 
FINAL
C(AC)=000012 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031350 031350 0   0   505500000012 0            000000000012 
IT1	031350 0      0   0   505500000012 0            000000000012 
AT3	031350 0      0   0   000000000012 0            505500000012 
AT6	031350 000012 0   0   000000000012 0            505500000012 
FT1A	031350 000012 0   0   000000000012 0            000000000012 
FT2	031350 000012 0   0   0            0            000000000012 
FT2RQ	031350 000012 0   0   000000000012 0            000000000012 
FT3	031350 000012 0   0   000000000012 0            000000000012 
FT9	031351 000012 0   0   000000000012 0            000000000012 
ET0	031351 000012 0   0   000000000012 0            000000000012 
ET1	031351 000012 0   0   000012000012 0            000000000012 
ST1	031351 000012 0   0   000012000012 0            000000000012 
ST2	031351 000012 0   0   000012000012 0            000000000012 
ST9	031351 000012 0   0   000012000012 0            000000000012 


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

*031351 CAME	12,000000(12)
INITIAL
C(AC)=000012 000012 
C(E)=000012 000012 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031351 031351 0   0   312512000000 0            000012000012 
IT1	031351 0      0   0   312512000000 0            000012000012 
AT1	031351 0      0   0   0            0            312512000000 
AT2	031351 0      0   0   000012000012 0            312512000000 
AT3	031351 0      0   0   000000000012 0            000012000012 
AT6	031351 000012 0   0   000000000012 0            000012000012 
FT0	031351 000012 0   0   000012000012 0            000012000012 
FT1A	031351 000012 0   0   000012000012 0            000012000012 
FT2	031351 000012 0   0   0            0            000012000012 
FT2RQ	031351 000012 0   0   000012000012 0            000012000012 
FT3	031351 000012 0   0   000012000012 0            000012000012 
FT9	031352 000012 0   0   000012000012 0            000012000012 
ET0	031353 000012 0   0   0            0            000012000012 
ST1A	031353 000012 0   0   0            0            000012000012 
ST9	031353 000012 0   0   0            0            000012000012 


*031353 JUMPA	0,031354
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031353 031353 0   0   324000031354 0            000000031354 
IT1	031353 0      0   0   324000031354 0            000000031354 
AT3	031353 0      0   0   000000031354 0            324000031354 
AT6	031353 031354 0   0   000000031354 0            324000031354 
FT1A	031353 031354 0   0   000000031354 0            000000031354 
FT2	031353 031354 0   0   0            0            000000031354 
FT2RQ	031353 031354 0   0   000000000017 0            000000031354 
FT3	031353 031354 0   0   000000000017 0            000000031354 
FT9	031354 031354 0   0   000000000017 0            000000031354 
ET0	031354 031354 0   0   000000000017 0            000000031354 
ST1A	031354 031354 0   0   000000000017 0            000000031354 
ST9	031354 031354 0   0   000000000017 0            000000031354 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 95
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0290

*031354 MOVEI	13,000013
INITIAL
C(AC)=000000 000013 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031354 031354 0   0   201540000013 0            000000000013 
IT1	031354 0      0   0   201540000013 0            000000000013 
AT3	031354 0      0   0   000000000013 0            201540000013 
AT6	031354 000013 0   0   000000000013 0            201540000013 
FT1A	031354 000013 0   0   000000000013 0            000000000013 
FT9	031355 000013 0   0   000000000013 0            000000000013 
ET0	031355 000013 0   0   000000000013 0            000000000013 
ST1	031355 000013 0   0   000000000013 0            000000000013 
ST2	031355 000013 0   0   000000000013 0            000000000013 
ST9	031355 000013 0   0   000000000013 0            000000000013 


*031355 HRLI	13,000013
INITIAL
C(AC)=000000 000013 
FINAL
C(AC)=000013 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031355 031355 0   0   505540000013 0            000000000013 
IT1	031355 0      0   0   505540000013 0            000000000013 
AT3	031355 0      0   0   000000000013 0            505540000013 
AT6	031355 000013 0   0   000000000013 0            505540000013 
FT1A	031355 000013 0   0   000000000013 0            000000000013 
FT2	031355 000013 0   0   0            0            000000000013 
FT2RQ	031355 000013 0   0   000000000013 0            000000000013 
FT3	031355 000013 0   0   000000000013 0            000000000013 
FT9	031356 000013 0   0   000000000013 0            000000000013 
ET0	031356 000013 0   0   000000000013 0            000000000013 
ET1	031356 000013 0   0   000013000013 0            000000000013 
ST1	031356 000013 0   0   000013000013 0            000000000013 
ST2	031356 000013 0   0   000013000013 0            000000000013 
ST9	031356 000013 0   0   000013000013 0            000000000013 


*031356 CAME	13,000000(13)
INITIAL
C(AC)=000013 000013 
C(E)=000013 000013 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031356 031356 0   0   312553000000 0            000013000013 
IT1	031356 0      0   0   312553000000 0            000013000013 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 96
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0291

AT1	031356 0      0   0   0            0            312553000000 
AT2	031356 0      0   0   000013000013 0            312553000000 
AT3	031356 0      0   0   000000000013 0            000013000013 
AT6	031356 000013 0   0   000000000013 0            000013000013 
FT0	031356 000013 0   0   000013000013 0            000013000013 
FT1A	031356 000013 0   0   000013000013 0            000013000013 
FT2	031356 000013 0   0   0            0            000013000013 
FT2RQ	031356 000013 0   0   000013000013 0            000013000013 
FT3	031356 000013 0   0   000013000013 0            000013000013 
FT9	031357 000013 0   0   000013000013 0            000013000013 
ET0	031360 000013 0   0   0            0            000013000013 
ST1A	031360 000013 0   0   0            0            000013000013 
ST9	031360 000013 0   0   0            0            000013000013 


*031360 JUMPA	0,031361
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031360 031360 0   0   324000031361 0            000000031361 
IT1	031360 0      0   0   324000031361 0            000000031361 
AT3	031360 0      0   0   000000031361 0            324000031361 
AT6	031360 031361 0   0   000000031361 0            324000031361 
FT1A	031360 031361 0   0   000000031361 0            000000031361 
FT2	031360 031361 0   0   0            0            000000031361 
FT2RQ	031360 031361 0   0   000000000017 0            000000031361 
FT3	031360 031361 0   0   000000000017 0            000000031361 
FT9	031361 031361 0   0   000000000017 0            000000031361 
ET0	031361 031361 0   0   000000000017 0            000000031361 
ST1A	031361 031361 0   0   000000000017 0            000000031361 
ST9	031361 031361 0   0   000000000017 0            000000031361 


*031361 MOVEI	14,000014
INITIAL
C(AC)=000000 000014 
FINAL
C(AC)=000000 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031361 031361 0   0   201600000014 0            000000000014 
IT1	031361 0      0   0   201600000014 0            000000000014 
AT3	031361 0      0   0   000000000014 0            201600000014 
AT6	031361 000014 0   0   000000000014 0            201600000014 
FT1A	031361 000014 0   0   000000000014 0            000000000014 
FT9	031362 000014 0   0   000000000014 0            000000000014 
ET0	031362 000014 0   0   000000000014 0            000000000014 
ST1	031362 000014 0   0   000000000014 0            000000000014 
ST2	031362 000014 0   0   000000000014 0            000000000014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 97
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0292

ST9	031362 000014 0   0   000000000014 0            000000000014 


*031362 HRLI	14,000014
INITIAL
C(AC)=000000 000014 
FINAL
C(AC)=000014 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031362 031362 0   0   505600000014 0            000000000014 
IT1	031362 0      0   0   505600000014 0            000000000014 
AT3	031362 0      0   0   000000000014 0            505600000014 
AT6	031362 000014 0   0   000000000014 0            505600000014 
FT1A	031362 000014 0   0   000000000014 0            000000000014 
FT2	031362 000014 0   0   0            0            000000000014 
FT2RQ	031362 000014 0   0   000000000014 0            000000000014 
FT3	031362 000014 0   0   000000000014 0            000000000014 
FT9	031363 000014 0   0   000000000014 0            000000000014 
ET0	031363 000014 0   0   000000000014 0            000000000014 
ET1	031363 000014 0   0   000014000014 0            000000000014 
ST1	031363 000014 0   0   000014000014 0            000000000014 
ST2	031363 000014 0   0   000014000014 0            000000000014 
ST9	031363 000014 0   0   000014000014 0            000000000014 


*031363 CAME	14,000000(14)
INITIAL
C(AC)=000014 000014 
C(E)=000014 000014 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031363 031363 0   0   312614000000 0            000014000014 
IT1	031363 0      0   0   312614000000 0            000014000014 
AT1	031363 0      0   0   0            0            312614000000 
AT2	031363 0      0   0   000014000014 0            312614000000 
AT3	031363 0      0   0   000000000014 0            000014000014 
AT6	031363 000014 0   0   000000000014 0            000014000014 
FT0	031363 000014 0   0   000014000014 0            000014000014 
FT1A	031363 000014 0   0   000014000014 0            000014000014 
FT2	031363 000014 0   0   0            0            000014000014 
FT2RQ	031363 000014 0   0   000014000014 0            000014000014 
FT3	031363 000014 0   0   000014000014 0            000014000014 
FT9	031364 000014 0   0   000014000014 0            000014000014 
ET0	031365 000014 0   0   0            0            000014000014 
ST1A	031365 000014 0   0   0            0            000014000014 
ST9	031365 000014 0   0   0            0            000014000014 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 98
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0293

*031365 JUMPA	0,031366
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031365 031365 0   0   324000031366 0            000000031366 
IT1	031365 0      0   0   324000031366 0            000000031366 
AT3	031365 0      0   0   000000031366 0            324000031366 
AT6	031365 031366 0   0   000000031366 0            324000031366 
FT1A	031365 031366 0   0   000000031366 0            000000031366 
FT2	031365 031366 0   0   0            0            000000031366 
FT2RQ	031365 031366 0   0   000000000017 0            000000031366 
FT3	031365 031366 0   0   000000000017 0            000000031366 
FT9	031366 031366 0   0   000000000017 0            000000031366 
ET0	031366 031366 0   0   000000000017 0            000000031366 
ST1A	031366 031366 0   0   000000000017 0            000000031366 
ST9	031366 031366 0   0   000000000017 0            000000031366 


*031366 MOVEI	15,000015
INITIAL
C(AC)=000000 000015 
FINAL
C(AC)=000000 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031366 031366 0   0   201640000015 0            000000000015 
IT1	031366 0      0   0   201640000015 0            000000000015 
AT3	031366 0      0   0   000000000015 0            201640000015 
AT6	031366 000015 0   0   000000000015 0            201640000015 
FT1A	031366 000015 0   0   000000000015 0            000000000015 
FT9	031367 000015 0   0   000000000015 0            000000000015 
ET0	031367 000015 0   0   000000000015 0            000000000015 
ST1	031367 000015 0   0   000000000015 0            000000000015 
ST2	031367 000015 0   0   000000000015 0            000000000015 
ST9	031367 000015 0   0   000000000015 0            000000000015 


*031367 HRLI	15,000015
INITIAL
C(AC)=000000 000015 
FINAL
C(AC)=000015 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031367 031367 0   0   505640000015 0            000000000015 
IT1	031367 0      0   0   505640000015 0            000000000015 
AT3	031367 0      0   0   000000000015 0            505640000015 
AT6	031367 000015 0   0   000000000015 0            505640000015 
FT1A	031367 000015 0   0   000000000015 0            000000000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 99
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0294

FT2	031367 000015 0   0   0            0            000000000015 
FT2RQ	031367 000015 0   0   000000000015 0            000000000015 
FT3	031367 000015 0   0   000000000015 0            000000000015 
FT9	031370 000015 0   0   000000000015 0            000000000015 
ET0	031370 000015 0   0   000000000015 0            000000000015 
ET1	031370 000015 0   0   000015000015 0            000000000015 
ST1	031370 000015 0   0   000015000015 0            000000000015 
ST2	031370 000015 0   0   000015000015 0            000000000015 
ST9	031370 000015 0   0   000015000015 0            000000000015 


*031370 CAME	15,000000(15)
INITIAL
C(AC)=000015 000015 
C(E)=000015 000015 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031370 031370 0   0   312655000000 0            000015000015 
IT1	031370 0      0   0   312655000000 0            000015000015 
AT1	031370 0      0   0   0            0            312655000000 
AT2	031370 0      0   0   000015000015 0            312655000000 
AT3	031370 0      0   0   000000000015 0            000015000015 
AT6	031370 000015 0   0   000000000015 0            000015000015 
FT0	031370 000015 0   0   000015000015 0            000015000015 
FT1A	031370 000015 0   0   000015000015 0            000015000015 
FT2	031370 000015 0   0   0            0            000015000015 
FT2RQ	031370 000015 0   0   000015000015 0            000015000015 
FT3	031370 000015 0   0   000015000015 0            000015000015 
FT9	031371 000015 0   0   000015000015 0            000015000015 
ET0	031372 000015 0   0   0            0            000015000015 
ST1A	031372 000015 0   0   0            0            000015000015 
ST9	031372 000015 0   0   0            0            000015000015 


*031372 JUMPA	0,031373
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031372 031372 0   0   324000031373 0            000000031373 
IT1	031372 0      0   0   324000031373 0            000000031373 
AT3	031372 0      0   0   000000031373 0            324000031373 
AT6	031372 031373 0   0   000000031373 0            324000031373 
FT1A	031372 031373 0   0   000000031373 0            000000031373 
FT2	031372 031373 0   0   0            0            000000031373 
FT2RQ	031372 031373 0   0   000000000017 0            000000031373 
FT3	031372 031373 0   0   000000000017 0            000000031373 
FT9	031373 031373 0   0   000000000017 0            000000031373 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 100
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0295

ET0	031373 031373 0   0   000000000017 0            000000031373 
ST1A	031373 031373 0   0   000000000017 0            000000031373 
ST9	031373 031373 0   0   000000000017 0            000000031373 


*031373 MOVEI	16,000016
INITIAL
C(AC)=000000 000016 
FINAL
C(AC)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031373 031373 0   0   201700000016 0            000000000016 
IT1	031373 0      0   0   201700000016 0            000000000016 
AT3	031373 0      0   0   000000000016 0            201700000016 
AT6	031373 000016 0   0   000000000016 0            201700000016 
FT1A	031373 000016 0   0   000000000016 0            000000000016 
FT9	031374 000016 0   0   000000000016 0            000000000016 
ET0	031374 000016 0   0   000000000016 0            000000000016 
ST1	031374 000016 0   0   000000000016 0            000000000016 
ST2	031374 000016 0   0   000000000016 0            000000000016 
ST9	031374 000016 0   0   000000000016 0            000000000016 


*031374 HRLI	16,000016
INITIAL
C(AC)=000000 000016 
FINAL
C(AC)=000016 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031374 031374 0   0   505700000016 0            000000000016 
IT1	031374 0      0   0   505700000016 0            000000000016 
AT3	031374 0      0   0   000000000016 0            505700000016 
AT6	031374 000016 0   0   000000000016 0            505700000016 
FT1A	031374 000016 0   0   000000000016 0            000000000016 
FT2	031374 000016 0   0   0            0            000000000016 
FT2RQ	031374 000016 0   0   000000000016 0            000000000016 
FT3	031374 000016 0   0   000000000016 0            000000000016 
FT9	031375 000016 0   0   000000000016 0            000000000016 
ET0	031375 000016 0   0   000000000016 0            000000000016 
ET1	031375 000016 0   0   000016000016 0            000000000016 
ST1	031375 000016 0   0   000016000016 0            000000000016 
ST2	031375 000016 0   0   000016000016 0            000000000016 
ST9	031375 000016 0   0   000016000016 0            000000000016 


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

*031375 CAME	16,000000(16)
INITIAL
C(AC)=000016 000016 
C(E)=000016 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031375 031375 0   0   312716000000 0            000016000016 
IT1	031375 0      0   0   312716000000 0            000016000016 
AT1	031375 0      0   0   0            0            312716000000 
AT2	031375 0      0   0   000016000016 0            312716000000 
AT3	031375 0      0   0   000000000016 0            000016000016 
AT6	031375 000016 0   0   000000000016 0            000016000016 
FT0	031375 000016 0   0   000016000016 0            000016000016 
FT1A	031375 000016 0   0   000016000016 0            000016000016 
FT2	031375 000016 0   0   0            0            000016000016 
FT2RQ	031375 000016 0   0   000016000016 0            000016000016 
FT3	031375 000016 0   0   000016000016 0            000016000016 
FT9	031376 000016 0   0   000016000016 0            000016000016 
ET0	031377 000016 0   0   0            0            000016000016 
ST1A	031377 000016 0   0   0            0            000016000016 
ST9	031377 000016 0   0   0            0            000016000016 


*031377 JUMPA	0,031400
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031377 031377 0   0   324000031400 0            000000031400 
IT1	031377 0      0   0   324000031400 0            000000031400 
AT3	031377 0      0   0   000000031400 0            324000031400 
AT6	031377 0      0   0   000000031400 0            324000031400 
FT1A	031377 0      0   0   000000031400 0            000000031400 
FT2	031377 0      0   0   0            0            000000031400 
FT2RQ	031377 0      0   0   000000000017 0            000000031400 
FT3	031377 0      0   0   000000000017 0            000000031400 
FT9	0      0      0   0   000000000017 0            000000031400 
ET0	0      0      0   0   000000000017 0            000000031400 
ST1A	0      0      0   0   000000000017 0            000000031400 
ST9	0      0      0   0   000000000017 0            000000031400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 102
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0297

*031400 MOVEI	17,000017
INITIAL
C(AC)=000000 000017 
FINAL
C(AC)=000000 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   201740000017 0            000000000017 
IT1	0      0      0   0   201740000017 0            000000000017 
AT3	0      0      0   0   000000000017 0            201740000017 
AT6	0      000017 0   0   000000000017 0            201740000017 
FT1A	0      000017 0   0   000000000017 0            000000000017 
FT9	031401 000017 0   0   000000000017 0            000000000017 
ET0	031401 000017 0   0   000000000017 0            000000000017 
ST1	031401 000017 0   0   000000000017 0            000000000017 
ST2	031401 000017 0   0   000000000017 0            000000000017 
ST9	031401 000017 0   0   000000000017 0            000000000017 


*031401 HRLI	17,000017
INITIAL
C(AC)=000000 000017 
FINAL
C(AC)=000017 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031401 031401 0   0   505740000017 0            000000000017 
IT1	031401 0      0   0   505740000017 0            000000000017 
AT3	031401 0      0   0   000000000017 0            505740000017 
AT6	031401 000017 0   0   000000000017 0            505740000017 
FT1A	031401 000017 0   0   000000000017 0            000000000017 
FT2	031401 000017 0   0   0            0            000000000017 
FT2RQ	031401 000017 0   0   000000000017 0            000000000017 
FT3	031401 000017 0   0   000000000017 0            000000000017 
FT9	031402 000017 0   0   000000000017 0            000000000017 
ET0	031402 000017 0   0   000000000017 0            000000000017 
ET1	031402 000017 0   0   000017000017 0            000000000017 
ST1	031402 000017 0   0   000017000017 0            000000000017 
ST2	031402 000017 0   0   000017000017 0            000000000017 
ST9	031402 000017 0   0   000017000017 0            000000000017 


*031402 CAME	17,000000(17)
INITIAL
C(AC)=000017 000017 
C(E)=000017 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031402 031402 0   0   312757000000 0            000017000017 
IT1	031402 0      0   0   312757000000 0            000017000017 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 103
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0298

AT1	031402 0      0   0   0            0            312757000000 
AT2	031402 0      0   0   000017000017 0            312757000000 
AT3	031402 0      0   0   000000000017 0            000017000017 
AT6	031402 000017 0   0   000000000017 0            000017000017 
FT0	031402 000017 0   0   000017000017 0            000017000017 
FT1A	031402 000017 0   0   000017000017 0            000017000017 
FT2	031402 000017 0   0   0            0            000017000017 
FT2RQ	031402 000017 0   0   000017000017 0            000017000017 
FT3	031402 000017 0   0   000017000017 0            000017000017 
FT9	031403 000017 0   0   000017000017 0            000017000017 
ET0	031404 000017 0   0   0            0            000017000017 
ST1A	031404 000017 0   0   0            0            000017000017 
ST9	031404 000017 0   0   0            0            000017000017 


*031404 JUMPA	0,031405
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031404 031404 0   0   324000031405 0            000000031405 
IT1	031404 0      0   0   324000031405 0            000000031405 
AT3	031404 0      0   0   000000031405 0            324000031405 
AT6	031404 031405 0   0   000000031405 0            324000031405 
FT1A	031404 031405 0   0   000000031405 0            000000031405 
FT2	031404 031405 0   0   0            0            000000031405 
FT2RQ	031404 031405 0   0   000000000017 0            000000031405 
FT3	031404 031405 0   0   000000000017 0            000000031405 
FT9	031405 031405 0   0   000000000017 0            000000031405 
ET0	031405 031405 0   0   000000000017 0            000000031405 
ST1A	031405 031405 0   0   000000000017 0            000000031405 
ST9	031405 031405 0   0   000000000017 0            000000031405 


*031405 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000003 000003 
FINAL

C(E)=000003 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031405 031405 0   0   476000000003 0            000000000003 
IT1	031405 0      0   0   476000000003 0            000000000003 
AT3	031405 0      0   0   000000000003 0            476000000003 
AT6	031405 000003 0   0   000000000003 0            476000000003 
FT1A	031405 000003 0   0   000000000003 0            000000000003 
FT9	031406 000003 0   0   000000000003 0            000000000003 
ET0	031406 000003 0   0   777777777777 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 104
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0299

ST6	031406 000003 0   0   777777777777 0            000000000003 
ST6A	031406 000003 0   0   777777777777 0            000000000003 
ST9	031406 000003 0   0   777777777777 0            000000000003 


*031406 SETZM	0,000001
INITIAL
C(AC)=000000 000017 
C(E)=000001 000001 
FINAL

C(E)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031406 031406 0   0   402000000001 0            000000000001 
IT1	031406 0      0   0   402000000001 0            000000000001 
AT3	031406 0      0   0   000000000001 0            402000000001 
AT6	031406 000001 0   0   000000000001 0            402000000001 
FT1A	031406 000001 0   0   000000000001 0            000000000001 
FT9	031407 000001 0   0   000000000001 0            000000000001 
ET0	031407 000001 0   0   0            0            000000000001 
ST6	031407 000001 0   0   0            0            000000000001 
ST6A	031407 000001 0   0   0            0            000000000001 
ST9	031407 000001 0   0   0            0            000000000001 


*031407 MOVEI	2,000001
INITIAL
C(AC)=000002 000002 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031407 031407 0   0   201100000001 0            000000000001 
IT1	031407 0      0   0   201100000001 0            000000000001 
AT3	031407 0      0   0   000000000001 0            201100000001 
AT6	031407 000001 0   0   000000000001 0            201100000001 
FT1A	031407 000001 0   0   000000000001 0            000000000001 
FT9	031410 000001 0   0   000000000001 0            000000000001 
ET0	031410 000001 0   0   000000000001 0            000000000001 
ST1	031410 000001 0   0   000000000001 0            000000000001 
ST2	031410 000001 0   0   000000000001 0            000000000001 
ST9	031410 000001 0   0   000000000001 0            000000000001 


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

*031410 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031410 031410 0   0   200142000000 0            0            
IT1	031410 0      0   0   200142000000 0            0            
AT1	031410 0      0   0   0            0            200142000000 
AT2	031410 0      0   0   000000000001 0            200142000000 
AT3	031410 0      0   0   000000000001 0            000000000001 
AT6	031410 000001 0   0   000000000001 0            000000000001 
FT0	031410 000001 0   0   0            0            000000000001 
FT1A	031410 000001 0   0   0            0            0            
FT9	031411 000001 0   0   0            0            0            
ET0	031411 000001 0   0   0            0            0            
ST1	031411 000001 0   0   0            0            0            
ST2	031411 000001 0   0   0            0            0            
ST9	031411 000001 0   0   0            0            0            


*031411 SKIPE	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000000 
FINAL
C(AC)=000000 000017 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031411 031411 0   0   332000000003 0            0            
IT1	031411 0      0   0   332000000003 0            0            
AT3	031411 0      0   0   000000000003 0            332000000003 
AT6	031411 000003 0   0   000000000003 0            332000000003 
FT0	031411 000003 0   0   0            0            332000000003 
FT1A	031411 000003 0   0   0            0            0            
FT9	031412 000003 0   0   0            0            0            
ET0	031413 000003 0   0   0            0            0            
ST1A	031413 000003 0   0   0            0            0            
ST9	031413 000003 0   0   0            0            0            


*031413 JUMPA	0,031414
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031413 031413 0   0   324000031414 0            000000031414 
IT1	031413 0      0   0   324000031414 0            000000031414 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 106
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0301

AT3	031413 0      0   0   000000031414 0            324000031414 
AT6	031413 031414 0   0   000000031414 0            324000031414 
FT1A	031413 031414 0   0   000000031414 0            000000031414 
FT2	031413 031414 0   0   0            0            000000031414 
FT2RQ	031413 031414 0   0   000000000017 0            000000031414 
FT3	031413 031414 0   0   000000000017 0            000000031414 
FT9	031414 031414 0   0   000000000017 0            000000031414 
ET0	031414 031414 0   0   000000000017 0            000000031414 
ST1A	031414 031414 0   0   000000000017 0            000000031414 
ST9	031414 031414 0   0   000000000017 0            000000031414 


*031414 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031414 031414 0   0   476000000003 0            000000000003 
IT1	031414 0      0   0   476000000003 0            000000000003 
AT3	031414 0      0   0   000000000003 0            476000000003 
AT6	031414 000003 0   0   000000000003 0            476000000003 
FT1A	031414 000003 0   0   000000000003 0            000000000003 
FT9	031415 000003 0   0   000000000003 0            000000000003 
ET0	031415 000003 0   0   777777777777 0            000000000003 
ST6	031415 000003 0   0   777777777777 0            000000000003 
ST6A	031415 000003 0   0   777777777777 0            000000000003 
ST9	031415 000003 0   0   777777777777 0            000000000003 


*031415 MOVEI	1,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031415 031415 0   0   201040000001 0            000000000001 
IT1	031415 0      0   0   201040000001 0            000000000001 
AT3	031415 0      0   0   000000000001 0            201040000001 
AT6	031415 000001 0   0   000000000001 0            201040000001 
FT1A	031415 000001 0   0   000000000001 0            000000000001 
FT9	031416 000001 0   0   000000000001 0            000000000001 
ET0	031416 000001 0   0   000000000001 0            000000000001 
ST1	031416 000001 0   0   000000000001 0            000000000001 
ST2	031416 000001 0   0   000000000001 0            000000000001 
ST9	031416 000001 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 107
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0302

*031416 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031416 031416 0   0   201100000001 0            000000000001 
IT1	031416 0      0   0   201100000001 0            000000000001 
AT3	031416 0      0   0   000000000001 0            201100000001 
AT6	031416 000001 0   0   000000000001 0            201100000001 
FT1A	031416 000001 0   0   000000000001 0            000000000001 
FT9	031417 000001 0   0   000000000001 0            000000000001 
ET0	031417 000001 0   0   000000000001 0            000000000001 
ST1	031417 000001 0   0   000000000001 0            000000000001 
ST2	031417 000001 0   0   000000000001 0            000000000001 
ST9	031417 000001 0   0   000000000001 0            000000000001 


*031417 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031417 031417 0   0   200142000000 0            000000000001 
IT1	031417 0      0   0   200142000000 0            000000000001 
AT1	031417 0      0   0   0            0            200142000000 
AT2	031417 0      0   0   000000000001 0            200142000000 
AT3	031417 0      0   0   000000000001 0            000000000001 
AT6	031417 000001 0   0   000000000001 0            000000000001 
FT0	031417 000001 0   0   000000000001 0            000000000001 
FT1A	031417 000001 0   0   000000000001 0            000000000001 
FT9	031420 000001 0   0   000000000001 0            000000000001 
ET0	031420 000001 0   0   000000000001 0            000000000001 
ST1	031420 000001 0   0   000000000001 0            000000000001 
ST2	031420 000001 0   0   000000000001 0            000000000001 
ST9	031420 000001 0   0   000000000001 0            000000000001 


*031420 CAIE	3,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031420 031420 0   0   302140000001 0            000000000001 
IT1	031420 0      0   0   302140000001 0            000000000001 
AT3	031420 0      0   0   000000000001 0            302140000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 108
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0303

AT6	031420 000001 0   0   000000000001 0            302140000001 
FT1A	031420 000001 0   0   000000000001 0            000000000001 
FT2	031420 000001 0   0   0            0            000000000001 
FT2RQ	031420 000001 0   0   000000000001 0            000000000001 
FT3	031420 000001 0   0   000000000001 0            000000000001 
FT9	031421 000001 0   0   000000000001 0            000000000001 
ET0	031422 000001 0   0   0            0            000000000001 
ST1A	031422 000001 0   0   0            0            000000000001 
ST9	031422 000001 0   0   0            0            000000000001 


*031422 JUMPA	0,031423
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031422 031422 0   0   324000031423 0            000000031423 
IT1	031422 0      0   0   324000031423 0            000000031423 
AT3	031422 0      0   0   000000031423 0            324000031423 
AT6	031422 031423 0   0   000000031423 0            324000031423 
FT1A	031422 031423 0   0   000000031423 0            000000031423 
FT2	031422 031423 0   0   0            0            000000031423 
FT2RQ	031422 031423 0   0   000000000017 0            000000031423 
FT3	031422 031423 0   0   000000000017 0            000000031423 
FT9	031423 031423 0   0   000000000017 0            000000031423 
ET0	031423 031423 0   0   000000000017 0            000000031423 
ST1A	031423 031423 0   0   000000000017 0            000000031423 
ST9	031423 031423 0   0   000000000017 0            000000031423 


*031423 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000001 
FINAL

C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031423 031423 0   0   476000000003 0            000000000003 
IT1	031423 0      0   0   476000000003 0            000000000003 
AT3	031423 0      0   0   000000000003 0            476000000003 
AT6	031423 000003 0   0   000000000003 0            476000000003 
FT1A	031423 000003 0   0   000000000003 0            000000000003 
FT9	031424 000003 0   0   000000000003 0            000000000003 
ET0	031424 000003 0   0   777777777777 0            000000000003 
ST6	031424 000003 0   0   777777777777 0            000000000003 
ST6A	031424 000003 0   0   777777777777 0            000000000003 
ST9	031424 000003 0   0   777777777777 0            000000000003 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 109
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0304


*031424 MOVEI	1,000002
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031424 031424 0   0   201040000002 0            000000000002 
IT1	031424 0      0   0   201040000002 0            000000000002 
AT3	031424 0      0   0   000000000002 0            201040000002 
AT6	031424 000002 0   0   000000000002 0            201040000002 
FT1A	031424 000002 0   0   000000000002 0            000000000002 
FT9	031425 000002 0   0   000000000002 0            000000000002 
ET0	031425 000002 0   0   000000000002 0            000000000002 
ST1	031425 000002 0   0   000000000002 0            000000000002 
ST2	031425 000002 0   0   000000000002 0            000000000002 
ST9	031425 000002 0   0   000000000002 0            000000000002 


*031425 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031425 031425 0   0   201100000001 0            000000000001 
IT1	031425 0      0   0   201100000001 0            000000000001 
AT3	031425 0      0   0   000000000001 0            201100000001 
AT6	031425 000001 0   0   000000000001 0            201100000001 
FT1A	031425 000001 0   0   000000000001 0            000000000001 
FT9	031426 000001 0   0   000000000001 0            000000000001 
ET0	031426 000001 0   0   000000000001 0            000000000001 
ST1	031426 000001 0   0   000000000001 0            000000000001 
ST2	031426 000001 0   0   000000000001 0            000000000001 
ST9	031426 000001 0   0   000000000001 0            000000000001 


*031426 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031426 031426 0   0   200142000000 0            000000000002 
IT1	031426 0      0   0   200142000000 0            000000000002 
AT1	031426 0      0   0   0            0            200142000000 
AT2	031426 0      0   0   000000000001 0            200142000000 
AT3	031426 0      0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 110
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0305

AT6	031426 000001 0   0   000000000001 0            000000000001 
FT0	031426 000001 0   0   000000000002 0            000000000001 
FT1A	031426 000001 0   0   000000000002 0            000000000002 
FT9	031427 000001 0   0   000000000002 0            000000000002 
ET0	031427 000001 0   0   000000000002 0            000000000002 
ST1	031427 000001 0   0   000000000002 0            000000000002 
ST2	031427 000001 0   0   000000000002 0            000000000002 
ST9	031427 000001 0   0   000000000002 0            000000000002 


*031427 CAIE	3,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031427 031427 0   0   302140000002 0            000000000002 
IT1	031427 0      0   0   302140000002 0            000000000002 
AT3	031427 0      0   0   000000000002 0            302140000002 
AT6	031427 000002 0   0   000000000002 0            302140000002 
FT1A	031427 000002 0   0   000000000002 0            000000000002 
FT2	031427 000002 0   0   0            0            000000000002 
FT2RQ	031427 000002 0   0   000000000002 0            000000000002 
FT3	031427 000002 0   0   000000000002 0            000000000002 
FT9	031430 000002 0   0   000000000002 0            000000000002 
ET0	031431 000002 0   0   0            0            000000000002 
ST1A	031431 000002 0   0   0            0            000000000002 
ST9	031431 000002 0   0   0            0            000000000002 


*031431 JUMPA	0,031432
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031431 031431 0   0   324000031432 0            000000031432 
IT1	031431 0      0   0   324000031432 0            000000031432 
AT3	031431 0      0   0   000000031432 0            324000031432 
AT6	031431 031432 0   0   000000031432 0            324000031432 
FT1A	031431 031432 0   0   000000031432 0            000000031432 
FT2	031431 031432 0   0   0            0            000000031432 
FT2RQ	031431 031432 0   0   000000000017 0            000000031432 
FT3	031431 031432 0   0   000000000017 0            000000031432 
FT9	031432 031432 0   0   000000000017 0            000000031432 
ET0	031432 031432 0   0   000000000017 0            000000031432 
ST1A	031432 031432 0   0   000000000017 0            000000031432 
ST9	031432 031432 0   0   000000000017 0            000000031432 


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

*031432 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000002 
FINAL

C(E)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031432 031432 0   0   476000000003 0            000000000003 
IT1	031432 0      0   0   476000000003 0            000000000003 
AT3	031432 0      0   0   000000000003 0            476000000003 
AT6	031432 000003 0   0   000000000003 0            476000000003 
FT1A	031432 000003 0   0   000000000003 0            000000000003 
FT9	031433 000003 0   0   000000000003 0            000000000003 
ET0	031433 000003 0   0   777777777777 0            000000000003 
ST6	031433 000003 0   0   777777777777 0            000000000003 
ST6A	031433 000003 0   0   777777777777 0            000000000003 
ST9	031433 000003 0   0   777777777777 0            000000000003 


*031433 MOVEI	1,000004
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031433 031433 0   0   201040000004 0            000000000004 
IT1	031433 0      0   0   201040000004 0            000000000004 
AT3	031433 0      0   0   000000000004 0            201040000004 
AT6	031433 000004 0   0   000000000004 0            201040000004 
FT1A	031433 000004 0   0   000000000004 0            000000000004 
FT9	031434 000004 0   0   000000000004 0            000000000004 
ET0	031434 000004 0   0   000000000004 0            000000000004 
ST1	031434 000004 0   0   000000000004 0            000000000004 
ST2	031434 000004 0   0   000000000004 0            000000000004 
ST9	031434 000004 0   0   000000000004 0            000000000004 


*031434 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031434 031434 0   0   201100000001 0            000000000001 
IT1	031434 0      0   0   201100000001 0            000000000001 
AT3	031434 0      0   0   000000000001 0            201100000001 
AT6	031434 000001 0   0   000000000001 0            201100000001 
FT1A	031434 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 112
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0307

FT9	031435 000001 0   0   000000000001 0            000000000001 
ET0	031435 000001 0   0   000000000001 0            000000000001 
ST1	031435 000001 0   0   000000000001 0            000000000001 
ST2	031435 000001 0   0   000000000001 0            000000000001 
ST9	031435 000001 0   0   000000000001 0            000000000001 


*031435 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031435 031435 0   0   200142000000 0            000000000004 
IT1	031435 0      0   0   200142000000 0            000000000004 
AT1	031435 0      0   0   0            0            200142000000 
AT2	031435 0      0   0   000000000001 0            200142000000 
AT3	031435 0      0   0   000000000001 0            000000000001 
AT6	031435 000001 0   0   000000000001 0            000000000001 
FT0	031435 000001 0   0   000000000004 0            000000000001 
FT1A	031435 000001 0   0   000000000004 0            000000000004 
FT9	031436 000001 0   0   000000000004 0            000000000004 
ET0	031436 000001 0   0   000000000004 0            000000000004 
ST1	031436 000001 0   0   000000000004 0            000000000004 
ST2	031436 000001 0   0   000000000004 0            000000000004 
ST9	031436 000001 0   0   000000000004 0            000000000004 


*031436 CAIE	3,000004
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031436 031436 0   0   302140000004 0            000000000004 
IT1	031436 0      0   0   302140000004 0            000000000004 
AT3	031436 0      0   0   000000000004 0            302140000004 
AT6	031436 000004 0   0   000000000004 0            302140000004 
FT1A	031436 000004 0   0   000000000004 0            000000000004 
FT2	031436 000004 0   0   0            0            000000000004 
FT2RQ	031436 000004 0   0   000000000004 0            000000000004 
FT3	031436 000004 0   0   000000000004 0            000000000004 
FT9	031437 000004 0   0   000000000004 0            000000000004 
ET0	031440 000004 0   0   0            0            000000000004 
ST1A	031440 000004 0   0   0            0            000000000004 
ST9	031440 000004 0   0   0            0            000000000004 


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

*031440 JUMPA	0,031441
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031440 031440 0   0   324000031441 0            000000031441 
IT1	031440 0      0   0   324000031441 0            000000031441 
AT3	031440 0      0   0   000000031441 0            324000031441 
AT6	031440 031441 0   0   000000031441 0            324000031441 
FT1A	031440 031441 0   0   000000031441 0            000000031441 
FT2	031440 031441 0   0   0            0            000000031441 
FT2RQ	031440 031441 0   0   000000000017 0            000000031441 
FT3	031440 031441 0   0   000000000017 0            000000031441 
FT9	031441 031441 0   0   000000000017 0            000000031441 
ET0	031441 031441 0   0   000000000017 0            000000031441 
ST1A	031441 031441 0   0   000000000017 0            000000031441 
ST9	031441 031441 0   0   000000000017 0            000000031441 


*031441 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000004 
FINAL

C(E)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031441 031441 0   0   476000000003 0            000000000003 
IT1	031441 0      0   0   476000000003 0            000000000003 
AT3	031441 0      0   0   000000000003 0            476000000003 
AT6	031441 000003 0   0   000000000003 0            476000000003 
FT1A	031441 000003 0   0   000000000003 0            000000000003 
FT9	031442 000003 0   0   000000000003 0            000000000003 
ET0	031442 000003 0   0   777777777777 0            000000000003 
ST6	031442 000003 0   0   777777777777 0            000000000003 
ST6A	031442 000003 0   0   777777777777 0            000000000003 
ST9	031442 000003 0   0   777777777777 0            000000000003 


*031442 MOVEI	1,000010
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031442 031442 0   0   201040000010 0            000000000010 
IT1	031442 0      0   0   201040000010 0            000000000010 
AT3	031442 0      0   0   000000000010 0            201040000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 114
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0309

AT6	031442 000010 0   0   000000000010 0            201040000010 
FT1A	031442 000010 0   0   000000000010 0            000000000010 
FT9	031443 000010 0   0   000000000010 0            000000000010 
ET0	031443 000010 0   0   000000000010 0            000000000010 
ST1	031443 000010 0   0   000000000010 0            000000000010 
ST2	031443 000010 0   0   000000000010 0            000000000010 
ST9	031443 000010 0   0   000000000010 0            000000000010 


*031443 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031443 031443 0   0   201100000001 0            000000000001 
IT1	031443 0      0   0   201100000001 0            000000000001 
AT3	031443 0      0   0   000000000001 0            201100000001 
AT6	031443 000001 0   0   000000000001 0            201100000001 
FT1A	031443 000001 0   0   000000000001 0            000000000001 
FT9	031444 000001 0   0   000000000001 0            000000000001 
ET0	031444 000001 0   0   000000000001 0            000000000001 
ST1	031444 000001 0   0   000000000001 0            000000000001 
ST2	031444 000001 0   0   000000000001 0            000000000001 
ST9	031444 000001 0   0   000000000001 0            000000000001 


*031444 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031444 031444 0   0   200142000000 0            000000000010 
IT1	031444 0      0   0   200142000000 0            000000000010 
AT1	031444 0      0   0   0            0            200142000000 
AT2	031444 0      0   0   000000000001 0            200142000000 
AT3	031444 0      0   0   000000000001 0            000000000001 
AT6	031444 000001 0   0   000000000001 0            000000000001 
FT0	031444 000001 0   0   000000000010 0            000000000001 
FT1A	031444 000001 0   0   000000000010 0            000000000010 
FT9	031445 000001 0   0   000000000010 0            000000000010 
ET0	031445 000001 0   0   000000000010 0            000000000010 
ST1	031445 000001 0   0   000000000010 0            000000000010 
ST2	031445 000001 0   0   000000000010 0            000000000010 
ST9	031445 000001 0   0   000000000010 0            000000000010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 115
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0310

*031445 CAIE	3,000010
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031445 031445 0   0   302140000010 0            000000000010 
IT1	031445 0      0   0   302140000010 0            000000000010 
AT3	031445 0      0   0   000000000010 0            302140000010 
AT6	031445 000010 0   0   000000000010 0            302140000010 
FT1A	031445 000010 0   0   000000000010 0            000000000010 
FT2	031445 000010 0   0   0            0            000000000010 
FT2RQ	031445 000010 0   0   000000000010 0            000000000010 
FT3	031445 000010 0   0   000000000010 0            000000000010 
FT9	031446 000010 0   0   000000000010 0            000000000010 
ET0	031447 000010 0   0   0            0            000000000010 
ST1A	031447 000010 0   0   0            0            000000000010 
ST9	031447 000010 0   0   0            0            000000000010 


*031447 JUMPA	0,031450
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   324000031450 0            000000031450 
IT1	031447 0      0   0   324000031450 0            000000031450 
AT3	031447 0      0   0   000000031450 0            324000031450 
AT6	031447 031450 0   0   000000031450 0            324000031450 
FT1A	031447 031450 0   0   000000031450 0            000000031450 
FT2	031447 031450 0   0   0            0            000000031450 
FT2RQ	031447 031450 0   0   000000000017 0            000000031450 
FT3	031447 031450 0   0   000000000017 0            000000031450 
FT9	031450 031450 0   0   000000000017 0            000000031450 
ET0	031450 031450 0   0   000000000017 0            000000031450 
ST1A	031450 031450 0   0   000000000017 0            000000031450 
ST9	031450 031450 0   0   000000000017 0            000000031450 


*031450 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000010 
FINAL

C(E)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031450 031450 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 116
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0311

IT1	031450 0      0   0   476000000003 0            000000000003 
AT3	031450 0      0   0   000000000003 0            476000000003 
AT6	031450 000003 0   0   000000000003 0            476000000003 
FT1A	031450 000003 0   0   000000000003 0            000000000003 
FT9	031451 000003 0   0   000000000003 0            000000000003 
ET0	031451 000003 0   0   777777777777 0            000000000003 
ST6	031451 000003 0   0   777777777777 0            000000000003 
ST6A	031451 000003 0   0   777777777777 0            000000000003 
ST9	031451 000003 0   0   777777777777 0            000000000003 


*031451 MOVEI	1,000020
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031451 031451 0   0   201040000020 0            000000000020 
IT1	031451 0      0   0   201040000020 0            000000000020 
AT3	031451 0      0   0   000000000020 0            201040000020 
AT6	031451 000020 0   0   000000000020 0            201040000020 
FT1A	031451 000020 0   0   000000000020 0            000000000020 
FT9	031452 000020 0   0   000000000020 0            000000000020 
ET0	031452 000020 0   0   000000000020 0            000000000020 
ST1	031452 000020 0   0   000000000020 0            000000000020 
ST2	031452 000020 0   0   000000000020 0            000000000020 
ST9	031452 000020 0   0   000000000020 0            000000000020 


*031452 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031452 031452 0   0   201100000001 0            000000000001 
IT1	031452 0      0   0   201100000001 0            000000000001 
AT3	031452 0      0   0   000000000001 0            201100000001 
AT6	031452 000001 0   0   000000000001 0            201100000001 
FT1A	031452 000001 0   0   000000000001 0            000000000001 
FT9	031453 000001 0   0   000000000001 0            000000000001 
ET0	031453 000001 0   0   000000000001 0            000000000001 
ST1	031453 000001 0   0   000000000001 0            000000000001 
ST2	031453 000001 0   0   000000000001 0            000000000001 
ST9	031453 000001 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 117
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0312

*031453 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031453 031453 0   0   200142000000 0            000000000020 
IT1	031453 0      0   0   200142000000 0            000000000020 
AT1	031453 0      0   0   0            0            200142000000 
AT2	031453 0      0   0   000000000001 0            200142000000 
AT3	031453 0      0   0   000000000001 0            000000000001 
AT6	031453 000001 0   0   000000000001 0            000000000001 
FT0	031453 000001 0   0   000000000020 0            000000000001 
FT1A	031453 000001 0   0   000000000020 0            000000000020 
FT9	031454 000001 0   0   000000000020 0            000000000020 
ET0	031454 000001 0   0   000000000020 0            000000000020 
ST1	031454 000001 0   0   000000000020 0            000000000020 
ST2	031454 000001 0   0   000000000020 0            000000000020 
ST9	031454 000001 0   0   000000000020 0            000000000020 


*031454 CAIE	3,000020
INITIAL
C(AC)=000000 000020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031454 031454 0   0   302140000020 0            000000000020 
IT1	031454 0      0   0   302140000020 0            000000000020 
AT3	031454 0      0   0   000000000020 0            302140000020 
AT6	031454 000020 0   0   000000000020 0            302140000020 
FT1A	031454 000020 0   0   000000000020 0            000000000020 
FT2	031454 000020 0   0   0            0            000000000020 
FT2RQ	031454 000020 0   0   000000000020 0            000000000020 
FT3	031454 000020 0   0   000000000020 0            000000000020 
FT9	031455 000020 0   0   000000000020 0            000000000020 
ET0	031456 000020 0   0   0            0            000000000020 
ST1A	031456 000020 0   0   0            0            000000000020 
ST9	031456 000020 0   0   0            0            000000000020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 118
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0313

*031456 JUMPA	0,031457
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031456 031456 0   0   324000031457 0            000000031457 
IT1	031456 0      0   0   324000031457 0            000000031457 
AT3	031456 0      0   0   000000031457 0            324000031457 
AT6	031456 031457 0   0   000000031457 0            324000031457 
FT1A	031456 031457 0   0   000000031457 0            000000031457 
FT2	031456 031457 0   0   0            0            000000031457 
FT2RQ	031456 031457 0   0   000000000017 0            000000031457 
FT3	031456 031457 0   0   000000000017 0            000000031457 
FT9	031457 031457 0   0   000000000017 0            000000031457 
ET0	031457 031457 0   0   000000000017 0            000000031457 
ST1A	031457 031457 0   0   000000000017 0            000000031457 
ST9	031457 031457 0   0   000000000017 0            000000031457 


*031457 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000020 
FINAL

C(E)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031457 031457 0   0   476000000003 0            000000000003 
IT1	031457 0      0   0   476000000003 0            000000000003 
AT3	031457 0      0   0   000000000003 0            476000000003 
AT6	031457 000003 0   0   000000000003 0            476000000003 
FT1A	031457 000003 0   0   000000000003 0            000000000003 
FT9	031460 000003 0   0   000000000003 0            000000000003 
ET0	031460 000003 0   0   777777777777 0            000000000003 
ST6	031460 000003 0   0   777777777777 0            000000000003 
ST6A	031460 000003 0   0   777777777777 0            000000000003 
ST9	031460 000003 0   0   777777777777 0            000000000003 


*031460 MOVEI	1,000040
INITIAL
C(AC)=000000 000020 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031460 031460 0   0   201040000040 0            000000000040 
IT1	031460 0      0   0   201040000040 0            000000000040 
AT3	031460 0      0   0   000000000040 0            201040000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 119
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0314

AT6	031460 000040 0   0   000000000040 0            201040000040 
FT1A	031460 000040 0   0   000000000040 0            000000000040 
FT9	031461 000040 0   0   000000000040 0            000000000040 
ET0	031461 000040 0   0   000000000040 0            000000000040 
ST1	031461 000040 0   0   000000000040 0            000000000040 
ST2	031461 000040 0   0   000000000040 0            000000000040 
ST9	031461 000040 0   0   000000000040 0            000000000040 


*031461 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031461 031461 0   0   201100000001 0            000000000001 
IT1	031461 0      0   0   201100000001 0            000000000001 
AT3	031461 0      0   0   000000000001 0            201100000001 
AT6	031461 000001 0   0   000000000001 0            201100000001 
FT1A	031461 000001 0   0   000000000001 0            000000000001 
FT9	031462 000001 0   0   000000000001 0            000000000001 
ET0	031462 000001 0   0   000000000001 0            000000000001 
ST1	031462 000001 0   0   000000000001 0            000000000001 
ST2	031462 000001 0   0   000000000001 0            000000000001 
ST9	031462 000001 0   0   000000000001 0            000000000001 


*031462 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031462 031462 0   0   200142000000 0            000000000040 
IT1	031462 0      0   0   200142000000 0            000000000040 
AT1	031462 0      0   0   0            0            200142000000 
AT2	031462 0      0   0   000000000001 0            200142000000 
AT3	031462 0      0   0   000000000001 0            000000000001 
AT6	031462 000001 0   0   000000000001 0            000000000001 
FT0	031462 000001 0   0   000000000040 0            000000000001 
FT1A	031462 000001 0   0   000000000040 0            000000000040 
FT9	031463 000001 0   0   000000000040 0            000000000040 
ET0	031463 000001 0   0   000000000040 0            000000000040 
ST1	031463 000001 0   0   000000000040 0            000000000040 
ST2	031463 000001 0   0   000000000040 0            000000000040 
ST9	031463 000001 0   0   000000000040 0            000000000040 


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

*031463 CAIE	3,000040
INITIAL
C(AC)=000000 000040 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031463 031463 0   0   302140000040 0            000000000040 
IT1	031463 0      0   0   302140000040 0            000000000040 
AT3	031463 0      0   0   000000000040 0            302140000040 
AT6	031463 000040 0   0   000000000040 0            302140000040 
FT1A	031463 000040 0   0   000000000040 0            000000000040 
FT2	031463 000040 0   0   0            0            000000000040 
FT2RQ	031463 000040 0   0   000000000040 0            000000000040 
FT3	031463 000040 0   0   000000000040 0            000000000040 
FT9	031464 000040 0   0   000000000040 0            000000000040 
ET0	031465 000040 0   0   0            0            000000000040 
ST1A	031465 000040 0   0   0            0            000000000040 
ST9	031465 000040 0   0   0            0            000000000040 


*031465 JUMPA	0,031466
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031465 031465 0   0   324000031466 0            000000031466 
IT1	031465 0      0   0   324000031466 0            000000031466 
AT3	031465 0      0   0   000000031466 0            324000031466 
AT6	031465 031466 0   0   000000031466 0            324000031466 
FT1A	031465 031466 0   0   000000031466 0            000000031466 
FT2	031465 031466 0   0   0            0            000000031466 
FT2RQ	031465 031466 0   0   000000000017 0            000000031466 
FT3	031465 031466 0   0   000000000017 0            000000031466 
FT9	031466 031466 0   0   000000000017 0            000000031466 
ET0	031466 031466 0   0   000000000017 0            000000031466 
ST1A	031466 031466 0   0   000000000017 0            000000031466 
ST9	031466 031466 0   0   000000000017 0            000000031466 


*031466 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000040 
FINAL

C(E)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031466 031466 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 121
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0316

IT1	031466 0      0   0   476000000003 0            000000000003 
AT3	031466 0      0   0   000000000003 0            476000000003 
AT6	031466 000003 0   0   000000000003 0            476000000003 
FT1A	031466 000003 0   0   000000000003 0            000000000003 
FT9	031467 000003 0   0   000000000003 0            000000000003 
ET0	031467 000003 0   0   777777777777 0            000000000003 
ST6	031467 000003 0   0   777777777777 0            000000000003 
ST6A	031467 000003 0   0   777777777777 0            000000000003 
ST9	031467 000003 0   0   777777777777 0            000000000003 


*031467 MOVEI	1,000100
INITIAL
C(AC)=000000 000040 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031467 031467 0   0   201040000100 0            000000000100 
IT1	031467 0      0   0   201040000100 0            000000000100 
AT3	031467 0      0   0   000000000100 0            201040000100 
AT6	031467 0      0   0   000000000100 0            201040000100 
FT1A	031467 0      0   0   000000000100 0            000000000100 
FT9	031470 0      0   0   000000000100 0            000000000100 
ET0	031470 0      0   0   000000000100 0            000000000100 
ST1	031470 0      0   0   000000000100 0            000000000100 
ST2	031470 0      0   0   000000000100 0            000000000100 
ST9	031470 0      0   0   000000000100 0            000000000100 


*031470 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031470 031470 0   0   201100000001 0            000000000001 
IT1	031470 0      0   0   201100000001 0            000000000001 
AT3	031470 0      0   0   000000000001 0            201100000001 
AT6	031470 000001 0   0   000000000001 0            201100000001 
FT1A	031470 000001 0   0   000000000001 0            000000000001 
FT9	031471 000001 0   0   000000000001 0            000000000001 
ET0	031471 000001 0   0   000000000001 0            000000000001 
ST1	031471 000001 0   0   000000000001 0            000000000001 
ST2	031471 000001 0   0   000000000001 0            000000000001 
ST9	031471 000001 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 122
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0317

*031471 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031471 031471 0   0   200142000000 0            000000000100 
IT1	031471 0      0   0   200142000000 0            000000000100 
AT1	031471 0      0   0   0            0            200142000000 
AT2	031471 0      0   0   000000000001 0            200142000000 
AT3	031471 0      0   0   000000000001 0            000000000001 
AT6	031471 000001 0   0   000000000001 0            000000000001 
FT0	031471 000001 0   0   000000000100 0            000000000001 
FT1A	031471 000001 0   0   000000000100 0            000000000100 
FT9	031472 000001 0   0   000000000100 0            000000000100 
ET0	031472 000001 0   0   000000000100 0            000000000100 
ST1	031472 000001 0   0   000000000100 0            000000000100 
ST2	031472 000001 0   0   000000000100 0            000000000100 
ST9	031472 000001 0   0   000000000100 0            000000000100 


*031472 CAIE	3,000100
INITIAL
C(AC)=000000 000100 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031472 031472 0   0   302140000100 0            000000000100 
IT1	031472 0      0   0   302140000100 0            000000000100 
AT3	031472 0      0   0   000000000100 0            302140000100 
AT6	031472 0      0   0   000000000100 0            302140000100 
FT1A	031472 0      0   0   000000000100 0            000000000100 
FT2	031472 0      0   0   0            0            000000000100 
FT2RQ	031472 0      0   0   000000000100 0            000000000100 
FT3	031472 0      0   0   000000000100 0            000000000100 
FT9	031473 0      0   0   000000000100 0            000000000100 
ET0	031474 0      0   0   0            0            000000000100 
ST1A	031474 0      0   0   0            0            000000000100 
ST9	031474 0      0   0   0            0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 123
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0318

*031474 JUMPA	0,031475
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031474 031474 0   0   324000031475 0            000000031475 
IT1	031474 0      0   0   324000031475 0            000000031475 
AT3	031474 0      0   0   000000031475 0            324000031475 
AT6	031474 031475 0   0   000000031475 0            324000031475 
FT1A	031474 031475 0   0   000000031475 0            000000031475 
FT2	031474 031475 0   0   0            0            000000031475 
FT2RQ	031474 031475 0   0   000000000017 0            000000031475 
FT3	031474 031475 0   0   000000000017 0            000000031475 
FT9	031475 031475 0   0   000000000017 0            000000031475 
ET0	031475 031475 0   0   000000000017 0            000000031475 
ST1A	031475 031475 0   0   000000000017 0            000000031475 
ST9	031475 031475 0   0   000000000017 0            000000031475 


*031475 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000100 
FINAL

C(E)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031475 031475 0   0   476000000003 0            000000000003 
IT1	031475 0      0   0   476000000003 0            000000000003 
AT3	031475 0      0   0   000000000003 0            476000000003 
AT6	031475 000003 0   0   000000000003 0            476000000003 
FT1A	031475 000003 0   0   000000000003 0            000000000003 
FT9	031476 000003 0   0   000000000003 0            000000000003 
ET0	031476 000003 0   0   777777777777 0            000000000003 
ST6	031476 000003 0   0   777777777777 0            000000000003 
ST6A	031476 000003 0   0   777777777777 0            000000000003 
ST9	031476 000003 0   0   777777777777 0            000000000003 


*031476 MOVEI	1,000200
INITIAL
C(AC)=000000 000100 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031476 031476 0   0   201040000200 0            000000000200 
IT1	031476 0      0   0   201040000200 0            000000000200 
AT3	031476 0      0   0   000000000200 0            201040000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 124
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0319

AT6	031476 0      0   0   000000000200 0            201040000200 
FT1A	031476 0      0   0   000000000200 0            000000000200 
FT9	031477 0      0   0   000000000200 0            000000000200 
ET0	031477 0      0   0   000000000200 0            000000000200 
ST1	031477 0      0   0   000000000200 0            000000000200 
ST2	031477 0      0   0   000000000200 0            000000000200 
ST9	031477 0      0   0   000000000200 0            000000000200 


*031477 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031477 031477 0   0   201100000001 0            000000000001 
IT1	031477 0      0   0   201100000001 0            000000000001 
AT3	031477 0      0   0   000000000001 0            201100000001 
AT6	031477 000001 0   0   000000000001 0            201100000001 
FT1A	031477 000001 0   0   000000000001 0            000000000001 
FT9	0      000001 0   0   000000000001 0            000000000001 
ET0	0      000001 0   0   000000000001 0            000000000001 
ST1	0      000001 0   0   000000000001 0            000000000001 
ST2	0      000001 0   0   000000000001 0            000000000001 
ST9	0      000001 0   0   000000000001 0            000000000001 


*031500 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200142000000 0            000000000200 
IT1	0      0      0   0   200142000000 0            000000000200 
AT1	0      0      0   0   0            0            200142000000 
AT2	0      0      0   0   000000000001 0            200142000000 
AT3	0      0      0   0   000000000001 0            000000000001 
AT6	0      000001 0   0   000000000001 0            000000000001 
FT0	0      000001 0   0   000000000200 0            000000000001 
FT1A	0      000001 0   0   000000000200 0            000000000200 
FT9	031501 000001 0   0   000000000200 0            000000000200 
ET0	031501 000001 0   0   000000000200 0            000000000200 
ST1	031501 000001 0   0   000000000200 0            000000000200 
ST2	031501 000001 0   0   000000000200 0            000000000200 
ST9	031501 000001 0   0   000000000200 0            000000000200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 125
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0320

*031501 CAIE	3,000200
INITIAL
C(AC)=000000 000200 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031501 031501 0   0   302140000200 0            000000000200 
IT1	031501 0      0   0   302140000200 0            000000000200 
AT3	031501 0      0   0   000000000200 0            302140000200 
AT6	031501 0      0   0   000000000200 0            302140000200 
FT1A	031501 0      0   0   000000000200 0            000000000200 
FT2	031501 0      0   0   0            0            000000000200 
FT2RQ	031501 0      0   0   000000000200 0            000000000200 
FT3	031501 0      0   0   000000000200 0            000000000200 
FT9	031502 0      0   0   000000000200 0            000000000200 
ET0	031503 0      0   0   0            0            000000000200 
ST1A	031503 0      0   0   0            0            000000000200 
ST9	031503 0      0   0   0            0            000000000200 


*031503 JUMPA	0,031504
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031503 031503 0   0   324000031504 0            000000031504 
IT1	031503 0      0   0   324000031504 0            000000031504 
AT3	031503 0      0   0   000000031504 0            324000031504 
AT6	031503 031504 0   0   000000031504 0            324000031504 
FT1A	031503 031504 0   0   000000031504 0            000000031504 
FT2	031503 031504 0   0   0            0            000000031504 
FT2RQ	031503 031504 0   0   000000000017 0            000000031504 
FT3	031503 031504 0   0   000000000017 0            000000031504 
FT9	031504 031504 0   0   000000000017 0            000000031504 
ET0	031504 031504 0   0   000000000017 0            000000031504 
ST1A	031504 031504 0   0   000000000017 0            000000031504 
ST9	031504 031504 0   0   000000000017 0            000000031504 


*031504 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000200 
FINAL

C(E)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031504 031504 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 126
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0321

IT1	031504 0      0   0   476000000003 0            000000000003 
AT3	031504 0      0   0   000000000003 0            476000000003 
AT6	031504 000003 0   0   000000000003 0            476000000003 
FT1A	031504 000003 0   0   000000000003 0            000000000003 
FT9	031505 000003 0   0   000000000003 0            000000000003 
ET0	031505 000003 0   0   777777777777 0            000000000003 
ST6	031505 000003 0   0   777777777777 0            000000000003 
ST6A	031505 000003 0   0   777777777777 0            000000000003 
ST9	031505 000003 0   0   777777777777 0            000000000003 


*031505 MOVEI	1,000400
INITIAL
C(AC)=000000 000200 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031505 031505 0   0   201040000400 0            000000000400 
IT1	031505 0      0   0   201040000400 0            000000000400 
AT3	031505 0      0   0   000000000400 0            201040000400 
AT6	031505 0      0   0   000000000400 0            201040000400 
FT1A	031505 0      0   0   000000000400 0            000000000400 
FT9	031506 0      0   0   000000000400 0            000000000400 
ET0	031506 0      0   0   000000000400 0            000000000400 
ST1	031506 0      0   0   000000000400 0            000000000400 
ST2	031506 0      0   0   000000000400 0            000000000400 
ST9	031506 0      0   0   000000000400 0            000000000400 


*031506 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031506 031506 0   0   201100000001 0            000000000001 
IT1	031506 0      0   0   201100000001 0            000000000001 
AT3	031506 0      0   0   000000000001 0            201100000001 
AT6	031506 000001 0   0   000000000001 0            201100000001 
FT1A	031506 000001 0   0   000000000001 0            000000000001 
FT9	031507 000001 0   0   000000000001 0            000000000001 
ET0	031507 000001 0   0   000000000001 0            000000000001 
ST1	031507 000001 0   0   000000000001 0            000000000001 
ST2	031507 000001 0   0   000000000001 0            000000000001 
ST9	031507 000001 0   0   000000000001 0            000000000001 


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

*031507 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031507 031507 0   0   200142000000 0            000000000400 
IT1	031507 0      0   0   200142000000 0            000000000400 
AT1	031507 0      0   0   0            0            200142000000 
AT2	031507 0      0   0   000000000001 0            200142000000 
AT3	031507 0      0   0   000000000001 0            000000000001 
AT6	031507 000001 0   0   000000000001 0            000000000001 
FT0	031507 000001 0   0   000000000400 0            000000000001 
FT1A	031507 000001 0   0   000000000400 0            000000000400 
FT9	031510 000001 0   0   000000000400 0            000000000400 
ET0	031510 000001 0   0   000000000400 0            000000000400 
ST1	031510 000001 0   0   000000000400 0            000000000400 
ST2	031510 000001 0   0   000000000400 0            000000000400 
ST9	031510 000001 0   0   000000000400 0            000000000400 


*031510 CAIE	3,000400
INITIAL
C(AC)=000000 000400 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031510 031510 0   0   302140000400 0            000000000400 
IT1	031510 0      0   0   302140000400 0            000000000400 
AT3	031510 0      0   0   000000000400 0            302140000400 
AT6	031510 0      0   0   000000000400 0            302140000400 
FT1A	031510 0      0   0   000000000400 0            000000000400 
FT2	031510 0      0   0   0            0            000000000400 
FT2RQ	031510 0      0   0   000000000400 0            000000000400 
FT3	031510 0      0   0   000000000400 0            000000000400 
FT9	031511 0      0   0   000000000400 0            000000000400 
ET0	031512 0      0   0   0            0            000000000400 
ST1A	031512 0      0   0   0            0            000000000400 
ST9	031512 0      0   0   0            0            000000000400 


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

*031512 JUMPA	0,031513
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031512 031512 0   0   324000031513 0            000000031513 
IT1	031512 0      0   0   324000031513 0            000000031513 
AT3	031512 0      0   0   000000031513 0            324000031513 
AT6	031512 031513 0   0   000000031513 0            324000031513 
FT1A	031512 031513 0   0   000000031513 0            000000031513 
FT2	031512 031513 0   0   0            0            000000031513 
FT2RQ	031512 031513 0   0   000000000017 0            000000031513 
FT3	031512 031513 0   0   000000000017 0            000000031513 
FT9	031513 031513 0   0   000000000017 0            000000031513 
ET0	031513 031513 0   0   000000000017 0            000000031513 
ST1A	031513 031513 0   0   000000000017 0            000000031513 
ST9	031513 031513 0   0   000000000017 0            000000031513 


*031513 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 000400 
FINAL

C(E)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031513 031513 0   0   476000000003 0            000000000003 
IT1	031513 0      0   0   476000000003 0            000000000003 
AT3	031513 0      0   0   000000000003 0            476000000003 
AT6	031513 000003 0   0   000000000003 0            476000000003 
FT1A	031513 000003 0   0   000000000003 0            000000000003 
FT9	031514 000003 0   0   000000000003 0            000000000003 
ET0	031514 000003 0   0   777777777777 0            000000000003 
ST6	031514 000003 0   0   777777777777 0            000000000003 
ST6A	031514 000003 0   0   777777777777 0            000000000003 
ST9	031514 000003 0   0   777777777777 0            000000000003 


*031514 MOVEI	1,001000
INITIAL
C(AC)=000000 000400 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031514 031514 0   0   201040001000 0            000000001000 
IT1	031514 0      0   0   201040001000 0            000000001000 
AT3	031514 0      0   0   000000001000 0            201040001000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 129
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0324

AT6	031514 0      0   0   000000001000 0            201040001000 
FT1A	031514 0      0   0   000000001000 0            000000001000 
FT9	031515 0      0   0   000000001000 0            000000001000 
ET0	031515 0      0   0   000000001000 0            000000001000 
ST1	031515 0      0   0   000000001000 0            000000001000 
ST2	031515 0      0   0   000000001000 0            000000001000 
ST9	031515 0      0   0   000000001000 0            000000001000 


*031515 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031515 031515 0   0   201100000001 0            000000000001 
IT1	031515 0      0   0   201100000001 0            000000000001 
AT3	031515 0      0   0   000000000001 0            201100000001 
AT6	031515 000001 0   0   000000000001 0            201100000001 
FT1A	031515 000001 0   0   000000000001 0            000000000001 
FT9	031516 000001 0   0   000000000001 0            000000000001 
ET0	031516 000001 0   0   000000000001 0            000000000001 
ST1	031516 000001 0   0   000000000001 0            000000000001 
ST2	031516 000001 0   0   000000000001 0            000000000001 
ST9	031516 000001 0   0   000000000001 0            000000000001 


*031516 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031516 031516 0   0   200142000000 0            000000001000 
IT1	031516 0      0   0   200142000000 0            000000001000 
AT1	031516 0      0   0   0            0            200142000000 
AT2	031516 0      0   0   000000000001 0            200142000000 
AT3	031516 0      0   0   000000000001 0            000000000001 
AT6	031516 000001 0   0   000000000001 0            000000000001 
FT0	031516 000001 0   0   000000001000 0            000000000001 
FT1A	031516 000001 0   0   000000001000 0            000000001000 
FT9	031517 000001 0   0   000000001000 0            000000001000 
ET0	031517 000001 0   0   000000001000 0            000000001000 
ST1	031517 000001 0   0   000000001000 0            000000001000 
ST2	031517 000001 0   0   000000001000 0            000000001000 
ST9	031517 000001 0   0   000000001000 0            000000001000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 130
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0325

*031517 CAIE	3,001000
INITIAL
C(AC)=000000 001000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031517 031517 0   0   302140001000 0            000000001000 
IT1	031517 0      0   0   302140001000 0            000000001000 
AT3	031517 0      0   0   000000001000 0            302140001000 
AT6	031517 0      0   0   000000001000 0            302140001000 
FT1A	031517 0      0   0   000000001000 0            000000001000 
FT2	031517 0      0   0   0            0            000000001000 
FT2RQ	031517 0      0   0   000000001000 0            000000001000 
FT3	031517 0      0   0   000000001000 0            000000001000 
FT9	031520 0      0   0   000000001000 0            000000001000 
ET0	031521 0      0   0   0            0            000000001000 
ST1A	031521 0      0   0   0            0            000000001000 
ST9	031521 0      0   0   0            0            000000001000 


*031521 JUMPA	0,031522
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031521 031521 0   0   324000031522 0            000000031522 
IT1	031521 0      0   0   324000031522 0            000000031522 
AT3	031521 0      0   0   000000031522 0            324000031522 
AT6	031521 031522 0   0   000000031522 0            324000031522 
FT1A	031521 031522 0   0   000000031522 0            000000031522 
FT2	031521 031522 0   0   0            0            000000031522 
FT2RQ	031521 031522 0   0   000000000017 0            000000031522 
FT3	031521 031522 0   0   000000000017 0            000000031522 
FT9	031522 031522 0   0   000000000017 0            000000031522 
ET0	031522 031522 0   0   000000000017 0            000000031522 
ST1A	031522 031522 0   0   000000000017 0            000000031522 
ST9	031522 031522 0   0   000000000017 0            000000031522 


*031522 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 001000 
FINAL

C(E)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031522 031522 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 131
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0326

IT1	031522 0      0   0   476000000003 0            000000000003 
AT3	031522 0      0   0   000000000003 0            476000000003 
AT6	031522 000003 0   0   000000000003 0            476000000003 
FT1A	031522 000003 0   0   000000000003 0            000000000003 
FT9	031523 000003 0   0   000000000003 0            000000000003 
ET0	031523 000003 0   0   777777777777 0            000000000003 
ST6	031523 000003 0   0   777777777777 0            000000000003 
ST6A	031523 000003 0   0   777777777777 0            000000000003 
ST9	031523 000003 0   0   777777777777 0            000000000003 


*031523 MOVEI	1,002000
INITIAL
C(AC)=000000 001000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031523 031523 0   0   201040002000 0            000000002000 
IT1	031523 0      0   0   201040002000 0            000000002000 
AT3	031523 0      0   0   000000002000 0            201040002000 
AT6	031523 0      0   0   000000002000 0            201040002000 
FT1A	031523 0      0   0   000000002000 0            000000002000 
FT9	031524 0      0   0   000000002000 0            000000002000 
ET0	031524 0      0   0   000000002000 0            000000002000 
ST1	031524 0      0   0   000000002000 0            000000002000 
ST2	031524 0      0   0   000000002000 0            000000002000 
ST9	031524 0      0   0   000000002000 0            000000002000 


*031524 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031524 031524 0   0   201100000001 0            000000000001 
IT1	031524 0      0   0   201100000001 0            000000000001 
AT3	031524 0      0   0   000000000001 0            201100000001 
AT6	031524 000001 0   0   000000000001 0            201100000001 
FT1A	031524 000001 0   0   000000000001 0            000000000001 
FT9	031525 000001 0   0   000000000001 0            000000000001 
ET0	031525 000001 0   0   000000000001 0            000000000001 
ST1	031525 000001 0   0   000000000001 0            000000000001 
ST2	031525 000001 0   0   000000000001 0            000000000001 
ST9	031525 000001 0   0   000000000001 0            000000000001 


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

*031525 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031525 031525 0   0   200142000000 0            000000002000 
IT1	031525 0      0   0   200142000000 0            000000002000 
AT1	031525 0      0   0   0            0            200142000000 
AT2	031525 0      0   0   000000000001 0            200142000000 
AT3	031525 0      0   0   000000000001 0            000000000001 
AT6	031525 000001 0   0   000000000001 0            000000000001 
FT0	031525 000001 0   0   000000002000 0            000000000001 
FT1A	031525 000001 0   0   000000002000 0            000000002000 
FT9	031526 000001 0   0   000000002000 0            000000002000 
ET0	031526 000001 0   0   000000002000 0            000000002000 
ST1	031526 000001 0   0   000000002000 0            000000002000 
ST2	031526 000001 0   0   000000002000 0            000000002000 
ST9	031526 000001 0   0   000000002000 0            000000002000 


*031526 CAIE	3,002000
INITIAL
C(AC)=000000 002000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031526 031526 0   0   302140002000 0            000000002000 
IT1	031526 0      0   0   302140002000 0            000000002000 
AT3	031526 0      0   0   000000002000 0            302140002000 
AT6	031526 0      0   0   000000002000 0            302140002000 
FT1A	031526 0      0   0   000000002000 0            000000002000 
FT2	031526 0      0   0   0            0            000000002000 
FT2RQ	031526 0      0   0   000000002000 0            000000002000 
FT3	031526 0      0   0   000000002000 0            000000002000 
FT9	031527 0      0   0   000000002000 0            000000002000 
ET0	031530 0      0   0   0            0            000000002000 
ST1A	031530 0      0   0   0            0            000000002000 
ST9	031530 0      0   0   0            0            000000002000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 133
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0328

*031530 JUMPA	0,031531
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031530 031530 0   0   324000031531 0            000000031531 
IT1	031530 0      0   0   324000031531 0            000000031531 
AT3	031530 0      0   0   000000031531 0            324000031531 
AT6	031530 031531 0   0   000000031531 0            324000031531 
FT1A	031530 031531 0   0   000000031531 0            000000031531 
FT2	031530 031531 0   0   0            0            000000031531 
FT2RQ	031530 031531 0   0   000000000017 0            000000031531 
FT3	031530 031531 0   0   000000000017 0            000000031531 
FT9	031531 031531 0   0   000000000017 0            000000031531 
ET0	031531 031531 0   0   000000000017 0            000000031531 
ST1A	031531 031531 0   0   000000000017 0            000000031531 
ST9	031531 031531 0   0   000000000017 0            000000031531 


*031531 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 002000 
FINAL

C(E)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031531 031531 0   0   476000000003 0            000000000003 
IT1	031531 0      0   0   476000000003 0            000000000003 
AT3	031531 0      0   0   000000000003 0            476000000003 
AT6	031531 000003 0   0   000000000003 0            476000000003 
FT1A	031531 000003 0   0   000000000003 0            000000000003 
FT9	031532 000003 0   0   000000000003 0            000000000003 
ET0	031532 000003 0   0   777777777777 0            000000000003 
ST6	031532 000003 0   0   777777777777 0            000000000003 
ST6A	031532 000003 0   0   777777777777 0            000000000003 
ST9	031532 000003 0   0   777777777777 0            000000000003 


*031532 MOVEI	1,004000
INITIAL
C(AC)=000000 002000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031532 031532 0   0   201040004000 0            000000004000 
IT1	031532 0      0   0   201040004000 0            000000004000 
AT3	031532 0      0   0   000000004000 0            201040004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 134
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0329

AT6	031532 0      0   0   000000004000 0            201040004000 
FT1A	031532 0      0   0   000000004000 0            000000004000 
FT9	031533 0      0   0   000000004000 0            000000004000 
ET0	031533 0      0   0   000000004000 0            000000004000 
ST1	031533 0      0   0   000000004000 0            000000004000 
ST2	031533 0      0   0   000000004000 0            000000004000 
ST9	031533 0      0   0   000000004000 0            000000004000 


*031533 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031533 031533 0   0   201100000001 0            000000000001 
IT1	031533 0      0   0   201100000001 0            000000000001 
AT3	031533 0      0   0   000000000001 0            201100000001 
AT6	031533 000001 0   0   000000000001 0            201100000001 
FT1A	031533 000001 0   0   000000000001 0            000000000001 
FT9	031534 000001 0   0   000000000001 0            000000000001 
ET0	031534 000001 0   0   000000000001 0            000000000001 
ST1	031534 000001 0   0   000000000001 0            000000000001 
ST2	031534 000001 0   0   000000000001 0            000000000001 
ST9	031534 000001 0   0   000000000001 0            000000000001 


*031534 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031534 031534 0   0   200142000000 0            000000004000 
IT1	031534 0      0   0   200142000000 0            000000004000 
AT1	031534 0      0   0   0            0            200142000000 
AT2	031534 0      0   0   000000000001 0            200142000000 
AT3	031534 0      0   0   000000000001 0            000000000001 
AT6	031534 000001 0   0   000000000001 0            000000000001 
FT0	031534 000001 0   0   000000004000 0            000000000001 
FT1A	031534 000001 0   0   000000004000 0            000000004000 
FT9	031535 000001 0   0   000000004000 0            000000004000 
ET0	031535 000001 0   0   000000004000 0            000000004000 
ST1	031535 000001 0   0   000000004000 0            000000004000 
ST2	031535 000001 0   0   000000004000 0            000000004000 
ST9	031535 000001 0   0   000000004000 0            000000004000 


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

*031535 CAIE	3,004000
INITIAL
C(AC)=000000 004000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031535 031535 0   0   302140004000 0            000000004000 
IT1	031535 0      0   0   302140004000 0            000000004000 
AT3	031535 0      0   0   000000004000 0            302140004000 
AT6	031535 0      0   0   000000004000 0            302140004000 
FT1A	031535 0      0   0   000000004000 0            000000004000 
FT2	031535 0      0   0   0            0            000000004000 
FT2RQ	031535 0      0   0   000000004000 0            000000004000 
FT3	031535 0      0   0   000000004000 0            000000004000 
FT9	031536 0      0   0   000000004000 0            000000004000 
ET0	031537 0      0   0   0            0            000000004000 
ST1A	031537 0      0   0   0            0            000000004000 
ST9	031537 0      0   0   0            0            000000004000 


*031537 JUMPA	0,031540
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031537 031537 0   0   324000031540 0            000000031540 
IT1	031537 0      0   0   324000031540 0            000000031540 
AT3	031537 0      0   0   000000031540 0            324000031540 
AT6	031537 031540 0   0   000000031540 0            324000031540 
FT1A	031537 031540 0   0   000000031540 0            000000031540 
FT2	031537 031540 0   0   0            0            000000031540 
FT2RQ	031537 031540 0   0   000000000017 0            000000031540 
FT3	031537 031540 0   0   000000000017 0            000000031540 
FT9	031540 031540 0   0   000000000017 0            000000031540 
ET0	031540 031540 0   0   000000000017 0            000000031540 
ST1A	031540 031540 0   0   000000000017 0            000000031540 
ST9	031540 031540 0   0   000000000017 0            000000031540 


*031540 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 004000 
FINAL

C(E)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031540 031540 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 136
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0331

IT1	031540 0      0   0   476000000003 0            000000000003 
AT3	031540 0      0   0   000000000003 0            476000000003 
AT6	031540 000003 0   0   000000000003 0            476000000003 
FT1A	031540 000003 0   0   000000000003 0            000000000003 
FT9	031541 000003 0   0   000000000003 0            000000000003 
ET0	031541 000003 0   0   777777777777 0            000000000003 
ST6	031541 000003 0   0   777777777777 0            000000000003 
ST6A	031541 000003 0   0   777777777777 0            000000000003 
ST9	031541 000003 0   0   777777777777 0            000000000003 


*031541 MOVEI	1,010000
INITIAL
C(AC)=000000 004000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031541 031541 0   0   201040010000 0            000000010000 
IT1	031541 0      0   0   201040010000 0            000000010000 
AT3	031541 0      0   0   000000010000 0            201040010000 
AT6	031541 0      0   0   000000010000 0            201040010000 
FT1A	031541 0      0   0   000000010000 0            000000010000 
FT9	031542 0      0   0   000000010000 0            000000010000 
ET0	031542 0      0   0   000000010000 0            000000010000 
ST1	031542 0      0   0   000000010000 0            000000010000 
ST2	031542 0      0   0   000000010000 0            000000010000 
ST9	031542 0      0   0   000000010000 0            000000010000 


*031542 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031542 031542 0   0   201100000001 0            000000000001 
IT1	031542 0      0   0   201100000001 0            000000000001 
AT3	031542 0      0   0   000000000001 0            201100000001 
AT6	031542 000001 0   0   000000000001 0            201100000001 
FT1A	031542 000001 0   0   000000000001 0            000000000001 
FT9	031543 000001 0   0   000000000001 0            000000000001 
ET0	031543 000001 0   0   000000000001 0            000000000001 
ST1	031543 000001 0   0   000000000001 0            000000000001 
ST2	031543 000001 0   0   000000000001 0            000000000001 
ST9	031543 000001 0   0   000000000001 0            000000000001 


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

*031543 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031543 031543 0   0   200142000000 0            000000010000 
IT1	031543 0      0   0   200142000000 0            000000010000 
AT1	031543 0      0   0   0            0            200142000000 
AT2	031543 0      0   0   000000000001 0            200142000000 
AT3	031543 0      0   0   000000000001 0            000000000001 
AT6	031543 000001 0   0   000000000001 0            000000000001 
FT0	031543 000001 0   0   000000010000 0            000000000001 
FT1A	031543 000001 0   0   000000010000 0            000000010000 
FT9	031544 000001 0   0   000000010000 0            000000010000 
ET0	031544 000001 0   0   000000010000 0            000000010000 
ST1	031544 000001 0   0   000000010000 0            000000010000 
ST2	031544 000001 0   0   000000010000 0            000000010000 
ST9	031544 000001 0   0   000000010000 0            000000010000 


*031544 CAIE	3,010000
INITIAL
C(AC)=000000 010000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031544 031544 0   0   302140010000 0            000000010000 
IT1	031544 0      0   0   302140010000 0            000000010000 
AT3	031544 0      0   0   000000010000 0            302140010000 
AT6	031544 0      0   0   000000010000 0            302140010000 
FT1A	031544 0      0   0   000000010000 0            000000010000 
FT2	031544 0      0   0   0            0            000000010000 
FT2RQ	031544 0      0   0   000000010000 0            000000010000 
FT3	031544 0      0   0   000000010000 0            000000010000 
FT9	031545 0      0   0   000000010000 0            000000010000 
ET0	031546 0      0   0   0            0            000000010000 
ST1A	031546 0      0   0   0            0            000000010000 
ST9	031546 0      0   0   0            0            000000010000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 138
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0333

*031546 JUMPA	0,031547
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031546 031546 0   0   324000031547 0            000000031547 
IT1	031546 0      0   0   324000031547 0            000000031547 
AT3	031546 0      0   0   000000031547 0            324000031547 
AT6	031546 031547 0   0   000000031547 0            324000031547 
FT1A	031546 031547 0   0   000000031547 0            000000031547 
FT2	031546 031547 0   0   0            0            000000031547 
FT2RQ	031546 031547 0   0   000000000017 0            000000031547 
FT3	031546 031547 0   0   000000000017 0            000000031547 
FT9	031547 031547 0   0   000000000017 0            000000031547 
ET0	031547 031547 0   0   000000000017 0            000000031547 
ST1A	031547 031547 0   0   000000000017 0            000000031547 
ST9	031547 031547 0   0   000000000017 0            000000031547 


*031547 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 010000 
FINAL

C(E)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031547 031547 0   0   476000000003 0            000000000003 
IT1	031547 0      0   0   476000000003 0            000000000003 
AT3	031547 0      0   0   000000000003 0            476000000003 
AT6	031547 000003 0   0   000000000003 0            476000000003 
FT1A	031547 000003 0   0   000000000003 0            000000000003 
FT9	031550 000003 0   0   000000000003 0            000000000003 
ET0	031550 000003 0   0   777777777777 0            000000000003 
ST6	031550 000003 0   0   777777777777 0            000000000003 
ST6A	031550 000003 0   0   777777777777 0            000000000003 
ST9	031550 000003 0   0   777777777777 0            000000000003 


*031550 MOVEI	1,020000
INITIAL
C(AC)=000000 010000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031550 031550 0   0   201040020000 0            000000020000 
IT1	031550 0      0   0   201040020000 0            000000020000 
AT3	031550 0      0   0   000000020000 0            201040020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 139
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0334

AT6	031550 0      0   0   000000020000 0            201040020000 
FT1A	031550 0      0   0   000000020000 0            000000020000 
FT9	031551 0      0   0   000000020000 0            000000020000 
ET0	031551 0      0   0   000000020000 0            000000020000 
ST1	031551 0      0   0   000000020000 0            000000020000 
ST2	031551 0      0   0   000000020000 0            000000020000 
ST9	031551 0      0   0   000000020000 0            000000020000 


*031551 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031551 031551 0   0   201100000001 0            000000000001 
IT1	031551 0      0   0   201100000001 0            000000000001 
AT3	031551 0      0   0   000000000001 0            201100000001 
AT6	031551 000001 0   0   000000000001 0            201100000001 
FT1A	031551 000001 0   0   000000000001 0            000000000001 
FT9	031552 000001 0   0   000000000001 0            000000000001 
ET0	031552 000001 0   0   000000000001 0            000000000001 
ST1	031552 000001 0   0   000000000001 0            000000000001 
ST2	031552 000001 0   0   000000000001 0            000000000001 
ST9	031552 000001 0   0   000000000001 0            000000000001 


*031552 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031552 031552 0   0   200142000000 0            000000020000 
IT1	031552 0      0   0   200142000000 0            000000020000 
AT1	031552 0      0   0   0            0            200142000000 
AT2	031552 0      0   0   000000000001 0            200142000000 
AT3	031552 0      0   0   000000000001 0            000000000001 
AT6	031552 000001 0   0   000000000001 0            000000000001 
FT0	031552 000001 0   0   000000020000 0            000000000001 
FT1A	031552 000001 0   0   000000020000 0            000000020000 
FT9	031553 000001 0   0   000000020000 0            000000020000 
ET0	031553 000001 0   0   000000020000 0            000000020000 
ST1	031553 000001 0   0   000000020000 0            000000020000 
ST2	031553 000001 0   0   000000020000 0            000000020000 
ST9	031553 000001 0   0   000000020000 0            000000020000 


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

*031553 CAIE	3,020000
INITIAL
C(AC)=000000 020000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031553 031553 0   0   302140020000 0            000000020000 
IT1	031553 0      0   0   302140020000 0            000000020000 
AT3	031553 0      0   0   000000020000 0            302140020000 
AT6	031553 0      0   0   000000020000 0            302140020000 
FT1A	031553 0      0   0   000000020000 0            000000020000 
FT2	031553 0      0   0   0            0            000000020000 
FT2RQ	031553 0      0   0   000000020000 0            000000020000 
FT3	031553 0      0   0   000000020000 0            000000020000 
FT9	031554 0      0   0   000000020000 0            000000020000 
ET0	031555 0      0   0   0            0            000000020000 
ST1A	031555 0      0   0   0            0            000000020000 
ST9	031555 0      0   0   0            0            000000020000 


*031555 JUMPA	0,031556
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031555 031555 0   0   324000031556 0            000000031556 
IT1	031555 0      0   0   324000031556 0            000000031556 
AT3	031555 0      0   0   000000031556 0            324000031556 
AT6	031555 031556 0   0   000000031556 0            324000031556 
FT1A	031555 031556 0   0   000000031556 0            000000031556 
FT2	031555 031556 0   0   0            0            000000031556 
FT2RQ	031555 031556 0   0   000000000017 0            000000031556 
FT3	031555 031556 0   0   000000000017 0            000000031556 
FT9	031556 031556 0   0   000000000017 0            000000031556 
ET0	031556 031556 0   0   000000000017 0            000000031556 
ST1A	031556 031556 0   0   000000000017 0            000000031556 
ST9	031556 031556 0   0   000000000017 0            000000031556 


*031556 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 020000 
FINAL

C(E)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031556 031556 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 141
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0336

IT1	031556 0      0   0   476000000003 0            000000000003 
AT3	031556 0      0   0   000000000003 0            476000000003 
AT6	031556 000003 0   0   000000000003 0            476000000003 
FT1A	031556 000003 0   0   000000000003 0            000000000003 
FT9	031557 000003 0   0   000000000003 0            000000000003 
ET0	031557 000003 0   0   777777777777 0            000000000003 
ST6	031557 000003 0   0   777777777777 0            000000000003 
ST6A	031557 000003 0   0   777777777777 0            000000000003 
ST9	031557 000003 0   0   777777777777 0            000000000003 


*031557 MOVEI	1,040000
INITIAL
C(AC)=000000 020000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031557 031557 0   0   201040040000 0            000000040000 
IT1	031557 0      0   0   201040040000 0            000000040000 
AT3	031557 0      0   0   000000040000 0            201040040000 
AT6	031557 0      0   0   000000040000 0            201040040000 
FT1A	031557 0      0   0   000000040000 0            000000040000 
FT9	031560 0      0   0   000000040000 0            000000040000 
ET0	031560 0      0   0   000000040000 0            000000040000 
ST1	031560 0      0   0   000000040000 0            000000040000 
ST2	031560 0      0   0   000000040000 0            000000040000 
ST9	031560 0      0   0   000000040000 0            000000040000 


*031560 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031560 031560 0   0   201100000001 0            000000000001 
IT1	031560 0      0   0   201100000001 0            000000000001 
AT3	031560 0      0   0   000000000001 0            201100000001 
AT6	031560 000001 0   0   000000000001 0            201100000001 
FT1A	031560 000001 0   0   000000000001 0            000000000001 
FT9	031561 000001 0   0   000000000001 0            000000000001 
ET0	031561 000001 0   0   000000000001 0            000000000001 
ST1	031561 000001 0   0   000000000001 0            000000000001 
ST2	031561 000001 0   0   000000000001 0            000000000001 
ST9	031561 000001 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 142
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0337

*031561 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031561 031561 0   0   200142000000 0            000000040000 
IT1	031561 0      0   0   200142000000 0            000000040000 
AT1	031561 0      0   0   0            0            200142000000 
AT2	031561 0      0   0   000000000001 0            200142000000 
AT3	031561 0      0   0   000000000001 0            000000000001 
AT6	031561 000001 0   0   000000000001 0            000000000001 
FT0	031561 000001 0   0   000000040000 0            000000000001 
FT1A	031561 000001 0   0   000000040000 0            000000040000 
FT9	031562 000001 0   0   000000040000 0            000000040000 
ET0	031562 000001 0   0   000000040000 0            000000040000 
ST1	031562 000001 0   0   000000040000 0            000000040000 
ST2	031562 000001 0   0   000000040000 0            000000040000 
ST9	031562 000001 0   0   000000040000 0            000000040000 


*031562 CAIE	3,040000
INITIAL
C(AC)=000000 040000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031562 031562 0   0   302140040000 0            000000040000 
IT1	031562 0      0   0   302140040000 0            000000040000 
AT3	031562 0      0   0   000000040000 0            302140040000 
AT6	031562 0      0   0   000000040000 0            302140040000 
FT1A	031562 0      0   0   000000040000 0            000000040000 
FT2	031562 0      0   0   0            0            000000040000 
FT2RQ	031562 0      0   0   000000040000 0            000000040000 
FT3	031562 0      0   0   000000040000 0            000000040000 
FT9	031563 0      0   0   000000040000 0            000000040000 
ET0	031564 0      0   0   0            0            000000040000 
ST1A	031564 0      0   0   0            0            000000040000 
ST9	031564 0      0   0   0            0            000000040000 


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

*031564 JUMPA	0,031565
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031564 031564 0   0   324000031565 0            000000031565 
IT1	031564 0      0   0   324000031565 0            000000031565 
AT3	031564 0      0   0   000000031565 0            324000031565 
AT6	031564 031565 0   0   000000031565 0            324000031565 
FT1A	031564 031565 0   0   000000031565 0            000000031565 
FT2	031564 031565 0   0   0            0            000000031565 
FT2RQ	031564 031565 0   0   000000000017 0            000000031565 
FT3	031564 031565 0   0   000000000017 0            000000031565 
FT9	031565 031565 0   0   000000000017 0            000000031565 
ET0	031565 031565 0   0   000000000017 0            000000031565 
ST1A	031565 031565 0   0   000000000017 0            000000031565 
ST9	031565 031565 0   0   000000000017 0            000000031565 


*031565 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 040000 
FINAL

C(E)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031565 031565 0   0   476000000003 0            000000000003 
IT1	031565 0      0   0   476000000003 0            000000000003 
AT3	031565 0      0   0   000000000003 0            476000000003 
AT6	031565 000003 0   0   000000000003 0            476000000003 
FT1A	031565 000003 0   0   000000000003 0            000000000003 
FT9	031566 000003 0   0   000000000003 0            000000000003 
ET0	031566 000003 0   0   777777777777 0            000000000003 
ST6	031566 000003 0   0   777777777777 0            000000000003 
ST6A	031566 000003 0   0   777777777777 0            000000000003 
ST9	031566 000003 0   0   777777777777 0            000000000003 


*031566 MOVEI	1,100000
INITIAL
C(AC)=000000 040000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031566 031566 0   0   201040100000 0            000000100000 
IT1	031566 0      0   0   201040100000 0            000000100000 
AT3	031566 0      0   0   000000100000 0            201040100000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 144
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0339

AT6	031566 0      0   0   000000100000 0            201040100000 
FT1A	031566 0      0   0   000000100000 0            000000100000 
FT9	031567 0      0   0   000000100000 0            000000100000 
ET0	031567 0      0   0   000000100000 0            000000100000 
ST1	031567 0      0   0   000000100000 0            000000100000 
ST2	031567 0      0   0   000000100000 0            000000100000 
ST9	031567 0      0   0   000000100000 0            000000100000 


*031567 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031567 031567 0   0   201100000001 0            000000000001 
IT1	031567 0      0   0   201100000001 0            000000000001 
AT3	031567 0      0   0   000000000001 0            201100000001 
AT6	031567 000001 0   0   000000000001 0            201100000001 
FT1A	031567 000001 0   0   000000000001 0            000000000001 
FT9	031570 000001 0   0   000000000001 0            000000000001 
ET0	031570 000001 0   0   000000000001 0            000000000001 
ST1	031570 000001 0   0   000000000001 0            000000000001 
ST2	031570 000001 0   0   000000000001 0            000000000001 
ST9	031570 000001 0   0   000000000001 0            000000000001 


*031570 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031570 031570 0   0   200142000000 0            000000100000 
IT1	031570 0      0   0   200142000000 0            000000100000 
AT1	031570 0      0   0   0            0            200142000000 
AT2	031570 0      0   0   000000000001 0            200142000000 
AT3	031570 0      0   0   000000000001 0            000000000001 
AT6	031570 000001 0   0   000000000001 0            000000000001 
FT0	031570 000001 0   0   000000100000 0            000000000001 
FT1A	031570 000001 0   0   000000100000 0            000000100000 
FT9	031571 000001 0   0   000000100000 0            000000100000 
ET0	031571 000001 0   0   000000100000 0            000000100000 
ST1	031571 000001 0   0   000000100000 0            000000100000 
ST2	031571 000001 0   0   000000100000 0            000000100000 
ST9	031571 000001 0   0   000000100000 0            000000100000 


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

*031571 CAIE	3,100000
INITIAL
C(AC)=000000 100000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031571 031571 0   0   302140100000 0            000000100000 
IT1	031571 0      0   0   302140100000 0            000000100000 
AT3	031571 0      0   0   000000100000 0            302140100000 
AT6	031571 0      0   0   000000100000 0            302140100000 
FT1A	031571 0      0   0   000000100000 0            000000100000 
FT2	031571 0      0   0   0            0            000000100000 
FT2RQ	031571 0      0   0   000000100000 0            000000100000 
FT3	031571 0      0   0   000000100000 0            000000100000 
FT9	031572 0      0   0   000000100000 0            000000100000 
ET0	031573 0      0   0   0            0            000000100000 
ST1A	031573 0      0   0   0            0            000000100000 
ST9	031573 0      0   0   0            0            000000100000 


*031573 JUMPA	0,031574
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031573 031573 0   0   324000031574 0            000000031574 
IT1	031573 0      0   0   324000031574 0            000000031574 
AT3	031573 0      0   0   000000031574 0            324000031574 
AT6	031573 031574 0   0   000000031574 0            324000031574 
FT1A	031573 031574 0   0   000000031574 0            000000031574 
FT2	031573 031574 0   0   0            0            000000031574 
FT2RQ	031573 031574 0   0   000000000017 0            000000031574 
FT3	031573 031574 0   0   000000000017 0            000000031574 
FT9	031574 031574 0   0   000000000017 0            000000031574 
ET0	031574 031574 0   0   000000000017 0            000000031574 
ST1A	031574 031574 0   0   000000000017 0            000000031574 
ST9	031574 031574 0   0   000000000017 0            000000031574 


*031574 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 100000 
FINAL

C(E)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031574 031574 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 146
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0341

IT1	031574 0      0   0   476000000003 0            000000000003 
AT3	031574 0      0   0   000000000003 0            476000000003 
AT6	031574 000003 0   0   000000000003 0            476000000003 
FT1A	031574 000003 0   0   000000000003 0            000000000003 
FT9	031575 000003 0   0   000000000003 0            000000000003 
ET0	031575 000003 0   0   777777777777 0            000000000003 
ST6	031575 000003 0   0   777777777777 0            000000000003 
ST6A	031575 000003 0   0   777777777777 0            000000000003 
ST9	031575 000003 0   0   777777777777 0            000000000003 


*031575 MOVEI	1,200000
INITIAL
C(AC)=000000 100000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031575 031575 0   0   201040200000 0            000000200000 
IT1	031575 0      0   0   201040200000 0            000000200000 
AT3	031575 0      0   0   000000200000 0            201040200000 
AT6	031575 0      0   0   000000200000 0            201040200000 
FT1A	031575 0      0   0   000000200000 0            000000200000 
FT9	031576 0      0   0   000000200000 0            000000200000 
ET0	031576 0      0   0   000000200000 0            000000200000 
ST1	031576 0      0   0   000000200000 0            000000200000 
ST2	031576 0      0   0   000000200000 0            000000200000 
ST9	031576 0      0   0   000000200000 0            000000200000 


*031576 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031576 031576 0   0   201100000001 0            000000000001 
IT1	031576 0      0   0   201100000001 0            000000000001 
AT3	031576 0      0   0   000000000001 0            201100000001 
AT6	031576 000001 0   0   000000000001 0            201100000001 
FT1A	031576 000001 0   0   000000000001 0            000000000001 
FT9	031577 000001 0   0   000000000001 0            000000000001 
ET0	031577 000001 0   0   000000000001 0            000000000001 
ST1	031577 000001 0   0   000000000001 0            000000000001 
ST2	031577 000001 0   0   000000000001 0            000000000001 
ST9	031577 000001 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 147
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0342

*031577 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031577 031577 0   0   200142000000 0            000000200000 
IT1	031577 0      0   0   200142000000 0            000000200000 
AT1	031577 0      0   0   0            0            200142000000 
AT2	031577 0      0   0   000000000001 0            200142000000 
AT3	031577 0      0   0   000000000001 0            000000000001 
AT6	031577 000001 0   0   000000000001 0            000000000001 
FT0	031577 000001 0   0   000000200000 0            000000000001 
FT1A	031577 000001 0   0   000000200000 0            000000200000 
FT9	0      000001 0   0   000000200000 0            000000200000 
ET0	0      000001 0   0   000000200000 0            000000200000 
ST1	0      000001 0   0   000000200000 0            000000200000 
ST2	0      000001 0   0   000000200000 0            000000200000 
ST9	0      000001 0   0   000000200000 0            000000200000 


*031600 CAIE	3,200000
INITIAL
C(AC)=000000 200000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   302140200000 0            000000200000 
IT1	0      0      0   0   302140200000 0            000000200000 
AT3	0      0      0   0   000000200000 0            302140200000 
AT6	0      0      0   0   000000200000 0            302140200000 
FT1A	0      0      0   0   000000200000 0            000000200000 
FT2	0      0      0   0   0            0            000000200000 
FT2RQ	0      0      0   0   000000200000 0            000000200000 
FT3	0      0      0   0   000000200000 0            000000200000 
FT9	031601 0      0   0   000000200000 0            000000200000 
ET0	031602 0      0   0   0            0            000000200000 
ST1A	031602 0      0   0   0            0            000000200000 
ST9	031602 0      0   0   0            0            000000200000 


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

*031602 JUMPA	0,031603
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031602 031602 0   0   324000031603 0            000000031603 
IT1	031602 0      0   0   324000031603 0            000000031603 
AT3	031602 0      0   0   000000031603 0            324000031603 
AT6	031602 031603 0   0   000000031603 0            324000031603 
FT1A	031602 031603 0   0   000000031603 0            000000031603 
FT2	031602 031603 0   0   0            0            000000031603 
FT2RQ	031602 031603 0   0   000000000017 0            000000031603 
FT3	031602 031603 0   0   000000000017 0            000000031603 
FT9	031603 031603 0   0   000000000017 0            000000031603 
ET0	031603 031603 0   0   000000000017 0            000000031603 
ST1A	031603 031603 0   0   000000000017 0            000000031603 
ST9	031603 031603 0   0   000000000017 0            000000031603 


*031603 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 200000 
FINAL

C(E)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031603 031603 0   0   476000000003 0            000000000003 
IT1	031603 0      0   0   476000000003 0            000000000003 
AT3	031603 0      0   0   000000000003 0            476000000003 
AT6	031603 000003 0   0   000000000003 0            476000000003 
FT1A	031603 000003 0   0   000000000003 0            000000000003 
FT9	031604 000003 0   0   000000000003 0            000000000003 
ET0	031604 000003 0   0   777777777777 0            000000000003 
ST6	031604 000003 0   0   777777777777 0            000000000003 
ST6A	031604 000003 0   0   777777777777 0            000000000003 
ST9	031604 000003 0   0   777777777777 0            000000000003 


*031604 MOVEI	1,400000
INITIAL
C(AC)=000000 200000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031604 031604 0   0   201040400000 0            000000400000 
IT1	031604 0      0   0   201040400000 0            000000400000 
AT3	031604 0      0   0   000000400000 0            201040400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 149
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0344

AT6	031604 0      0   0   000000400000 0            201040400000 
FT1A	031604 0      0   0   000000400000 0            000000400000 
FT9	031605 0      0   0   000000400000 0            000000400000 
ET0	031605 0      0   0   000000400000 0            000000400000 
ST1	031605 0      0   0   000000400000 0            000000400000 
ST2	031605 0      0   0   000000400000 0            000000400000 
ST9	031605 0      0   0   000000400000 0            000000400000 


*031605 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031605 031605 0   0   201100000001 0            000000000001 
IT1	031605 0      0   0   201100000001 0            000000000001 
AT3	031605 0      0   0   000000000001 0            201100000001 
AT6	031605 000001 0   0   000000000001 0            201100000001 
FT1A	031605 000001 0   0   000000000001 0            000000000001 
FT9	031606 000001 0   0   000000000001 0            000000000001 
ET0	031606 000001 0   0   000000000001 0            000000000001 
ST1	031606 000001 0   0   000000000001 0            000000000001 
ST2	031606 000001 0   0   000000000001 0            000000000001 
ST9	031606 000001 0   0   000000000001 0            000000000001 


*031606 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031606 031606 0   0   200142000000 0            000000400000 
IT1	031606 0      0   0   200142000000 0            000000400000 
AT1	031606 0      0   0   0            0            200142000000 
AT2	031606 0      0   0   000000000001 0            200142000000 
AT3	031606 0      0   0   000000000001 0            000000000001 
AT6	031606 000001 0   0   000000000001 0            000000000001 
FT0	031606 000001 0   0   000000400000 0            000000000001 
FT1A	031606 000001 0   0   000000400000 0            000000400000 
FT9	031607 000001 0   0   000000400000 0            000000400000 
ET0	031607 000001 0   0   000000400000 0            000000400000 
ST1	031607 000001 0   0   000000400000 0            000000400000 
ST2	031607 000001 0   0   000000400000 0            000000400000 
ST9	031607 000001 0   0   000000400000 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 150
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0345

*031607 CAIE	3,400000
INITIAL
C(AC)=000000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031607 031607 0   0   302140400000 0            000000400000 
IT1	031607 0      0   0   302140400000 0            000000400000 
AT3	031607 0      0   0   000000400000 0            302140400000 
AT6	031607 0      0   0   000000400000 0            302140400000 
FT1A	031607 0      0   0   000000400000 0            000000400000 
FT2	031607 0      0   0   0            0            000000400000 
FT2RQ	031607 0      0   0   000000400000 0            000000400000 
FT3	031607 0      0   0   000000400000 0            000000400000 
FT9	031610 0      0   0   000000400000 0            000000400000 
ET0	031611 0      0   0   0            0            000000400000 
ST1A	031611 0      0   0   0            0            000000400000 
ST9	031611 0      0   0   0            0            000000400000 


*031611 JUMPA	0,031612
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031611 031611 0   0   324000031612 0            000000031612 
IT1	031611 0      0   0   324000031612 0            000000031612 
AT3	031611 0      0   0   000000031612 0            324000031612 
AT6	031611 031612 0   0   000000031612 0            324000031612 
FT1A	031611 031612 0   0   000000031612 0            000000031612 
FT2	031611 031612 0   0   0            0            000000031612 
FT2RQ	031611 031612 0   0   000000000017 0            000000031612 
FT3	031611 031612 0   0   000000000017 0            000000031612 
FT9	031612 031612 0   0   000000000017 0            000000031612 
ET0	031612 031612 0   0   000000000017 0            000000031612 
ST1A	031612 031612 0   0   000000000017 0            000000031612 
ST9	031612 031612 0   0   000000000017 0            000000031612 


*031612 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000000 400000 
FINAL

C(E)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031612 031612 0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 151
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0346

IT1	031612 0      0   0   476000000003 0            000000000003 
AT3	031612 0      0   0   000000000003 0            476000000003 
AT6	031612 000003 0   0   000000000003 0            476000000003 
FT1A	031612 000003 0   0   000000000003 0            000000000003 
FT9	031613 000003 0   0   000000000003 0            000000000003 
ET0	031613 000003 0   0   777777777777 0            000000000003 
ST6	031613 000003 0   0   777777777777 0            000000000003 
ST6A	031613 000003 0   0   777777777777 0            000000000003 
ST9	031613 000003 0   0   777777777777 0            000000000003 


*031613 MOVSI	1,000001
INITIAL
C(AC)=000000 400000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031613 031613 0   0   205040000001 0            000000000001 
IT1	031613 0      0   0   205040000001 0            000000000001 
AT3	031613 0      0   0   000000000001 0            205040000001 
AT6	031613 000001 0   0   000000000001 0            205040000001 
FT1A	031613 000001 0   0   000000000001 0            000000000001 
FT9	031614 000001 0   0   000000000001 0            000000000001 
ET0	031614 000001 0   0   000001000000 0            000000000001 
ST1	031614 000001 0   0   000001000000 0            000000000001 
ST2	031614 000001 0   0   000001000000 0            000000000001 
ST9	031614 000001 0   0   000001000000 0            000000000001 


*031614 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031614 031614 0   0   201100000001 0            000000000001 
IT1	031614 0      0   0   201100000001 0            000000000001 
AT3	031614 0      0   0   000000000001 0            201100000001 
AT6	031614 000001 0   0   000000000001 0            201100000001 
FT1A	031614 000001 0   0   000000000001 0            000000000001 
FT9	031615 000001 0   0   000000000001 0            000000000001 
ET0	031615 000001 0   0   000000000001 0            000000000001 
ST1	031615 000001 0   0   000000000001 0            000000000001 
ST2	031615 000001 0   0   000000000001 0            000000000001 
ST9	031615 000001 0   0   000000000001 0            000000000001 


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

*031615 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031615 031615 0   0   200142000000 0            000001000000 
IT1	031615 0      0   0   200142000000 0            000001000000 
AT1	031615 0      0   0   0            0            200142000000 
AT2	031615 0      0   0   000000000001 0            200142000000 
AT3	031615 0      0   0   000000000001 0            000000000001 
AT6	031615 000001 0   0   000000000001 0            000000000001 
FT0	031615 000001 0   0   000001000000 0            000000000001 
FT1A	031615 000001 0   0   000001000000 0            000001000000 
FT9	031616 000001 0   0   000001000000 0            000001000000 
ET0	031616 000001 0   0   000001000000 0            000001000000 
ST1	031616 000001 0   0   000001000000 0            000001000000 
ST2	031616 000001 0   0   000001000000 0            000001000000 
ST9	031616 000001 0   0   000001000000 0            000001000000 


*031616 CAME	3,034444
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031616 031616 0   0   312140034444 0            000001000000 
IT1	031616 0      0   0   312140034444 0            000001000000 
AT3	031616 0      0   0   000000034444 0            312140034444 
AT6	031616 034444 0   0   000000034444 0            312140034444 
FT0	031616 034444 0   0   000001000000 0            312140034444 
FT1A	031616 034444 0   0   000001000000 0            000001000000 
FT2	031616 034444 0   0   0            0            000001000000 
FT2RQ	031616 034444 0   0   000001000000 0            000001000000 
FT3	031616 034444 0   0   000001000000 0            000001000000 
FT9	031617 034444 0   0   000001000000 0            000001000000 
ET0	031620 034444 0   0   0            0            000001000000 
ST1A	031620 034444 0   0   0            0            000001000000 
ST9	031620 034444 0   0   0            0            000001000000 


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

*031620 JUMPA	0,031621
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031620 031620 0   0   324000031621 0            000000031621 
IT1	031620 0      0   0   324000031621 0            000000031621 
AT3	031620 0      0   0   000000031621 0            324000031621 
AT6	031620 031621 0   0   000000031621 0            324000031621 
FT1A	031620 031621 0   0   000000031621 0            000000031621 
FT2	031620 031621 0   0   0            0            000000031621 
FT2RQ	031620 031621 0   0   000000000017 0            000000031621 
FT3	031620 031621 0   0   000000000017 0            000000031621 
FT9	031621 031621 0   0   000000000017 0            000000031621 
ET0	031621 031621 0   0   000000000017 0            000000031621 
ST1A	031621 031621 0   0   000000000017 0            000000031621 
ST9	031621 031621 0   0   000000000017 0            000000031621 


*031621 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000001 000000 
FINAL

C(E)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031621 031621 0   0   476000000003 0            000000000003 
IT1	031621 0      0   0   476000000003 0            000000000003 
AT3	031621 0      0   0   000000000003 0            476000000003 
AT6	031621 000003 0   0   000000000003 0            476000000003 
FT1A	031621 000003 0   0   000000000003 0            000000000003 
FT9	031622 000003 0   0   000000000003 0            000000000003 
ET0	031622 000003 0   0   777777777777 0            000000000003 
ST6	031622 000003 0   0   777777777777 0            000000000003 
ST6A	031622 000003 0   0   777777777777 0            000000000003 
ST9	031622 000003 0   0   777777777777 0            000000000003 


*031622 MOVSI	1,000002
INITIAL
C(AC)=000001 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031622 031622 0   0   205040000002 0            000000000002 
IT1	031622 0      0   0   205040000002 0            000000000002 
AT3	031622 0      0   0   000000000002 0            205040000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 154
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0349

AT6	031622 000002 0   0   000000000002 0            205040000002 
FT1A	031622 000002 0   0   000000000002 0            000000000002 
FT9	031623 000002 0   0   000000000002 0            000000000002 
ET0	031623 000002 0   0   000002000000 0            000000000002 
ST1	031623 000002 0   0   000002000000 0            000000000002 
ST2	031623 000002 0   0   000002000000 0            000000000002 
ST9	031623 000002 0   0   000002000000 0            000000000002 


*031623 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031623 031623 0   0   201100000001 0            000000000001 
IT1	031623 0      0   0   201100000001 0            000000000001 
AT3	031623 0      0   0   000000000001 0            201100000001 
AT6	031623 000001 0   0   000000000001 0            201100000001 
FT1A	031623 000001 0   0   000000000001 0            000000000001 
FT9	031624 000001 0   0   000000000001 0            000000000001 
ET0	031624 000001 0   0   000000000001 0            000000000001 
ST1	031624 000001 0   0   000000000001 0            000000000001 
ST2	031624 000001 0   0   000000000001 0            000000000001 
ST9	031624 000001 0   0   000000000001 0            000000000001 


*031624 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031624 031624 0   0   200142000000 0            000002000000 
IT1	031624 0      0   0   200142000000 0            000002000000 
AT1	031624 0      0   0   0            0            200142000000 
AT2	031624 0      0   0   000000000001 0            200142000000 
AT3	031624 0      0   0   000000000001 0            000000000001 
AT6	031624 000001 0   0   000000000001 0            000000000001 
FT0	031624 000001 0   0   000002000000 0            000000000001 
FT1A	031624 000001 0   0   000002000000 0            000002000000 
FT9	031625 000001 0   0   000002000000 0            000002000000 
ET0	031625 000001 0   0   000002000000 0            000002000000 
ST1	031625 000001 0   0   000002000000 0            000002000000 
ST2	031625 000001 0   0   000002000000 0            000002000000 
ST9	031625 000001 0   0   000002000000 0            000002000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 155
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0350

*031625 CAME	3,034445
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031625 031625 0   0   312140034445 0            000002000000 
IT1	031625 0      0   0   312140034445 0            000002000000 
AT3	031625 0      0   0   000000034445 0            312140034445 
AT6	031625 034445 0   0   000000034445 0            312140034445 
FT0	031625 034445 0   0   000002000000 0            312140034445 
FT1A	031625 034445 0   0   000002000000 0            000002000000 
FT2	031625 034445 0   0   0            0            000002000000 
FT2RQ	031625 034445 0   0   000002000000 0            000002000000 
FT3	031625 034445 0   0   000002000000 0            000002000000 
FT9	031626 034445 0   0   000002000000 0            000002000000 
ET0	031627 034445 0   0   0            0            000002000000 
ST1A	031627 034445 0   0   0            0            000002000000 
ST9	031627 034445 0   0   0            0            000002000000 


*031627 JUMPA	0,031630
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031627 031627 0   0   324000031630 0            000000031630 
IT1	031627 0      0   0   324000031630 0            000000031630 
AT3	031627 0      0   0   000000031630 0            324000031630 
AT6	031627 031630 0   0   000000031630 0            324000031630 
FT1A	031627 031630 0   0   000000031630 0            000000031630 
FT2	031627 031630 0   0   0            0            000000031630 
FT2RQ	031627 031630 0   0   000000000017 0            000000031630 
FT3	031627 031630 0   0   000000000017 0            000000031630 
FT9	031630 031630 0   0   000000000017 0            000000031630 
ET0	031630 031630 0   0   000000000017 0            000000031630 
ST1A	031630 031630 0   0   000000000017 0            000000031630 
ST9	031630 031630 0   0   000000000017 0            000000031630 


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

*031630 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000002 000000 
FINAL

C(E)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031630 031630 0   0   476000000003 0            000000000003 
IT1	031630 0      0   0   476000000003 0            000000000003 
AT3	031630 0      0   0   000000000003 0            476000000003 
AT6	031630 000003 0   0   000000000003 0            476000000003 
FT1A	031630 000003 0   0   000000000003 0            000000000003 
FT9	031631 000003 0   0   000000000003 0            000000000003 
ET0	031631 000003 0   0   777777777777 0            000000000003 
ST6	031631 000003 0   0   777777777777 0            000000000003 
ST6A	031631 000003 0   0   777777777777 0            000000000003 
ST9	031631 000003 0   0   777777777777 0            000000000003 


*031631 MOVSI	1,000004
INITIAL
C(AC)=000002 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031631 031631 0   0   205040000004 0            000000000004 
IT1	031631 0      0   0   205040000004 0            000000000004 
AT3	031631 0      0   0   000000000004 0            205040000004 
AT6	031631 000004 0   0   000000000004 0            205040000004 
FT1A	031631 000004 0   0   000000000004 0            000000000004 
FT9	031632 000004 0   0   000000000004 0            000000000004 
ET0	031632 000004 0   0   000004000000 0            000000000004 
ST1	031632 000004 0   0   000004000000 0            000000000004 
ST2	031632 000004 0   0   000004000000 0            000000000004 
ST9	031632 000004 0   0   000004000000 0            000000000004 


*031632 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031632 031632 0   0   201100000001 0            000000000001 
IT1	031632 0      0   0   201100000001 0            000000000001 
AT3	031632 0      0   0   000000000001 0            201100000001 
AT6	031632 000001 0   0   000000000001 0            201100000001 
FT1A	031632 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 157
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0352

FT9	031633 000001 0   0   000000000001 0            000000000001 
ET0	031633 000001 0   0   000000000001 0            000000000001 
ST1	031633 000001 0   0   000000000001 0            000000000001 
ST2	031633 000001 0   0   000000000001 0            000000000001 
ST9	031633 000001 0   0   000000000001 0            000000000001 


*031633 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031633 031633 0   0   200142000000 0            000004000000 
IT1	031633 0      0   0   200142000000 0            000004000000 
AT1	031633 0      0   0   0            0            200142000000 
AT2	031633 0      0   0   000000000001 0            200142000000 
AT3	031633 0      0   0   000000000001 0            000000000001 
AT6	031633 000001 0   0   000000000001 0            000000000001 
FT0	031633 000001 0   0   000004000000 0            000000000001 
FT1A	031633 000001 0   0   000004000000 0            000004000000 
FT9	031634 000001 0   0   000004000000 0            000004000000 
ET0	031634 000001 0   0   000004000000 0            000004000000 
ST1	031634 000001 0   0   000004000000 0            000004000000 
ST2	031634 000001 0   0   000004000000 0            000004000000 
ST9	031634 000001 0   0   000004000000 0            000004000000 


*031634 CAME	3,034446
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031634 031634 0   0   312140034446 0            000004000000 
IT1	031634 0      0   0   312140034446 0            000004000000 
AT3	031634 0      0   0   000000034446 0            312140034446 
AT6	031634 034446 0   0   000000034446 0            312140034446 
FT0	031634 034446 0   0   000004000000 0            312140034446 
FT1A	031634 034446 0   0   000004000000 0            000004000000 
FT2	031634 034446 0   0   0            0            000004000000 
FT2RQ	031634 034446 0   0   000004000000 0            000004000000 
FT3	031634 034446 0   0   000004000000 0            000004000000 
FT9	031635 034446 0   0   000004000000 0            000004000000 
ET0	031636 034446 0   0   0            0            000004000000 
ST1A	031636 034446 0   0   0            0            000004000000 
ST9	031636 034446 0   0   0            0            000004000000 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 158
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0353


*031636 JUMPA	0,031637
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031636 031636 0   0   324000031637 0            000000031637 
IT1	031636 0      0   0   324000031637 0            000000031637 
AT3	031636 0      0   0   000000031637 0            324000031637 
AT6	031636 031637 0   0   000000031637 0            324000031637 
FT1A	031636 031637 0   0   000000031637 0            000000031637 
FT2	031636 031637 0   0   0            0            000000031637 
FT2RQ	031636 031637 0   0   000000000017 0            000000031637 
FT3	031636 031637 0   0   000000000017 0            000000031637 
FT9	031637 031637 0   0   000000000017 0            000000031637 
ET0	031637 031637 0   0   000000000017 0            000000031637 
ST1A	031637 031637 0   0   000000000017 0            000000031637 
ST9	031637 031637 0   0   000000000017 0            000000031637 


*031637 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000004 000000 
FINAL

C(E)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031637 031637 0   0   476000000003 0            000000000003 
IT1	031637 0      0   0   476000000003 0            000000000003 
AT3	031637 0      0   0   000000000003 0            476000000003 
AT6	031637 000003 0   0   000000000003 0            476000000003 
FT1A	031637 000003 0   0   000000000003 0            000000000003 
FT9	031640 000003 0   0   000000000003 0            000000000003 
ET0	031640 000003 0   0   777777777777 0            000000000003 
ST6	031640 000003 0   0   777777777777 0            000000000003 
ST6A	031640 000003 0   0   777777777777 0            000000000003 
ST9	031640 000003 0   0   777777777777 0            000000000003 


*031640 MOVSI	1,000010
INITIAL
C(AC)=000004 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031640 031640 0   0   205040000010 0            000000000010 
IT1	031640 0      0   0   205040000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 159
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0354

AT3	031640 0      0   0   000000000010 0            205040000010 
AT6	031640 000010 0   0   000000000010 0            205040000010 
FT1A	031640 000010 0   0   000000000010 0            000000000010 
FT9	031641 000010 0   0   000000000010 0            000000000010 
ET0	031641 000010 0   0   000010000000 0            000000000010 
ST1	031641 000010 0   0   000010000000 0            000000000010 
ST2	031641 000010 0   0   000010000000 0            000000000010 
ST9	031641 000010 0   0   000010000000 0            000000000010 


*031641 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031641 031641 0   0   201100000001 0            000000000001 
IT1	031641 0      0   0   201100000001 0            000000000001 
AT3	031641 0      0   0   000000000001 0            201100000001 
AT6	031641 000001 0   0   000000000001 0            201100000001 
FT1A	031641 000001 0   0   000000000001 0            000000000001 
FT9	031642 000001 0   0   000000000001 0            000000000001 
ET0	031642 000001 0   0   000000000001 0            000000000001 
ST1	031642 000001 0   0   000000000001 0            000000000001 
ST2	031642 000001 0   0   000000000001 0            000000000001 
ST9	031642 000001 0   0   000000000001 0            000000000001 


*031642 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031642 031642 0   0   200142000000 0            000010000000 
IT1	031642 0      0   0   200142000000 0            000010000000 
AT1	031642 0      0   0   0            0            200142000000 
AT2	031642 0      0   0   000000000001 0            200142000000 
AT3	031642 0      0   0   000000000001 0            000000000001 
AT6	031642 000001 0   0   000000000001 0            000000000001 
FT0	031642 000001 0   0   000010000000 0            000000000001 
FT1A	031642 000001 0   0   000010000000 0            000010000000 
FT9	031643 000001 0   0   000010000000 0            000010000000 
ET0	031643 000001 0   0   000010000000 0            000010000000 
ST1	031643 000001 0   0   000010000000 0            000010000000 
ST2	031643 000001 0   0   000010000000 0            000010000000 
ST9	031643 000001 0   0   000010000000 0            000010000000 


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

*031643 CAME	3,034447
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031643 031643 0   0   312140034447 0            000010000000 
IT1	031643 0      0   0   312140034447 0            000010000000 
AT3	031643 0      0   0   000000034447 0            312140034447 
AT6	031643 034447 0   0   000000034447 0            312140034447 
FT0	031643 034447 0   0   000010000000 0            312140034447 
FT1A	031643 034447 0   0   000010000000 0            000010000000 
FT2	031643 034447 0   0   0            0            000010000000 
FT2RQ	031643 034447 0   0   000010000000 0            000010000000 
FT3	031643 034447 0   0   000010000000 0            000010000000 
FT9	031644 034447 0   0   000010000000 0            000010000000 
ET0	031645 034447 0   0   0            0            000010000000 
ST1A	031645 034447 0   0   0            0            000010000000 
ST9	031645 034447 0   0   0            0            000010000000 


*031645 JUMPA	0,031646
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031645 031645 0   0   324000031646 0            000000031646 
IT1	031645 0      0   0   324000031646 0            000000031646 
AT3	031645 0      0   0   000000031646 0            324000031646 
AT6	031645 031646 0   0   000000031646 0            324000031646 
FT1A	031645 031646 0   0   000000031646 0            000000031646 
FT2	031645 031646 0   0   0            0            000000031646 
FT2RQ	031645 031646 0   0   000000000017 0            000000031646 
FT3	031645 031646 0   0   000000000017 0            000000031646 
FT9	031646 031646 0   0   000000000017 0            000000031646 
ET0	031646 031646 0   0   000000000017 0            000000031646 
ST1A	031646 031646 0   0   000000000017 0            000000031646 
ST9	031646 031646 0   0   000000000017 0            000000031646 


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

*031646 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000010 000000 
FINAL

C(E)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031646 031646 0   0   476000000003 0            000000000003 
IT1	031646 0      0   0   476000000003 0            000000000003 
AT3	031646 0      0   0   000000000003 0            476000000003 
AT6	031646 000003 0   0   000000000003 0            476000000003 
FT1A	031646 000003 0   0   000000000003 0            000000000003 
FT9	031647 000003 0   0   000000000003 0            000000000003 
ET0	031647 000003 0   0   777777777777 0            000000000003 
ST6	031647 000003 0   0   777777777777 0            000000000003 
ST6A	031647 000003 0   0   777777777777 0            000000000003 
ST9	031647 000003 0   0   777777777777 0            000000000003 


*031647 MOVSI	1,000020
INITIAL
C(AC)=000010 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031647 031647 0   0   205040000020 0            000000000020 
IT1	031647 0      0   0   205040000020 0            000000000020 
AT3	031647 0      0   0   000000000020 0            205040000020 
AT6	031647 000020 0   0   000000000020 0            205040000020 
FT1A	031647 000020 0   0   000000000020 0            000000000020 
FT9	031650 000020 0   0   000000000020 0            000000000020 
ET0	031650 000020 0   0   000020000000 0            000000000020 
ST1	031650 000020 0   0   000020000000 0            000000000020 
ST2	031650 000020 0   0   000020000000 0            000000000020 
ST9	031650 000020 0   0   000020000000 0            000000000020 


*031650 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031650 031650 0   0   201100000001 0            000000000001 
IT1	031650 0      0   0   201100000001 0            000000000001 
AT3	031650 0      0   0   000000000001 0            201100000001 
AT6	031650 000001 0   0   000000000001 0            201100000001 
FT1A	031650 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 162
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0357

FT9	031651 000001 0   0   000000000001 0            000000000001 
ET0	031651 000001 0   0   000000000001 0            000000000001 
ST1	031651 000001 0   0   000000000001 0            000000000001 
ST2	031651 000001 0   0   000000000001 0            000000000001 
ST9	031651 000001 0   0   000000000001 0            000000000001 


*031651 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031651 031651 0   0   200142000000 0            000020000000 
IT1	031651 0      0   0   200142000000 0            000020000000 
AT1	031651 0      0   0   0            0            200142000000 
AT2	031651 0      0   0   000000000001 0            200142000000 
AT3	031651 0      0   0   000000000001 0            000000000001 
AT6	031651 000001 0   0   000000000001 0            000000000001 
FT0	031651 000001 0   0   000020000000 0            000000000001 
FT1A	031651 000001 0   0   000020000000 0            000020000000 
FT9	031652 000001 0   0   000020000000 0            000020000000 
ET0	031652 000001 0   0   000020000000 0            000020000000 
ST1	031652 000001 0   0   000020000000 0            000020000000 
ST2	031652 000001 0   0   000020000000 0            000020000000 
ST9	031652 000001 0   0   000020000000 0            000020000000 


*031652 CAME	3,034450
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031652 031652 0   0   312140034450 0            000020000000 
IT1	031652 0      0   0   312140034450 0            000020000000 
AT3	031652 0      0   0   000000034450 0            312140034450 
AT6	031652 034450 0   0   000000034450 0            312140034450 
FT0	031652 034450 0   0   000020000000 0            312140034450 
FT1A	031652 034450 0   0   000020000000 0            000020000000 
FT2	031652 034450 0   0   0            0            000020000000 
FT2RQ	031652 034450 0   0   000020000000 0            000020000000 
FT3	031652 034450 0   0   000020000000 0            000020000000 
FT9	031653 034450 0   0   000020000000 0            000020000000 
ET0	031654 034450 0   0   0            0            000020000000 
ST1A	031654 034450 0   0   0            0            000020000000 
ST9	031654 034450 0   0   0            0            000020000000 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 163
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0358


*031654 JUMPA	0,031655
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031654 031654 0   0   324000031655 0            000000031655 
IT1	031654 0      0   0   324000031655 0            000000031655 
AT3	031654 0      0   0   000000031655 0            324000031655 
AT6	031654 031655 0   0   000000031655 0            324000031655 
FT1A	031654 031655 0   0   000000031655 0            000000031655 
FT2	031654 031655 0   0   0            0            000000031655 
FT2RQ	031654 031655 0   0   000000000017 0            000000031655 
FT3	031654 031655 0   0   000000000017 0            000000031655 
FT9	031655 031655 0   0   000000000017 0            000000031655 
ET0	031655 031655 0   0   000000000017 0            000000031655 
ST1A	031655 031655 0   0   000000000017 0            000000031655 
ST9	031655 031655 0   0   000000000017 0            000000031655 


*031655 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000020 000000 
FINAL

C(E)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031655 031655 0   0   476000000003 0            000000000003 
IT1	031655 0      0   0   476000000003 0            000000000003 
AT3	031655 0      0   0   000000000003 0            476000000003 
AT6	031655 000003 0   0   000000000003 0            476000000003 
FT1A	031655 000003 0   0   000000000003 0            000000000003 
FT9	031656 000003 0   0   000000000003 0            000000000003 
ET0	031656 000003 0   0   777777777777 0            000000000003 
ST6	031656 000003 0   0   777777777777 0            000000000003 
ST6A	031656 000003 0   0   777777777777 0            000000000003 
ST9	031656 000003 0   0   777777777777 0            000000000003 


*031656 MOVSI	1,000040
INITIAL
C(AC)=000020 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031656 031656 0   0   205040000040 0            000000000040 
IT1	031656 0      0   0   205040000040 0            000000000040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 164
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0359

AT3	031656 0      0   0   000000000040 0            205040000040 
AT6	031656 000040 0   0   000000000040 0            205040000040 
FT1A	031656 000040 0   0   000000000040 0            000000000040 
FT9	031657 000040 0   0   000000000040 0            000000000040 
ET0	031657 000040 0   0   000040000000 0            000000000040 
ST1	031657 000040 0   0   000040000000 0            000000000040 
ST2	031657 000040 0   0   000040000000 0            000000000040 
ST9	031657 000040 0   0   000040000000 0            000000000040 


*031657 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031657 031657 0   0   201100000001 0            000000000001 
IT1	031657 0      0   0   201100000001 0            000000000001 
AT3	031657 0      0   0   000000000001 0            201100000001 
AT6	031657 000001 0   0   000000000001 0            201100000001 
FT1A	031657 000001 0   0   000000000001 0            000000000001 
FT9	031660 000001 0   0   000000000001 0            000000000001 
ET0	031660 000001 0   0   000000000001 0            000000000001 
ST1	031660 000001 0   0   000000000001 0            000000000001 
ST2	031660 000001 0   0   000000000001 0            000000000001 
ST9	031660 000001 0   0   000000000001 0            000000000001 


*031660 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031660 031660 0   0   200142000000 0            000040000000 
IT1	031660 0      0   0   200142000000 0            000040000000 
AT1	031660 0      0   0   0            0            200142000000 
AT2	031660 0      0   0   000000000001 0            200142000000 
AT3	031660 0      0   0   000000000001 0            000000000001 
AT6	031660 000001 0   0   000000000001 0            000000000001 
FT0	031660 000001 0   0   000040000000 0            000000000001 
FT1A	031660 000001 0   0   000040000000 0            000040000000 
FT9	031661 000001 0   0   000040000000 0            000040000000 
ET0	031661 000001 0   0   000040000000 0            000040000000 
ST1	031661 000001 0   0   000040000000 0            000040000000 
ST2	031661 000001 0   0   000040000000 0            000040000000 
ST9	031661 000001 0   0   000040000000 0            000040000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 165
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0360

*031661 CAME	3,034451
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031661 031661 0   0   312140034451 0            000040000000 
IT1	031661 0      0   0   312140034451 0            000040000000 
AT3	031661 0      0   0   000000034451 0            312140034451 
AT6	031661 034451 0   0   000000034451 0            312140034451 
FT0	031661 034451 0   0   000040000000 0            312140034451 
FT1A	031661 034451 0   0   000040000000 0            000040000000 
FT2	031661 034451 0   0   0            0            000040000000 
FT2RQ	031661 034451 0   0   000040000000 0            000040000000 
FT3	031661 034451 0   0   000040000000 0            000040000000 
FT9	031662 034451 0   0   000040000000 0            000040000000 
ET0	031663 034451 0   0   0            0            000040000000 
ST1A	031663 034451 0   0   0            0            000040000000 
ST9	031663 034451 0   0   0            0            000040000000 


*031663 JUMPA	0,031664
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031663 031663 0   0   324000031664 0            000000031664 
IT1	031663 0      0   0   324000031664 0            000000031664 
AT3	031663 0      0   0   000000031664 0            324000031664 
AT6	031663 031664 0   0   000000031664 0            324000031664 
FT1A	031663 031664 0   0   000000031664 0            000000031664 
FT2	031663 031664 0   0   0            0            000000031664 
FT2RQ	031663 031664 0   0   000000000017 0            000000031664 
FT3	031663 031664 0   0   000000000017 0            000000031664 
FT9	031664 031664 0   0   000000000017 0            000000031664 
ET0	031664 031664 0   0   000000000017 0            000000031664 
ST1A	031664 031664 0   0   000000000017 0            000000031664 
ST9	031664 031664 0   0   000000000017 0            000000031664 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 166
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0361

*031664 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000040 000000 
FINAL

C(E)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031664 031664 0   0   476000000003 0            000000000003 
IT1	031664 0      0   0   476000000003 0            000000000003 
AT3	031664 0      0   0   000000000003 0            476000000003 
AT6	031664 000003 0   0   000000000003 0            476000000003 
FT1A	031664 000003 0   0   000000000003 0            000000000003 
FT9	031665 000003 0   0   000000000003 0            000000000003 
ET0	031665 000003 0   0   777777777777 0            000000000003 
ST6	031665 000003 0   0   777777777777 0            000000000003 
ST6A	031665 000003 0   0   777777777777 0            000000000003 
ST9	031665 000003 0   0   777777777777 0            000000000003 


*031665 MOVSI	1,000100
INITIAL
C(AC)=000040 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031665 031665 0   0   205040000100 0            000000000100 
IT1	031665 0      0   0   205040000100 0            000000000100 
AT3	031665 0      0   0   000000000100 0            205040000100 
AT6	031665 0      0   0   000000000100 0            205040000100 
FT1A	031665 0      0   0   000000000100 0            000000000100 
FT9	031666 0      0   0   000000000100 0            000000000100 
ET0	031666 0      0   0   000100000000 0            000000000100 
ST1	031666 0      0   0   000100000000 0            000000000100 
ST2	031666 0      0   0   000100000000 0            000000000100 
ST9	031666 0      0   0   000100000000 0            000000000100 


*031666 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031666 031666 0   0   201100000001 0            000000000001 
IT1	031666 0      0   0   201100000001 0            000000000001 
AT3	031666 0      0   0   000000000001 0            201100000001 
AT6	031666 000001 0   0   000000000001 0            201100000001 
FT1A	031666 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 167
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0362

FT9	031667 000001 0   0   000000000001 0            000000000001 
ET0	031667 000001 0   0   000000000001 0            000000000001 
ST1	031667 000001 0   0   000000000001 0            000000000001 
ST2	031667 000001 0   0   000000000001 0            000000000001 
ST9	031667 000001 0   0   000000000001 0            000000000001 


*031667 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031667 031667 0   0   200142000000 0            000100000000 
IT1	031667 0      0   0   200142000000 0            000100000000 
AT1	031667 0      0   0   0            0            200142000000 
AT2	031667 0      0   0   000000000001 0            200142000000 
AT3	031667 0      0   0   000000000001 0            000000000001 
AT6	031667 000001 0   0   000000000001 0            000000000001 
FT0	031667 000001 0   0   000100000000 0            000000000001 
FT1A	031667 000001 0   0   000100000000 0            000100000000 
FT9	031670 000001 0   0   000100000000 0            000100000000 
ET0	031670 000001 0   0   000100000000 0            000100000000 
ST1	031670 000001 0   0   000100000000 0            000100000000 
ST2	031670 000001 0   0   000100000000 0            000100000000 
ST9	031670 000001 0   0   000100000000 0            000100000000 


*031670 CAME	3,034452
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031670 031670 0   0   312140034452 0            000100000000 
IT1	031670 0      0   0   312140034452 0            000100000000 
AT3	031670 0      0   0   000000034452 0            312140034452 
AT6	031670 034452 0   0   000000034452 0            312140034452 
FT0	031670 034452 0   0   000100000000 0            312140034452 
FT1A	031670 034452 0   0   000100000000 0            000100000000 
FT2	031670 034452 0   0   0            0            000100000000 
FT2RQ	031670 034452 0   0   000100000000 0            000100000000 
FT3	031670 034452 0   0   000100000000 0            000100000000 
FT9	031671 034452 0   0   000100000000 0            000100000000 
ET0	031672 034452 0   0   0            0            000100000000 
ST1A	031672 034452 0   0   0            0            000100000000 
ST9	031672 034452 0   0   0            0            000100000000 

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


*031672 JUMPA	0,031673
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031672 031672 0   0   324000031673 0            000000031673 
IT1	031672 0      0   0   324000031673 0            000000031673 
AT3	031672 0      0   0   000000031673 0            324000031673 
AT6	031672 031673 0   0   000000031673 0            324000031673 
FT1A	031672 031673 0   0   000000031673 0            000000031673 
FT2	031672 031673 0   0   0            0            000000031673 
FT2RQ	031672 031673 0   0   000000000017 0            000000031673 
FT3	031672 031673 0   0   000000000017 0            000000031673 
FT9	031673 031673 0   0   000000000017 0            000000031673 
ET0	031673 031673 0   0   000000000017 0            000000031673 
ST1A	031673 031673 0   0   000000000017 0            000000031673 
ST9	031673 031673 0   0   000000000017 0            000000031673 


*031673 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000100 000000 
FINAL

C(E)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031673 031673 0   0   476000000003 0            000000000003 
IT1	031673 0      0   0   476000000003 0            000000000003 
AT3	031673 0      0   0   000000000003 0            476000000003 
AT6	031673 000003 0   0   000000000003 0            476000000003 
FT1A	031673 000003 0   0   000000000003 0            000000000003 
FT9	031674 000003 0   0   000000000003 0            000000000003 
ET0	031674 000003 0   0   777777777777 0            000000000003 
ST6	031674 000003 0   0   777777777777 0            000000000003 
ST6A	031674 000003 0   0   777777777777 0            000000000003 
ST9	031674 000003 0   0   777777777777 0            000000000003 


*031674 MOVSI	1,000200
INITIAL
C(AC)=000100 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031674 031674 0   0   205040000200 0            000000000200 
IT1	031674 0      0   0   205040000200 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 169
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0364

AT3	031674 0      0   0   000000000200 0            205040000200 
AT6	031674 0      0   0   000000000200 0            205040000200 
FT1A	031674 0      0   0   000000000200 0            000000000200 
FT9	031675 0      0   0   000000000200 0            000000000200 
ET0	031675 0      0   0   000200000000 0            000000000200 
ST1	031675 0      0   0   000200000000 0            000000000200 
ST2	031675 0      0   0   000200000000 0            000000000200 
ST9	031675 0      0   0   000200000000 0            000000000200 


*031675 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031675 031675 0   0   201100000001 0            000000000001 
IT1	031675 0      0   0   201100000001 0            000000000001 
AT3	031675 0      0   0   000000000001 0            201100000001 
AT6	031675 000001 0   0   000000000001 0            201100000001 
FT1A	031675 000001 0   0   000000000001 0            000000000001 
FT9	031676 000001 0   0   000000000001 0            000000000001 
ET0	031676 000001 0   0   000000000001 0            000000000001 
ST1	031676 000001 0   0   000000000001 0            000000000001 
ST2	031676 000001 0   0   000000000001 0            000000000001 
ST9	031676 000001 0   0   000000000001 0            000000000001 


*031676 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031676 031676 0   0   200142000000 0            000200000000 
IT1	031676 0      0   0   200142000000 0            000200000000 
AT1	031676 0      0   0   0            0            200142000000 
AT2	031676 0      0   0   000000000001 0            200142000000 
AT3	031676 0      0   0   000000000001 0            000000000001 
AT6	031676 000001 0   0   000000000001 0            000000000001 
FT0	031676 000001 0   0   000200000000 0            000000000001 
FT1A	031676 000001 0   0   000200000000 0            000200000000 
FT9	031677 000001 0   0   000200000000 0            000200000000 
ET0	031677 000001 0   0   000200000000 0            000200000000 
ST1	031677 000001 0   0   000200000000 0            000200000000 
ST2	031677 000001 0   0   000200000000 0            000200000000 
ST9	031677 000001 0   0   000200000000 0            000200000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 170
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0365

*031677 CAME	3,034453
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031677 031677 0   0   312140034453 0            000200000000 
IT1	031677 0      0   0   312140034453 0            000200000000 
AT3	031677 0      0   0   000000034453 0            312140034453 
AT6	031677 034453 0   0   000000034453 0            312140034453 
FT0	031677 034453 0   0   000200000000 0            312140034453 
FT1A	031677 034453 0   0   000200000000 0            000200000000 
FT2	031677 034453 0   0   0            0            000200000000 
FT2RQ	031677 034453 0   0   000200000000 0            000200000000 
FT3	031677 034453 0   0   000200000000 0            000200000000 
FT9	0      034453 0   0   000200000000 0            000200000000 
ET0	031701 034453 0   0   0            0            000200000000 
ST1A	031701 034453 0   0   0            0            000200000000 
ST9	031701 034453 0   0   0            0            000200000000 


*031701 JUMPA	0,031702
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031701 031701 0   0   324000031702 0            000000031702 
IT1	031701 0      0   0   324000031702 0            000000031702 
AT3	031701 0      0   0   000000031702 0            324000031702 
AT6	031701 031702 0   0   000000031702 0            324000031702 
FT1A	031701 031702 0   0   000000031702 0            000000031702 
FT2	031701 031702 0   0   0            0            000000031702 
FT2RQ	031701 031702 0   0   000000000017 0            000000031702 
FT3	031701 031702 0   0   000000000017 0            000000031702 
FT9	031702 031702 0   0   000000000017 0            000000031702 
ET0	031702 031702 0   0   000000000017 0            000000031702 
ST1A	031702 031702 0   0   000000000017 0            000000031702 
ST9	031702 031702 0   0   000000000017 0            000000031702 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 171
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0366

*031702 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000200 000000 
FINAL

C(E)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031702 031702 0   0   476000000003 0            000000000003 
IT1	031702 0      0   0   476000000003 0            000000000003 
AT3	031702 0      0   0   000000000003 0            476000000003 
AT6	031702 000003 0   0   000000000003 0            476000000003 
FT1A	031702 000003 0   0   000000000003 0            000000000003 
FT9	031703 000003 0   0   000000000003 0            000000000003 
ET0	031703 000003 0   0   777777777777 0            000000000003 
ST6	031703 000003 0   0   777777777777 0            000000000003 
ST6A	031703 000003 0   0   777777777777 0            000000000003 
ST9	031703 000003 0   0   777777777777 0            000000000003 


*031703 MOVSI	1,000400
INITIAL
C(AC)=000200 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031703 031703 0   0   205040000400 0            000000000400 
IT1	031703 0      0   0   205040000400 0            000000000400 
AT3	031703 0      0   0   000000000400 0            205040000400 
AT6	031703 0      0   0   000000000400 0            205040000400 
FT1A	031703 0      0   0   000000000400 0            000000000400 
FT9	031704 0      0   0   000000000400 0            000000000400 
ET0	031704 0      0   0   000400000000 0            000000000400 
ST1	031704 0      0   0   000400000000 0            000000000400 
ST2	031704 0      0   0   000400000000 0            000000000400 
ST9	031704 0      0   0   000400000000 0            000000000400 


*031704 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031704 031704 0   0   201100000001 0            000000000001 
IT1	031704 0      0   0   201100000001 0            000000000001 
AT3	031704 0      0   0   000000000001 0            201100000001 
AT6	031704 000001 0   0   000000000001 0            201100000001 
FT1A	031704 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 172
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0367

FT9	031705 000001 0   0   000000000001 0            000000000001 
ET0	031705 000001 0   0   000000000001 0            000000000001 
ST1	031705 000001 0   0   000000000001 0            000000000001 
ST2	031705 000001 0   0   000000000001 0            000000000001 
ST9	031705 000001 0   0   000000000001 0            000000000001 


*031705 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031705 031705 0   0   200142000000 0            000400000000 
IT1	031705 0      0   0   200142000000 0            000400000000 
AT1	031705 0      0   0   0            0            200142000000 
AT2	031705 0      0   0   000000000001 0            200142000000 
AT3	031705 0      0   0   000000000001 0            000000000001 
AT6	031705 000001 0   0   000000000001 0            000000000001 
FT0	031705 000001 0   0   000400000000 0            000000000001 
FT1A	031705 000001 0   0   000400000000 0            000400000000 
FT9	031706 000001 0   0   000400000000 0            000400000000 
ET0	031706 000001 0   0   000400000000 0            000400000000 
ST1	031706 000001 0   0   000400000000 0            000400000000 
ST2	031706 000001 0   0   000400000000 0            000400000000 
ST9	031706 000001 0   0   000400000000 0            000400000000 


*031706 CAME	3,034454
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031706 031706 0   0   312140034454 0            000400000000 
IT1	031706 0      0   0   312140034454 0            000400000000 
AT3	031706 0      0   0   000000034454 0            312140034454 
AT6	031706 034454 0   0   000000034454 0            312140034454 
FT0	031706 034454 0   0   000400000000 0            312140034454 
FT1A	031706 034454 0   0   000400000000 0            000400000000 
FT2	031706 034454 0   0   0            0            000400000000 
FT2RQ	031706 034454 0   0   000400000000 0            000400000000 
FT3	031706 034454 0   0   000400000000 0            000400000000 
FT9	031707 034454 0   0   000400000000 0            000400000000 
ET0	031710 034454 0   0   0            0            000400000000 
ST1A	031710 034454 0   0   0            0            000400000000 
ST9	031710 034454 0   0   0            0            000400000000 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 173
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0368


*031710 JUMPA	0,031711
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031710 031710 0   0   324000031711 0            000000031711 
IT1	031710 0      0   0   324000031711 0            000000031711 
AT3	031710 0      0   0   000000031711 0            324000031711 
AT6	031710 031711 0   0   000000031711 0            324000031711 
FT1A	031710 031711 0   0   000000031711 0            000000031711 
FT2	031710 031711 0   0   0            0            000000031711 
FT2RQ	031710 031711 0   0   000000000017 0            000000031711 
FT3	031710 031711 0   0   000000000017 0            000000031711 
FT9	031711 031711 0   0   000000000017 0            000000031711 
ET0	031711 031711 0   0   000000000017 0            000000031711 
ST1A	031711 031711 0   0   000000000017 0            000000031711 
ST9	031711 031711 0   0   000000000017 0            000000031711 


*031711 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=000400 000000 
FINAL

C(E)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031711 031711 0   0   476000000003 0            000000000003 
IT1	031711 0      0   0   476000000003 0            000000000003 
AT3	031711 0      0   0   000000000003 0            476000000003 
AT6	031711 000003 0   0   000000000003 0            476000000003 
FT1A	031711 000003 0   0   000000000003 0            000000000003 
FT9	031712 000003 0   0   000000000003 0            000000000003 
ET0	031712 000003 0   0   777777777777 0            000000000003 
ST6	031712 000003 0   0   777777777777 0            000000000003 
ST6A	031712 000003 0   0   777777777777 0            000000000003 
ST9	031712 000003 0   0   777777777777 0            000000000003 


*031712 MOVSI	1,001000
INITIAL
C(AC)=000400 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031712 031712 0   0   205040001000 0            000000001000 
IT1	031712 0      0   0   205040001000 0            000000001000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 174
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0369

AT3	031712 0      0   0   000000001000 0            205040001000 
AT6	031712 0      0   0   000000001000 0            205040001000 
FT1A	031712 0      0   0   000000001000 0            000000001000 
FT9	031713 0      0   0   000000001000 0            000000001000 
ET0	031713 0      0   0   001000000000 0            000000001000 
ST1	031713 0      0   0   001000000000 0            000000001000 
ST2	031713 0      0   0   001000000000 0            000000001000 
ST9	031713 0      0   0   001000000000 0            000000001000 


*031713 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031713 031713 0   0   201100000001 0            000000000001 
IT1	031713 0      0   0   201100000001 0            000000000001 
AT3	031713 0      0   0   000000000001 0            201100000001 
AT6	031713 000001 0   0   000000000001 0            201100000001 
FT1A	031713 000001 0   0   000000000001 0            000000000001 
FT9	031714 000001 0   0   000000000001 0            000000000001 
ET0	031714 000001 0   0   000000000001 0            000000000001 
ST1	031714 000001 0   0   000000000001 0            000000000001 
ST2	031714 000001 0   0   000000000001 0            000000000001 
ST9	031714 000001 0   0   000000000001 0            000000000001 


*031714 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031714 031714 0   0   200142000000 0            001000000000 
IT1	031714 0      0   0   200142000000 0            001000000000 
AT1	031714 0      0   0   0            0            200142000000 
AT2	031714 0      0   0   000000000001 0            200142000000 
AT3	031714 0      0   0   000000000001 0            000000000001 
AT6	031714 000001 0   0   000000000001 0            000000000001 
FT0	031714 000001 0   0   001000000000 0            000000000001 
FT1A	031714 000001 0   0   001000000000 0            001000000000 
FT9	031715 000001 0   0   001000000000 0            001000000000 
ET0	031715 000001 0   0   001000000000 0            001000000000 
ST1	031715 000001 0   0   001000000000 0            001000000000 
ST2	031715 000001 0   0   001000000000 0            001000000000 
ST9	031715 000001 0   0   001000000000 0            001000000000 


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

*031715 CAME	3,034455
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031715 031715 0   0   312140034455 0            001000000000 
IT1	031715 0      0   0   312140034455 0            001000000000 
AT3	031715 0      0   0   000000034455 0            312140034455 
AT6	031715 034455 0   0   000000034455 0            312140034455 
FT0	031715 034455 0   0   001000000000 0            312140034455 
FT1A	031715 034455 0   0   001000000000 0            001000000000 
FT2	031715 034455 0   0   0            0            001000000000 
FT2RQ	031715 034455 0   0   001000000000 0            001000000000 
FT3	031715 034455 0   0   001000000000 0            001000000000 
FT9	031716 034455 0   0   001000000000 0            001000000000 
ET0	031717 034455 0   0   0            0            001000000000 
ST1A	031717 034455 0   0   0            0            001000000000 
ST9	031717 034455 0   0   0            0            001000000000 


*031717 JUMPA	0,031720
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031717 031717 0   0   324000031720 0            000000031720 
IT1	031717 0      0   0   324000031720 0            000000031720 
AT3	031717 0      0   0   000000031720 0            324000031720 
AT6	031717 031720 0   0   000000031720 0            324000031720 
FT1A	031717 031720 0   0   000000031720 0            000000031720 
FT2	031717 031720 0   0   0            0            000000031720 
FT2RQ	031717 031720 0   0   000000000017 0            000000031720 
FT3	031717 031720 0   0   000000000017 0            000000031720 
FT9	031720 031720 0   0   000000000017 0            000000031720 
ET0	031720 031720 0   0   000000000017 0            000000031720 
ST1A	031720 031720 0   0   000000000017 0            000000031720 
ST9	031720 031720 0   0   000000000017 0            000000031720 


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

*031720 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=001000 000000 
FINAL

C(E)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031720 031720 0   0   476000000003 0            000000000003 
IT1	031720 0      0   0   476000000003 0            000000000003 
AT3	031720 0      0   0   000000000003 0            476000000003 
AT6	031720 000003 0   0   000000000003 0            476000000003 
FT1A	031720 000003 0   0   000000000003 0            000000000003 
FT9	031721 000003 0   0   000000000003 0            000000000003 
ET0	031721 000003 0   0   777777777777 0            000000000003 
ST6	031721 000003 0   0   777777777777 0            000000000003 
ST6A	031721 000003 0   0   777777777777 0            000000000003 
ST9	031721 000003 0   0   777777777777 0            000000000003 


*031721 MOVSI	1,002000
INITIAL
C(AC)=001000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031721 031721 0   0   205040002000 0            000000002000 
IT1	031721 0      0   0   205040002000 0            000000002000 
AT3	031721 0      0   0   000000002000 0            205040002000 
AT6	031721 0      0   0   000000002000 0            205040002000 
FT1A	031721 0      0   0   000000002000 0            000000002000 
FT9	031722 0      0   0   000000002000 0            000000002000 
ET0	031722 0      0   0   002000000000 0            000000002000 
ST1	031722 0      0   0   002000000000 0            000000002000 
ST2	031722 0      0   0   002000000000 0            000000002000 
ST9	031722 0      0   0   002000000000 0            000000002000 


*031722 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031722 031722 0   0   201100000001 0            000000000001 
IT1	031722 0      0   0   201100000001 0            000000000001 
AT3	031722 0      0   0   000000000001 0            201100000001 
AT6	031722 000001 0   0   000000000001 0            201100000001 
FT1A	031722 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 177
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0372

FT9	031723 000001 0   0   000000000001 0            000000000001 
ET0	031723 000001 0   0   000000000001 0            000000000001 
ST1	031723 000001 0   0   000000000001 0            000000000001 
ST2	031723 000001 0   0   000000000001 0            000000000001 
ST9	031723 000001 0   0   000000000001 0            000000000001 


*031723 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031723 031723 0   0   200142000000 0            002000000000 
IT1	031723 0      0   0   200142000000 0            002000000000 
AT1	031723 0      0   0   0            0            200142000000 
AT2	031723 0      0   0   000000000001 0            200142000000 
AT3	031723 0      0   0   000000000001 0            000000000001 
AT6	031723 000001 0   0   000000000001 0            000000000001 
FT0	031723 000001 0   0   002000000000 0            000000000001 
FT1A	031723 000001 0   0   002000000000 0            002000000000 
FT9	031724 000001 0   0   002000000000 0            002000000000 
ET0	031724 000001 0   0   002000000000 0            002000000000 
ST1	031724 000001 0   0   002000000000 0            002000000000 
ST2	031724 000001 0   0   002000000000 0            002000000000 
ST9	031724 000001 0   0   002000000000 0            002000000000 


*031724 CAME	3,034456
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031724 031724 0   0   312140034456 0            002000000000 
IT1	031724 0      0   0   312140034456 0            002000000000 
AT3	031724 0      0   0   000000034456 0            312140034456 
AT6	031724 034456 0   0   000000034456 0            312140034456 
FT0	031724 034456 0   0   002000000000 0            312140034456 
FT1A	031724 034456 0   0   002000000000 0            002000000000 
FT2	031724 034456 0   0   0            0            002000000000 
FT2RQ	031724 034456 0   0   002000000000 0            002000000000 
FT3	031724 034456 0   0   002000000000 0            002000000000 
FT9	031725 034456 0   0   002000000000 0            002000000000 
ET0	031726 034456 0   0   0            0            002000000000 
ST1A	031726 034456 0   0   0            0            002000000000 
ST9	031726 034456 0   0   0            0            002000000000 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 178
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0373


*031726 JUMPA	0,031727
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031726 031726 0   0   324000031727 0            000000031727 
IT1	031726 0      0   0   324000031727 0            000000031727 
AT3	031726 0      0   0   000000031727 0            324000031727 
AT6	031726 031727 0   0   000000031727 0            324000031727 
FT1A	031726 031727 0   0   000000031727 0            000000031727 
FT2	031726 031727 0   0   0            0            000000031727 
FT2RQ	031726 031727 0   0   000000000017 0            000000031727 
FT3	031726 031727 0   0   000000000017 0            000000031727 
FT9	031727 031727 0   0   000000000017 0            000000031727 
ET0	031727 031727 0   0   000000000017 0            000000031727 
ST1A	031727 031727 0   0   000000000017 0            000000031727 
ST9	031727 031727 0   0   000000000017 0            000000031727 


*031727 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=002000 000000 
FINAL

C(E)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031727 031727 0   0   476000000003 0            000000000003 
IT1	031727 0      0   0   476000000003 0            000000000003 
AT3	031727 0      0   0   000000000003 0            476000000003 
AT6	031727 000003 0   0   000000000003 0            476000000003 
FT1A	031727 000003 0   0   000000000003 0            000000000003 
FT9	031730 000003 0   0   000000000003 0            000000000003 
ET0	031730 000003 0   0   777777777777 0            000000000003 
ST6	031730 000003 0   0   777777777777 0            000000000003 
ST6A	031730 000003 0   0   777777777777 0            000000000003 
ST9	031730 000003 0   0   777777777777 0            000000000003 


*031730 MOVSI	1,004000
INITIAL
C(AC)=002000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031730 031730 0   0   205040004000 0            000000004000 
IT1	031730 0      0   0   205040004000 0            000000004000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 179
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0374

AT3	031730 0      0   0   000000004000 0            205040004000 
AT6	031730 0      0   0   000000004000 0            205040004000 
FT1A	031730 0      0   0   000000004000 0            000000004000 
FT9	031731 0      0   0   000000004000 0            000000004000 
ET0	031731 0      0   0   004000000000 0            000000004000 
ST1	031731 0      0   0   004000000000 0            000000004000 
ST2	031731 0      0   0   004000000000 0            000000004000 
ST9	031731 0      0   0   004000000000 0            000000004000 


*031731 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031731 031731 0   0   201100000001 0            000000000001 
IT1	031731 0      0   0   201100000001 0            000000000001 
AT3	031731 0      0   0   000000000001 0            201100000001 
AT6	031731 000001 0   0   000000000001 0            201100000001 
FT1A	031731 000001 0   0   000000000001 0            000000000001 
FT9	031732 000001 0   0   000000000001 0            000000000001 
ET0	031732 000001 0   0   000000000001 0            000000000001 
ST1	031732 000001 0   0   000000000001 0            000000000001 
ST2	031732 000001 0   0   000000000001 0            000000000001 
ST9	031732 000001 0   0   000000000001 0            000000000001 


*031732 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031732 031732 0   0   200142000000 0            004000000000 
IT1	031732 0      0   0   200142000000 0            004000000000 
AT1	031732 0      0   0   0            0            200142000000 
AT2	031732 0      0   0   000000000001 0            200142000000 
AT3	031732 0      0   0   000000000001 0            000000000001 
AT6	031732 000001 0   0   000000000001 0            000000000001 
FT0	031732 000001 0   0   004000000000 0            000000000001 
FT1A	031732 000001 0   0   004000000000 0            004000000000 
FT9	031733 000001 0   0   004000000000 0            004000000000 
ET0	031733 000001 0   0   004000000000 0            004000000000 
ST1	031733 000001 0   0   004000000000 0            004000000000 
ST2	031733 000001 0   0   004000000000 0            004000000000 
ST9	031733 000001 0   0   004000000000 0            004000000000 


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

*031733 CAME	3,034457
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031733 031733 0   0   312140034457 0            004000000000 
IT1	031733 0      0   0   312140034457 0            004000000000 
AT3	031733 0      0   0   000000034457 0            312140034457 
AT6	031733 034457 0   0   000000034457 0            312140034457 
FT0	031733 034457 0   0   004000000000 0            312140034457 
FT1A	031733 034457 0   0   004000000000 0            004000000000 
FT2	031733 034457 0   0   0            0            004000000000 
FT2RQ	031733 034457 0   0   004000000000 0            004000000000 
FT3	031733 034457 0   0   004000000000 0            004000000000 
FT9	031734 034457 0   0   004000000000 0            004000000000 
ET0	031735 034457 0   0   0            0            004000000000 
ST1A	031735 034457 0   0   0            0            004000000000 
ST9	031735 034457 0   0   0            0            004000000000 


*031735 JUMPA	0,031736
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031735 031735 0   0   324000031736 0            000000031736 
IT1	031735 0      0   0   324000031736 0            000000031736 
AT3	031735 0      0   0   000000031736 0            324000031736 
AT6	031735 031736 0   0   000000031736 0            324000031736 
FT1A	031735 031736 0   0   000000031736 0            000000031736 
FT2	031735 031736 0   0   0            0            000000031736 
FT2RQ	031735 031736 0   0   000000000017 0            000000031736 
FT3	031735 031736 0   0   000000000017 0            000000031736 
FT9	031736 031736 0   0   000000000017 0            000000031736 
ET0	031736 031736 0   0   000000000017 0            000000031736 
ST1A	031736 031736 0   0   000000000017 0            000000031736 
ST9	031736 031736 0   0   000000000017 0            000000031736 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 181
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0376

*031736 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=004000 000000 
FINAL

C(E)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031736 031736 0   0   476000000003 0            000000000003 
IT1	031736 0      0   0   476000000003 0            000000000003 
AT3	031736 0      0   0   000000000003 0            476000000003 
AT6	031736 000003 0   0   000000000003 0            476000000003 
FT1A	031736 000003 0   0   000000000003 0            000000000003 
FT9	031737 000003 0   0   000000000003 0            000000000003 
ET0	031737 000003 0   0   777777777777 0            000000000003 
ST6	031737 000003 0   0   777777777777 0            000000000003 
ST6A	031737 000003 0   0   777777777777 0            000000000003 
ST9	031737 000003 0   0   777777777777 0            000000000003 


*031737 MOVSI	1,010000
INITIAL
C(AC)=004000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031737 031737 0   0   205040010000 0            000000010000 
IT1	031737 0      0   0   205040010000 0            000000010000 
AT3	031737 0      0   0   000000010000 0            205040010000 
AT6	031737 0      0   0   000000010000 0            205040010000 
FT1A	031737 0      0   0   000000010000 0            000000010000 
FT9	031740 0      0   0   000000010000 0            000000010000 
ET0	031740 0      0   0   010000000000 0            000000010000 
ST1	031740 0      0   0   010000000000 0            000000010000 
ST2	031740 0      0   0   010000000000 0            000000010000 
ST9	031740 0      0   0   010000000000 0            000000010000 


*031740 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031740 031740 0   0   201100000001 0            000000000001 
IT1	031740 0      0   0   201100000001 0            000000000001 
AT3	031740 0      0   0   000000000001 0            201100000001 
AT6	031740 000001 0   0   000000000001 0            201100000001 
FT1A	031740 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 182
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0377

FT9	031741 000001 0   0   000000000001 0            000000000001 
ET0	031741 000001 0   0   000000000001 0            000000000001 
ST1	031741 000001 0   0   000000000001 0            000000000001 
ST2	031741 000001 0   0   000000000001 0            000000000001 
ST9	031741 000001 0   0   000000000001 0            000000000001 


*031741 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031741 031741 0   0   200142000000 0            010000000000 
IT1	031741 0      0   0   200142000000 0            010000000000 
AT1	031741 0      0   0   0            0            200142000000 
AT2	031741 0      0   0   000000000001 0            200142000000 
AT3	031741 0      0   0   000000000001 0            000000000001 
AT6	031741 000001 0   0   000000000001 0            000000000001 
FT0	031741 000001 0   0   010000000000 0            000000000001 
FT1A	031741 000001 0   0   010000000000 0            010000000000 
FT9	031742 000001 0   0   010000000000 0            010000000000 
ET0	031742 000001 0   0   010000000000 0            010000000000 
ST1	031742 000001 0   0   010000000000 0            010000000000 
ST2	031742 000001 0   0   010000000000 0            010000000000 
ST9	031742 000001 0   0   010000000000 0            010000000000 


*031742 CAME	3,034460
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031742 031742 0   0   312140034460 0            010000000000 
IT1	031742 0      0   0   312140034460 0            010000000000 
AT3	031742 0      0   0   000000034460 0            312140034460 
AT6	031742 034460 0   0   000000034460 0            312140034460 
FT0	031742 034460 0   0   010000000000 0            312140034460 
FT1A	031742 034460 0   0   010000000000 0            010000000000 
FT2	031742 034460 0   0   0            0            010000000000 
FT2RQ	031742 034460 0   0   010000000000 0            010000000000 
FT3	031742 034460 0   0   010000000000 0            010000000000 
FT9	031743 034460 0   0   010000000000 0            010000000000 
ET0	031744 034460 0   0   0            0            010000000000 
ST1A	031744 034460 0   0   0            0            010000000000 
ST9	031744 034460 0   0   0            0            010000000000 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 183
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0378


*031744 JUMPA	0,031745
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031744 031744 0   0   324000031745 0            000000031745 
IT1	031744 0      0   0   324000031745 0            000000031745 
AT3	031744 0      0   0   000000031745 0            324000031745 
AT6	031744 031745 0   0   000000031745 0            324000031745 
FT1A	031744 031745 0   0   000000031745 0            000000031745 
FT2	031744 031745 0   0   0            0            000000031745 
FT2RQ	031744 031745 0   0   000000000017 0            000000031745 
FT3	031744 031745 0   0   000000000017 0            000000031745 
FT9	031745 031745 0   0   000000000017 0            000000031745 
ET0	031745 031745 0   0   000000000017 0            000000031745 
ST1A	031745 031745 0   0   000000000017 0            000000031745 
ST9	031745 031745 0   0   000000000017 0            000000031745 


*031745 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=010000 000000 
FINAL

C(E)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031745 031745 0   0   476000000003 0            000000000003 
IT1	031745 0      0   0   476000000003 0            000000000003 
AT3	031745 0      0   0   000000000003 0            476000000003 
AT6	031745 000003 0   0   000000000003 0            476000000003 
FT1A	031745 000003 0   0   000000000003 0            000000000003 
FT9	031746 000003 0   0   000000000003 0            000000000003 
ET0	031746 000003 0   0   777777777777 0            000000000003 
ST6	031746 000003 0   0   777777777777 0            000000000003 
ST6A	031746 000003 0   0   777777777777 0            000000000003 
ST9	031746 000003 0   0   777777777777 0            000000000003 


*031746 MOVSI	1,020000
INITIAL
C(AC)=010000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031746 031746 0   0   205040020000 0            000000020000 
IT1	031746 0      0   0   205040020000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 184
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0379

AT3	031746 0      0   0   000000020000 0            205040020000 
AT6	031746 0      0   0   000000020000 0            205040020000 
FT1A	031746 0      0   0   000000020000 0            000000020000 
FT9	031747 0      0   0   000000020000 0            000000020000 
ET0	031747 0      0   0   020000000000 0            000000020000 
ST1	031747 0      0   0   020000000000 0            000000020000 
ST2	031747 0      0   0   020000000000 0            000000020000 
ST9	031747 0      0   0   020000000000 0            000000020000 


*031747 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031747 031747 0   0   201100000001 0            000000000001 
IT1	031747 0      0   0   201100000001 0            000000000001 
AT3	031747 0      0   0   000000000001 0            201100000001 
AT6	031747 000001 0   0   000000000001 0            201100000001 
FT1A	031747 000001 0   0   000000000001 0            000000000001 
FT9	031750 000001 0   0   000000000001 0            000000000001 
ET0	031750 000001 0   0   000000000001 0            000000000001 
ST1	031750 000001 0   0   000000000001 0            000000000001 
ST2	031750 000001 0   0   000000000001 0            000000000001 
ST9	031750 000001 0   0   000000000001 0            000000000001 


*031750 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031750 031750 0   0   200142000000 0            020000000000 
IT1	031750 0      0   0   200142000000 0            020000000000 
AT1	031750 0      0   0   0            0            200142000000 
AT2	031750 0      0   0   000000000001 0            200142000000 
AT3	031750 0      0   0   000000000001 0            000000000001 
AT6	031750 000001 0   0   000000000001 0            000000000001 
FT0	031750 000001 0   0   020000000000 0            000000000001 
FT1A	031750 000001 0   0   020000000000 0            020000000000 
FT9	031751 000001 0   0   020000000000 0            020000000000 
ET0	031751 000001 0   0   020000000000 0            020000000000 
ST1	031751 000001 0   0   020000000000 0            020000000000 
ST2	031751 000001 0   0   020000000000 0            020000000000 
ST9	031751 000001 0   0   020000000000 0            020000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 185
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0380

*031751 CAME	3,034461
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031751 031751 0   0   312140034461 0            020000000000 
IT1	031751 0      0   0   312140034461 0            020000000000 
AT3	031751 0      0   0   000000034461 0            312140034461 
AT6	031751 034461 0   0   000000034461 0            312140034461 
FT0	031751 034461 0   0   020000000000 0            312140034461 
FT1A	031751 034461 0   0   020000000000 0            020000000000 
FT2	031751 034461 0   0   0            0            020000000000 
FT2RQ	031751 034461 0   0   020000000000 0            020000000000 
FT3	031751 034461 0   0   020000000000 0            020000000000 
FT9	031752 034461 0   0   020000000000 0            020000000000 
ET0	031753 034461 0   0   0            0            020000000000 
ST1A	031753 034461 0   0   0            0            020000000000 
ST9	031753 034461 0   0   0            0            020000000000 


*031753 JUMPA	0,031754
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031753 031753 0   0   324000031754 0            000000031754 
IT1	031753 0      0   0   324000031754 0            000000031754 
AT3	031753 0      0   0   000000031754 0            324000031754 
AT6	031753 031754 0   0   000000031754 0            324000031754 
FT1A	031753 031754 0   0   000000031754 0            000000031754 
FT2	031753 031754 0   0   0            0            000000031754 
FT2RQ	031753 031754 0   0   000000000017 0            000000031754 
FT3	031753 031754 0   0   000000000017 0            000000031754 
FT9	031754 031754 0   0   000000000017 0            000000031754 
ET0	031754 031754 0   0   000000000017 0            000000031754 
ST1A	031754 031754 0   0   000000000017 0            000000031754 
ST9	031754 031754 0   0   000000000017 0            000000031754 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 186
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0381

*031754 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=020000 000000 
FINAL

C(E)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031754 031754 0   0   476000000003 0            000000000003 
IT1	031754 0      0   0   476000000003 0            000000000003 
AT3	031754 0      0   0   000000000003 0            476000000003 
AT6	031754 000003 0   0   000000000003 0            476000000003 
FT1A	031754 000003 0   0   000000000003 0            000000000003 
FT9	031755 000003 0   0   000000000003 0            000000000003 
ET0	031755 000003 0   0   777777777777 0            000000000003 
ST6	031755 000003 0   0   777777777777 0            000000000003 
ST6A	031755 000003 0   0   777777777777 0            000000000003 
ST9	031755 000003 0   0   777777777777 0            000000000003 


*031755 MOVSI	1,040000
INITIAL
C(AC)=020000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031755 031755 0   0   205040040000 0            000000040000 
IT1	031755 0      0   0   205040040000 0            000000040000 
AT3	031755 0      0   0   000000040000 0            205040040000 
AT6	031755 0      0   0   000000040000 0            205040040000 
FT1A	031755 0      0   0   000000040000 0            000000040000 
FT9	031756 0      0   0   000000040000 0            000000040000 
ET0	031756 0      0   0   040000000000 0            000000040000 
ST1	031756 0      0   0   040000000000 0            000000040000 
ST2	031756 0      0   0   040000000000 0            000000040000 
ST9	031756 0      0   0   040000000000 0            000000040000 


*031756 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031756 031756 0   0   201100000001 0            000000000001 
IT1	031756 0      0   0   201100000001 0            000000000001 
AT3	031756 0      0   0   000000000001 0            201100000001 
AT6	031756 000001 0   0   000000000001 0            201100000001 
FT1A	031756 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 187
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0382

FT9	031757 000001 0   0   000000000001 0            000000000001 
ET0	031757 000001 0   0   000000000001 0            000000000001 
ST1	031757 000001 0   0   000000000001 0            000000000001 
ST2	031757 000001 0   0   000000000001 0            000000000001 
ST9	031757 000001 0   0   000000000001 0            000000000001 


*031757 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031757 031757 0   0   200142000000 0            040000000000 
IT1	031757 0      0   0   200142000000 0            040000000000 
AT1	031757 0      0   0   0            0            200142000000 
AT2	031757 0      0   0   000000000001 0            200142000000 
AT3	031757 0      0   0   000000000001 0            000000000001 
AT6	031757 000001 0   0   000000000001 0            000000000001 
FT0	031757 000001 0   0   040000000000 0            000000000001 
FT1A	031757 000001 0   0   040000000000 0            040000000000 
FT9	031760 000001 0   0   040000000000 0            040000000000 
ET0	031760 000001 0   0   040000000000 0            040000000000 
ST1	031760 000001 0   0   040000000000 0            040000000000 
ST2	031760 000001 0   0   040000000000 0            040000000000 
ST9	031760 000001 0   0   040000000000 0            040000000000 


*031760 CAME	3,034462
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031760 031760 0   0   312140034462 0            040000000000 
IT1	031760 0      0   0   312140034462 0            040000000000 
AT3	031760 0      0   0   000000034462 0            312140034462 
AT6	031760 034462 0   0   000000034462 0            312140034462 
FT0	031760 034462 0   0   040000000000 0            312140034462 
FT1A	031760 034462 0   0   040000000000 0            040000000000 
FT2	031760 034462 0   0   0            0            040000000000 
FT2RQ	031760 034462 0   0   040000000000 0            040000000000 
FT3	031760 034462 0   0   040000000000 0            040000000000 
FT9	031761 034462 0   0   040000000000 0            040000000000 
ET0	031762 034462 0   0   0            0            040000000000 
ST1A	031762 034462 0   0   0            0            040000000000 
ST9	031762 034462 0   0   0            0            040000000000 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 188
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0383


*031762 JUMPA	0,031763
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031762 031762 0   0   324000031763 0            000000031763 
IT1	031762 0      0   0   324000031763 0            000000031763 
AT3	031762 0      0   0   000000031763 0            324000031763 
AT6	031762 031763 0   0   000000031763 0            324000031763 
FT1A	031762 031763 0   0   000000031763 0            000000031763 
FT2	031762 031763 0   0   0            0            000000031763 
FT2RQ	031762 031763 0   0   000000000017 0            000000031763 
FT3	031762 031763 0   0   000000000017 0            000000031763 
FT9	031763 031763 0   0   000000000017 0            000000031763 
ET0	031763 031763 0   0   000000000017 0            000000031763 
ST1A	031763 031763 0   0   000000000017 0            000000031763 
ST9	031763 031763 0   0   000000000017 0            000000031763 


*031763 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=040000 000000 
FINAL

C(E)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031763 031763 0   0   476000000003 0            000000000003 
IT1	031763 0      0   0   476000000003 0            000000000003 
AT3	031763 0      0   0   000000000003 0            476000000003 
AT6	031763 000003 0   0   000000000003 0            476000000003 
FT1A	031763 000003 0   0   000000000003 0            000000000003 
FT9	031764 000003 0   0   000000000003 0            000000000003 
ET0	031764 000003 0   0   777777777777 0            000000000003 
ST6	031764 000003 0   0   777777777777 0            000000000003 
ST6A	031764 000003 0   0   777777777777 0            000000000003 
ST9	031764 000003 0   0   777777777777 0            000000000003 


*031764 MOVSI	1,100000
INITIAL
C(AC)=040000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031764 031764 0   0   205040100000 0            000000100000 
IT1	031764 0      0   0   205040100000 0            000000100000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 189
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0384

AT3	031764 0      0   0   000000100000 0            205040100000 
AT6	031764 0      0   0   000000100000 0            205040100000 
FT1A	031764 0      0   0   000000100000 0            000000100000 
FT9	031765 0      0   0   000000100000 0            000000100000 
ET0	031765 0      0   0   100000000000 0            000000100000 
ST1	031765 0      0   0   100000000000 0            000000100000 
ST2	031765 0      0   0   100000000000 0            000000100000 
ST9	031765 0      0   0   100000000000 0            000000100000 


*031765 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031765 031765 0   0   201100000001 0            000000000001 
IT1	031765 0      0   0   201100000001 0            000000000001 
AT3	031765 0      0   0   000000000001 0            201100000001 
AT6	031765 000001 0   0   000000000001 0            201100000001 
FT1A	031765 000001 0   0   000000000001 0            000000000001 
FT9	031766 000001 0   0   000000000001 0            000000000001 
ET0	031766 000001 0   0   000000000001 0            000000000001 
ST1	031766 000001 0   0   000000000001 0            000000000001 
ST2	031766 000001 0   0   000000000001 0            000000000001 
ST9	031766 000001 0   0   000000000001 0            000000000001 


*031766 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031766 031766 0   0   200142000000 0            100000000000 
IT1	031766 0      0   0   200142000000 0            100000000000 
AT1	031766 0      0   0   0            0            200142000000 
AT2	031766 0      0   0   000000000001 0            200142000000 
AT3	031766 0      0   0   000000000001 0            000000000001 
AT6	031766 000001 0   0   000000000001 0            000000000001 
FT0	031766 000001 0   0   100000000000 0            000000000001 
FT1A	031766 000001 0   0   100000000000 0            100000000000 
FT9	031767 000001 0   0   100000000000 0            100000000000 
ET0	031767 000001 0   0   100000000000 0            100000000000 
ST1	031767 000001 0   0   100000000000 0            100000000000 
ST2	031767 000001 0   0   100000000000 0            100000000000 
ST9	031767 000001 0   0   100000000000 0            100000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 190
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0385

*031767 CAME	3,034463
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031767 031767 0   0   312140034463 0            100000000000 
IT1	031767 0      0   0   312140034463 0            100000000000 
AT3	031767 0      0   0   000000034463 0            312140034463 
AT6	031767 034463 0   0   000000034463 0            312140034463 
FT0	031767 034463 0   0   100000000000 0            312140034463 
FT1A	031767 034463 0   0   100000000000 0            100000000000 
FT2	031767 034463 0   0   0            0            100000000000 
FT2RQ	031767 034463 0   0   100000000000 0            100000000000 
FT3	031767 034463 0   0   100000000000 0            100000000000 
FT9	031770 034463 0   0   100000000000 0            100000000000 
ET0	031771 034463 0   0   0            0            100000000000 
ST1A	031771 034463 0   0   0            0            100000000000 
ST9	031771 034463 0   0   0            0            100000000000 


*031771 JUMPA	0,031772
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031771 031771 0   0   324000031772 0            000000031772 
IT1	031771 0      0   0   324000031772 0            000000031772 
AT3	031771 0      0   0   000000031772 0            324000031772 
AT6	031771 031772 0   0   000000031772 0            324000031772 
FT1A	031771 031772 0   0   000000031772 0            000000031772 
FT2	031771 031772 0   0   0            0            000000031772 
FT2RQ	031771 031772 0   0   000000000017 0            000000031772 
FT3	031771 031772 0   0   000000000017 0            000000031772 
FT9	031772 031772 0   0   000000000017 0            000000031772 
ET0	031772 031772 0   0   000000000017 0            000000031772 
ST1A	031772 031772 0   0   000000000017 0            000000031772 
ST9	031772 031772 0   0   000000000017 0            000000031772 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 191
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0386

*031772 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=100000 000000 
FINAL

C(E)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031772 031772 0   0   476000000003 0            000000000003 
IT1	031772 0      0   0   476000000003 0            000000000003 
AT3	031772 0      0   0   000000000003 0            476000000003 
AT6	031772 000003 0   0   000000000003 0            476000000003 
FT1A	031772 000003 0   0   000000000003 0            000000000003 
FT9	031773 000003 0   0   000000000003 0            000000000003 
ET0	031773 000003 0   0   777777777777 0            000000000003 
ST6	031773 000003 0   0   777777777777 0            000000000003 
ST6A	031773 000003 0   0   777777777777 0            000000000003 
ST9	031773 000003 0   0   777777777777 0            000000000003 


*031773 MOVSI	1,200000
INITIAL
C(AC)=100000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031773 031773 0   0   205040200000 0            000000200000 
IT1	031773 0      0   0   205040200000 0            000000200000 
AT3	031773 0      0   0   000000200000 0            205040200000 
AT6	031773 0      0   0   000000200000 0            205040200000 
FT1A	031773 0      0   0   000000200000 0            000000200000 
FT9	031774 0      0   0   000000200000 0            000000200000 
ET0	031774 0      0   0   200000000000 0            000000200000 
ST1	031774 0      0   0   200000000000 0            000000200000 
ST2	031774 0      0   0   200000000000 0            000000200000 
ST9	031774 0      0   0   200000000000 0            000000200000 


*031774 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031774 031774 0   0   201100000001 0            000000000001 
IT1	031774 0      0   0   201100000001 0            000000000001 
AT3	031774 0      0   0   000000000001 0            201100000001 
AT6	031774 000001 0   0   000000000001 0            201100000001 
FT1A	031774 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 192
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0387

FT9	031775 000001 0   0   000000000001 0            000000000001 
ET0	031775 000001 0   0   000000000001 0            000000000001 
ST1	031775 000001 0   0   000000000001 0            000000000001 
ST2	031775 000001 0   0   000000000001 0            000000000001 
ST9	031775 000001 0   0   000000000001 0            000000000001 


*031775 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031775 031775 0   0   200142000000 0            200000000000 
IT1	031775 0      0   0   200142000000 0            200000000000 
AT1	031775 0      0   0   0            0            200142000000 
AT2	031775 0      0   0   000000000001 0            200142000000 
AT3	031775 0      0   0   000000000001 0            000000000001 
AT6	031775 000001 0   0   000000000001 0            000000000001 
FT0	031775 000001 0   0   200000000000 0            000000000001 
FT1A	031775 000001 0   0   200000000000 0            200000000000 
FT9	031776 000001 0   0   200000000000 0            200000000000 
ET0	031776 000001 0   0   200000000000 0            200000000000 
ST1	031776 000001 0   0   200000000000 0            200000000000 
ST2	031776 000001 0   0   200000000000 0            200000000000 
ST9	031776 000001 0   0   200000000000 0            200000000000 


*031776 CAME	3,034464
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031776 031776 0   0   312140034464 0            200000000000 
IT1	031776 0      0   0   312140034464 0            200000000000 
AT3	031776 0      0   0   000000034464 0            312140034464 
AT6	031776 034464 0   0   000000034464 0            312140034464 
FT0	031776 034464 0   0   200000000000 0            312140034464 
FT1A	031776 034464 0   0   200000000000 0            200000000000 
FT2	031776 034464 0   0   0            0            200000000000 
FT2RQ	031776 034464 0   0   200000000000 0            200000000000 
FT3	031776 034464 0   0   200000000000 0            200000000000 
FT9	031777 034464 0   0   200000000000 0            200000000000 
ET0	0      034464 0   0   0            0            200000000000 
ST1A	0      034464 0   0   0            0            200000000000 
ST9	0      034464 0   0   0            0            200000000000 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 193
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0388


*032000 JUMPA	0,032001
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000032001 0            000000032001 
IT1	0      0      0   0   324000032001 0            000000032001 
AT3	0      0      0   0   000000032001 0            324000032001 
AT6	0      032001 0   0   000000032001 0            324000032001 
FT1A	0      032001 0   0   000000032001 0            000000032001 
FT2	0      032001 0   0   0            0            000000032001 
FT2RQ	0      032001 0   0   000000000017 0            000000032001 
FT3	0      032001 0   0   000000000017 0            000000032001 
FT9	032001 032001 0   0   000000000017 0            000000032001 
ET0	032001 032001 0   0   000000000017 0            000000032001 
ST1A	032001 032001 0   0   000000000017 0            000000032001 
ST9	032001 032001 0   0   000000000017 0            000000032001 


*032001 SETOM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=200000 000000 
FINAL

C(E)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032001 032001 0   0   476000000003 0            000000000003 
IT1	032001 0      0   0   476000000003 0            000000000003 
AT3	032001 0      0   0   000000000003 0            476000000003 
AT6	032001 000003 0   0   000000000003 0            476000000003 
FT1A	032001 000003 0   0   000000000003 0            000000000003 
FT9	032002 000003 0   0   000000000003 0            000000000003 
ET0	032002 000003 0   0   777777777777 0            000000000003 
ST6	032002 000003 0   0   777777777777 0            000000000003 
ST6A	032002 000003 0   0   777777777777 0            000000000003 
ST9	032002 000003 0   0   777777777777 0            000000000003 


*032002 MOVSI	1,400000
INITIAL
C(AC)=200000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032002 032002 0   0   205040400000 0            000000400000 
IT1	032002 0      0   0   205040400000 0            000000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 194
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0389

AT3	032002 0      0   0   000000400000 0            205040400000 
AT6	032002 0      0   0   000000400000 0            205040400000 
FT1A	032002 0      0   0   000000400000 0            000000400000 
FT9	032003 0      0   0   000000400000 0            000000400000 
ET0	032003 0      0   0   400000000000 0            000000400000 
ST1	032003 0      0   0   400000000000 0            000000400000 
ST2	032003 0      0   0   400000000000 0            000000400000 
ST9	032003 0      0   0   400000000000 0            000000400000 


*032003 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032003 032003 0   0   201100000001 0            000000000001 
IT1	032003 0      0   0   201100000001 0            000000000001 
AT3	032003 0      0   0   000000000001 0            201100000001 
AT6	032003 000001 0   0   000000000001 0            201100000001 
FT1A	032003 000001 0   0   000000000001 0            000000000001 
FT9	032004 000001 0   0   000000000001 0            000000000001 
ET0	032004 000001 0   0   000000000001 0            000000000001 
ST1	032004 000001 0   0   000000000001 0            000000000001 
ST2	032004 000001 0   0   000000000001 0            000000000001 
ST9	032004 000001 0   0   000000000001 0            000000000001 


*032004 MOVE 	3,000000(2)
INITIAL
C(AC)=777777 777777 
C(E)=000000 000017 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032004 032004 0   0   200142000000 0            400000000000 
IT1	032004 0      0   0   200142000000 0            400000000000 
AT1	032004 0      0   0   0            0            200142000000 
AT2	032004 0      0   0   000000000001 0            200142000000 
AT3	032004 0      0   0   000000000001 0            000000000001 
AT6	032004 000001 0   0   000000000001 0            000000000001 
FT0	032004 000001 0   0   400000000000 0            000000000001 
FT1A	032004 000001 0   0   400000000000 0            400000000000 
FT9	032005 000001 0   0   400000000000 0            400000000000 
ET0	032005 000001 0   0   400000000000 0            400000000000 
ST1	032005 000001 0   0   400000000000 0            400000000000 
ST2	032005 000001 0   0   400000000000 0            400000000000 
ST9	032005 000001 0   0   400000000000 0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 195
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0390

*032005 CAME	3,034465
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032005 032005 0   0   312140034465 0            400000000000 
IT1	032005 0      0   0   312140034465 0            400000000000 
AT3	032005 0      0   0   000000034465 0            312140034465 
AT6	032005 034465 0   0   000000034465 0            312140034465 
FT0	032005 034465 0   0   400000000000 0            312140034465 
FT1A	032005 034465 0   0   400000000000 0            400000000000 
FT2	032005 034465 0   0   0            0            400000000000 
FT2RQ	032005 034465 0   0   400000000000 0            400000000000 
FT3	032005 034465 0   0   400000000000 0            400000000000 
FT9	032006 034465 0   0   400000000000 0            400000000000 
ET0	032007 034465 0   0   0            0            400000000000 
ST1A	032007 034465 0   0   0            0            400000000000 
ST9	032007 034465 0   0   0            0            400000000000 


*032007 JUMPA	0,032010
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032007 032007 0   0   324000032010 0            000000032010 
IT1	032007 0      0   0   324000032010 0            000000032010 
AT3	032007 0      0   0   000000032010 0            324000032010 
AT6	032007 032010 0   0   000000032010 0            324000032010 
FT1A	032007 032010 0   0   000000032010 0            000000032010 
FT2	032007 032010 0   0   0            0            000000032010 
FT2RQ	032007 032010 0   0   000000000017 0            000000032010 
FT3	032007 032010 0   0   000000000017 0            000000032010 
FT9	032010 032010 0   0   000000000017 0            000000032010 
ET0	032010 032010 0   0   000000000017 0            000000032010 
ST1A	032010 032010 0   0   000000000017 0            000000032010 
ST9	032010 032010 0   0   000000000017 0            000000032010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 196
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0391

*032010 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=400000 000000 
FINAL

C(E)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032010 032010 0   0   402000000003 0            000000000003 
IT1	032010 0      0   0   402000000003 0            000000000003 
AT3	032010 0      0   0   000000000003 0            402000000003 
AT6	032010 000003 0   0   000000000003 0            402000000003 
FT1A	032010 000003 0   0   000000000003 0            000000000003 
FT9	032011 000003 0   0   000000000003 0            000000000003 
ET0	032011 000003 0   0   0            0            000000000003 
ST6	032011 000003 0   0   0            0            000000000003 
ST6A	032011 000003 0   0   0            0            000000000003 
ST9	032011 000003 0   0   0            0            000000000003 


*032011 SETOM	0,000001
INITIAL
C(AC)=000000 000017 
C(E)=400000 000000 
FINAL

C(E)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032011 032011 0   0   476000000001 0            000000000001 
IT1	032011 0      0   0   476000000001 0            000000000001 
AT3	032011 0      0   0   000000000001 0            476000000001 
AT6	032011 000001 0   0   000000000001 0            476000000001 
FT1A	032011 000001 0   0   000000000001 0            000000000001 
FT9	032012 000001 0   0   000000000001 0            000000000001 
ET0	032012 000001 0   0   777777777777 0            000000000001 
ST6	032012 000001 0   0   777777777777 0            000000000001 
ST6A	032012 000001 0   0   777777777777 0            000000000001 
ST9	032012 000001 0   0   777777777777 0            000000000001 


*032012 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032012 032012 0   0   201100000001 0            000000000001 
IT1	032012 0      0   0   201100000001 0            000000000001 
AT3	032012 0      0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 197
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0392

AT6	032012 000001 0   0   000000000001 0            201100000001 
FT1A	032012 000001 0   0   000000000001 0            000000000001 
FT9	032013 000001 0   0   000000000001 0            000000000001 
ET0	032013 000001 0   0   000000000001 0            000000000001 
ST1	032013 000001 0   0   000000000001 0            000000000001 
ST2	032013 000001 0   0   000000000001 0            000000000001 
ST9	032013 000001 0   0   000000000001 0            000000000001 


*032013 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032013 032013 0   0   200142000000 0            777777777777 
IT1	032013 0      0   0   200142000000 0            777777777777 
AT1	032013 0      0   0   0            0            200142000000 
AT2	032013 0      0   0   000000000001 0            200142000000 
AT3	032013 0      0   0   000000000001 0            000000000001 
AT6	032013 000001 0   0   000000000001 0            000000000001 
FT0	032013 000001 0   0   777777777777 0            000000000001 
FT1A	032013 000001 0   0   777777777777 0            777777777777 
FT9	032014 000001 0   0   777777777777 0            777777777777 
ET0	032014 000001 0   0   777777777777 0            777777777777 
ST1	032014 000001 0   0   777777777777 0            777777777777 
ST2	032014 000001 0   0   777777777777 0            777777777777 
ST9	032014 000001 0   0   777777777777 0            777777777777 


*032014 CAME	3,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032014 032014 0   0   312140034466 0            777777777777 
IT1	032014 0      0   0   312140034466 0            777777777777 
AT3	032014 0      0   0   000000034466 0            312140034466 
AT6	032014 034466 0   0   000000034466 0            312140034466 
FT0	032014 034466 0   0   777777777777 0            312140034466 
FT1A	032014 034466 0   0   777777777777 0            777777777777 
FT2	032014 034466 0   0   0            0            777777777777 
FT2RQ	032014 034466 0   0   777777777777 0            777777777777 
FT3	032014 034466 0   0   777777777777 0            777777777777 
FT9	032015 034466 0   0   777777777777 0            777777777777 
ET0	032016 034466 0   0   0            0            777777777777 
ST1A	032016 034466 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 198
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0393

ST9	032016 034466 0   0   0            0            777777777777 


*032016 JUMPA	0,032017
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032016 032016 0   0   324000032017 0            000000032017 
IT1	032016 0      0   0   324000032017 0            000000032017 
AT3	032016 0      0   0   000000032017 0            324000032017 
AT6	032016 032017 0   0   000000032017 0            324000032017 
FT1A	032016 032017 0   0   000000032017 0            000000032017 
FT2	032016 032017 0   0   0            0            000000032017 
FT2RQ	032016 032017 0   0   000000000017 0            000000032017 
FT3	032016 032017 0   0   000000000017 0            000000032017 
FT9	032017 032017 0   0   000000000017 0            000000032017 
ET0	032017 032017 0   0   000000000017 0            000000032017 
ST1A	032017 032017 0   0   000000000017 0            000000032017 
ST9	032017 032017 0   0   000000000017 0            000000032017 


*032017 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777777 
FINAL

C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032017 032017 0   0   402000000003 0            000000000003 
IT1	032017 0      0   0   402000000003 0            000000000003 
AT3	032017 0      0   0   000000000003 0            402000000003 
AT6	032017 000003 0   0   000000000003 0            402000000003 
FT1A	032017 000003 0   0   000000000003 0            000000000003 
FT9	032020 000003 0   0   000000000003 0            000000000003 
ET0	032020 000003 0   0   0            0            000000000003 
ST6	032020 000003 0   0   0            0            000000000003 
ST6A	032020 000003 0   0   0            0            000000000003 
ST9	032020 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 199
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0394

*032020 HRROI	1,777776
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032020 032020 0   0   561040777776 0            000000777776 
IT1	032020 0      0   0   561040777776 0            000000777776 
AT3	032020 0      0   0   000000777776 0            561040777776 
AT6	032020 777776 0   0   000000777776 0            561040777776 
FT1A	032020 777776 0   0   000000777776 0            000000777776 
FT9	032021 777776 0   0   000000777776 0            000000777776 
ET0	032021 777776 0   0   777777777776 0            000000777776 
ST1	032021 777776 0   0   777777777776 0            000000777776 
ST2	032021 777776 0   0   777777777776 0            000000777776 
ST9	032021 777776 0   0   777777777776 0            000000777776 


*032021 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032021 032021 0   0   201100000001 0            000000000001 
IT1	032021 0      0   0   201100000001 0            000000000001 
AT3	032021 0      0   0   000000000001 0            201100000001 
AT6	032021 000001 0   0   000000000001 0            201100000001 
FT1A	032021 000001 0   0   000000000001 0            000000000001 
FT9	032022 000001 0   0   000000000001 0            000000000001 
ET0	032022 000001 0   0   000000000001 0            000000000001 
ST1	032022 000001 0   0   000000000001 0            000000000001 
ST2	032022 000001 0   0   000000000001 0            000000000001 
ST9	032022 000001 0   0   000000000001 0            000000000001 


*032022 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032022 032022 0   0   200142000000 0            777777777776 
IT1	032022 0      0   0   200142000000 0            777777777776 
AT1	032022 0      0   0   0            0            200142000000 
AT2	032022 0      0   0   000000000001 0            200142000000 
AT3	032022 0      0   0   000000000001 0            000000000001 
AT6	032022 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 200
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0395

FT0	032022 000001 0   0   777777777776 0            000000000001 
FT1A	032022 000001 0   0   777777777776 0            777777777776 
FT9	032023 000001 0   0   777777777776 0            777777777776 
ET0	032023 000001 0   0   777777777776 0            777777777776 
ST1	032023 000001 0   0   777777777776 0            777777777776 
ST2	032023 000001 0   0   777777777776 0            777777777776 
ST9	032023 000001 0   0   777777777776 0            777777777776 


*032023 CAME	3,034467
INITIAL
C(AC)=777777 777776 
C(E)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032023 032023 0   0   312140034467 0            777777777776 
IT1	032023 0      0   0   312140034467 0            777777777776 
AT3	032023 0      0   0   000000034467 0            312140034467 
AT6	032023 034467 0   0   000000034467 0            312140034467 
FT0	032023 034467 0   0   777777777776 0            312140034467 
FT1A	032023 034467 0   0   777777777776 0            777777777776 
FT2	032023 034467 0   0   0            0            777777777776 
FT2RQ	032023 034467 0   0   777777777776 0            777777777776 
FT3	032023 034467 0   0   777777777776 0            777777777776 
FT9	032024 034467 0   0   777777777776 0            777777777776 
ET0	032025 034467 0   0   0            0            777777777776 
ST1A	032025 034467 0   0   0            0            777777777776 
ST9	032025 034467 0   0   0            0            777777777776 


*032025 JUMPA	0,032026
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032025 032025 0   0   324000032026 0            000000032026 
IT1	032025 0      0   0   324000032026 0            000000032026 
AT3	032025 0      0   0   000000032026 0            324000032026 
AT6	032025 032026 0   0   000000032026 0            324000032026 
FT1A	032025 032026 0   0   000000032026 0            000000032026 
FT2	032025 032026 0   0   0            0            000000032026 
FT2RQ	032025 032026 0   0   000000000017 0            000000032026 
FT3	032025 032026 0   0   000000000017 0            000000032026 
FT9	032026 032026 0   0   000000000017 0            000000032026 
ET0	032026 032026 0   0   000000000017 0            000000032026 
ST1A	032026 032026 0   0   000000000017 0            000000032026 
ST9	032026 032026 0   0   000000000017 0            000000032026 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 201
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0396


*032026 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777776 
FINAL

C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032026 032026 0   0   402000000003 0            000000000003 
IT1	032026 0      0   0   402000000003 0            000000000003 
AT3	032026 0      0   0   000000000003 0            402000000003 
AT6	032026 000003 0   0   000000000003 0            402000000003 
FT1A	032026 000003 0   0   000000000003 0            000000000003 
FT9	032027 000003 0   0   000000000003 0            000000000003 
ET0	032027 000003 0   0   0            0            000000000003 
ST6	032027 000003 0   0   0            0            000000000003 
ST6A	032027 000003 0   0   0            0            000000000003 
ST9	032027 000003 0   0   0            0            000000000003 


*032027 HRROI	1,777775
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=777777 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032027 032027 0   0   561040777775 0            000000777775 
IT1	032027 0      0   0   561040777775 0            000000777775 
AT3	032027 0      0   0   000000777775 0            561040777775 
AT6	032027 777775 0   0   000000777775 0            561040777775 
FT1A	032027 777775 0   0   000000777775 0            000000777775 
FT9	032030 777775 0   0   000000777775 0            000000777775 
ET0	032030 777775 0   0   777777777775 0            000000777775 
ST1	032030 777775 0   0   777777777775 0            000000777775 
ST2	032030 777775 0   0   777777777775 0            000000777775 
ST9	032030 777775 0   0   777777777775 0            000000777775 


*032030 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032030 032030 0   0   201100000001 0            000000000001 
IT1	032030 0      0   0   201100000001 0            000000000001 
AT3	032030 0      0   0   000000000001 0            201100000001 
AT6	032030 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 202
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0397

FT1A	032030 000001 0   0   000000000001 0            000000000001 
FT9	032031 000001 0   0   000000000001 0            000000000001 
ET0	032031 000001 0   0   000000000001 0            000000000001 
ST1	032031 000001 0   0   000000000001 0            000000000001 
ST2	032031 000001 0   0   000000000001 0            000000000001 
ST9	032031 000001 0   0   000000000001 0            000000000001 


*032031 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032031 032031 0   0   200142000000 0            777777777775 
IT1	032031 0      0   0   200142000000 0            777777777775 
AT1	032031 0      0   0   0            0            200142000000 
AT2	032031 0      0   0   000000000001 0            200142000000 
AT3	032031 0      0   0   000000000001 0            000000000001 
AT6	032031 000001 0   0   000000000001 0            000000000001 
FT0	032031 000001 0   0   777777777775 0            000000000001 
FT1A	032031 000001 0   0   777777777775 0            777777777775 
FT9	032032 000001 0   0   777777777775 0            777777777775 
ET0	032032 000001 0   0   777777777775 0            777777777775 
ST1	032032 000001 0   0   777777777775 0            777777777775 
ST2	032032 000001 0   0   777777777775 0            777777777775 
ST9	032032 000001 0   0   777777777775 0            777777777775 


*032032 CAME	3,034470
INITIAL
C(AC)=777777 777775 
C(E)=777777 777775 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032032 032032 0   0   312140034470 0            777777777775 
IT1	032032 0      0   0   312140034470 0            777777777775 
AT3	032032 0      0   0   000000034470 0            312140034470 
AT6	032032 034470 0   0   000000034470 0            312140034470 
FT0	032032 034470 0   0   777777777775 0            312140034470 
FT1A	032032 034470 0   0   777777777775 0            777777777775 
FT2	032032 034470 0   0   0            0            777777777775 
FT2RQ	032032 034470 0   0   777777777775 0            777777777775 
FT3	032032 034470 0   0   777777777775 0            777777777775 
FT9	032033 034470 0   0   777777777775 0            777777777775 
ET0	032034 034470 0   0   0            0            777777777775 
ST1A	032034 034470 0   0   0            0            777777777775 
ST9	032034 034470 0   0   0            0            777777777775 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 203
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0398



*032034 JUMPA	0,032035
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032034 032034 0   0   324000032035 0            000000032035 
IT1	032034 0      0   0   324000032035 0            000000032035 
AT3	032034 0      0   0   000000032035 0            324000032035 
AT6	032034 032035 0   0   000000032035 0            324000032035 
FT1A	032034 032035 0   0   000000032035 0            000000032035 
FT2	032034 032035 0   0   0            0            000000032035 
FT2RQ	032034 032035 0   0   000000000017 0            000000032035 
FT3	032034 032035 0   0   000000000017 0            000000032035 
FT9	032035 032035 0   0   000000000017 0            000000032035 
ET0	032035 032035 0   0   000000000017 0            000000032035 
ST1A	032035 032035 0   0   000000000017 0            000000032035 
ST9	032035 032035 0   0   000000000017 0            000000032035 


*032035 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777775 
FINAL

C(E)=777777 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032035 032035 0   0   402000000003 0            000000000003 
IT1	032035 0      0   0   402000000003 0            000000000003 
AT3	032035 0      0   0   000000000003 0            402000000003 
AT6	032035 000003 0   0   000000000003 0            402000000003 
FT1A	032035 000003 0   0   000000000003 0            000000000003 
FT9	032036 000003 0   0   000000000003 0            000000000003 
ET0	032036 000003 0   0   0            0            000000000003 
ST6	032036 000003 0   0   0            0            000000000003 
ST6A	032036 000003 0   0   0            0            000000000003 
ST9	032036 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 204
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0399

*032036 HRROI	1,777773
INITIAL
C(AC)=777777 777775 
FINAL
C(AC)=777777 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032036 032036 0   0   561040777773 0            000000777773 
IT1	032036 0      0   0   561040777773 0            000000777773 
AT3	032036 0      0   0   000000777773 0            561040777773 
AT6	032036 777773 0   0   000000777773 0            561040777773 
FT1A	032036 777773 0   0   000000777773 0            000000777773 
FT9	032037 777773 0   0   000000777773 0            000000777773 
ET0	032037 777773 0   0   777777777773 0            000000777773 
ST1	032037 777773 0   0   777777777773 0            000000777773 
ST2	032037 777773 0   0   777777777773 0            000000777773 
ST9	032037 777773 0   0   777777777773 0            000000777773 


*032037 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032037 032037 0   0   201100000001 0            000000000001 
IT1	032037 0      0   0   201100000001 0            000000000001 
AT3	032037 0      0   0   000000000001 0            201100000001 
AT6	032037 000001 0   0   000000000001 0            201100000001 
FT1A	032037 000001 0   0   000000000001 0            000000000001 
FT9	032040 000001 0   0   000000000001 0            000000000001 
ET0	032040 000001 0   0   000000000001 0            000000000001 
ST1	032040 000001 0   0   000000000001 0            000000000001 
ST2	032040 000001 0   0   000000000001 0            000000000001 
ST9	032040 000001 0   0   000000000001 0            000000000001 


*032040 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032040 032040 0   0   200142000000 0            777777777773 
IT1	032040 0      0   0   200142000000 0            777777777773 
AT1	032040 0      0   0   0            0            200142000000 
AT2	032040 0      0   0   000000000001 0            200142000000 
AT3	032040 0      0   0   000000000001 0            000000000001 
AT6	032040 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 205
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0400

FT0	032040 000001 0   0   777777777773 0            000000000001 
FT1A	032040 000001 0   0   777777777773 0            777777777773 
FT9	032041 000001 0   0   777777777773 0            777777777773 
ET0	032041 000001 0   0   777777777773 0            777777777773 
ST1	032041 000001 0   0   777777777773 0            777777777773 
ST2	032041 000001 0   0   777777777773 0            777777777773 
ST9	032041 000001 0   0   777777777773 0            777777777773 


*032041 CAME	3,034471
INITIAL
C(AC)=777777 777773 
C(E)=777777 777773 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032041 032041 0   0   312140034471 0            777777777773 
IT1	032041 0      0   0   312140034471 0            777777777773 
AT3	032041 0      0   0   000000034471 0            312140034471 
AT6	032041 034471 0   0   000000034471 0            312140034471 
FT0	032041 034471 0   0   777777777773 0            312140034471 
FT1A	032041 034471 0   0   777777777773 0            777777777773 
FT2	032041 034471 0   0   0            0            777777777773 
FT2RQ	032041 034471 0   0   777777777773 0            777777777773 
FT3	032041 034471 0   0   777777777773 0            777777777773 
FT9	032042 034471 0   0   777777777773 0            777777777773 
ET0	032043 034471 0   0   0            0            777777777773 
ST1A	032043 034471 0   0   0            0            777777777773 
ST9	032043 034471 0   0   0            0            777777777773 


*032043 JUMPA	0,032044
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032043 032043 0   0   324000032044 0            000000032044 
IT1	032043 0      0   0   324000032044 0            000000032044 
AT3	032043 0      0   0   000000032044 0            324000032044 
AT6	032043 032044 0   0   000000032044 0            324000032044 
FT1A	032043 032044 0   0   000000032044 0            000000032044 
FT2	032043 032044 0   0   0            0            000000032044 
FT2RQ	032043 032044 0   0   000000000017 0            000000032044 
FT3	032043 032044 0   0   000000000017 0            000000032044 
FT9	032044 032044 0   0   000000000017 0            000000032044 
ET0	032044 032044 0   0   000000000017 0            000000032044 
ST1A	032044 032044 0   0   000000000017 0            000000032044 
ST9	032044 032044 0   0   000000000017 0            000000032044 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 206
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0401


*032044 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777773 
FINAL

C(E)=777777 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032044 032044 0   0   402000000003 0            000000000003 
IT1	032044 0      0   0   402000000003 0            000000000003 
AT3	032044 0      0   0   000000000003 0            402000000003 
AT6	032044 000003 0   0   000000000003 0            402000000003 
FT1A	032044 000003 0   0   000000000003 0            000000000003 
FT9	032045 000003 0   0   000000000003 0            000000000003 
ET0	032045 000003 0   0   0            0            000000000003 
ST6	032045 000003 0   0   0            0            000000000003 
ST6A	032045 000003 0   0   0            0            000000000003 
ST9	032045 000003 0   0   0            0            000000000003 


*032045 HRROI	1,777767
INITIAL
C(AC)=777777 777773 
FINAL
C(AC)=777777 777767 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032045 032045 0   0   561040777767 0            000000777767 
IT1	032045 0      0   0   561040777767 0            000000777767 
AT3	032045 0      0   0   000000777767 0            561040777767 
AT6	032045 777767 0   0   000000777767 0            561040777767 
FT1A	032045 777767 0   0   000000777767 0            000000777767 
FT9	032046 777767 0   0   000000777767 0            000000777767 
ET0	032046 777767 0   0   777777777767 0            000000777767 
ST1	032046 777767 0   0   777777777767 0            000000777767 
ST2	032046 777767 0   0   777777777767 0            000000777767 
ST9	032046 777767 0   0   777777777767 0            000000777767 


*032046 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032046 032046 0   0   201100000001 0            000000000001 
IT1	032046 0      0   0   201100000001 0            000000000001 
AT3	032046 0      0   0   000000000001 0            201100000001 
AT6	032046 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 207
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0402

FT1A	032046 000001 0   0   000000000001 0            000000000001 
FT9	032047 000001 0   0   000000000001 0            000000000001 
ET0	032047 000001 0   0   000000000001 0            000000000001 
ST1	032047 000001 0   0   000000000001 0            000000000001 
ST2	032047 000001 0   0   000000000001 0            000000000001 
ST9	032047 000001 0   0   000000000001 0            000000000001 


*032047 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777767 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032047 032047 0   0   200142000000 0            777777777767 
IT1	032047 0      0   0   200142000000 0            777777777767 
AT1	032047 0      0   0   0            0            200142000000 
AT2	032047 0      0   0   000000000001 0            200142000000 
AT3	032047 0      0   0   000000000001 0            000000000001 
AT6	032047 000001 0   0   000000000001 0            000000000001 
FT0	032047 000001 0   0   777777777767 0            000000000001 
FT1A	032047 000001 0   0   777777777767 0            777777777767 
FT9	032050 000001 0   0   777777777767 0            777777777767 
ET0	032050 000001 0   0   777777777767 0            777777777767 
ST1	032050 000001 0   0   777777777767 0            777777777767 
ST2	032050 000001 0   0   777777777767 0            777777777767 
ST9	032050 000001 0   0   777777777767 0            777777777767 


*032050 CAME	3,034472
INITIAL
C(AC)=777777 777767 
C(E)=777777 777767 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032050 032050 0   0   312140034472 0            777777777767 
IT1	032050 0      0   0   312140034472 0            777777777767 
AT3	032050 0      0   0   000000034472 0            312140034472 
AT6	032050 034472 0   0   000000034472 0            312140034472 
FT0	032050 034472 0   0   777777777767 0            312140034472 
FT1A	032050 034472 0   0   777777777767 0            777777777767 
FT2	032050 034472 0   0   0            0            777777777767 
FT2RQ	032050 034472 0   0   777777777767 0            777777777767 
FT3	032050 034472 0   0   777777777767 0            777777777767 
FT9	032051 034472 0   0   777777777767 0            777777777767 
ET0	032052 034472 0   0   0            0            777777777767 
ST1A	032052 034472 0   0   0            0            777777777767 
ST9	032052 034472 0   0   0            0            777777777767 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 208
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0403



*032052 JUMPA	0,032053
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032052 032052 0   0   324000032053 0            000000032053 
IT1	032052 0      0   0   324000032053 0            000000032053 
AT3	032052 0      0   0   000000032053 0            324000032053 
AT6	032052 032053 0   0   000000032053 0            324000032053 
FT1A	032052 032053 0   0   000000032053 0            000000032053 
FT2	032052 032053 0   0   0            0            000000032053 
FT2RQ	032052 032053 0   0   000000000017 0            000000032053 
FT3	032052 032053 0   0   000000000017 0            000000032053 
FT9	032053 032053 0   0   000000000017 0            000000032053 
ET0	032053 032053 0   0   000000000017 0            000000032053 
ST1A	032053 032053 0   0   000000000017 0            000000032053 
ST9	032053 032053 0   0   000000000017 0            000000032053 


*032053 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777767 
FINAL

C(E)=777777 777767 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032053 032053 0   0   402000000003 0            000000000003 
IT1	032053 0      0   0   402000000003 0            000000000003 
AT3	032053 0      0   0   000000000003 0            402000000003 
AT6	032053 000003 0   0   000000000003 0            402000000003 
FT1A	032053 000003 0   0   000000000003 0            000000000003 
FT9	032054 000003 0   0   000000000003 0            000000000003 
ET0	032054 000003 0   0   0            0            000000000003 
ST6	032054 000003 0   0   0            0            000000000003 
ST6A	032054 000003 0   0   0            0            000000000003 
ST9	032054 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 209
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0404

*032054 HRROI	1,777757
INITIAL
C(AC)=777777 777767 
FINAL
C(AC)=777777 777757 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032054 032054 0   0   561040777757 0            000000777757 
IT1	032054 0      0   0   561040777757 0            000000777757 
AT3	032054 0      0   0   000000777757 0            561040777757 
AT6	032054 777757 0   0   000000777757 0            561040777757 
FT1A	032054 777757 0   0   000000777757 0            000000777757 
FT9	032055 777757 0   0   000000777757 0            000000777757 
ET0	032055 777757 0   0   777777777757 0            000000777757 
ST1	032055 777757 0   0   777777777757 0            000000777757 
ST2	032055 777757 0   0   777777777757 0            000000777757 
ST9	032055 777757 0   0   777777777757 0            000000777757 


*032055 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032055 032055 0   0   201100000001 0            000000000001 
IT1	032055 0      0   0   201100000001 0            000000000001 
AT3	032055 0      0   0   000000000001 0            201100000001 
AT6	032055 000001 0   0   000000000001 0            201100000001 
FT1A	032055 000001 0   0   000000000001 0            000000000001 
FT9	032056 000001 0   0   000000000001 0            000000000001 
ET0	032056 000001 0   0   000000000001 0            000000000001 
ST1	032056 000001 0   0   000000000001 0            000000000001 
ST2	032056 000001 0   0   000000000001 0            000000000001 
ST9	032056 000001 0   0   000000000001 0            000000000001 


*032056 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777757 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032056 032056 0   0   200142000000 0            777777777757 
IT1	032056 0      0   0   200142000000 0            777777777757 
AT1	032056 0      0   0   0            0            200142000000 
AT2	032056 0      0   0   000000000001 0            200142000000 
AT3	032056 0      0   0   000000000001 0            000000000001 
AT6	032056 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 210
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0405

FT0	032056 000001 0   0   777777777757 0            000000000001 
FT1A	032056 000001 0   0   777777777757 0            777777777757 
FT9	032057 000001 0   0   777777777757 0            777777777757 
ET0	032057 000001 0   0   777777777757 0            777777777757 
ST1	032057 000001 0   0   777777777757 0            777777777757 
ST2	032057 000001 0   0   777777777757 0            777777777757 
ST9	032057 000001 0   0   777777777757 0            777777777757 


*032057 CAME	3,034473
INITIAL
C(AC)=777777 777757 
C(E)=777777 777757 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032057 032057 0   0   312140034473 0            777777777757 
IT1	032057 0      0   0   312140034473 0            777777777757 
AT3	032057 0      0   0   000000034473 0            312140034473 
AT6	032057 034473 0   0   000000034473 0            312140034473 
FT0	032057 034473 0   0   777777777757 0            312140034473 
FT1A	032057 034473 0   0   777777777757 0            777777777757 
FT2	032057 034473 0   0   0            0            777777777757 
FT2RQ	032057 034473 0   0   777777777757 0            777777777757 
FT3	032057 034473 0   0   777777777757 0            777777777757 
FT9	032060 034473 0   0   777777777757 0            777777777757 
ET0	032061 034473 0   0   0            0            777777777757 
ST1A	032061 034473 0   0   0            0            777777777757 
ST9	032061 034473 0   0   0            0            777777777757 


*032061 JUMPA	0,032062
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032061 032061 0   0   324000032062 0            000000032062 
IT1	032061 0      0   0   324000032062 0            000000032062 
AT3	032061 0      0   0   000000032062 0            324000032062 
AT6	032061 032062 0   0   000000032062 0            324000032062 
FT1A	032061 032062 0   0   000000032062 0            000000032062 
FT2	032061 032062 0   0   0            0            000000032062 
FT2RQ	032061 032062 0   0   000000000017 0            000000032062 
FT3	032061 032062 0   0   000000000017 0            000000032062 
FT9	032062 032062 0   0   000000000017 0            000000032062 
ET0	032062 032062 0   0   000000000017 0            000000032062 
ST1A	032062 032062 0   0   000000000017 0            000000032062 
ST9	032062 032062 0   0   000000000017 0            000000032062 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 211
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0406


*032062 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777757 
FINAL

C(E)=777777 777757 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032062 032062 0   0   402000000003 0            000000000003 
IT1	032062 0      0   0   402000000003 0            000000000003 
AT3	032062 0      0   0   000000000003 0            402000000003 
AT6	032062 000003 0   0   000000000003 0            402000000003 
FT1A	032062 000003 0   0   000000000003 0            000000000003 
FT9	032063 000003 0   0   000000000003 0            000000000003 
ET0	032063 000003 0   0   0            0            000000000003 
ST6	032063 000003 0   0   0            0            000000000003 
ST6A	032063 000003 0   0   0            0            000000000003 
ST9	032063 000003 0   0   0            0            000000000003 


*032063 HRROI	1,777737
INITIAL
C(AC)=777777 777757 
FINAL
C(AC)=777777 777737 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032063 032063 0   0   561040777737 0            000000777737 
IT1	032063 0      0   0   561040777737 0            000000777737 
AT3	032063 0      0   0   000000777737 0            561040777737 
AT6	032063 777737 0   0   000000777737 0            561040777737 
FT1A	032063 777737 0   0   000000777737 0            000000777737 
FT9	032064 777737 0   0   000000777737 0            000000777737 
ET0	032064 777737 0   0   777777777737 0            000000777737 
ST1	032064 777737 0   0   777777777737 0            000000777737 
ST2	032064 777737 0   0   777777777737 0            000000777737 
ST9	032064 777737 0   0   777777777737 0            000000777737 


*032064 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032064 032064 0   0   201100000001 0            000000000001 
IT1	032064 0      0   0   201100000001 0            000000000001 
AT3	032064 0      0   0   000000000001 0            201100000001 
AT6	032064 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 212
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0407

FT1A	032064 000001 0   0   000000000001 0            000000000001 
FT9	032065 000001 0   0   000000000001 0            000000000001 
ET0	032065 000001 0   0   000000000001 0            000000000001 
ST1	032065 000001 0   0   000000000001 0            000000000001 
ST2	032065 000001 0   0   000000000001 0            000000000001 
ST9	032065 000001 0   0   000000000001 0            000000000001 


*032065 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777737 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032065 032065 0   0   200142000000 0            777777777737 
IT1	032065 0      0   0   200142000000 0            777777777737 
AT1	032065 0      0   0   0            0            200142000000 
AT2	032065 0      0   0   000000000001 0            200142000000 
AT3	032065 0      0   0   000000000001 0            000000000001 
AT6	032065 000001 0   0   000000000001 0            000000000001 
FT0	032065 000001 0   0   777777777737 0            000000000001 
FT1A	032065 000001 0   0   777777777737 0            777777777737 
FT9	032066 000001 0   0   777777777737 0            777777777737 
ET0	032066 000001 0   0   777777777737 0            777777777737 
ST1	032066 000001 0   0   777777777737 0            777777777737 
ST2	032066 000001 0   0   777777777737 0            777777777737 
ST9	032066 000001 0   0   777777777737 0            777777777737 


*032066 CAME	3,034474
INITIAL
C(AC)=777777 777737 
C(E)=777777 777737 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032066 032066 0   0   312140034474 0            777777777737 
IT1	032066 0      0   0   312140034474 0            777777777737 
AT3	032066 0      0   0   000000034474 0            312140034474 
AT6	032066 034474 0   0   000000034474 0            312140034474 
FT0	032066 034474 0   0   777777777737 0            312140034474 
FT1A	032066 034474 0   0   777777777737 0            777777777737 
FT2	032066 034474 0   0   0            0            777777777737 
FT2RQ	032066 034474 0   0   777777777737 0            777777777737 
FT3	032066 034474 0   0   777777777737 0            777777777737 
FT9	032067 034474 0   0   777777777737 0            777777777737 
ET0	032070 034474 0   0   0            0            777777777737 
ST1A	032070 034474 0   0   0            0            777777777737 
ST9	032070 034474 0   0   0            0            777777777737 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 213
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0408



*032070 JUMPA	0,032071
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032070 032070 0   0   324000032071 0            000000032071 
IT1	032070 0      0   0   324000032071 0            000000032071 
AT3	032070 0      0   0   000000032071 0            324000032071 
AT6	032070 032071 0   0   000000032071 0            324000032071 
FT1A	032070 032071 0   0   000000032071 0            000000032071 
FT2	032070 032071 0   0   0            0            000000032071 
FT2RQ	032070 032071 0   0   000000000017 0            000000032071 
FT3	032070 032071 0   0   000000000017 0            000000032071 
FT9	032071 032071 0   0   000000000017 0            000000032071 
ET0	032071 032071 0   0   000000000017 0            000000032071 
ST1A	032071 032071 0   0   000000000017 0            000000032071 
ST9	032071 032071 0   0   000000000017 0            000000032071 


*032071 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777737 
FINAL

C(E)=777777 777737 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032071 032071 0   0   402000000003 0            000000000003 
IT1	032071 0      0   0   402000000003 0            000000000003 
AT3	032071 0      0   0   000000000003 0            402000000003 
AT6	032071 000003 0   0   000000000003 0            402000000003 
FT1A	032071 000003 0   0   000000000003 0            000000000003 
FT9	032072 000003 0   0   000000000003 0            000000000003 
ET0	032072 000003 0   0   0            0            000000000003 
ST6	032072 000003 0   0   0            0            000000000003 
ST6A	032072 000003 0   0   0            0            000000000003 
ST9	032072 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 214
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0409

*032072 HRROI	1,777677
INITIAL
C(AC)=777777 777737 
FINAL
C(AC)=777777 777677 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032072 032072 0   0   561040777677 0            000000777677 
IT1	032072 0      0   0   561040777677 0            000000777677 
AT3	032072 0      0   0   000000777677 0            561040777677 
AT6	032072 777677 0   0   000000777677 0            561040777677 
FT1A	032072 777677 0   0   000000777677 0            000000777677 
FT9	032073 777677 0   0   000000777677 0            000000777677 
ET0	032073 777677 0   0   777777777677 0            000000777677 
ST1	032073 777677 0   0   777777777677 0            000000777677 
ST2	032073 777677 0   0   777777777677 0            000000777677 
ST9	032073 777677 0   0   777777777677 0            000000777677 


*032073 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032073 032073 0   0   201100000001 0            000000000001 
IT1	032073 0      0   0   201100000001 0            000000000001 
AT3	032073 0      0   0   000000000001 0            201100000001 
AT6	032073 000001 0   0   000000000001 0            201100000001 
FT1A	032073 000001 0   0   000000000001 0            000000000001 
FT9	032074 000001 0   0   000000000001 0            000000000001 
ET0	032074 000001 0   0   000000000001 0            000000000001 
ST1	032074 000001 0   0   000000000001 0            000000000001 
ST2	032074 000001 0   0   000000000001 0            000000000001 
ST9	032074 000001 0   0   000000000001 0            000000000001 


*032074 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777677 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032074 032074 0   0   200142000000 0            777777777677 
IT1	032074 0      0   0   200142000000 0            777777777677 
AT1	032074 0      0   0   0            0            200142000000 
AT2	032074 0      0   0   000000000001 0            200142000000 
AT3	032074 0      0   0   000000000001 0            000000000001 
AT6	032074 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 215
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0410

FT0	032074 000001 0   0   777777777677 0            000000000001 
FT1A	032074 000001 0   0   777777777677 0            777777777677 
FT9	032075 000001 0   0   777777777677 0            777777777677 
ET0	032075 000001 0   0   777777777677 0            777777777677 
ST1	032075 000001 0   0   777777777677 0            777777777677 
ST2	032075 000001 0   0   777777777677 0            777777777677 
ST9	032075 000001 0   0   777777777677 0            777777777677 


*032075 CAME	3,034475
INITIAL
C(AC)=777777 777677 
C(E)=777777 777677 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032075 032075 0   0   312140034475 0            777777777677 
IT1	032075 0      0   0   312140034475 0            777777777677 
AT3	032075 0      0   0   000000034475 0            312140034475 
AT6	032075 034475 0   0   000000034475 0            312140034475 
FT0	032075 034475 0   0   777777777677 0            312140034475 
FT1A	032075 034475 0   0   777777777677 0            777777777677 
FT2	032075 034475 0   0   0            0            777777777677 
FT2RQ	032075 034475 0   0   777777777677 0            777777777677 
FT3	032075 034475 0   0   777777777677 0            777777777677 
FT9	032076 034475 0   0   777777777677 0            777777777677 
ET0	032077 034475 0   0   0            0            777777777677 
ST1A	032077 034475 0   0   0            0            777777777677 
ST9	032077 034475 0   0   0            0            777777777677 


*032077 JUMPA	0,032100
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032077 032077 0   0   324000032100 0            000000032100 
IT1	032077 0      0   0   324000032100 0            000000032100 
AT3	032077 0      0   0   000000032100 0            324000032100 
AT6	032077 0      0   0   000000032100 0            324000032100 
FT1A	032077 0      0   0   000000032100 0            000000032100 
FT2	032077 0      0   0   0            0            000000032100 
FT2RQ	032077 0      0   0   000000000017 0            000000032100 
FT3	032077 0      0   0   000000000017 0            000000032100 
FT9	0      0      0   0   000000000017 0            000000032100 
ET0	0      0      0   0   000000000017 0            000000032100 
ST1A	0      0      0   0   000000000017 0            000000032100 
ST9	0      0      0   0   000000000017 0            000000032100 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 216
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0411


*032100 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777677 
FINAL

C(E)=777777 777677 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   402000000003 0            000000000003 
IT1	0      0      0   0   402000000003 0            000000000003 
AT3	0      0      0   0   000000000003 0            402000000003 
AT6	0      000003 0   0   000000000003 0            402000000003 
FT1A	0      000003 0   0   000000000003 0            000000000003 
FT9	032101 000003 0   0   000000000003 0            000000000003 
ET0	032101 000003 0   0   0            0            000000000003 
ST6	032101 000003 0   0   0            0            000000000003 
ST6A	032101 000003 0   0   0            0            000000000003 
ST9	032101 000003 0   0   0            0            000000000003 


*032101 HRROI	1,777577
INITIAL
C(AC)=777777 777677 
FINAL
C(AC)=777777 777577 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032101 032101 0   0   561040777577 0            000000777577 
IT1	032101 0      0   0   561040777577 0            000000777577 
AT3	032101 0      0   0   000000777577 0            561040777577 
AT6	032101 777577 0   0   000000777577 0            561040777577 
FT1A	032101 777577 0   0   000000777577 0            000000777577 
FT9	032102 777577 0   0   000000777577 0            000000777577 
ET0	032102 777577 0   0   777777777577 0            000000777577 
ST1	032102 777577 0   0   777777777577 0            000000777577 
ST2	032102 777577 0   0   777777777577 0            000000777577 
ST9	032102 777577 0   0   777777777577 0            000000777577 


*032102 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032102 032102 0   0   201100000001 0            000000000001 
IT1	032102 0      0   0   201100000001 0            000000000001 
AT3	032102 0      0   0   000000000001 0            201100000001 
AT6	032102 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 217
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0412

FT1A	032102 000001 0   0   000000000001 0            000000000001 
FT9	032103 000001 0   0   000000000001 0            000000000001 
ET0	032103 000001 0   0   000000000001 0            000000000001 
ST1	032103 000001 0   0   000000000001 0            000000000001 
ST2	032103 000001 0   0   000000000001 0            000000000001 
ST9	032103 000001 0   0   000000000001 0            000000000001 


*032103 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777577 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032103 032103 0   0   200142000000 0            777777777577 
IT1	032103 0      0   0   200142000000 0            777777777577 
AT1	032103 0      0   0   0            0            200142000000 
AT2	032103 0      0   0   000000000001 0            200142000000 
AT3	032103 0      0   0   000000000001 0            000000000001 
AT6	032103 000001 0   0   000000000001 0            000000000001 
FT0	032103 000001 0   0   777777777577 0            000000000001 
FT1A	032103 000001 0   0   777777777577 0            777777777577 
FT9	032104 000001 0   0   777777777577 0            777777777577 
ET0	032104 000001 0   0   777777777577 0            777777777577 
ST1	032104 000001 0   0   777777777577 0            777777777577 
ST2	032104 000001 0   0   777777777577 0            777777777577 
ST9	032104 000001 0   0   777777777577 0            777777777577 


*032104 CAME	3,034476
INITIAL
C(AC)=777777 777577 
C(E)=777777 777577 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032104 032104 0   0   312140034476 0            777777777577 
IT1	032104 0      0   0   312140034476 0            777777777577 
AT3	032104 0      0   0   000000034476 0            312140034476 
AT6	032104 034476 0   0   000000034476 0            312140034476 
FT0	032104 034476 0   0   777777777577 0            312140034476 
FT1A	032104 034476 0   0   777777777577 0            777777777577 
FT2	032104 034476 0   0   0            0            777777777577 
FT2RQ	032104 034476 0   0   777777777577 0            777777777577 
FT3	032104 034476 0   0   777777777577 0            777777777577 
FT9	032105 034476 0   0   777777777577 0            777777777577 
ET0	032106 034476 0   0   0            0            777777777577 
ST1A	032106 034476 0   0   0            0            777777777577 
ST9	032106 034476 0   0   0            0            777777777577 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 218
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0413



*032106 JUMPA	0,032107
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032106 032106 0   0   324000032107 0            000000032107 
IT1	032106 0      0   0   324000032107 0            000000032107 
AT3	032106 0      0   0   000000032107 0            324000032107 
AT6	032106 032107 0   0   000000032107 0            324000032107 
FT1A	032106 032107 0   0   000000032107 0            000000032107 
FT2	032106 032107 0   0   0            0            000000032107 
FT2RQ	032106 032107 0   0   000000000017 0            000000032107 
FT3	032106 032107 0   0   000000000017 0            000000032107 
FT9	032107 032107 0   0   000000000017 0            000000032107 
ET0	032107 032107 0   0   000000000017 0            000000032107 
ST1A	032107 032107 0   0   000000000017 0            000000032107 
ST9	032107 032107 0   0   000000000017 0            000000032107 


*032107 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777577 
FINAL

C(E)=777777 777577 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032107 032107 0   0   402000000003 0            000000000003 
IT1	032107 0      0   0   402000000003 0            000000000003 
AT3	032107 0      0   0   000000000003 0            402000000003 
AT6	032107 000003 0   0   000000000003 0            402000000003 
FT1A	032107 000003 0   0   000000000003 0            000000000003 
FT9	032110 000003 0   0   000000000003 0            000000000003 
ET0	032110 000003 0   0   0            0            000000000003 
ST6	032110 000003 0   0   0            0            000000000003 
ST6A	032110 000003 0   0   0            0            000000000003 
ST9	032110 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 219
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0414

*032110 HRROI	1,777377
INITIAL
C(AC)=777777 777577 
FINAL
C(AC)=777777 777377 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032110 032110 0   0   561040777377 0            000000777377 
IT1	032110 0      0   0   561040777377 0            000000777377 
AT3	032110 0      0   0   000000777377 0            561040777377 
AT6	032110 777377 0   0   000000777377 0            561040777377 
FT1A	032110 777377 0   0   000000777377 0            000000777377 
FT9	032111 777377 0   0   000000777377 0            000000777377 
ET0	032111 777377 0   0   777777777377 0            000000777377 
ST1	032111 777377 0   0   777777777377 0            000000777377 
ST2	032111 777377 0   0   777777777377 0            000000777377 
ST9	032111 777377 0   0   777777777377 0            000000777377 


*032111 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032111 032111 0   0   201100000001 0            000000000001 
IT1	032111 0      0   0   201100000001 0            000000000001 
AT3	032111 0      0   0   000000000001 0            201100000001 
AT6	032111 000001 0   0   000000000001 0            201100000001 
FT1A	032111 000001 0   0   000000000001 0            000000000001 
FT9	032112 000001 0   0   000000000001 0            000000000001 
ET0	032112 000001 0   0   000000000001 0            000000000001 
ST1	032112 000001 0   0   000000000001 0            000000000001 
ST2	032112 000001 0   0   000000000001 0            000000000001 
ST9	032112 000001 0   0   000000000001 0            000000000001 


*032112 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 777377 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032112 032112 0   0   200142000000 0            777777777377 
IT1	032112 0      0   0   200142000000 0            777777777377 
AT1	032112 0      0   0   0            0            200142000000 
AT2	032112 0      0   0   000000000001 0            200142000000 
AT3	032112 0      0   0   000000000001 0            000000000001 
AT6	032112 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 220
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0415

FT0	032112 000001 0   0   777777777377 0            000000000001 
FT1A	032112 000001 0   0   777777777377 0            777777777377 
FT9	032113 000001 0   0   777777777377 0            777777777377 
ET0	032113 000001 0   0   777777777377 0            777777777377 
ST1	032113 000001 0   0   777777777377 0            777777777377 
ST2	032113 000001 0   0   777777777377 0            777777777377 
ST9	032113 000001 0   0   777777777377 0            777777777377 


*032113 CAME	3,034477
INITIAL
C(AC)=777777 777377 
C(E)=777777 777377 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032113 032113 0   0   312140034477 0            777777777377 
IT1	032113 0      0   0   312140034477 0            777777777377 
AT3	032113 0      0   0   000000034477 0            312140034477 
AT6	032113 034477 0   0   000000034477 0            312140034477 
FT0	032113 034477 0   0   777777777377 0            312140034477 
FT1A	032113 034477 0   0   777777777377 0            777777777377 
FT2	032113 034477 0   0   0            0            777777777377 
FT2RQ	032113 034477 0   0   777777777377 0            777777777377 
FT3	032113 034477 0   0   777777777377 0            777777777377 
FT9	032114 034477 0   0   777777777377 0            777777777377 
ET0	032115 034477 0   0   0            0            777777777377 
ST1A	032115 034477 0   0   0            0            777777777377 
ST9	032115 034477 0   0   0            0            777777777377 


*032115 JUMPA	0,032116
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032115 032115 0   0   324000032116 0            000000032116 
IT1	032115 0      0   0   324000032116 0            000000032116 
AT3	032115 0      0   0   000000032116 0            324000032116 
AT6	032115 032116 0   0   000000032116 0            324000032116 
FT1A	032115 032116 0   0   000000032116 0            000000032116 
FT2	032115 032116 0   0   0            0            000000032116 
FT2RQ	032115 032116 0   0   000000000017 0            000000032116 
FT3	032115 032116 0   0   000000000017 0            000000032116 
FT9	032116 032116 0   0   000000000017 0            000000032116 
ET0	032116 032116 0   0   000000000017 0            000000032116 
ST1A	032116 032116 0   0   000000000017 0            000000032116 
ST9	032116 032116 0   0   000000000017 0            000000032116 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 221
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0416


*032116 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 777377 
FINAL

C(E)=777777 777377 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032116 032116 0   0   402000000003 0            000000000003 
IT1	032116 0      0   0   402000000003 0            000000000003 
AT3	032116 0      0   0   000000000003 0            402000000003 
AT6	032116 000003 0   0   000000000003 0            402000000003 
FT1A	032116 000003 0   0   000000000003 0            000000000003 
FT9	032117 000003 0   0   000000000003 0            000000000003 
ET0	032117 000003 0   0   0            0            000000000003 
ST6	032117 000003 0   0   0            0            000000000003 
ST6A	032117 000003 0   0   0            0            000000000003 
ST9	032117 000003 0   0   0            0            000000000003 


*032117 HRROI	1,776777
INITIAL
C(AC)=777777 777377 
FINAL
C(AC)=777777 776777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032117 032117 0   0   561040776777 0            000000776777 
IT1	032117 0      0   0   561040776777 0            000000776777 
AT3	032117 0      0   0   000000776777 0            561040776777 
AT6	032117 776777 0   0   000000776777 0            561040776777 
FT1A	032117 776777 0   0   000000776777 0            000000776777 
FT9	032120 776777 0   0   000000776777 0            000000776777 
ET0	032120 776777 0   0   777777776777 0            000000776777 
ST1	032120 776777 0   0   777777776777 0            000000776777 
ST2	032120 776777 0   0   777777776777 0            000000776777 
ST9	032120 776777 0   0   777777776777 0            000000776777 


*032120 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032120 032120 0   0   201100000001 0            000000000001 
IT1	032120 0      0   0   201100000001 0            000000000001 
AT3	032120 0      0   0   000000000001 0            201100000001 
AT6	032120 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 222
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0417

FT1A	032120 000001 0   0   000000000001 0            000000000001 
FT9	032121 000001 0   0   000000000001 0            000000000001 
ET0	032121 000001 0   0   000000000001 0            000000000001 
ST1	032121 000001 0   0   000000000001 0            000000000001 
ST2	032121 000001 0   0   000000000001 0            000000000001 
ST9	032121 000001 0   0   000000000001 0            000000000001 


*032121 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 776777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032121 032121 0   0   200142000000 0            777777776777 
IT1	032121 0      0   0   200142000000 0            777777776777 
AT1	032121 0      0   0   0            0            200142000000 
AT2	032121 0      0   0   000000000001 0            200142000000 
AT3	032121 0      0   0   000000000001 0            000000000001 
AT6	032121 000001 0   0   000000000001 0            000000000001 
FT0	032121 000001 0   0   777777776777 0            000000000001 
FT1A	032121 000001 0   0   777777776777 0            777777776777 
FT9	032122 000001 0   0   777777776777 0            777777776777 
ET0	032122 000001 0   0   777777776777 0            777777776777 
ST1	032122 000001 0   0   777777776777 0            777777776777 
ST2	032122 000001 0   0   777777776777 0            777777776777 
ST9	032122 000001 0   0   777777776777 0            777777776777 


*032122 CAME	3,034500
INITIAL
C(AC)=777777 776777 
C(E)=777777 776777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032122 032122 0   0   312140034500 0            777777776777 
IT1	032122 0      0   0   312140034500 0            777777776777 
AT3	032122 0      0   0   000000034500 0            312140034500 
AT6	032122 0      0   0   000000034500 0            312140034500 
FT0	032122 0      0   0   777777776777 0            312140034500 
FT1A	032122 0      0   0   777777776777 0            777777776777 
FT2	032122 0      0   0   0            0            777777776777 
FT2RQ	032122 0      0   0   777777776777 0            777777776777 
FT3	032122 0      0   0   777777776777 0            777777776777 
FT9	032123 0      0   0   777777776777 0            777777776777 
ET0	032124 0      0   0   0            0            777777776777 
ST1A	032124 0      0   0   0            0            777777776777 
ST9	032124 0      0   0   0            0            777777776777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 223
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0418



*032124 JUMPA	0,032125
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032124 032124 0   0   324000032125 0            000000032125 
IT1	032124 0      0   0   324000032125 0            000000032125 
AT3	032124 0      0   0   000000032125 0            324000032125 
AT6	032124 032125 0   0   000000032125 0            324000032125 
FT1A	032124 032125 0   0   000000032125 0            000000032125 
FT2	032124 032125 0   0   0            0            000000032125 
FT2RQ	032124 032125 0   0   000000000017 0            000000032125 
FT3	032124 032125 0   0   000000000017 0            000000032125 
FT9	032125 032125 0   0   000000000017 0            000000032125 
ET0	032125 032125 0   0   000000000017 0            000000032125 
ST1A	032125 032125 0   0   000000000017 0            000000032125 
ST9	032125 032125 0   0   000000000017 0            000000032125 


*032125 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 776777 
FINAL

C(E)=777777 776777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032125 032125 0   0   402000000003 0            000000000003 
IT1	032125 0      0   0   402000000003 0            000000000003 
AT3	032125 0      0   0   000000000003 0            402000000003 
AT6	032125 000003 0   0   000000000003 0            402000000003 
FT1A	032125 000003 0   0   000000000003 0            000000000003 
FT9	032126 000003 0   0   000000000003 0            000000000003 
ET0	032126 000003 0   0   0            0            000000000003 
ST6	032126 000003 0   0   0            0            000000000003 
ST6A	032126 000003 0   0   0            0            000000000003 
ST9	032126 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 224
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0419

*032126 HRROI	1,775777
INITIAL
C(AC)=777777 776777 
FINAL
C(AC)=777777 775777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032126 032126 0   0   561040775777 0            000000775777 
IT1	032126 0      0   0   561040775777 0            000000775777 
AT3	032126 0      0   0   000000775777 0            561040775777 
AT6	032126 775777 0   0   000000775777 0            561040775777 
FT1A	032126 775777 0   0   000000775777 0            000000775777 
FT9	032127 775777 0   0   000000775777 0            000000775777 
ET0	032127 775777 0   0   777777775777 0            000000775777 
ST1	032127 775777 0   0   777777775777 0            000000775777 
ST2	032127 775777 0   0   777777775777 0            000000775777 
ST9	032127 775777 0   0   777777775777 0            000000775777 


*032127 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032127 032127 0   0   201100000001 0            000000000001 
IT1	032127 0      0   0   201100000001 0            000000000001 
AT3	032127 0      0   0   000000000001 0            201100000001 
AT6	032127 000001 0   0   000000000001 0            201100000001 
FT1A	032127 000001 0   0   000000000001 0            000000000001 
FT9	032130 000001 0   0   000000000001 0            000000000001 
ET0	032130 000001 0   0   000000000001 0            000000000001 
ST1	032130 000001 0   0   000000000001 0            000000000001 
ST2	032130 000001 0   0   000000000001 0            000000000001 
ST9	032130 000001 0   0   000000000001 0            000000000001 


*032130 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 775777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032130 032130 0   0   200142000000 0            777777775777 
IT1	032130 0      0   0   200142000000 0            777777775777 
AT1	032130 0      0   0   0            0            200142000000 
AT2	032130 0      0   0   000000000001 0            200142000000 
AT3	032130 0      0   0   000000000001 0            000000000001 
AT6	032130 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 225
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0420

FT0	032130 000001 0   0   777777775777 0            000000000001 
FT1A	032130 000001 0   0   777777775777 0            777777775777 
FT9	032131 000001 0   0   777777775777 0            777777775777 
ET0	032131 000001 0   0   777777775777 0            777777775777 
ST1	032131 000001 0   0   777777775777 0            777777775777 
ST2	032131 000001 0   0   777777775777 0            777777775777 
ST9	032131 000001 0   0   777777775777 0            777777775777 


*032131 CAME	3,034501
INITIAL
C(AC)=777777 775777 
C(E)=777777 775777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032131 032131 0   0   312140034501 0            777777775777 
IT1	032131 0      0   0   312140034501 0            777777775777 
AT3	032131 0      0   0   000000034501 0            312140034501 
AT6	032131 034501 0   0   000000034501 0            312140034501 
FT0	032131 034501 0   0   777777775777 0            312140034501 
FT1A	032131 034501 0   0   777777775777 0            777777775777 
FT2	032131 034501 0   0   0            0            777777775777 
FT2RQ	032131 034501 0   0   777777775777 0            777777775777 
FT3	032131 034501 0   0   777777775777 0            777777775777 
FT9	032132 034501 0   0   777777775777 0            777777775777 
ET0	032133 034501 0   0   0            0            777777775777 
ST1A	032133 034501 0   0   0            0            777777775777 
ST9	032133 034501 0   0   0            0            777777775777 


*032133 JUMPA	0,032134
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032133 032133 0   0   324000032134 0            000000032134 
IT1	032133 0      0   0   324000032134 0            000000032134 
AT3	032133 0      0   0   000000032134 0            324000032134 
AT6	032133 032134 0   0   000000032134 0            324000032134 
FT1A	032133 032134 0   0   000000032134 0            000000032134 
FT2	032133 032134 0   0   0            0            000000032134 
FT2RQ	032133 032134 0   0   000000000017 0            000000032134 
FT3	032133 032134 0   0   000000000017 0            000000032134 
FT9	032134 032134 0   0   000000000017 0            000000032134 
ET0	032134 032134 0   0   000000000017 0            000000032134 
ST1A	032134 032134 0   0   000000000017 0            000000032134 
ST9	032134 032134 0   0   000000000017 0            000000032134 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 226
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0421


*032134 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 775777 
FINAL

C(E)=777777 775777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032134 032134 0   0   402000000003 0            000000000003 
IT1	032134 0      0   0   402000000003 0            000000000003 
AT3	032134 0      0   0   000000000003 0            402000000003 
AT6	032134 000003 0   0   000000000003 0            402000000003 
FT1A	032134 000003 0   0   000000000003 0            000000000003 
FT9	032135 000003 0   0   000000000003 0            000000000003 
ET0	032135 000003 0   0   0            0            000000000003 
ST6	032135 000003 0   0   0            0            000000000003 
ST6A	032135 000003 0   0   0            0            000000000003 
ST9	032135 000003 0   0   0            0            000000000003 


*032135 HRROI	1,773777
INITIAL
C(AC)=777777 775777 
FINAL
C(AC)=777777 773777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032135 032135 0   0   561040773777 0            000000773777 
IT1	032135 0      0   0   561040773777 0            000000773777 
AT3	032135 0      0   0   000000773777 0            561040773777 
AT6	032135 773777 0   0   000000773777 0            561040773777 
FT1A	032135 773777 0   0   000000773777 0            000000773777 
FT9	032136 773777 0   0   000000773777 0            000000773777 
ET0	032136 773777 0   0   777777773777 0            000000773777 
ST1	032136 773777 0   0   777777773777 0            000000773777 
ST2	032136 773777 0   0   777777773777 0            000000773777 
ST9	032136 773777 0   0   777777773777 0            000000773777 


*032136 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032136 032136 0   0   201100000001 0            000000000001 
IT1	032136 0      0   0   201100000001 0            000000000001 
AT3	032136 0      0   0   000000000001 0            201100000001 
AT6	032136 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 227
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0422

FT1A	032136 000001 0   0   000000000001 0            000000000001 
FT9	032137 000001 0   0   000000000001 0            000000000001 
ET0	032137 000001 0   0   000000000001 0            000000000001 
ST1	032137 000001 0   0   000000000001 0            000000000001 
ST2	032137 000001 0   0   000000000001 0            000000000001 
ST9	032137 000001 0   0   000000000001 0            000000000001 


*032137 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 773777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032137 032137 0   0   200142000000 0            777777773777 
IT1	032137 0      0   0   200142000000 0            777777773777 
AT1	032137 0      0   0   0            0            200142000000 
AT2	032137 0      0   0   000000000001 0            200142000000 
AT3	032137 0      0   0   000000000001 0            000000000001 
AT6	032137 000001 0   0   000000000001 0            000000000001 
FT0	032137 000001 0   0   777777773777 0            000000000001 
FT1A	032137 000001 0   0   777777773777 0            777777773777 
FT9	032140 000001 0   0   777777773777 0            777777773777 
ET0	032140 000001 0   0   777777773777 0            777777773777 
ST1	032140 000001 0   0   777777773777 0            777777773777 
ST2	032140 000001 0   0   777777773777 0            777777773777 
ST9	032140 000001 0   0   777777773777 0            777777773777 


*032140 CAME	3,034502
INITIAL
C(AC)=777777 773777 
C(E)=777777 773777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032140 032140 0   0   312140034502 0            777777773777 
IT1	032140 0      0   0   312140034502 0            777777773777 
AT3	032140 0      0   0   000000034502 0            312140034502 
AT6	032140 034502 0   0   000000034502 0            312140034502 
FT0	032140 034502 0   0   777777773777 0            312140034502 
FT1A	032140 034502 0   0   777777773777 0            777777773777 
FT2	032140 034502 0   0   0            0            777777773777 
FT2RQ	032140 034502 0   0   777777773777 0            777777773777 
FT3	032140 034502 0   0   777777773777 0            777777773777 
FT9	032141 034502 0   0   777777773777 0            777777773777 
ET0	032142 034502 0   0   0            0            777777773777 
ST1A	032142 034502 0   0   0            0            777777773777 
ST9	032142 034502 0   0   0            0            777777773777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 228
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0423



*032142 JUMPA	0,032143
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032142 032142 0   0   324000032143 0            000000032143 
IT1	032142 0      0   0   324000032143 0            000000032143 
AT3	032142 0      0   0   000000032143 0            324000032143 
AT6	032142 032143 0   0   000000032143 0            324000032143 
FT1A	032142 032143 0   0   000000032143 0            000000032143 
FT2	032142 032143 0   0   0            0            000000032143 
FT2RQ	032142 032143 0   0   000000000017 0            000000032143 
FT3	032142 032143 0   0   000000000017 0            000000032143 
FT9	032143 032143 0   0   000000000017 0            000000032143 
ET0	032143 032143 0   0   000000000017 0            000000032143 
ST1A	032143 032143 0   0   000000000017 0            000000032143 
ST9	032143 032143 0   0   000000000017 0            000000032143 


*032143 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 773777 
FINAL

C(E)=777777 773777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032143 032143 0   0   402000000003 0            000000000003 
IT1	032143 0      0   0   402000000003 0            000000000003 
AT3	032143 0      0   0   000000000003 0            402000000003 
AT6	032143 000003 0   0   000000000003 0            402000000003 
FT1A	032143 000003 0   0   000000000003 0            000000000003 
FT9	032144 000003 0   0   000000000003 0            000000000003 
ET0	032144 000003 0   0   0            0            000000000003 
ST6	032144 000003 0   0   0            0            000000000003 
ST6A	032144 000003 0   0   0            0            000000000003 
ST9	032144 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 229
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0424

*032144 HRROI	1,767777
INITIAL
C(AC)=777777 773777 
FINAL
C(AC)=777777 767777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032144 032144 0   0   561040767777 0            000000767777 
IT1	032144 0      0   0   561040767777 0            000000767777 
AT3	032144 0      0   0   000000767777 0            561040767777 
AT6	032144 767777 0   0   000000767777 0            561040767777 
FT1A	032144 767777 0   0   000000767777 0            000000767777 
FT9	032145 767777 0   0   000000767777 0            000000767777 
ET0	032145 767777 0   0   777777767777 0            000000767777 
ST1	032145 767777 0   0   777777767777 0            000000767777 
ST2	032145 767777 0   0   777777767777 0            000000767777 
ST9	032145 767777 0   0   777777767777 0            000000767777 


*032145 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032145 032145 0   0   201100000001 0            000000000001 
IT1	032145 0      0   0   201100000001 0            000000000001 
AT3	032145 0      0   0   000000000001 0            201100000001 
AT6	032145 000001 0   0   000000000001 0            201100000001 
FT1A	032145 000001 0   0   000000000001 0            000000000001 
FT9	032146 000001 0   0   000000000001 0            000000000001 
ET0	032146 000001 0   0   000000000001 0            000000000001 
ST1	032146 000001 0   0   000000000001 0            000000000001 
ST2	032146 000001 0   0   000000000001 0            000000000001 
ST9	032146 000001 0   0   000000000001 0            000000000001 


*032146 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 767777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032146 032146 0   0   200142000000 0            777777767777 
IT1	032146 0      0   0   200142000000 0            777777767777 
AT1	032146 0      0   0   0            0            200142000000 
AT2	032146 0      0   0   000000000001 0            200142000000 
AT3	032146 0      0   0   000000000001 0            000000000001 
AT6	032146 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 230
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0425

FT0	032146 000001 0   0   777777767777 0            000000000001 
FT1A	032146 000001 0   0   777777767777 0            777777767777 
FT9	032147 000001 0   0   777777767777 0            777777767777 
ET0	032147 000001 0   0   777777767777 0            777777767777 
ST1	032147 000001 0   0   777777767777 0            777777767777 
ST2	032147 000001 0   0   777777767777 0            777777767777 
ST9	032147 000001 0   0   777777767777 0            777777767777 


*032147 CAME	3,034503
INITIAL
C(AC)=777777 767777 
C(E)=777777 767777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032147 032147 0   0   312140034503 0            777777767777 
IT1	032147 0      0   0   312140034503 0            777777767777 
AT3	032147 0      0   0   000000034503 0            312140034503 
AT6	032147 034503 0   0   000000034503 0            312140034503 
FT0	032147 034503 0   0   777777767777 0            312140034503 
FT1A	032147 034503 0   0   777777767777 0            777777767777 
FT2	032147 034503 0   0   0            0            777777767777 
FT2RQ	032147 034503 0   0   777777767777 0            777777767777 
FT3	032147 034503 0   0   777777767777 0            777777767777 
FT9	032150 034503 0   0   777777767777 0            777777767777 
ET0	032151 034503 0   0   0            0            777777767777 
ST1A	032151 034503 0   0   0            0            777777767777 
ST9	032151 034503 0   0   0            0            777777767777 


*032151 JUMPA	0,032152
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032151 032151 0   0   324000032152 0            000000032152 
IT1	032151 0      0   0   324000032152 0            000000032152 
AT3	032151 0      0   0   000000032152 0            324000032152 
AT6	032151 032152 0   0   000000032152 0            324000032152 
FT1A	032151 032152 0   0   000000032152 0            000000032152 
FT2	032151 032152 0   0   0            0            000000032152 
FT2RQ	032151 032152 0   0   000000000017 0            000000032152 
FT3	032151 032152 0   0   000000000017 0            000000032152 
FT9	032152 032152 0   0   000000000017 0            000000032152 
ET0	032152 032152 0   0   000000000017 0            000000032152 
ST1A	032152 032152 0   0   000000000017 0            000000032152 
ST9	032152 032152 0   0   000000000017 0            000000032152 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 231
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0426


*032152 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 767777 
FINAL

C(E)=777777 767777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032152 032152 0   0   402000000003 0            000000000003 
IT1	032152 0      0   0   402000000003 0            000000000003 
AT3	032152 0      0   0   000000000003 0            402000000003 
AT6	032152 000003 0   0   000000000003 0            402000000003 
FT1A	032152 000003 0   0   000000000003 0            000000000003 
FT9	032153 000003 0   0   000000000003 0            000000000003 
ET0	032153 000003 0   0   0            0            000000000003 
ST6	032153 000003 0   0   0            0            000000000003 
ST6A	032153 000003 0   0   0            0            000000000003 
ST9	032153 000003 0   0   0            0            000000000003 


*032153 HRROI	1,757777
INITIAL
C(AC)=777777 767777 
FINAL
C(AC)=777777 757777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032153 032153 0   0   561040757777 0            000000757777 
IT1	032153 0      0   0   561040757777 0            000000757777 
AT3	032153 0      0   0   000000757777 0            561040757777 
AT6	032153 757777 0   0   000000757777 0            561040757777 
FT1A	032153 757777 0   0   000000757777 0            000000757777 
FT9	032154 757777 0   0   000000757777 0            000000757777 
ET0	032154 757777 0   0   777777757777 0            000000757777 
ST1	032154 757777 0   0   777777757777 0            000000757777 
ST2	032154 757777 0   0   777777757777 0            000000757777 
ST9	032154 757777 0   0   777777757777 0            000000757777 


*032154 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032154 032154 0   0   201100000001 0            000000000001 
IT1	032154 0      0   0   201100000001 0            000000000001 
AT3	032154 0      0   0   000000000001 0            201100000001 
AT6	032154 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 232
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0427

FT1A	032154 000001 0   0   000000000001 0            000000000001 
FT9	032155 000001 0   0   000000000001 0            000000000001 
ET0	032155 000001 0   0   000000000001 0            000000000001 
ST1	032155 000001 0   0   000000000001 0            000000000001 
ST2	032155 000001 0   0   000000000001 0            000000000001 
ST9	032155 000001 0   0   000000000001 0            000000000001 


*032155 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 757777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032155 032155 0   0   200142000000 0            777777757777 
IT1	032155 0      0   0   200142000000 0            777777757777 
AT1	032155 0      0   0   0            0            200142000000 
AT2	032155 0      0   0   000000000001 0            200142000000 
AT3	032155 0      0   0   000000000001 0            000000000001 
AT6	032155 000001 0   0   000000000001 0            000000000001 
FT0	032155 000001 0   0   777777757777 0            000000000001 
FT1A	032155 000001 0   0   777777757777 0            777777757777 
FT9	032156 000001 0   0   777777757777 0            777777757777 
ET0	032156 000001 0   0   777777757777 0            777777757777 
ST1	032156 000001 0   0   777777757777 0            777777757777 
ST2	032156 000001 0   0   777777757777 0            777777757777 
ST9	032156 000001 0   0   777777757777 0            777777757777 


*032156 CAME	3,034504
INITIAL
C(AC)=777777 757777 
C(E)=777777 757777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032156 032156 0   0   312140034504 0            777777757777 
IT1	032156 0      0   0   312140034504 0            777777757777 
AT3	032156 0      0   0   000000034504 0            312140034504 
AT6	032156 034504 0   0   000000034504 0            312140034504 
FT0	032156 034504 0   0   777777757777 0            312140034504 
FT1A	032156 034504 0   0   777777757777 0            777777757777 
FT2	032156 034504 0   0   0            0            777777757777 
FT2RQ	032156 034504 0   0   777777757777 0            777777757777 
FT3	032156 034504 0   0   777777757777 0            777777757777 
FT9	032157 034504 0   0   777777757777 0            777777757777 
ET0	032160 034504 0   0   0            0            777777757777 
ST1A	032160 034504 0   0   0            0            777777757777 
ST9	032160 034504 0   0   0            0            777777757777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 233
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0428



*032160 JUMPA	0,032161
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032160 032160 0   0   324000032161 0            000000032161 
IT1	032160 0      0   0   324000032161 0            000000032161 
AT3	032160 0      0   0   000000032161 0            324000032161 
AT6	032160 032161 0   0   000000032161 0            324000032161 
FT1A	032160 032161 0   0   000000032161 0            000000032161 
FT2	032160 032161 0   0   0            0            000000032161 
FT2RQ	032160 032161 0   0   000000000017 0            000000032161 
FT3	032160 032161 0   0   000000000017 0            000000032161 
FT9	032161 032161 0   0   000000000017 0            000000032161 
ET0	032161 032161 0   0   000000000017 0            000000032161 
ST1A	032161 032161 0   0   000000000017 0            000000032161 
ST9	032161 032161 0   0   000000000017 0            000000032161 


*032161 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 757777 
FINAL

C(E)=777777 757777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032161 032161 0   0   402000000003 0            000000000003 
IT1	032161 0      0   0   402000000003 0            000000000003 
AT3	032161 0      0   0   000000000003 0            402000000003 
AT6	032161 000003 0   0   000000000003 0            402000000003 
FT1A	032161 000003 0   0   000000000003 0            000000000003 
FT9	032162 000003 0   0   000000000003 0            000000000003 
ET0	032162 000003 0   0   0            0            000000000003 
ST6	032162 000003 0   0   0            0            000000000003 
ST6A	032162 000003 0   0   0            0            000000000003 
ST9	032162 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 234
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0429

*032162 HRROI	1,737777
INITIAL
C(AC)=777777 757777 
FINAL
C(AC)=777777 737777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032162 032162 0   0   561040737777 0            000000737777 
IT1	032162 0      0   0   561040737777 0            000000737777 
AT3	032162 0      0   0   000000737777 0            561040737777 
AT6	032162 737777 0   0   000000737777 0            561040737777 
FT1A	032162 737777 0   0   000000737777 0            000000737777 
FT9	032163 737777 0   0   000000737777 0            000000737777 
ET0	032163 737777 0   0   777777737777 0            000000737777 
ST1	032163 737777 0   0   777777737777 0            000000737777 
ST2	032163 737777 0   0   777777737777 0            000000737777 
ST9	032163 737777 0   0   777777737777 0            000000737777 


*032163 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032163 032163 0   0   201100000001 0            000000000001 
IT1	032163 0      0   0   201100000001 0            000000000001 
AT3	032163 0      0   0   000000000001 0            201100000001 
AT6	032163 000001 0   0   000000000001 0            201100000001 
FT1A	032163 000001 0   0   000000000001 0            000000000001 
FT9	032164 000001 0   0   000000000001 0            000000000001 
ET0	032164 000001 0   0   000000000001 0            000000000001 
ST1	032164 000001 0   0   000000000001 0            000000000001 
ST2	032164 000001 0   0   000000000001 0            000000000001 
ST9	032164 000001 0   0   000000000001 0            000000000001 


*032164 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 737777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032164 032164 0   0   200142000000 0            777777737777 
IT1	032164 0      0   0   200142000000 0            777777737777 
AT1	032164 0      0   0   0            0            200142000000 
AT2	032164 0      0   0   000000000001 0            200142000000 
AT3	032164 0      0   0   000000000001 0            000000000001 
AT6	032164 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 235
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0430

FT0	032164 000001 0   0   777777737777 0            000000000001 
FT1A	032164 000001 0   0   777777737777 0            777777737777 
FT9	032165 000001 0   0   777777737777 0            777777737777 
ET0	032165 000001 0   0   777777737777 0            777777737777 
ST1	032165 000001 0   0   777777737777 0            777777737777 
ST2	032165 000001 0   0   777777737777 0            777777737777 
ST9	032165 000001 0   0   777777737777 0            777777737777 


*032165 CAME	3,034505
INITIAL
C(AC)=777777 737777 
C(E)=777777 737777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032165 032165 0   0   312140034505 0            777777737777 
IT1	032165 0      0   0   312140034505 0            777777737777 
AT3	032165 0      0   0   000000034505 0            312140034505 
AT6	032165 034505 0   0   000000034505 0            312140034505 
FT0	032165 034505 0   0   777777737777 0            312140034505 
FT1A	032165 034505 0   0   777777737777 0            777777737777 
FT2	032165 034505 0   0   0            0            777777737777 
FT2RQ	032165 034505 0   0   777777737777 0            777777737777 
FT3	032165 034505 0   0   777777737777 0            777777737777 
FT9	032166 034505 0   0   777777737777 0            777777737777 
ET0	032167 034505 0   0   0            0            777777737777 
ST1A	032167 034505 0   0   0            0            777777737777 
ST9	032167 034505 0   0   0            0            777777737777 


*032167 JUMPA	0,032170
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032167 032167 0   0   324000032170 0            000000032170 
IT1	032167 0      0   0   324000032170 0            000000032170 
AT3	032167 0      0   0   000000032170 0            324000032170 
AT6	032167 032170 0   0   000000032170 0            324000032170 
FT1A	032167 032170 0   0   000000032170 0            000000032170 
FT2	032167 032170 0   0   0            0            000000032170 
FT2RQ	032167 032170 0   0   000000000017 0            000000032170 
FT3	032167 032170 0   0   000000000017 0            000000032170 
FT9	032170 032170 0   0   000000000017 0            000000032170 
ET0	032170 032170 0   0   000000000017 0            000000032170 
ST1A	032170 032170 0   0   000000000017 0            000000032170 
ST9	032170 032170 0   0   000000000017 0            000000032170 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 236
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0431


*032170 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 737777 
FINAL

C(E)=777777 737777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032170 032170 0   0   402000000003 0            000000000003 
IT1	032170 0      0   0   402000000003 0            000000000003 
AT3	032170 0      0   0   000000000003 0            402000000003 
AT6	032170 000003 0   0   000000000003 0            402000000003 
FT1A	032170 000003 0   0   000000000003 0            000000000003 
FT9	032171 000003 0   0   000000000003 0            000000000003 
ET0	032171 000003 0   0   0            0            000000000003 
ST6	032171 000003 0   0   0            0            000000000003 
ST6A	032171 000003 0   0   0            0            000000000003 
ST9	032171 000003 0   0   0            0            000000000003 


*032171 HRROI	1,677777
INITIAL
C(AC)=777777 737777 
FINAL
C(AC)=777777 677777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032171 032171 0   0   561040677777 0            000000677777 
IT1	032171 0      0   0   561040677777 0            000000677777 
AT3	032171 0      0   0   000000677777 0            561040677777 
AT6	032171 677777 0   0   000000677777 0            561040677777 
FT1A	032171 677777 0   0   000000677777 0            000000677777 
FT9	032172 677777 0   0   000000677777 0            000000677777 
ET0	032172 677777 0   0   777777677777 0            000000677777 
ST1	032172 677777 0   0   777777677777 0            000000677777 
ST2	032172 677777 0   0   777777677777 0            000000677777 
ST9	032172 677777 0   0   777777677777 0            000000677777 


*032172 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032172 032172 0   0   201100000001 0            000000000001 
IT1	032172 0      0   0   201100000001 0            000000000001 
AT3	032172 0      0   0   000000000001 0            201100000001 
AT6	032172 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 237
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0432

FT1A	032172 000001 0   0   000000000001 0            000000000001 
FT9	032173 000001 0   0   000000000001 0            000000000001 
ET0	032173 000001 0   0   000000000001 0            000000000001 
ST1	032173 000001 0   0   000000000001 0            000000000001 
ST2	032173 000001 0   0   000000000001 0            000000000001 
ST9	032173 000001 0   0   000000000001 0            000000000001 


*032173 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 677777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032173 032173 0   0   200142000000 0            777777677777 
IT1	032173 0      0   0   200142000000 0            777777677777 
AT1	032173 0      0   0   0            0            200142000000 
AT2	032173 0      0   0   000000000001 0            200142000000 
AT3	032173 0      0   0   000000000001 0            000000000001 
AT6	032173 000001 0   0   000000000001 0            000000000001 
FT0	032173 000001 0   0   777777677777 0            000000000001 
FT1A	032173 000001 0   0   777777677777 0            777777677777 
FT9	032174 000001 0   0   777777677777 0            777777677777 
ET0	032174 000001 0   0   777777677777 0            777777677777 
ST1	032174 000001 0   0   777777677777 0            777777677777 
ST2	032174 000001 0   0   777777677777 0            777777677777 
ST9	032174 000001 0   0   777777677777 0            777777677777 


*032174 CAME	3,034506
INITIAL
C(AC)=777777 677777 
C(E)=777777 677777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032174 032174 0   0   312140034506 0            777777677777 
IT1	032174 0      0   0   312140034506 0            777777677777 
AT3	032174 0      0   0   000000034506 0            312140034506 
AT6	032174 034506 0   0   000000034506 0            312140034506 
FT0	032174 034506 0   0   777777677777 0            312140034506 
FT1A	032174 034506 0   0   777777677777 0            777777677777 
FT2	032174 034506 0   0   0            0            777777677777 
FT2RQ	032174 034506 0   0   777777677777 0            777777677777 
FT3	032174 034506 0   0   777777677777 0            777777677777 
FT9	032175 034506 0   0   777777677777 0            777777677777 
ET0	032176 034506 0   0   0            0            777777677777 
ST1A	032176 034506 0   0   0            0            777777677777 
ST9	032176 034506 0   0   0            0            777777677777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 238
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0433



*032176 JUMPA	0,032177
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032176 032176 0   0   324000032177 0            000000032177 
IT1	032176 0      0   0   324000032177 0            000000032177 
AT3	032176 0      0   0   000000032177 0            324000032177 
AT6	032176 032177 0   0   000000032177 0            324000032177 
FT1A	032176 032177 0   0   000000032177 0            000000032177 
FT2	032176 032177 0   0   0            0            000000032177 
FT2RQ	032176 032177 0   0   000000000017 0            000000032177 
FT3	032176 032177 0   0   000000000017 0            000000032177 
FT9	032177 032177 0   0   000000000017 0            000000032177 
ET0	032177 032177 0   0   000000000017 0            000000032177 
ST1A	032177 032177 0   0   000000000017 0            000000032177 
ST9	032177 032177 0   0   000000000017 0            000000032177 


*032177 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 677777 
FINAL

C(E)=777777 677777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032177 032177 0   0   402000000003 0            000000000003 
IT1	032177 0      0   0   402000000003 0            000000000003 
AT3	032177 0      0   0   000000000003 0            402000000003 
AT6	032177 000003 0   0   000000000003 0            402000000003 
FT1A	032177 000003 0   0   000000000003 0            000000000003 
FT9	0      000003 0   0   000000000003 0            000000000003 
ET0	0      000003 0   0   0            0            000000000003 
ST6	0      000003 0   0   0            0            000000000003 
ST6A	0      000003 0   0   0            0            000000000003 
ST9	0      000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 239
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0434

*032200 HRROI	1,577777
INITIAL
C(AC)=777777 677777 
FINAL
C(AC)=777777 577777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   561040577777 0            000000577777 
IT1	0      0      0   0   561040577777 0            000000577777 
AT3	0      0      0   0   000000577777 0            561040577777 
AT6	0      577777 0   0   000000577777 0            561040577777 
FT1A	0      577777 0   0   000000577777 0            000000577777 
FT9	032201 577777 0   0   000000577777 0            000000577777 
ET0	032201 577777 0   0   777777577777 0            000000577777 
ST1	032201 577777 0   0   777777577777 0            000000577777 
ST2	032201 577777 0   0   777777577777 0            000000577777 
ST9	032201 577777 0   0   777777577777 0            000000577777 


*032201 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032201 032201 0   0   201100000001 0            000000000001 
IT1	032201 0      0   0   201100000001 0            000000000001 
AT3	032201 0      0   0   000000000001 0            201100000001 
AT6	032201 000001 0   0   000000000001 0            201100000001 
FT1A	032201 000001 0   0   000000000001 0            000000000001 
FT9	032202 000001 0   0   000000000001 0            000000000001 
ET0	032202 000001 0   0   000000000001 0            000000000001 
ST1	032202 000001 0   0   000000000001 0            000000000001 
ST2	032202 000001 0   0   000000000001 0            000000000001 
ST9	032202 000001 0   0   000000000001 0            000000000001 


*032202 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 577777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032202 032202 0   0   200142000000 0            777777577777 
IT1	032202 0      0   0   200142000000 0            777777577777 
AT1	032202 0      0   0   0            0            200142000000 
AT2	032202 0      0   0   000000000001 0            200142000000 
AT3	032202 0      0   0   000000000001 0            000000000001 
AT6	032202 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 240
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0435

FT0	032202 000001 0   0   777777577777 0            000000000001 
FT1A	032202 000001 0   0   777777577777 0            777777577777 
FT9	032203 000001 0   0   777777577777 0            777777577777 
ET0	032203 000001 0   0   777777577777 0            777777577777 
ST1	032203 000001 0   0   777777577777 0            777777577777 
ST2	032203 000001 0   0   777777577777 0            777777577777 
ST9	032203 000001 0   0   777777577777 0            777777577777 


*032203 CAME	3,034507
INITIAL
C(AC)=777777 577777 
C(E)=777777 577777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032203 032203 0   0   312140034507 0            777777577777 
IT1	032203 0      0   0   312140034507 0            777777577777 
AT3	032203 0      0   0   000000034507 0            312140034507 
AT6	032203 034507 0   0   000000034507 0            312140034507 
FT0	032203 034507 0   0   777777577777 0            312140034507 
FT1A	032203 034507 0   0   777777577777 0            777777577777 
FT2	032203 034507 0   0   0            0            777777577777 
FT2RQ	032203 034507 0   0   777777577777 0            777777577777 
FT3	032203 034507 0   0   777777577777 0            777777577777 
FT9	032204 034507 0   0   777777577777 0            777777577777 
ET0	032205 034507 0   0   0            0            777777577777 
ST1A	032205 034507 0   0   0            0            777777577777 
ST9	032205 034507 0   0   0            0            777777577777 


*032205 JUMPA	0,032206
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032205 032205 0   0   324000032206 0            000000032206 
IT1	032205 0      0   0   324000032206 0            000000032206 
AT3	032205 0      0   0   000000032206 0            324000032206 
AT6	032205 032206 0   0   000000032206 0            324000032206 
FT1A	032205 032206 0   0   000000032206 0            000000032206 
FT2	032205 032206 0   0   0            0            000000032206 
FT2RQ	032205 032206 0   0   000000000017 0            000000032206 
FT3	032205 032206 0   0   000000000017 0            000000032206 
FT9	032206 032206 0   0   000000000017 0            000000032206 
ET0	032206 032206 0   0   000000000017 0            000000032206 
ST1A	032206 032206 0   0   000000000017 0            000000032206 
ST9	032206 032206 0   0   000000000017 0            000000032206 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 241
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0436


*032206 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 577777 
FINAL

C(E)=777777 577777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032206 032206 0   0   402000000003 0            000000000003 
IT1	032206 0      0   0   402000000003 0            000000000003 
AT3	032206 0      0   0   000000000003 0            402000000003 
AT6	032206 000003 0   0   000000000003 0            402000000003 
FT1A	032206 000003 0   0   000000000003 0            000000000003 
FT9	032207 000003 0   0   000000000003 0            000000000003 
ET0	032207 000003 0   0   0            0            000000000003 
ST6	032207 000003 0   0   0            0            000000000003 
ST6A	032207 000003 0   0   0            0            000000000003 
ST9	032207 000003 0   0   0            0            000000000003 


*032207 HRROI	1,377777
INITIAL
C(AC)=777777 577777 
FINAL
C(AC)=777777 377777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032207 032207 0   0   561040377777 0            000000377777 
IT1	032207 0      0   0   561040377777 0            000000377777 
AT3	032207 0      0   0   000000377777 0            561040377777 
AT6	032207 377777 0   0   000000377777 0            561040377777 
FT1A	032207 377777 0   0   000000377777 0            000000377777 
FT9	032210 377777 0   0   000000377777 0            000000377777 
ET0	032210 377777 0   0   777777377777 0            000000377777 
ST1	032210 377777 0   0   777777377777 0            000000377777 
ST2	032210 377777 0   0   777777377777 0            000000377777 
ST9	032210 377777 0   0   777777377777 0            000000377777 


*032210 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032210 032210 0   0   201100000001 0            000000000001 
IT1	032210 0      0   0   201100000001 0            000000000001 
AT3	032210 0      0   0   000000000001 0            201100000001 
AT6	032210 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 242
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0437

FT1A	032210 000001 0   0   000000000001 0            000000000001 
FT9	032211 000001 0   0   000000000001 0            000000000001 
ET0	032211 000001 0   0   000000000001 0            000000000001 
ST1	032211 000001 0   0   000000000001 0            000000000001 
ST2	032211 000001 0   0   000000000001 0            000000000001 
ST9	032211 000001 0   0   000000000001 0            000000000001 


*032211 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777777 377777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032211 032211 0   0   200142000000 0            777777377777 
IT1	032211 0      0   0   200142000000 0            777777377777 
AT1	032211 0      0   0   0            0            200142000000 
AT2	032211 0      0   0   000000000001 0            200142000000 
AT3	032211 0      0   0   000000000001 0            000000000001 
AT6	032211 000001 0   0   000000000001 0            000000000001 
FT0	032211 000001 0   0   777777377777 0            000000000001 
FT1A	032211 000001 0   0   777777377777 0            777777377777 
FT9	032212 000001 0   0   777777377777 0            777777377777 
ET0	032212 000001 0   0   777777377777 0            777777377777 
ST1	032212 000001 0   0   777777377777 0            777777377777 
ST2	032212 000001 0   0   777777377777 0            777777377777 
ST9	032212 000001 0   0   777777377777 0            777777377777 


*032212 CAME	3,034510
INITIAL
C(AC)=777777 377777 
C(E)=777777 377777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032212 032212 0   0   312140034510 0            777777377777 
IT1	032212 0      0   0   312140034510 0            777777377777 
AT3	032212 0      0   0   000000034510 0            312140034510 
AT6	032212 034510 0   0   000000034510 0            312140034510 
FT0	032212 034510 0   0   777777377777 0            312140034510 
FT1A	032212 034510 0   0   777777377777 0            777777377777 
FT2	032212 034510 0   0   0            0            777777377777 
FT2RQ	032212 034510 0   0   777777377777 0            777777377777 
FT3	032212 034510 0   0   777777377777 0            777777377777 
FT9	032213 034510 0   0   777777377777 0            777777377777 
ET0	032214 034510 0   0   0            0            777777377777 
ST1A	032214 034510 0   0   0            0            777777377777 
ST9	032214 034510 0   0   0            0            777777377777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 243
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0438



*032214 JUMPA	0,032215
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032214 032214 0   0   324000032215 0            000000032215 
IT1	032214 0      0   0   324000032215 0            000000032215 
AT3	032214 0      0   0   000000032215 0            324000032215 
AT6	032214 032215 0   0   000000032215 0            324000032215 
FT1A	032214 032215 0   0   000000032215 0            000000032215 
FT2	032214 032215 0   0   0            0            000000032215 
FT2RQ	032214 032215 0   0   000000000017 0            000000032215 
FT3	032214 032215 0   0   000000000017 0            000000032215 
FT9	032215 032215 0   0   000000000017 0            000000032215 
ET0	032215 032215 0   0   000000000017 0            000000032215 
ST1A	032215 032215 0   0   000000000017 0            000000032215 
ST9	032215 032215 0   0   000000000017 0            000000032215 


*032215 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777777 377777 
FINAL

C(E)=777777 377777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032215 032215 0   0   402000000003 0            000000000003 
IT1	032215 0      0   0   402000000003 0            000000000003 
AT3	032215 0      0   0   000000000003 0            402000000003 
AT6	032215 000003 0   0   000000000003 0            402000000003 
FT1A	032215 000003 0   0   000000000003 0            000000000003 
FT9	032216 000003 0   0   000000000003 0            000000000003 
ET0	032216 000003 0   0   0            0            000000000003 
ST6	032216 000003 0   0   0            0            000000000003 
ST6A	032216 000003 0   0   0            0            000000000003 
ST9	032216 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 244
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0439

*032216 HRLOI	1,777776
INITIAL
C(AC)=777777 377777 
FINAL
C(AC)=777776 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032216 032216 0   0   525040777776 0            000000777776 
IT1	032216 0      0   0   525040777776 0            000000777776 
AT3	032216 0      0   0   000000777776 0            525040777776 
AT6	032216 777776 0   0   000000777776 0            525040777776 
FT1A	032216 777776 0   0   000000777776 0            000000777776 
FT9	032217 777776 0   0   000000777776 0            000000777776 
ET0	032217 777776 0   0   777776777777 0            000000777776 
ST1	032217 777776 0   0   777776777777 0            000000777776 
ST2	032217 777776 0   0   777776777777 0            000000777776 
ST9	032217 777776 0   0   777776777777 0            000000777776 


*032217 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032217 032217 0   0   201100000001 0            000000000001 
IT1	032217 0      0   0   201100000001 0            000000000001 
AT3	032217 0      0   0   000000000001 0            201100000001 
AT6	032217 000001 0   0   000000000001 0            201100000001 
FT1A	032217 000001 0   0   000000000001 0            000000000001 
FT9	032220 000001 0   0   000000000001 0            000000000001 
ET0	032220 000001 0   0   000000000001 0            000000000001 
ST1	032220 000001 0   0   000000000001 0            000000000001 
ST2	032220 000001 0   0   000000000001 0            000000000001 
ST9	032220 000001 0   0   000000000001 0            000000000001 


*032220 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777776 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032220 032220 0   0   200142000000 0            777776777777 
IT1	032220 0      0   0   200142000000 0            777776777777 
AT1	032220 0      0   0   0            0            200142000000 
AT2	032220 0      0   0   000000000001 0            200142000000 
AT3	032220 0      0   0   000000000001 0            000000000001 
AT6	032220 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 245
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0440

FT0	032220 000001 0   0   777776777777 0            000000000001 
FT1A	032220 000001 0   0   777776777777 0            777776777777 
FT9	032221 000001 0   0   777776777777 0            777776777777 
ET0	032221 000001 0   0   777776777777 0            777776777777 
ST1	032221 000001 0   0   777776777777 0            777776777777 
ST2	032221 000001 0   0   777776777777 0            777776777777 
ST9	032221 000001 0   0   777776777777 0            777776777777 


*032221 CAME	3,034511
INITIAL
C(AC)=777776 777777 
C(E)=777776 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032221 032221 0   0   312140034511 0            777776777777 
IT1	032221 0      0   0   312140034511 0            777776777777 
AT3	032221 0      0   0   000000034511 0            312140034511 
AT6	032221 034511 0   0   000000034511 0            312140034511 
FT0	032221 034511 0   0   777776777777 0            312140034511 
FT1A	032221 034511 0   0   777776777777 0            777776777777 
FT2	032221 034511 0   0   0            0            777776777777 
FT2RQ	032221 034511 0   0   777776777777 0            777776777777 
FT3	032221 034511 0   0   777776777777 0            777776777777 
FT9	032222 034511 0   0   777776777777 0            777776777777 
ET0	032223 034511 0   0   0            0            777776777777 
ST1A	032223 034511 0   0   0            0            777776777777 
ST9	032223 034511 0   0   0            0            777776777777 


*032223 JUMPA	0,032224
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032223 032223 0   0   324000032224 0            000000032224 
IT1	032223 0      0   0   324000032224 0            000000032224 
AT3	032223 0      0   0   000000032224 0            324000032224 
AT6	032223 032224 0   0   000000032224 0            324000032224 
FT1A	032223 032224 0   0   000000032224 0            000000032224 
FT2	032223 032224 0   0   0            0            000000032224 
FT2RQ	032223 032224 0   0   000000000017 0            000000032224 
FT3	032223 032224 0   0   000000000017 0            000000032224 
FT9	032224 032224 0   0   000000000017 0            000000032224 
ET0	032224 032224 0   0   000000000017 0            000000032224 
ST1A	032224 032224 0   0   000000000017 0            000000032224 
ST9	032224 032224 0   0   000000000017 0            000000032224 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 246
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0441


*032224 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777776 777777 
FINAL

C(E)=777776 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032224 032224 0   0   402000000003 0            000000000003 
IT1	032224 0      0   0   402000000003 0            000000000003 
AT3	032224 0      0   0   000000000003 0            402000000003 
AT6	032224 000003 0   0   000000000003 0            402000000003 
FT1A	032224 000003 0   0   000000000003 0            000000000003 
FT9	032225 000003 0   0   000000000003 0            000000000003 
ET0	032225 000003 0   0   0            0            000000000003 
ST6	032225 000003 0   0   0            0            000000000003 
ST6A	032225 000003 0   0   0            0            000000000003 
ST9	032225 000003 0   0   0            0            000000000003 


*032225 HRLOI	1,777775
INITIAL
C(AC)=777776 777777 
FINAL
C(AC)=777775 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032225 032225 0   0   525040777775 0            000000777775 
IT1	032225 0      0   0   525040777775 0            000000777775 
AT3	032225 0      0   0   000000777775 0            525040777775 
AT6	032225 777775 0   0   000000777775 0            525040777775 
FT1A	032225 777775 0   0   000000777775 0            000000777775 
FT9	032226 777775 0   0   000000777775 0            000000777775 
ET0	032226 777775 0   0   777775777777 0            000000777775 
ST1	032226 777775 0   0   777775777777 0            000000777775 
ST2	032226 777775 0   0   777775777777 0            000000777775 
ST9	032226 777775 0   0   777775777777 0            000000777775 


*032226 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032226 032226 0   0   201100000001 0            000000000001 
IT1	032226 0      0   0   201100000001 0            000000000001 
AT3	032226 0      0   0   000000000001 0            201100000001 
AT6	032226 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 247
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0442

FT1A	032226 000001 0   0   000000000001 0            000000000001 
FT9	032227 000001 0   0   000000000001 0            000000000001 
ET0	032227 000001 0   0   000000000001 0            000000000001 
ST1	032227 000001 0   0   000000000001 0            000000000001 
ST2	032227 000001 0   0   000000000001 0            000000000001 
ST9	032227 000001 0   0   000000000001 0            000000000001 


*032227 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777775 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032227 032227 0   0   200142000000 0            777775777777 
IT1	032227 0      0   0   200142000000 0            777775777777 
AT1	032227 0      0   0   0            0            200142000000 
AT2	032227 0      0   0   000000000001 0            200142000000 
AT3	032227 0      0   0   000000000001 0            000000000001 
AT6	032227 000001 0   0   000000000001 0            000000000001 
FT0	032227 000001 0   0   777775777777 0            000000000001 
FT1A	032227 000001 0   0   777775777777 0            777775777777 
FT9	032230 000001 0   0   777775777777 0            777775777777 
ET0	032230 000001 0   0   777775777777 0            777775777777 
ST1	032230 000001 0   0   777775777777 0            777775777777 
ST2	032230 000001 0   0   777775777777 0            777775777777 
ST9	032230 000001 0   0   777775777777 0            777775777777 


*032230 CAME	3,034512
INITIAL
C(AC)=777775 777777 
C(E)=777775 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032230 032230 0   0   312140034512 0            777775777777 
IT1	032230 0      0   0   312140034512 0            777775777777 
AT3	032230 0      0   0   000000034512 0            312140034512 
AT6	032230 034512 0   0   000000034512 0            312140034512 
FT0	032230 034512 0   0   777775777777 0            312140034512 
FT1A	032230 034512 0   0   777775777777 0            777775777777 
FT2	032230 034512 0   0   0            0            777775777777 
FT2RQ	032230 034512 0   0   777775777777 0            777775777777 
FT3	032230 034512 0   0   777775777777 0            777775777777 
FT9	032231 034512 0   0   777775777777 0            777775777777 
ET0	032232 034512 0   0   0            0            777775777777 
ST1A	032232 034512 0   0   0            0            777775777777 
ST9	032232 034512 0   0   0            0            777775777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 248
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0443



*032232 JUMPA	0,032233
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032232 032232 0   0   324000032233 0            000000032233 
IT1	032232 0      0   0   324000032233 0            000000032233 
AT3	032232 0      0   0   000000032233 0            324000032233 
AT6	032232 032233 0   0   000000032233 0            324000032233 
FT1A	032232 032233 0   0   000000032233 0            000000032233 
FT2	032232 032233 0   0   0            0            000000032233 
FT2RQ	032232 032233 0   0   000000000017 0            000000032233 
FT3	032232 032233 0   0   000000000017 0            000000032233 
FT9	032233 032233 0   0   000000000017 0            000000032233 
ET0	032233 032233 0   0   000000000017 0            000000032233 
ST1A	032233 032233 0   0   000000000017 0            000000032233 
ST9	032233 032233 0   0   000000000017 0            000000032233 


*032233 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777775 777777 
FINAL

C(E)=777775 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032233 032233 0   0   402000000003 0            000000000003 
IT1	032233 0      0   0   402000000003 0            000000000003 
AT3	032233 0      0   0   000000000003 0            402000000003 
AT6	032233 000003 0   0   000000000003 0            402000000003 
FT1A	032233 000003 0   0   000000000003 0            000000000003 
FT9	032234 000003 0   0   000000000003 0            000000000003 
ET0	032234 000003 0   0   0            0            000000000003 
ST6	032234 000003 0   0   0            0            000000000003 
ST6A	032234 000003 0   0   0            0            000000000003 
ST9	032234 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 249
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0444

*032234 HRLOI	1,777773
INITIAL
C(AC)=777775 777777 
FINAL
C(AC)=777773 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032234 032234 0   0   525040777773 0            000000777773 
IT1	032234 0      0   0   525040777773 0            000000777773 
AT3	032234 0      0   0   000000777773 0            525040777773 
AT6	032234 777773 0   0   000000777773 0            525040777773 
FT1A	032234 777773 0   0   000000777773 0            000000777773 
FT9	032235 777773 0   0   000000777773 0            000000777773 
ET0	032235 777773 0   0   777773777777 0            000000777773 
ST1	032235 777773 0   0   777773777777 0            000000777773 
ST2	032235 777773 0   0   777773777777 0            000000777773 
ST9	032235 777773 0   0   777773777777 0            000000777773 


*032235 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032235 032235 0   0   201100000001 0            000000000001 
IT1	032235 0      0   0   201100000001 0            000000000001 
AT3	032235 0      0   0   000000000001 0            201100000001 
AT6	032235 000001 0   0   000000000001 0            201100000001 
FT1A	032235 000001 0   0   000000000001 0            000000000001 
FT9	032236 000001 0   0   000000000001 0            000000000001 
ET0	032236 000001 0   0   000000000001 0            000000000001 
ST1	032236 000001 0   0   000000000001 0            000000000001 
ST2	032236 000001 0   0   000000000001 0            000000000001 
ST9	032236 000001 0   0   000000000001 0            000000000001 


*032236 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777773 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032236 032236 0   0   200142000000 0            777773777777 
IT1	032236 0      0   0   200142000000 0            777773777777 
AT1	032236 0      0   0   0            0            200142000000 
AT2	032236 0      0   0   000000000001 0            200142000000 
AT3	032236 0      0   0   000000000001 0            000000000001 
AT6	032236 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 250
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0445

FT0	032236 000001 0   0   777773777777 0            000000000001 
FT1A	032236 000001 0   0   777773777777 0            777773777777 
FT9	032237 000001 0   0   777773777777 0            777773777777 
ET0	032237 000001 0   0   777773777777 0            777773777777 
ST1	032237 000001 0   0   777773777777 0            777773777777 
ST2	032237 000001 0   0   777773777777 0            777773777777 
ST9	032237 000001 0   0   777773777777 0            777773777777 


*032237 CAME	3,034513
INITIAL
C(AC)=777773 777777 
C(E)=777773 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032237 032237 0   0   312140034513 0            777773777777 
IT1	032237 0      0   0   312140034513 0            777773777777 
AT3	032237 0      0   0   000000034513 0            312140034513 
AT6	032237 034513 0   0   000000034513 0            312140034513 
FT0	032237 034513 0   0   777773777777 0            312140034513 
FT1A	032237 034513 0   0   777773777777 0            777773777777 
FT2	032237 034513 0   0   0            0            777773777777 
FT2RQ	032237 034513 0   0   777773777777 0            777773777777 
FT3	032237 034513 0   0   777773777777 0            777773777777 
FT9	032240 034513 0   0   777773777777 0            777773777777 
ET0	032241 034513 0   0   0            0            777773777777 
ST1A	032241 034513 0   0   0            0            777773777777 
ST9	032241 034513 0   0   0            0            777773777777 


*032241 JUMPA	0,032242
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032241 032241 0   0   324000032242 0            000000032242 
IT1	032241 0      0   0   324000032242 0            000000032242 
AT3	032241 0      0   0   000000032242 0            324000032242 
AT6	032241 032242 0   0   000000032242 0            324000032242 
FT1A	032241 032242 0   0   000000032242 0            000000032242 
FT2	032241 032242 0   0   0            0            000000032242 
FT2RQ	032241 032242 0   0   000000000017 0            000000032242 
FT3	032241 032242 0   0   000000000017 0            000000032242 
FT9	032242 032242 0   0   000000000017 0            000000032242 
ET0	032242 032242 0   0   000000000017 0            000000032242 
ST1A	032242 032242 0   0   000000000017 0            000000032242 
ST9	032242 032242 0   0   000000000017 0            000000032242 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 251
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0446


*032242 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777773 777777 
FINAL

C(E)=777773 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032242 032242 0   0   402000000003 0            000000000003 
IT1	032242 0      0   0   402000000003 0            000000000003 
AT3	032242 0      0   0   000000000003 0            402000000003 
AT6	032242 000003 0   0   000000000003 0            402000000003 
FT1A	032242 000003 0   0   000000000003 0            000000000003 
FT9	032243 000003 0   0   000000000003 0            000000000003 
ET0	032243 000003 0   0   0            0            000000000003 
ST6	032243 000003 0   0   0            0            000000000003 
ST6A	032243 000003 0   0   0            0            000000000003 
ST9	032243 000003 0   0   0            0            000000000003 


*032243 HRLOI	1,777767
INITIAL
C(AC)=777773 777777 
FINAL
C(AC)=777767 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032243 032243 0   0   525040777767 0            000000777767 
IT1	032243 0      0   0   525040777767 0            000000777767 
AT3	032243 0      0   0   000000777767 0            525040777767 
AT6	032243 777767 0   0   000000777767 0            525040777767 
FT1A	032243 777767 0   0   000000777767 0            000000777767 
FT9	032244 777767 0   0   000000777767 0            000000777767 
ET0	032244 777767 0   0   777767777777 0            000000777767 
ST1	032244 777767 0   0   777767777777 0            000000777767 
ST2	032244 777767 0   0   777767777777 0            000000777767 
ST9	032244 777767 0   0   777767777777 0            000000777767 


*032244 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032244 032244 0   0   201100000001 0            000000000001 
IT1	032244 0      0   0   201100000001 0            000000000001 
AT3	032244 0      0   0   000000000001 0            201100000001 
AT6	032244 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 252
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0447

FT1A	032244 000001 0   0   000000000001 0            000000000001 
FT9	032245 000001 0   0   000000000001 0            000000000001 
ET0	032245 000001 0   0   000000000001 0            000000000001 
ST1	032245 000001 0   0   000000000001 0            000000000001 
ST2	032245 000001 0   0   000000000001 0            000000000001 
ST9	032245 000001 0   0   000000000001 0            000000000001 


*032245 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777767 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032245 032245 0   0   200142000000 0            777767777777 
IT1	032245 0      0   0   200142000000 0            777767777777 
AT1	032245 0      0   0   0            0            200142000000 
AT2	032245 0      0   0   000000000001 0            200142000000 
AT3	032245 0      0   0   000000000001 0            000000000001 
AT6	032245 000001 0   0   000000000001 0            000000000001 
FT0	032245 000001 0   0   777767777777 0            000000000001 
FT1A	032245 000001 0   0   777767777777 0            777767777777 
FT9	032246 000001 0   0   777767777777 0            777767777777 
ET0	032246 000001 0   0   777767777777 0            777767777777 
ST1	032246 000001 0   0   777767777777 0            777767777777 
ST2	032246 000001 0   0   777767777777 0            777767777777 
ST9	032246 000001 0   0   777767777777 0            777767777777 


*032246 CAME	3,034514
INITIAL
C(AC)=777767 777777 
C(E)=777767 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032246 032246 0   0   312140034514 0            777767777777 
IT1	032246 0      0   0   312140034514 0            777767777777 
AT3	032246 0      0   0   000000034514 0            312140034514 
AT6	032246 034514 0   0   000000034514 0            312140034514 
FT0	032246 034514 0   0   777767777777 0            312140034514 
FT1A	032246 034514 0   0   777767777777 0            777767777777 
FT2	032246 034514 0   0   0            0            777767777777 
FT2RQ	032246 034514 0   0   777767777777 0            777767777777 
FT3	032246 034514 0   0   777767777777 0            777767777777 
FT9	032247 034514 0   0   777767777777 0            777767777777 
ET0	032250 034514 0   0   0            0            777767777777 
ST1A	032250 034514 0   0   0            0            777767777777 
ST9	032250 034514 0   0   0            0            777767777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 253
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0448



*032250 JUMPA	0,032251
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032250 032250 0   0   324000032251 0            000000032251 
IT1	032250 0      0   0   324000032251 0            000000032251 
AT3	032250 0      0   0   000000032251 0            324000032251 
AT6	032250 032251 0   0   000000032251 0            324000032251 
FT1A	032250 032251 0   0   000000032251 0            000000032251 
FT2	032250 032251 0   0   0            0            000000032251 
FT2RQ	032250 032251 0   0   000000000017 0            000000032251 
FT3	032250 032251 0   0   000000000017 0            000000032251 
FT9	032251 032251 0   0   000000000017 0            000000032251 
ET0	032251 032251 0   0   000000000017 0            000000032251 
ST1A	032251 032251 0   0   000000000017 0            000000032251 
ST9	032251 032251 0   0   000000000017 0            000000032251 


*032251 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777767 777777 
FINAL

C(E)=777767 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032251 032251 0   0   402000000003 0            000000000003 
IT1	032251 0      0   0   402000000003 0            000000000003 
AT3	032251 0      0   0   000000000003 0            402000000003 
AT6	032251 000003 0   0   000000000003 0            402000000003 
FT1A	032251 000003 0   0   000000000003 0            000000000003 
FT9	032252 000003 0   0   000000000003 0            000000000003 
ET0	032252 000003 0   0   0            0            000000000003 
ST6	032252 000003 0   0   0            0            000000000003 
ST6A	032252 000003 0   0   0            0            000000000003 
ST9	032252 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 254
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0449

*032252 HRLOI	1,777757
INITIAL
C(AC)=777767 777777 
FINAL
C(AC)=777757 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032252 032252 0   0   525040777757 0            000000777757 
IT1	032252 0      0   0   525040777757 0            000000777757 
AT3	032252 0      0   0   000000777757 0            525040777757 
AT6	032252 777757 0   0   000000777757 0            525040777757 
FT1A	032252 777757 0   0   000000777757 0            000000777757 
FT9	032253 777757 0   0   000000777757 0            000000777757 
ET0	032253 777757 0   0   777757777777 0            000000777757 
ST1	032253 777757 0   0   777757777777 0            000000777757 
ST2	032253 777757 0   0   777757777777 0            000000777757 
ST9	032253 777757 0   0   777757777777 0            000000777757 


*032253 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032253 032253 0   0   201100000001 0            000000000001 
IT1	032253 0      0   0   201100000001 0            000000000001 
AT3	032253 0      0   0   000000000001 0            201100000001 
AT6	032253 000001 0   0   000000000001 0            201100000001 
FT1A	032253 000001 0   0   000000000001 0            000000000001 
FT9	032254 000001 0   0   000000000001 0            000000000001 
ET0	032254 000001 0   0   000000000001 0            000000000001 
ST1	032254 000001 0   0   000000000001 0            000000000001 
ST2	032254 000001 0   0   000000000001 0            000000000001 
ST9	032254 000001 0   0   000000000001 0            000000000001 


*032254 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777757 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032254 032254 0   0   200142000000 0            777757777777 
IT1	032254 0      0   0   200142000000 0            777757777777 
AT1	032254 0      0   0   0            0            200142000000 
AT2	032254 0      0   0   000000000001 0            200142000000 
AT3	032254 0      0   0   000000000001 0            000000000001 
AT6	032254 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 255
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0450

FT0	032254 000001 0   0   777757777777 0            000000000001 
FT1A	032254 000001 0   0   777757777777 0            777757777777 
FT9	032255 000001 0   0   777757777777 0            777757777777 
ET0	032255 000001 0   0   777757777777 0            777757777777 
ST1	032255 000001 0   0   777757777777 0            777757777777 
ST2	032255 000001 0   0   777757777777 0            777757777777 
ST9	032255 000001 0   0   777757777777 0            777757777777 


*032255 CAME	3,034515
INITIAL
C(AC)=777757 777777 
C(E)=777757 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032255 032255 0   0   312140034515 0            777757777777 
IT1	032255 0      0   0   312140034515 0            777757777777 
AT3	032255 0      0   0   000000034515 0            312140034515 
AT6	032255 034515 0   0   000000034515 0            312140034515 
FT0	032255 034515 0   0   777757777777 0            312140034515 
FT1A	032255 034515 0   0   777757777777 0            777757777777 
FT2	032255 034515 0   0   0            0            777757777777 
FT2RQ	032255 034515 0   0   777757777777 0            777757777777 
FT3	032255 034515 0   0   777757777777 0            777757777777 
FT9	032256 034515 0   0   777757777777 0            777757777777 
ET0	032257 034515 0   0   0            0            777757777777 
ST1A	032257 034515 0   0   0            0            777757777777 
ST9	032257 034515 0   0   0            0            777757777777 


*032257 JUMPA	0,032260
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032257 032257 0   0   324000032260 0            000000032260 
IT1	032257 0      0   0   324000032260 0            000000032260 
AT3	032257 0      0   0   000000032260 0            324000032260 
AT6	032257 032260 0   0   000000032260 0            324000032260 
FT1A	032257 032260 0   0   000000032260 0            000000032260 
FT2	032257 032260 0   0   0            0            000000032260 
FT2RQ	032257 032260 0   0   000000000017 0            000000032260 
FT3	032257 032260 0   0   000000000017 0            000000032260 
FT9	032260 032260 0   0   000000000017 0            000000032260 
ET0	032260 032260 0   0   000000000017 0            000000032260 
ST1A	032260 032260 0   0   000000000017 0            000000032260 
ST9	032260 032260 0   0   000000000017 0            000000032260 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 256
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0451


*032260 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777757 777777 
FINAL

C(E)=777757 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032260 032260 0   0   402000000003 0            000000000003 
IT1	032260 0      0   0   402000000003 0            000000000003 
AT3	032260 0      0   0   000000000003 0            402000000003 
AT6	032260 000003 0   0   000000000003 0            402000000003 
FT1A	032260 000003 0   0   000000000003 0            000000000003 
FT9	032261 000003 0   0   000000000003 0            000000000003 
ET0	032261 000003 0   0   0            0            000000000003 
ST6	032261 000003 0   0   0            0            000000000003 
ST6A	032261 000003 0   0   0            0            000000000003 
ST9	032261 000003 0   0   0            0            000000000003 


*032261 HRLOI	1,777737
INITIAL
C(AC)=777757 777777 
FINAL
C(AC)=777737 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032261 032261 0   0   525040777737 0            000000777737 
IT1	032261 0      0   0   525040777737 0            000000777737 
AT3	032261 0      0   0   000000777737 0            525040777737 
AT6	032261 777737 0   0   000000777737 0            525040777737 
FT1A	032261 777737 0   0   000000777737 0            000000777737 
FT9	032262 777737 0   0   000000777737 0            000000777737 
ET0	032262 777737 0   0   777737777777 0            000000777737 
ST1	032262 777737 0   0   777737777777 0            000000777737 
ST2	032262 777737 0   0   777737777777 0            000000777737 
ST9	032262 777737 0   0   777737777777 0            000000777737 


*032262 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032262 032262 0   0   201100000001 0            000000000001 
IT1	032262 0      0   0   201100000001 0            000000000001 
AT3	032262 0      0   0   000000000001 0            201100000001 
AT6	032262 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 257
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0452

FT1A	032262 000001 0   0   000000000001 0            000000000001 
FT9	032263 000001 0   0   000000000001 0            000000000001 
ET0	032263 000001 0   0   000000000001 0            000000000001 
ST1	032263 000001 0   0   000000000001 0            000000000001 
ST2	032263 000001 0   0   000000000001 0            000000000001 
ST9	032263 000001 0   0   000000000001 0            000000000001 


*032263 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777737 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032263 032263 0   0   200142000000 0            777737777777 
IT1	032263 0      0   0   200142000000 0            777737777777 
AT1	032263 0      0   0   0            0            200142000000 
AT2	032263 0      0   0   000000000001 0            200142000000 
AT3	032263 0      0   0   000000000001 0            000000000001 
AT6	032263 000001 0   0   000000000001 0            000000000001 
FT0	032263 000001 0   0   777737777777 0            000000000001 
FT1A	032263 000001 0   0   777737777777 0            777737777777 
FT9	032264 000001 0   0   777737777777 0            777737777777 
ET0	032264 000001 0   0   777737777777 0            777737777777 
ST1	032264 000001 0   0   777737777777 0            777737777777 
ST2	032264 000001 0   0   777737777777 0            777737777777 
ST9	032264 000001 0   0   777737777777 0            777737777777 


*032264 CAME	3,034516
INITIAL
C(AC)=777737 777777 
C(E)=777737 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032264 032264 0   0   312140034516 0            777737777777 
IT1	032264 0      0   0   312140034516 0            777737777777 
AT3	032264 0      0   0   000000034516 0            312140034516 
AT6	032264 034516 0   0   000000034516 0            312140034516 
FT0	032264 034516 0   0   777737777777 0            312140034516 
FT1A	032264 034516 0   0   777737777777 0            777737777777 
FT2	032264 034516 0   0   0            0            777737777777 
FT2RQ	032264 034516 0   0   777737777777 0            777737777777 
FT3	032264 034516 0   0   777737777777 0            777737777777 
FT9	032265 034516 0   0   777737777777 0            777737777777 
ET0	032266 034516 0   0   0            0            777737777777 
ST1A	032266 034516 0   0   0            0            777737777777 
ST9	032266 034516 0   0   0            0            777737777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 258
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0453



*032266 JUMPA	0,032267
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032266 032266 0   0   324000032267 0            000000032267 
IT1	032266 0      0   0   324000032267 0            000000032267 
AT3	032266 0      0   0   000000032267 0            324000032267 
AT6	032266 032267 0   0   000000032267 0            324000032267 
FT1A	032266 032267 0   0   000000032267 0            000000032267 
FT2	032266 032267 0   0   0            0            000000032267 
FT2RQ	032266 032267 0   0   000000000017 0            000000032267 
FT3	032266 032267 0   0   000000000017 0            000000032267 
FT9	032267 032267 0   0   000000000017 0            000000032267 
ET0	032267 032267 0   0   000000000017 0            000000032267 
ST1A	032267 032267 0   0   000000000017 0            000000032267 
ST9	032267 032267 0   0   000000000017 0            000000032267 


*032267 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777737 777777 
FINAL

C(E)=777737 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032267 032267 0   0   402000000003 0            000000000003 
IT1	032267 0      0   0   402000000003 0            000000000003 
AT3	032267 0      0   0   000000000003 0            402000000003 
AT6	032267 000003 0   0   000000000003 0            402000000003 
FT1A	032267 000003 0   0   000000000003 0            000000000003 
FT9	032270 000003 0   0   000000000003 0            000000000003 
ET0	032270 000003 0   0   0            0            000000000003 
ST6	032270 000003 0   0   0            0            000000000003 
ST6A	032270 000003 0   0   0            0            000000000003 
ST9	032270 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 259
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0454

*032270 HRLOI	1,777677
INITIAL
C(AC)=777737 777777 
FINAL
C(AC)=777677 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032270 032270 0   0   525040777677 0            000000777677 
IT1	032270 0      0   0   525040777677 0            000000777677 
AT3	032270 0      0   0   000000777677 0            525040777677 
AT6	032270 777677 0   0   000000777677 0            525040777677 
FT1A	032270 777677 0   0   000000777677 0            000000777677 
FT9	032271 777677 0   0   000000777677 0            000000777677 
ET0	032271 777677 0   0   777677777777 0            000000777677 
ST1	032271 777677 0   0   777677777777 0            000000777677 
ST2	032271 777677 0   0   777677777777 0            000000777677 
ST9	032271 777677 0   0   777677777777 0            000000777677 


*032271 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032271 032271 0   0   201100000001 0            000000000001 
IT1	032271 0      0   0   201100000001 0            000000000001 
AT3	032271 0      0   0   000000000001 0            201100000001 
AT6	032271 000001 0   0   000000000001 0            201100000001 
FT1A	032271 000001 0   0   000000000001 0            000000000001 
FT9	032272 000001 0   0   000000000001 0            000000000001 
ET0	032272 000001 0   0   000000000001 0            000000000001 
ST1	032272 000001 0   0   000000000001 0            000000000001 
ST2	032272 000001 0   0   000000000001 0            000000000001 
ST9	032272 000001 0   0   000000000001 0            000000000001 


*032272 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777677 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032272 032272 0   0   200142000000 0            777677777777 
IT1	032272 0      0   0   200142000000 0            777677777777 
AT1	032272 0      0   0   0            0            200142000000 
AT2	032272 0      0   0   000000000001 0            200142000000 
AT3	032272 0      0   0   000000000001 0            000000000001 
AT6	032272 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 260
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0455

FT0	032272 000001 0   0   777677777777 0            000000000001 
FT1A	032272 000001 0   0   777677777777 0            777677777777 
FT9	032273 000001 0   0   777677777777 0            777677777777 
ET0	032273 000001 0   0   777677777777 0            777677777777 
ST1	032273 000001 0   0   777677777777 0            777677777777 
ST2	032273 000001 0   0   777677777777 0            777677777777 
ST9	032273 000001 0   0   777677777777 0            777677777777 


*032273 CAME	3,034517
INITIAL
C(AC)=777677 777777 
C(E)=777677 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032273 032273 0   0   312140034517 0            777677777777 
IT1	032273 0      0   0   312140034517 0            777677777777 
AT3	032273 0      0   0   000000034517 0            312140034517 
AT6	032273 034517 0   0   000000034517 0            312140034517 
FT0	032273 034517 0   0   777677777777 0            312140034517 
FT1A	032273 034517 0   0   777677777777 0            777677777777 
FT2	032273 034517 0   0   0            0            777677777777 
FT2RQ	032273 034517 0   0   777677777777 0            777677777777 
FT3	032273 034517 0   0   777677777777 0            777677777777 
FT9	032274 034517 0   0   777677777777 0            777677777777 
ET0	032275 034517 0   0   0            0            777677777777 
ST1A	032275 034517 0   0   0            0            777677777777 
ST9	032275 034517 0   0   0            0            777677777777 


*032275 JUMPA	0,032276
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032275 032275 0   0   324000032276 0            000000032276 
IT1	032275 0      0   0   324000032276 0            000000032276 
AT3	032275 0      0   0   000000032276 0            324000032276 
AT6	032275 032276 0   0   000000032276 0            324000032276 
FT1A	032275 032276 0   0   000000032276 0            000000032276 
FT2	032275 032276 0   0   0            0            000000032276 
FT2RQ	032275 032276 0   0   000000000017 0            000000032276 
FT3	032275 032276 0   0   000000000017 0            000000032276 
FT9	032276 032276 0   0   000000000017 0            000000032276 
ET0	032276 032276 0   0   000000000017 0            000000032276 
ST1A	032276 032276 0   0   000000000017 0            000000032276 
ST9	032276 032276 0   0   000000000017 0            000000032276 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 261
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0456


*032276 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777677 777777 
FINAL

C(E)=777677 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032276 032276 0   0   402000000003 0            000000000003 
IT1	032276 0      0   0   402000000003 0            000000000003 
AT3	032276 0      0   0   000000000003 0            402000000003 
AT6	032276 000003 0   0   000000000003 0            402000000003 
FT1A	032276 000003 0   0   000000000003 0            000000000003 
FT9	032277 000003 0   0   000000000003 0            000000000003 
ET0	032277 000003 0   0   0            0            000000000003 
ST6	032277 000003 0   0   0            0            000000000003 
ST6A	032277 000003 0   0   0            0            000000000003 
ST9	032277 000003 0   0   0            0            000000000003 


*032277 HRLOI	1,777577
INITIAL
C(AC)=777677 777777 
FINAL
C(AC)=777577 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032277 032277 0   0   525040777577 0            000000777577 
IT1	032277 0      0   0   525040777577 0            000000777577 
AT3	032277 0      0   0   000000777577 0            525040777577 
AT6	032277 777577 0   0   000000777577 0            525040777577 
FT1A	032277 777577 0   0   000000777577 0            000000777577 
FT9	0      777577 0   0   000000777577 0            000000777577 
ET0	0      777577 0   0   777577777777 0            000000777577 
ST1	0      777577 0   0   777577777777 0            000000777577 
ST2	0      777577 0   0   777577777777 0            000000777577 
ST9	0      777577 0   0   777577777777 0            000000777577 


*032300 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   201100000001 0            000000000001 
IT1	0      0      0   0   201100000001 0            000000000001 
AT3	0      0      0   0   000000000001 0            201100000001 
AT6	0      000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 262
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0457

FT1A	0      000001 0   0   000000000001 0            000000000001 
FT9	032301 000001 0   0   000000000001 0            000000000001 
ET0	032301 000001 0   0   000000000001 0            000000000001 
ST1	032301 000001 0   0   000000000001 0            000000000001 
ST2	032301 000001 0   0   000000000001 0            000000000001 
ST9	032301 000001 0   0   000000000001 0            000000000001 


*032301 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777577 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032301 032301 0   0   200142000000 0            777577777777 
IT1	032301 0      0   0   200142000000 0            777577777777 
AT1	032301 0      0   0   0            0            200142000000 
AT2	032301 0      0   0   000000000001 0            200142000000 
AT3	032301 0      0   0   000000000001 0            000000000001 
AT6	032301 000001 0   0   000000000001 0            000000000001 
FT0	032301 000001 0   0   777577777777 0            000000000001 
FT1A	032301 000001 0   0   777577777777 0            777577777777 
FT9	032302 000001 0   0   777577777777 0            777577777777 
ET0	032302 000001 0   0   777577777777 0            777577777777 
ST1	032302 000001 0   0   777577777777 0            777577777777 
ST2	032302 000001 0   0   777577777777 0            777577777777 
ST9	032302 000001 0   0   777577777777 0            777577777777 


*032302 CAME	3,034520
INITIAL
C(AC)=777577 777777 
C(E)=777577 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032302 032302 0   0   312140034520 0            777577777777 
IT1	032302 0      0   0   312140034520 0            777577777777 
AT3	032302 0      0   0   000000034520 0            312140034520 
AT6	032302 034520 0   0   000000034520 0            312140034520 
FT0	032302 034520 0   0   777577777777 0            312140034520 
FT1A	032302 034520 0   0   777577777777 0            777577777777 
FT2	032302 034520 0   0   0            0            777577777777 
FT2RQ	032302 034520 0   0   777577777777 0            777577777777 
FT3	032302 034520 0   0   777577777777 0            777577777777 
FT9	032303 034520 0   0   777577777777 0            777577777777 
ET0	032304 034520 0   0   0            0            777577777777 
ST1A	032304 034520 0   0   0            0            777577777777 
ST9	032304 034520 0   0   0            0            777577777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 263
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0458



*032304 JUMPA	0,032305
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032304 032304 0   0   324000032305 0            000000032305 
IT1	032304 0      0   0   324000032305 0            000000032305 
AT3	032304 0      0   0   000000032305 0            324000032305 
AT6	032304 032305 0   0   000000032305 0            324000032305 
FT1A	032304 032305 0   0   000000032305 0            000000032305 
FT2	032304 032305 0   0   0            0            000000032305 
FT2RQ	032304 032305 0   0   000000000017 0            000000032305 
FT3	032304 032305 0   0   000000000017 0            000000032305 
FT9	032305 032305 0   0   000000000017 0            000000032305 
ET0	032305 032305 0   0   000000000017 0            000000032305 
ST1A	032305 032305 0   0   000000000017 0            000000032305 
ST9	032305 032305 0   0   000000000017 0            000000032305 


*032305 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777577 777777 
FINAL

C(E)=777577 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032305 032305 0   0   402000000003 0            000000000003 
IT1	032305 0      0   0   402000000003 0            000000000003 
AT3	032305 0      0   0   000000000003 0            402000000003 
AT6	032305 000003 0   0   000000000003 0            402000000003 
FT1A	032305 000003 0   0   000000000003 0            000000000003 
FT9	032306 000003 0   0   000000000003 0            000000000003 
ET0	032306 000003 0   0   0            0            000000000003 
ST6	032306 000003 0   0   0            0            000000000003 
ST6A	032306 000003 0   0   0            0            000000000003 
ST9	032306 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 264
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0459

*032306 HRLOI	1,777377
INITIAL
C(AC)=777577 777777 
FINAL
C(AC)=777377 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032306 032306 0   0   525040777377 0            000000777377 
IT1	032306 0      0   0   525040777377 0            000000777377 
AT3	032306 0      0   0   000000777377 0            525040777377 
AT6	032306 777377 0   0   000000777377 0            525040777377 
FT1A	032306 777377 0   0   000000777377 0            000000777377 
FT9	032307 777377 0   0   000000777377 0            000000777377 
ET0	032307 777377 0   0   777377777777 0            000000777377 
ST1	032307 777377 0   0   777377777777 0            000000777377 
ST2	032307 777377 0   0   777377777777 0            000000777377 
ST9	032307 777377 0   0   777377777777 0            000000777377 


*032307 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032307 032307 0   0   201100000001 0            000000000001 
IT1	032307 0      0   0   201100000001 0            000000000001 
AT3	032307 0      0   0   000000000001 0            201100000001 
AT6	032307 000001 0   0   000000000001 0            201100000001 
FT1A	032307 000001 0   0   000000000001 0            000000000001 
FT9	032310 000001 0   0   000000000001 0            000000000001 
ET0	032310 000001 0   0   000000000001 0            000000000001 
ST1	032310 000001 0   0   000000000001 0            000000000001 
ST2	032310 000001 0   0   000000000001 0            000000000001 
ST9	032310 000001 0   0   000000000001 0            000000000001 


*032310 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=777377 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032310 032310 0   0   200142000000 0            777377777777 
IT1	032310 0      0   0   200142000000 0            777377777777 
AT1	032310 0      0   0   0            0            200142000000 
AT2	032310 0      0   0   000000000001 0            200142000000 
AT3	032310 0      0   0   000000000001 0            000000000001 
AT6	032310 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 265
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0460

FT0	032310 000001 0   0   777377777777 0            000000000001 
FT1A	032310 000001 0   0   777377777777 0            777377777777 
FT9	032311 000001 0   0   777377777777 0            777377777777 
ET0	032311 000001 0   0   777377777777 0            777377777777 
ST1	032311 000001 0   0   777377777777 0            777377777777 
ST2	032311 000001 0   0   777377777777 0            777377777777 
ST9	032311 000001 0   0   777377777777 0            777377777777 


*032311 CAME	3,034521
INITIAL
C(AC)=777377 777777 
C(E)=777377 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032311 032311 0   0   312140034521 0            777377777777 
IT1	032311 0      0   0   312140034521 0            777377777777 
AT3	032311 0      0   0   000000034521 0            312140034521 
AT6	032311 034521 0   0   000000034521 0            312140034521 
FT0	032311 034521 0   0   777377777777 0            312140034521 
FT1A	032311 034521 0   0   777377777777 0            777377777777 
FT2	032311 034521 0   0   0            0            777377777777 
FT2RQ	032311 034521 0   0   777377777777 0            777377777777 
FT3	032311 034521 0   0   777377777777 0            777377777777 
FT9	032312 034521 0   0   777377777777 0            777377777777 
ET0	032313 034521 0   0   0            0            777377777777 
ST1A	032313 034521 0   0   0            0            777377777777 
ST9	032313 034521 0   0   0            0            777377777777 


*032313 JUMPA	0,032314
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032313 032313 0   0   324000032314 0            000000032314 
IT1	032313 0      0   0   324000032314 0            000000032314 
AT3	032313 0      0   0   000000032314 0            324000032314 
AT6	032313 032314 0   0   000000032314 0            324000032314 
FT1A	032313 032314 0   0   000000032314 0            000000032314 
FT2	032313 032314 0   0   0            0            000000032314 
FT2RQ	032313 032314 0   0   000000000017 0            000000032314 
FT3	032313 032314 0   0   000000000017 0            000000032314 
FT9	032314 032314 0   0   000000000017 0            000000032314 
ET0	032314 032314 0   0   000000000017 0            000000032314 
ST1A	032314 032314 0   0   000000000017 0            000000032314 
ST9	032314 032314 0   0   000000000017 0            000000032314 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 266
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0461


*032314 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=777377 777777 
FINAL

C(E)=777377 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032314 032314 0   0   402000000003 0            000000000003 
IT1	032314 0      0   0   402000000003 0            000000000003 
AT3	032314 0      0   0   000000000003 0            402000000003 
AT6	032314 000003 0   0   000000000003 0            402000000003 
FT1A	032314 000003 0   0   000000000003 0            000000000003 
FT9	032315 000003 0   0   000000000003 0            000000000003 
ET0	032315 000003 0   0   0            0            000000000003 
ST6	032315 000003 0   0   0            0            000000000003 
ST6A	032315 000003 0   0   0            0            000000000003 
ST9	032315 000003 0   0   0            0            000000000003 


*032315 HRLOI	1,776777
INITIAL
C(AC)=777377 777777 
FINAL
C(AC)=776777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032315 032315 0   0   525040776777 0            000000776777 
IT1	032315 0      0   0   525040776777 0            000000776777 
AT3	032315 0      0   0   000000776777 0            525040776777 
AT6	032315 776777 0   0   000000776777 0            525040776777 
FT1A	032315 776777 0   0   000000776777 0            000000776777 
FT9	032316 776777 0   0   000000776777 0            000000776777 
ET0	032316 776777 0   0   776777777777 0            000000776777 
ST1	032316 776777 0   0   776777777777 0            000000776777 
ST2	032316 776777 0   0   776777777777 0            000000776777 
ST9	032316 776777 0   0   776777777777 0            000000776777 


*032316 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032316 032316 0   0   201100000001 0            000000000001 
IT1	032316 0      0   0   201100000001 0            000000000001 
AT3	032316 0      0   0   000000000001 0            201100000001 
AT6	032316 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 267
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0462

FT1A	032316 000001 0   0   000000000001 0            000000000001 
FT9	032317 000001 0   0   000000000001 0            000000000001 
ET0	032317 000001 0   0   000000000001 0            000000000001 
ST1	032317 000001 0   0   000000000001 0            000000000001 
ST2	032317 000001 0   0   000000000001 0            000000000001 
ST9	032317 000001 0   0   000000000001 0            000000000001 


*032317 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=776777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032317 032317 0   0   200142000000 0            776777777777 
IT1	032317 0      0   0   200142000000 0            776777777777 
AT1	032317 0      0   0   0            0            200142000000 
AT2	032317 0      0   0   000000000001 0            200142000000 
AT3	032317 0      0   0   000000000001 0            000000000001 
AT6	032317 000001 0   0   000000000001 0            000000000001 
FT0	032317 000001 0   0   776777777777 0            000000000001 
FT1A	032317 000001 0   0   776777777777 0            776777777777 
FT9	032320 000001 0   0   776777777777 0            776777777777 
ET0	032320 000001 0   0   776777777777 0            776777777777 
ST1	032320 000001 0   0   776777777777 0            776777777777 
ST2	032320 000001 0   0   776777777777 0            776777777777 
ST9	032320 000001 0   0   776777777777 0            776777777777 


*032320 CAME	3,034522
INITIAL
C(AC)=776777 777777 
C(E)=776777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032320 032320 0   0   312140034522 0            776777777777 
IT1	032320 0      0   0   312140034522 0            776777777777 
AT3	032320 0      0   0   000000034522 0            312140034522 
AT6	032320 034522 0   0   000000034522 0            312140034522 
FT0	032320 034522 0   0   776777777777 0            312140034522 
FT1A	032320 034522 0   0   776777777777 0            776777777777 
FT2	032320 034522 0   0   0            0            776777777777 
FT2RQ	032320 034522 0   0   776777777777 0            776777777777 
FT3	032320 034522 0   0   776777777777 0            776777777777 
FT9	032321 034522 0   0   776777777777 0            776777777777 
ET0	032322 034522 0   0   0            0            776777777777 
ST1A	032322 034522 0   0   0            0            776777777777 
ST9	032322 034522 0   0   0            0            776777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 268
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0463



*032322 JUMPA	0,032323
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032322 032322 0   0   324000032323 0            000000032323 
IT1	032322 0      0   0   324000032323 0            000000032323 
AT3	032322 0      0   0   000000032323 0            324000032323 
AT6	032322 032323 0   0   000000032323 0            324000032323 
FT1A	032322 032323 0   0   000000032323 0            000000032323 
FT2	032322 032323 0   0   0            0            000000032323 
FT2RQ	032322 032323 0   0   000000000017 0            000000032323 
FT3	032322 032323 0   0   000000000017 0            000000032323 
FT9	032323 032323 0   0   000000000017 0            000000032323 
ET0	032323 032323 0   0   000000000017 0            000000032323 
ST1A	032323 032323 0   0   000000000017 0            000000032323 
ST9	032323 032323 0   0   000000000017 0            000000032323 


*032323 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=776777 777777 
FINAL

C(E)=776777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032323 032323 0   0   402000000003 0            000000000003 
IT1	032323 0      0   0   402000000003 0            000000000003 
AT3	032323 0      0   0   000000000003 0            402000000003 
AT6	032323 000003 0   0   000000000003 0            402000000003 
FT1A	032323 000003 0   0   000000000003 0            000000000003 
FT9	032324 000003 0   0   000000000003 0            000000000003 
ET0	032324 000003 0   0   0            0            000000000003 
ST6	032324 000003 0   0   0            0            000000000003 
ST6A	032324 000003 0   0   0            0            000000000003 
ST9	032324 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 269
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0464

*032324 HRLOI	1,775777
INITIAL
C(AC)=776777 777777 
FINAL
C(AC)=775777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032324 032324 0   0   525040775777 0            000000775777 
IT1	032324 0      0   0   525040775777 0            000000775777 
AT3	032324 0      0   0   000000775777 0            525040775777 
AT6	032324 775777 0   0   000000775777 0            525040775777 
FT1A	032324 775777 0   0   000000775777 0            000000775777 
FT9	032325 775777 0   0   000000775777 0            000000775777 
ET0	032325 775777 0   0   775777777777 0            000000775777 
ST1	032325 775777 0   0   775777777777 0            000000775777 
ST2	032325 775777 0   0   775777777777 0            000000775777 
ST9	032325 775777 0   0   775777777777 0            000000775777 


*032325 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032325 032325 0   0   201100000001 0            000000000001 
IT1	032325 0      0   0   201100000001 0            000000000001 
AT3	032325 0      0   0   000000000001 0            201100000001 
AT6	032325 000001 0   0   000000000001 0            201100000001 
FT1A	032325 000001 0   0   000000000001 0            000000000001 
FT9	032326 000001 0   0   000000000001 0            000000000001 
ET0	032326 000001 0   0   000000000001 0            000000000001 
ST1	032326 000001 0   0   000000000001 0            000000000001 
ST2	032326 000001 0   0   000000000001 0            000000000001 
ST9	032326 000001 0   0   000000000001 0            000000000001 


*032326 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=775777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032326 032326 0   0   200142000000 0            775777777777 
IT1	032326 0      0   0   200142000000 0            775777777777 
AT1	032326 0      0   0   0            0            200142000000 
AT2	032326 0      0   0   000000000001 0            200142000000 
AT3	032326 0      0   0   000000000001 0            000000000001 
AT6	032326 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 270
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0465

FT0	032326 000001 0   0   775777777777 0            000000000001 
FT1A	032326 000001 0   0   775777777777 0            775777777777 
FT9	032327 000001 0   0   775777777777 0            775777777777 
ET0	032327 000001 0   0   775777777777 0            775777777777 
ST1	032327 000001 0   0   775777777777 0            775777777777 
ST2	032327 000001 0   0   775777777777 0            775777777777 
ST9	032327 000001 0   0   775777777777 0            775777777777 


*032327 CAME	3,034523
INITIAL
C(AC)=775777 777777 
C(E)=775777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032327 032327 0   0   312140034523 0            775777777777 
IT1	032327 0      0   0   312140034523 0            775777777777 
AT3	032327 0      0   0   000000034523 0            312140034523 
AT6	032327 034523 0   0   000000034523 0            312140034523 
FT0	032327 034523 0   0   775777777777 0            312140034523 
FT1A	032327 034523 0   0   775777777777 0            775777777777 
FT2	032327 034523 0   0   0            0            775777777777 
FT2RQ	032327 034523 0   0   775777777777 0            775777777777 
FT3	032327 034523 0   0   775777777777 0            775777777777 
FT9	032330 034523 0   0   775777777777 0            775777777777 
ET0	032331 034523 0   0   0            0            775777777777 
ST1A	032331 034523 0   0   0            0            775777777777 
ST9	032331 034523 0   0   0            0            775777777777 


*032331 JUMPA	0,032332
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032331 032331 0   0   324000032332 0            000000032332 
IT1	032331 0      0   0   324000032332 0            000000032332 
AT3	032331 0      0   0   000000032332 0            324000032332 
AT6	032331 032332 0   0   000000032332 0            324000032332 
FT1A	032331 032332 0   0   000000032332 0            000000032332 
FT2	032331 032332 0   0   0            0            000000032332 
FT2RQ	032331 032332 0   0   000000000017 0            000000032332 
FT3	032331 032332 0   0   000000000017 0            000000032332 
FT9	032332 032332 0   0   000000000017 0            000000032332 
ET0	032332 032332 0   0   000000000017 0            000000032332 
ST1A	032332 032332 0   0   000000000017 0            000000032332 
ST9	032332 032332 0   0   000000000017 0            000000032332 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 271
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0466


*032332 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=775777 777777 
FINAL

C(E)=775777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032332 032332 0   0   402000000003 0            000000000003 
IT1	032332 0      0   0   402000000003 0            000000000003 
AT3	032332 0      0   0   000000000003 0            402000000003 
AT6	032332 000003 0   0   000000000003 0            402000000003 
FT1A	032332 000003 0   0   000000000003 0            000000000003 
FT9	032333 000003 0   0   000000000003 0            000000000003 
ET0	032333 000003 0   0   0            0            000000000003 
ST6	032333 000003 0   0   0            0            000000000003 
ST6A	032333 000003 0   0   0            0            000000000003 
ST9	032333 000003 0   0   0            0            000000000003 


*032333 HRLOI	1,773777
INITIAL
C(AC)=775777 777777 
FINAL
C(AC)=773777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032333 032333 0   0   525040773777 0            000000773777 
IT1	032333 0      0   0   525040773777 0            000000773777 
AT3	032333 0      0   0   000000773777 0            525040773777 
AT6	032333 773777 0   0   000000773777 0            525040773777 
FT1A	032333 773777 0   0   000000773777 0            000000773777 
FT9	032334 773777 0   0   000000773777 0            000000773777 
ET0	032334 773777 0   0   773777777777 0            000000773777 
ST1	032334 773777 0   0   773777777777 0            000000773777 
ST2	032334 773777 0   0   773777777777 0            000000773777 
ST9	032334 773777 0   0   773777777777 0            000000773777 


*032334 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032334 032334 0   0   201100000001 0            000000000001 
IT1	032334 0      0   0   201100000001 0            000000000001 
AT3	032334 0      0   0   000000000001 0            201100000001 
AT6	032334 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 272
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0467

FT1A	032334 000001 0   0   000000000001 0            000000000001 
FT9	032335 000001 0   0   000000000001 0            000000000001 
ET0	032335 000001 0   0   000000000001 0            000000000001 
ST1	032335 000001 0   0   000000000001 0            000000000001 
ST2	032335 000001 0   0   000000000001 0            000000000001 
ST9	032335 000001 0   0   000000000001 0            000000000001 


*032335 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=773777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032335 032335 0   0   200142000000 0            773777777777 
IT1	032335 0      0   0   200142000000 0            773777777777 
AT1	032335 0      0   0   0            0            200142000000 
AT2	032335 0      0   0   000000000001 0            200142000000 
AT3	032335 0      0   0   000000000001 0            000000000001 
AT6	032335 000001 0   0   000000000001 0            000000000001 
FT0	032335 000001 0   0   773777777777 0            000000000001 
FT1A	032335 000001 0   0   773777777777 0            773777777777 
FT9	032336 000001 0   0   773777777777 0            773777777777 
ET0	032336 000001 0   0   773777777777 0            773777777777 
ST1	032336 000001 0   0   773777777777 0            773777777777 
ST2	032336 000001 0   0   773777777777 0            773777777777 
ST9	032336 000001 0   0   773777777777 0            773777777777 


*032336 CAME	3,034524
INITIAL
C(AC)=773777 777777 
C(E)=773777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032336 032336 0   0   312140034524 0            773777777777 
IT1	032336 0      0   0   312140034524 0            773777777777 
AT3	032336 0      0   0   000000034524 0            312140034524 
AT6	032336 034524 0   0   000000034524 0            312140034524 
FT0	032336 034524 0   0   773777777777 0            312140034524 
FT1A	032336 034524 0   0   773777777777 0            773777777777 
FT2	032336 034524 0   0   0            0            773777777777 
FT2RQ	032336 034524 0   0   773777777777 0            773777777777 
FT3	032336 034524 0   0   773777777777 0            773777777777 
FT9	032337 034524 0   0   773777777777 0            773777777777 
ET0	032340 034524 0   0   0            0            773777777777 
ST1A	032340 034524 0   0   0            0            773777777777 
ST9	032340 034524 0   0   0            0            773777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 273
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0468



*032340 JUMPA	0,032341
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032340 032340 0   0   324000032341 0            000000032341 
IT1	032340 0      0   0   324000032341 0            000000032341 
AT3	032340 0      0   0   000000032341 0            324000032341 
AT6	032340 032341 0   0   000000032341 0            324000032341 
FT1A	032340 032341 0   0   000000032341 0            000000032341 
FT2	032340 032341 0   0   0            0            000000032341 
FT2RQ	032340 032341 0   0   000000000017 0            000000032341 
FT3	032340 032341 0   0   000000000017 0            000000032341 
FT9	032341 032341 0   0   000000000017 0            000000032341 
ET0	032341 032341 0   0   000000000017 0            000000032341 
ST1A	032341 032341 0   0   000000000017 0            000000032341 
ST9	032341 032341 0   0   000000000017 0            000000032341 


*032341 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=773777 777777 
FINAL

C(E)=773777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032341 032341 0   0   402000000003 0            000000000003 
IT1	032341 0      0   0   402000000003 0            000000000003 
AT3	032341 0      0   0   000000000003 0            402000000003 
AT6	032341 000003 0   0   000000000003 0            402000000003 
FT1A	032341 000003 0   0   000000000003 0            000000000003 
FT9	032342 000003 0   0   000000000003 0            000000000003 
ET0	032342 000003 0   0   0            0            000000000003 
ST6	032342 000003 0   0   0            0            000000000003 
ST6A	032342 000003 0   0   0            0            000000000003 
ST9	032342 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 274
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0469

*032342 HRLOI	1,767777
INITIAL
C(AC)=773777 777777 
FINAL
C(AC)=767777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032342 032342 0   0   525040767777 0            000000767777 
IT1	032342 0      0   0   525040767777 0            000000767777 
AT3	032342 0      0   0   000000767777 0            525040767777 
AT6	032342 767777 0   0   000000767777 0            525040767777 
FT1A	032342 767777 0   0   000000767777 0            000000767777 
FT9	032343 767777 0   0   000000767777 0            000000767777 
ET0	032343 767777 0   0   767777777777 0            000000767777 
ST1	032343 767777 0   0   767777777777 0            000000767777 
ST2	032343 767777 0   0   767777777777 0            000000767777 
ST9	032343 767777 0   0   767777777777 0            000000767777 


*032343 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032343 032343 0   0   201100000001 0            000000000001 
IT1	032343 0      0   0   201100000001 0            000000000001 
AT3	032343 0      0   0   000000000001 0            201100000001 
AT6	032343 000001 0   0   000000000001 0            201100000001 
FT1A	032343 000001 0   0   000000000001 0            000000000001 
FT9	032344 000001 0   0   000000000001 0            000000000001 
ET0	032344 000001 0   0   000000000001 0            000000000001 
ST1	032344 000001 0   0   000000000001 0            000000000001 
ST2	032344 000001 0   0   000000000001 0            000000000001 
ST9	032344 000001 0   0   000000000001 0            000000000001 


*032344 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=767777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032344 032344 0   0   200142000000 0            767777777777 
IT1	032344 0      0   0   200142000000 0            767777777777 
AT1	032344 0      0   0   0            0            200142000000 
AT2	032344 0      0   0   000000000001 0            200142000000 
AT3	032344 0      0   0   000000000001 0            000000000001 
AT6	032344 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 275
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0470

FT0	032344 000001 0   0   767777777777 0            000000000001 
FT1A	032344 000001 0   0   767777777777 0            767777777777 
FT9	032345 000001 0   0   767777777777 0            767777777777 
ET0	032345 000001 0   0   767777777777 0            767777777777 
ST1	032345 000001 0   0   767777777777 0            767777777777 
ST2	032345 000001 0   0   767777777777 0            767777777777 
ST9	032345 000001 0   0   767777777777 0            767777777777 


*032345 CAME	3,034525
INITIAL
C(AC)=767777 777777 
C(E)=767777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032345 032345 0   0   312140034525 0            767777777777 
IT1	032345 0      0   0   312140034525 0            767777777777 
AT3	032345 0      0   0   000000034525 0            312140034525 
AT6	032345 034525 0   0   000000034525 0            312140034525 
FT0	032345 034525 0   0   767777777777 0            312140034525 
FT1A	032345 034525 0   0   767777777777 0            767777777777 
FT2	032345 034525 0   0   0            0            767777777777 
FT2RQ	032345 034525 0   0   767777777777 0            767777777777 
FT3	032345 034525 0   0   767777777777 0            767777777777 
FT9	032346 034525 0   0   767777777777 0            767777777777 
ET0	032347 034525 0   0   0            0            767777777777 
ST1A	032347 034525 0   0   0            0            767777777777 
ST9	032347 034525 0   0   0            0            767777777777 


*032347 JUMPA	0,032350
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032347 032347 0   0   324000032350 0            000000032350 
IT1	032347 0      0   0   324000032350 0            000000032350 
AT3	032347 0      0   0   000000032350 0            324000032350 
AT6	032347 032350 0   0   000000032350 0            324000032350 
FT1A	032347 032350 0   0   000000032350 0            000000032350 
FT2	032347 032350 0   0   0            0            000000032350 
FT2RQ	032347 032350 0   0   000000000017 0            000000032350 
FT3	032347 032350 0   0   000000000017 0            000000032350 
FT9	032350 032350 0   0   000000000017 0            000000032350 
ET0	032350 032350 0   0   000000000017 0            000000032350 
ST1A	032350 032350 0   0   000000000017 0            000000032350 
ST9	032350 032350 0   0   000000000017 0            000000032350 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 276
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0471


*032350 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=767777 777777 
FINAL

C(E)=767777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032350 032350 0   0   402000000003 0            000000000003 
IT1	032350 0      0   0   402000000003 0            000000000003 
AT3	032350 0      0   0   000000000003 0            402000000003 
AT6	032350 000003 0   0   000000000003 0            402000000003 
FT1A	032350 000003 0   0   000000000003 0            000000000003 
FT9	032351 000003 0   0   000000000003 0            000000000003 
ET0	032351 000003 0   0   0            0            000000000003 
ST6	032351 000003 0   0   0            0            000000000003 
ST6A	032351 000003 0   0   0            0            000000000003 
ST9	032351 000003 0   0   0            0            000000000003 


*032351 HRLOI	1,757777
INITIAL
C(AC)=767777 777777 
FINAL
C(AC)=757777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032351 032351 0   0   525040757777 0            000000757777 
IT1	032351 0      0   0   525040757777 0            000000757777 
AT3	032351 0      0   0   000000757777 0            525040757777 
AT6	032351 757777 0   0   000000757777 0            525040757777 
FT1A	032351 757777 0   0   000000757777 0            000000757777 
FT9	032352 757777 0   0   000000757777 0            000000757777 
ET0	032352 757777 0   0   757777777777 0            000000757777 
ST1	032352 757777 0   0   757777777777 0            000000757777 
ST2	032352 757777 0   0   757777777777 0            000000757777 
ST9	032352 757777 0   0   757777777777 0            000000757777 


*032352 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032352 032352 0   0   201100000001 0            000000000001 
IT1	032352 0      0   0   201100000001 0            000000000001 
AT3	032352 0      0   0   000000000001 0            201100000001 
AT6	032352 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 277
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0472

FT1A	032352 000001 0   0   000000000001 0            000000000001 
FT9	032353 000001 0   0   000000000001 0            000000000001 
ET0	032353 000001 0   0   000000000001 0            000000000001 
ST1	032353 000001 0   0   000000000001 0            000000000001 
ST2	032353 000001 0   0   000000000001 0            000000000001 
ST9	032353 000001 0   0   000000000001 0            000000000001 


*032353 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=757777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032353 032353 0   0   200142000000 0            757777777777 
IT1	032353 0      0   0   200142000000 0            757777777777 
AT1	032353 0      0   0   0            0            200142000000 
AT2	032353 0      0   0   000000000001 0            200142000000 
AT3	032353 0      0   0   000000000001 0            000000000001 
AT6	032353 000001 0   0   000000000001 0            000000000001 
FT0	032353 000001 0   0   757777777777 0            000000000001 
FT1A	032353 000001 0   0   757777777777 0            757777777777 
FT9	032354 000001 0   0   757777777777 0            757777777777 
ET0	032354 000001 0   0   757777777777 0            757777777777 
ST1	032354 000001 0   0   757777777777 0            757777777777 
ST2	032354 000001 0   0   757777777777 0            757777777777 
ST9	032354 000001 0   0   757777777777 0            757777777777 


*032354 CAME	3,034526
INITIAL
C(AC)=757777 777777 
C(E)=757777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032354 032354 0   0   312140034526 0            757777777777 
IT1	032354 0      0   0   312140034526 0            757777777777 
AT3	032354 0      0   0   000000034526 0            312140034526 
AT6	032354 034526 0   0   000000034526 0            312140034526 
FT0	032354 034526 0   0   757777777777 0            312140034526 
FT1A	032354 034526 0   0   757777777777 0            757777777777 
FT2	032354 034526 0   0   0            0            757777777777 
FT2RQ	032354 034526 0   0   757777777777 0            757777777777 
FT3	032354 034526 0   0   757777777777 0            757777777777 
FT9	032355 034526 0   0   757777777777 0            757777777777 
ET0	032356 034526 0   0   0            0            757777777777 
ST1A	032356 034526 0   0   0            0            757777777777 
ST9	032356 034526 0   0   0            0            757777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 278
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0473



*032356 JUMPA	0,032357
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032356 032356 0   0   324000032357 0            000000032357 
IT1	032356 0      0   0   324000032357 0            000000032357 
AT3	032356 0      0   0   000000032357 0            324000032357 
AT6	032356 032357 0   0   000000032357 0            324000032357 
FT1A	032356 032357 0   0   000000032357 0            000000032357 
FT2	032356 032357 0   0   0            0            000000032357 
FT2RQ	032356 032357 0   0   000000000017 0            000000032357 
FT3	032356 032357 0   0   000000000017 0            000000032357 
FT9	032357 032357 0   0   000000000017 0            000000032357 
ET0	032357 032357 0   0   000000000017 0            000000032357 
ST1A	032357 032357 0   0   000000000017 0            000000032357 
ST9	032357 032357 0   0   000000000017 0            000000032357 


*032357 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=757777 777777 
FINAL

C(E)=757777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032357 032357 0   0   402000000003 0            000000000003 
IT1	032357 0      0   0   402000000003 0            000000000003 
AT3	032357 0      0   0   000000000003 0            402000000003 
AT6	032357 000003 0   0   000000000003 0            402000000003 
FT1A	032357 000003 0   0   000000000003 0            000000000003 
FT9	032360 000003 0   0   000000000003 0            000000000003 
ET0	032360 000003 0   0   0            0            000000000003 
ST6	032360 000003 0   0   0            0            000000000003 
ST6A	032360 000003 0   0   0            0            000000000003 
ST9	032360 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 279
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0474

*032360 HRLOI	1,737777
INITIAL
C(AC)=757777 777777 
FINAL
C(AC)=737777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032360 032360 0   0   525040737777 0            000000737777 
IT1	032360 0      0   0   525040737777 0            000000737777 
AT3	032360 0      0   0   000000737777 0            525040737777 
AT6	032360 737777 0   0   000000737777 0            525040737777 
FT1A	032360 737777 0   0   000000737777 0            000000737777 
FT9	032361 737777 0   0   000000737777 0            000000737777 
ET0	032361 737777 0   0   737777777777 0            000000737777 
ST1	032361 737777 0   0   737777777777 0            000000737777 
ST2	032361 737777 0   0   737777777777 0            000000737777 
ST9	032361 737777 0   0   737777777777 0            000000737777 


*032361 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032361 032361 0   0   201100000001 0            000000000001 
IT1	032361 0      0   0   201100000001 0            000000000001 
AT3	032361 0      0   0   000000000001 0            201100000001 
AT6	032361 000001 0   0   000000000001 0            201100000001 
FT1A	032361 000001 0   0   000000000001 0            000000000001 
FT9	032362 000001 0   0   000000000001 0            000000000001 
ET0	032362 000001 0   0   000000000001 0            000000000001 
ST1	032362 000001 0   0   000000000001 0            000000000001 
ST2	032362 000001 0   0   000000000001 0            000000000001 
ST9	032362 000001 0   0   000000000001 0            000000000001 


*032362 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=737777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032362 032362 0   0   200142000000 0            737777777777 
IT1	032362 0      0   0   200142000000 0            737777777777 
AT1	032362 0      0   0   0            0            200142000000 
AT2	032362 0      0   0   000000000001 0            200142000000 
AT3	032362 0      0   0   000000000001 0            000000000001 
AT6	032362 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 280
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0475

FT0	032362 000001 0   0   737777777777 0            000000000001 
FT1A	032362 000001 0   0   737777777777 0            737777777777 
FT9	032363 000001 0   0   737777777777 0            737777777777 
ET0	032363 000001 0   0   737777777777 0            737777777777 
ST1	032363 000001 0   0   737777777777 0            737777777777 
ST2	032363 000001 0   0   737777777777 0            737777777777 
ST9	032363 000001 0   0   737777777777 0            737777777777 


*032363 CAME	3,034527
INITIAL
C(AC)=737777 777777 
C(E)=737777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032363 032363 0   0   312140034527 0            737777777777 
IT1	032363 0      0   0   312140034527 0            737777777777 
AT3	032363 0      0   0   000000034527 0            312140034527 
AT6	032363 034527 0   0   000000034527 0            312140034527 
FT0	032363 034527 0   0   737777777777 0            312140034527 
FT1A	032363 034527 0   0   737777777777 0            737777777777 
FT2	032363 034527 0   0   0            0            737777777777 
FT2RQ	032363 034527 0   0   737777777777 0            737777777777 
FT3	032363 034527 0   0   737777777777 0            737777777777 
FT9	032364 034527 0   0   737777777777 0            737777777777 
ET0	032365 034527 0   0   0            0            737777777777 
ST1A	032365 034527 0   0   0            0            737777777777 
ST9	032365 034527 0   0   0            0            737777777777 


*032365 JUMPA	0,032366
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032365 032365 0   0   324000032366 0            000000032366 
IT1	032365 0      0   0   324000032366 0            000000032366 
AT3	032365 0      0   0   000000032366 0            324000032366 
AT6	032365 032366 0   0   000000032366 0            324000032366 
FT1A	032365 032366 0   0   000000032366 0            000000032366 
FT2	032365 032366 0   0   0            0            000000032366 
FT2RQ	032365 032366 0   0   000000000017 0            000000032366 
FT3	032365 032366 0   0   000000000017 0            000000032366 
FT9	032366 032366 0   0   000000000017 0            000000032366 
ET0	032366 032366 0   0   000000000017 0            000000032366 
ST1A	032366 032366 0   0   000000000017 0            000000032366 
ST9	032366 032366 0   0   000000000017 0            000000032366 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 281
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0476


*032366 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=737777 777777 
FINAL

C(E)=737777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032366 032366 0   0   402000000003 0            000000000003 
IT1	032366 0      0   0   402000000003 0            000000000003 
AT3	032366 0      0   0   000000000003 0            402000000003 
AT6	032366 000003 0   0   000000000003 0            402000000003 
FT1A	032366 000003 0   0   000000000003 0            000000000003 
FT9	032367 000003 0   0   000000000003 0            000000000003 
ET0	032367 000003 0   0   0            0            000000000003 
ST6	032367 000003 0   0   0            0            000000000003 
ST6A	032367 000003 0   0   0            0            000000000003 
ST9	032367 000003 0   0   0            0            000000000003 


*032367 HRLOI	1,677777
INITIAL
C(AC)=737777 777777 
FINAL
C(AC)=677777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032367 032367 0   0   525040677777 0            000000677777 
IT1	032367 0      0   0   525040677777 0            000000677777 
AT3	032367 0      0   0   000000677777 0            525040677777 
AT6	032367 677777 0   0   000000677777 0            525040677777 
FT1A	032367 677777 0   0   000000677777 0            000000677777 
FT9	032370 677777 0   0   000000677777 0            000000677777 
ET0	032370 677777 0   0   677777777777 0            000000677777 
ST1	032370 677777 0   0   677777777777 0            000000677777 
ST2	032370 677777 0   0   677777777777 0            000000677777 
ST9	032370 677777 0   0   677777777777 0            000000677777 


*032370 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032370 032370 0   0   201100000001 0            000000000001 
IT1	032370 0      0   0   201100000001 0            000000000001 
AT3	032370 0      0   0   000000000001 0            201100000001 
AT6	032370 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 282
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0477

FT1A	032370 000001 0   0   000000000001 0            000000000001 
FT9	032371 000001 0   0   000000000001 0            000000000001 
ET0	032371 000001 0   0   000000000001 0            000000000001 
ST1	032371 000001 0   0   000000000001 0            000000000001 
ST2	032371 000001 0   0   000000000001 0            000000000001 
ST9	032371 000001 0   0   000000000001 0            000000000001 


*032371 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=677777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032371 032371 0   0   200142000000 0            677777777777 
IT1	032371 0      0   0   200142000000 0            677777777777 
AT1	032371 0      0   0   0            0            200142000000 
AT2	032371 0      0   0   000000000001 0            200142000000 
AT3	032371 0      0   0   000000000001 0            000000000001 
AT6	032371 000001 0   0   000000000001 0            000000000001 
FT0	032371 000001 0   0   677777777777 0            000000000001 
FT1A	032371 000001 0   0   677777777777 0            677777777777 
FT9	032372 000001 0   0   677777777777 0            677777777777 
ET0	032372 000001 0   0   677777777777 0            677777777777 
ST1	032372 000001 0   0   677777777777 0            677777777777 
ST2	032372 000001 0   0   677777777777 0            677777777777 
ST9	032372 000001 0   0   677777777777 0            677777777777 


*032372 CAME	3,034530
INITIAL
C(AC)=677777 777777 
C(E)=677777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032372 032372 0   0   312140034530 0            677777777777 
IT1	032372 0      0   0   312140034530 0            677777777777 
AT3	032372 0      0   0   000000034530 0            312140034530 
AT6	032372 034530 0   0   000000034530 0            312140034530 
FT0	032372 034530 0   0   677777777777 0            312140034530 
FT1A	032372 034530 0   0   677777777777 0            677777777777 
FT2	032372 034530 0   0   0            0            677777777777 
FT2RQ	032372 034530 0   0   677777777777 0            677777777777 
FT3	032372 034530 0   0   677777777777 0            677777777777 
FT9	032373 034530 0   0   677777777777 0            677777777777 
ET0	032374 034530 0   0   0            0            677777777777 
ST1A	032374 034530 0   0   0            0            677777777777 
ST9	032374 034530 0   0   0            0            677777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 283
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0478



*032374 JUMPA	0,032375
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032374 032374 0   0   324000032375 0            000000032375 
IT1	032374 0      0   0   324000032375 0            000000032375 
AT3	032374 0      0   0   000000032375 0            324000032375 
AT6	032374 032375 0   0   000000032375 0            324000032375 
FT1A	032374 032375 0   0   000000032375 0            000000032375 
FT2	032374 032375 0   0   0            0            000000032375 
FT2RQ	032374 032375 0   0   000000000017 0            000000032375 
FT3	032374 032375 0   0   000000000017 0            000000032375 
FT9	032375 032375 0   0   000000000017 0            000000032375 
ET0	032375 032375 0   0   000000000017 0            000000032375 
ST1A	032375 032375 0   0   000000000017 0            000000032375 
ST9	032375 032375 0   0   000000000017 0            000000032375 


*032375 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=677777 777777 
FINAL

C(E)=677777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032375 032375 0   0   402000000003 0            000000000003 
IT1	032375 0      0   0   402000000003 0            000000000003 
AT3	032375 0      0   0   000000000003 0            402000000003 
AT6	032375 000003 0   0   000000000003 0            402000000003 
FT1A	032375 000003 0   0   000000000003 0            000000000003 
FT9	032376 000003 0   0   000000000003 0            000000000003 
ET0	032376 000003 0   0   0            0            000000000003 
ST6	032376 000003 0   0   0            0            000000000003 
ST6A	032376 000003 0   0   0            0            000000000003 
ST9	032376 000003 0   0   0            0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 284
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0479

*032376 HRLOI	1,577777
INITIAL
C(AC)=677777 777777 
FINAL
C(AC)=577777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032376 032376 0   0   525040577777 0            000000577777 
IT1	032376 0      0   0   525040577777 0            000000577777 
AT3	032376 0      0   0   000000577777 0            525040577777 
AT6	032376 577777 0   0   000000577777 0            525040577777 
FT1A	032376 577777 0   0   000000577777 0            000000577777 
FT9	032377 577777 0   0   000000577777 0            000000577777 
ET0	032377 577777 0   0   577777777777 0            000000577777 
ST1	032377 577777 0   0   577777777777 0            000000577777 
ST2	032377 577777 0   0   577777777777 0            000000577777 
ST9	032377 577777 0   0   577777777777 0            000000577777 


*032377 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032377 032377 0   0   201100000001 0            000000000001 
IT1	032377 0      0   0   201100000001 0            000000000001 
AT3	032377 0      0   0   000000000001 0            201100000001 
AT6	032377 000001 0   0   000000000001 0            201100000001 
FT1A	032377 000001 0   0   000000000001 0            000000000001 
FT9	0      000001 0   0   000000000001 0            000000000001 
ET0	0      000001 0   0   000000000001 0            000000000001 
ST1	0      000001 0   0   000000000001 0            000000000001 
ST2	0      000001 0   0   000000000001 0            000000000001 
ST9	0      000001 0   0   000000000001 0            000000000001 


*032400 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=577777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200142000000 0            577777777777 
IT1	0      0      0   0   200142000000 0            577777777777 
AT1	0      0      0   0   0            0            200142000000 
AT2	0      0      0   0   000000000001 0            200142000000 
AT3	0      0      0   0   000000000001 0            000000000001 
AT6	0      000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 285
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0480

FT0	0      000001 0   0   577777777777 0            000000000001 
FT1A	0      000001 0   0   577777777777 0            577777777777 
FT9	032401 000001 0   0   577777777777 0            577777777777 
ET0	032401 000001 0   0   577777777777 0            577777777777 
ST1	032401 000001 0   0   577777777777 0            577777777777 
ST2	032401 000001 0   0   577777777777 0            577777777777 
ST9	032401 000001 0   0   577777777777 0            577777777777 


*032401 CAME	3,034531
INITIAL
C(AC)=577777 777777 
C(E)=577777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032401 032401 0   0   312140034531 0            577777777777 
IT1	032401 0      0   0   312140034531 0            577777777777 
AT3	032401 0      0   0   000000034531 0            312140034531 
AT6	032401 034531 0   0   000000034531 0            312140034531 
FT0	032401 034531 0   0   577777777777 0            312140034531 
FT1A	032401 034531 0   0   577777777777 0            577777777777 
FT2	032401 034531 0   0   0            0            577777777777 
FT2RQ	032401 034531 0   0   577777777777 0            577777777777 
FT3	032401 034531 0   0   577777777777 0            577777777777 
FT9	032402 034531 0   0   577777777777 0            577777777777 
ET0	032403 034531 0   0   0            0            577777777777 
ST1A	032403 034531 0   0   0            0            577777777777 
ST9	032403 034531 0   0   0            0            577777777777 


*032403 JUMPA	0,032404
INITIAL
C(AC)=000000 000017 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032403 032403 0   0   324000032404 0            000000032404 
IT1	032403 0      0   0   324000032404 0            000000032404 
AT3	032403 0      0   0   000000032404 0            324000032404 
AT6	032403 032404 0   0   000000032404 0            324000032404 
FT1A	032403 032404 0   0   000000032404 0            000000032404 
FT2	032403 032404 0   0   0            0            000000032404 
FT2RQ	032403 032404 0   0   000000000017 0            000000032404 
FT3	032403 032404 0   0   000000000017 0            000000032404 
FT9	032404 032404 0   0   000000000017 0            000000032404 
ET0	032404 032404 0   0   000000000017 0            000000032404 
ST1A	032404 032404 0   0   000000000017 0            000000032404 
ST9	032404 032404 0   0   000000000017 0            000000032404 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 286
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0481


*032404 SETZM	0,000003
INITIAL
C(AC)=000000 000017 
C(E)=577777 777777 
FINAL

C(E)=577777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032404 032404 0   0   402000000003 0            000000000003 
IT1	032404 0      0   0   402000000003 0            000000000003 
AT3	032404 0      0   0   000000000003 0            402000000003 
AT6	032404 000003 0   0   000000000003 0            402000000003 
FT1A	032404 000003 0   0   000000000003 0            000000000003 
FT9	032405 000003 0   0   000000000003 0            000000000003 
ET0	032405 000003 0   0   0            0            000000000003 
ST6	032405 000003 0   0   0            0            000000000003 
ST6A	032405 000003 0   0   0            0            000000000003 
ST9	032405 000003 0   0   0            0            000000000003 


*032405 HRLOI	1,377777
INITIAL
C(AC)=577777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032405 032405 0   0   525040377777 0            000000377777 
IT1	032405 0      0   0   525040377777 0            000000377777 
AT3	032405 0      0   0   000000377777 0            525040377777 
AT6	032405 377777 0   0   000000377777 0            525040377777 
FT1A	032405 377777 0   0   000000377777 0            000000377777 
FT9	032406 377777 0   0   000000377777 0            000000377777 
ET0	032406 377777 0   0   377777777777 0            000000377777 
ST1	032406 377777 0   0   377777777777 0            000000377777 
ST2	032406 377777 0   0   377777777777 0            000000377777 
ST9	032406 377777 0   0   377777777777 0            000000377777 


*032406 MOVEI	2,000001
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032406 032406 0   0   201100000001 0            000000000001 
IT1	032406 0      0   0   201100000001 0            000000000001 
AT3	032406 0      0   0   000000000001 0            201100000001 
AT6	032406 000001 0   0   000000000001 0            201100000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 287
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0482

FT1A	032406 000001 0   0   000000000001 0            000000000001 
FT9	032407 000001 0   0   000000000001 0            000000000001 
ET0	032407 000001 0   0   000000000001 0            000000000001 
ST1	032407 000001 0   0   000000000001 0            000000000001 
ST2	032407 000001 0   0   000000000001 0            000000000001 
ST9	032407 000001 0   0   000000000001 0            000000000001 


*032407 MOVE 	3,000000(2)
INITIAL
C(AC)=000000 000000 
C(E)=000000 000017 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032407 032407 0   0   200142000000 0            377777777777 
IT1	032407 0      0   0   200142000000 0            377777777777 
AT1	032407 0      0   0   0            0            200142000000 
AT2	032407 0      0   0   000000000001 0            200142000000 
AT3	032407 0      0   0   000000000001 0            000000000001 
AT6	032407 000001 0   0   000000000001 0            000000000001 
FT0	032407 000001 0   0   377777777777 0            000000000001 
FT1A	032407 000001 0   0   377777777777 0            377777777777 
FT9	032410 000001 0   0   377777777777 0            377777777777 
ET0	032410 000001 0   0   377777777777 0            377777777777 
ST1	032410 000001 0   0   377777777777 0            377777777777 
ST2	032410 000001 0   0   377777777777 0            377777777777 
ST9	032410 000001 0   0   377777777777 0            377777777777 


*032410 CAME	3,034532
INITIAL
C(AC)=377777 777777 
C(E)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032410 032410 0   0   312140034532 0            377777777777 
IT1	032410 0      0   0   312140034532 0            377777777777 
AT3	032410 0      0   0   000000034532 0            312140034532 
AT6	032410 034532 0   0   000000034532 0            312140034532 
FT0	032410 034532 0   0   377777777777 0            312140034532 
FT1A	032410 034532 0   0   377777777777 0            377777777777 
FT2	032410 034532 0   0   0            0            377777777777 
FT2RQ	032410 034532 0   0   377777777777 0            377777777777 
FT3	032410 034532 0   0   377777777777 0            377777777777 
FT9	032411 034532 0   0   377777777777 0            377777777777 
ET0	032412 034532 0   0   0            0            377777777777 
ST1A	032412 034532 0   0   0            0            377777777777 
ST9	032412 034532 0   0   0            0            377777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 288
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0483



*032412 JUMPA	0,032413
INITIAL
C(AC)=000000 000017 
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   000000000017 0            000000032413 
FT3	032412 032413 0   0   000000000017 0            000000032413 
FT9	032413 032413 0   0   000000000017 0            000000032413 
ET0	032413 032413 0   0   000000000017 0            000000032413 
ST1A	032413 032413 0   0   000000000017 0            000000032413 
ST9	032413 032413 0   0   000000000017 0            000000032413 


*032413 MOVEI	1,000005
INITIAL
C(AC)=377777 777777 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032413 032413 0   0   201040000005 0            000000000005 
IT1	032413 0      0   0   201040000005 0            000000000005 
AT3	032413 0      0   0   000000000005 0            201040000005 
AT6	032413 000005 0   0   000000000005 0            201040000005 
FT1A	032413 000005 0   0   000000000005 0            000000000005 
FT9	032414 000005 0   0   000000000005 0            000000000005 
ET0	032414 000005 0   0   000000000005 0            000000000005 
ST1	032414 000005 0   0   000000000005 0            000000000005 
ST2	032414 000005 0   0   000000000005 0            000000000005 
ST9	032414 000005 0   0   000000000005 0            000000000005 


*032414 MOVEI	0,000000
INITIAL
C(AC)=000000 000017 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032414 032414 0   0   201000000000 0            0            
IT1	032414 0      0   0   201000000000 0            0            
AT3	032414 0      0   0   0            0            201000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 289
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0484

AT6	032414 0      0   0   0            0            201000000000 
FT1A	032414 0      0   0   0            0            0            
FT9	032415 0      0   0   0            0            0            
ET0	032415 0      0   0   0            0            0            
ST1	032415 0      0   0   0            0            0            
ST2	032415 0      0   0   0            0            0            
ST9	032415 0      0   0   0            0            0            


*032415 CAIE	0,777773(1)
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032415 032415 0   0   302001777773 0            0            
IT1	032415 0      0   0   302001777773 0            0            
AT1	032415 0      0   0   0            0            302001777773 
AT2	032415 0      0   0   000000000005 0            302001777773 
AT3	032415 0      0   0   0            0            0            
AT6	032415 0      0   0   0            0            0            
FT1A	032415 0      0   0   0            0            0            
FT2	032415 0      0   0   0            0            0            
FT2RQ	032415 0      0   0   0            0            0            
FT3	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            


*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 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 290
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0485


*032420 MOVEI	2,000003
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032420 032420 0   0   201100000003 0            000000000003 
IT1	032420 0      0   0   201100000003 0            000000000003 
AT3	032420 0      0   0   000000000003 0            201100000003 
AT6	032420 000003 0   0   000000000003 0            201100000003 
FT1A	032420 000003 0   0   000000000003 0            000000000003 
FT9	032421 000003 0   0   000000000003 0            000000000003 
ET0	032421 000003 0   0   000000000003 0            000000000003 
ST1	032421 000003 0   0   000000000003 0            000000000003 
ST2	032421 000003 0   0   000000000003 0            000000000003 
ST9	032421 000003 0   0   000000000003 0            000000000003 


*032421 MOVEI	1,000001
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032421 032421 0   0   201040000001 0            000000000001 
IT1	032421 0      0   0   201040000001 0            000000000001 
AT3	032421 0      0   0   000000000001 0            201040000001 
AT6	032421 000001 0   0   000000000001 0            201040000001 
FT1A	032421 000001 0   0   000000000001 0            000000000001 
FT9	032422 000001 0   0   000000000001 0            000000000001 
ET0	032422 000001 0   0   000000000001 0            000000000001 
ST1	032422 000001 0   0   000000000001 0            000000000001 
ST2	032422 000001 0   0   000000000001 0            000000000001 
ST9	032422 000001 0   0   000000000001 0            000000000001 


*032422 CAIE	1,777776(2)
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032422 032422 0   0   302042777776 0            000000000001 
IT1	032422 0      0   0   302042777776 0            000000000001 
AT1	032422 0      0   0   0            0            302042777776 
AT2	032422 0      0   0   000000000003 0            302042777776 
AT3	032422 0      0   0   000000000001 0            000000000001 
AT6	032422 000001 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 291
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0486

FT1A	032422 000001 0   0   000000000001 0            000000000001 
FT2	032422 000001 0   0   0            0            000000000001 
FT2RQ	032422 000001 0   0   000000000001 0            000000000001 
FT3	032422 000001 0   0   000000000001 0            000000000001 
FT9	032423 000001 0   0   000000000001 0            000000000001 
ET0	032424 000001 0   0   0            0            000000000001 
ST1A	032424 000001 0   0   0            0            000000000001 
ST9	032424 000001 0   0   0            0            000000000001 


*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 MOVEI	3,000001
INITIAL
C(AC)=377777 777777 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032425 032425 0   0   201140000001 0            000000000001 
IT1	032425 0      0   0   201140000001 0            000000000001 
AT3	032425 0      0   0   000000000001 0            201140000001 
AT6	032425 000001 0   0   000000000001 0            201140000001 
FT1A	032425 000001 0   0   000000000001 0            000000000001 
FT9	032426 000001 0   0   000000000001 0            000000000001 
ET0	032426 000001 0   0   000000000001 0            000000000001 
ST1	032426 000001 0   0   000000000001 0            000000000001 
ST2	032426 000001 0   0   000000000001 0            000000000001 
ST9	032426 000001 0   0   000000000001 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 292
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0487

*032426 MOVEI	2,000002
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032426 032426 0   0   201100000002 0            000000000002 
IT1	032426 0      0   0   201100000002 0            000000000002 
AT3	032426 0      0   0   000000000002 0            201100000002 
AT6	032426 000002 0   0   000000000002 0            201100000002 
FT1A	032426 000002 0   0   000000000002 0            000000000002 
FT9	032427 000002 0   0   000000000002 0            000000000002 
ET0	032427 000002 0   0   000000000002 0            000000000002 
ST1	032427 000002 0   0   000000000002 0            000000000002 
ST2	032427 000002 0   0   000000000002 0            000000000002 
ST9	032427 000002 0   0   000000000002 0            000000000002 


*032427 CAIE	2,000001(3)
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032427 032427 0   0   302103000001 0            000000000002 
IT1	032427 0      0   0   302103000001 0            000000000002 
AT1	032427 0      0   0   0            0            302103000001 
AT2	032427 0      0   0   000000000001 0            302103000001 
AT3	032427 0      0   0   000000000002 0            000000000002 
AT6	032427 000002 0   0   000000000002 0            000000000002 
FT1A	032427 000002 0   0   000000000002 0            000000000002 
FT2	032427 000002 0   0   0            0            000000000002 
FT2RQ	032427 000002 0   0   000000000002 0            000000000002 
FT3	032427 000002 0   0   000000000002 0            000000000002 
FT9	032430 000002 0   0   000000000002 0            000000000002 
ET0	032431 000002 0   0   0            0            000000000002 
ST1A	032431 000002 0   0   0            0            000000000002 
ST9	032431 000002 0   0   0            0            000000000002 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 293
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0488

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 
ST9	032432 032432 0   0   0            0            000000032432 


*032432 MOVEI	4,777777
INITIAL
C(AC)=000004 000004 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032432 032432 0   0   201200777777 0            000000777777 
IT1	032432 0      0   0   201200777777 0            000000777777 
AT3	032432 0      0   0   000000777777 0            201200777777 
AT6	032432 777777 0   0   000000777777 0            201200777777 
FT1A	032432 777777 0   0   000000777777 0            000000777777 
FT9	032433 777777 0   0   000000777777 0            000000777777 
ET0	032433 777777 0   0   000000777777 0            000000777777 
ST1	032433 777777 0   0   000000777777 0            000000777777 
ST2	032433 777777 0   0   000000777777 0            000000777777 
ST9	032433 777777 0   0   000000777777 0            000000777777 


*032433 MOVEI	3,000003
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032433 032433 0   0   201140000003 0            000000000003 
IT1	032433 0      0   0   201140000003 0            000000000003 
AT3	032433 0      0   0   000000000003 0            201140000003 
AT6	032433 000003 0   0   000000000003 0            201140000003 
FT1A	032433 000003 0   0   000000000003 0            000000000003 
FT9	032434 000003 0   0   000000000003 0            000000000003 
ET0	032434 000003 0   0   000000000003 0            000000000003 
ST1	032434 000003 0   0   000000000003 0            000000000003 
ST2	032434 000003 0   0   000000000003 0            000000000003 
ST9	032434 000003 0   0   000000000003 0            000000000003 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 294
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0489

*032434 CAIE	3,000004(4)
INITIAL
C(AC)=000000 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032434 032434 0   0   302144000004 0            000000000003 
IT1	032434 0      0   0   302144000004 0            000000000003 
AT1	032434 0      0   0   0            0            302144000004 
AT2	032434 0      0   0   000000777777 0            302144000004 
AT3	032434 0      0   0   000000000003 0            000000000003 
AT6	032434 000003 0   0   000000000003 0            000000000003 
FT1A	032434 000003 0   0   000000000003 0            000000000003 
FT2	032434 000003 0   0   0            0            000000000003 
FT2RQ	032434 000003 0   0   000000000003 0            000000000003 
FT3	032434 000003 0   0   000000000003 0            000000000003 
FT9	032435 000003 0   0   000000000003 0            000000000003 
ET0	032436 000003 0   0   0            0            000000000003 
ST1A	032436 000003 0   0   0            0            000000000003 
ST9	032436 000003 0   0   0            0            000000000003 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 295
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0490

*032437 MOVEI	5,777775
INITIAL
C(AC)=000005 000005 
FINAL
C(AC)=000000 777775 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032437 032437 0   0   201240777775 0            000000777775 
IT1	032437 0      0   0   201240777775 0            000000777775 
AT3	032437 0      0   0   000000777775 0            201240777775 
AT6	032437 777775 0   0   000000777775 0            201240777775 
FT1A	032437 777775 0   0   000000777775 0            000000777775 
FT9	032440 777775 0   0   000000777775 0            000000777775 
ET0	032440 777775 0   0   000000777775 0            000000777775 
ST1	032440 777775 0   0   000000777775 0            000000777775 
ST2	032440 777775 0   0   000000777775 0            000000777775 
ST9	032440 777775 0   0   000000777775 0            000000777775 


*032440 MOVEI	4,000004
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032440 032440 0   0   201200000004 0            000000000004 
IT1	032440 0      0   0   201200000004 0            000000000004 
AT3	032440 0      0   0   000000000004 0            201200000004 
AT6	032440 000004 0   0   000000000004 0            201200000004 
FT1A	032440 000004 0   0   000000000004 0            000000000004 
FT9	032441 000004 0   0   000000000004 0            000000000004 
ET0	032441 000004 0   0   000000000004 0            000000000004 
ST1	032441 000004 0   0   000000000004 0            000000000004 
ST2	032441 000004 0   0   000000000004 0            000000000004 
ST9	032441 000004 0   0   000000000004 0            000000000004 


*032441 CAIE	4,000007(5)
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032441 032441 0   0   302205000007 0            000000000004 
IT1	032441 0      0   0   302205000007 0            000000000004 
AT1	032441 0      0   0   0            0            302205000007 
AT2	032441 0      0   0   000000777775 0            302205000007 
AT3	032441 0      0   0   000000000004 0            000000000004 
AT6	032441 000004 0   0   000000000004 0            000000000004 
FT1A	032441 000004 0   0   000000000004 0            000000000004 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 296
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0491

FT2	032441 000004 0   0   0            0            000000000004 
FT2RQ	032441 000004 0   0   000000000004 0            000000000004 
FT3	032441 000004 0   0   000000000004 0            000000000004 
FT9	032442 000004 0   0   000000000004 0            000000000004 
ET0	032443 000004 0   0   0            0            000000000004 
ST1A	032443 000004 0   0   0            0            000000000004 
ST9	032443 000004 0   0   0            0            000000000004 


*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 MOVEI	6,777773
INITIAL
C(AC)=000006 000006 
FINAL
C(AC)=000000 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032444 032444 0   0   201300777773 0            000000777773 
IT1	032444 0      0   0   201300777773 0            000000777773 
AT3	032444 0      0   0   000000777773 0            201300777773 
AT6	032444 777773 0   0   000000777773 0            201300777773 
FT1A	032444 777773 0   0   000000777773 0            000000777773 
FT9	032445 777773 0   0   000000777773 0            000000777773 
ET0	032445 777773 0   0   000000777773 0            000000777773 
ST1	032445 777773 0   0   000000777773 0            000000777773 
ST2	032445 777773 0   0   000000777773 0            000000777773 
ST9	032445 777773 0   0   000000777773 0            000000777773 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 297
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0492

*032445 MOVEI	5,000005
INITIAL
C(AC)=000000 777775 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032445 032445 0   0   201240000005 0            000000000005 
IT1	032445 0      0   0   201240000005 0            000000000005 
AT3	032445 0      0   0   000000000005 0            201240000005 
AT6	032445 000005 0   0   000000000005 0            201240000005 
FT1A	032445 000005 0   0   000000000005 0            000000000005 
FT9	032446 000005 0   0   000000000005 0            000000000005 
ET0	032446 000005 0   0   000000000005 0            000000000005 
ST1	032446 000005 0   0   000000000005 0            000000000005 
ST2	032446 000005 0   0   000000000005 0            000000000005 
ST9	032446 000005 0   0   000000000005 0            000000000005 


*032446 CAIE	5,000012(6)
INITIAL
C(AC)=000000 000005 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032446 032446 0   0   302246000012 0            000000000005 
IT1	032446 0      0   0   302246000012 0            000000000005 
AT1	032446 0      0   0   0            0            302246000012 
AT2	032446 0      0   0   000000777773 0            302246000012 
AT3	032446 0      0   0   000000000005 0            000000000005 
AT6	032446 000005 0   0   000000000005 0            000000000005 
FT1A	032446 000005 0   0   000000000005 0            000000000005 
FT2	032446 000005 0   0   0            0            000000000005 
FT2RQ	032446 000005 0   0   000000000005 0            000000000005 
FT3	032446 000005 0   0   000000000005 0            000000000005 
FT9	032447 000005 0   0   000000000005 0            000000000005 
ET0	032450 000005 0   0   0            0            000000000005 
ST1A	032450 000005 0   0   0            0            000000000005 
ST9	032450 000005 0   0   0            0            000000000005 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 298
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0493

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 MOVEI	7,777771
INITIAL
C(AC)=000007 000007 
FINAL
C(AC)=000000 777771 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032451 032451 0   0   201340777771 0            000000777771 
IT1	032451 0      0   0   201340777771 0            000000777771 
AT3	032451 0      0   0   000000777771 0            201340777771 
AT6	032451 777771 0   0   000000777771 0            201340777771 
FT1A	032451 777771 0   0   000000777771 0            000000777771 
FT9	032452 777771 0   0   000000777771 0            000000777771 
ET0	032452 777771 0   0   000000777771 0            000000777771 
ST1	032452 777771 0   0   000000777771 0            000000777771 
ST2	032452 777771 0   0   000000777771 0            000000777771 
ST9	032452 777771 0   0   000000777771 0            000000777771 


*032452 MOVEI	6,000006
INITIAL
C(AC)=000000 777773 
FINAL
C(AC)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032452 032452 0   0   201300000006 0            000000000006 
IT1	032452 0      0   0   201300000006 0            000000000006 
AT3	032452 0      0   0   000000000006 0            201300000006 
AT6	032452 000006 0   0   000000000006 0            201300000006 
FT1A	032452 000006 0   0   000000000006 0            000000000006 
FT9	032453 000006 0   0   000000000006 0            000000000006 
ET0	032453 000006 0   0   000000000006 0            000000000006 
ST1	032453 000006 0   0   000000000006 0            000000000006 
ST2	032453 000006 0   0   000000000006 0            000000000006 
ST9	032453 000006 0   0   000000000006 0            000000000006 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 299
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0494

*032453 CAIE	6,000015(7)
INITIAL
C(AC)=000000 000006 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032453 032453 0   0   302307000015 0            000000000006 
IT1	032453 0      0   0   302307000015 0            000000000006 
AT1	032453 0      0   0   0            0            302307000015 
AT2	032453 0      0   0   000000777771 0            302307000015 
AT3	032453 0      0   0   000000000006 0            000000000006 
AT6	032453 000006 0   0   000000000006 0            000000000006 
FT1A	032453 000006 0   0   000000000006 0            000000000006 
FT2	032453 000006 0   0   0            0            000000000006 
FT2RQ	032453 000006 0   0   000000000006 0            000000000006 
FT3	032453 000006 0   0   000000000006 0            000000000006 
FT9	032454 000006 0   0   000000000006 0            000000000006 
ET0	032455 000006 0   0   0            0            000000000006 
ST1A	032455 000006 0   0   0            0            000000000006 
ST9	032455 000006 0   0   0            0            000000000006 


*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 
ST9	032456 032456 0   0   0            0            000000032456 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 300
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0495

*032456 MOVEI	10,777767
INITIAL
C(AC)=000010 000010 
FINAL
C(AC)=000000 777767 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032456 032456 0   0   201400777767 0            000000777767 
IT1	032456 0      0   0   201400777767 0            000000777767 
AT3	032456 0      0   0   000000777767 0            201400777767 
AT6	032456 777767 0   0   000000777767 0            201400777767 
FT1A	032456 777767 0   0   000000777767 0            000000777767 
FT9	032457 777767 0   0   000000777767 0            000000777767 
ET0	032457 777767 0   0   000000777767 0            000000777767 
ST1	032457 777767 0   0   000000777767 0            000000777767 
ST2	032457 777767 0   0   000000777767 0            000000777767 
ST9	032457 777767 0   0   000000777767 0            000000777767 


*032457 MOVEI	7,000007
INITIAL
C(AC)=000000 777771 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032457 032457 0   0   201340000007 0            000000000007 
IT1	032457 0      0   0   201340000007 0            000000000007 
AT3	032457 0      0   0   000000000007 0            201340000007 
AT6	032457 000007 0   0   000000000007 0            201340000007 
FT1A	032457 000007 0   0   000000000007 0            000000000007 
FT9	032460 000007 0   0   000000000007 0            000000000007 
ET0	032460 000007 0   0   000000000007 0            000000000007 
ST1	032460 000007 0   0   000000000007 0            000000000007 
ST2	032460 000007 0   0   000000000007 0            000000000007 
ST9	032460 000007 0   0   000000000007 0            000000000007 


*032460 CAIE	7,000020(10)
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032460 032460 0   0   302350000020 0            000000000007 
IT1	032460 0      0   0   302350000020 0            000000000007 
AT1	032460 0      0   0   0            0            302350000020 
AT2	032460 0      0   0   000000777767 0            302350000020 
AT3	032460 0      0   0   000000000007 0            000000000007 
AT6	032460 000007 0   0   000000000007 0            000000000007 
FT1A	032460 000007 0   0   000000000007 0            000000000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 301
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0496

FT2	032460 000007 0   0   0            0            000000000007 
FT2RQ	032460 000007 0   0   000000000007 0            000000000007 
FT3	032460 000007 0   0   000000000007 0            000000000007 
FT9	032461 000007 0   0   000000000007 0            000000000007 
ET0	032462 000007 0   0   0            0            000000000007 
ST1A	032462 000007 0   0   0            0            000000000007 
ST9	032462 000007 0   0   0            0            000000000007 


*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 MOVEI	11,777765
INITIAL
C(AC)=000011 000011 
FINAL
C(AC)=000000 777765 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032463 032463 0   0   201440777765 0            000000777765 
IT1	032463 0      0   0   201440777765 0            000000777765 
AT3	032463 0      0   0   000000777765 0            201440777765 
AT6	032463 777765 0   0   000000777765 0            201440777765 
FT1A	032463 777765 0   0   000000777765 0            000000777765 
FT9	032464 777765 0   0   000000777765 0            000000777765 
ET0	032464 777765 0   0   000000777765 0            000000777765 
ST1	032464 777765 0   0   000000777765 0            000000777765 
ST2	032464 777765 0   0   000000777765 0            000000777765 
ST9	032464 777765 0   0   000000777765 0            000000777765 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 302
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0497

*032464 MOVEI	10,000010
INITIAL
C(AC)=000000 777767 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032464 032464 0   0   201400000010 0            000000000010 
IT1	032464 0      0   0   201400000010 0            000000000010 
AT3	032464 0      0   0   000000000010 0            201400000010 
AT6	032464 000010 0   0   000000000010 0            201400000010 
FT1A	032464 000010 0   0   000000000010 0            000000000010 
FT9	032465 000010 0   0   000000000010 0            000000000010 
ET0	032465 000010 0   0   000000000010 0            000000000010 
ST1	032465 000010 0   0   000000000010 0            000000000010 
ST2	032465 000010 0   0   000000000010 0            000000000010 
ST9	032465 000010 0   0   000000000010 0            000000000010 


*032465 CAIE	10,000023(11)
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032465 032465 0   0   302411000023 0            000000000010 
IT1	032465 0      0   0   302411000023 0            000000000010 
AT1	032465 0      0   0   0            0            302411000023 
AT2	032465 0      0   0   000000777765 0            302411000023 
AT3	032465 0      0   0   000000000010 0            000000000010 
AT6	032465 000010 0   0   000000000010 0            000000000010 
FT1A	032465 000010 0   0   000000000010 0            000000000010 
FT2	032465 000010 0   0   0            0            000000000010 
FT2RQ	032465 000010 0   0   000000000010 0            000000000010 
FT3	032465 000010 0   0   000000000010 0            000000000010 
FT9	032466 000010 0   0   000000000010 0            000000000010 
ET0	032467 000010 0   0   0            0            000000000010 
ST1A	032467 000010 0   0   0            0            000000000010 
ST9	032467 000010 0   0   0            0            000000000010 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 303
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0498

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 MOVEI	12,777763
INITIAL
C(AC)=000012 000012 
FINAL
C(AC)=000000 777763 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032470 032470 0   0   201500777763 0            000000777763 
IT1	032470 0      0   0   201500777763 0            000000777763 
AT3	032470 0      0   0   000000777763 0            201500777763 
AT6	032470 777763 0   0   000000777763 0            201500777763 
FT1A	032470 777763 0   0   000000777763 0            000000777763 
FT9	032471 777763 0   0   000000777763 0            000000777763 
ET0	032471 777763 0   0   000000777763 0            000000777763 
ST1	032471 777763 0   0   000000777763 0            000000777763 
ST2	032471 777763 0   0   000000777763 0            000000777763 
ST9	032471 777763 0   0   000000777763 0            000000777763 


*032471 MOVEI	11,000011
INITIAL
C(AC)=000000 777765 
FINAL
C(AC)=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032471 032471 0   0   201440000011 0            000000000011 
IT1	032471 0      0   0   201440000011 0            000000000011 
AT3	032471 0      0   0   000000000011 0            201440000011 
AT6	032471 000011 0   0   000000000011 0            201440000011 
FT1A	032471 000011 0   0   000000000011 0            000000000011 
FT9	032472 000011 0   0   000000000011 0            000000000011 
ET0	032472 000011 0   0   000000000011 0            000000000011 
ST1	032472 000011 0   0   000000000011 0            000000000011 
ST2	032472 000011 0   0   000000000011 0            000000000011 
ST9	032472 000011 0   0   000000000011 0            000000000011 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 304
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0499

*032472 CAIE	11,000026(12)
INITIAL
C(AC)=000000 000011 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032472 032472 0   0   302452000026 0            000000000011 
IT1	032472 0      0   0   302452000026 0            000000000011 
AT1	032472 0      0   0   0            0            302452000026 
AT2	032472 0      0   0   000000777763 0            302452000026 
AT3	032472 0      0   0   000000000011 0            000000000011 
AT6	032472 000011 0   0   000000000011 0            000000000011 
FT1A	032472 000011 0   0   000000000011 0            000000000011 
FT2	032472 000011 0   0   0            0            000000000011 
FT2RQ	032472 000011 0   0   000000000011 0            000000000011 
FT3	032472 000011 0   0   000000000011 0            000000000011 
FT9	032473 000011 0   0   000000000011 0            000000000011 
ET0	032474 000011 0   0   0            0            000000000011 
ST1A	032474 000011 0   0   0            0            000000000011 
ST9	032474 000011 0   0   0            0            000000000011 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 305
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0500

*032475 MOVEI	13,777761
INITIAL
C(AC)=000013 000013 
FINAL
C(AC)=000000 777761 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032475 032475 0   0   201540777761 0            000000777761 
IT1	032475 0      0   0   201540777761 0            000000777761 
AT3	032475 0      0   0   000000777761 0            201540777761 
AT6	032475 777761 0   0   000000777761 0            201540777761 
FT1A	032475 777761 0   0   000000777761 0            000000777761 
FT9	032476 777761 0   0   000000777761 0            000000777761 
ET0	032476 777761 0   0   000000777761 0            000000777761 
ST1	032476 777761 0   0   000000777761 0            000000777761 
ST2	032476 777761 0   0   000000777761 0            000000777761 
ST9	032476 777761 0   0   000000777761 0            000000777761 


*032476 MOVEI	12,000012
INITIAL
C(AC)=000000 777763 
FINAL
C(AC)=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032476 032476 0   0   201500000012 0            000000000012 
IT1	032476 0      0   0   201500000012 0            000000000012 
AT3	032476 0      0   0   000000000012 0            201500000012 
AT6	032476 000012 0   0   000000000012 0            201500000012 
FT1A	032476 000012 0   0   000000000012 0            000000000012 
FT9	032477 000012 0   0   000000000012 0            000000000012 
ET0	032477 000012 0   0   000000000012 0            000000000012 
ST1	032477 000012 0   0   000000000012 0            000000000012 
ST2	032477 000012 0   0   000000000012 0            000000000012 
ST9	032477 000012 0   0   000000000012 0            000000000012 


*032477 CAIE	12,000031(13)
INITIAL
C(AC)=000000 000012 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032477 032477 0   0   302513000031 0            000000000012 
IT1	032477 0      0   0   302513000031 0            000000000012 
AT1	032477 0      0   0   0            0            302513000031 
AT2	032477 0      0   0   000000777761 0            302513000031 
AT3	032477 0      0   0   000000000012 0            000000000012 
AT6	032477 000012 0   0   000000000012 0            000000000012 
FT1A	032477 000012 0   0   000000000012 0            000000000012 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 306
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0501

FT2	032477 000012 0   0   0            0            000000000012 
FT2RQ	032477 000012 0   0   000000000012 0            000000000012 
FT3	032477 000012 0   0   000000000012 0            000000000012 
FT9	0      000012 0   0   000000000012 0            000000000012 
ET0	032501 000012 0   0   0            0            000000000012 
ST1A	032501 000012 0   0   0            0            000000000012 
ST9	032501 000012 0   0   0            0            000000000012 


*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 
ST9	032502 032502 0   0   0            0            000000032502 


*032502 MOVEI	14,777757
INITIAL
C(AC)=000014 000014 
FINAL
C(AC)=000000 777757 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032502 032502 0   0   201600777757 0            000000777757 
IT1	032502 0      0   0   201600777757 0            000000777757 
AT3	032502 0      0   0   000000777757 0            201600777757 
AT6	032502 777757 0   0   000000777757 0            201600777757 
FT1A	032502 777757 0   0   000000777757 0            000000777757 
FT9	032503 777757 0   0   000000777757 0            000000777757 
ET0	032503 777757 0   0   000000777757 0            000000777757 
ST1	032503 777757 0   0   000000777757 0            000000777757 
ST2	032503 777757 0   0   000000777757 0            000000777757 
ST9	032503 777757 0   0   000000777757 0            000000777757 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 307
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0502

*032503 MOVEI	13,000013
INITIAL
C(AC)=000000 777761 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032503 032503 0   0   201540000013 0            000000000013 
IT1	032503 0      0   0   201540000013 0            000000000013 
AT3	032503 0      0   0   000000000013 0            201540000013 
AT6	032503 000013 0   0   000000000013 0            201540000013 
FT1A	032503 000013 0   0   000000000013 0            000000000013 
FT9	032504 000013 0   0   000000000013 0            000000000013 
ET0	032504 000013 0   0   000000000013 0            000000000013 
ST1	032504 000013 0   0   000000000013 0            000000000013 
ST2	032504 000013 0   0   000000000013 0            000000000013 
ST9	032504 000013 0   0   000000000013 0            000000000013 


*032504 CAIE	13,000034(14)
INITIAL
C(AC)=000000 000013 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032504 032504 0   0   302554000034 0            000000000013 
IT1	032504 0      0   0   302554000034 0            000000000013 
AT1	032504 0      0   0   0            0            302554000034 
AT2	032504 0      0   0   000000777757 0            302554000034 
AT3	032504 0      0   0   000000000013 0            000000000013 
AT6	032504 000013 0   0   000000000013 0            000000000013 
FT1A	032504 000013 0   0   000000000013 0            000000000013 
FT2	032504 000013 0   0   0            0            000000000013 
FT2RQ	032504 000013 0   0   000000000013 0            000000000013 
FT3	032504 000013 0   0   000000000013 0            000000000013 
FT9	032505 000013 0   0   000000000013 0            000000000013 
ET0	032506 000013 0   0   0            0            000000000013 
ST1A	032506 000013 0   0   0            0            000000000013 
ST9	032506 000013 0   0   0            0            000000000013 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 308
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0503

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 MOVEI	15,777755
INITIAL
C(AC)=000015 000015 
FINAL
C(AC)=000000 777755 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032507 032507 0   0   201640777755 0            000000777755 
IT1	032507 0      0   0   201640777755 0            000000777755 
AT3	032507 0      0   0   000000777755 0            201640777755 
AT6	032507 777755 0   0   000000777755 0            201640777755 
FT1A	032507 777755 0   0   000000777755 0            000000777755 
FT9	032510 777755 0   0   000000777755 0            000000777755 
ET0	032510 777755 0   0   000000777755 0            000000777755 
ST1	032510 777755 0   0   000000777755 0            000000777755 
ST2	032510 777755 0   0   000000777755 0            000000777755 
ST9	032510 777755 0   0   000000777755 0            000000777755 


*032510 MOVEI	14,000014
INITIAL
C(AC)=000000 777757 
FINAL
C(AC)=000000 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032510 032510 0   0   201600000014 0            000000000014 
IT1	032510 0      0   0   201600000014 0            000000000014 
AT3	032510 0      0   0   000000000014 0            201600000014 
AT6	032510 000014 0   0   000000000014 0            201600000014 
FT1A	032510 000014 0   0   000000000014 0            000000000014 
FT9	032511 000014 0   0   000000000014 0            000000000014 
ET0	032511 000014 0   0   000000000014 0            000000000014 
ST1	032511 000014 0   0   000000000014 0            000000000014 
ST2	032511 000014 0   0   000000000014 0            000000000014 
ST9	032511 000014 0   0   000000000014 0            000000000014 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 309
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0504

*032511 CAIE	14,000037(15)
INITIAL
C(AC)=000000 000014 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032511 032511 0   0   302615000037 0            000000000014 
IT1	032511 0      0   0   302615000037 0            000000000014 
AT1	032511 0      0   0   0            0            302615000037 
AT2	032511 0      0   0   000000777755 0            302615000037 
AT3	032511 0      0   0   000000000014 0            000000000014 
AT6	032511 000014 0   0   000000000014 0            000000000014 
FT1A	032511 000014 0   0   000000000014 0            000000000014 
FT2	032511 000014 0   0   0            0            000000000014 
FT2RQ	032511 000014 0   0   000000000014 0            000000000014 
FT3	032511 000014 0   0   000000000014 0            000000000014 
FT9	032512 000014 0   0   000000000014 0            000000000014 
ET0	032513 000014 0   0   0            0            000000000014 
ST1A	032513 000014 0   0   0            0            000000000014 
ST9	032513 000014 0   0   0            0            000000000014 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 310
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0505

*032514 MOVEI	16,777753
INITIAL
C(AC)=000016 000016 
FINAL
C(AC)=000000 777753 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032514 032514 0   0   201700777753 0            000000777753 
IT1	032514 0      0   0   201700777753 0            000000777753 
AT3	032514 0      0   0   000000777753 0            201700777753 
AT6	032514 777753 0   0   000000777753 0            201700777753 
FT1A	032514 777753 0   0   000000777753 0            000000777753 
FT9	032515 777753 0   0   000000777753 0            000000777753 
ET0	032515 777753 0   0   000000777753 0            000000777753 
ST1	032515 777753 0   0   000000777753 0            000000777753 
ST2	032515 777753 0   0   000000777753 0            000000777753 
ST9	032515 777753 0   0   000000777753 0            000000777753 


*032515 MOVEI	15,000015
INITIAL
C(AC)=000000 777755 
FINAL
C(AC)=000000 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032515 032515 0   0   201640000015 0            000000000015 
IT1	032515 0      0   0   201640000015 0            000000000015 
AT3	032515 0      0   0   000000000015 0            201640000015 
AT6	032515 000015 0   0   000000000015 0            201640000015 
FT1A	032515 000015 0   0   000000000015 0            000000000015 
FT9	032516 000015 0   0   000000000015 0            000000000015 
ET0	032516 000015 0   0   000000000015 0            000000000015 
ST1	032516 000015 0   0   000000000015 0            000000000015 
ST2	032516 000015 0   0   000000000015 0            000000000015 
ST9	032516 000015 0   0   000000000015 0            000000000015 


*032516 CAIE	15,000042(16)
INITIAL
C(AC)=000000 000015 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032516 032516 0   0   302656000042 0            000000000015 
IT1	032516 0      0   0   302656000042 0            000000000015 
AT1	032516 0      0   0   0            0            302656000042 
AT2	032516 0      0   0   000000777753 0            302656000042 
AT3	032516 0      0   0   000000000015 0            000000000015 
AT6	032516 000015 0   0   000000000015 0            000000000015 
FT1A	032516 000015 0   0   000000000015 0            000000000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 311
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0506

FT2	032516 000015 0   0   0            0            000000000015 
FT2RQ	032516 000015 0   0   000000000015 0            000000000015 
FT3	032516 000015 0   0   000000000015 0            000000000015 
FT9	032517 000015 0   0   000000000015 0            000000000015 
ET0	032520 000015 0   0   0            0            000000000015 
ST1A	032520 000015 0   0   0            0            000000000015 
ST9	032520 000015 0   0   0            0            000000000015 


*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 MOVEI	17,777751
INITIAL
C(AC)=000017 000017 
FINAL
C(AC)=000000 777751 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032521 032521 0   0   201740777751 0            000000777751 
IT1	032521 0      0   0   201740777751 0            000000777751 
AT3	032521 0      0   0   000000777751 0            201740777751 
AT6	032521 777751 0   0   000000777751 0            201740777751 
FT1A	032521 777751 0   0   000000777751 0            000000777751 
FT9	032522 777751 0   0   000000777751 0            000000777751 
ET0	032522 777751 0   0   000000777751 0            000000777751 
ST1	032522 777751 0   0   000000777751 0            000000777751 
ST2	032522 777751 0   0   000000777751 0            000000777751 
ST9	032522 777751 0   0   000000777751 0            000000777751 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 312
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0507

*032522 MOVEI	16,000016
INITIAL
C(AC)=000000 777753 
FINAL
C(AC)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032522 032522 0   0   201700000016 0            000000000016 
IT1	032522 0      0   0   201700000016 0            000000000016 
AT3	032522 0      0   0   000000000016 0            201700000016 
AT6	032522 000016 0   0   000000000016 0            201700000016 
FT1A	032522 000016 0   0   000000000016 0            000000000016 
FT9	032523 000016 0   0   000000000016 0            000000000016 
ET0	032523 000016 0   0   000000000016 0            000000000016 
ST1	032523 000016 0   0   000000000016 0            000000000016 
ST2	032523 000016 0   0   000000000016 0            000000000016 
ST9	032523 000016 0   0   000000000016 0            000000000016 


*032523 CAIE	16,000045(17)
INITIAL
C(AC)=000000 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032523 032523 0   0   302717000045 0            000000000016 
IT1	032523 0      0   0   302717000045 0            000000000016 
AT1	032523 0      0   0   0            0            302717000045 
AT2	032523 0      0   0   000000777751 0            302717000045 
AT3	032523 0      0   0   000000000016 0            000000000016 
AT6	032523 000016 0   0   000000000016 0            000000000016 
FT1A	032523 000016 0   0   000000000016 0            000000000016 
FT2	032523 000016 0   0   0            0            000000000016 
FT2RQ	032523 000016 0   0   000000000016 0            000000000016 
FT3	032523 000016 0   0   000000000016 0            000000000016 
FT9	032524 000016 0   0   000000000016 0            000000000016 
ET0	032525 000016 0   0   0            0            000000000016 
ST1A	032525 000016 0   0   0            0            000000000016 
ST9	032525 000016 0   0   0            0            000000000016 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 313
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0508

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 
ST9	032526 032526 0   0   0            0            000000032526 


*032526 MOVEI	1,000013
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032526 032526 0   0   201040000013 0            000000000013 
IT1	032526 0      0   0   201040000013 0            000000000013 
AT3	032526 0      0   0   000000000013 0            201040000013 
AT6	032526 000013 0   0   000000000013 0            201040000013 
FT1A	032526 000013 0   0   000000000013 0            000000000013 
FT9	032527 000013 0   0   000000000013 0            000000000013 
ET0	032527 000013 0   0   000000000013 0            000000000013 
ST1	032527 000013 0   0   000000000013 0            000000000013 
ST2	032527 000013 0   0   000000000013 0            000000000013 
ST9	032527 000013 0   0   000000000013 0            000000000013 


*032527 MOVEI	0,777765(1)
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032527 032527 0   0   201001777765 0            0            
IT1	032527 0      0   0   201001777765 0            0            
AT1	032527 0      0   0   0            0            201001777765 
AT2	032527 0      0   0   000000000013 0            201001777765 
AT3	032527 0      0   0   0            0            0            
AT6	032527 0      0   0   0            0            0            
FT1A	032527 0      0   0   0            0            0            
FT9	032530 0      0   0   0            0            0            
ET0	032530 0      0   0   0            0            0            
ST1	032530 0      0   0   0            0            0            
ST2	032530 0      0   0   0            0            0            
ST9	032530 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 314
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0509

*032530 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032530 032530 0   0   302000000000 0            0            
IT1	032530 0      0   0   302000000000 0            0            
AT3	032530 0      0   0   0            0            302000000000 
AT6	032530 0      0   0   0            0            302000000000 
FT1A	032530 0      0   0   0            0            0            
FT2	032530 0      0   0   0            0            0            
FT2RQ	032530 0      0   0   0            0            0            
FT3	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 MOVEI	2,000007
INITIAL
C(AC)=000000 000002 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032533 032533 0   0   201100000007 0            000000000007 
IT1	032533 0      0   0   201100000007 0            000000000007 
AT3	032533 0      0   0   000000000007 0            201100000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 315
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0510

AT6	032533 000007 0   0   000000000007 0            201100000007 
FT1A	032533 000007 0   0   000000000007 0            000000000007 
FT9	032534 000007 0   0   000000000007 0            000000000007 
ET0	032534 000007 0   0   000000000007 0            000000000007 
ST1	032534 000007 0   0   000000000007 0            000000000007 
ST2	032534 000007 0   0   000000000007 0            000000000007 
ST9	032534 000007 0   0   000000000007 0            000000000007 


*032534 MOVEI	1,777772(2)
INITIAL
C(AC)=000000 000013 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032534 032534 0   0   201042777772 0            000000000001 
IT1	032534 0      0   0   201042777772 0            000000000001 
AT1	032534 0      0   0   0            0            201042777772 
AT2	032534 0      0   0   000000000007 0            201042777772 
AT3	032534 0      0   0   000000000001 0            000000000001 
AT6	032534 000001 0   0   000000000001 0            000000000001 
FT1A	032534 000001 0   0   000000000001 0            000000000001 
FT9	032535 000001 0   0   000000000001 0            000000000001 
ET0	032535 000001 0   0   000000000001 0            000000000001 
ST1	032535 000001 0   0   000000000001 0            000000000001 
ST2	032535 000001 0   0   000000000001 0            000000000001 
ST9	032535 000001 0   0   000000000001 0            000000000001 


*032535 CAIE	1,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032535 032535 0   0   302040000001 0            000000000001 
IT1	032535 0      0   0   302040000001 0            000000000001 
AT3	032535 0      0   0   000000000001 0            302040000001 
AT6	032535 000001 0   0   000000000001 0            302040000001 
FT1A	032535 000001 0   0   000000000001 0            000000000001 
FT2	032535 000001 0   0   0            0            000000000001 
FT2RQ	032535 000001 0   0   000000000001 0            000000000001 
FT3	032535 000001 0   0   000000000001 0            000000000001 
FT9	032536 000001 0   0   000000000001 0            000000000001 
ET0	032537 000001 0   0   0            0            000000000001 
ST1A	032537 000001 0   0   0            0            000000000001 
ST9	032537 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 316
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0511

*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 MOVEI	3,000003
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032540 032540 0   0   201140000003 0            000000000003 
IT1	032540 0      0   0   201140000003 0            000000000003 
AT3	032540 0      0   0   000000000003 0            201140000003 
AT6	032540 000003 0   0   000000000003 0            201140000003 
FT1A	032540 000003 0   0   000000000003 0            000000000003 
FT9	032541 000003 0   0   000000000003 0            000000000003 
ET0	032541 000003 0   0   000000000003 0            000000000003 
ST1	032541 000003 0   0   000000000003 0            000000000003 
ST2	032541 000003 0   0   000000000003 0            000000000003 
ST9	032541 000003 0   0   000000000003 0            000000000003 


*032541 MOVEI	2,777777(3)
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032541 032541 0   0   201103777777 0            000000000002 
IT1	032541 0      0   0   201103777777 0            000000000002 
AT1	032541 0      0   0   0            0            201103777777 
AT2	032541 0      0   0   000000000003 0            201103777777 
AT3	032541 0      0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 317
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0512

AT6	032541 000002 0   0   000000000002 0            000000000002 
FT1A	032541 000002 0   0   000000000002 0            000000000002 
FT9	032542 000002 0   0   000000000002 0            000000000002 
ET0	032542 000002 0   0   000000000002 0            000000000002 
ST1	032542 000002 0   0   000000000002 0            000000000002 
ST2	032542 000002 0   0   000000000002 0            000000000002 
ST9	032542 000002 0   0   000000000002 0            000000000002 


*032542 CAIE	2,000002
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032542 032542 0   0   302100000002 0            000000000002 
IT1	032542 0      0   0   302100000002 0            000000000002 
AT3	032542 0      0   0   000000000002 0            302100000002 
AT6	032542 000002 0   0   000000000002 0            302100000002 
FT1A	032542 000002 0   0   000000000002 0            000000000002 
FT2	032542 000002 0   0   0            0            000000000002 
FT2RQ	032542 000002 0   0   000000000002 0            000000000002 
FT3	032542 000002 0   0   000000000002 0            000000000002 
FT9	032543 000002 0   0   000000000002 0            000000000002 
ET0	032544 000002 0   0   0            0            000000000002 
ST1A	032544 000002 0   0   0            0            000000000002 
ST9	032544 000002 0   0   0            0            000000000002 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 318
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0513

*032545 MOVEI	4,777777
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032545 032545 0   0   201200777777 0            000000777777 
IT1	032545 0      0   0   201200777777 0            000000777777 
AT3	032545 0      0   0   000000777777 0            201200777777 
AT6	032545 777777 0   0   000000777777 0            201200777777 
FT1A	032545 777777 0   0   000000777777 0            000000777777 
FT9	032546 777777 0   0   000000777777 0            000000777777 
ET0	032546 777777 0   0   000000777777 0            000000777777 
ST1	032546 777777 0   0   000000777777 0            000000777777 
ST2	032546 777777 0   0   000000777777 0            000000777777 
ST9	032546 777777 0   0   000000777777 0            000000777777 


*032546 MOVEI	3,000004(4)
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032546 032546 0   0   201144000004 0            000000000003 
IT1	032546 0      0   0   201144000004 0            000000000003 
AT1	032546 0      0   0   0            0            201144000004 
AT2	032546 0      0   0   000000777777 0            201144000004 
AT3	032546 0      0   0   000000000003 0            000000000003 
AT6	032546 000003 0   0   000000000003 0            000000000003 
FT1A	032546 000003 0   0   000000000003 0            000000000003 
FT9	032547 000003 0   0   000000000003 0            000000000003 
ET0	032547 000003 0   0   000000000003 0            000000000003 
ST1	032547 000003 0   0   000000000003 0            000000000003 
ST2	032547 000003 0   0   000000000003 0            000000000003 
ST9	032547 000003 0   0   000000000003 0            000000000003 


*032547 CAIE	3,000003
INITIAL
C(AC)=000000 000003 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032547 032547 0   0   302140000003 0            000000000003 
IT1	032547 0      0   0   302140000003 0            000000000003 
AT3	032547 0      0   0   000000000003 0            302140000003 
AT6	032547 000003 0   0   000000000003 0            302140000003 
FT1A	032547 000003 0   0   000000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 319
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0514

FT2	032547 000003 0   0   0            0            000000000003 
FT2RQ	032547 000003 0   0   000000000003 0            000000000003 
FT3	032547 000003 0   0   000000000003 0            000000000003 
FT9	032550 000003 0   0   000000000003 0            000000000003 
ET0	032551 000003 0   0   0            0            000000000003 
ST1A	032551 000003 0   0   0            0            000000000003 
ST9	032551 000003 0   0   0            0            000000000003 


*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 
ST9	032552 032552 0   0   0            0            000000032552 


*032552 MOVEI	5,777773
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000000 777773 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032552 032552 0   0   201240777773 0            000000777773 
IT1	032552 0      0   0   201240777773 0            000000777773 
AT3	032552 0      0   0   000000777773 0            201240777773 
AT6	032552 777773 0   0   000000777773 0            201240777773 
FT1A	032552 777773 0   0   000000777773 0            000000777773 
FT9	032553 777773 0   0   000000777773 0            000000777773 
ET0	032553 777773 0   0   000000777773 0            000000777773 
ST1	032553 777773 0   0   000000777773 0            000000777773 
ST2	032553 777773 0   0   000000777773 0            000000777773 
ST9	032553 777773 0   0   000000777773 0            000000777773 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 320
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0515

*032553 MOVEI	4,000011(5)
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032553 032553 0   0   201205000011 0            000000000004 
IT1	032553 0      0   0   201205000011 0            000000000004 
AT1	032553 0      0   0   0            0            201205000011 
AT2	032553 0      0   0   000000777773 0            201205000011 
AT3	032553 0      0   0   000000000004 0            000000000004 
AT6	032553 000004 0   0   000000000004 0            000000000004 
FT1A	032553 000004 0   0   000000000004 0            000000000004 
FT9	032554 000004 0   0   000000000004 0            000000000004 
ET0	032554 000004 0   0   000000000004 0            000000000004 
ST1	032554 000004 0   0   000000000004 0            000000000004 
ST2	032554 000004 0   0   000000000004 0            000000000004 
ST9	032554 000004 0   0   000000000004 0            000000000004 


*032554 CAIE	4,000004
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032554 032554 0   0   302200000004 0            000000000004 
IT1	032554 0      0   0   302200000004 0            000000000004 
AT3	032554 0      0   0   000000000004 0            302200000004 
AT6	032554 000004 0   0   000000000004 0            302200000004 
FT1A	032554 000004 0   0   000000000004 0            000000000004 
FT2	032554 000004 0   0   0            0            000000000004 
FT2RQ	032554 000004 0   0   000000000004 0            000000000004 
FT3	032554 000004 0   0   000000000004 0            000000000004 
FT9	032555 000004 0   0   000000000004 0            000000000004 
ET0	032556 000004 0   0   0            0            000000000004 
ST1A	032556 000004 0   0   0            0            000000000004 
ST9	032556 000004 0   0   0            0            000000000004 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 321
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0516

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 MOVEI	6,777767
INITIAL
C(AC)=000000 000006 
FINAL
C(AC)=000000 777767 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032557 032557 0   0   201300777767 0            000000777767 
IT1	032557 0      0   0   201300777767 0            000000777767 
AT3	032557 0      0   0   000000777767 0            201300777767 
AT6	032557 777767 0   0   000000777767 0            201300777767 
FT1A	032557 777767 0   0   000000777767 0            000000777767 
FT9	032560 777767 0   0   000000777767 0            000000777767 
ET0	032560 777767 0   0   000000777767 0            000000777767 
ST1	032560 777767 0   0   000000777767 0            000000777767 
ST2	032560 777767 0   0   000000777767 0            000000777767 
ST9	032560 777767 0   0   000000777767 0            000000777767 


*032560 MOVEI	5,000016(6)
INITIAL
C(AC)=000000 777773 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032560 032560 0   0   201246000016 0            000000000005 
IT1	032560 0      0   0   201246000016 0            000000000005 
AT1	032560 0      0   0   0            0            201246000016 
AT2	032560 0      0   0   000000777767 0            201246000016 
AT3	032560 0      0   0   000000000005 0            000000000005 
AT6	032560 000005 0   0   000000000005 0            000000000005 
FT1A	032560 000005 0   0   000000000005 0            000000000005 
FT9	032561 000005 0   0   000000000005 0            000000000005 
ET0	032561 000005 0   0   000000000005 0            000000000005 
ST1	032561 000005 0   0   000000000005 0            000000000005 
ST2	032561 000005 0   0   000000000005 0            000000000005 
ST9	032561 000005 0   0   000000000005 0            000000000005 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 322
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0517

*032561 CAIE	5,000005
INITIAL
C(AC)=000000 000005 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032561 032561 0   0   302240000005 0            000000000005 
IT1	032561 0      0   0   302240000005 0            000000000005 
AT3	032561 0      0   0   000000000005 0            302240000005 
AT6	032561 000005 0   0   000000000005 0            302240000005 
FT1A	032561 000005 0   0   000000000005 0            000000000005 
FT2	032561 000005 0   0   0            0            000000000005 
FT2RQ	032561 000005 0   0   000000000005 0            000000000005 
FT3	032561 000005 0   0   000000000005 0            000000000005 
FT9	032562 000005 0   0   000000000005 0            000000000005 
ET0	032563 000005 0   0   0            0            000000000005 
ST1A	032563 000005 0   0   0            0            000000000005 
ST9	032563 000005 0   0   0            0            000000000005 


*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 MOVEI	7,777763
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000000 777763 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032564 032564 0   0   201340777763 0            000000777763 
IT1	032564 0      0   0   201340777763 0            000000777763 
AT3	032564 0      0   0   000000777763 0            201340777763 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 323
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0518

AT6	032564 777763 0   0   000000777763 0            201340777763 
FT1A	032564 777763 0   0   000000777763 0            000000777763 
FT9	032565 777763 0   0   000000777763 0            000000777763 
ET0	032565 777763 0   0   000000777763 0            000000777763 
ST1	032565 777763 0   0   000000777763 0            000000777763 
ST2	032565 777763 0   0   000000777763 0            000000777763 
ST9	032565 777763 0   0   000000777763 0            000000777763 


*032565 MOVEI	6,000023(7)
INITIAL
C(AC)=000000 777767 
FINAL
C(AC)=000000 000006 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032565 032565 0   0   201307000023 0            000000000006 
IT1	032565 0      0   0   201307000023 0            000000000006 
AT1	032565 0      0   0   0            0            201307000023 
AT2	032565 0      0   0   000000777763 0            201307000023 
AT3	032565 0      0   0   000000000006 0            000000000006 
AT6	032565 000006 0   0   000000000006 0            000000000006 
FT1A	032565 000006 0   0   000000000006 0            000000000006 
FT9	032566 000006 0   0   000000000006 0            000000000006 
ET0	032566 000006 0   0   000000000006 0            000000000006 
ST1	032566 000006 0   0   000000000006 0            000000000006 
ST2	032566 000006 0   0   000000000006 0            000000000006 
ST9	032566 000006 0   0   000000000006 0            000000000006 


*032566 CAIE	6,000006
INITIAL
C(AC)=000000 000006 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032566 032566 0   0   302300000006 0            000000000006 
IT1	032566 0      0   0   302300000006 0            000000000006 
AT3	032566 0      0   0   000000000006 0            302300000006 
AT6	032566 000006 0   0   000000000006 0            302300000006 
FT1A	032566 000006 0   0   000000000006 0            000000000006 
FT2	032566 000006 0   0   0            0            000000000006 
FT2RQ	032566 000006 0   0   000000000006 0            000000000006 
FT3	032566 000006 0   0   000000000006 0            000000000006 
FT9	032567 000006 0   0   000000000006 0            000000000006 
ET0	032570 000006 0   0   0            0            000000000006 
ST1A	032570 000006 0   0   0            0            000000000006 
ST9	032570 000006 0   0   0            0            000000000006 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 324
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0519

*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 MOVEI	10,777757
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 777757 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032571 032571 0   0   201400777757 0            000000777757 
IT1	032571 0      0   0   201400777757 0            000000777757 
AT3	032571 0      0   0   000000777757 0            201400777757 
AT6	032571 777757 0   0   000000777757 0            201400777757 
FT1A	032571 777757 0   0   000000777757 0            000000777757 
FT9	032572 777757 0   0   000000777757 0            000000777757 
ET0	032572 777757 0   0   000000777757 0            000000777757 
ST1	032572 777757 0   0   000000777757 0            000000777757 
ST2	032572 777757 0   0   000000777757 0            000000777757 
ST9	032572 777757 0   0   000000777757 0            000000777757 


*032572 MOVEI	7,000030(10)
INITIAL
C(AC)=000000 777763 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032572 032572 0   0   201350000030 0            000000000007 
IT1	032572 0      0   0   201350000030 0            000000000007 
AT1	032572 0      0   0   0            0            201350000030 
AT2	032572 0      0   0   000000777757 0            201350000030 
AT3	032572 0      0   0   000000000007 0            000000000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 325
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0520

AT6	032572 000007 0   0   000000000007 0            000000000007 
FT1A	032572 000007 0   0   000000000007 0            000000000007 
FT9	032573 000007 0   0   000000000007 0            000000000007 
ET0	032573 000007 0   0   000000000007 0            000000000007 
ST1	032573 000007 0   0   000000000007 0            000000000007 
ST2	032573 000007 0   0   000000000007 0            000000000007 
ST9	032573 000007 0   0   000000000007 0            000000000007 


*032573 CAIE	7,000007
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032573 032573 0   0   302340000007 0            000000000007 
IT1	032573 0      0   0   302340000007 0            000000000007 
AT3	032573 0      0   0   000000000007 0            302340000007 
AT6	032573 000007 0   0   000000000007 0            302340000007 
FT1A	032573 000007 0   0   000000000007 0            000000000007 
FT2	032573 000007 0   0   0            0            000000000007 
FT2RQ	032573 000007 0   0   000000000007 0            000000000007 
FT3	032573 000007 0   0   000000000007 0            000000000007 
FT9	032574 000007 0   0   000000000007 0            000000000007 
ET0	032575 000007 0   0   0            0            000000000007 
ST1A	032575 000007 0   0   0            0            000000000007 
ST9	032575 000007 0   0   0            0            000000000007 


*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 
ST9	032576 032576 0   0   0            0            000000032576 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 326
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0521

*032576 MOVEI	11,777753
INITIAL
C(AC)=000000 000011 
FINAL
C(AC)=000000 777753 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032576 032576 0   0   201440777753 0            000000777753 
IT1	032576 0      0   0   201440777753 0            000000777753 
AT3	032576 0      0   0   000000777753 0            201440777753 
AT6	032576 777753 0   0   000000777753 0            201440777753 
FT1A	032576 777753 0   0   000000777753 0            000000777753 
FT9	032577 777753 0   0   000000777753 0            000000777753 
ET0	032577 777753 0   0   000000777753 0            000000777753 
ST1	032577 777753 0   0   000000777753 0            000000777753 
ST2	032577 777753 0   0   000000777753 0            000000777753 
ST9	032577 777753 0   0   000000777753 0            000000777753 


*032577 MOVEI	10,000035(11)
INITIAL
C(AC)=000000 777757 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032577 032577 0   0   201411000035 0            000000000010 
IT1	032577 0      0   0   201411000035 0            000000000010 
AT1	032577 0      0   0   0            0            201411000035 
AT2	032577 0      0   0   000000777753 0            201411000035 
AT3	032577 0      0   0   000000000010 0            000000000010 
AT6	032577 000010 0   0   000000000010 0            000000000010 
FT1A	032577 000010 0   0   000000000010 0            000000000010 
FT9	0      000010 0   0   000000000010 0            000000000010 
ET0	0      000010 0   0   000000000010 0            000000000010 
ST1	0      000010 0   0   000000000010 0            000000000010 
ST2	0      000010 0   0   000000000010 0            000000000010 
ST9	0      000010 0   0   000000000010 0            000000000010 


*032600 CAIE	10,000010
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   302400000010 0            000000000010 
IT1	0      0      0   0   302400000010 0            000000000010 
AT3	0      0      0   0   000000000010 0            302400000010 
AT6	0      000010 0   0   000000000010 0            302400000010 
FT1A	0      000010 0   0   000000000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 327
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0522

FT2	0      000010 0   0   0            0            000000000010 
FT2RQ	0      000010 0   0   000000000010 0            000000000010 
FT3	0      000010 0   0   000000000010 0            000000000010 
FT9	032601 000010 0   0   000000000010 0            000000000010 
ET0	032602 000010 0   0   0            0            000000000010 
ST1A	032602 000010 0   0   0            0            000000000010 
ST9	032602 000010 0   0   0            0            000000000010 


*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 MOVEI	12,777747
INITIAL
C(AC)=000000 000012 
FINAL
C(AC)=000000 777747 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032603 032603 0   0   201500777747 0            000000777747 
IT1	032603 0      0   0   201500777747 0            000000777747 
AT3	032603 0      0   0   000000777747 0            201500777747 
AT6	032603 777747 0   0   000000777747 0            201500777747 
FT1A	032603 777747 0   0   000000777747 0            000000777747 
FT9	032604 777747 0   0   000000777747 0            000000777747 
ET0	032604 777747 0   0   000000777747 0            000000777747 
ST1	032604 777747 0   0   000000777747 0            000000777747 
ST2	032604 777747 0   0   000000777747 0            000000777747 
ST9	032604 777747 0   0   000000777747 0            000000777747 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 328
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0523

*032604 MOVEI	11,000042(12)
INITIAL
C(AC)=000000 777753 
FINAL
C(AC)=000000 000011 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032604 032604 0   0   201452000042 0            000000000011 
IT1	032604 0      0   0   201452000042 0            000000000011 
AT1	032604 0      0   0   0            0            201452000042 
AT2	032604 0      0   0   000000777747 0            201452000042 
AT3	032604 0      0   0   000000000011 0            000000000011 
AT6	032604 000011 0   0   000000000011 0            000000000011 
FT1A	032604 000011 0   0   000000000011 0            000000000011 
FT9	032605 000011 0   0   000000000011 0            000000000011 
ET0	032605 000011 0   0   000000000011 0            000000000011 
ST1	032605 000011 0   0   000000000011 0            000000000011 
ST2	032605 000011 0   0   000000000011 0            000000000011 
ST9	032605 000011 0   0   000000000011 0            000000000011 


*032605 CAIE	11,000011
INITIAL
C(AC)=000000 000011 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032605 032605 0   0   302440000011 0            000000000011 
IT1	032605 0      0   0   302440000011 0            000000000011 
AT3	032605 0      0   0   000000000011 0            302440000011 
AT6	032605 000011 0   0   000000000011 0            302440000011 
FT1A	032605 000011 0   0   000000000011 0            000000000011 
FT2	032605 000011 0   0   0            0            000000000011 
FT2RQ	032605 000011 0   0   000000000011 0            000000000011 
FT3	032605 000011 0   0   000000000011 0            000000000011 
FT9	032606 000011 0   0   000000000011 0            000000000011 
ET0	032607 000011 0   0   0            0            000000000011 
ST1A	032607 000011 0   0   0            0            000000000011 
ST9	032607 000011 0   0   0            0            000000000011 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 329
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0524

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 MOVEI	13,777743
INITIAL
C(AC)=000000 000013 
FINAL
C(AC)=000000 777743 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032610 032610 0   0   201540777743 0            000000777743 
IT1	032610 0      0   0   201540777743 0            000000777743 
AT3	032610 0      0   0   000000777743 0            201540777743 
AT6	032610 777743 0   0   000000777743 0            201540777743 
FT1A	032610 777743 0   0   000000777743 0            000000777743 
FT9	032611 777743 0   0   000000777743 0            000000777743 
ET0	032611 777743 0   0   000000777743 0            000000777743 
ST1	032611 777743 0   0   000000777743 0            000000777743 
ST2	032611 777743 0   0   000000777743 0            000000777743 
ST9	032611 777743 0   0   000000777743 0            000000777743 


*032611 MOVEI	12,000047(13)
INITIAL
C(AC)=000000 777747 
FINAL
C(AC)=000000 000012 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032611 032611 0   0   201513000047 0            000000000012 
IT1	032611 0      0   0   201513000047 0            000000000012 
AT1	032611 0      0   0   0            0            201513000047 
AT2	032611 0      0   0   000000777743 0            201513000047 
AT3	032611 0      0   0   000000000012 0            000000000012 
AT6	032611 000012 0   0   000000000012 0            000000000012 
FT1A	032611 000012 0   0   000000000012 0            000000000012 
FT9	032612 000012 0   0   000000000012 0            000000000012 
ET0	032612 000012 0   0   000000000012 0            000000000012 
ST1	032612 000012 0   0   000000000012 0            000000000012 
ST2	032612 000012 0   0   000000000012 0            000000000012 
ST9	032612 000012 0   0   000000000012 0            000000000012 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 330
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0525

*032612 CAIE	12,000012
INITIAL
C(AC)=000000 000012 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032612 032612 0   0   302500000012 0            000000000012 
IT1	032612 0      0   0   302500000012 0            000000000012 
AT3	032612 0      0   0   000000000012 0            302500000012 
AT6	032612 000012 0   0   000000000012 0            302500000012 
FT1A	032612 000012 0   0   000000000012 0            000000000012 
FT2	032612 000012 0   0   0            0            000000000012 
FT2RQ	032612 000012 0   0   000000000012 0            000000000012 
FT3	032612 000012 0   0   000000000012 0            000000000012 
FT9	032613 000012 0   0   000000000012 0            000000000012 
ET0	032614 000012 0   0   0            0            000000000012 
ST1A	032614 000012 0   0   0            0            000000000012 
ST9	032614 000012 0   0   0            0            000000000012 


*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 MOVEI	14,777737
INITIAL
C(AC)=000000 000014 
FINAL
C(AC)=000000 777737 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032615 032615 0   0   201600777737 0            000000777737 
IT1	032615 0      0   0   201600777737 0            000000777737 
AT3	032615 0      0   0   000000777737 0            201600777737 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 331
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0526

AT6	032615 777737 0   0   000000777737 0            201600777737 
FT1A	032615 777737 0   0   000000777737 0            000000777737 
FT9	032616 777737 0   0   000000777737 0            000000777737 
ET0	032616 777737 0   0   000000777737 0            000000777737 
ST1	032616 777737 0   0   000000777737 0            000000777737 
ST2	032616 777737 0   0   000000777737 0            000000777737 
ST9	032616 777737 0   0   000000777737 0            000000777737 


*032616 MOVEI	13,000054(14)
INITIAL
C(AC)=000000 777743 
FINAL
C(AC)=000000 000013 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032616 032616 0   0   201554000054 0            000000000013 
IT1	032616 0      0   0   201554000054 0            000000000013 
AT1	032616 0      0   0   0            0            201554000054 
AT2	032616 0      0   0   000000777737 0            201554000054 
AT3	032616 0      0   0   000000000013 0            000000000013 
AT6	032616 000013 0   0   000000000013 0            000000000013 
FT1A	032616 000013 0   0   000000000013 0            000000000013 
FT9	032617 000013 0   0   000000000013 0            000000000013 
ET0	032617 000013 0   0   000000000013 0            000000000013 
ST1	032617 000013 0   0   000000000013 0            000000000013 
ST2	032617 000013 0   0   000000000013 0            000000000013 
ST9	032617 000013 0   0   000000000013 0            000000000013 


*032617 CAIE	13,000013
INITIAL
C(AC)=000000 000013 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032617 032617 0   0   302540000013 0            000000000013 
IT1	032617 0      0   0   302540000013 0            000000000013 
AT3	032617 0      0   0   000000000013 0            302540000013 
AT6	032617 000013 0   0   000000000013 0            302540000013 
FT1A	032617 000013 0   0   000000000013 0            000000000013 
FT2	032617 000013 0   0   0            0            000000000013 
FT2RQ	032617 000013 0   0   000000000013 0            000000000013 
FT3	032617 000013 0   0   000000000013 0            000000000013 
FT9	032620 000013 0   0   000000000013 0            000000000013 
ET0	032621 000013 0   0   0            0            000000000013 
ST1A	032621 000013 0   0   0            0            000000000013 
ST9	032621 000013 0   0   0            0            000000000013 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 332
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0527

*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 
ST9	032622 032622 0   0   0            0            000000032622 


*032622 MOVEI	15,777733
INITIAL
C(AC)=000000 000015 
FINAL
C(AC)=000000 777733 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032622 032622 0   0   201640777733 0            000000777733 
IT1	032622 0      0   0   201640777733 0            000000777733 
AT3	032622 0      0   0   000000777733 0            201640777733 
AT6	032622 777733 0   0   000000777733 0            201640777733 
FT1A	032622 777733 0   0   000000777733 0            000000777733 
FT9	032623 777733 0   0   000000777733 0            000000777733 
ET0	032623 777733 0   0   000000777733 0            000000777733 
ST1	032623 777733 0   0   000000777733 0            000000777733 
ST2	032623 777733 0   0   000000777733 0            000000777733 
ST9	032623 777733 0   0   000000777733 0            000000777733 


*032623 MOVEI	14,000061(15)
INITIAL
C(AC)=000000 777737 
FINAL
C(AC)=000000 000014 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032623 032623 0   0   201615000061 0            000000000014 
IT1	032623 0      0   0   201615000061 0            000000000014 
AT1	032623 0      0   0   0            0            201615000061 
AT2	032623 0      0   0   000000777733 0            201615000061 
AT3	032623 0      0   0   000000000014 0            000000000014 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 333
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0528

AT6	032623 000014 0   0   000000000014 0            000000000014 
FT1A	032623 000014 0   0   000000000014 0            000000000014 
FT9	032624 000014 0   0   000000000014 0            000000000014 
ET0	032624 000014 0   0   000000000014 0            000000000014 
ST1	032624 000014 0   0   000000000014 0            000000000014 
ST2	032624 000014 0   0   000000000014 0            000000000014 
ST9	032624 000014 0   0   000000000014 0            000000000014 


*032624 CAIE	14,000014
INITIAL
C(AC)=000000 000014 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032624 032624 0   0   302600000014 0            000000000014 
IT1	032624 0      0   0   302600000014 0            000000000014 
AT3	032624 0      0   0   000000000014 0            302600000014 
AT6	032624 000014 0   0   000000000014 0            302600000014 
FT1A	032624 000014 0   0   000000000014 0            000000000014 
FT2	032624 000014 0   0   0            0            000000000014 
FT2RQ	032624 000014 0   0   000000000014 0            000000000014 
FT3	032624 000014 0   0   000000000014 0            000000000014 
FT9	032625 000014 0   0   000000000014 0            000000000014 
ET0	032626 000014 0   0   0            0            000000000014 
ST1A	032626 000014 0   0   0            0            000000000014 
ST9	032626 000014 0   0   0            0            000000000014 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 334
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0529

*032627 MOVEI	16,777727
INITIAL
C(AC)=000000 000016 
FINAL
C(AC)=000000 777727 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032627 032627 0   0   201700777727 0            000000777727 
IT1	032627 0      0   0   201700777727 0            000000777727 
AT3	032627 0      0   0   000000777727 0            201700777727 
AT6	032627 777727 0   0   000000777727 0            201700777727 
FT1A	032627 777727 0   0   000000777727 0            000000777727 
FT9	032630 777727 0   0   000000777727 0            000000777727 
ET0	032630 777727 0   0   000000777727 0            000000777727 
ST1	032630 777727 0   0   000000777727 0            000000777727 
ST2	032630 777727 0   0   000000777727 0            000000777727 
ST9	032630 777727 0   0   000000777727 0            000000777727 


*032630 MOVEI	15,000066(16)
INITIAL
C(AC)=000000 777733 
FINAL
C(AC)=000000 000015 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032630 032630 0   0   201656000066 0            000000000015 
IT1	032630 0      0   0   201656000066 0            000000000015 
AT1	032630 0      0   0   0            0            201656000066 
AT2	032630 0      0   0   000000777727 0            201656000066 
AT3	032630 0      0   0   000000000015 0            000000000015 
AT6	032630 000015 0   0   000000000015 0            000000000015 
FT1A	032630 000015 0   0   000000000015 0            000000000015 
FT9	032631 000015 0   0   000000000015 0            000000000015 
ET0	032631 000015 0   0   000000000015 0            000000000015 
ST1	032631 000015 0   0   000000000015 0            000000000015 
ST2	032631 000015 0   0   000000000015 0            000000000015 
ST9	032631 000015 0   0   000000000015 0            000000000015 


*032631 CAIE	15,000015
INITIAL
C(AC)=000000 000015 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032631 032631 0   0   302640000015 0            000000000015 
IT1	032631 0      0   0   302640000015 0            000000000015 
AT3	032631 0      0   0   000000000015 0            302640000015 
AT6	032631 000015 0   0   000000000015 0            302640000015 
FT1A	032631 000015 0   0   000000000015 0            000000000015 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 335
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0530

FT2	032631 000015 0   0   0            0            000000000015 
FT2RQ	032631 000015 0   0   000000000015 0            000000000015 
FT3	032631 000015 0   0   000000000015 0            000000000015 
FT9	032632 000015 0   0   000000000015 0            000000000015 
ET0	032633 000015 0   0   0            0            000000000015 
ST1A	032633 000015 0   0   0            0            000000000015 
ST9	032633 000015 0   0   0            0            000000000015 


*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 MOVEI	17,777723
INITIAL
C(AC)=000000 777751 
FINAL
C(AC)=000000 777723 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032634 032634 0   0   201740777723 0            000000777723 
IT1	032634 0      0   0   201740777723 0            000000777723 
AT3	032634 0      0   0   000000777723 0            201740777723 
AT6	032634 777723 0   0   000000777723 0            201740777723 
FT1A	032634 777723 0   0   000000777723 0            000000777723 
FT9	032635 777723 0   0   000000777723 0            000000777723 
ET0	032635 777723 0   0   000000777723 0            000000777723 
ST1	032635 777723 0   0   000000777723 0            000000777723 
ST2	032635 777723 0   0   000000777723 0            000000777723 
ST9	032635 777723 0   0   000000777723 0            000000777723 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 336
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0531

*032635 MOVEI	16,000073(17)
INITIAL
C(AC)=000000 777727 
FINAL
C(AC)=000000 000016 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032635 032635 0   0   201717000073 0            000000000016 
IT1	032635 0      0   0   201717000073 0            000000000016 
AT1	032635 0      0   0   0            0            201717000073 
AT2	032635 0      0   0   000000777723 0            201717000073 
AT3	032635 0      0   0   000000000016 0            000000000016 
AT6	032635 000016 0   0   000000000016 0            000000000016 
FT1A	032635 000016 0   0   000000000016 0            000000000016 
FT9	032636 000016 0   0   000000000016 0            000000000016 
ET0	032636 000016 0   0   000000000016 0            000000000016 
ST1	032636 000016 0   0   000000000016 0            000000000016 
ST2	032636 000016 0   0   000000000016 0            000000000016 
ST9	032636 000016 0   0   000000000016 0            000000000016 


*032636 CAIE	16,000016
INITIAL
C(AC)=000000 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032636 032636 0   0   302700000016 0            000000000016 
IT1	032636 0      0   0   302700000016 0            000000000016 
AT3	032636 0      0   0   000000000016 0            302700000016 
AT6	032636 000016 0   0   000000000016 0            302700000016 
FT1A	032636 000016 0   0   000000000016 0            000000000016 
FT2	032636 000016 0   0   0            0            000000000016 
FT2RQ	032636 000016 0   0   000000000016 0            000000000016 
FT3	032636 000016 0   0   000000000016 0            000000000016 
FT9	032637 000016 0   0   000000000016 0            000000000016 
ET0	032640 000016 0   0   0            0            000000000016 
ST1A	032640 000016 0   0   0            0            000000000016 
ST9	032640 000016 0   0   0            0            000000000016 


*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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 337
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0532

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 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	032641 032641 0   0   400000000000 0            0            
IT1	032641 0      0   0   400000000000 0            0            
AT3	032641 0      0   0   0            0            400000000000 
AT6	032641 0      0   0   0            0            400000000000 
FT1A	032641 0      0   0   0            0            0            
FT9	032642 0      0   0   0            0            0            
ET0	032642 0      0   0   0            0            0            
ST1	032642 0      0   0   0            0            0            
ST2	032642 0      0   0   0            0            0            
ST9	032642 0      0   0   0            0            0            


*032642 EXCH	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032642 032642 0   0   250000000000 0            0            
IT1	032642 0      0   0   250000000000 0            0            
AT3	032642 0      0   0   0            0            250000000000 
AT6	032642 0      0   0   0            0            250000000000 
FT0	032642 0      0   0   0            0            250000000000 
FT1A	032642 0      0   0   0            0            0            
FT2	032642 0      0   0   0            0            0            
FT2RQ	032642 0      0   0   0            0            0            
FT3	032642 0      0   0   0            0            0            
FT9	032643 0      0   0   0            0            0            
ET0	032643 0      0   0   0            0            0            
ST1	032643 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 338
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0533

ST2	032643 0      0   0   0            0            0            
ST3	032643 0      0   0   0            0            0            
ST5	032643 0      0   0   0            0            0            
ST6A	032643 0      0   0   0            0            0            
ST9	032643 0      0   0   0            0            0            


*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 
ST9	032646 032646 0   0   0            0            000000032646 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 339
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0534

*032646 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	032646 032646 0   0   474000000000 0            0            
IT1	032646 0      0   0   474000000000 0            0            
AT3	032646 0      0   0   0            0            474000000000 
AT6	032646 0      0   0   0            0            474000000000 
FT1A	032646 0      0   0   0            0            0            
FT9	032647 0      0   0   0            0            0            
ET0	032647 0      0   0   777777777777 0            0            
ST1	032647 0      0   0   777777777777 0            0            
ST2	032647 0      0   0   777777777777 0            0            
ST9	032647 0      0   0   777777777777 0            0            


*032647 EXCH	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032647 032647 0   0   250000000000 0            777777777777 
IT1	032647 0      0   0   250000000000 0            777777777777 
AT3	032647 0      0   0   0            0            250000000000 
AT6	032647 0      0   0   0            0            250000000000 
FT0	032647 0      0   0   777777777777 0            250000000000 
FT1A	032647 0      0   0   777777777777 0            777777777777 
FT2	032647 0      0   0   0            0            777777777777 
FT2RQ	032647 0      0   0   777777777777 0            777777777777 
FT3	032647 0      0   0   777777777777 0            777777777777 
FT9	032650 0      0   0   777777777777 0            777777777777 
ET0	032650 0      0   0   777777777777 0            777777777777 
ST1	032650 0      0   0   777777777777 0            777777777777 
ST2	032650 0      0   0   777777777777 0            777777777777 
ST3	032650 0      0   0   777777777777 0            777777777777 
ST5	032650 0      0   0   777777777777 0            777777777777 
ST6A	032650 0      0   0   777777777777 0            777777777777 
ST9	032650 0      0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 340
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0535

*032650 CAME	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032650 032650 0   0   312000034466 0            777777777777 
IT1	032650 0      0   0   312000034466 0            777777777777 
AT3	032650 0      0   0   000000034466 0            312000034466 
AT6	032650 034466 0   0   000000034466 0            312000034466 
FT0	032650 034466 0   0   777777777777 0            312000034466 
FT1A	032650 034466 0   0   777777777777 0            777777777777 
FT2	032650 034466 0   0   0            0            777777777777 
FT2RQ	032650 034466 0   0   777777777777 0            777777777777 
FT3	032650 034466 0   0   777777777777 0            777777777777 
FT9	032651 034466 0   0   777777777777 0            777777777777 
ET0	032652 034466 0   0   0            0            777777777777 
ST1A	032652 034466 0   0   0            0            777777777777 
ST9	032652 034466 0   0   0            0            777777777777 


*032652 JUMPA	0,032653
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032652 032652 0   0   324000032653 0            000000032653 
IT1	032652 0      0   0   324000032653 0            000000032653 
AT3	032652 0      0   0   000000032653 0            324000032653 
AT6	032652 032653 0   0   000000032653 0            324000032653 
FT1A	032652 032653 0   0   000000032653 0            000000032653 
FT2	032652 032653 0   0   0            0            000000032653 
FT2RQ	032652 032653 0   0   777777777777 0            000000032653 
FT3	032652 032653 0   0   777777777777 0            000000032653 
FT9	032653 032653 0   0   777777777777 0            000000032653 
ET0	032653 032653 0   0   777777777777 0            000000032653 
ST1A	032653 032653 0   0   777777777777 0            000000032653 
ST9	032653 032653 0   0   777777777777 0            000000032653 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 341
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0536

*032653 MOVSI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032653 032653 0   0   205000777777 0            000000777777 
IT1	032653 0      0   0   205000777777 0            000000777777 
AT3	032653 0      0   0   000000777777 0            205000777777 
AT6	032653 777777 0   0   000000777777 0            205000777777 
FT1A	032653 777777 0   0   000000777777 0            000000777777 
FT9	032654 777777 0   0   000000777777 0            000000777777 
ET0	032654 777777 0   0   777777000000 0            000000777777 
ST1	032654 777777 0   0   777777000000 0            000000777777 
ST2	032654 777777 0   0   777777000000 0            000000777777 
ST9	032654 777777 0   0   777777000000 0            000000777777 


*032654 MOVEI	1,777777
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032654 032654 0   0   201040777777 0            000000777777 
IT1	032654 0      0   0   201040777777 0            000000777777 
AT3	032654 0      0   0   000000777777 0            201040777777 
AT6	032654 777777 0   0   000000777777 0            201040777777 
FT1A	032654 777777 0   0   000000777777 0            000000777777 
FT9	032655 777777 0   0   000000777777 0            000000777777 
ET0	032655 777777 0   0   000000777777 0            000000777777 
ST1	032655 777777 0   0   000000777777 0            000000777777 
ST2	032655 777777 0   0   000000777777 0            000000777777 
ST9	032655 777777 0   0   000000777777 0            000000777777 


*032655 EXCH	0,000001
INITIAL
C(AC)=777777 000000 
C(E)=000000 777777 
FINAL
C(AC)=000000 777777 
C(E)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032655 032655 0   0   250000000001 0            777777000000 
IT1	032655 0      0   0   250000000001 0            777777000000 
AT3	032655 0      0   0   000000000001 0            250000000001 
AT6	032655 000001 0   0   000000000001 0            250000000001 
FT0	032655 000001 0   0   000000777777 0            250000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 342
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0537

FT1A	032655 000001 0   0   000000777777 0            000000777777 
FT2	032655 000001 0   0   0            0            000000777777 
FT2RQ	032655 000001 0   0   777777000000 0            000000777777 
FT3	032655 000001 0   0   777777000000 0            000000777777 
FT9	032656 000001 0   0   777777000000 0            000000777777 
ET0	032656 000001 0   0   000000777777 0            777777000000 
ST1	032656 000001 0   0   000000777777 0            777777000000 
ST2	032656 000001 0   0   777777000000 0            777777000000 
ST3	032656 000001 0   0   777777000000 0            777777000000 
ST5	032656 000001 0   0   777777000000 0            777777000000 
ST6A	032656 000001 0   0   777777000000 0            777777000000 
ST9	032656 000001 0   0   777777000000 0            777777000000 


*032656 CAME	1,034533
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032656 032656 0   0   312040034533 0            777777000000 
IT1	032656 0      0   0   312040034533 0            777777000000 
AT3	032656 0      0   0   000000034533 0            312040034533 
AT6	032656 034533 0   0   000000034533 0            312040034533 
FT0	032656 034533 0   0   777777000000 0            312040034533 
FT1A	032656 034533 0   0   777777000000 0            777777000000 
FT2	032656 034533 0   0   0            0            777777000000 
FT2RQ	032656 034533 0   0   777777000000 0            777777000000 
FT3	032656 034533 0   0   777777000000 0            777777000000 
FT9	032657 034533 0   0   777777000000 0            777777000000 
ET0	032660 034533 0   0   0            0            777777000000 
ST1A	032660 034533 0   0   0            0            777777000000 
ST9	032660 034533 0   0   0            0            777777000000 


*032660 JUMPA	0,032661
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032660 032660 0   0   324000032661 0            000000032661 
IT1	032660 0      0   0   324000032661 0            000000032661 
AT3	032660 0      0   0   000000032661 0            324000032661 
AT6	032660 032661 0   0   000000032661 0            324000032661 
FT1A	032660 032661 0   0   000000032661 0            000000032661 
FT2	032660 032661 0   0   0            0            000000032661 
FT2RQ	032660 032661 0   0   000000777777 0            000000032661 
FT3	032660 032661 0   0   000000777777 0            000000032661 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 343
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0538

FT9	032661 032661 0   0   000000777777 0            000000032661 
ET0	032661 032661 0   0   000000777777 0            000000032661 
ST1A	032661 032661 0   0   000000777777 0            000000032661 
ST9	032661 032661 0   0   000000777777 0            000000032661 


*032661 CAME	0,034534
INITIAL
C(AC)=000000 777777 
C(E)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032661 032661 0   0   312000034534 0            000000777777 
IT1	032661 0      0   0   312000034534 0            000000777777 
AT3	032661 0      0   0   000000034534 0            312000034534 
AT6	032661 034534 0   0   000000034534 0            312000034534 
FT0	032661 034534 0   0   000000777777 0            312000034534 
FT1A	032661 034534 0   0   000000777777 0            000000777777 
FT2	032661 034534 0   0   0            0            000000777777 
FT2RQ	032661 034534 0   0   000000777777 0            000000777777 
FT3	032661 034534 0   0   000000777777 0            000000777777 
FT9	032662 034534 0   0   000000777777 0            000000777777 
ET0	032663 034534 0   0   0            0            000000777777 
ST1A	032663 034534 0   0   0            0            000000777777 
ST9	032663 034534 0   0   0            0            000000777777 


*032663 JUMPA	0,032664
INITIAL
C(AC)=000000 777777 
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   000000777777 0            000000032664 
FT3	032663 032664 0   0   000000777777 0            000000032664 
FT9	032664 032664 0   0   000000777777 0            000000032664 
ET0	032664 032664 0   0   000000777777 0            000000032664 
ST1A	032664 032664 0   0   000000777777 0            000000032664 
ST9	032664 032664 0   0   000000777777 0            000000032664 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 344
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0539

*032664 MOVEI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032664 032664 0   0   201000777777 0            000000777777 
IT1	032664 0      0   0   201000777777 0            000000777777 
AT3	032664 0      0   0   000000777777 0            201000777777 
AT6	032664 777777 0   0   000000777777 0            201000777777 
FT1A	032664 777777 0   0   000000777777 0            000000777777 
FT9	032665 777777 0   0   000000777777 0            000000777777 
ET0	032665 777777 0   0   000000777777 0            000000777777 
ST1	032665 777777 0   0   000000777777 0            000000777777 
ST2	032665 777777 0   0   000000777777 0            000000777777 
ST9	032665 777777 0   0   000000777777 0            000000777777 


*032665 MOVSI	1,777777
INITIAL
C(AC)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032665 032665 0   0   205040777777 0            000000777777 
IT1	032665 0      0   0   205040777777 0            000000777777 
AT3	032665 0      0   0   000000777777 0            205040777777 
AT6	032665 777777 0   0   000000777777 0            205040777777 
FT1A	032665 777777 0   0   000000777777 0            000000777777 
FT9	032666 777777 0   0   000000777777 0            000000777777 
ET0	032666 777777 0   0   777777000000 0            000000777777 
ST1	032666 777777 0   0   777777000000 0            000000777777 
ST2	032666 777777 0   0   777777000000 0            000000777777 
ST9	032666 777777 0   0   777777000000 0            000000777777 


*032666 EXCH	0,000001
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 
C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032666 032666 0   0   250000000001 0            000000777777 
IT1	032666 0      0   0   250000000001 0            000000777777 
AT3	032666 0      0   0   000000000001 0            250000000001 
AT6	032666 000001 0   0   000000000001 0            250000000001 
FT0	032666 000001 0   0   777777000000 0            250000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 345
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0540

FT1A	032666 000001 0   0   777777000000 0            777777000000 
FT2	032666 000001 0   0   0            0            777777000000 
FT2RQ	032666 000001 0   0   000000777777 0            777777000000 
FT3	032666 000001 0   0   000000777777 0            777777000000 
FT9	032667 000001 0   0   000000777777 0            777777000000 
ET0	032667 000001 0   0   777777000000 0            000000777777 
ST1	032667 000001 0   0   777777000000 0            000000777777 
ST2	032667 000001 0   0   000000777777 0            000000777777 
ST3	032667 000001 0   0   000000777777 0            000000777777 
ST5	032667 000001 0   0   000000777777 0            000000777777 
ST6A	032667 000001 0   0   000000777777 0            000000777777 
ST9	032667 000001 0   0   000000777777 0            000000777777 


*032667 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032667 032667 0   0   302040777777 0            000000777777 
IT1	032667 0      0   0   302040777777 0            000000777777 
AT3	032667 0      0   0   000000777777 0            302040777777 
AT6	032667 777777 0   0   000000777777 0            302040777777 
FT1A	032667 777777 0   0   000000777777 0            000000777777 
FT2	032667 777777 0   0   0            0            000000777777 
FT2RQ	032667 777777 0   0   000000777777 0            000000777777 
FT3	032667 777777 0   0   000000777777 0            000000777777 
FT9	032670 777777 0   0   000000777777 0            000000777777 
ET0	032671 777777 0   0   0            0            000000777777 
ST1A	032671 777777 0   0   0            0            000000777777 
ST9	032671 777777 0   0   0            0            000000777777 


*032671 JUMPA	0,032672
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032671 032671 0   0   324000032672 0            000000032672 
IT1	032671 0      0   0   324000032672 0            000000032672 
AT3	032671 0      0   0   000000032672 0            324000032672 
AT6	032671 032672 0   0   000000032672 0            324000032672 
FT1A	032671 032672 0   0   000000032672 0            000000032672 
FT2	032671 032672 0   0   0            0            000000032672 
FT2RQ	032671 032672 0   0   777777000000 0            000000032672 
FT3	032671 032672 0   0   777777000000 0            000000032672 
FT9	032672 032672 0   0   777777000000 0            000000032672 
ET0	032672 032672 0   0   777777000000 0            000000032672 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 346
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0541

ST1A	032672 032672 0   0   777777000000 0            000000032672 
ST9	032672 032672 0   0   777777000000 0            000000032672 


*032672 CAME	0,034533
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032672 032672 0   0   312000034533 0            777777000000 
IT1	032672 0      0   0   312000034533 0            777777000000 
AT3	032672 0      0   0   000000034533 0            312000034533 
AT6	032672 034533 0   0   000000034533 0            312000034533 
FT0	032672 034533 0   0   777777000000 0            312000034533 
FT1A	032672 034533 0   0   777777000000 0            777777000000 
FT2	032672 034533 0   0   0            0            777777000000 
FT2RQ	032672 034533 0   0   777777000000 0            777777000000 
FT3	032672 034533 0   0   777777000000 0            777777000000 
FT9	032673 034533 0   0   777777000000 0            777777000000 
ET0	032674 034533 0   0   0            0            777777000000 
ST1A	032674 034533 0   0   0            0            777777000000 
ST9	032674 034533 0   0   0            0            777777000000 


*032674 JUMPA	0,032675
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032674 032674 0   0   324000032675 0            000000032675 
IT1	032674 0      0   0   324000032675 0            000000032675 
AT3	032674 0      0   0   000000032675 0            324000032675 
AT6	032674 032675 0   0   000000032675 0            324000032675 
FT1A	032674 032675 0   0   000000032675 0            000000032675 
FT2	032674 032675 0   0   0            0            000000032675 
FT2RQ	032674 032675 0   0   777777000000 0            000000032675 
FT3	032674 032675 0   0   777777000000 0            000000032675 
FT9	032675 032675 0   0   777777000000 0            000000032675 
ET0	032675 032675 0   0   777777000000 0            000000032675 
ST1A	032675 032675 0   0   777777000000 0            000000032675 
ST9	032675 032675 0   0   777777000000 0            000000032675 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 347
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0542

*032675 MOVE 	0,034535
INITIAL
C(AC)=777777 000000 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032675 032675 0   0   200000034535 0            252525252525 
IT1	032675 0      0   0   200000034535 0            252525252525 
AT3	032675 0      0   0   000000034535 0            200000034535 
AT6	032675 034535 0   0   000000034535 0            200000034535 
FT0	032675 034535 0   0   252525252525 0            200000034535 
FT1A	032675 034535 0   0   252525252525 0            252525252525 
FT9	032676 034535 0   0   252525252525 0            252525252525 
ET0	032676 034535 0   0   252525252525 0            252525252525 
ST1	032676 034535 0   0   252525252525 0            252525252525 
ST2	032676 034535 0   0   252525252525 0            252525252525 
ST9	032676 034535 0   0   252525252525 0            252525252525 


*032676 EXCH	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 
C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032676 032676 0   0   250000000000 0            252525252525 
IT1	032676 0      0   0   250000000000 0            252525252525 
AT3	032676 0      0   0   0            0            250000000000 
AT6	032676 0      0   0   0            0            250000000000 
FT0	032676 0      0   0   252525252525 0            250000000000 
FT1A	032676 0      0   0   252525252525 0            252525252525 
FT2	032676 0      0   0   0            0            252525252525 
FT2RQ	032676 0      0   0   252525252525 0            252525252525 
FT3	032676 0      0   0   252525252525 0            252525252525 
FT9	032677 0      0   0   252525252525 0            252525252525 
ET0	032677 0      0   0   252525252525 0            252525252525 
ST1	032677 0      0   0   252525252525 0            252525252525 
ST2	032677 0      0   0   252525252525 0            252525252525 
ST3	032677 0      0   0   252525252525 0            252525252525 
ST5	032677 0      0   0   252525252525 0            252525252525 
ST6A	032677 0      0   0   252525252525 0            252525252525 
ST9	032677 0      0   0   252525252525 0            252525252525 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 348
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0543

*032677 EXCH	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 
C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032677 032677 0   0   250000000000 0            252525252525 
IT1	032677 0      0   0   250000000000 0            252525252525 
AT3	032677 0      0   0   0            0            250000000000 
AT6	032677 0      0   0   0            0            250000000000 
FT0	032677 0      0   0   252525252525 0            250000000000 
FT1A	032677 0      0   0   252525252525 0            252525252525 
FT2	032677 0      0   0   0            0            252525252525 
FT2RQ	032677 0      0   0   252525252525 0            252525252525 
FT3	032677 0      0   0   252525252525 0            252525252525 
FT9	0      0      0   0   252525252525 0            252525252525 
ET0	0      0      0   0   252525252525 0            252525252525 
ST1	0      0      0   0   252525252525 0            252525252525 
ST2	0      0      0   0   252525252525 0            252525252525 
ST3	0      0      0   0   252525252525 0            252525252525 
ST5	0      0      0   0   252525252525 0            252525252525 
ST6A	0      0      0   0   252525252525 0            252525252525 
ST9	0      0      0   0   252525252525 0            252525252525 


*032700 EXCH	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 
C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   250000000000 0            252525252525 
IT1	0      0      0   0   250000000000 0            252525252525 
AT3	0      0      0   0   0            0            250000000000 
AT6	0      0      0   0   0            0            250000000000 
FT0	0      0      0   0   252525252525 0            250000000000 
FT1A	0      0      0   0   252525252525 0            252525252525 
FT2	0      0      0   0   0            0            252525252525 
FT2RQ	0      0      0   0   252525252525 0            252525252525 
FT3	0      0      0   0   252525252525 0            252525252525 
FT9	032701 0      0   0   252525252525 0            252525252525 
ET0	032701 0      0   0   252525252525 0            252525252525 
ST1	032701 0      0   0   252525252525 0            252525252525 
ST2	032701 0      0   0   252525252525 0            252525252525 
ST3	032701 0      0   0   252525252525 0            252525252525 
ST5	032701 0      0   0   252525252525 0            252525252525 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 349
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0544

ST6A	032701 0      0   0   252525252525 0            252525252525 
ST9	032701 0      0   0   252525252525 0            252525252525 


*032701 EXCH	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 
C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032701 032701 0   0   250000000000 0            252525252525 
IT1	032701 0      0   0   250000000000 0            252525252525 
AT3	032701 0      0   0   0            0            250000000000 
AT6	032701 0      0   0   0            0            250000000000 
FT0	032701 0      0   0   252525252525 0            250000000000 
FT1A	032701 0      0   0   252525252525 0            252525252525 
FT2	032701 0      0   0   0            0            252525252525 
FT2RQ	032701 0      0   0   252525252525 0            252525252525 
FT3	032701 0      0   0   252525252525 0            252525252525 
FT9	032702 0      0   0   252525252525 0            252525252525 
ET0	032702 0      0   0   252525252525 0            252525252525 
ST1	032702 0      0   0   252525252525 0            252525252525 
ST2	032702 0      0   0   252525252525 0            252525252525 
ST3	032702 0      0   0   252525252525 0            252525252525 
ST5	032702 0      0   0   252525252525 0            252525252525 
ST6A	032702 0      0   0   252525252525 0            252525252525 
ST9	032702 0      0   0   252525252525 0            252525252525 


*032702 EXCH	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 
C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032702 032702 0   0   250000000000 0            252525252525 
IT1	032702 0      0   0   250000000000 0            252525252525 
AT3	032702 0      0   0   0            0            250000000000 
AT6	032702 0      0   0   0            0            250000000000 
FT0	032702 0      0   0   252525252525 0            250000000000 
FT1A	032702 0      0   0   252525252525 0            252525252525 
FT2	032702 0      0   0   0            0            252525252525 
FT2RQ	032702 0      0   0   252525252525 0            252525252525 
FT3	032702 0      0   0   252525252525 0            252525252525 
FT9	032703 0      0   0   252525252525 0            252525252525 
ET0	032703 0      0   0   252525252525 0            252525252525 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 350
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0545

ST1	032703 0      0   0   252525252525 0            252525252525 
ST2	032703 0      0   0   252525252525 0            252525252525 
ST3	032703 0      0   0   252525252525 0            252525252525 
ST5	032703 0      0   0   252525252525 0            252525252525 
ST6A	032703 0      0   0   252525252525 0            252525252525 
ST9	032703 0      0   0   252525252525 0            252525252525 


*032703 EXCH	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 
C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032703 032703 0   0   250000000000 0            252525252525 
IT1	032703 0      0   0   250000000000 0            252525252525 
AT3	032703 0      0   0   0            0            250000000000 
AT6	032703 0      0   0   0            0            250000000000 
FT0	032703 0      0   0   252525252525 0            250000000000 
FT1A	032703 0      0   0   252525252525 0            252525252525 
FT2	032703 0      0   0   0            0            252525252525 
FT2RQ	032703 0      0   0   252525252525 0            252525252525 
FT3	032703 0      0   0   252525252525 0            252525252525 
FT9	032704 0      0   0   252525252525 0            252525252525 
ET0	032704 0      0   0   252525252525 0            252525252525 
ST1	032704 0      0   0   252525252525 0            252525252525 
ST2	032704 0      0   0   252525252525 0            252525252525 
ST3	032704 0      0   0   252525252525 0            252525252525 
ST5	032704 0      0   0   252525252525 0            252525252525 
ST6A	032704 0      0   0   252525252525 0            252525252525 
ST9	032704 0      0   0   252525252525 0            252525252525 


*032704 EXCH	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 
C(E)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032704 032704 0   0   250000000000 0            252525252525 
IT1	032704 0      0   0   250000000000 0            252525252525 
AT3	032704 0      0   0   0            0            250000000000 
AT6	032704 0      0   0   0            0            250000000000 
FT0	032704 0      0   0   252525252525 0            250000000000 
FT1A	032704 0      0   0   252525252525 0            252525252525 
FT2	032704 0      0   0   0            0            252525252525 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 351
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0546

FT2RQ	032704 0      0   0   252525252525 0            252525252525 
FT3	032704 0      0   0   252525252525 0            252525252525 
FT9	032705 0      0   0   252525252525 0            252525252525 
ET0	032705 0      0   0   252525252525 0            252525252525 
ST1	032705 0      0   0   252525252525 0            252525252525 
ST2	032705 0      0   0   252525252525 0            252525252525 
ST3	032705 0      0   0   252525252525 0            252525252525 
ST5	032705 0      0   0   252525252525 0            252525252525 
ST6A	032705 0      0   0   252525252525 0            252525252525 
ST9	032705 0      0   0   252525252525 0            252525252525 


*032705 CAME	0,034535
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032705 032705 0   0   312000034535 0            252525252525 
IT1	032705 0      0   0   312000034535 0            252525252525 
AT3	032705 0      0   0   000000034535 0            312000034535 
AT6	032705 034535 0   0   000000034535 0            312000034535 
FT0	032705 034535 0   0   252525252525 0            312000034535 
FT1A	032705 034535 0   0   252525252525 0            252525252525 
FT2	032705 034535 0   0   0            0            252525252525 
FT2RQ	032705 034535 0   0   252525252525 0            252525252525 
FT3	032705 034535 0   0   252525252525 0            252525252525 
FT9	032706 034535 0   0   252525252525 0            252525252525 
ET0	032707 034535 0   0   0            0            252525252525 
ST1A	032707 034535 0   0   0            0            252525252525 
ST9	032707 034535 0   0   0            0            252525252525 


*032707 JUMPA	0,032710
INITIAL
C(AC)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032707 032707 0   0   324000032710 0            000000032710 
IT1	032707 0      0   0   324000032710 0            000000032710 
AT3	032707 0      0   0   000000032710 0            324000032710 
AT6	032707 032710 0   0   000000032710 0            324000032710 
FT1A	032707 032710 0   0   000000032710 0            000000032710 
FT2	032707 032710 0   0   0            0            000000032710 
FT2RQ	032707 032710 0   0   252525252525 0            000000032710 
FT3	032707 032710 0   0   252525252525 0            000000032710 
FT9	032710 032710 0   0   252525252525 0            000000032710 
ET0	032710 032710 0   0   252525252525 0            000000032710 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 352
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0547

ST1A	032710 032710 0   0   252525252525 0            000000032710 
ST9	032710 032710 0   0   252525252525 0            000000032710 


*032710 SETZ 	0,000000
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032710 032710 0   0   400000000000 0            0            
IT1	032710 0      0   0   400000000000 0            0            
AT3	032710 0      0   0   0            0            400000000000 
AT6	032710 0      0   0   0            0            400000000000 
FT1A	032710 0      0   0   0            0            0            
FT9	032711 0      0   0   0            0            0            
ET0	032711 0      0   0   0            0            0            
ST1	032711 0      0   0   0            0            0            
ST2	032711 0      0   0   0            0            0            
ST9	032711 0      0   0   0            0            0            


*032711 SETO 	1,000000
INITIAL
C(AC)=000000 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032711 032711 0   0   474040000000 0            0            
IT1	032711 0      0   0   474040000000 0            0            
AT3	032711 0      0   0   0            0            474040000000 
AT6	032711 0      0   0   0            0            474040000000 
FT1A	032711 0      0   0   0            0            0            
FT9	032712 0      0   0   0            0            0            
ET0	032712 0      0   0   777777777777 0            0            
ST1	032712 0      0   0   777777777777 0            0            
ST2	032712 0      0   0   777777777777 0            0            
ST9	032712 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 353
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0548

*032712 EXCH	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032712 032712 0   0   250000000001 0            0            
IT1	032712 0      0   0   250000000001 0            0            
AT3	032712 0      0   0   000000000001 0            250000000001 
AT6	032712 000001 0   0   000000000001 0            250000000001 
FT0	032712 000001 0   0   777777777777 0            250000000001 
FT1A	032712 000001 0   0   777777777777 0            777777777777 
FT2	032712 000001 0   0   0            0            777777777777 
FT2RQ	032712 000001 0   0   0            0            777777777777 
FT3	032712 000001 0   0   0            0            777777777777 
FT9	032713 000001 0   0   0            0            777777777777 
ET0	032713 000001 0   0   777777777777 0            0            
ST1	032713 000001 0   0   777777777777 0            0            
ST2	032713 000001 0   0   0            0            0            
ST3	032713 000001 0   0   0            0            0            
ST5	032713 000001 0   0   0            0            0            
ST6A	032713 000001 0   0   0            0            0            
ST9	032713 000001 0   0   0            0            0            


*032713 EXCH	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032713 032713 0   0   250000000001 0            777777777777 
IT1	032713 0      0   0   250000000001 0            777777777777 
AT3	032713 0      0   0   000000000001 0            250000000001 
AT6	032713 000001 0   0   000000000001 0            250000000001 
FT0	032713 000001 0   0   0            0            250000000001 
FT1A	032713 000001 0   0   0            0            0            
FT2	032713 000001 0   0   0            0            0            
FT2RQ	032713 000001 0   0   777777777777 0            0            
FT3	032713 000001 0   0   777777777777 0            0            
FT9	032714 000001 0   0   777777777777 0            0            
ET0	032714 000001 0   0   0            0            777777777777 
ST1	032714 000001 0   0   0            0            777777777777 
ST2	032714 000001 0   0   777777777777 0            777777777777 
ST3	032714 000001 0   0   777777777777 0            777777777777 
ST5	032714 000001 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 354
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0549

ST6A	032714 000001 0   0   777777777777 0            777777777777 
ST9	032714 000001 0   0   777777777777 0            777777777777 


*032714 EXCH	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032714 032714 0   0   250000000001 0            0            
IT1	032714 0      0   0   250000000001 0            0            
AT3	032714 0      0   0   000000000001 0            250000000001 
AT6	032714 000001 0   0   000000000001 0            250000000001 
FT0	032714 000001 0   0   777777777777 0            250000000001 
FT1A	032714 000001 0   0   777777777777 0            777777777777 
FT2	032714 000001 0   0   0            0            777777777777 
FT2RQ	032714 000001 0   0   0            0            777777777777 
FT3	032714 000001 0   0   0            0            777777777777 
FT9	032715 000001 0   0   0            0            777777777777 
ET0	032715 000001 0   0   777777777777 0            0            
ST1	032715 000001 0   0   777777777777 0            0            
ST2	032715 000001 0   0   0            0            0            
ST3	032715 000001 0   0   0            0            0            
ST5	032715 000001 0   0   0            0            0            
ST6A	032715 000001 0   0   0            0            0            
ST9	032715 000001 0   0   0            0            0            


*032715 EXCH	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032715 032715 0   0   250000000001 0            777777777777 
IT1	032715 0      0   0   250000000001 0            777777777777 
AT3	032715 0      0   0   000000000001 0            250000000001 
AT6	032715 000001 0   0   000000000001 0            250000000001 
FT0	032715 000001 0   0   0            0            250000000001 
FT1A	032715 000001 0   0   0            0            0            
FT2	032715 000001 0   0   0            0            0            
FT2RQ	032715 000001 0   0   777777777777 0            0            
FT3	032715 000001 0   0   777777777777 0            0            
FT9	032716 000001 0   0   777777777777 0            0            
ET0	032716 000001 0   0   0            0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 355
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0550

ST1	032716 000001 0   0   0            0            777777777777 
ST2	032716 000001 0   0   777777777777 0            777777777777 
ST3	032716 000001 0   0   777777777777 0            777777777777 
ST5	032716 000001 0   0   777777777777 0            777777777777 
ST6A	032716 000001 0   0   777777777777 0            777777777777 
ST9	032716 000001 0   0   777777777777 0            777777777777 


*032716 EXCH	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032716 032716 0   0   250000000001 0            0            
IT1	032716 0      0   0   250000000001 0            0            
AT3	032716 0      0   0   000000000001 0            250000000001 
AT6	032716 000001 0   0   000000000001 0            250000000001 
FT0	032716 000001 0   0   777777777777 0            250000000001 
FT1A	032716 000001 0   0   777777777777 0            777777777777 
FT2	032716 000001 0   0   0            0            777777777777 
FT2RQ	032716 000001 0   0   0            0            777777777777 
FT3	032716 000001 0   0   0            0            777777777777 
FT9	032717 000001 0   0   0            0            777777777777 
ET0	032717 000001 0   0   777777777777 0            0            
ST1	032717 000001 0   0   777777777777 0            0            
ST2	032717 000001 0   0   0            0            0            
ST3	032717 000001 0   0   0            0            0            
ST5	032717 000001 0   0   0            0            0            
ST6A	032717 000001 0   0   0            0            0            
ST9	032717 000001 0   0   0            0            0            


*032717 EXCH	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032717 032717 0   0   250000000001 0            777777777777 
IT1	032717 0      0   0   250000000001 0            777777777777 
AT3	032717 0      0   0   000000000001 0            250000000001 
AT6	032717 000001 0   0   000000000001 0            250000000001 
FT0	032717 000001 0   0   0            0            250000000001 
FT1A	032717 000001 0   0   0            0            0            
FT2	032717 000001 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 356
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0551

FT2RQ	032717 000001 0   0   777777777777 0            0            
FT3	032717 000001 0   0   777777777777 0            0            
FT9	032720 000001 0   0   777777777777 0            0            
ET0	032720 000001 0   0   0            0            777777777777 
ST1	032720 000001 0   0   0            0            777777777777 
ST2	032720 000001 0   0   777777777777 0            777777777777 
ST3	032720 000001 0   0   777777777777 0            777777777777 
ST5	032720 000001 0   0   777777777777 0            777777777777 
ST6A	032720 000001 0   0   777777777777 0            777777777777 
ST9	032720 000001 0   0   777777777777 0            777777777777 


*032720 EXCH	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032720 032720 0   0   250000000001 0            0            
IT1	032720 0      0   0   250000000001 0            0            
AT3	032720 0      0   0   000000000001 0            250000000001 
AT6	032720 000001 0   0   000000000001 0            250000000001 
FT0	032720 000001 0   0   777777777777 0            250000000001 
FT1A	032720 000001 0   0   777777777777 0            777777777777 
FT2	032720 000001 0   0   0            0            777777777777 
FT2RQ	032720 000001 0   0   0            0            777777777777 
FT3	032720 000001 0   0   0            0            777777777777 
FT9	032721 000001 0   0   0            0            777777777777 
ET0	032721 000001 0   0   777777777777 0            0            
ST1	032721 000001 0   0   777777777777 0            0            
ST2	032721 000001 0   0   0            0            0            
ST3	032721 000001 0   0   0            0            0            
ST5	032721 000001 0   0   0            0            0            
ST6A	032721 000001 0   0   0            0            0            
ST9	032721 000001 0   0   0            0            0            


*032721 CAME	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032721 032721 0   0   312000034466 0            777777777777 
IT1	032721 0      0   0   312000034466 0            777777777777 
AT3	032721 0      0   0   000000034466 0            312000034466 
AT6	032721 034466 0   0   000000034466 0            312000034466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 357
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0552

FT0	032721 034466 0   0   777777777777 0            312000034466 
FT1A	032721 034466 0   0   777777777777 0            777777777777 
FT2	032721 034466 0   0   0            0            777777777777 
FT2RQ	032721 034466 0   0   777777777777 0            777777777777 
FT3	032721 034466 0   0   777777777777 0            777777777777 
FT9	032722 034466 0   0   777777777777 0            777777777777 
ET0	032723 034466 0   0   0            0            777777777777 
ST1A	032723 034466 0   0   0            0            777777777777 
ST9	032723 034466 0   0   0            0            777777777777 


*032723 JUMPA	0,032724
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032723 032723 0   0   324000032724 0            000000032724 
IT1	032723 0      0   0   324000032724 0            000000032724 
AT3	032723 0      0   0   000000032724 0            324000032724 
AT6	032723 032724 0   0   000000032724 0            324000032724 
FT1A	032723 032724 0   0   000000032724 0            000000032724 
FT2	032723 032724 0   0   0            0            000000032724 
FT2RQ	032723 032724 0   0   777777777777 0            000000032724 
FT3	032723 032724 0   0   777777777777 0            000000032724 
FT9	032724 032724 0   0   777777777777 0            000000032724 
ET0	032724 032724 0   0   777777777777 0            000000032724 
ST1A	032724 032724 0   0   777777777777 0            000000032724 
ST9	032724 032724 0   0   777777777777 0            000000032724 


*032724 CAME	1,034536
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032724 032724 0   0   312040034536 0            0            
IT1	032724 0      0   0   312040034536 0            0            
AT3	032724 0      0   0   000000034536 0            312040034536 
AT6	032724 034536 0   0   000000034536 0            312040034536 
FT0	032724 034536 0   0   0            0            312040034536 
FT1A	032724 034536 0   0   0            0            0            
FT2	032724 034536 0   0   0            0            0            
FT2RQ	032724 034536 0   0   0            0            0            
FT3	032724 034536 0   0   0            0            0            
FT9	032725 034536 0   0   0            0            0            
ET0	032726 034536 0   0   0            0            0            
ST1A	032726 034536 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 358
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0553

ST9	032726 034536 0   0   0            0            0            


*032726 JUMPA	0,032727
INITIAL
C(AC)=777777 777777 
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   777777777777 0            000000032727 
FT3	032726 032727 0   0   777777777777 0            000000032727 
FT9	032727 032727 0   0   777777777777 0            000000032727 
ET0	032727 032727 0   0   777777777777 0            000000032727 
ST1A	032727 032727 0   0   777777777777 0            000000032727 
ST9	032727 032727 0   0   777777777777 0            000000032727 


*032727 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	032727 032727 0   0   474000000000 0            0            
IT1	032727 0      0   0   474000000000 0            0            
AT3	032727 0      0   0   0            0            474000000000 
AT6	032727 0      0   0   0            0            474000000000 
FT1A	032727 0      0   0   0            0            0            
FT9	032730 0      0   0   0            0            0            
ET0	032730 0      0   0   777777777777 0            0            
ST1	032730 0      0   0   777777777777 0            0            
ST2	032730 0      0   0   777777777777 0            0            
ST9	032730 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 359
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0554

*032730 SETZ 	1,000000
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032730 032730 0   0   400040000000 0            0            
IT1	032730 0      0   0   400040000000 0            0            
AT3	032730 0      0   0   0            0            400040000000 
AT6	032730 0      0   0   0            0            400040000000 
FT1A	032730 0      0   0   0            0            0            
FT9	032731 0      0   0   0            0            0            
ET0	032731 0      0   0   0            0            0            
ST1	032731 0      0   0   0            0            0            
ST2	032731 0      0   0   0            0            0            
ST9	032731 0      0   0   0            0            0            


*032731 MOVEM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032731 032731 0   0   202000000001 0            000000000001 
IT1	032731 0      0   0   202000000001 0            000000000001 
AT3	032731 0      0   0   000000000001 0            202000000001 
AT6	032731 000001 0   0   000000000001 0            202000000001 
FT1A	032731 000001 0   0   000000000001 0            000000000001 
FT2	032731 000001 0   0   0            0            000000000001 
FT2RQ	032731 000001 0   0   777777777777 0            000000000001 
FT3	032731 000001 0   0   777777777777 0            000000000001 
FT9	032732 000001 0   0   777777777777 0            000000000001 
ET0	032732 000001 0   0   777777777777 0            000000000001 
ST6	032732 000001 0   0   777777777777 0            000000000001 
ST6A	032732 000001 0   0   777777777777 0            000000000001 
ST9	032732 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 360
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0555

*032732 CAME	1,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032732 032732 0   0   312040034466 0            777777777777 
IT1	032732 0      0   0   312040034466 0            777777777777 
AT3	032732 0      0   0   000000034466 0            312040034466 
AT6	032732 034466 0   0   000000034466 0            312040034466 
FT0	032732 034466 0   0   777777777777 0            312040034466 
FT1A	032732 034466 0   0   777777777777 0            777777777777 
FT2	032732 034466 0   0   0            0            777777777777 
FT2RQ	032732 034466 0   0   777777777777 0            777777777777 
FT3	032732 034466 0   0   777777777777 0            777777777777 
FT9	032733 034466 0   0   777777777777 0            777777777777 
ET0	032734 034466 0   0   0            0            777777777777 
ST1A	032734 034466 0   0   0            0            777777777777 
ST9	032734 034466 0   0   0            0            777777777777 


*032734 JUMPA	0,032735
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032734 032734 0   0   324000032735 0            000000032735 
IT1	032734 0      0   0   324000032735 0            000000032735 
AT3	032734 0      0   0   000000032735 0            324000032735 
AT6	032734 032735 0   0   000000032735 0            324000032735 
FT1A	032734 032735 0   0   000000032735 0            000000032735 
FT2	032734 032735 0   0   0            0            000000032735 
FT2RQ	032734 032735 0   0   777777777777 0            000000032735 
FT3	032734 032735 0   0   777777777777 0            000000032735 
FT9	032735 032735 0   0   777777777777 0            000000032735 
ET0	032735 032735 0   0   777777777777 0            000000032735 
ST1A	032735 032735 0   0   777777777777 0            000000032735 
ST9	032735 032735 0   0   777777777777 0            000000032735 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 361
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0556

*032735 CAME	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032735 032735 0   0   312000034466 0            777777777777 
IT1	032735 0      0   0   312000034466 0            777777777777 
AT3	032735 0      0   0   000000034466 0            312000034466 
AT6	032735 034466 0   0   000000034466 0            312000034466 
FT0	032735 034466 0   0   777777777777 0            312000034466 
FT1A	032735 034466 0   0   777777777777 0            777777777777 
FT2	032735 034466 0   0   0            0            777777777777 
FT2RQ	032735 034466 0   0   777777777777 0            777777777777 
FT3	032735 034466 0   0   777777777777 0            777777777777 
FT9	032736 034466 0   0   777777777777 0            777777777777 
ET0	032737 034466 0   0   0            0            777777777777 
ST1A	032737 034466 0   0   0            0            777777777777 
ST9	032737 034466 0   0   0            0            777777777777 


*032737 JUMPA	0,032740
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032737 032737 0   0   324000032740 0            000000032740 
IT1	032737 0      0   0   324000032740 0            000000032740 
AT3	032737 0      0   0   000000032740 0            324000032740 
AT6	032737 032740 0   0   000000032740 0            324000032740 
FT1A	032737 032740 0   0   000000032740 0            000000032740 
FT2	032737 032740 0   0   0            0            000000032740 
FT2RQ	032737 032740 0   0   777777777777 0            000000032740 
FT3	032737 032740 0   0   777777777777 0            000000032740 
FT9	032740 032740 0   0   777777777777 0            000000032740 
ET0	032740 032740 0   0   777777777777 0            000000032740 
ST1A	032740 032740 0   0   777777777777 0            000000032740 
ST9	032740 032740 0   0   777777777777 0            000000032740 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 362
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0557

*032740 MOVE 	0,034537
INITIAL
C(AC)=777777 777777 
C(E)=254200 032743 
FINAL
C(AC)=254200 032743 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032740 032740 0   0   200000034537 0            254200032743 
IT1	032740 0      0   0   200000034537 0            254200032743 
AT3	032740 0      0   0   000000034537 0            200000034537 
AT6	032740 034537 0   0   000000034537 0            200000034537 
FT0	032740 034537 0   0   254200032743 0            200000034537 
FT1A	032740 034537 0   0   254200032743 0            254200032743 
FT9	032741 034537 0   0   254200032743 0            254200032743 
ET0	032741 034537 0   0   254200032743 0            254200032743 
ST1	032741 034537 0   0   254200032743 0            254200032743 
ST2	032741 034537 0   0   254200032743 0            254200032743 
ST9	032741 034537 0   0   254200032743 0            254200032743 


*032741 JFCL	17,032742
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032741 032741 0   0   255740032742 0            000000032742 
IT1	032741 0      0   0   255740032742 0            000000032742 
AT3	032741 0      0   0   000000032742 0            255740032742 
AT6	032741 032742 0   0   000000032742 0            255740032742 
FT1A	032741 032742 0   0   000000032742 0            000000032742 
FT9	032742 032742 0   0   000000032742 0            000000032742 
ET0	032742 032742 0   0   000000032742 0            000000032742 
ST1A	032742 032742 0   0   000000032742 0            000000032742 
ST9	032742 032742 0   0   000000032742 0            000000032742 


*032742 CAIA	0,000000
INITIAL
C(AC)=254200 032743 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032742 032742 0   0   304000000000 0            0            
IT1	032742 0      0   0   304000000000 0            0            
AT3	032742 0      0   0   0            0            304000000000 
AT6	032742 0      0   0   0            0            304000000000 
FT1A	032742 0      0   0   0            0            0            
FT2	032742 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 363
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0558

FT2RQ	032742 0      0   0   254200032743 0            0            
FT3	032742 0      0   0   254200032743 0            0            
FT9	032743 0      0   0   254200032743 0            0            
ET0	032744 0      0   0   254200032743 0            0            
ST1A	032744 0      0   0   254200032743 0            0            
ST9	032744 0      0   0   254200032743 0            0            


*032744 JUMPA	0,032745
INITIAL
C(AC)=254200 032743 
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   254200032743 0            000000032745 
FT3	032744 032745 0   0   254200032743 0            000000032745 
FT9	032745 032745 0   0   254200032743 0            000000032745 
ET0	032745 032745 0   0   254200032743 0            000000032745 
ST1A	032745 032745 0   0   254200032743 0            000000032745 
ST9	032745 032745 0   0   254200032743 0            000000032745 


*032745 MOVE 	0,034466
INITIAL
C(AC)=254200 032743 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032745 032745 0   0   200000034466 0            777777777777 
IT1	032745 0      0   0   200000034466 0            777777777777 
AT3	032745 0      0   0   000000034466 0            200000034466 
AT6	032745 034466 0   0   000000034466 0            200000034466 
FT0	032745 034466 0   0   777777777777 0            200000034466 
FT1A	032745 034466 0   0   777777777777 0            777777777777 
FT9	032746 034466 0   0   777777777777 0            777777777777 
ET0	032746 034466 0   0   777777777777 0            777777777777 
ST1	032746 034466 0   0   777777777777 0            777777777777 
ST2	032746 034466 0   0   777777777777 0            777777777777 
ST9	032746 034466 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 364
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0559

*032746 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032746 032746 0   0   271000000001 0            000000000001 
IT1	032746 0      0   0   271000000001 0            000000000001 
AT3	032746 0      0   0   000000000001 0            271000000001 
AT6	032746 000001 0   0   000000000001 0            271000000001 
FT1A	032746 000001 0   0   000000000001 0            000000000001 
FT2	032746 000001 0   0   0            0            000000000001 
FT2RQ	032746 000001 0   0   777777777777 0            000000000001 
FT3	032746 000001 0   0   777777777777 0            000000000001 
FT9	032747 000001 0   0   777777777777 0            000000000001 
ET0	032747 000001 0   0   0            0            000000000001 
ST1	032747 000001 0   0   0            0            000000000001 
ST2	032747 000001 0   0   0            0            000000000001 
ST9	032747 000001 0   0   0            0            000000000001 


*032747 JFCL	17,032750
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032747 032747 0   0   255740032750 0            000000032750 
IT1	032747 0      0   0   255740032750 0            000000032750 
AT3	032747 0      0   0   000000032750 0            255740032750 
AT6	032747 032750 0   0   000000032750 0            255740032750 
FT1A	032747 032750 0   0   000000032750 0            000000032750 
FT9	032750 032750 0   0   000000032750 0            000000032750 
ET0	032750 032750 0   0   000000032750 0            000000032750 
ST1A	032750 032750 0   0   000000032750 0            000000032750 
ST9	032750 032750 0   0   000000032750 0            000000032750 


*032750 JFCL	4,032752
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032750 032750 0   0   255200032752 0            000000032752 
IT1	032750 0      0   0   255200032752 0            000000032752 
AT3	032750 0      0   0   000000032752 0            255200032752 
AT6	032750 032752 0   0   000000032752 0            255200032752 
FT1A	032750 032752 0   0   000000032752 0            000000032752 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 365
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0560

FT9	032751 032752 0   0   000000032752 0            000000032752 
ET0	032751 032752 0   0   000000032752 0            000000032752 
ST1A	032751 032752 0   0   000000032752 0            000000032752 
ST9	032751 032752 0   0   000000032752 0            000000032752 


*032751 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	032751 032751 0   0   334000000000 0            0            
IT1	032751 0      0   0   334000000000 0            0            
AT3	032751 0      0   0   0            0            334000000000 
AT6	032751 0      0   0   0            0            334000000000 
FT0	032751 0      0   0   0            0            334000000000 
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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 366
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0561

*032754 MOVE 	0,034466
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   200000034466 0            777777777777 
IT1	032754 0      0   0   200000034466 0            777777777777 
AT3	032754 0      0   0   000000034466 0            200000034466 
AT6	032754 034466 0   0   000000034466 0            200000034466 
FT0	032754 034466 0   0   777777777777 0            200000034466 
FT1A	032754 034466 0   0   777777777777 0            777777777777 
FT9	032755 034466 0   0   777777777777 0            777777777777 
ET0	032755 034466 0   0   777777777777 0            777777777777 
ST1	032755 034466 0   0   777777777777 0            777777777777 
ST2	032755 034466 0   0   777777777777 0            777777777777 
ST9	032755 034466 0   0   777777777777 0            777777777777 


*032755 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032755 032755 0   0   271000000001 0            000000000001 
IT1	032755 0      0   0   271000000001 0            000000000001 
AT3	032755 0      0   0   000000000001 0            271000000001 
AT6	032755 000001 0   0   000000000001 0            271000000001 
FT1A	032755 000001 0   0   000000000001 0            000000000001 
FT2	032755 000001 0   0   0            0            000000000001 
FT2RQ	032755 000001 0   0   777777777777 0            000000000001 
FT3	032755 000001 0   0   777777777777 0            000000000001 
FT9	032756 000001 0   0   777777777777 0            000000000001 
ET0	032756 000001 0   0   0            0            000000000001 
ST1	032756 000001 0   0   0            0            000000000001 
ST2	032756 000001 0   0   0            0            000000000001 
ST9	032756 000001 0   0   0            0            000000000001 


*032756 JFCL	17,032757
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032756 032756 0   0   255740032757 0            000000032757 
IT1	032756 0      0   0   255740032757 0            000000032757 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 367
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0562

AT3	032756 0      0   0   000000032757 0            255740032757 
AT6	032756 032757 0   0   000000032757 0            255740032757 
FT1A	032756 032757 0   0   000000032757 0            000000032757 
FT9	032757 032757 0   0   000000032757 0            000000032757 
ET0	032757 032757 0   0   000000032757 0            000000032757 
ST1A	032757 032757 0   0   000000032757 0            000000032757 
ST9	032757 032757 0   0   000000032757 0            000000032757 


*032757 JFCL	2,032761
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032757 032757 0   0   255100032761 0            000000032761 
IT1	032757 0      0   0   255100032761 0            000000032761 
AT3	032757 0      0   0   000000032761 0            255100032761 
AT6	032757 032761 0   0   000000032761 0            255100032761 
FT1A	032757 032761 0   0   000000032761 0            000000032761 
FT9	032760 032761 0   0   000000032761 0            000000032761 
ET0	032760 032761 0   0   000000032761 0            000000032761 
ST1A	032760 032761 0   0   000000032761 0            000000032761 
ST9	032760 032761 0   0   000000032761 0            000000032761 


*032760 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	032760 032760 0   0   334000000000 0            0            
IT1	032760 0      0   0   334000000000 0            0            
AT3	032760 0      0   0   0            0            334000000000 
AT6	032760 0      0   0   0            0            334000000000 
FT0	032760 0      0   0   0            0            334000000000 
FT1A	032760 0      0   0   0            0            0            
FT9	032761 0      0   0   0            0            0            
ET0	032762 0      0   0   0            0            0            
ST1A	032762 0      0   0   0            0            0            
ST9	032762 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 368
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0563

*032762 JUMPA	0,032763
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032762 032762 0   0   324000032763 0            000000032763 
IT1	032762 0      0   0   324000032763 0            000000032763 
AT3	032762 0      0   0   000000032763 0            324000032763 
AT6	032762 032763 0   0   000000032763 0            324000032763 
FT1A	032762 032763 0   0   000000032763 0            000000032763 
FT2	032762 032763 0   0   0            0            000000032763 
FT2RQ	032762 032763 0   0   0            0            000000032763 
FT3	032762 032763 0   0   0            0            000000032763 
FT9	032763 032763 0   0   0            0            000000032763 
ET0	032763 032763 0   0   0            0            000000032763 
ST1A	032763 032763 0   0   0            0            000000032763 
ST9	032763 032763 0   0   0            0            000000032763 


*032763 MOVSI	0,400000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032763 032763 0   0   205000400000 0            000000400000 
IT1	032763 0      0   0   205000400000 0            000000400000 
AT3	032763 0      0   0   000000400000 0            205000400000 
AT6	032763 0      0   0   000000400000 0            205000400000 
FT1A	032763 0      0   0   000000400000 0            000000400000 
FT9	032764 0      0   0   000000400000 0            000000400000 
ET0	032764 0      0   0   400000000000 0            000000400000 
ST1	032764 0      0   0   400000000000 0            000000400000 
ST2	032764 0      0   0   400000000000 0            000000400000 
ST9	032764 0      0   0   400000000000 0            000000400000 


*032764 ADD 	0,034465
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032764 032764 0   0   270000034465 0            400000000000 
IT1	032764 0      0   0   270000034465 0            400000000000 
AT3	032764 0      0   0   000000034465 0            270000034465 
AT6	032764 034465 0   0   000000034465 0            270000034465 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 369
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0564

FT0	032764 034465 0   0   400000000000 0            270000034465 
FT1A	032764 034465 0   0   400000000000 0            400000000000 
FT2	032764 034465 0   0   0            0            400000000000 
FT2RQ	032764 034465 0   0   400000000000 0            400000000000 
FT3	032764 034465 0   0   400000000000 0            400000000000 
FT9	032765 034465 0   0   400000000000 0            400000000000 
ET0	032765 034465 0   0   0            0            400000000000 
ST1	032765 034465 0   0   0            0            400000000000 
ST2	032765 034465 0   0   0            0            400000000000 
ST9	032765 034465 0   0   0            0            400000000000 


*032765 JFCL	17,032766
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032765 032765 0   0   255740032766 0            000000032766 
IT1	032765 0      0   0   255740032766 0            000000032766 
AT3	032765 0      0   0   000000032766 0            255740032766 
AT6	032765 032766 0   0   000000032766 0            255740032766 
FT1A	032765 032766 0   0   000000032766 0            000000032766 
FT9	032766 032766 0   0   000000032766 0            000000032766 
ET0	032766 032766 0   0   000000032766 0            000000032766 
ST1A	032766 032766 0   0   000000032766 0            000000032766 
ST9	032766 032766 0   0   000000032766 0            000000032766 


*032766 JFCL	10,032770
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032766 032766 0   0   255400032770 0            000000032770 
IT1	032766 0      0   0   255400032770 0            000000032770 
AT3	032766 0      0   0   000000032770 0            255400032770 
AT6	032766 032770 0   0   000000032770 0            255400032770 
FT1A	032766 032770 0   0   000000032770 0            000000032770 
FT9	032767 032770 0   0   000000032770 0            000000032770 
ET0	032767 032770 0   0   000000032770 0            000000032770 
ST1A	032767 032770 0   0   000000032770 0            000000032770 
ST9	032767 032770 0   0   000000032770 0            000000032770 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 370
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0565

*032767 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	032767 032767 0   0   334000000000 0            0            
IT1	032767 0      0   0   334000000000 0            0            
AT3	032767 0      0   0   0            0            334000000000 
AT6	032767 0      0   0   0            0            334000000000 
FT0	032767 0      0   0   0            0            334000000000 
FT1A	032767 0      0   0   0            0            0            
FT9	032770 0      0   0   0            0            0            
ET0	032771 0      0   0   0            0            0            
ST1A	032771 0      0   0   0            0            0            
ST9	032771 0      0   0   0            0            0            


*032771 JUMPA	0,032772
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032771 032771 0   0   324000032772 0            000000032772 
IT1	032771 0      0   0   324000032772 0            000000032772 
AT3	032771 0      0   0   000000032772 0            324000032772 
AT6	032771 032772 0   0   000000032772 0            324000032772 
FT1A	032771 032772 0   0   000000032772 0            000000032772 
FT2	032771 032772 0   0   0            0            000000032772 
FT2RQ	032771 032772 0   0   0            0            000000032772 
FT3	032771 032772 0   0   0            0            000000032772 
FT9	032772 032772 0   0   0            0            000000032772 
ET0	032772 032772 0   0   0            0            000000032772 
ST1A	032772 032772 0   0   0            0            000000032772 
ST9	032772 032772 0   0   0            0            000000032772 


*032772 MOVSI	0,400000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032772 032772 0   0   205000400000 0            000000400000 
IT1	032772 0      0   0   205000400000 0            000000400000 
AT3	032772 0      0   0   000000400000 0            205000400000 
AT6	032772 0      0   0   000000400000 0            205000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 371
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0566

FT1A	032772 0      0   0   000000400000 0            000000400000 
FT9	032773 0      0   0   000000400000 0            000000400000 
ET0	032773 0      0   0   400000000000 0            000000400000 
ST1	032773 0      0   0   400000000000 0            000000400000 
ST2	032773 0      0   0   400000000000 0            000000400000 
ST9	032773 0      0   0   400000000000 0            000000400000 


*032773 ADD 	0,034466
INITIAL
C(AC)=400000 000000 
C(E)=777777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032773 032773 0   0   270000034466 0            777777777777 
IT1	032773 0      0   0   270000034466 0            777777777777 
AT3	032773 0      0   0   000000034466 0            270000034466 
AT6	032773 034466 0   0   000000034466 0            270000034466 
FT0	032773 034466 0   0   777777777777 0            270000034466 
FT1A	032773 034466 0   0   777777777777 0            777777777777 
FT2	032773 034466 0   0   0            0            777777777777 
FT2RQ	032773 034466 0   0   400000000000 0            777777777777 
FT3	032773 034466 0   0   400000000000 0            777777777777 
FT9	032774 034466 0   0   400000000000 0            777777777777 
ET0	032774 034466 0   0   377777777777 0            777777777777 
ST1	032774 034466 0   0   377777777777 0            777777777777 
ST2	032774 034466 0   0   377777777777 0            777777777777 
ST9	032774 034466 0   0   377777777777 0            777777777777 


*032774 JFCL	0,032776
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	032774 032774 0   0   255000032776 0            000000032776 
IT1	032774 0      0   0   255000032776 0            000000032776 
AT3	032774 0      0   0   000000032776 0            255000032776 
AT6	032774 032776 0   0   000000032776 0            255000032776 
FT1A	032774 032776 0   0   000000032776 0            000000032776 
FT9	032775 032776 0   0   000000032776 0            000000032776 
ET0	032775 032776 0   0   000000032776 0            000000032776 
ST1A	032775 032776 0   0   000000032776 0            000000032776 
ST9	032775 032776 0   0   000000032776 0            000000032776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 372
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0567

*032775 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	032775 032775 0   0   334000000000 0            377777777777 
IT1	032775 0      0   0   334000000000 0            377777777777 
AT3	032775 0      0   0   0            0            334000000000 
AT6	032775 0      0   0   0            0            334000000000 
FT0	032775 0      0   0   377777777777 0            334000000000 
FT1A	032775 0      0   0   377777777777 0            377777777777 
FT9	032776 0      0   0   377777777777 0            377777777777 
ET0	032777 0      0   0   377777777777 0            377777777777 
ST1A	032777 0      0   0   377777777777 0            377777777777 
ST9	032777 0      0   0   377777777777 0            377777777777 


*032777 JUMPA	0,033000
INITIAL
C(AC)=377777 777777 
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   377777777777 0            000000033000 
FT3	032777 0      0   0   377777777777 0            000000033000 
FT9	0      0      0   0   377777777777 0            000000033000 
ET0	0      0      0   0   377777777777 0            000000033000 
ST1A	0      0      0   0   377777777777 0            000000033000 
ST9	0      0      0   0   377777777777 0            000000033000 


*033000 MOVSI	0,200000
INITIAL
C(AC)=377777 777777 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   205000200000 0            000000200000 
IT1	0      0      0   0   205000200000 0            000000200000 
AT3	0      0      0   0   000000200000 0            205000200000 
AT6	0      0      0   0   000000200000 0            205000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 373
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0568

FT1A	0      0      0   0   000000200000 0            000000200000 
FT9	033001 0      0   0   000000200000 0            000000200000 
ET0	033001 0      0   0   200000000000 0            000000200000 
ST1	033001 0      0   0   200000000000 0            000000200000 
ST2	033001 0      0   0   200000000000 0            000000200000 
ST9	033001 0      0   0   200000000000 0            000000200000 


*033001 ADD 	0,034464
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033001 033001 0   0   270000034464 0            200000000000 
IT1	033001 0      0   0   270000034464 0            200000000000 
AT3	033001 0      0   0   000000034464 0            270000034464 
AT6	033001 034464 0   0   000000034464 0            270000034464 
FT0	033001 034464 0   0   200000000000 0            270000034464 
FT1A	033001 034464 0   0   200000000000 0            200000000000 
FT2	033001 034464 0   0   0            0            200000000000 
FT2RQ	033001 034464 0   0   200000000000 0            200000000000 
FT3	033001 034464 0   0   200000000000 0            200000000000 
FT9	033002 034464 0   0   200000000000 0            200000000000 
ET0	033002 034464 0   0   400000000000 0            200000000000 
ST1	033002 034464 0   0   400000000000 0            200000000000 
ST2	033002 034464 0   0   400000000000 0            200000000000 
ST9	033002 034464 0   0   400000000000 0            200000000000 


*033002 JFCL	0,033004
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033002 033002 0   0   255000033004 0            000000033004 
IT1	033002 0      0   0   255000033004 0            000000033004 
AT3	033002 0      0   0   000000033004 0            255000033004 
AT6	033002 033004 0   0   000000033004 0            255000033004 
FT1A	033002 033004 0   0   000000033004 0            000000033004 
FT9	033003 033004 0   0   000000033004 0            000000033004 
ET0	033003 033004 0   0   000000033004 0            000000033004 
ST1A	033003 033004 0   0   000000033004 0            000000033004 
ST9	033003 033004 0   0   000000033004 0            000000033004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 374
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0569

*033003 SKIPA	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033003 033003 0   0   334000000000 0            400000000000 
IT1	033003 0      0   0   334000000000 0            400000000000 
AT3	033003 0      0   0   0            0            334000000000 
AT6	033003 0      0   0   0            0            334000000000 
FT0	033003 0      0   0   400000000000 0            334000000000 
FT1A	033003 0      0   0   400000000000 0            400000000000 
FT9	033004 0      0   0   400000000000 0            400000000000 
ET0	033005 0      0   0   400000000000 0            400000000000 
ST1A	033005 0      0   0   400000000000 0            400000000000 
ST9	033005 0      0   0   400000000000 0            400000000000 


*033005 JUMPA	0,033006
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033005 033005 0   0   324000033006 0            000000033006 
IT1	033005 0      0   0   324000033006 0            000000033006 
AT3	033005 0      0   0   000000033006 0            324000033006 
AT6	033005 033006 0   0   000000033006 0            324000033006 
FT1A	033005 033006 0   0   000000033006 0            000000033006 
FT2	033005 033006 0   0   0            0            000000033006 
FT2RQ	033005 033006 0   0   400000000000 0            000000033006 
FT3	033005 033006 0   0   400000000000 0            000000033006 
FT9	033006 033006 0   0   400000000000 0            000000033006 
ET0	033006 033006 0   0   400000000000 0            000000033006 
ST1A	033006 033006 0   0   400000000000 0            000000033006 
ST9	033006 033006 0   0   400000000000 0            000000033006 


*033006 MOVE 	0,034466
INITIAL
C(AC)=400000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033006 033006 0   0   200000034466 0            777777777777 
IT1	033006 0      0   0   200000034466 0            777777777777 
AT3	033006 0      0   0   000000034466 0            200000034466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 375
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0570

AT6	033006 034466 0   0   000000034466 0            200000034466 
FT0	033006 034466 0   0   777777777777 0            200000034466 
FT1A	033006 034466 0   0   777777777777 0            777777777777 
FT9	033007 034466 0   0   777777777777 0            777777777777 
ET0	033007 034466 0   0   777777777777 0            777777777777 
ST1	033007 034466 0   0   777777777777 0            777777777777 
ST2	033007 034466 0   0   777777777777 0            777777777777 
ST9	033007 034466 0   0   777777777777 0            777777777777 


*033007 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033007 033007 0   0   271000000001 0            000000000001 
IT1	033007 0      0   0   271000000001 0            000000000001 
AT3	033007 0      0   0   000000000001 0            271000000001 
AT6	033007 000001 0   0   000000000001 0            271000000001 
FT1A	033007 000001 0   0   000000000001 0            000000000001 
FT2	033007 000001 0   0   0            0            000000000001 
FT2RQ	033007 000001 0   0   777777777777 0            000000000001 
FT3	033007 000001 0   0   777777777777 0            000000000001 
FT9	033010 000001 0   0   777777777777 0            000000000001 
ET0	033010 000001 0   0   0            0            000000000001 
ST1	033010 000001 0   0   0            0            000000000001 
ST2	033010 000001 0   0   0            0            000000000001 
ST9	033010 000001 0   0   0            0            000000000001 


*033010 JFCL	17,033012
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033010 033010 0   0   255740033012 0            000000033012 
IT1	033010 0      0   0   255740033012 0            000000033012 
AT3	033010 0      0   0   000000033012 0            255740033012 
AT6	033010 033012 0   0   000000033012 0            255740033012 
FT1A	033010 033012 0   0   000000033012 0            000000033012 
FT9	033011 033012 0   0   000000033012 0            000000033012 
ET0	033012 033012 0   0   000000033012 0            000000033012 
ST1A	033012 033012 0   0   000000033012 0            000000033012 
ST9	033012 033012 0   0   000000033012 0            000000033012 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 376
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0571

*033012 JUMPA	0,033013
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033012 033012 0   0   324000033013 0            000000033013 
IT1	033012 0      0   0   324000033013 0            000000033013 
AT3	033012 0      0   0   000000033013 0            324000033013 
AT6	033012 033013 0   0   000000033013 0            324000033013 
FT1A	033012 033013 0   0   000000033013 0            000000033013 
FT2	033012 033013 0   0   0            0            000000033013 
FT2RQ	033012 033013 0   0   0            0            000000033013 
FT3	033012 033013 0   0   0            0            000000033013 
FT9	033013 033013 0   0   0            0            000000033013 
ET0	033013 033013 0   0   0            0            000000033013 
ST1A	033013 033013 0   0   0            0            000000033013 
ST9	033013 033013 0   0   0            0            000000033013 


*033013 MOVE 	0,034466
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033013 033013 0   0   200000034466 0            777777777777 
IT1	033013 0      0   0   200000034466 0            777777777777 
AT3	033013 0      0   0   000000034466 0            200000034466 
AT6	033013 034466 0   0   000000034466 0            200000034466 
FT0	033013 034466 0   0   777777777777 0            200000034466 
FT1A	033013 034466 0   0   777777777777 0            777777777777 
FT9	033014 034466 0   0   777777777777 0            777777777777 
ET0	033014 034466 0   0   777777777777 0            777777777777 
ST1	033014 034466 0   0   777777777777 0            777777777777 
ST2	033014 034466 0   0   777777777777 0            777777777777 
ST9	033014 034466 0   0   777777777777 0            777777777777 


*033014 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033014 033014 0   0   271000000001 0            000000000001 
IT1	033014 0      0   0   271000000001 0            000000000001 
AT3	033014 0      0   0   000000000001 0            271000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 377
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0572

AT6	033014 000001 0   0   000000000001 0            271000000001 
FT1A	033014 000001 0   0   000000000001 0            000000000001 
FT2	033014 000001 0   0   0            0            000000000001 
FT2RQ	033014 000001 0   0   777777777777 0            000000000001 
FT3	033014 000001 0   0   777777777777 0            000000000001 
FT9	033015 000001 0   0   777777777777 0            000000000001 
ET0	033015 000001 0   0   0            0            000000000001 
ST1	033015 000001 0   0   0            0            000000000001 
ST2	033015 000001 0   0   0            0            000000000001 
ST9	033015 000001 0   0   0            0            000000000001 


*033015 CAI 	17,000017
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033015 033015 0   0   300740000017 0            000000000017 
IT1	033015 0      0   0   300740000017 0            000000000017 
AT3	033015 0      0   0   000000000017 0            300740000017 
AT6	033015 000017 0   0   000000000017 0            300740000017 
FT1A	033015 000017 0   0   000000000017 0            000000000017 
FT2	033015 000017 0   0   0            0            000000000017 
FT2RQ	033015 000017 0   0   000000777723 0            000000000017 
FT3	033015 000017 0   0   000000777723 0            000000000017 
FT9	033016 000017 0   0   000000777723 0            000000000017 
ET0	033016 000017 0   0   000000777704 0            000000000017 
ST1A	033016 000017 0   0   000000777704 0            000000000017 
ST9	033016 000017 0   0   000000777704 0            000000000017 


*033016 JFCL	17,033020
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033016 033016 0   0   255740033020 0            000000033020 
IT1	033016 0      0   0   255740033020 0            000000033020 
AT3	033016 0      0   0   000000033020 0            255740033020 
AT6	033016 033020 0   0   000000033020 0            255740033020 
FT1A	033016 033020 0   0   000000033020 0            000000033020 
FT9	033017 033020 0   0   000000033020 0            000000033020 
ET0	033020 033020 0   0   000000033020 0            000000033020 
ST1A	033020 033020 0   0   000000033020 0            000000033020 
ST9	033020 033020 0   0   000000033020 0            000000033020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 378
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0573

*033020 JUMPA	0,033021
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033020 033020 0   0   324000033021 0            000000033021 
IT1	033020 0      0   0   324000033021 0            000000033021 
AT3	033020 0      0   0   000000033021 0            324000033021 
AT6	033020 033021 0   0   000000033021 0            324000033021 
FT1A	033020 033021 0   0   000000033021 0            000000033021 
FT2	033020 033021 0   0   0            0            000000033021 
FT2RQ	033020 033021 0   0   0            0            000000033021 
FT3	033020 033021 0   0   0            0            000000033021 
FT9	033021 033021 0   0   0            0            000000033021 
ET0	033021 033021 0   0   0            0            000000033021 
ST1A	033021 033021 0   0   0            0            000000033021 
ST9	033021 033021 0   0   0            0            000000033021 


*033021 MOVE 	0,034466
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033021 033021 0   0   200000034466 0            777777777777 
IT1	033021 0      0   0   200000034466 0            777777777777 
AT3	033021 0      0   0   000000034466 0            200000034466 
AT6	033021 034466 0   0   000000034466 0            200000034466 
FT0	033021 034466 0   0   777777777777 0            200000034466 
FT1A	033021 034466 0   0   777777777777 0            777777777777 
FT9	033022 034466 0   0   777777777777 0            777777777777 
ET0	033022 034466 0   0   777777777777 0            777777777777 
ST1	033022 034466 0   0   777777777777 0            777777777777 
ST2	033022 034466 0   0   777777777777 0            777777777777 
ST9	033022 034466 0   0   777777777777 0            777777777777 


*033022 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033022 033022 0   0   271000000001 0            000000000001 
IT1	033022 0      0   0   271000000001 0            000000000001 
AT3	033022 0      0   0   000000000001 0            271000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 379
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0574

AT6	033022 000001 0   0   000000000001 0            271000000001 
FT1A	033022 000001 0   0   000000000001 0            000000000001 
FT2	033022 000001 0   0   0            0            000000000001 
FT2RQ	033022 000001 0   0   777777777777 0            000000000001 
FT3	033022 000001 0   0   777777777777 0            000000000001 
FT9	033023 000001 0   0   777777777777 0            000000000001 
ET0	033023 000001 0   0   0            0            000000000001 
ST1	033023 000001 0   0   0            0            000000000001 
ST2	033023 000001 0   0   0            0            000000000001 
ST9	033023 000001 0   0   0            0            000000000001 


*033023 JFCL	2,033025
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033023 033023 0   0   255100033025 0            000000033025 
IT1	033023 0      0   0   255100033025 0            000000033025 
AT3	033023 0      0   0   000000033025 0            255100033025 
AT6	033023 033025 0   0   000000033025 0            255100033025 
FT1A	033023 033025 0   0   000000033025 0            000000033025 
FT9	033024 033025 0   0   000000033025 0            000000033025 
ET0	033025 033025 0   0   000000033025 0            000000033025 
ST1A	033025 033025 0   0   000000033025 0            000000033025 
ST9	033025 033025 0   0   000000033025 0            000000033025 


*033025 JUMPA	0,033026
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033025 033025 0   0   324000033026 0            000000033026 
IT1	033025 0      0   0   324000033026 0            000000033026 
AT3	033025 0      0   0   000000033026 0            324000033026 
AT6	033025 033026 0   0   000000033026 0            324000033026 
FT1A	033025 033026 0   0   000000033026 0            000000033026 
FT2	033025 033026 0   0   0            0            000000033026 
FT2RQ	033025 033026 0   0   0            0            000000033026 
FT3	033025 033026 0   0   0            0            000000033026 
FT9	033026 033026 0   0   0            0            000000033026 
ET0	033026 033026 0   0   0            0            000000033026 
ST1A	033026 033026 0   0   0            0            000000033026 
ST9	033026 033026 0   0   0            0            000000033026 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 380
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0575

*033026 MOVE 	0,034466
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033026 033026 0   0   200000034466 0            777777777777 
IT1	033026 0      0   0   200000034466 0            777777777777 
AT3	033026 0      0   0   000000034466 0            200000034466 
AT6	033026 034466 0   0   000000034466 0            200000034466 
FT0	033026 034466 0   0   777777777777 0            200000034466 
FT1A	033026 034466 0   0   777777777777 0            777777777777 
FT9	033027 034466 0   0   777777777777 0            777777777777 
ET0	033027 034466 0   0   777777777777 0            777777777777 
ST1	033027 034466 0   0   777777777777 0            777777777777 
ST2	033027 034466 0   0   777777777777 0            777777777777 
ST9	033027 034466 0   0   777777777777 0            777777777777 


*033027 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033027 033027 0   0   271000000001 0            000000000001 
IT1	033027 0      0   0   271000000001 0            000000000001 
AT3	033027 0      0   0   000000000001 0            271000000001 
AT6	033027 000001 0   0   000000000001 0            271000000001 
FT1A	033027 000001 0   0   000000000001 0            000000000001 
FT2	033027 000001 0   0   0            0            000000000001 
FT2RQ	033027 000001 0   0   777777777777 0            000000000001 
FT3	033027 000001 0   0   777777777777 0            000000000001 
FT9	033030 000001 0   0   777777777777 0            000000000001 
ET0	033030 000001 0   0   0            0            000000000001 
ST1	033030 000001 0   0   0            0            000000000001 
ST2	033030 000001 0   0   0            0            000000000001 
ST9	033030 000001 0   0   0            0            000000000001 


*033030 JFCL	4,033032
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033030 033030 0   0   255200033032 0            000000033032 
IT1	033030 0      0   0   255200033032 0            000000033032 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 381
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0576

AT3	033030 0      0   0   000000033032 0            255200033032 
AT6	033030 033032 0   0   000000033032 0            255200033032 
FT1A	033030 033032 0   0   000000033032 0            000000033032 
FT9	033031 033032 0   0   000000033032 0            000000033032 
ET0	033032 033032 0   0   000000033032 0            000000033032 
ST1A	033032 033032 0   0   000000033032 0            000000033032 
ST9	033032 033032 0   0   000000033032 0            000000033032 


*033032 JUMPA	0,033033
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033032 033032 0   0   324000033033 0            000000033033 
IT1	033032 0      0   0   324000033033 0            000000033033 
AT3	033032 0      0   0   000000033033 0            324000033033 
AT6	033032 033033 0   0   000000033033 0            324000033033 
FT1A	033032 033033 0   0   000000033033 0            000000033033 
FT2	033032 033033 0   0   0            0            000000033033 
FT2RQ	033032 033033 0   0   0            0            000000033033 
FT3	033032 033033 0   0   0            0            000000033033 
FT9	033033 033033 0   0   0            0            000000033033 
ET0	033033 033033 0   0   0            0            000000033033 
ST1A	033033 033033 0   0   0            0            000000033033 
ST9	033033 033033 0   0   0            0            000000033033 


*033033 MOVSI	0,400000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033033 033033 0   0   205000400000 0            000000400000 
IT1	033033 0      0   0   205000400000 0            000000400000 
AT3	033033 0      0   0   000000400000 0            205000400000 
AT6	033033 0      0   0   000000400000 0            205000400000 
FT1A	033033 0      0   0   000000400000 0            000000400000 
FT9	033034 0      0   0   000000400000 0            000000400000 
ET0	033034 0      0   0   400000000000 0            000000400000 
ST1	033034 0      0   0   400000000000 0            000000400000 
ST2	033034 0      0   0   400000000000 0            000000400000 
ST9	033034 0      0   0   400000000000 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 382
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0577

*033034 ADD 	0,034465
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033034 033034 0   0   270000034465 0            400000000000 
IT1	033034 0      0   0   270000034465 0            400000000000 
AT3	033034 0      0   0   000000034465 0            270000034465 
AT6	033034 034465 0   0   000000034465 0            270000034465 
FT0	033034 034465 0   0   400000000000 0            270000034465 
FT1A	033034 034465 0   0   400000000000 0            400000000000 
FT2	033034 034465 0   0   0            0            400000000000 
FT2RQ	033034 034465 0   0   400000000000 0            400000000000 
FT3	033034 034465 0   0   400000000000 0            400000000000 
FT9	033035 034465 0   0   400000000000 0            400000000000 
ET0	033035 034465 0   0   0            0            400000000000 
ST1	033035 034465 0   0   0            0            400000000000 
ST2	033035 034465 0   0   0            0            400000000000 
ST9	033035 034465 0   0   0            0            400000000000 


*033035 JFCL	10,033037
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033035 033035 0   0   255400033037 0            000000033037 
IT1	033035 0      0   0   255400033037 0            000000033037 
AT3	033035 0      0   0   000000033037 0            255400033037 
AT6	033035 033037 0   0   000000033037 0            255400033037 
FT1A	033035 033037 0   0   000000033037 0            000000033037 
FT9	033036 033037 0   0   000000033037 0            000000033037 
ET0	033037 033037 0   0   000000033037 0            000000033037 
ST1A	033037 033037 0   0   000000033037 0            000000033037 
ST9	033037 033037 0   0   000000033037 0            000000033037 


*033037 JUMPA	0,033040
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033037 033037 0   0   324000033040 0            000000033040 
IT1	033037 0      0   0   324000033040 0            000000033040 
AT3	033037 0      0   0   000000033040 0            324000033040 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 383
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0578

AT6	033037 033040 0   0   000000033040 0            324000033040 
FT1A	033037 033040 0   0   000000033040 0            000000033040 
FT2	033037 033040 0   0   0            0            000000033040 
FT2RQ	033037 033040 0   0   0            0            000000033040 
FT3	033037 033040 0   0   0            0            000000033040 
FT9	033040 033040 0   0   0            0            000000033040 
ET0	033040 033040 0   0   0            0            000000033040 
ST1A	033040 033040 0   0   0            0            000000033040 
ST9	033040 033040 0   0   0            0            000000033040 


*033040 JFCL	17,033041
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033040 033040 0   0   255740033041 0            000000033041 
IT1	033040 0      0   0   255740033041 0            000000033041 
AT3	033040 0      0   0   000000033041 0            255740033041 
AT6	033040 033041 0   0   000000033041 0            255740033041 
FT1A	033040 033041 0   0   000000033041 0            000000033041 
FT9	033041 033041 0   0   000000033041 0            000000033041 
ET0	033041 033041 0   0   000000033041 0            000000033041 
ST1A	033041 033041 0   0   000000033041 0            000000033041 
ST9	033041 033041 0   0   000000033041 0            000000033041 


*033041 JFCL	1,033043
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033041 033041 0   0   255040033043 0            000000033043 
IT1	033041 0      0   0   255040033043 0            000000033043 
AT3	033041 0      0   0   000000033043 0            255040033043 
AT6	033041 033043 0   0   000000033043 0            255040033043 
FT1A	033041 033043 0   0   000000033043 0            000000033043 
FT9	033042 033043 0   0   000000033043 0            000000033043 
ET0	033042 033043 0   0   000000033043 0            000000033043 
ST1A	033042 033043 0   0   000000033043 0            000000033043 
ST9	033042 033043 0   0   000000033043 0            000000033043 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 384
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0579

*033042 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	033042 033042 0   0   334000000000 0            0            
IT1	033042 0      0   0   334000000000 0            0            
AT3	033042 0      0   0   0            0            334000000000 
AT6	033042 0      0   0   0            0            334000000000 
FT0	033042 0      0   0   0            0            334000000000 
FT1A	033042 0      0   0   0            0            0            
FT9	033043 0      0   0   0            0            0            
ET0	033044 0      0   0   0            0            0            
ST1A	033044 0      0   0   0            0            0            
ST9	033044 0      0   0   0            0            0            


*033044 JUMPA	0,033045
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033044 033044 0   0   324000033045 0            000000033045 
IT1	033044 0      0   0   324000033045 0            000000033045 
AT3	033044 0      0   0   000000033045 0            324000033045 
AT6	033044 033045 0   0   000000033045 0            324000033045 
FT1A	033044 033045 0   0   000000033045 0            000000033045 
FT2	033044 033045 0   0   0            0            000000033045 
FT2RQ	033044 033045 0   0   0            0            000000033045 
FT3	033044 033045 0   0   0            0            000000033045 
FT9	033045 033045 0   0   0            0            000000033045 
ET0	033045 033045 0   0   0            0            000000033045 
ST1A	033045 033045 0   0   0            0            000000033045 
ST9	033045 033045 0   0   0            0            000000033045 


*033045 MOVE 	0,034466
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033045 033045 0   0   200000034466 0            777777777777 
IT1	033045 0      0   0   200000034466 0            777777777777 
AT3	033045 0      0   0   000000034466 0            200000034466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 385
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0580

AT6	033045 034466 0   0   000000034466 0            200000034466 
FT0	033045 034466 0   0   777777777777 0            200000034466 
FT1A	033045 034466 0   0   777777777777 0            777777777777 
FT9	033046 034466 0   0   777777777777 0            777777777777 
ET0	033046 034466 0   0   777777777777 0            777777777777 
ST1	033046 034466 0   0   777777777777 0            777777777777 
ST2	033046 034466 0   0   777777777777 0            777777777777 
ST9	033046 034466 0   0   777777777777 0            777777777777 


*033046 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033046 033046 0   0   271000000001 0            000000000001 
IT1	033046 0      0   0   271000000001 0            000000000001 
AT3	033046 0      0   0   000000000001 0            271000000001 
AT6	033046 000001 0   0   000000000001 0            271000000001 
FT1A	033046 000001 0   0   000000000001 0            000000000001 
FT2	033046 000001 0   0   0            0            000000000001 
FT2RQ	033046 000001 0   0   777777777777 0            000000000001 
FT3	033046 000001 0   0   777777777777 0            000000000001 
FT9	033047 000001 0   0   777777777777 0            000000000001 
ET0	033047 000001 0   0   0            0            000000000001 
ST1	033047 000001 0   0   0            0            000000000001 
ST2	033047 000001 0   0   0            0            000000000001 
ST9	033047 000001 0   0   0            0            000000000001 


*033047 JFCL	13,033050
INITIAL
C(AC)=000000 000013 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033047 033047 0   0   255540033050 0            000000033050 
IT1	033047 0      0   0   255540033050 0            000000033050 
AT3	033047 0      0   0   000000033050 0            255540033050 
AT6	033047 033050 0   0   000000033050 0            255540033050 
FT1A	033047 033050 0   0   000000033050 0            000000033050 
FT9	033050 033050 0   0   000000033050 0            000000033050 
ET0	033050 033050 0   0   000000033050 0            000000033050 
ST1A	033050 033050 0   0   000000033050 0            000000033050 
ST9	033050 033050 0   0   000000033050 0            000000033050 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 386
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0581

*033050 JFCL	4,033052
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033050 033050 0   0   255200033052 0            000000033052 
IT1	033050 0      0   0   255200033052 0            000000033052 
AT3	033050 0      0   0   000000033052 0            255200033052 
AT6	033050 033052 0   0   000000033052 0            255200033052 
FT1A	033050 033052 0   0   000000033052 0            000000033052 
FT9	033051 033052 0   0   000000033052 0            000000033052 
ET0	033052 033052 0   0   000000033052 0            000000033052 
ST1A	033052 033052 0   0   000000033052 0            000000033052 
ST9	033052 033052 0   0   000000033052 0            000000033052 


*033052 JUMPA	0,033053
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033052 033052 0   0   324000033053 0            000000033053 
IT1	033052 0      0   0   324000033053 0            000000033053 
AT3	033052 0      0   0   000000033053 0            324000033053 
AT6	033052 033053 0   0   000000033053 0            324000033053 
FT1A	033052 033053 0   0   000000033053 0            000000033053 
FT2	033052 033053 0   0   0            0            000000033053 
FT2RQ	033052 033053 0   0   0            0            000000033053 
FT3	033052 033053 0   0   0            0            000000033053 
FT9	033053 033053 0   0   0            0            000000033053 
ET0	033053 033053 0   0   0            0            000000033053 
ST1A	033053 033053 0   0   0            0            000000033053 
ST9	033053 033053 0   0   0            0            000000033053 


*033053 MOVE 	0,034466
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033053 033053 0   0   200000034466 0            777777777777 
IT1	033053 0      0   0   200000034466 0            777777777777 
AT3	033053 0      0   0   000000034466 0            200000034466 
AT6	033053 034466 0   0   000000034466 0            200000034466 
FT0	033053 034466 0   0   777777777777 0            200000034466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 387
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0582

FT1A	033053 034466 0   0   777777777777 0            777777777777 
FT9	033054 034466 0   0   777777777777 0            777777777777 
ET0	033054 034466 0   0   777777777777 0            777777777777 
ST1	033054 034466 0   0   777777777777 0            777777777777 
ST2	033054 034466 0   0   777777777777 0            777777777777 
ST9	033054 034466 0   0   777777777777 0            777777777777 


*033054 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033054 033054 0   0   271000000001 0            000000000001 
IT1	033054 0      0   0   271000000001 0            000000000001 
AT3	033054 0      0   0   000000000001 0            271000000001 
AT6	033054 000001 0   0   000000000001 0            271000000001 
FT1A	033054 000001 0   0   000000000001 0            000000000001 
FT2	033054 000001 0   0   0            0            000000000001 
FT2RQ	033054 000001 0   0   777777777777 0            000000000001 
FT3	033054 000001 0   0   777777777777 0            000000000001 
FT9	033055 000001 0   0   777777777777 0            000000000001 
ET0	033055 000001 0   0   0            0            000000000001 
ST1	033055 000001 0   0   0            0            000000000001 
ST2	033055 000001 0   0   0            0            000000000001 
ST9	033055 000001 0   0   0            0            000000000001 


*033055 JFCL	15,033056
INITIAL
C(AC)=000000 000015 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033055 033055 0   0   255640033056 0            000000033056 
IT1	033055 0      0   0   255640033056 0            000000033056 
AT3	033055 0      0   0   000000033056 0            255640033056 
AT6	033055 033056 0   0   000000033056 0            255640033056 
FT1A	033055 033056 0   0   000000033056 0            000000033056 
FT9	033056 033056 0   0   000000033056 0            000000033056 
ET0	033056 033056 0   0   000000033056 0            000000033056 
ST1A	033056 033056 0   0   000000033056 0            000000033056 
ST9	033056 033056 0   0   000000033056 0            000000033056 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 388
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0583

*033056 JFCL	2,033060
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033056 033056 0   0   255100033060 0            000000033060 
IT1	033056 0      0   0   255100033060 0            000000033060 
AT3	033056 0      0   0   000000033060 0            255100033060 
AT6	033056 033060 0   0   000000033060 0            255100033060 
FT1A	033056 033060 0   0   000000033060 0            000000033060 
FT9	033057 033060 0   0   000000033060 0            000000033060 
ET0	033060 033060 0   0   000000033060 0            000000033060 
ST1A	033060 033060 0   0   000000033060 0            000000033060 
ST9	033060 033060 0   0   000000033060 0            000000033060 


*033060 JUMPA	0,033061
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033060 033060 0   0   324000033061 0            000000033061 
IT1	033060 0      0   0   324000033061 0            000000033061 
AT3	033060 0      0   0   000000033061 0            324000033061 
AT6	033060 033061 0   0   000000033061 0            324000033061 
FT1A	033060 033061 0   0   000000033061 0            000000033061 
FT2	033060 033061 0   0   0            0            000000033061 
FT2RQ	033060 033061 0   0   0            0            000000033061 
FT3	033060 033061 0   0   0            0            000000033061 
FT9	033061 033061 0   0   0            0            000000033061 
ET0	033061 033061 0   0   0            0            000000033061 
ST1A	033061 033061 0   0   0            0            000000033061 
ST9	033061 033061 0   0   0            0            000000033061 


*033061 MOVSI	0,400000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033061 033061 0   0   205000400000 0            000000400000 
IT1	033061 0      0   0   205000400000 0            000000400000 
AT3	033061 0      0   0   000000400000 0            205000400000 
AT6	033061 0      0   0   000000400000 0            205000400000 
FT1A	033061 0      0   0   000000400000 0            000000400000 
FT9	033062 0      0   0   000000400000 0            000000400000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 389
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0584

ET0	033062 0      0   0   400000000000 0            000000400000 
ST1	033062 0      0   0   400000000000 0            000000400000 
ST2	033062 0      0   0   400000000000 0            000000400000 
ST9	033062 0      0   0   400000000000 0            000000400000 


*033062 ADD 	0,034465
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033062 033062 0   0   270000034465 0            400000000000 
IT1	033062 0      0   0   270000034465 0            400000000000 
AT3	033062 0      0   0   000000034465 0            270000034465 
AT6	033062 034465 0   0   000000034465 0            270000034465 
FT0	033062 034465 0   0   400000000000 0            270000034465 
FT1A	033062 034465 0   0   400000000000 0            400000000000 
FT2	033062 034465 0   0   0            0            400000000000 
FT2RQ	033062 034465 0   0   400000000000 0            400000000000 
FT3	033062 034465 0   0   400000000000 0            400000000000 
FT9	033063 034465 0   0   400000000000 0            400000000000 
ET0	033063 034465 0   0   0            0            400000000000 
ST1	033063 034465 0   0   0            0            400000000000 
ST2	033063 034465 0   0   0            0            400000000000 
ST9	033063 034465 0   0   0            0            400000000000 


*033063 JFCL	7,033064
INITIAL
C(AC)=000000 000007 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033063 033063 0   0   255340033064 0            000000033064 
IT1	033063 0      0   0   255340033064 0            000000033064 
AT3	033063 0      0   0   000000033064 0            255340033064 
AT6	033063 033064 0   0   000000033064 0            255340033064 
FT1A	033063 033064 0   0   000000033064 0            000000033064 
FT9	033064 033064 0   0   000000033064 0            000000033064 
ET0	033064 033064 0   0   000000033064 0            000000033064 
ST1A	033064 033064 0   0   000000033064 0            000000033064 
ST9	033064 033064 0   0   000000033064 0            000000033064 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 390
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0585

*033064 JFCL	10,033066
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033064 033064 0   0   255400033066 0            000000033066 
IT1	033064 0      0   0   255400033066 0            000000033066 
AT3	033064 0      0   0   000000033066 0            255400033066 
AT6	033064 033066 0   0   000000033066 0            255400033066 
FT1A	033064 033066 0   0   000000033066 0            000000033066 
FT9	033065 033066 0   0   000000033066 0            000000033066 
ET0	033066 033066 0   0   000000033066 0            000000033066 
ST1A	033066 033066 0   0   000000033066 0            000000033066 
ST9	033066 033066 0   0   000000033066 0            000000033066 


*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 
ST9	033067 033067 0   0   0            0            000000033067 


*033067 JFCL	17,033070
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033067 033067 0   0   255740033070 0            000000033070 
IT1	033067 0      0   0   255740033070 0            000000033070 
AT3	033067 0      0   0   000000033070 0            255740033070 
AT6	033067 033070 0   0   000000033070 0            255740033070 
FT1A	033067 033070 0   0   000000033070 0            000000033070 
FT9	033070 033070 0   0   000000033070 0            000000033070 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 391
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0586

ET0	033070 033070 0   0   000000033070 0            000000033070 
ST1A	033070 033070 0   0   000000033070 0            000000033070 
ST9	033070 033070 0   0   000000033070 0            000000033070 


*033070 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	033070 033070 0   0   400000000000 0            0            
IT1	033070 0      0   0   400000000000 0            0            
AT3	033070 0      0   0   0            0            400000000000 
AT6	033070 0      0   0   0            0            400000000000 
FT1A	033070 0      0   0   0            0            0            
FT9	033071 0      0   0   0            0            0            
ET0	033071 0      0   0   0            0            0            
ST1	033071 0      0   0   0            0            0            
ST2	033071 0      0   0   0            0            0            
ST9	033071 0      0   0   0            0            0            


*033071 ADD 	0,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   270000000000 0            0            
IT1	033071 0      0   0   270000000000 0            0            
AT3	033071 0      0   0   0            0            270000000000 
AT6	033071 0      0   0   0            0            270000000000 
FT0	033071 0      0   0   0            0            270000000000 
FT1A	033071 0      0   0   0            0            0            
FT2	033071 0      0   0   0            0            0            
FT2RQ	033071 0      0   0   0            0            0            
FT3	033071 0      0   0   0            0            0            
FT9	033072 0      0   0   0            0            0            
ET0	033072 0      0   0   0            0            0            
ST1	033072 0      0   0   0            0            0            
ST2	033072 0      0   0   0            0            0            
ST9	033072 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 392
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0587

*033072 JFCL	10,033074
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033072 033072 0   0   255400033074 0            000000033074 
IT1	033072 0      0   0   255400033074 0            000000033074 
AT3	033072 0      0   0   000000033074 0            255400033074 
AT6	033072 033074 0   0   000000033074 0            255400033074 
FT1A	033072 033074 0   0   000000033074 0            000000033074 
FT9	033073 033074 0   0   000000033074 0            000000033074 
ET0	033073 033074 0   0   000000033074 0            000000033074 
ST1A	033073 033074 0   0   000000033074 0            000000033074 
ST9	033073 033074 0   0   000000033074 0            000000033074 


*033073 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	033073 033073 0   0   334000000000 0            0            
IT1	033073 0      0   0   334000000000 0            0            
AT3	033073 0      0   0   0            0            334000000000 
AT6	033073 0      0   0   0            0            334000000000 
FT0	033073 0      0   0   0            0            334000000000 
FT1A	033073 0      0   0   0            0            0            
FT9	033074 0      0   0   0            0            0            
ET0	033075 0      0   0   0            0            0            
ST1A	033075 0      0   0   0            0            0            
ST9	033075 0      0   0   0            0            0            


*033075 JUMPA	0,033076
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033075 033075 0   0   324000033076 0            000000033076 
IT1	033075 0      0   0   324000033076 0            000000033076 
AT3	033075 0      0   0   000000033076 0            324000033076 
AT6	033075 033076 0   0   000000033076 0            324000033076 
FT1A	033075 033076 0   0   000000033076 0            000000033076 
FT2	033075 033076 0   0   0            0            000000033076 
FT2RQ	033075 033076 0   0   0            0            000000033076 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 393
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0588

FT3	033075 033076 0   0   0            0            000000033076 
FT9	033076 033076 0   0   0            0            000000033076 
ET0	033076 033076 0   0   0            0            000000033076 
ST1A	033076 033076 0   0   0            0            000000033076 
ST9	033076 033076 0   0   0            0            000000033076 


*033076 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	033076 033076 0   0   400000000000 0            0            
IT1	033076 0      0   0   400000000000 0            0            
AT3	033076 0      0   0   0            0            400000000000 
AT6	033076 0      0   0   0            0            400000000000 
FT1A	033076 0      0   0   0            0            0            
FT9	033077 0      0   0   0            0            0            
ET0	033077 0      0   0   0            0            0            
ST1	033077 0      0   0   0            0            0            
ST2	033077 0      0   0   0            0            0            
ST9	033077 0      0   0   0            0            0            


*033077 JFCL	17,033100
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033077 033077 0   0   255740033100 0            000000033100 
IT1	033077 0      0   0   255740033100 0            000000033100 
AT3	033077 0      0   0   000000033100 0            255740033100 
AT6	033077 0      0   0   000000033100 0            255740033100 
FT1A	033077 0      0   0   000000033100 0            000000033100 
FT9	0      0      0   0   000000033100 0            000000033100 
ET0	0      0      0   0   000000033100 0            000000033100 
ST1A	0      0      0   0   000000033100 0            000000033100 
ST9	0      0      0   0   000000033100 0            000000033100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 394
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0589

*033100 ADD 	0,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   270000000000 0            0            
IT1	0      0      0   0   270000000000 0            0            
AT3	0      0      0   0   0            0            270000000000 
AT6	0      0      0   0   0            0            270000000000 
FT0	0      0      0   0   0            0            270000000000 
FT1A	0      0      0   0   0            0            0            
FT2	0      0      0   0   0            0            0            
FT2RQ	0      0      0   0   0            0            0            
FT3	0      0      0   0   0            0            0            
FT9	033101 0      0   0   0            0            0            
ET0	033101 0      0   0   0            0            0            
ST1	033101 0      0   0   0            0            0            
ST2	033101 0      0   0   0            0            0            
ST9	033101 0      0   0   0            0            0            


*033101 JFCL	4,033103
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033101 033101 0   0   255200033103 0            000000033103 
IT1	033101 0      0   0   255200033103 0            000000033103 
AT3	033101 0      0   0   000000033103 0            255200033103 
AT6	033101 033103 0   0   000000033103 0            255200033103 
FT1A	033101 033103 0   0   000000033103 0            000000033103 
FT9	033102 033103 0   0   000000033103 0            000000033103 
ET0	033102 033103 0   0   000000033103 0            000000033103 
ST1A	033102 033103 0   0   000000033103 0            000000033103 
ST9	033102 033103 0   0   000000033103 0            000000033103 


*033102 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	033102 033102 0   0   334000000000 0            0            
IT1	033102 0      0   0   334000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 395
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0590

AT3	033102 0      0   0   0            0            334000000000 
AT6	033102 0      0   0   0            0            334000000000 
FT0	033102 0      0   0   0            0            334000000000 
FT1A	033102 0      0   0   0            0            0            
FT9	033103 0      0   0   0            0            0            
ET0	033104 0      0   0   0            0            0            
ST1A	033104 0      0   0   0            0            0            
ST9	033104 0      0   0   0            0            0            


*033104 JUMPA	0,033105
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033104 033104 0   0   324000033105 0            000000033105 
IT1	033104 0      0   0   324000033105 0            000000033105 
AT3	033104 0      0   0   000000033105 0            324000033105 
AT6	033104 033105 0   0   000000033105 0            324000033105 
FT1A	033104 033105 0   0   000000033105 0            000000033105 
FT2	033104 033105 0   0   0            0            000000033105 
FT2RQ	033104 033105 0   0   0            0            000000033105 
FT3	033104 033105 0   0   0            0            000000033105 
FT9	033105 033105 0   0   0            0            000000033105 
ET0	033105 033105 0   0   0            0            000000033105 
ST1A	033105 033105 0   0   0            0            000000033105 
ST9	033105 033105 0   0   0            0            000000033105 


*033105 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	033105 033105 0   0   400000000000 0            0            
IT1	033105 0      0   0   400000000000 0            0            
AT3	033105 0      0   0   0            0            400000000000 
AT6	033105 0      0   0   0            0            400000000000 
FT1A	033105 0      0   0   0            0            0            
FT9	033106 0      0   0   0            0            0            
ET0	033106 0      0   0   0            0            0            
ST1	033106 0      0   0   0            0            0            
ST2	033106 0      0   0   0            0            0            
ST9	033106 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 396
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0591

*033106 JFCL	17,033107
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033106 033106 0   0   255740033107 0            000000033107 
IT1	033106 0      0   0   255740033107 0            000000033107 
AT3	033106 0      0   0   000000033107 0            255740033107 
AT6	033106 033107 0   0   000000033107 0            255740033107 
FT1A	033106 033107 0   0   000000033107 0            000000033107 
FT9	033107 033107 0   0   000000033107 0            000000033107 
ET0	033107 033107 0   0   000000033107 0            000000033107 
ST1A	033107 033107 0   0   000000033107 0            000000033107 
ST9	033107 033107 0   0   000000033107 0            000000033107 


*033107 ADD 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033107 033107 0   0   270000000000 0            0            
IT1	033107 0      0   0   270000000000 0            0            
AT3	033107 0      0   0   0            0            270000000000 
AT6	033107 0      0   0   0            0            270000000000 
FT0	033107 0      0   0   0            0            270000000000 
FT1A	033107 0      0   0   0            0            0            
FT2	033107 0      0   0   0            0            0            
FT2RQ	033107 0      0   0   0            0            0            
FT3	033107 0      0   0   0            0            0            
FT9	033110 0      0   0   0            0            0            
ET0	033110 0      0   0   0            0            0            
ST1	033110 0      0   0   0            0            0            
ST2	033110 0      0   0   0            0            0            
ST9	033110 0      0   0   0            0            0            


*033110 JFCL	2,033112
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033110 033110 0   0   255100033112 0            000000033112 
IT1	033110 0      0   0   255100033112 0            000000033112 
AT3	033110 0      0   0   000000033112 0            255100033112 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 397
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0592

AT6	033110 033112 0   0   000000033112 0            255100033112 
FT1A	033110 033112 0   0   000000033112 0            000000033112 
FT9	033111 033112 0   0   000000033112 0            000000033112 
ET0	033111 033112 0   0   000000033112 0            000000033112 
ST1A	033111 033112 0   0   000000033112 0            000000033112 
ST9	033111 033112 0   0   000000033112 0            000000033112 


*033111 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	033111 033111 0   0   334000000000 0            0            
IT1	033111 0      0   0   334000000000 0            0            
AT3	033111 0      0   0   0            0            334000000000 
AT6	033111 0      0   0   0            0            334000000000 
FT0	033111 0      0   0   0            0            334000000000 
FT1A	033111 0      0   0   0            0            0            
FT9	033112 0      0   0   0            0            0            
ET0	033113 0      0   0   0            0            0            
ST1A	033113 0      0   0   0            0            0            
ST9	033113 0      0   0   0            0            0            


*033113 JUMPA	0,033114
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033113 033113 0   0   324000033114 0            000000033114 
IT1	033113 0      0   0   324000033114 0            000000033114 
AT3	033113 0      0   0   000000033114 0            324000033114 
AT6	033113 033114 0   0   000000033114 0            324000033114 
FT1A	033113 033114 0   0   000000033114 0            000000033114 
FT2	033113 033114 0   0   0            0            000000033114 
FT2RQ	033113 033114 0   0   0            0            000000033114 
FT3	033113 033114 0   0   0            0            000000033114 
FT9	033114 033114 0   0   0            0            000000033114 
ET0	033114 033114 0   0   0            0            000000033114 
ST1A	033114 033114 0   0   0            0            000000033114 
ST9	033114 033114 0   0   0            0            000000033114 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 398
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0593

*033114 JFCL	17,033115
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033114 033114 0   0   255740033115 0            000000033115 
IT1	033114 0      0   0   255740033115 0            000000033115 
AT3	033114 0      0   0   000000033115 0            255740033115 
AT6	033114 033115 0   0   000000033115 0            255740033115 
FT1A	033114 033115 0   0   000000033115 0            000000033115 
FT9	033115 033115 0   0   000000033115 0            000000033115 
ET0	033115 033115 0   0   000000033115 0            000000033115 
ST1A	033115 033115 0   0   000000033115 0            000000033115 
ST9	033115 033115 0   0   000000033115 0            000000033115 


*033115 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	033115 033115 0   0   400000000000 0            0            
IT1	033115 0      0   0   400000000000 0            0            
AT3	033115 0      0   0   0            0            400000000000 
AT6	033115 0      0   0   0            0            400000000000 
FT1A	033115 0      0   0   0            0            0            
FT9	033116 0      0   0   0            0            0            
ET0	033116 0      0   0   0            0            0            
ST1	033116 0      0   0   0            0            0            
ST2	033116 0      0   0   0            0            0            
ST9	033116 0      0   0   0            0            0            


*033116 CAI 	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033116 033116 0   0   300000000000 0            0            
IT1	033116 0      0   0   300000000000 0            0            
AT3	033116 0      0   0   0            0            300000000000 
AT6	033116 0      0   0   0            0            300000000000 
FT1A	033116 0      0   0   0            0            0            
FT2	033116 0      0   0   0            0            0            
FT2RQ	033116 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 399
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0594

FT3	033116 0      0   0   0            0            0            
FT9	033117 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 CAM 	0,034466
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033117 033117 0   0   310000034466 0            777777777777 
IT1	033117 0      0   0   310000034466 0            777777777777 
AT3	033117 0      0   0   000000034466 0            310000034466 
AT6	033117 034466 0   0   000000034466 0            310000034466 
FT0	033117 034466 0   0   777777777777 0            310000034466 
FT1A	033117 034466 0   0   777777777777 0            777777777777 
FT2	033117 034466 0   0   0            0            777777777777 
FT2RQ	033117 034466 0   0   0            0            777777777777 
FT3	033117 034466 0   0   0            0            777777777777 
FT9	033120 034466 0   0   0            0            777777777777 
ET0	033120 034466 0   0   000000000001 0            777777777777 
ST1A	033120 034466 0   0   000000000001 0            777777777777 
ST9	033120 034466 0   0   000000000001 0            777777777777 


*033120 JFCL	17,033122
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033120 033120 0   0   255740033122 0            000000033122 
IT1	033120 0      0   0   255740033122 0            000000033122 
AT3	033120 0      0   0   000000033122 0            255740033122 
AT6	033120 033122 0   0   000000033122 0            255740033122 
FT1A	033120 033122 0   0   000000033122 0            000000033122 
FT9	033121 033122 0   0   000000033122 0            000000033122 
ET0	033121 033122 0   0   000000033122 0            000000033122 
ST1A	033121 033122 0   0   000000033122 0            000000033122 
ST9	033121 033122 0   0   000000033122 0            000000033122 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 400
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0595

*033121 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	033121 033121 0   0   334000000000 0            0            
IT1	033121 0      0   0   334000000000 0            0            
AT3	033121 0      0   0   0            0            334000000000 
AT6	033121 0      0   0   0            0            334000000000 
FT0	033121 0      0   0   0            0            334000000000 
FT1A	033121 0      0   0   0            0            0            
FT9	033122 0      0   0   0            0            0            
ET0	033123 0      0   0   0            0            0            
ST1A	033123 0      0   0   0            0            0            
ST9	033123 0      0   0   0            0            0            


*033123 JUMPA	0,033124
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033123 033123 0   0   324000033124 0            000000033124 
IT1	033123 0      0   0   324000033124 0            000000033124 
AT3	033123 0      0   0   000000033124 0            324000033124 
AT6	033123 033124 0   0   000000033124 0            324000033124 
FT1A	033123 033124 0   0   000000033124 0            000000033124 
FT2	033123 033124 0   0   0            0            000000033124 
FT2RQ	033123 033124 0   0   0            0            000000033124 
FT3	033123 033124 0   0   0            0            000000033124 
FT9	033124 033124 0   0   0            0            000000033124 
ET0	033124 033124 0   0   0            0            000000033124 
ST1A	033124 033124 0   0   0            0            000000033124 
ST9	033124 033124 0   0   0            0            000000033124 


*033124 JFCL	17,033125
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033124 033124 0   0   255740033125 0            000000033125 
IT1	033124 0      0   0   255740033125 0            000000033125 
AT3	033124 0      0   0   000000033125 0            255740033125 
AT6	033124 033125 0   0   000000033125 0            255740033125 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 401
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0596

FT1A	033124 033125 0   0   000000033125 0            000000033125 
FT9	033125 033125 0   0   000000033125 0            000000033125 
ET0	033125 033125 0   0   000000033125 0            000000033125 
ST1A	033125 033125 0   0   000000033125 0            000000033125 
ST9	033125 033125 0   0   000000033125 0            000000033125 


*033125 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	033125 033125 0   0   474000000000 0            0            
IT1	033125 0      0   0   474000000000 0            0            
AT3	033125 0      0   0   0            0            474000000000 
AT6	033125 0      0   0   0            0            474000000000 
FT1A	033125 0      0   0   0            0            0            
FT9	033126 0      0   0   0            0            0            
ET0	033126 0      0   0   777777777777 0            0            
ST1	033126 0      0   0   777777777777 0            0            
ST2	033126 0      0   0   777777777777 0            0            
ST9	033126 0      0   0   777777777777 0            0            


*033126 XOR 	0,034536
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033126 033126 0   0   430000034536 0            0            
IT1	033126 0      0   0   430000034536 0            0            
AT3	033126 0      0   0   000000034536 0            430000034536 
AT6	033126 034536 0   0   000000034536 0            430000034536 
FT0	033126 034536 0   0   0            0            430000034536 
FT1A	033126 034536 0   0   0            0            0            
FT2	033126 034536 0   0   0            0            0            
FT2RQ	033126 034536 0   0   777777777777 0            0            
FT3	033126 034536 0   0   777777777777 0            0            
FT9	033127 034536 0   0   777777777777 0            0            
ET0	033127 034536 0   0   777777777777 0            0            
ST1	033127 034536 0   0   777777777777 0            0            
ST2	033127 034536 0   0   777777777777 0            0            
ST9	033127 034536 0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 402
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0597

*033127 XOR 	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033127 033127 0   0   430000034466 0            777777777777 
IT1	033127 0      0   0   430000034466 0            777777777777 
AT3	033127 0      0   0   000000034466 0            430000034466 
AT6	033127 034466 0   0   000000034466 0            430000034466 
FT0	033127 034466 0   0   777777777777 0            430000034466 
FT1A	033127 034466 0   0   777777777777 0            777777777777 
FT2	033127 034466 0   0   0            0            777777777777 
FT2RQ	033127 034466 0   0   777777777777 0            777777777777 
FT3	033127 034466 0   0   777777777777 0            777777777777 
FT9	033130 034466 0   0   777777777777 0            777777777777 
ET0	033130 034466 0   0   0            0            777777777777 
ST1	033130 034466 0   0   0            0            777777777777 
ST2	033130 034466 0   0   0            0            777777777777 
ST9	033130 034466 0   0   0            0            777777777777 


*033130 JFCL	17,033132
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033130 033130 0   0   255740033132 0            000000033132 
IT1	033130 0      0   0   255740033132 0            000000033132 
AT3	033130 0      0   0   000000033132 0            255740033132 
AT6	033130 033132 0   0   000000033132 0            255740033132 
FT1A	033130 033132 0   0   000000033132 0            000000033132 
FT9	033131 033132 0   0   000000033132 0            000000033132 
ET0	033131 033132 0   0   000000033132 0            000000033132 
ST1A	033131 033132 0   0   000000033132 0            000000033132 
ST9	033131 033132 0   0   000000033132 0            000000033132 


*033131 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	033131 033131 0   0   334000000000 0            0            
IT1	033131 0      0   0   334000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 403
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0598

AT3	033131 0      0   0   0            0            334000000000 
AT6	033131 0      0   0   0            0            334000000000 
FT0	033131 0      0   0   0            0            334000000000 
FT1A	033131 0      0   0   0            0            0            
FT9	033132 0      0   0   0            0            0            
ET0	033133 0      0   0   0            0            0            
ST1A	033133 0      0   0   0            0            0            
ST9	033133 0      0   0   0            0            0            


*033133 JUMPA	0,033134
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033133 033133 0   0   324000033134 0            000000033134 
IT1	033133 0      0   0   324000033134 0            000000033134 
AT3	033133 0      0   0   000000033134 0            324000033134 
AT6	033133 033134 0   0   000000033134 0            324000033134 
FT1A	033133 033134 0   0   000000033134 0            000000033134 
FT2	033133 033134 0   0   0            0            000000033134 
FT2RQ	033133 033134 0   0   0            0            000000033134 
FT3	033133 033134 0   0   0            0            000000033134 
FT9	033134 033134 0   0   0            0            000000033134 
ET0	033134 033134 0   0   0            0            000000033134 
ST1A	033134 033134 0   0   0            0            000000033134 
ST9	033134 033134 0   0   0            0            000000033134 


*033134 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	033134 033134 0   0   474000000000 0            0            
IT1	033134 0      0   0   474000000000 0            0            
AT3	033134 0      0   0   0            0            474000000000 
AT6	033134 0      0   0   0            0            474000000000 
FT1A	033134 0      0   0   0            0            0            
FT9	033135 0      0   0   0            0            0            
ET0	033135 0      0   0   777777777777 0            0            
ST1	033135 0      0   0   777777777777 0            0            
ST2	033135 0      0   0   777777777777 0            0            
ST9	033135 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 404
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0599

*033135 JFCL	17,033136
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033135 033135 0   0   255740033136 0            000000033136 
IT1	033135 0      0   0   255740033136 0            000000033136 
AT3	033135 0      0   0   000000033136 0            255740033136 
AT6	033135 033136 0   0   000000033136 0            255740033136 
FT1A	033135 033136 0   0   000000033136 0            000000033136 
FT9	033136 033136 0   0   000000033136 0            000000033136 
ET0	033136 033136 0   0   000000033136 0            000000033136 
ST1A	033136 033136 0   0   000000033136 0            000000033136 
ST9	033136 033136 0   0   000000033136 0            000000033136 


*033136 AOBJN	0,033137
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033136 033136 0   0   253000033137 0            000000033137 
IT1	033136 0      0   0   253000033137 0            000000033137 
AT3	033136 0      0   0   000000033137 0            253000033137 
AT6	033136 033137 0   0   000000033137 0            253000033137 
FT1A	033136 033137 0   0   000000033137 0            000000033137 
FT2	033136 033137 0   0   0            0            000000033137 
FT2RQ	033136 033137 0   0   777777777777 0            000000033137 
FT3	033136 033137 0   0   777777777777 0            000000033137 
FT9	033137 033137 0   0   777777777777 0            000000033137 
ET0	033137 033137 0   0   000001000000 0            000000033137 
ST1	033137 033137 0   0   000001000000 0            000000033137 
ST2	033137 033137 0   0   000001000000 0            000000033137 
ST9	033137 033137 0   0   000001000000 0            000000033137 


*033137 AOBJP	0,033140
INITIAL
C(AC)=000001 000000 
FINAL
C(AC)=000002 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033137 033137 0   0   252000033140 0            000000033140 
IT1	033137 0      0   0   252000033140 0            000000033140 
AT3	033137 0      0   0   000000033140 0            252000033140 
AT6	033137 033140 0   0   000000033140 0            252000033140 
FT1A	033137 033140 0   0   000000033140 0            000000033140 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 405
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0600

FT2	033137 033140 0   0   0            0            000000033140 
FT2RQ	033137 033140 0   0   000001000000 0            000000033140 
FT3	033137 033140 0   0   000001000000 0            000000033140 
FT9	033140 033140 0   0   000001000000 0            000000033140 
ET0	033140 033140 0   0   000002000001 0            000000033140 
ST1	033140 033140 0   0   000002000001 0            000000033140 
ST2	033140 033140 0   0   000002000001 0            000000033140 
ST9	033140 033140 0   0   000002000001 0            000000033140 


*033140 JFCL	17,033142
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033140 033140 0   0   255740033142 0            000000033142 
IT1	033140 0      0   0   255740033142 0            000000033142 
AT3	033140 0      0   0   000000033142 0            255740033142 
AT6	033140 033142 0   0   000000033142 0            255740033142 
FT1A	033140 033142 0   0   000000033142 0            000000033142 
FT9	033141 033142 0   0   000000033142 0            000000033142 
ET0	033141 033142 0   0   000000033142 0            000000033142 
ST1A	033141 033142 0   0   000000033142 0            000000033142 
ST9	033141 033142 0   0   000000033142 0            000000033142 


*033141 SKIPA	0,000000
INITIAL
C(AC)=000002 000001 
C(E)=000002 000001 
FINAL
C(AC)=000002 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033141 033141 0   0   334000000000 0            000002000001 
IT1	033141 0      0   0   334000000000 0            000002000001 
AT3	033141 0      0   0   0            0            334000000000 
AT6	033141 0      0   0   0            0            334000000000 
FT0	033141 0      0   0   000002000001 0            334000000000 
FT1A	033141 0      0   0   000002000001 0            000002000001 
FT9	033142 0      0   0   000002000001 0            000002000001 
ET0	033143 0      0   0   000002000001 0            000002000001 
ST1A	033143 0      0   0   000002000001 0            000002000001 
ST9	033143 0      0   0   000002000001 0            000002000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 406
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0601

*033143 JUMPA	0,033144
INITIAL
C(AC)=000002 000001 
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   000002000001 0            000000033144 
FT3	033143 033144 0   0   000002000001 0            000000033144 
FT9	033144 033144 0   0   000002000001 0            000000033144 
ET0	033144 033144 0   0   000002000001 0            000000033144 
ST1A	033144 033144 0   0   000002000001 0            000000033144 
ST9	033144 033144 0   0   000002000001 0            000000033144 


*033144 JFCL	17,033145
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033144 033144 0   0   255740033145 0            000000033145 
IT1	033144 0      0   0   255740033145 0            000000033145 
AT3	033144 0      0   0   000000033145 0            255740033145 
AT6	033144 033145 0   0   000000033145 0            255740033145 
FT1A	033144 033145 0   0   000000033145 0            000000033145 
FT9	033145 033145 0   0   000000033145 0            000000033145 
ET0	033145 033145 0   0   000000033145 0            000000033145 
ST1A	033145 033145 0   0   000000033145 0            000000033145 
ST9	033145 033145 0   0   000000033145 0            000000033145 


*033145 SKIP 	0,034466
INITIAL
C(AC)=000002 000001 
C(E)=777777 777777 
FINAL
C(AC)=000002 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033145 033145 0   0   330000034466 0            777777777777 
IT1	033145 0      0   0   330000034466 0            777777777777 
AT3	033145 0      0   0   000000034466 0            330000034466 
AT6	033145 034466 0   0   000000034466 0            330000034466 
FT0	033145 034466 0   0   777777777777 0            330000034466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 407
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0602

FT1A	033145 034466 0   0   777777777777 0            777777777777 
FT9	033146 034466 0   0   777777777777 0            777777777777 
ET0	033146 034466 0   0   777777777777 0            777777777777 
ST1A	033146 034466 0   0   777777777777 0            777777777777 
ST9	033146 034466 0   0   777777777777 0            777777777777 


*033146 JFCL	17,033150
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033146 033146 0   0   255740033150 0            000000033150 
IT1	033146 0      0   0   255740033150 0            000000033150 
AT3	033146 0      0   0   000000033150 0            255740033150 
AT6	033146 033150 0   0   000000033150 0            255740033150 
FT1A	033146 033150 0   0   000000033150 0            000000033150 
FT9	033147 033150 0   0   000000033150 0            000000033150 
ET0	033147 033150 0   0   000000033150 0            000000033150 
ST1A	033147 033150 0   0   000000033150 0            000000033150 
ST9	033147 033150 0   0   000000033150 0            000000033150 


*033147 SKIPA	0,000000
INITIAL
C(AC)=000002 000001 
C(E)=000002 000001 
FINAL
C(AC)=000002 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033147 033147 0   0   334000000000 0            000002000001 
IT1	033147 0      0   0   334000000000 0            000002000001 
AT3	033147 0      0   0   0            0            334000000000 
AT6	033147 0      0   0   0            0            334000000000 
FT0	033147 0      0   0   000002000001 0            334000000000 
FT1A	033147 0      0   0   000002000001 0            000002000001 
FT9	033150 0      0   0   000002000001 0            000002000001 
ET0	033151 0      0   0   000002000001 0            000002000001 
ST1A	033151 0      0   0   000002000001 0            000002000001 
ST9	033151 0      0   0   000002000001 0            000002000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 408
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0603

*033151 JUMPA	0,033152
INITIAL
C(AC)=000002 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033151 033151 0   0   324000033152 0            000000033152 
IT1	033151 0      0   0   324000033152 0            000000033152 
AT3	033151 0      0   0   000000033152 0            324000033152 
AT6	033151 033152 0   0   000000033152 0            324000033152 
FT1A	033151 033152 0   0   000000033152 0            000000033152 
FT2	033151 033152 0   0   0            0            000000033152 
FT2RQ	033151 033152 0   0   000002000001 0            000000033152 
FT3	033151 033152 0   0   000002000001 0            000000033152 
FT9	033152 033152 0   0   000002000001 0            000000033152 
ET0	033152 033152 0   0   000002000001 0            000000033152 
ST1A	033152 033152 0   0   000002000001 0            000000033152 
ST9	033152 033152 0   0   000002000001 0            000000033152 


*033152 JFCL	17,033153
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033152 033152 0   0   255740033153 0            000000033153 
IT1	033152 0      0   0   255740033153 0            000000033153 
AT3	033152 0      0   0   000000033153 0            255740033153 
AT6	033152 033153 0   0   000000033153 0            255740033153 
FT1A	033152 033153 0   0   000000033153 0            000000033153 
FT9	033153 033153 0   0   000000033153 0            000000033153 
ET0	033153 033153 0   0   000000033153 0            000000033153 
ST1A	033153 033153 0   0   000000033153 0            000000033153 
ST9	033153 033153 0   0   000000033153 0            000000033153 


*033153 JUMP 	0,034466
INITIAL
C(AC)=000002 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033153 033153 0   0   320000034466 0            000000034466 
IT1	033153 0      0   0   320000034466 0            000000034466 
AT3	033153 0      0   0   000000034466 0            320000034466 
AT6	033153 034466 0   0   000000034466 0            320000034466 
FT1A	033153 034466 0   0   000000034466 0            000000034466 
FT2	033153 034466 0   0   0            0            000000034466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 409
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0604

FT2RQ	033153 034466 0   0   000002000001 0            000000034466 
FT3	033153 034466 0   0   000002000001 0            000000034466 
FT9	033154 034466 0   0   000002000001 0            000000034466 
ET0	033154 034466 0   0   000002000001 0            000000034466 
ST1A	033154 034466 0   0   000002000001 0            000000034466 
ST9	033154 034466 0   0   000002000001 0            000000034466 


*033154 JFCL	17,033156
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033154 033154 0   0   255740033156 0            000000033156 
IT1	033154 0      0   0   255740033156 0            000000033156 
AT3	033154 0      0   0   000000033156 0            255740033156 
AT6	033154 033156 0   0   000000033156 0            255740033156 
FT1A	033154 033156 0   0   000000033156 0            000000033156 
FT9	033155 033156 0   0   000000033156 0            000000033156 
ET0	033155 033156 0   0   000000033156 0            000000033156 
ST1A	033155 033156 0   0   000000033156 0            000000033156 
ST9	033155 033156 0   0   000000033156 0            000000033156 


*033155 SKIPA	0,000000
INITIAL
C(AC)=000002 000001 
C(E)=000002 000001 
FINAL
C(AC)=000002 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033155 033155 0   0   334000000000 0            000002000001 
IT1	033155 0      0   0   334000000000 0            000002000001 
AT3	033155 0      0   0   0            0            334000000000 
AT6	033155 0      0   0   0            0            334000000000 
FT0	033155 0      0   0   000002000001 0            334000000000 
FT1A	033155 0      0   0   000002000001 0            000002000001 
FT9	033156 0      0   0   000002000001 0            000002000001 
ET0	033157 0      0   0   000002000001 0            000002000001 
ST1A	033157 0      0   0   000002000001 0            000002000001 
ST9	033157 0      0   0   000002000001 0            000002000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 410
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0605

*033157 JUMPA	0,033160
INITIAL
C(AC)=000002 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033157 033157 0   0   324000033160 0            000000033160 
IT1	033157 0      0   0   324000033160 0            000000033160 
AT3	033157 0      0   0   000000033160 0            324000033160 
AT6	033157 033160 0   0   000000033160 0            324000033160 
FT1A	033157 033160 0   0   000000033160 0            000000033160 
FT2	033157 033160 0   0   0            0            000000033160 
FT2RQ	033157 033160 0   0   000002000001 0            000000033160 
FT3	033157 033160 0   0   000002000001 0            000000033160 
FT9	033160 033160 0   0   000002000001 0            000000033160 
ET0	033160 033160 0   0   000002000001 0            000000033160 
ST1A	033160 033160 0   0   000002000001 0            000000033160 
ST9	033160 033160 0   0   000002000001 0            000000033160 


*033160 JFCL	17,033161
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033160 033160 0   0   255740033161 0            000000033161 
IT1	033160 0      0   0   255740033161 0            000000033161 
AT3	033160 0      0   0   000000033161 0            255740033161 
AT6	033160 033161 0   0   000000033161 0            255740033161 
FT1A	033160 033161 0   0   000000033161 0            000000033161 
FT9	033161 033161 0   0   000000033161 0            000000033161 
ET0	033161 033161 0   0   000000033161 0            000000033161 
ST1A	033161 033161 0   0   000000033161 0            000000033161 
ST9	033161 033161 0   0   000000033161 0            000000033161 


*033161 JRST	0,033162
INITIAL
C(AC)=000002 000001 
C(E)=255700 033164 
FINAL

C(E)=255700 033164 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033161 033161 0   0   254000033162 0            254000033162 
IT1	033161 0      0   0   254000033162 0            254000033162 
AT3	033161 0      0   0   000000033162 0            254000033162 
AT6	033161 033162 0   0   000000033162 0            254000033162 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 411
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0606

FT1A	033161 033162 0   0   000000033162 0            254000033162 
FT9	033162 033162 0   0   000000033162 0            254000033162 
ET0	033162 033162 0   0   000000033162 0            254000033162 
ST1A	033162 033162 0   0   000000033162 0            254000033162 
ST9	033162 033162 0   0   000000033162 0            254000033162 


*033162 JFCL	16,033164
INITIAL
C(AC)=000000 000016 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033162 033162 0   0   255700033164 0            000000033164 
IT1	033162 0      0   0   255700033164 0            000000033164 
AT3	033162 0      0   0   000000033164 0            255700033164 
AT6	033162 033164 0   0   000000033164 0            255700033164 
FT1A	033162 033164 0   0   000000033164 0            000000033164 
FT9	033163 033164 0   0   000000033164 0            000000033164 
ET0	033163 033164 0   0   000000033164 0            000000033164 
ST1A	033163 033164 0   0   000000033164 0            000000033164 
ST9	033163 033164 0   0   000000033164 0            000000033164 


*033163 SKIPA	0,000000
INITIAL
C(AC)=000002 000001 
C(E)=000002 000001 
FINAL
C(AC)=000002 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033163 033163 0   0   334000000000 0            000002000001 
IT1	033163 0      0   0   334000000000 0            000002000001 
AT3	033163 0      0   0   0            0            334000000000 
AT6	033163 0      0   0   0            0            334000000000 
FT0	033163 0      0   0   000002000001 0            334000000000 
FT1A	033163 0      0   0   000002000001 0            000002000001 
FT9	033164 0      0   0   000002000001 0            000002000001 
ET0	033165 0      0   0   000002000001 0            000002000001 
ST1A	033165 0      0   0   000002000001 0            000002000001 
ST9	033165 0      0   0   000002000001 0            000002000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 412
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0607

*033165 JUMPA	0,033166
INITIAL
C(AC)=000002 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033165 033165 0   0   324000033166 0            000000033166 
IT1	033165 0      0   0   324000033166 0            000000033166 
AT3	033165 0      0   0   000000033166 0            324000033166 
AT6	033165 033166 0   0   000000033166 0            324000033166 
FT1A	033165 033166 0   0   000000033166 0            000000033166 
FT2	033165 033166 0   0   0            0            000000033166 
FT2RQ	033165 033166 0   0   000002000001 0            000000033166 
FT3	033165 033166 0   0   000002000001 0            000000033166 
FT9	033166 033166 0   0   000002000001 0            000000033166 
ET0	033166 033166 0   0   000002000001 0            000000033166 
ST1A	033166 033166 0   0   000002000001 0            000000033166 
ST9	033166 033166 0   0   000002000001 0            000000033166 


*033166 JFCL	17,033167
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033166 033166 0   0   255740033167 0            000000033167 
IT1	033166 0      0   0   255740033167 0            000000033167 
AT3	033166 0      0   0   000000033167 0            255740033167 
AT6	033166 033167 0   0   000000033167 0            255740033167 
FT1A	033166 033167 0   0   000000033167 0            000000033167 
FT9	033167 033167 0   0   000000033167 0            000000033167 
ET0	033167 033167 0   0   000000033167 0            000000033167 
ST1A	033167 033167 0   0   000000033167 0            000000033167 
ST9	033167 033167 0   0   000000033167 0            000000033167 


*033167 MOVE 	2,000002
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033167 033167 0   0   200100000002 0            000000000002 
IT1	033167 0      0   0   200100000002 0            000000000002 
AT3	033167 0      0   0   000000000002 0            200100000002 
AT6	033167 000002 0   0   000000000002 0            200100000002 
FT0	033167 000002 0   0   000000000002 0            200100000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 413
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0608

FT1A	033167 000002 0   0   000000000002 0            000000000002 
FT9	033170 000002 0   0   000000000002 0            000000000002 
ET0	033170 000002 0   0   000000000002 0            000000000002 
ST1	033170 000002 0   0   000000000002 0            000000000002 
ST2	033170 000002 0   0   000000000002 0            000000000002 
ST9	033170 000002 0   0   000000000002 0            000000000002 


*033170 JFCL	17,033172
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033170 033170 0   0   255740033172 0            000000033172 
IT1	033170 0      0   0   255740033172 0            000000033172 
AT3	033170 0      0   0   000000033172 0            255740033172 
AT6	033170 033172 0   0   000000033172 0            255740033172 
FT1A	033170 033172 0   0   000000033172 0            000000033172 
FT9	033171 033172 0   0   000000033172 0            000000033172 
ET0	033171 033172 0   0   000000033172 0            000000033172 
ST1A	033171 033172 0   0   000000033172 0            000000033172 
ST9	033171 033172 0   0   000000033172 0            000000033172 


*033171 SKIPA	0,000000
INITIAL
C(AC)=000002 000001 
C(E)=000002 000001 
FINAL
C(AC)=000002 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033171 033171 0   0   334000000000 0            000002000001 
IT1	033171 0      0   0   334000000000 0            000002000001 
AT3	033171 0      0   0   0            0            334000000000 
AT6	033171 0      0   0   0            0            334000000000 
FT0	033171 0      0   0   000002000001 0            334000000000 
FT1A	033171 0      0   0   000002000001 0            000002000001 
FT9	033172 0      0   0   000002000001 0            000002000001 
ET0	033173 0      0   0   000002000001 0            000002000001 
ST1A	033173 0      0   0   000002000001 0            000002000001 
ST9	033173 0      0   0   000002000001 0            000002000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 414
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0609

*033173 JUMPA	0,033174
INITIAL
C(AC)=000002 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033173 033173 0   0   324000033174 0            000000033174 
IT1	033173 0      0   0   324000033174 0            000000033174 
AT3	033173 0      0   0   000000033174 0            324000033174 
AT6	033173 033174 0   0   000000033174 0            324000033174 
FT1A	033173 033174 0   0   000000033174 0            000000033174 
FT2	033173 033174 0   0   0            0            000000033174 
FT2RQ	033173 033174 0   0   000002000001 0            000000033174 
FT3	033173 033174 0   0   000002000001 0            000000033174 
FT9	033174 033174 0   0   000002000001 0            000000033174 
ET0	033174 033174 0   0   000002000001 0            000000033174 
ST1A	033174 033174 0   0   000002000001 0            000000033174 
ST9	033174 033174 0   0   000002000001 0            000000033174 


*033174 JFCL	17,033175
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033174 033174 0   0   255740033175 0            000000033175 
IT1	033174 0      0   0   255740033175 0            000000033175 
AT3	033174 0      0   0   000000033175 0            255740033175 
AT6	033174 033175 0   0   000000033175 0            255740033175 
FT1A	033174 033175 0   0   000000033175 0            000000033175 
FT9	033175 033175 0   0   000000033175 0            000000033175 
ET0	033175 033175 0   0   000000033175 0            000000033175 
ST1A	033175 033175 0   0   000000033175 0            000000033175 
ST9	033175 033175 0   0   000000033175 0            000000033175 


*033175 MOVSI	1,200000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033175 033175 0   0   205040200000 0            000000200000 
IT1	033175 0      0   0   205040200000 0            000000200000 
AT3	033175 0      0   0   000000200000 0            205040200000 
AT6	033175 0      0   0   000000200000 0            205040200000 
FT1A	033175 0      0   0   000000200000 0            000000200000 
FT9	033176 0      0   0   000000200000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 415
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0610

ET0	033176 0      0   0   200000000000 0            000000200000 
ST1	033176 0      0   0   200000000000 0            000000200000 
ST2	033176 0      0   0   200000000000 0            000000200000 
ST9	033176 0      0   0   200000000000 0            000000200000 


*033176 JFCL	17,033177
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033176 033176 0   0   255740033177 0            000000033177 
IT1	033176 0      0   0   255740033177 0            000000033177 
AT3	033176 0      0   0   000000033177 0            255740033177 
AT6	033176 033177 0   0   000000033177 0            255740033177 
FT1A	033176 033177 0   0   000000033177 0            000000033177 
FT9	033177 033177 0   0   000000033177 0            000000033177 
ET0	033177 033177 0   0   000000033177 0            000000033177 
ST1A	033177 033177 0   0   000000033177 0            000000033177 
ST9	033177 033177 0   0   000000033177 0            000000033177 


*033177 JRST	2,033200(1)
INITIAL
C(AC)=000000 000002 
C(E)=255200 033202 
FINAL

C(E)=255200 033202 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033177 033177 0   0   254101033200 0            200000033200 
IT1	033177 0      0   0   254101033200 0            200000033200 
AT1	033177 0      0   0   0            0            254101033200 
AT2	033177 0      0   0   200000000000 0            254101033200 
AT3	033177 0      0   0   000000033200 0            200000033200 
AT6	033177 0      0   0   000000033200 0            200000033200 
FT1A	033177 0      0   0   000000033200 0            200000033200 
FT9	0      0      0   0   000000033200 0            200000033200 
ET0	0      0      0   0   000000033200 0            200000033200 
ST1A	0      0      0   0   000000033200 0            200000033200 
ST9	0      0      0   0   000000033200 0            200000033200 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 416
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0611

*033200 JFCL	4,033202
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   255200033202 0            000000033202 
IT1	0      0      0   0   255200033202 0            000000033202 
AT3	0      0      0   0   000000033202 0            255200033202 
AT6	0      033202 0   0   000000033202 0            255200033202 
FT1A	0      033202 0   0   000000033202 0            000000033202 
FT9	033201 033202 0   0   000000033202 0            000000033202 
ET0	033202 033202 0   0   000000033202 0            000000033202 
ST1A	033202 033202 0   0   000000033202 0            000000033202 
ST9	033202 033202 0   0   000000033202 0            000000033202 


*033202 JUMPA	0,033203
INITIAL
C(AC)=000002 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033202 033202 0   0   324000033203 0            000000033203 
IT1	033202 0      0   0   324000033203 0            000000033203 
AT3	033202 0      0   0   000000033203 0            324000033203 
AT6	033202 033203 0   0   000000033203 0            324000033203 
FT1A	033202 033203 0   0   000000033203 0            000000033203 
FT2	033202 033203 0   0   0            0            000000033203 
FT2RQ	033202 033203 0   0   000002000001 0            000000033203 
FT3	033202 033203 0   0   000002000001 0            000000033203 
FT9	033203 033203 0   0   000002000001 0            000000033203 
ET0	033203 033203 0   0   000002000001 0            000000033203 
ST1A	033203 033203 0   0   000002000001 0            000000033203 
ST9	033203 033203 0   0   000002000001 0            000000033203 


*033203 MOVE 	0,034466
INITIAL
C(AC)=000002 000001 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033203 033203 0   0   200000034466 0            777777777777 
IT1	033203 0      0   0   200000034466 0            777777777777 
AT3	033203 0      0   0   000000034466 0            200000034466 
AT6	033203 034466 0   0   000000034466 0            200000034466 
FT0	033203 034466 0   0   777777777777 0            200000034466 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 417
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0612

FT1A	033203 034466 0   0   777777777777 0            777777777777 
FT9	033204 034466 0   0   777777777777 0            777777777777 
ET0	033204 034466 0   0   777777777777 0            777777777777 
ST1	033204 034466 0   0   777777777777 0            777777777777 
ST2	033204 034466 0   0   777777777777 0            777777777777 
ST9	033204 034466 0   0   777777777777 0            777777777777 


*033204 ADDI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033204 033204 0   0   271000000001 0            000000000001 
IT1	033204 0      0   0   271000000001 0            000000000001 
AT3	033204 0      0   0   000000000001 0            271000000001 
AT6	033204 000001 0   0   000000000001 0            271000000001 
FT1A	033204 000001 0   0   000000000001 0            000000000001 
FT2	033204 000001 0   0   0            0            000000000001 
FT2RQ	033204 000001 0   0   777777777777 0            000000000001 
FT3	033204 000001 0   0   777777777777 0            000000000001 
FT9	033205 000001 0   0   777777777777 0            000000000001 
ET0	033205 000001 0   0   0            0            000000000001 
ST1	033205 000001 0   0   0            0            000000000001 
ST2	033205 000001 0   0   0            0            000000000001 
ST9	033205 000001 0   0   0            0            000000000001 


*033205 MOVSI	1,000000
INITIAL
C(AC)=200000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033205 033205 0   0   205040000000 0            0            
IT1	033205 0      0   0   205040000000 0            0            
AT3	033205 0      0   0   0            0            205040000000 
AT6	033205 0      0   0   0            0            205040000000 
FT1A	033205 0      0   0   0            0            0            
FT9	033206 0      0   0   0            0            0            
ET0	033206 0      0   0   0            0            0            
ST1	033206 0      0   0   0            0            0            
ST2	033206 0      0   0   0            0            0            
ST9	033206 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 418
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0613

*033206 JFCL	17,033207
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033206 033206 0   0   255740033207 0            000000033207 
IT1	033206 0      0   0   255740033207 0            000000033207 
AT3	033206 0      0   0   000000033207 0            255740033207 
AT6	033206 033207 0   0   000000033207 0            255740033207 
FT1A	033206 033207 0   0   000000033207 0            000000033207 
FT9	033207 033207 0   0   000000033207 0            000000033207 
ET0	033207 033207 0   0   000000033207 0            000000033207 
ST1A	033207 033207 0   0   000000033207 0            000000033207 
ST9	033207 033207 0   0   000000033207 0            000000033207 


*033207 JRST	2,033210(1)
INITIAL
C(AC)=000000 000002 
C(E)=255100 033212 
FINAL

C(E)=255100 033212 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033207 033207 0   0   254101033210 0            000000033210 
IT1	033207 0      0   0   254101033210 0            000000033210 
AT1	033207 0      0   0   0            0            254101033210 
AT2	033207 0      0   0   0            0            254101033210 
AT3	033207 0      0   0   000000033210 0            000000033210 
AT6	033207 033210 0   0   000000033210 0            000000033210 
FT1A	033207 033210 0   0   000000033210 0            000000033210 
FT9	033210 033210 0   0   000000033210 0            000000033210 
ET0	033210 033210 0   0   000000033210 0            000000033210 
ST1A	033210 033210 0   0   000000033210 0            000000033210 
ST9	033210 033210 0   0   000000033210 0            000000033210 


*033210 JFCL	2,033212
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033210 033210 0   0   255100033212 0            000000033212 
IT1	033210 0      0   0   255100033212 0            000000033212 
AT3	033210 0      0   0   000000033212 0            255100033212 
AT6	033210 033212 0   0   000000033212 0            255100033212 
FT1A	033210 033212 0   0   000000033212 0            000000033212 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 419
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0614

FT9	033211 033212 0   0   000000033212 0            000000033212 
ET0	033211 033212 0   0   000000033212 0            000000033212 
ST1A	033211 033212 0   0   000000033212 0            000000033212 
ST9	033211 033212 0   0   000000033212 0            000000033212 


*033211 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	033211 033211 0   0   334000000000 0            0            
IT1	033211 0      0   0   334000000000 0            0            
AT3	033211 0      0   0   0            0            334000000000 
AT6	033211 0      0   0   0            0            334000000000 
FT0	033211 0      0   0   0            0            334000000000 
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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 420
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0615

*033214 MOVSI	0,400000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033214 033214 0   0   205000400000 0            000000400000 
IT1	033214 0      0   0   205000400000 0            000000400000 
AT3	033214 0      0   0   000000400000 0            205000400000 
AT6	033214 0      0   0   000000400000 0            205000400000 
FT1A	033214 0      0   0   000000400000 0            000000400000 
FT9	033215 0      0   0   000000400000 0            000000400000 
ET0	033215 0      0   0   400000000000 0            000000400000 
ST1	033215 0      0   0   400000000000 0            000000400000 
ST2	033215 0      0   0   400000000000 0            000000400000 
ST9	033215 0      0   0   400000000000 0            000000400000 


*033215 ADD 	0,034466
INITIAL
C(AC)=400000 000000 
C(E)=777777 777777 
FINAL
C(AC)=377777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033215 033215 0   0   270000034466 0            777777777777 
IT1	033215 0      0   0   270000034466 0            777777777777 
AT3	033215 0      0   0   000000034466 0            270000034466 
AT6	033215 034466 0   0   000000034466 0            270000034466 
FT0	033215 034466 0   0   777777777777 0            270000034466 
FT1A	033215 034466 0   0   777777777777 0            777777777777 
FT2	033215 034466 0   0   0            0            777777777777 
FT2RQ	033215 034466 0   0   400000000000 0            777777777777 
FT3	033215 034466 0   0   400000000000 0            777777777777 
FT9	033216 034466 0   0   400000000000 0            777777777777 
ET0	033216 034466 0   0   377777777777 0            777777777777 
ST1	033216 034466 0   0   377777777777 0            777777777777 
ST2	033216 034466 0   0   377777777777 0            777777777777 
ST9	033216 034466 0   0   377777777777 0            777777777777 


*033216 MOVSI	1,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033216 033216 0   0   205040000000 0            0            
IT1	033216 0      0   0   205040000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 421
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0616

AT3	033216 0      0   0   0            0            205040000000 
AT6	033216 0      0   0   0            0            205040000000 
FT1A	033216 0      0   0   0            0            0            
FT9	033217 0      0   0   0            0            0            
ET0	033217 0      0   0   0            0            0            
ST1	033217 0      0   0   0            0            0            
ST2	033217 0      0   0   0            0            0            
ST9	033217 0      0   0   0            0            0            


*033217 JFCL	17,033220
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033217 033217 0   0   255740033220 0            000000033220 
IT1	033217 0      0   0   255740033220 0            000000033220 
AT3	033217 0      0   0   000000033220 0            255740033220 
AT6	033217 033220 0   0   000000033220 0            255740033220 
FT1A	033217 033220 0   0   000000033220 0            000000033220 
FT9	033220 033220 0   0   000000033220 0            000000033220 
ET0	033220 033220 0   0   000000033220 0            000000033220 
ST1A	033220 033220 0   0   000000033220 0            000000033220 
ST9	033220 033220 0   0   000000033220 0            000000033220 


*033220 JRST	2,033221(1)
INITIAL
C(AC)=000000 000002 
C(E)=255400 033223 
FINAL

C(E)=255400 033223 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033220 033220 0   0   254101033221 0            000000033221 
IT1	033220 0      0   0   254101033221 0            000000033221 
AT1	033220 0      0   0   0            0            254101033221 
AT2	033220 0      0   0   0            0            254101033221 
AT3	033220 0      0   0   000000033221 0            000000033221 
AT6	033220 033221 0   0   000000033221 0            000000033221 
FT1A	033220 033221 0   0   000000033221 0            000000033221 
FT9	033221 033221 0   0   000000033221 0            000000033221 
ET0	033221 033221 0   0   000000033221 0            000000033221 
ST1A	033221 033221 0   0   000000033221 0            000000033221 
ST9	033221 033221 0   0   000000033221 0            000000033221 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 422
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0617

*033221 JFCL	10,033223
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033221 033221 0   0   255400033223 0            000000033223 
IT1	033221 0      0   0   255400033223 0            000000033223 
AT3	033221 0      0   0   000000033223 0            255400033223 
AT6	033221 033223 0   0   000000033223 0            255400033223 
FT1A	033221 033223 0   0   000000033223 0            000000033223 
FT9	033222 033223 0   0   000000033223 0            000000033223 
ET0	033222 033223 0   0   000000033223 0            000000033223 
ST1A	033222 033223 0   0   000000033223 0            000000033223 
ST9	033222 033223 0   0   000000033223 0            000000033223 


*033222 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	033222 033222 0   0   334000000000 0            377777777777 
IT1	033222 0      0   0   334000000000 0            377777777777 
AT3	033222 0      0   0   0            0            334000000000 
AT6	033222 0      0   0   0            0            334000000000 
FT0	033222 0      0   0   377777777777 0            334000000000 
FT1A	033222 0      0   0   377777777777 0            377777777777 
FT9	033223 0      0   0   377777777777 0            377777777777 
ET0	033224 0      0   0   377777777777 0            377777777777 
ST1A	033224 0      0   0   377777777777 0            377777777777 
ST9	033224 0      0   0   377777777777 0            377777777777 


*033224 JUMPA	0,033225
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033224 033224 0   0   324000033225 0            000000033225 
IT1	033224 0      0   0   324000033225 0            000000033225 
AT3	033224 0      0   0   000000033225 0            324000033225 
AT6	033224 033225 0   0   000000033225 0            324000033225 
FT1A	033224 033225 0   0   000000033225 0            000000033225 
FT2	033224 033225 0   0   0            0            000000033225 
FT2RQ	033224 033225 0   0   377777777777 0            000000033225 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 423
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0618

FT3	033224 033225 0   0   377777777777 0            000000033225 
FT9	033225 033225 0   0   377777777777 0            000000033225 
ET0	033225 033225 0   0   377777777777 0            000000033225 
ST1A	033225 033225 0   0   377777777777 0            000000033225 
ST9	033225 033225 0   0   377777777777 0            000000033225 


*033225 MOVSI	1,400000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033225 033225 0   0   205040400000 0            000000400000 
IT1	033225 0      0   0   205040400000 0            000000400000 
AT3	033225 0      0   0   000000400000 0            205040400000 
AT6	033225 0      0   0   000000400000 0            205040400000 
FT1A	033225 0      0   0   000000400000 0            000000400000 
FT9	033226 0      0   0   000000400000 0            000000400000 
ET0	033226 0      0   0   400000000000 0            000000400000 
ST1	033226 0      0   0   400000000000 0            000000400000 
ST2	033226 0      0   0   400000000000 0            000000400000 
ST9	033226 0      0   0   400000000000 0            000000400000 


*033226 JFCL	17,033227
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033226 033226 0   0   255740033227 0            000000033227 
IT1	033226 0      0   0   255740033227 0            000000033227 
AT3	033226 0      0   0   000000033227 0            255740033227 
AT6	033226 033227 0   0   000000033227 0            255740033227 
FT1A	033226 033227 0   0   000000033227 0            000000033227 
FT9	033227 033227 0   0   000000033227 0            000000033227 
ET0	033227 033227 0   0   000000033227 0            000000033227 
ST1A	033227 033227 0   0   000000033227 0            000000033227 
ST9	033227 033227 0   0   000000033227 0            000000033227 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 424
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0619

*033227 JRST	2,033230(1)
INITIAL
C(AC)=000000 000002 
C(E)=255400 033232 
FINAL

C(E)=255400 033232 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033227 033227 0   0   254101033230 0            400000033230 
IT1	033227 0      0   0   254101033230 0            400000033230 
AT1	033227 0      0   0   0            0            254101033230 
AT2	033227 0      0   0   400000000000 0            254101033230 
AT3	033227 0      0   0   000000033230 0            400000033230 
AT6	033227 033230 0   0   000000033230 0            400000033230 
FT1A	033227 033230 0   0   000000033230 0            400000033230 
FT9	033230 033230 0   0   000000033230 0            400000033230 
ET0	033230 033230 0   0   000000033230 0            400000033230 
ST1A	033230 033230 0   0   000000033230 0            400000033230 
ST9	033230 033230 0   0   000000033230 0            400000033230 


*033230 JFCL	10,033232
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033230 033230 0   0   255400033232 0            000000033232 
IT1	033230 0      0   0   255400033232 0            000000033232 
AT3	033230 0      0   0   000000033232 0            255400033232 
AT6	033230 033232 0   0   000000033232 0            255400033232 
FT1A	033230 033232 0   0   000000033232 0            000000033232 
FT9	033231 033232 0   0   000000033232 0            000000033232 
ET0	033232 033232 0   0   000000033232 0            000000033232 
ST1A	033232 033232 0   0   000000033232 0            000000033232 
ST9	033232 033232 0   0   000000033232 0            000000033232 


*033232 JUMPA	0,033233
INITIAL
C(AC)=377777 777777 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 425
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0620

FT2	033232 033233 0   0   0            0            000000033233 
FT2RQ	033232 033233 0   0   377777777777 0            000000033233 
FT3	033232 033233 0   0   377777777777 0            000000033233 
FT9	033233 033233 0   0   377777777777 0            000000033233 
ET0	033233 033233 0   0   377777777777 0            000000033233 
ST1A	033233 033233 0   0   377777777777 0            000000033233 
ST9	033233 033233 0   0   377777777777 0            000000033233 


*033233 MOVSI	1,100000
INITIAL
C(AC)=400000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033233 033233 0   0   205040100000 0            000000100000 
IT1	033233 0      0   0   205040100000 0            000000100000 
AT3	033233 0      0   0   000000100000 0            205040100000 
AT6	033233 0      0   0   000000100000 0            205040100000 
FT1A	033233 0      0   0   000000100000 0            000000100000 
FT9	033234 0      0   0   000000100000 0            000000100000 
ET0	033234 0      0   0   100000000000 0            000000100000 
ST1	033234 0      0   0   100000000000 0            000000100000 
ST2	033234 0      0   0   100000000000 0            000000100000 
ST9	033234 0      0   0   100000000000 0            000000100000 


*033234 JFCL	17,033235
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033234 033234 0   0   255740033235 0            000000033235 
IT1	033234 0      0   0   255740033235 0            000000033235 
AT3	033234 0      0   0   000000033235 0            255740033235 
AT6	033234 033235 0   0   000000033235 0            255740033235 
FT1A	033234 033235 0   0   000000033235 0            000000033235 
FT9	033235 033235 0   0   000000033235 0            000000033235 
ET0	033235 033235 0   0   000000033235 0            000000033235 
ST1A	033235 033235 0   0   000000033235 0            000000033235 
ST9	033235 033235 0   0   000000033235 0            000000033235 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 426
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0621

*033235 JRST	2,033236(1)
INITIAL
C(AC)=000000 000002 
C(E)=255100 033240 
FINAL

C(E)=255100 033240 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033235 033235 0   0   254101033236 0            100000033236 
IT1	033235 0      0   0   254101033236 0            100000033236 
AT1	033235 0      0   0   0            0            254101033236 
AT2	033235 0      0   0   100000000000 0            254101033236 
AT3	033235 0      0   0   000000033236 0            100000033236 
AT6	033235 033236 0   0   000000033236 0            100000033236 
FT1A	033235 033236 0   0   000000033236 0            100000033236 
FT9	033236 033236 0   0   000000033236 0            100000033236 
ET0	033236 033236 0   0   000000033236 0            100000033236 
ST1A	033236 033236 0   0   000000033236 0            100000033236 
ST9	033236 033236 0   0   000000033236 0            100000033236 


*033236 JFCL	2,033240
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033236 033236 0   0   255100033240 0            000000033240 
IT1	033236 0      0   0   255100033240 0            000000033240 
AT3	033236 0      0   0   000000033240 0            255100033240 
AT6	033236 033240 0   0   000000033240 0            255100033240 
FT1A	033236 033240 0   0   000000033240 0            000000033240 
FT9	033237 033240 0   0   000000033240 0            000000033240 
ET0	033240 033240 0   0   000000033240 0            000000033240 
ST1A	033240 033240 0   0   000000033240 0            000000033240 
ST9	033240 033240 0   0   000000033240 0            000000033240 


*033240 JUMPA	0,033241
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033240 033240 0   0   324000033241 0            000000033241 
IT1	033240 0      0   0   324000033241 0            000000033241 
AT3	033240 0      0   0   000000033241 0            324000033241 
AT6	033240 033241 0   0   000000033241 0            324000033241 
FT1A	033240 033241 0   0   000000033241 0            000000033241 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 427
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0622

FT2	033240 033241 0   0   0            0            000000033241 
FT2RQ	033240 033241 0   0   377777777777 0            000000033241 
FT3	033240 033241 0   0   377777777777 0            000000033241 
FT9	033241 033241 0   0   377777777777 0            000000033241 
ET0	033241 033241 0   0   377777777777 0            000000033241 
ST1A	033241 033241 0   0   377777777777 0            000000033241 
ST9	033241 033241 0   0   377777777777 0            000000033241 


*033241 MOVSI	1,040000
INITIAL
C(AC)=100000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033241 033241 0   0   205040040000 0            000000040000 
IT1	033241 0      0   0   205040040000 0            000000040000 
AT3	033241 0      0   0   000000040000 0            205040040000 
AT6	033241 0      0   0   000000040000 0            205040040000 
FT1A	033241 0      0   0   000000040000 0            000000040000 
FT9	033242 0      0   0   000000040000 0            000000040000 
ET0	033242 0      0   0   040000000000 0            000000040000 
ST1	033242 0      0   0   040000000000 0            000000040000 
ST2	033242 0      0   0   040000000000 0            000000040000 
ST9	033242 0      0   0   040000000000 0            000000040000 


*033242 JFCL	17,033243
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033242 033242 0   0   255740033243 0            000000033243 
IT1	033242 0      0   0   255740033243 0            000000033243 
AT3	033242 0      0   0   000000033243 0            255740033243 
AT6	033242 033243 0   0   000000033243 0            255740033243 
FT1A	033242 033243 0   0   000000033243 0            000000033243 
FT9	033243 033243 0   0   000000033243 0            000000033243 
ET0	033243 033243 0   0   000000033243 0            000000033243 
ST1A	033243 033243 0   0   000000033243 0            000000033243 
ST9	033243 033243 0   0   000000033243 0            000000033243 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 428
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0623

*033243 JRST	2,033244(1)
INITIAL
C(AC)=000000 000002 
C(E)=255040 033246 
FINAL

C(E)=255040 033246 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033243 033243 0   0   254101033244 0            040000033244 
IT1	033243 0      0   0   254101033244 0            040000033244 
AT1	033243 0      0   0   0            0            254101033244 
AT2	033243 0      0   0   040000000000 0            254101033244 
AT3	033243 0      0   0   000000033244 0            040000033244 
AT6	033243 033244 0   0   000000033244 0            040000033244 
FT1A	033243 033244 0   0   000000033244 0            040000033244 
FT9	033244 033244 0   0   000000033244 0            040000033244 
ET0	033244 033244 0   0   000000033244 0            040000033244 
ST1A	033244 033244 0   0   000000033244 0            040000033244 
ST9	033244 033244 0   0   000000033244 0            040000033244 


*033244 JFCL	1,033246
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033244 033244 0   0   255040033246 0            000000033246 
IT1	033244 0      0   0   255040033246 0            000000033246 
AT3	033244 0      0   0   000000033246 0            255040033246 
AT6	033244 033246 0   0   000000033246 0            255040033246 
FT1A	033244 033246 0   0   000000033246 0            000000033246 
FT9	033245 033246 0   0   000000033246 0            000000033246 
ET0	033246 033246 0   0   000000033246 0            000000033246 
ST1A	033246 033246 0   0   000000033246 0            000000033246 
ST9	033246 033246 0   0   000000033246 0            000000033246 


*033246 JUMPA	0,033247
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033246 033246 0   0   324000033247 0            000000033247 
IT1	033246 0      0   0   324000033247 0            000000033247 
AT3	033246 0      0   0   000000033247 0            324000033247 
AT6	033246 033247 0   0   000000033247 0            324000033247 
FT1A	033246 033247 0   0   000000033247 0            000000033247 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 429
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0624

FT2	033246 033247 0   0   0            0            000000033247 
FT2RQ	033246 033247 0   0   377777777777 0            000000033247 
FT3	033246 033247 0   0   377777777777 0            000000033247 
FT9	033247 033247 0   0   377777777777 0            000000033247 
ET0	033247 033247 0   0   377777777777 0            000000033247 
ST1A	033247 033247 0   0   377777777777 0            000000033247 
ST9	033247 033247 0   0   377777777777 0            000000033247 


*033247 MOVSI	1,040000
INITIAL
C(AC)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033247 033247 0   0   205040040000 0            000000040000 
IT1	033247 0      0   0   205040040000 0            000000040000 
AT3	033247 0      0   0   000000040000 0            205040040000 
AT6	033247 0      0   0   000000040000 0            205040040000 
FT1A	033247 0      0   0   000000040000 0            000000040000 
FT9	033250 0      0   0   000000040000 0            000000040000 
ET0	033250 0      0   0   040000000000 0            000000040000 
ST1	033250 0      0   0   040000000000 0            000000040000 
ST2	033250 0      0   0   040000000000 0            000000040000 
ST9	033250 0      0   0   040000000000 0            000000040000 


*033250 JFCL	17,033251
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033250 033250 0   0   255740033251 0            000000033251 
IT1	033250 0      0   0   255740033251 0            000000033251 
AT3	033250 0      0   0   000000033251 0            255740033251 
AT6	033250 033251 0   0   000000033251 0            255740033251 
FT1A	033250 033251 0   0   000000033251 0            000000033251 
FT9	033251 033251 0   0   000000033251 0            000000033251 
ET0	033251 033251 0   0   000000033251 0            000000033251 
ST1A	033251 033251 0   0   000000033251 0            000000033251 
ST9	033251 033251 0   0   000000033251 0            000000033251 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 430
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0625

*033251 JRST	2,033252(1)
INITIAL
C(AC)=000000 000002 
C(E)=255000 033254 
FINAL

C(E)=255000 033254 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033251 033251 0   0   254101033252 0            040000033252 
IT1	033251 0      0   0   254101033252 0            040000033252 
AT1	033251 0      0   0   0            0            254101033252 
AT2	033251 0      0   0   040000000000 0            254101033252 
AT3	033251 0      0   0   000000033252 0            040000033252 
AT6	033251 033252 0   0   000000033252 0            040000033252 
FT1A	033251 033252 0   0   000000033252 0            040000033252 
FT9	033252 033252 0   0   000000033252 0            040000033252 
ET0	033252 033252 0   0   000000033252 0            040000033252 
ST1A	033252 033252 0   0   000000033252 0            040000033252 
ST9	033252 033252 0   0   000000033252 0            040000033252 


*033252 JFCL	0,033254
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033252 033252 0   0   255000033254 0            000000033254 
IT1	033252 0      0   0   255000033254 0            000000033254 
AT3	033252 0      0   0   000000033254 0            255000033254 
AT6	033252 033254 0   0   000000033254 0            255000033254 
FT1A	033252 033254 0   0   000000033254 0            000000033254 
FT9	033253 033254 0   0   000000033254 0            000000033254 
ET0	033253 033254 0   0   000000033254 0            000000033254 
ST1A	033253 033254 0   0   000000033254 0            000000033254 
ST9	033253 033254 0   0   000000033254 0            000000033254 


*033253 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	033253 033253 0   0   334000000000 0            377777777777 
IT1	033253 0      0   0   334000000000 0            377777777777 
AT3	033253 0      0   0   0            0            334000000000 
AT6	033253 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 431
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0626

FT0	033253 0      0   0   377777777777 0            334000000000 
FT1A	033253 0      0   0   377777777777 0            377777777777 
FT9	033254 0      0   0   377777777777 0            377777777777 
ET0	033255 0      0   0   377777777777 0            377777777777 
ST1A	033255 0      0   0   377777777777 0            377777777777 
ST9	033255 0      0   0   377777777777 0            377777777777 


*033255 JUMPA	0,033256
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033255 033255 0   0   324000033256 0            000000033256 
IT1	033255 0      0   0   324000033256 0            000000033256 
AT3	033255 0      0   0   000000033256 0            324000033256 
AT6	033255 033256 0   0   000000033256 0            324000033256 
FT1A	033255 033256 0   0   000000033256 0            000000033256 
FT2	033255 033256 0   0   0            0            000000033256 
FT2RQ	033255 033256 0   0   377777777777 0            000000033256 
FT3	033255 033256 0   0   377777777777 0            000000033256 
FT9	033256 033256 0   0   377777777777 0            000000033256 
ET0	033256 033256 0   0   377777777777 0            000000033256 
ST1A	033256 033256 0   0   377777777777 0            000000033256 
ST9	033256 033256 0   0   377777777777 0            000000033256 


*033256 MOVSI	1,200000
INITIAL
C(AC)=040000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033256 033256 0   0   205040200000 0            000000200000 
IT1	033256 0      0   0   205040200000 0            000000200000 
AT3	033256 0      0   0   000000200000 0            205040200000 
AT6	033256 0      0   0   000000200000 0            205040200000 
FT1A	033256 0      0   0   000000200000 0            000000200000 
FT9	033257 0      0   0   000000200000 0            000000200000 
ET0	033257 0      0   0   200000000000 0            000000200000 
ST1	033257 0      0   0   200000000000 0            000000200000 
ST2	033257 0      0   0   200000000000 0            000000200000 
ST9	033257 0      0   0   200000000000 0            000000200000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 432
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0627

*033257 JFCL	17,033260
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033257 033257 0   0   255740033260 0            000000033260 
IT1	033257 0      0   0   255740033260 0            000000033260 
AT3	033257 0      0   0   000000033260 0            255740033260 
AT6	033257 033260 0   0   000000033260 0            255740033260 
FT1A	033257 033260 0   0   000000033260 0            000000033260 
FT9	033260 033260 0   0   000000033260 0            000000033260 
ET0	033260 033260 0   0   000000033260 0            000000033260 
ST1A	033260 033260 0   0   000000033260 0            000000033260 
ST9	033260 033260 0   0   000000033260 0            000000033260 


*033260 JRST	2,033261(1)
INITIAL
C(AC)=000000 000002 
C(E)=400040 000000 
FINAL

C(E)=400040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033260 033260 0   0   254101033261 0            200000033261 
IT1	033260 0      0   0   254101033261 0            200000033261 
AT1	033260 0      0   0   0            0            254101033261 
AT2	033260 0      0   0   200000000000 0            254101033261 
AT3	033260 0      0   0   000000033261 0            200000033261 
AT6	033260 033261 0   0   000000033261 0            200000033261 
FT1A	033260 033261 0   0   000000033261 0            200000033261 
FT9	033261 033261 0   0   000000033261 0            200000033261 
ET0	033261 033261 0   0   000000033261 0            200000033261 
ST1A	033261 033261 0   0   000000033261 0            200000033261 
ST9	033261 033261 0   0   000000033261 0            200000033261 


*033261 SETZ 	1,000000
INITIAL
C(AC)=200000 000000 
C(E)=377777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033261 033261 0   0   400040000000 0            0            
IT1	033261 0      0   0   400040000000 0            0            
AT3	033261 0      0   0   0            0            400040000000 
AT6	033261 0      0   0   0            0            400040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 433
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0628

FT1A	033261 0      0   0   0            0            0            
FT9	033262 0      0   0   0            0            0            
ET0	033262 0      0   0   0            0            0            
ST1	033262 0      0   0   0            0            0            
ST2	033262 0      0   0   0            0            0            
ST9	033262 0      0   0   0            0            0            


*033262 JRST	2,033263(1)
INITIAL
C(AC)=000000 000002 
C(E)=255200 033265 
FINAL

C(E)=255200 033265 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033262 033262 0   0   254101033263 0            000000033263 
IT1	033262 0      0   0   254101033263 0            000000033263 
AT1	033262 0      0   0   0            0            254101033263 
AT2	033262 0      0   0   0            0            254101033263 
AT3	033262 0      0   0   000000033263 0            000000033263 
AT6	033262 033263 0   0   000000033263 0            000000033263 
FT1A	033262 033263 0   0   000000033263 0            000000033263 
FT9	033263 033263 0   0   000000033263 0            000000033263 
ET0	033263 033263 0   0   000000033263 0            000000033263 
ST1A	033263 033263 0   0   000000033263 0            000000033263 
ST9	033263 033263 0   0   000000033263 0            000000033263 


*033263 JFCL	4,033265
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033263 033263 0   0   255200033265 0            000000033265 
IT1	033263 0      0   0   255200033265 0            000000033265 
AT3	033263 0      0   0   000000033265 0            255200033265 
AT6	033263 033265 0   0   000000033265 0            255200033265 
FT1A	033263 033265 0   0   000000033265 0            000000033265 
FT9	033264 033265 0   0   000000033265 0            000000033265 
ET0	033264 033265 0   0   000000033265 0            000000033265 
ST1A	033264 033265 0   0   000000033265 0            000000033265 
ST9	033264 033265 0   0   000000033265 0            000000033265 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 434
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0629

*033264 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	033264 033264 0   0   334000000000 0            377777777777 
IT1	033264 0      0   0   334000000000 0            377777777777 
AT3	033264 0      0   0   0            0            334000000000 
AT6	033264 0      0   0   0            0            334000000000 
FT0	033264 0      0   0   377777777777 0            334000000000 
FT1A	033264 0      0   0   377777777777 0            377777777777 
FT9	033265 0      0   0   377777777777 0            377777777777 
ET0	033266 0      0   0   377777777777 0            377777777777 
ST1A	033266 0      0   0   377777777777 0            377777777777 
ST9	033266 0      0   0   377777777777 0            377777777777 


*033266 JUMPA	0,033267
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033266 033266 0   0   324000033267 0            000000033267 
IT1	033266 0      0   0   324000033267 0            000000033267 
AT3	033266 0      0   0   000000033267 0            324000033267 
AT6	033266 033267 0   0   000000033267 0            324000033267 
FT1A	033266 033267 0   0   000000033267 0            000000033267 
FT2	033266 033267 0   0   0            0            000000033267 
FT2RQ	033266 033267 0   0   377777777777 0            000000033267 
FT3	033266 033267 0   0   377777777777 0            000000033267 
FT9	033267 033267 0   0   377777777777 0            000000033267 
ET0	033267 033267 0   0   377777777777 0            000000033267 
ST1A	033267 033267 0   0   377777777777 0            000000033267 
ST9	033267 033267 0   0   377777777777 0            000000033267 


*033267 MOVSI	1,040000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033267 033267 0   0   205040040000 0            000000040000 
IT1	033267 0      0   0   205040040000 0            000000040000 
AT3	033267 0      0   0   000000040000 0            205040040000 
AT6	033267 0      0   0   000000040000 0            205040040000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 435
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0630

FT1A	033267 0      0   0   000000040000 0            000000040000 
FT9	033270 0      0   0   000000040000 0            000000040000 
ET0	033270 0      0   0   040000000000 0            000000040000 
ST1	033270 0      0   0   040000000000 0            000000040000 
ST2	033270 0      0   0   040000000000 0            000000040000 
ST9	033270 0      0   0   040000000000 0            000000040000 


*033270 JFCL	17,033271
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033270 033270 0   0   255740033271 0            000000033271 
IT1	033270 0      0   0   255740033271 0            000000033271 
AT3	033270 0      0   0   000000033271 0            255740033271 
AT6	033270 033271 0   0   000000033271 0            255740033271 
FT1A	033270 033271 0   0   000000033271 0            000000033271 
FT9	033271 033271 0   0   000000033271 0            000000033271 
ET0	033271 033271 0   0   000000033271 0            000000033271 
ST1A	033271 033271 0   0   000000033271 0            000000033271 
ST9	033271 033271 0   0   000000033271 0            000000033271 


*033271 JRST	2,033272(1)
INITIAL
C(AC)=000000 000002 
C(E)=400040 000000 
FINAL

C(E)=400040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033271 033271 0   0   254101033272 0            040000033272 
IT1	033271 0      0   0   254101033272 0            040000033272 
AT1	033271 0      0   0   0            0            254101033272 
AT2	033271 0      0   0   040000000000 0            254101033272 
AT3	033271 0      0   0   000000033272 0            040000033272 
AT6	033271 033272 0   0   000000033272 0            040000033272 
FT1A	033271 033272 0   0   000000033272 0            040000033272 
FT9	033272 033272 0   0   000000033272 0            040000033272 
ET0	033272 033272 0   0   000000033272 0            040000033272 
ST1A	033272 033272 0   0   000000033272 0            040000033272 
ST9	033272 033272 0   0   000000033272 0            040000033272 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 436
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0631

*033272 SETZ 	1,000000
INITIAL
C(AC)=040000 000000 
C(E)=377777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033272 033272 0   0   400040000000 0            0            
IT1	033272 0      0   0   400040000000 0            0            
AT3	033272 0      0   0   0            0            400040000000 
AT6	033272 0      0   0   0            0            400040000000 
FT1A	033272 0      0   0   0            0            0            
FT9	033273 0      0   0   0            0            0            
ET0	033273 0      0   0   0            0            0            
ST1	033273 0      0   0   0            0            0            
ST2	033273 0      0   0   0            0            0            
ST9	033273 0      0   0   0            0            0            


*033273 JRST	2,033274(1)
INITIAL
C(AC)=000000 000002 
C(E)=255040 033276 
FINAL

C(E)=255040 033276 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033273 033273 0   0   254101033274 0            000000033274 
IT1	033273 0      0   0   254101033274 0            000000033274 
AT1	033273 0      0   0   0            0            254101033274 
AT2	033273 0      0   0   0            0            254101033274 
AT3	033273 0      0   0   000000033274 0            000000033274 
AT6	033273 033274 0   0   000000033274 0            000000033274 
FT1A	033273 033274 0   0   000000033274 0            000000033274 
FT9	033274 033274 0   0   000000033274 0            000000033274 
ET0	033274 033274 0   0   000000033274 0            000000033274 
ST1A	033274 033274 0   0   000000033274 0            000000033274 
ST9	033274 033274 0   0   000000033274 0            000000033274 


*033274 JFCL	1,033276
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033274 033274 0   0   255040033276 0            000000033276 
IT1	033274 0      0   0   255040033276 0            000000033276 
AT3	033274 0      0   0   000000033276 0            255040033276 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 437
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0632

AT6	033274 033276 0   0   000000033276 0            255040033276 
FT1A	033274 033276 0   0   000000033276 0            000000033276 
FT9	033275 033276 0   0   000000033276 0            000000033276 
ET0	033275 033276 0   0   000000033276 0            000000033276 
ST1A	033275 033276 0   0   000000033276 0            000000033276 
ST9	033275 033276 0   0   000000033276 0            000000033276 


*033275 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	033275 033275 0   0   334000000000 0            377777777777 
IT1	033275 0      0   0   334000000000 0            377777777777 
AT3	033275 0      0   0   0            0            334000000000 
AT6	033275 0      0   0   0            0            334000000000 
FT0	033275 0      0   0   377777777777 0            334000000000 
FT1A	033275 0      0   0   377777777777 0            377777777777 
FT9	033276 0      0   0   377777777777 0            377777777777 
ET0	033277 0      0   0   377777777777 0            377777777777 
ST1A	033277 0      0   0   377777777777 0            377777777777 
ST9	033277 0      0   0   377777777777 0            377777777777 


*033277 JUMPA	0,033300
INITIAL
C(AC)=377777 777777 
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   377777777777 0            000000033300 
FT3	033277 0      0   0   377777777777 0            000000033300 
FT9	0      0      0   0   377777777777 0            000000033300 
ET0	0      0      0   0   377777777777 0            000000033300 
ST1A	0      0      0   0   377777777777 0            000000033300 
ST9	0      0      0   0   377777777777 0            000000033300 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 438
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0633

*033300 JFCL	17,033301
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   255740033301 0            000000033301 
IT1	0      0      0   0   255740033301 0            000000033301 
AT3	0      0      0   0   000000033301 0            255740033301 
AT6	0      033301 0   0   000000033301 0            255740033301 
FT1A	0      033301 0   0   000000033301 0            000000033301 
FT9	033301 033301 0   0   000000033301 0            000000033301 
ET0	033301 033301 0   0   000000033301 0            000000033301 
ST1A	033301 033301 0   0   000000033301 0            000000033301 
ST9	033301 033301 0   0   000000033301 0            000000033301 


*033301 SETZ 	1,000000
INITIAL
C(AC)=000000 000000 
C(E)=377777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033301 033301 0   0   400040000000 0            0            
IT1	033301 0      0   0   400040000000 0            0            
AT3	033301 0      0   0   0            0            400040000000 
AT6	033301 0      0   0   0            0            400040000000 
FT1A	033301 0      0   0   0            0            0            
FT9	033302 0      0   0   0            0            0            
ET0	033302 0      0   0   0            0            0            
ST1	033302 0      0   0   0            0            0            
ST2	033302 0      0   0   0            0            0            
ST9	033302 0      0   0   0            0            0            


*033302 JRST	2,033303(1)
INITIAL
C(AC)=000000 000002 
C(E)=255740 033305 
FINAL

C(E)=255740 033305 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033302 033302 0   0   254101033303 0            000000033303 
IT1	033302 0      0   0   254101033303 0            000000033303 
AT1	033302 0      0   0   0            0            254101033303 
AT2	033302 0      0   0   0            0            254101033303 
AT3	033302 0      0   0   000000033303 0            000000033303 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 439
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0634

AT6	033302 033303 0   0   000000033303 0            000000033303 
FT1A	033302 033303 0   0   000000033303 0            000000033303 
FT9	033303 033303 0   0   000000033303 0            000000033303 
ET0	033303 033303 0   0   000000033303 0            000000033303 
ST1A	033303 033303 0   0   000000033303 0            000000033303 
ST9	033303 033303 0   0   000000033303 0            000000033303 


*033303 JFCL	17,033305
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033303 033303 0   0   255740033305 0            000000033305 
IT1	033303 0      0   0   255740033305 0            000000033305 
AT3	033303 0      0   0   000000033305 0            255740033305 
AT6	033303 033305 0   0   000000033305 0            255740033305 
FT1A	033303 033305 0   0   000000033305 0            000000033305 
FT9	033304 033305 0   0   000000033305 0            000000033305 
ET0	033304 033305 0   0   000000033305 0            000000033305 
ST1A	033304 033305 0   0   000000033305 0            000000033305 
ST9	033304 033305 0   0   000000033305 0            000000033305 


*033304 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	033304 033304 0   0   334000000000 0            377777777777 
IT1	033304 0      0   0   334000000000 0            377777777777 
AT3	033304 0      0   0   0            0            334000000000 
AT6	033304 0      0   0   0            0            334000000000 
FT0	033304 0      0   0   377777777777 0            334000000000 
FT1A	033304 0      0   0   377777777777 0            377777777777 
FT9	033305 0      0   0   377777777777 0            377777777777 
ET0	033306 0      0   0   377777777777 0            377777777777 
ST1A	033306 0      0   0   377777777777 0            377777777777 
ST9	033306 0      0   0   377777777777 0            377777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 440
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0635

*033306 JUMPA	0,033307
INITIAL
C(AC)=377777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033306 033306 0   0   324000033307 0            000000033307 
IT1	033306 0      0   0   324000033307 0            000000033307 
AT3	033306 0      0   0   000000033307 0            324000033307 
AT6	033306 033307 0   0   000000033307 0            324000033307 
FT1A	033306 033307 0   0   000000033307 0            000000033307 
FT2	033306 033307 0   0   0            0            000000033307 
FT2RQ	033306 033307 0   0   377777777777 0            000000033307 
FT3	033306 033307 0   0   377777777777 0            000000033307 
FT9	033307 033307 0   0   377777777777 0            000000033307 
ET0	033307 033307 0   0   377777777777 0            000000033307 
ST1A	033307 033307 0   0   377777777777 0            000000033307 
ST9	033307 033307 0   0   377777777777 0            000000033307 


*033307 SETZB	0,000001
INITIAL
C(AC)=377777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033307 033307 0   0   403000000001 0            000000000001 
IT1	033307 0      0   0   403000000001 0            000000000001 
AT3	033307 0      0   0   000000000001 0            403000000001 
AT6	033307 000001 0   0   000000000001 0            403000000001 
FT1A	033307 000001 0   0   000000000001 0            000000000001 
FT9	033310 000001 0   0   000000000001 0            000000000001 
ET0	033310 000001 0   0   0            0            000000000001 
ST1	033310 000001 0   0   0            0            000000000001 
ST2	033310 000001 0   0   0            0            000000000001 
ST6	033310 000001 0   0   0            0            000000000001 
ST6A	033310 000001 0   0   0            0            000000000001 
ST9	033310 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 441
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0636

*033310 JRST	2,033311(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033312 
FINAL

C(E)=265000 033312 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033310 033310 0   0   254101033311 0            000000033311 
IT1	033310 0      0   0   254101033311 0            000000033311 
AT1	033310 0      0   0   0            0            254101033311 
AT2	033310 0      0   0   0            0            254101033311 
AT3	033310 0      0   0   000000033311 0            000000033311 
AT6	033310 033311 0   0   000000033311 0            000000033311 
FT1A	033310 033311 0   0   000000033311 0            000000033311 
FT9	033311 033311 0   0   000000033311 0            000000033311 
ET0	033311 033311 0   0   000000033311 0            000000033311 
ST1A	033311 033311 0   0   000000033311 0            000000033311 
ST9	033311 033311 0   0   000000033311 0            000000033311 


*033311 JSP	0,033312
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 033312 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033311 033311 0   0   265000033312 0            000000033312 
IT1	033311 0      0   0   265000033312 0            000000033312 
AT3	033311 0      0   0   000000033312 0            265000033312 
AT6	033311 033312 0   0   000000033312 0            265000033312 
FT1A	033311 033312 0   0   000000033312 0            000000033312 
FT9	033312 033312 0   0   000000033312 0            000000033312 
ET0	033312 033312 0   0   000000033312 0            000000033312 
ST1	033312 033312 0   0   000000033312 0            000000033312 
ST2	033312 033312 0   0   000000033312 0            000000033312 
ST9	033312 033312 0   0   000000033312 0            000000033312 


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033312 033312 0   0   336000000000 0            000000033312 
IT1	033312 0      0   0   336000000000 0            000000033312 
AT3	033312 0      0   0   0            0            336000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 442
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0637

AT6	033312 0      0   0   0            0            336000000000 
FT0	033312 0      0   0   000000033312 0            336000000000 
FT1A	033312 0      0   0   000000033312 0            000000033312 
FT9	033313 0      0   0   000000033312 0            000000033312 
ET0	033314 0      0   0   000000033312 0            000000033312 
ST1A	033314 0      0   0   000000033312 0            000000033312 
ST9	033314 0      0   0   000000033312 0            000000033312 


*033314 JUMPA	0,033315
INITIAL
C(AC)=000000 033312 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033314 033314 0   0   324000033315 0            000000033315 
IT1	033314 0      0   0   324000033315 0            000000033315 
AT3	033314 0      0   0   000000033315 0            324000033315 
AT6	033314 033315 0   0   000000033315 0            324000033315 
FT1A	033314 033315 0   0   000000033315 0            000000033315 
FT2	033314 033315 0   0   0            0            000000033315 
FT2RQ	033314 033315 0   0   000000033312 0            000000033315 
FT3	033314 033315 0   0   000000033312 0            000000033315 
FT9	033315 033315 0   0   000000033312 0            000000033315 
ET0	033315 033315 0   0   000000033312 0            000000033315 
ST1A	033315 033315 0   0   000000033312 0            000000033315 
ST9	033315 033315 0   0   000000033312 0            000000033315 


*033315 SETZ 	0,000000
INITIAL
C(AC)=000000 033312 
C(E)=000000 033312 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033315 033315 0   0   400000000000 0            0            
IT1	033315 0      0   0   400000000000 0            0            
AT3	033315 0      0   0   0            0            400000000000 
AT6	033315 0      0   0   0            0            400000000000 
FT1A	033315 0      0   0   0            0            0            
FT9	033316 0      0   0   0            0            0            
ET0	033316 0      0   0   0            0            0            
ST1	033316 0      0   0   0            0            0            
ST2	033316 0      0   0   0            0            0            
ST9	033316 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 443
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0638

*033316 JSP	0,033317
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 033317 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033316 033316 0   0   265000033317 0            000000033317 
IT1	033316 0      0   0   265000033317 0            000000033317 
AT3	033316 0      0   0   000000033317 0            265000033317 
AT6	033316 033317 0   0   000000033317 0            265000033317 
FT1A	033316 033317 0   0   000000033317 0            000000033317 
FT9	033317 033317 0   0   000000033317 0            000000033317 
ET0	033317 033317 0   0   000000033317 0            000000033317 
ST1	033317 033317 0   0   000000033317 0            000000033317 
ST2	033317 033317 0   0   000000033317 0            000000033317 
ST9	033317 033317 0   0   000000033317 0            000000033317 


*033317 TRNN	0,777777
INITIAL
C(AC)=000000 033317 
FINAL
C(AC)=000000 033317 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033317 033317 0   0   606000777777 0            000000033317 
IT1	033317 0      0   0   606000777777 0            000000033317 
AT3	033317 0      0   0   000000777777 0            606000777777 
AT6	033317 777777 0   0   000000777777 0            606000777777 
FT1A	033317 777777 0   0   000000777777 0            000000777777 
FT2	033317 777777 0   0   0            0            000000777777 
FT2RQ	033317 777777 0   0   000000033317 0            000000777777 
FT3	033317 777777 0   0   000000033317 0            000000777777 
FT9	033320 777777 0   0   000000033317 0            000000777777 
ET0	033320 777777 0   0   000000033317 0            000000777777 
ET1	033320 777777 0   0   000000033317 0            000000033317 
ET2	033321 777777 0   0   000000033317 0            000000033317 
ST1A	033321 777777 0   0   000000033317 0            000000033317 
ST9	033321 777777 0   0   000000033317 0            000000033317 


*033321 JUMPA	0,033322
INITIAL
C(AC)=000000 033317 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 444
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0639

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   000000033317 0            000000033322 
FT3	033321 033322 0   0   000000033317 0            000000033322 
FT9	033322 033322 0   0   000000033317 0            000000033322 
ET0	033322 033322 0   0   000000033317 0            000000033322 
ST1A	033322 033322 0   0   000000033317 0            000000033322 
ST9	033322 033322 0   0   000000033317 0            000000033322 


*033322 SETZM	0,000000
INITIAL
C(AC)=000000 033317 
C(E)=000000 033317 
FINAL

C(E)=000000 033317 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033322 033322 0   0   402000000000 0            0            
IT1	033322 0      0   0   402000000000 0            0            
AT3	033322 0      0   0   0            0            402000000000 
AT6	033322 0      0   0   0            0            402000000000 
FT1A	033322 0      0   0   0            0            0            
FT9	033323 0      0   0   0            0            0            
ET0	033323 0      0   0   0            0            0            
ST6	033323 0      0   0   0            0            0            
ST6A	033323 0      0   0   0            0            0            
ST9	033323 0      0   0   0            0            0            


*033323 MOVSI	1,740000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=740000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033323 033323 0   0   205040740000 0            000000740000 
IT1	033323 0      0   0   205040740000 0            000000740000 
AT3	033323 0      0   0   000000740000 0            205040740000 
AT6	033323 0      0   0   000000740000 0            205040740000 
FT1A	033323 0      0   0   000000740000 0            000000740000 
FT9	033324 0      0   0   000000740000 0            000000740000 
ET0	033324 0      0   0   740000000000 0            000000740000 
ST1	033324 0      0   0   740000000000 0            000000740000 
ST2	033324 0      0   0   740000000000 0            000000740000 
ST9	033324 0      0   0   740000000000 0            000000740000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 445
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0640

*033324 JRST	2,033325(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033326 
FINAL

C(E)=265000 033326 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033324 033324 0   0   254101033325 0            740000033325 
IT1	033324 0      0   0   254101033325 0            740000033325 
AT1	033324 0      0   0   0            0            254101033325 
AT2	033324 0      0   0   740000000000 0            254101033325 
AT3	033324 0      0   0   000000033325 0            740000033325 
AT6	033324 033325 0   0   000000033325 0            740000033325 
FT1A	033324 033325 0   0   000000033325 0            740000033325 
FT9	033325 033325 0   0   000000033325 0            740000033325 
ET0	033325 033325 0   0   000000033325 0            740000033325 
ST1A	033325 033325 0   0   000000033325 0            740000033325 
ST9	033325 033325 0   0   000000033325 0            740000033325 


*033325 JSP	0,033326
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=740000 033326 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033325 033325 0   0   265000033326 0            000000033326 
IT1	033325 0      0   0   265000033326 0            000000033326 
AT3	033325 0      0   0   000000033326 0            265000033326 
AT6	033325 033326 0   0   000000033326 0            265000033326 
FT1A	033325 033326 0   0   000000033326 0            000000033326 
FT9	033326 033326 0   0   000000033326 0            000000033326 
ET0	033326 033326 0   0   740000033326 0            000000033326 
ST1	033326 033326 0   0   740000033326 0            000000033326 
ST2	033326 033326 0   0   740000033326 0            000000033326 
ST9	033326 033326 0   0   740000033326 0            000000033326 


*033326 TLNN	0,777777
INITIAL
C(AC)=740000 033326 
FINAL
C(AC)=740000 033326 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033326 033326 0   0   607000777777 0            000000740000 
IT1	033326 0      0   0   607000777777 0            000000740000 
AT3	033326 0      0   0   000000777777 0            607000777777 
AT6	033326 777777 0   0   000000777777 0            607000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 446
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0641

FT1A	033326 777777 0   0   000000777777 0            000000777777 
FT2	033326 777777 0   0   0            0            000000777777 
FT2RQ	033326 777777 0   0   740000033326 0            000000777777 
FT3	033326 777777 0   0   740000033326 0            000000777777 
FT9	033327 777777 0   0   740000033326 0            000000777777 
ET0	033327 777777 0   0   033326740000 0            000000777777 
ET1	033327 777777 0   0   033326740000 0            000000740000 
ET2	033330 777777 0   0   740000033326 0            000000740000 
ST1A	033330 777777 0   0   740000033326 0            000000740000 
ST9	033330 777777 0   0   740000033326 0            000000740000 


*033330 JUMPA	0,033331
INITIAL
C(AC)=740000 033326 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033330 033330 0   0   324000033331 0            000000033331 
IT1	033330 0      0   0   324000033331 0            000000033331 
AT3	033330 0      0   0   000000033331 0            324000033331 
AT6	033330 033331 0   0   000000033331 0            324000033331 
FT1A	033330 033331 0   0   000000033331 0            000000033331 
FT2	033330 033331 0   0   0            0            000000033331 
FT2RQ	033330 033331 0   0   740000033326 0            000000033331 
FT3	033330 033331 0   0   740000033326 0            000000033331 
FT9	033331 033331 0   0   740000033326 0            000000033331 
ET0	033331 033331 0   0   740000033326 0            000000033331 
ST1A	033331 033331 0   0   740000033326 0            000000033331 
ST9	033331 033331 0   0   740000033326 0            000000033331 


*033331 SETZM	0,000000
INITIAL
C(AC)=740000 033326 
C(E)=740000 033326 
FINAL

C(E)=740000 033326 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033331 033331 0   0   402000000000 0            0            
IT1	033331 0      0   0   402000000000 0            0            
AT3	033331 0      0   0   0            0            402000000000 
AT6	033331 0      0   0   0            0            402000000000 
FT1A	033331 0      0   0   0            0            0            
FT9	033332 0      0   0   0            0            0            
ET0	033332 0      0   0   0            0            0            
ST6	033332 0      0   0   0            0            0            
ST6A	033332 0      0   0   0            0            0            
ST9	033332 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 447
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0642



*033332 MOVSI	1,400000
INITIAL
C(AC)=740000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033332 033332 0   0   205040400000 0            000000400000 
IT1	033332 0      0   0   205040400000 0            000000400000 
AT3	033332 0      0   0   000000400000 0            205040400000 
AT6	033332 0      0   0   000000400000 0            205040400000 
FT1A	033332 0      0   0   000000400000 0            000000400000 
FT9	033333 0      0   0   000000400000 0            000000400000 
ET0	033333 0      0   0   400000000000 0            000000400000 
ST1	033333 0      0   0   400000000000 0            000000400000 
ST2	033333 0      0   0   400000000000 0            000000400000 
ST9	033333 0      0   0   400000000000 0            000000400000 


*033333 JFCL	17,033334
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033333 033333 0   0   255740033334 0            000000033334 
IT1	033333 0      0   0   255740033334 0            000000033334 
AT3	033333 0      0   0   000000033334 0            255740033334 
AT6	033333 033334 0   0   000000033334 0            255740033334 
FT1A	033333 033334 0   0   000000033334 0            000000033334 
FT9	033334 033334 0   0   000000033334 0            000000033334 
ET0	033334 033334 0   0   000000033334 0            000000033334 
ST1A	033334 033334 0   0   000000033334 0            000000033334 
ST9	033334 033334 0   0   000000033334 0            000000033334 


*033334 JRST	2,033335(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033336 
FINAL

C(E)=265000 033336 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033334 033334 0   0   254101033335 0            400000033335 
IT1	033334 0      0   0   254101033335 0            400000033335 
AT1	033334 0      0   0   0            0            254101033335 
AT2	033334 0      0   0   400000000000 0            254101033335 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 448
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0643

AT3	033334 0      0   0   000000033335 0            400000033335 
AT6	033334 033335 0   0   000000033335 0            400000033335 
FT1A	033334 033335 0   0   000000033335 0            400000033335 
FT9	033335 033335 0   0   000000033335 0            400000033335 
ET0	033335 033335 0   0   000000033335 0            400000033335 
ST1A	033335 033335 0   0   000000033335 0            400000033335 
ST9	033335 033335 0   0   000000033335 0            400000033335 


*033335 JSP	0,033336
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=400000 033336 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033335 033335 0   0   265000033336 0            000000033336 
IT1	033335 0      0   0   265000033336 0            000000033336 
AT3	033335 0      0   0   000000033336 0            265000033336 
AT6	033335 033336 0   0   000000033336 0            265000033336 
FT1A	033335 033336 0   0   000000033336 0            000000033336 
FT9	033336 033336 0   0   000000033336 0            000000033336 
ET0	033336 033336 0   0   400000033336 0            000000033336 
ST1	033336 033336 0   0   400000033336 0            000000033336 
ST2	033336 033336 0   0   400000033336 0            000000033336 
ST9	033336 033336 0   0   400000033336 0            000000033336 


*033336 TLNN	0,400000
INITIAL
C(AC)=400000 033336 
FINAL
C(AC)=400000 033336 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033336 033336 0   0   607000400000 0            000000400000 
IT1	033336 0      0   0   607000400000 0            000000400000 
AT3	033336 0      0   0   000000400000 0            607000400000 
AT6	033336 0      0   0   000000400000 0            607000400000 
FT1A	033336 0      0   0   000000400000 0            000000400000 
FT2	033336 0      0   0   0            0            000000400000 
FT2RQ	033336 0      0   0   400000033336 0            000000400000 
FT3	033336 0      0   0   400000033336 0            000000400000 
FT9	033337 0      0   0   400000033336 0            000000400000 
ET0	033337 0      0   0   033336400000 0            000000400000 
ET1	033337 0      0   0   033336400000 0            000000400000 
ET2	033340 0      0   0   400000033336 0            000000400000 
ST1A	033340 0      0   0   400000033336 0            000000400000 
ST9	033340 0      0   0   400000033336 0            000000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 449
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0644

*033340 JUMPA	0,033341
INITIAL
C(AC)=400000 033336 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033340 033340 0   0   324000033341 0            000000033341 
IT1	033340 0      0   0   324000033341 0            000000033341 
AT3	033340 0      0   0   000000033341 0            324000033341 
AT6	033340 033341 0   0   000000033341 0            324000033341 
FT1A	033340 033341 0   0   000000033341 0            000000033341 
FT2	033340 033341 0   0   0            0            000000033341 
FT2RQ	033340 033341 0   0   400000033336 0            000000033341 
FT3	033340 033341 0   0   400000033336 0            000000033341 
FT9	033341 033341 0   0   400000033336 0            000000033341 
ET0	033341 033341 0   0   400000033336 0            000000033341 
ST1A	033341 033341 0   0   400000033336 0            000000033341 
ST9	033341 033341 0   0   400000033336 0            000000033341 


*033341 SETZM	0,000000
INITIAL
C(AC)=400000 033336 
C(E)=400000 033336 
FINAL

C(E)=400000 033336 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033341 033341 0   0   402000000000 0            0            
IT1	033341 0      0   0   402000000000 0            0            
AT3	033341 0      0   0   0            0            402000000000 
AT6	033341 0      0   0   0            0            402000000000 
FT1A	033341 0      0   0   0            0            0            
FT9	033342 0      0   0   0            0            0            
ET0	033342 0      0   0   0            0            0            
ST6	033342 0      0   0   0            0            0            
ST6A	033342 0      0   0   0            0            0            
ST9	033342 0      0   0   0            0            0            


*033342 MOVSI	1,200000
INITIAL
C(AC)=400000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033342 033342 0   0   205040200000 0            000000200000 
IT1	033342 0      0   0   205040200000 0            000000200000 
AT3	033342 0      0   0   000000200000 0            205040200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 450
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0645

AT6	033342 0      0   0   000000200000 0            205040200000 
FT1A	033342 0      0   0   000000200000 0            000000200000 
FT9	033343 0      0   0   000000200000 0            000000200000 
ET0	033343 0      0   0   200000000000 0            000000200000 
ST1	033343 0      0   0   200000000000 0            000000200000 
ST2	033343 0      0   0   200000000000 0            000000200000 
ST9	033343 0      0   0   200000000000 0            000000200000 


*033343 JFCL	17,033344
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033343 033343 0   0   255740033344 0            000000033344 
IT1	033343 0      0   0   255740033344 0            000000033344 
AT3	033343 0      0   0   000000033344 0            255740033344 
AT6	033343 033344 0   0   000000033344 0            255740033344 
FT1A	033343 033344 0   0   000000033344 0            000000033344 
FT9	033344 033344 0   0   000000033344 0            000000033344 
ET0	033344 033344 0   0   000000033344 0            000000033344 
ST1A	033344 033344 0   0   000000033344 0            000000033344 
ST9	033344 033344 0   0   000000033344 0            000000033344 


*033344 JRST	2,033345(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033346 
FINAL

C(E)=265000 033346 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033344 033344 0   0   254101033345 0            200000033345 
IT1	033344 0      0   0   254101033345 0            200000033345 
AT1	033344 0      0   0   0            0            254101033345 
AT2	033344 0      0   0   200000000000 0            254101033345 
AT3	033344 0      0   0   000000033345 0            200000033345 
AT6	033344 033345 0   0   000000033345 0            200000033345 
FT1A	033344 033345 0   0   000000033345 0            200000033345 
FT9	033345 033345 0   0   000000033345 0            200000033345 
ET0	033345 033345 0   0   000000033345 0            200000033345 
ST1A	033345 033345 0   0   000000033345 0            200000033345 
ST9	033345 033345 0   0   000000033345 0            200000033345 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 451
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0646

*033345 JSP	0,033346
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=200000 033346 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033345 033345 0   0   265000033346 0            000000033346 
IT1	033345 0      0   0   265000033346 0            000000033346 
AT3	033345 0      0   0   000000033346 0            265000033346 
AT6	033345 033346 0   0   000000033346 0            265000033346 
FT1A	033345 033346 0   0   000000033346 0            000000033346 
FT9	033346 033346 0   0   000000033346 0            000000033346 
ET0	033346 033346 0   0   200000033346 0            000000033346 
ST1	033346 033346 0   0   200000033346 0            000000033346 
ST2	033346 033346 0   0   200000033346 0            000000033346 
ST9	033346 033346 0   0   200000033346 0            000000033346 


*033346 TLNN	0,200000
INITIAL
C(AC)=200000 033346 
FINAL
C(AC)=200000 033346 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033346 033346 0   0   607000200000 0            000000200000 
IT1	033346 0      0   0   607000200000 0            000000200000 
AT3	033346 0      0   0   000000200000 0            607000200000 
AT6	033346 0      0   0   000000200000 0            607000200000 
FT1A	033346 0      0   0   000000200000 0            000000200000 
FT2	033346 0      0   0   0            0            000000200000 
FT2RQ	033346 0      0   0   200000033346 0            000000200000 
FT3	033346 0      0   0   200000033346 0            000000200000 
FT9	033347 0      0   0   200000033346 0            000000200000 
ET0	033347 0      0   0   033346200000 0            000000200000 
ET1	033347 0      0   0   033346200000 0            000000200000 
ET2	033350 0      0   0   200000033346 0            000000200000 
ST1A	033350 0      0   0   200000033346 0            000000200000 
ST9	033350 0      0   0   200000033346 0            000000200000 


*033350 JUMPA	0,033351
INITIAL
C(AC)=200000 033346 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033350 033350 0   0   324000033351 0            000000033351 
IT1	033350 0      0   0   324000033351 0            000000033351 
AT3	033350 0      0   0   000000033351 0            324000033351 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 452
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0647

AT6	033350 033351 0   0   000000033351 0            324000033351 
FT1A	033350 033351 0   0   000000033351 0            000000033351 
FT2	033350 033351 0   0   0            0            000000033351 
FT2RQ	033350 033351 0   0   200000033346 0            000000033351 
FT3	033350 033351 0   0   200000033346 0            000000033351 
FT9	033351 033351 0   0   200000033346 0            000000033351 
ET0	033351 033351 0   0   200000033346 0            000000033351 
ST1A	033351 033351 0   0   200000033346 0            000000033351 
ST9	033351 033351 0   0   200000033346 0            000000033351 


*033351 SETZ 	0,000000
INITIAL
C(AC)=200000 033346 
C(E)=200000 033346 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033351 033351 0   0   400000000000 0            0            
IT1	033351 0      0   0   400000000000 0            0            
AT3	033351 0      0   0   0            0            400000000000 
AT6	033351 0      0   0   0            0            400000000000 
FT1A	033351 0      0   0   0            0            0            
FT9	033352 0      0   0   0            0            0            
ET0	033352 0      0   0   0            0            0            
ST1	033352 0      0   0   0            0            0            
ST2	033352 0      0   0   0            0            0            
ST9	033352 0      0   0   0            0            0            


*033352 MOVSI	1,100000
INITIAL
C(AC)=200000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033352 033352 0   0   205040100000 0            000000100000 
IT1	033352 0      0   0   205040100000 0            000000100000 
AT3	033352 0      0   0   000000100000 0            205040100000 
AT6	033352 0      0   0   000000100000 0            205040100000 
FT1A	033352 0      0   0   000000100000 0            000000100000 
FT9	033353 0      0   0   000000100000 0            000000100000 
ET0	033353 0      0   0   100000000000 0            000000100000 
ST1	033353 0      0   0   100000000000 0            000000100000 
ST2	033353 0      0   0   100000000000 0            000000100000 
ST9	033353 0      0   0   100000000000 0            000000100000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 453
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0648

*033353 JFCL	17,033354
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033353 033353 0   0   255740033354 0            000000033354 
IT1	033353 0      0   0   255740033354 0            000000033354 
AT3	033353 0      0   0   000000033354 0            255740033354 
AT6	033353 033354 0   0   000000033354 0            255740033354 
FT1A	033353 033354 0   0   000000033354 0            000000033354 
FT9	033354 033354 0   0   000000033354 0            000000033354 
ET0	033354 033354 0   0   000000033354 0            000000033354 
ST1A	033354 033354 0   0   000000033354 0            000000033354 
ST9	033354 033354 0   0   000000033354 0            000000033354 


*033354 JRST	2,033355(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033356 
FINAL

C(E)=265000 033356 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033354 033354 0   0   254101033355 0            100000033355 
IT1	033354 0      0   0   254101033355 0            100000033355 
AT1	033354 0      0   0   0            0            254101033355 
AT2	033354 0      0   0   100000000000 0            254101033355 
AT3	033354 0      0   0   000000033355 0            100000033355 
AT6	033354 033355 0   0   000000033355 0            100000033355 
FT1A	033354 033355 0   0   000000033355 0            100000033355 
FT9	033355 033355 0   0   000000033355 0            100000033355 
ET0	033355 033355 0   0   000000033355 0            100000033355 
ST1A	033355 033355 0   0   000000033355 0            100000033355 
ST9	033355 033355 0   0   000000033355 0            100000033355 


*033355 JSP	0,033356
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=100000 033356 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033355 033355 0   0   265000033356 0            000000033356 
IT1	033355 0      0   0   265000033356 0            000000033356 
AT3	033355 0      0   0   000000033356 0            265000033356 
AT6	033355 033356 0   0   000000033356 0            265000033356 
FT1A	033355 033356 0   0   000000033356 0            000000033356 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 454
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0649

FT9	033356 033356 0   0   000000033356 0            000000033356 
ET0	033356 033356 0   0   100000033356 0            000000033356 
ST1	033356 033356 0   0   100000033356 0            000000033356 
ST2	033356 033356 0   0   100000033356 0            000000033356 
ST9	033356 033356 0   0   100000033356 0            000000033356 


*033356 TLNN	0,100000
INITIAL
C(AC)=100000 033356 
FINAL
C(AC)=100000 033356 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033356 033356 0   0   607000100000 0            000000100000 
IT1	033356 0      0   0   607000100000 0            000000100000 
AT3	033356 0      0   0   000000100000 0            607000100000 
AT6	033356 0      0   0   000000100000 0            607000100000 
FT1A	033356 0      0   0   000000100000 0            000000100000 
FT2	033356 0      0   0   0            0            000000100000 
FT2RQ	033356 0      0   0   100000033356 0            000000100000 
FT3	033356 0      0   0   100000033356 0            000000100000 
FT9	033357 0      0   0   100000033356 0            000000100000 
ET0	033357 0      0   0   033356100000 0            000000100000 
ET1	033357 0      0   0   033356100000 0            000000100000 
ET2	033360 0      0   0   100000033356 0            000000100000 
ST1A	033360 0      0   0   100000033356 0            000000100000 
ST9	033360 0      0   0   100000033356 0            000000100000 


*033360 JUMPA	0,033361
INITIAL
C(AC)=100000 033356 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033360 033360 0   0   324000033361 0            000000033361 
IT1	033360 0      0   0   324000033361 0            000000033361 
AT3	033360 0      0   0   000000033361 0            324000033361 
AT6	033360 033361 0   0   000000033361 0            324000033361 
FT1A	033360 033361 0   0   000000033361 0            000000033361 
FT2	033360 033361 0   0   0            0            000000033361 
FT2RQ	033360 033361 0   0   100000033356 0            000000033361 
FT3	033360 033361 0   0   100000033356 0            000000033361 
FT9	033361 033361 0   0   100000033356 0            000000033361 
ET0	033361 033361 0   0   100000033356 0            000000033361 
ST1A	033361 033361 0   0   100000033356 0            000000033361 
ST9	033361 033361 0   0   100000033356 0            000000033361 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 455
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0650

*033361 SETZ 	0,000000
INITIAL
C(AC)=100000 033356 
C(E)=100000 033356 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033361 033361 0   0   400000000000 0            0            
IT1	033361 0      0   0   400000000000 0            0            
AT3	033361 0      0   0   0            0            400000000000 
AT6	033361 0      0   0   0            0            400000000000 
FT1A	033361 0      0   0   0            0            0            
FT9	033362 0      0   0   0            0            0            
ET0	033362 0      0   0   0            0            0            
ST1	033362 0      0   0   0            0            0            
ST2	033362 0      0   0   0            0            0            
ST9	033362 0      0   0   0            0            0            


*033362 MOVSI	1,040000
INITIAL
C(AC)=100000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033362 033362 0   0   205040040000 0            000000040000 
IT1	033362 0      0   0   205040040000 0            000000040000 
AT3	033362 0      0   0   000000040000 0            205040040000 
AT6	033362 0      0   0   000000040000 0            205040040000 
FT1A	033362 0      0   0   000000040000 0            000000040000 
FT9	033363 0      0   0   000000040000 0            000000040000 
ET0	033363 0      0   0   040000000000 0            000000040000 
ST1	033363 0      0   0   040000000000 0            000000040000 
ST2	033363 0      0   0   040000000000 0            000000040000 
ST9	033363 0      0   0   040000000000 0            000000040000 


*033363 JFCL	17,033364
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033363 033363 0   0   255740033364 0            000000033364 
IT1	033363 0      0   0   255740033364 0            000000033364 
AT3	033363 0      0   0   000000033364 0            255740033364 
AT6	033363 033364 0   0   000000033364 0            255740033364 
FT1A	033363 033364 0   0   000000033364 0            000000033364 
FT9	033364 033364 0   0   000000033364 0            000000033364 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 456
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0651

ET0	033364 033364 0   0   000000033364 0            000000033364 
ST1A	033364 033364 0   0   000000033364 0            000000033364 
ST9	033364 033364 0   0   000000033364 0            000000033364 


*033364 JRST	2,033365(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033366 
FINAL

C(E)=265000 033366 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033364 033364 0   0   254101033365 0            040000033365 
IT1	033364 0      0   0   254101033365 0            040000033365 
AT1	033364 0      0   0   0            0            254101033365 
AT2	033364 0      0   0   040000000000 0            254101033365 
AT3	033364 0      0   0   000000033365 0            040000033365 
AT6	033364 033365 0   0   000000033365 0            040000033365 
FT1A	033364 033365 0   0   000000033365 0            040000033365 
FT9	033365 033365 0   0   000000033365 0            040000033365 
ET0	033365 033365 0   0   000000033365 0            040000033365 
ST1A	033365 033365 0   0   000000033365 0            040000033365 
ST9	033365 033365 0   0   000000033365 0            040000033365 


*033365 JSP	0,033366
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=040000 033366 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033365 033365 0   0   265000033366 0            000000033366 
IT1	033365 0      0   0   265000033366 0            000000033366 
AT3	033365 0      0   0   000000033366 0            265000033366 
AT6	033365 033366 0   0   000000033366 0            265000033366 
FT1A	033365 033366 0   0   000000033366 0            000000033366 
FT9	033366 033366 0   0   000000033366 0            000000033366 
ET0	033366 033366 0   0   040000033366 0            000000033366 
ST1	033366 033366 0   0   040000033366 0            000000033366 
ST2	033366 033366 0   0   040000033366 0            000000033366 
ST9	033366 033366 0   0   040000033366 0            000000033366 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 457
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0652

*033366 TLNN	0,040000
INITIAL
C(AC)=040000 033366 
FINAL
C(AC)=040000 033366 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033366 033366 0   0   607000040000 0            000000040000 
IT1	033366 0      0   0   607000040000 0            000000040000 
AT3	033366 0      0   0   000000040000 0            607000040000 
AT6	033366 0      0   0   000000040000 0            607000040000 
FT1A	033366 0      0   0   000000040000 0            000000040000 
FT2	033366 0      0   0   0            0            000000040000 
FT2RQ	033366 0      0   0   040000033366 0            000000040000 
FT3	033366 0      0   0   040000033366 0            000000040000 
FT9	033367 0      0   0   040000033366 0            000000040000 
ET0	033367 0      0   0   033366040000 0            000000040000 
ET1	033367 0      0   0   033366040000 0            000000040000 
ET2	033370 0      0   0   040000033366 0            000000040000 
ST1A	033370 0      0   0   040000033366 0            000000040000 
ST9	033370 0      0   0   040000033366 0            000000040000 


*033370 JUMPA	0,033371
INITIAL
C(AC)=040000 033366 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033370 033370 0   0   324000033371 0            000000033371 
IT1	033370 0      0   0   324000033371 0            000000033371 
AT3	033370 0      0   0   000000033371 0            324000033371 
AT6	033370 033371 0   0   000000033371 0            324000033371 
FT1A	033370 033371 0   0   000000033371 0            000000033371 
FT2	033370 033371 0   0   0            0            000000033371 
FT2RQ	033370 033371 0   0   040000033366 0            000000033371 
FT3	033370 033371 0   0   040000033366 0            000000033371 
FT9	033371 033371 0   0   040000033366 0            000000033371 
ET0	033371 033371 0   0   040000033366 0            000000033371 
ST1A	033371 033371 0   0   040000033366 0            000000033371 
ST9	033371 033371 0   0   040000033366 0            000000033371 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 458
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0653

*033371 MOVSI	1,000000
INITIAL
C(AC)=040000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033371 033371 0   0   205040000000 0            0            
IT1	033371 0      0   0   205040000000 0            0            
AT3	033371 0      0   0   0            0            205040000000 
AT6	033371 0      0   0   0            0            205040000000 
FT1A	033371 0      0   0   0            0            0            
FT9	033372 0      0   0   0            0            0            
ET0	033372 0      0   0   0            0            0            
ST1	033372 0      0   0   0            0            0            
ST2	033372 0      0   0   0            0            0            
ST9	033372 0      0   0   0            0            0            


*033372 JFCL	17,033373
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033372 033372 0   0   255740033373 0            000000033373 
IT1	033372 0      0   0   255740033373 0            000000033373 
AT3	033372 0      0   0   000000033373 0            255740033373 
AT6	033372 033373 0   0   000000033373 0            255740033373 
FT1A	033372 033373 0   0   000000033373 0            000000033373 
FT9	033373 033373 0   0   000000033373 0            000000033373 
ET0	033373 033373 0   0   000000033373 0            000000033373 
ST1A	033373 033373 0   0   000000033373 0            000000033373 
ST9	033373 033373 0   0   000000033373 0            000000033373 


*033373 JRST	2,033374(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033375 
FINAL

C(E)=265000 033375 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033373 033373 0   0   254101033374 0            000000033374 
IT1	033373 0      0   0   254101033374 0            000000033374 
AT1	033373 0      0   0   0            0            254101033374 
AT2	033373 0      0   0   0            0            254101033374 
AT3	033373 0      0   0   000000033374 0            000000033374 
AT6	033373 033374 0   0   000000033374 0            000000033374 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 459
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0654

FT1A	033373 033374 0   0   000000033374 0            000000033374 
FT9	033374 033374 0   0   000000033374 0            000000033374 
ET0	033374 033374 0   0   000000033374 0            000000033374 
ST1A	033374 033374 0   0   000000033374 0            000000033374 
ST9	033374 033374 0   0   000000033374 0            000000033374 


*033374 JSP	0,033375
INITIAL
C(AC)=040000 033366 
FINAL
C(AC)=000000 033375 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033374 033374 0   0   265000033375 0            000000033375 
IT1	033374 0      0   0   265000033375 0            000000033375 
AT3	033374 0      0   0   000000033375 0            265000033375 
AT6	033374 033375 0   0   000000033375 0            265000033375 
FT1A	033374 033375 0   0   000000033375 0            000000033375 
FT9	033375 033375 0   0   000000033375 0            000000033375 
ET0	033375 033375 0   0   000000033375 0            000000033375 
ST1	033375 033375 0   0   000000033375 0            000000033375 
ST2	033375 033375 0   0   000000033375 0            000000033375 
ST9	033375 033375 0   0   000000033375 0            000000033375 


*033375 TLNE	0,761777
INITIAL
C(AC)=000000 033375 
FINAL
C(AC)=000000 033375 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033375 033375 0   0   603000761777 0            0            
IT1	033375 0      0   0   603000761777 0            0            
AT3	033375 0      0   0   000000761777 0            603000761777 
AT6	033375 761777 0   0   000000761777 0            603000761777 
FT1A	033375 761777 0   0   000000761777 0            000000761777 
FT2	033375 761777 0   0   0            0            000000761777 
FT2RQ	033375 761777 0   0   000000033375 0            000000761777 
FT3	033375 761777 0   0   000000033375 0            000000761777 
FT9	033376 761777 0   0   000000033375 0            000000761777 
ET0	033376 761777 0   0   033375000000 0            000000761777 
ET1	033376 761777 0   0   033375000000 0            0            
ET2	033377 761777 0   0   000000033375 0            0            
ST1A	033377 761777 0   0   000000033375 0            0            
ST9	033377 761777 0   0   000000033375 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 460
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0655

*033377 JUMPA	0,033400
INITIAL
C(AC)=000000 033375 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033377 033377 0   0   324000033400 0            000000033400 
IT1	033377 0      0   0   324000033400 0            000000033400 
AT3	033377 0      0   0   000000033400 0            324000033400 
AT6	033377 0      0   0   000000033400 0            324000033400 
FT1A	033377 0      0   0   000000033400 0            000000033400 
FT2	033377 0      0   0   0            0            000000033400 
FT2RQ	033377 0      0   0   000000033375 0            000000033400 
FT3	033377 0      0   0   000000033375 0            000000033400 
FT9	0      0      0   0   000000033375 0            000000033400 
ET0	0      0      0   0   000000033375 0            000000033400 
ST1A	0      0      0   0   000000033375 0            000000033400 
ST9	0      0      0   0   000000033375 0            000000033400 


*033400 JSP	0,033402
INITIAL
C(AC)=000000 033375 
FINAL
C(AC)=000000 033401 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   265000033402 0            000000033402 
IT1	0      0      0   0   265000033402 0            000000033402 
AT3	0      0      0   0   000000033402 0            265000033402 
AT6	0      033402 0   0   000000033402 0            265000033402 
FT1A	0      033402 0   0   000000033402 0            000000033402 
FT9	033401 033402 0   0   000000033402 0            000000033402 
ET0	033402 033402 0   0   000000033401 0            000000033402 
ST1	033402 033402 0   0   000000033401 0            000000033402 
ST2	033402 033402 0   0   000000033401 0            000000033402 
ST9	033402 033402 0   0   000000033401 0            000000033402 


*033402 JUMPA	0,033403
INITIAL
C(AC)=000000 033401 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033402 033402 0   0   324000033403 0            000000033403 
IT1	033402 0      0   0   324000033403 0            000000033403 
AT3	033402 0      0   0   000000033403 0            324000033403 
AT6	033402 033403 0   0   000000033403 0            324000033403 
FT1A	033402 033403 0   0   000000033403 0            000000033403 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 461
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0656

FT2	033402 033403 0   0   0            0            000000033403 
FT2RQ	033402 033403 0   0   000000033401 0            000000033403 
FT3	033402 033403 0   0   000000033401 0            000000033403 
FT9	033403 033403 0   0   000000033401 0            000000033403 
ET0	033403 033403 0   0   000000033401 0            000000033403 
ST1A	033403 033403 0   0   000000033401 0            000000033403 
ST9	033403 033403 0   0   000000033401 0            000000033403 


*033403 JRST	0,033405
INITIAL
C(AC)=000000 033401 
C(E)=324000 033406 
FINAL

C(E)=324000 033406 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033403 033403 0   0   254000033405 0            254000033405 
IT1	033403 0      0   0   254000033405 0            254000033405 
AT3	033403 0      0   0   000000033405 0            254000033405 
AT6	033403 033405 0   0   000000033405 0            254000033405 
FT1A	033403 033405 0   0   000000033405 0            254000033405 
FT9	033404 033405 0   0   000000033405 0            254000033405 
ET0	033405 033404 0   0   000000033405 0            254000033405 
ST1A	033405 033404 0   0   000000033405 0            254000033405 
ST9	033405 033404 0   0   000000033405 0            254000033405 


*033405 JUMPA	0,033406
INITIAL
C(AC)=000000 033401 
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   000000033401 0            000000033406 
FT3	033405 033406 0   0   000000033401 0            000000033406 
FT9	033406 033406 0   0   000000033401 0            000000033406 
ET0	033406 033406 0   0   000000033401 0            000000033406 
ST1A	033406 033406 0   0   000000033401 0            000000033406 
ST9	033406 033406 0   0   000000033401 0            000000033406 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 462
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0657

*033406 SETZ 	0,000000
INITIAL
C(AC)=000000 033401 
C(E)=000000 033401 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033406 033406 0   0   400000000000 0            0            
IT1	033406 0      0   0   400000000000 0            0            
AT3	033406 0      0   0   0            0            400000000000 
AT6	033406 0      0   0   0            0            400000000000 
FT1A	033406 0      0   0   0            0            0            
FT9	033407 0      0   0   0            0            0            
ET0	033407 0      0   0   0            0            0            
ST1	033407 0      0   0   0            0            0            
ST2	033407 0      0   0   0            0            0            
ST9	033407 0      0   0   0            0            0            


*033407 AOBJN	0,033410
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033407 033407 0   0   253000033410 0            000000033410 
IT1	033407 0      0   0   253000033410 0            000000033410 
AT3	033407 0      0   0   000000033410 0            253000033410 
AT6	033407 033410 0   0   000000033410 0            253000033410 
FT1A	033407 033410 0   0   000000033410 0            000000033410 
FT2	033407 033410 0   0   0            0            000000033410 
FT2RQ	033407 033410 0   0   0            0            000000033410 
FT3	033407 033410 0   0   0            0            000000033410 
FT9	033410 033410 0   0   0            0            000000033410 
ET0	033410 033410 0   0   000001000001 0            000000033410 
ST1	033410 033410 0   0   000001000001 0            000000033410 
ST2	033410 033410 0   0   000001000001 0            000000033410 
ST9	033410 033410 0   0   000001000001 0            000000033410 


*033410 CAME	0,034442
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033410 033410 0   0   312000034442 0            000001000001 
IT1	033410 0      0   0   312000034442 0            000001000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 463
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0658

AT3	033410 0      0   0   000000034442 0            312000034442 
AT6	033410 034442 0   0   000000034442 0            312000034442 
FT0	033410 034442 0   0   000001000001 0            312000034442 
FT1A	033410 034442 0   0   000001000001 0            000001000001 
FT2	033410 034442 0   0   0            0            000001000001 
FT2RQ	033410 034442 0   0   000001000001 0            000001000001 
FT3	033410 034442 0   0   000001000001 0            000001000001 
FT9	033411 034442 0   0   000001000001 0            000001000001 
ET0	033412 034442 0   0   0            0            000001000001 
ST1A	033412 034442 0   0   0            0            000001000001 
ST9	033412 034442 0   0   0            0            000001000001 


*033412 JUMPA	0,033413
INITIAL
C(AC)=000001 000001 
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   000001000001 0            000000033413 
FT3	033412 033413 0   0   000001000001 0            000000033413 
FT9	033413 033413 0   0   000001000001 0            000000033413 
ET0	033413 033413 0   0   000001000001 0            000000033413 
ST1A	033413 033413 0   0   000001000001 0            000000033413 
ST9	033413 033413 0   0   000001000001 0            000000033413 


*033413 MOVE 	0,034540
INITIAL
C(AC)=000001 000001 
C(E)=377777 377777 
FINAL
C(AC)=377777 377777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033413 033413 0   0   200000034540 0            377777377777 
IT1	033413 0      0   0   200000034540 0            377777377777 
AT3	033413 0      0   0   000000034540 0            200000034540 
AT6	033413 034540 0   0   000000034540 0            200000034540 
FT0	033413 034540 0   0   377777377777 0            200000034540 
FT1A	033413 034540 0   0   377777377777 0            377777377777 
FT9	033414 034540 0   0   377777377777 0            377777377777 
ET0	033414 034540 0   0   377777377777 0            377777377777 
ST1	033414 034540 0   0   377777377777 0            377777377777 
ST2	033414 034540 0   0   377777377777 0            377777377777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 464
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0659

ST9	033414 034540 0   0   377777377777 0            377777377777 


*033414 AOBJP	0,033415
INITIAL
C(AC)=377777 377777 
FINAL
C(AC)=400000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033414 033414 0   0   252000033415 0            000000033415 
IT1	033414 0      0   0   252000033415 0            000000033415 
AT3	033414 0      0   0   000000033415 0            252000033415 
AT6	033414 033415 0   0   000000033415 0            252000033415 
FT1A	033414 033415 0   0   000000033415 0            000000033415 
FT2	033414 033415 0   0   0            0            000000033415 
FT2RQ	033414 033415 0   0   377777377777 0            000000033415 
FT3	033414 033415 0   0   377777377777 0            000000033415 
FT9	033415 033415 0   0   377777377777 0            000000033415 
ET0	033415 033415 0   0   400000400000 0            000000033415 
ST1	033415 033415 0   0   400000400000 0            000000033415 
ST2	033415 033415 0   0   400000400000 0            000000033415 
ST9	033415 033415 0   0   400000400000 0            000000033415 


*033415 CAME	0,034541
INITIAL
C(AC)=400000 400000 
C(E)=400000 400000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033415 033415 0   0   312000034541 0            400000400000 
IT1	033415 0      0   0   312000034541 0            400000400000 
AT3	033415 0      0   0   000000034541 0            312000034541 
AT6	033415 034541 0   0   000000034541 0            312000034541 
FT0	033415 034541 0   0   400000400000 0            312000034541 
FT1A	033415 034541 0   0   400000400000 0            400000400000 
FT2	033415 034541 0   0   0            0            400000400000 
FT2RQ	033415 034541 0   0   400000400000 0            400000400000 
FT3	033415 034541 0   0   400000400000 0            400000400000 
FT9	033416 034541 0   0   400000400000 0            400000400000 
ET0	033417 034541 0   0   0            0            400000400000 
ST1A	033417 034541 0   0   0            0            400000400000 
ST9	033417 034541 0   0   0            0            400000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 465
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0660

*033417 JUMPA	0,033420
INITIAL
C(AC)=400000 400000 
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   400000400000 0            000000033420 
FT3	033417 033420 0   0   400000400000 0            000000033420 
FT9	033420 033420 0   0   400000400000 0            000000033420 
ET0	033420 033420 0   0   400000400000 0            000000033420 
ST1A	033420 033420 0   0   400000400000 0            000000033420 
ST9	033420 033420 0   0   400000400000 0            000000033420 


*033420 SETZ 	0,000000
INITIAL
C(AC)=400000 400000 
C(E)=400000 400000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033420 033420 0   0   400000000000 0            0            
IT1	033420 0      0   0   400000000000 0            0            
AT3	033420 0      0   0   0            0            400000000000 
AT6	033420 0      0   0   0            0            400000000000 
FT1A	033420 0      0   0   0            0            0            
FT9	033421 0      0   0   0            0            0            
ET0	033421 0      0   0   0            0            0            
ST1	033421 0      0   0   0            0            0            
ST2	033421 0      0   0   0            0            0            
ST9	033421 0      0   0   0            0            0            


*033421 AOBJN	0,033423
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033421 033421 0   0   253000033423 0            000000033423 
IT1	033421 0      0   0   253000033423 0            000000033423 
AT3	033421 0      0   0   000000033423 0            253000033423 
AT6	033421 033423 0   0   000000033423 0            253000033423 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 466
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0661

FT1A	033421 033423 0   0   000000033423 0            000000033423 
FT2	033421 033423 0   0   0            0            000000033423 
FT2RQ	033421 033423 0   0   0            0            000000033423 
FT3	033421 033423 0   0   0            0            000000033423 
FT9	033422 033423 0   0   0            0            000000033423 
ET0	033422 033423 0   0   000001000001 0            000000033423 
ST1	033422 033423 0   0   000001000001 0            000000033423 
ST2	033422 033423 0   0   000001000001 0            000000033423 
ST9	033422 033423 0   0   000001000001 0            000000033423 


*033422 SKIPA	0,000000
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033422 033422 0   0   334000000000 0            000001000001 
IT1	033422 0      0   0   334000000000 0            000001000001 
AT3	033422 0      0   0   0            0            334000000000 
AT6	033422 0      0   0   0            0            334000000000 
FT0	033422 0      0   0   000001000001 0            334000000000 
FT1A	033422 0      0   0   000001000001 0            000001000001 
FT9	033423 0      0   0   000001000001 0            000001000001 
ET0	033424 0      0   0   000001000001 0            000001000001 
ST1A	033424 0      0   0   000001000001 0            000001000001 
ST9	033424 0      0   0   000001000001 0            000001000001 


*033424 JUMPA	0,033425
INITIAL
C(AC)=000001 000001 
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   000001000001 0            000000033425 
FT3	033424 033425 0   0   000001000001 0            000000033425 
FT9	033425 033425 0   0   000001000001 0            000000033425 
ET0	033425 033425 0   0   000001000001 0            000000033425 
ST1A	033425 033425 0   0   000001000001 0            000000033425 
ST9	033425 033425 0   0   000001000001 0            000000033425 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 467
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0662

*033425 SETZ 	0,000000
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033425 033425 0   0   400000000000 0            0            
IT1	033425 0      0   0   400000000000 0            0            
AT3	033425 0      0   0   0            0            400000000000 
AT6	033425 0      0   0   0            0            400000000000 
FT1A	033425 0      0   0   0            0            0            
FT9	033426 0      0   0   0            0            0            
ET0	033426 0      0   0   0            0            0            
ST1	033426 0      0   0   0            0            0            
ST2	033426 0      0   0   0            0            0            
ST9	033426 0      0   0   0            0            0            


*033426 AOBJP	0,033430
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033426 033426 0   0   252000033430 0            000000033430 
IT1	033426 0      0   0   252000033430 0            000000033430 
AT3	033426 0      0   0   000000033430 0            252000033430 
AT6	033426 033430 0   0   000000033430 0            252000033430 
FT1A	033426 033430 0   0   000000033430 0            000000033430 
FT2	033426 033430 0   0   0            0            000000033430 
FT2RQ	033426 033430 0   0   0            0            000000033430 
FT3	033426 033430 0   0   0            0            000000033430 
FT9	033427 033430 0   0   0            0            000000033430 
ET0	033430 033430 0   0   000001000001 0            000000033430 
ST1	033430 033430 0   0   000001000001 0            000000033430 
ST2	033430 033430 0   0   000001000001 0            000000033430 
ST9	033430 033430 0   0   000001000001 0            000000033430 


*033430 JUMPA	0,033431
INITIAL
C(AC)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033430 033430 0   0   324000033431 0            000000033431 
IT1	033430 0      0   0   324000033431 0            000000033431 
AT3	033430 0      0   0   000000033431 0            324000033431 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 468
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0663

AT6	033430 033431 0   0   000000033431 0            324000033431 
FT1A	033430 033431 0   0   000000033431 0            000000033431 
FT2	033430 033431 0   0   0            0            000000033431 
FT2RQ	033430 033431 0   0   000001000001 0            000000033431 
FT3	033430 033431 0   0   000001000001 0            000000033431 
FT9	033431 033431 0   0   000001000001 0            000000033431 
ET0	033431 033431 0   0   000001000001 0            000000033431 
ST1A	033431 033431 0   0   000001000001 0            000000033431 
ST9	033431 033431 0   0   000001000001 0            000000033431 


*033431 MOVE 	0,034541
INITIAL
C(AC)=000001 000001 
C(E)=400000 400000 
FINAL
C(AC)=400000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033431 033431 0   0   200000034541 0            400000400000 
IT1	033431 0      0   0   200000034541 0            400000400000 
AT3	033431 0      0   0   000000034541 0            200000034541 
AT6	033431 034541 0   0   000000034541 0            200000034541 
FT0	033431 034541 0   0   400000400000 0            200000034541 
FT1A	033431 034541 0   0   400000400000 0            400000400000 
FT9	033432 034541 0   0   400000400000 0            400000400000 
ET0	033432 034541 0   0   400000400000 0            400000400000 
ST1	033432 034541 0   0   400000400000 0            400000400000 
ST2	033432 034541 0   0   400000400000 0            400000400000 
ST9	033432 034541 0   0   400000400000 0            400000400000 


*033432 AOBJN	0,033434
INITIAL
C(AC)=400000 400000 
FINAL
C(AC)=400001 400001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033432 033432 0   0   253000033434 0            000000033434 
IT1	033432 0      0   0   253000033434 0            000000033434 
AT3	033432 0      0   0   000000033434 0            253000033434 
AT6	033432 033434 0   0   000000033434 0            253000033434 
FT1A	033432 033434 0   0   000000033434 0            000000033434 
FT2	033432 033434 0   0   0            0            000000033434 
FT2RQ	033432 033434 0   0   400000400000 0            000000033434 
FT3	033432 033434 0   0   400000400000 0            000000033434 
FT9	033433 033434 0   0   400000400000 0            000000033434 
ET0	033434 033434 0   0   400001400001 0            000000033434 
ST1	033434 033434 0   0   400001400001 0            000000033434 
ST2	033434 033434 0   0   400001400001 0            000000033434 
ST9	033434 033434 0   0   400001400001 0            000000033434 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 469
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0664



*033434 JUMPA	0,033435
INITIAL
C(AC)=400001 400001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033434 033434 0   0   324000033435 0            000000033435 
IT1	033434 0      0   0   324000033435 0            000000033435 
AT3	033434 0      0   0   000000033435 0            324000033435 
AT6	033434 033435 0   0   000000033435 0            324000033435 
FT1A	033434 033435 0   0   000000033435 0            000000033435 
FT2	033434 033435 0   0   0            0            000000033435 
FT2RQ	033434 033435 0   0   400001400001 0            000000033435 
FT3	033434 033435 0   0   400001400001 0            000000033435 
FT9	033435 033435 0   0   400001400001 0            000000033435 
ET0	033435 033435 0   0   400001400001 0            000000033435 
ST1A	033435 033435 0   0   400001400001 0            000000033435 
ST9	033435 033435 0   0   400001400001 0            000000033435 


*033435 MOVE 	0,034541
INITIAL
C(AC)=400001 400001 
C(E)=400000 400000 
FINAL
C(AC)=400000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033435 033435 0   0   200000034541 0            400000400000 
IT1	033435 0      0   0   200000034541 0            400000400000 
AT3	033435 0      0   0   000000034541 0            200000034541 
AT6	033435 034541 0   0   000000034541 0            200000034541 
FT0	033435 034541 0   0   400000400000 0            200000034541 
FT1A	033435 034541 0   0   400000400000 0            400000400000 
FT9	033436 034541 0   0   400000400000 0            400000400000 
ET0	033436 034541 0   0   400000400000 0            400000400000 
ST1	033436 034541 0   0   400000400000 0            400000400000 
ST2	033436 034541 0   0   400000400000 0            400000400000 
ST9	033436 034541 0   0   400000400000 0            400000400000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 470
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0665

*033436 AOBJP	0,033440
INITIAL
C(AC)=400000 400000 
FINAL
C(AC)=400001 400001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033436 033436 0   0   252000033440 0            000000033440 
IT1	033436 0      0   0   252000033440 0            000000033440 
AT3	033436 0      0   0   000000033440 0            252000033440 
AT6	033436 033440 0   0   000000033440 0            252000033440 
FT1A	033436 033440 0   0   000000033440 0            000000033440 
FT2	033436 033440 0   0   0            0            000000033440 
FT2RQ	033436 033440 0   0   400000400000 0            000000033440 
FT3	033436 033440 0   0   400000400000 0            000000033440 
FT9	033437 033440 0   0   400000400000 0            000000033440 
ET0	033437 033440 0   0   400001400001 0            000000033440 
ST1	033437 033440 0   0   400001400001 0            000000033440 
ST2	033437 033440 0   0   400001400001 0            000000033440 
ST9	033437 033440 0   0   400001400001 0            000000033440 


*033437 SKIPA	0,000000
INITIAL
C(AC)=400001 400001 
C(E)=400001 400001 
FINAL
C(AC)=400001 400001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033437 033437 0   0   334000000000 0            400001400001 
IT1	033437 0      0   0   334000000000 0            400001400001 
AT3	033437 0      0   0   0            0            334000000000 
AT6	033437 0      0   0   0            0            334000000000 
FT0	033437 0      0   0   400001400001 0            334000000000 
FT1A	033437 0      0   0   400001400001 0            400001400001 
FT9	033440 0      0   0   400001400001 0            400001400001 
ET0	033441 0      0   0   400001400001 0            400001400001 
ST1A	033441 0      0   0   400001400001 0            400001400001 
ST9	033441 0      0   0   400001400001 0            400001400001 


*033441 JUMPA	0,033442
INITIAL
C(AC)=400001 400001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033441 033441 0   0   324000033442 0            000000033442 
IT1	033441 0      0   0   324000033442 0            000000033442 
AT3	033441 0      0   0   000000033442 0            324000033442 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 471
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0666

AT6	033441 033442 0   0   000000033442 0            324000033442 
FT1A	033441 033442 0   0   000000033442 0            000000033442 
FT2	033441 033442 0   0   0            0            000000033442 
FT2RQ	033441 033442 0   0   400001400001 0            000000033442 
FT3	033441 033442 0   0   400001400001 0            000000033442 
FT9	033442 033442 0   0   400001400001 0            000000033442 
ET0	033442 033442 0   0   400001400001 0            000000033442 
ST1A	033442 033442 0   0   400001400001 0            000000033442 
ST9	033442 033442 0   0   400001400001 0            000000033442 


*033442 SETO 	0,000000
INITIAL
C(AC)=400001 400001 
C(E)=400001 400001 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033442 033442 0   0   474000000000 0            0            
IT1	033442 0      0   0   474000000000 0            0            
AT3	033442 0      0   0   0            0            474000000000 
AT6	033442 0      0   0   0            0            474000000000 
FT1A	033442 0      0   0   0            0            0            
FT9	033443 0      0   0   0            0            0            
ET0	033443 0      0   0   777777777777 0            0            
ST1	033443 0      0   0   777777777777 0            0            
ST2	033443 0      0   0   777777777777 0            0            
ST9	033443 0      0   0   777777777777 0            0            


*033443 AOBJN	0,033444
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033443 033443 0   0   253000033444 0            000000033444 
IT1	033443 0      0   0   253000033444 0            000000033444 
AT3	033443 0      0   0   000000033444 0            253000033444 
AT6	033443 033444 0   0   000000033444 0            253000033444 
FT1A	033443 033444 0   0   000000033444 0            000000033444 
FT2	033443 033444 0   0   0            0            000000033444 
FT2RQ	033443 033444 0   0   777777777777 0            000000033444 
FT3	033443 033444 0   0   777777777777 0            000000033444 
FT9	033444 033444 0   0   777777777777 0            000000033444 
ET0	033444 033444 0   0   000001000000 0            000000033444 
ST1	033444 033444 0   0   000001000000 0            000000033444 
ST2	033444 033444 0   0   000001000000 0            000000033444 
ST9	033444 033444 0   0   000001000000 0            000000033444 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 472
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0667


*033444 CAME	0,034444
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033444 033444 0   0   312000034444 0            000001000000 
IT1	033444 0      0   0   312000034444 0            000001000000 
AT3	033444 0      0   0   000000034444 0            312000034444 
AT6	033444 034444 0   0   000000034444 0            312000034444 
FT0	033444 034444 0   0   000001000000 0            312000034444 
FT1A	033444 034444 0   0   000001000000 0            000001000000 
FT2	033444 034444 0   0   0            0            000001000000 
FT2RQ	033444 034444 0   0   000001000000 0            000001000000 
FT3	033444 034444 0   0   000001000000 0            000001000000 
FT9	033445 034444 0   0   000001000000 0            000001000000 
ET0	033446 034444 0   0   0            0            000001000000 
ST1A	033446 034444 0   0   0            0            000001000000 
ST9	033446 034444 0   0   0            0            000001000000 


*033446 JUMPA	0,033447
INITIAL
C(AC)=000001 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033446 033446 0   0   324000033447 0            000000033447 
IT1	033446 0      0   0   324000033447 0            000000033447 
AT3	033446 0      0   0   000000033447 0            324000033447 
AT6	033446 033447 0   0   000000033447 0            324000033447 
FT1A	033446 033447 0   0   000000033447 0            000000033447 
FT2	033446 033447 0   0   0            0            000000033447 
FT2RQ	033446 033447 0   0   000001000000 0            000000033447 
FT3	033446 033447 0   0   000001000000 0            000000033447 
FT9	033447 033447 0   0   000001000000 0            000000033447 
ET0	033447 033447 0   0   000001000000 0            000000033447 
ST1A	033447 033447 0   0   000001000000 0            000000033447 
ST9	033447 033447 0   0   000001000000 0            000000033447 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 473
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0668

*033447 JFCL	17,033450
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033447 033447 0   0   255740033450 0            000000033450 
IT1	033447 0      0   0   255740033450 0            000000033450 
AT3	033447 0      0   0   000000033450 0            255740033450 
AT6	033447 033450 0   0   000000033450 0            255740033450 
FT1A	033447 033450 0   0   000000033450 0            000000033450 
FT9	033450 033450 0   0   000000033450 0            000000033450 
ET0	033450 033450 0   0   000000033450 0            000000033450 
ST1A	033450 033450 0   0   000000033450 0            000000033450 
ST9	033450 033450 0   0   000000033450 0            000000033450 


*033450 MOVNI	0,000000
INITIAL
C(AC)=000001 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033450 033450 0   0   211000000000 0            0            
IT1	033450 0      0   0   211000000000 0            0            
AT3	033450 0      0   0   0            0            211000000000 
AT6	033450 0      0   0   0            0            211000000000 
FT1A	033450 0      0   0   0            0            0            
FT9	033451 0      0   0   0            0            0            
ET0	033451 0      0   0   0            0            0            
ST1	033451 0      0   0   0            0            0            
ST2	033451 0      0   0   0            0            0            
ST9	033451 0      0   0   0            0            0            


*033451 JFCL	4,033453
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033451 033451 0   0   255200033453 0            000000033453 
IT1	033451 0      0   0   255200033453 0            000000033453 
AT3	033451 0      0   0   000000033453 0            255200033453 
AT6	033451 033453 0   0   000000033453 0            255200033453 
FT1A	033451 033453 0   0   000000033453 0            000000033453 
FT9	033452 033453 0   0   000000033453 0            000000033453 
ET0	033453 033453 0   0   000000033453 0            000000033453 
ST1A	033453 033453 0   0   000000033453 0            000000033453 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 474
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0669

ST9	033453 033453 0   0   000000033453 0            000000033453 


*033453 JUMPA	0,033454
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033453 033453 0   0   324000033454 0            000000033454 
IT1	033453 0      0   0   324000033454 0            000000033454 
AT3	033453 0      0   0   000000033454 0            324000033454 
AT6	033453 033454 0   0   000000033454 0            324000033454 
FT1A	033453 033454 0   0   000000033454 0            000000033454 
FT2	033453 033454 0   0   0            0            000000033454 
FT2RQ	033453 033454 0   0   0            0            000000033454 
FT3	033453 033454 0   0   0            0            000000033454 
FT9	033454 033454 0   0   0            0            000000033454 
ET0	033454 033454 0   0   0            0            000000033454 
ST1A	033454 033454 0   0   0            0            000000033454 
ST9	033454 033454 0   0   0            0            000000033454 


*033454 JFCL	2,033456
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033454 033454 0   0   255100033456 0            000000033456 
IT1	033454 0      0   0   255100033456 0            000000033456 
AT3	033454 0      0   0   000000033456 0            255100033456 
AT6	033454 033456 0   0   000000033456 0            255100033456 
FT1A	033454 033456 0   0   000000033456 0            000000033456 
FT9	033455 033456 0   0   000000033456 0            000000033456 
ET0	033456 033456 0   0   000000033456 0            000000033456 
ST1A	033456 033456 0   0   000000033456 0            000000033456 
ST9	033456 033456 0   0   000000033456 0            000000033456 


*033456 JUMPA	0,033457
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033456 033456 0   0   324000033457 0            000000033457 
IT1	033456 0      0   0   324000033457 0            000000033457 
AT3	033456 0      0   0   000000033457 0            324000033457 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 475
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0670

AT6	033456 033457 0   0   000000033457 0            324000033457 
FT1A	033456 033457 0   0   000000033457 0            000000033457 
FT2	033456 033457 0   0   0            0            000000033457 
FT2RQ	033456 033457 0   0   0            0            000000033457 
FT3	033456 033457 0   0   0            0            000000033457 
FT9	033457 033457 0   0   0            0            000000033457 
ET0	033457 033457 0   0   0            0            000000033457 
ST1A	033457 033457 0   0   0            0            000000033457 
ST9	033457 033457 0   0   0            0            000000033457 


*033457 JFCL	10,033461
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033457 033457 0   0   255400033461 0            000000033461 
IT1	033457 0      0   0   255400033461 0            000000033461 
AT3	033457 0      0   0   000000033461 0            255400033461 
AT6	033457 033461 0   0   000000033461 0            255400033461 
FT1A	033457 033461 0   0   000000033461 0            000000033461 
FT9	033460 033461 0   0   000000033461 0            000000033461 
ET0	033460 033461 0   0   000000033461 0            000000033461 
ST1A	033460 033461 0   0   000000033461 0            000000033461 
ST9	033460 033461 0   0   000000033461 0            000000033461 


*033460 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	033460 033460 0   0   334000000000 0            0            
IT1	033460 0      0   0   334000000000 0            0            
AT3	033460 0      0   0   0            0            334000000000 
AT6	033460 0      0   0   0            0            334000000000 
FT0	033460 0      0   0   0            0            334000000000 
FT1A	033460 0      0   0   0            0            0            
FT9	033461 0      0   0   0            0            0            
ET0	033462 0      0   0   0            0            0            
ST1A	033462 0      0   0   0            0            0            
ST9	033462 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 476
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0671

*033462 JUMPA	0,033463
INITIAL
C(AC)=000000 000000 
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   0            0            000000033463 
FT3	033462 033463 0   0   0            0            000000033463 
FT9	033463 033463 0   0   0            0            000000033463 
ET0	033463 033463 0   0   0            0            000000033463 
ST1A	033463 033463 0   0   0            0            000000033463 
ST9	033463 033463 0   0   0            0            000000033463 


*033463 JFCL	1,033465
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033463 033463 0   0   255040033465 0            000000033465 
IT1	033463 0      0   0   255040033465 0            000000033465 
AT3	033463 0      0   0   000000033465 0            255040033465 
AT6	033463 033465 0   0   000000033465 0            255040033465 
FT1A	033463 033465 0   0   000000033465 0            000000033465 
FT9	033464 033465 0   0   000000033465 0            000000033465 
ET0	033464 033465 0   0   000000033465 0            000000033465 
ST1A	033464 033465 0   0   000000033465 0            000000033465 
ST9	033464 033465 0   0   000000033465 0            000000033465 


*033464 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	033464 033464 0   0   334000000000 0            0            
IT1	033464 0      0   0   334000000000 0            0            
AT3	033464 0      0   0   0            0            334000000000 
AT6	033464 0      0   0   0            0            334000000000 
FT0	033464 0      0   0   0            0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 477
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0672

FT1A	033464 0      0   0   0            0            0            
FT9	033465 0      0   0   0            0            0            
ET0	033466 0      0   0   0            0            0            
ST1A	033466 0      0   0   0            0            0            
ST9	033466 0      0   0   0            0            0            


*033466 JUMPA	0,033467
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033466 033466 0   0   324000033467 0            000000033467 
IT1	033466 0      0   0   324000033467 0            000000033467 
AT3	033466 0      0   0   000000033467 0            324000033467 
AT6	033466 033467 0   0   000000033467 0            324000033467 
FT1A	033466 033467 0   0   000000033467 0            000000033467 
FT2	033466 033467 0   0   0            0            000000033467 
FT2RQ	033466 033467 0   0   0            0            000000033467 
FT3	033466 033467 0   0   0            0            000000033467 
FT9	033467 033467 0   0   0            0            000000033467 
ET0	033467 033467 0   0   0            0            000000033467 
ST1A	033467 033467 0   0   0            0            000000033467 
ST9	033467 033467 0   0   0            0            000000033467 


*033467 JFCL	17,033470
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033467 033467 0   0   255740033470 0            000000033470 
IT1	033467 0      0   0   255740033470 0            000000033470 
AT3	033467 0      0   0   000000033470 0            255740033470 
AT6	033467 033470 0   0   000000033470 0            255740033470 
FT1A	033467 033470 0   0   000000033470 0            000000033470 
FT9	033470 033470 0   0   000000033470 0            000000033470 
ET0	033470 033470 0   0   000000033470 0            000000033470 
ST1A	033470 033470 0   0   000000033470 0            000000033470 
ST9	033470 033470 0   0   000000033470 0            000000033470 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 478
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0673

*033470 MOVN 	0,034466
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033470 033470 0   0   210000034466 0            777777777777 
IT1	033470 0      0   0   210000034466 0            777777777777 
AT3	033470 0      0   0   000000034466 0            210000034466 
AT6	033470 034466 0   0   000000034466 0            210000034466 
FT0	033470 034466 0   0   777777777777 0            210000034466 
FT1A	033470 034466 0   0   777777777777 0            777777777777 
FT9	033471 034466 0   0   777777777777 0            777777777777 
ET0	033471 034466 0   0   000000000001 0            777777777777 
ST1	033471 034466 0   0   000000000001 0            777777777777 
ST2	033471 034466 0   0   000000000001 0            777777777777 
ST9	033471 034466 0   0   000000000001 0            777777777777 


*033471 JFCL	17,033473
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033471 033471 0   0   255740033473 0            000000033473 
IT1	033471 0      0   0   255740033473 0            000000033473 
AT3	033471 0      0   0   000000033473 0            255740033473 
AT6	033471 033473 0   0   000000033473 0            255740033473 
FT1A	033471 033473 0   0   000000033473 0            000000033473 
FT9	033472 033473 0   0   000000033473 0            000000033473 
ET0	033472 033473 0   0   000000033473 0            000000033473 
ST1A	033472 033473 0   0   000000033473 0            000000033473 
ST9	033472 033473 0   0   000000033473 0            000000033473 


*033472 SKIPA	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033472 033472 0   0   334000000000 0            000000000001 
IT1	033472 0      0   0   334000000000 0            000000000001 
AT3	033472 0      0   0   0            0            334000000000 
AT6	033472 0      0   0   0            0            334000000000 
FT0	033472 0      0   0   000000000001 0            334000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 479
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0674

FT1A	033472 0      0   0   000000000001 0            000000000001 
FT9	033473 0      0   0   000000000001 0            000000000001 
ET0	033474 0      0   0   000000000001 0            000000000001 
ST1A	033474 0      0   0   000000000001 0            000000000001 
ST9	033474 0      0   0   000000000001 0            000000000001 


*033474 JUMPA	0,033475
INITIAL
C(AC)=000000 000001 
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   000000000001 0            000000033475 
FT3	033474 033475 0   0   000000000001 0            000000033475 
FT9	033475 033475 0   0   000000000001 0            000000033475 
ET0	033475 033475 0   0   000000000001 0            000000033475 
ST1A	033475 033475 0   0   000000000001 0            000000033475 
ST9	033475 033475 0   0   000000000001 0            000000033475 


*033475 JFCL	17,033476
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033475 033475 0   0   255740033476 0            000000033476 
IT1	033475 0      0   0   255740033476 0            000000033476 
AT3	033475 0      0   0   000000033476 0            255740033476 
AT6	033475 033476 0   0   000000033476 0            255740033476 
FT1A	033475 033476 0   0   000000033476 0            000000033476 
FT9	033476 033476 0   0   000000033476 0            000000033476 
ET0	033476 033476 0   0   000000033476 0            000000033476 
ST1A	033476 033476 0   0   000000033476 0            000000033476 
ST9	033476 033476 0   0   000000033476 0            000000033476 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 480
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0675

*033476 MOVN 	0,034465
INITIAL
C(AC)=000000 000001 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033476 033476 0   0   210000034465 0            400000000000 
IT1	033476 0      0   0   210000034465 0            400000000000 
AT3	033476 0      0   0   000000034465 0            210000034465 
AT6	033476 034465 0   0   000000034465 0            210000034465 
FT0	033476 034465 0   0   400000000000 0            210000034465 
FT1A	033476 034465 0   0   400000000000 0            400000000000 
FT9	033477 034465 0   0   400000000000 0            400000000000 
ET0	033477 034465 0   0   400000000000 0            400000000000 
ST1	033477 034465 0   0   400000000000 0            400000000000 
ST2	033477 034465 0   0   400000000000 0            400000000000 
ST9	033477 034465 0   0   400000000000 0            400000000000 


*033477 JFCL	10,033501
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033477 033477 0   0   255400033501 0            000000033501 
IT1	033477 0      0   0   255400033501 0            000000033501 
AT3	033477 0      0   0   000000033501 0            255400033501 
AT6	033477 033501 0   0   000000033501 0            255400033501 
FT1A	033477 033501 0   0   000000033501 0            000000033501 
FT9	0      033501 0   0   000000033501 0            000000033501 
ET0	033501 033501 0   0   000000033501 0            000000033501 
ST1A	033501 033501 0   0   000000033501 0            000000033501 
ST9	033501 033501 0   0   000000033501 0            000000033501 


*033501 JUMPA	0,033502
INITIAL
C(AC)=400000 000000 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 481
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0676

FT2RQ	033501 033502 0   0   400000000000 0            000000033502 
FT3	033501 033502 0   0   400000000000 0            000000033502 
FT9	033502 033502 0   0   400000000000 0            000000033502 
ET0	033502 033502 0   0   400000000000 0            000000033502 
ST1A	033502 033502 0   0   400000000000 0            000000033502 
ST9	033502 033502 0   0   400000000000 0            000000033502 


*033502 JFCL	2,033504
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033502 033502 0   0   255100033504 0            000000033504 
IT1	033502 0      0   0   255100033504 0            000000033504 
AT3	033502 0      0   0   000000033504 0            255100033504 
AT6	033502 033504 0   0   000000033504 0            255100033504 
FT1A	033502 033504 0   0   000000033504 0            000000033504 
FT9	033503 033504 0   0   000000033504 0            000000033504 
ET0	033504 033504 0   0   000000033504 0            000000033504 
ST1A	033504 033504 0   0   000000033504 0            000000033504 
ST9	033504 033504 0   0   000000033504 0            000000033504 


*033504 JUMPA	0,033505
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033504 033504 0   0   324000033505 0            000000033505 
IT1	033504 0      0   0   324000033505 0            000000033505 
AT3	033504 0      0   0   000000033505 0            324000033505 
AT6	033504 033505 0   0   000000033505 0            324000033505 
FT1A	033504 033505 0   0   000000033505 0            000000033505 
FT2	033504 033505 0   0   0            0            000000033505 
FT2RQ	033504 033505 0   0   400000000000 0            000000033505 
FT3	033504 033505 0   0   400000000000 0            000000033505 
FT9	033505 033505 0   0   400000000000 0            000000033505 
ET0	033505 033505 0   0   400000000000 0            000000033505 
ST1A	033505 033505 0   0   400000000000 0            000000033505 
ST9	033505 033505 0   0   400000000000 0            000000033505 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 482
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0677

*033505 JFCL	4,033507
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033505 033505 0   0   255200033507 0            000000033507 
IT1	033505 0      0   0   255200033507 0            000000033507 
AT3	033505 0      0   0   000000033507 0            255200033507 
AT6	033505 033507 0   0   000000033507 0            255200033507 
FT1A	033505 033507 0   0   000000033507 0            000000033507 
FT9	033506 033507 0   0   000000033507 0            000000033507 
ET0	033506 033507 0   0   000000033507 0            000000033507 
ST1A	033506 033507 0   0   000000033507 0            000000033507 
ST9	033506 033507 0   0   000000033507 0            000000033507 


*033506 SKIPA	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033506 033506 0   0   334000000000 0            400000000000 
IT1	033506 0      0   0   334000000000 0            400000000000 
AT3	033506 0      0   0   0            0            334000000000 
AT6	033506 0      0   0   0            0            334000000000 
FT0	033506 0      0   0   400000000000 0            334000000000 
FT1A	033506 0      0   0   400000000000 0            400000000000 
FT9	033507 0      0   0   400000000000 0            400000000000 
ET0	033510 0      0   0   400000000000 0            400000000000 
ST1A	033510 0      0   0   400000000000 0            400000000000 
ST9	033510 0      0   0   400000000000 0            400000000000 


*033510 JUMPA	0,033511
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033510 033510 0   0   324000033511 0            000000033511 
IT1	033510 0      0   0   324000033511 0            000000033511 
AT3	033510 0      0   0   000000033511 0            324000033511 
AT6	033510 033511 0   0   000000033511 0            324000033511 
FT1A	033510 033511 0   0   000000033511 0            000000033511 
FT2	033510 033511 0   0   0            0            000000033511 
FT2RQ	033510 033511 0   0   400000000000 0            000000033511 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 483
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0678

FT3	033510 033511 0   0   400000000000 0            000000033511 
FT9	033511 033511 0   0   400000000000 0            000000033511 
ET0	033511 033511 0   0   400000000000 0            000000033511 
ST1A	033511 033511 0   0   400000000000 0            000000033511 
ST9	033511 033511 0   0   400000000000 0            000000033511 


*033511 JFCL	1,033513
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033511 033511 0   0   255040033513 0            000000033513 
IT1	033511 0      0   0   255040033513 0            000000033513 
AT3	033511 0      0   0   000000033513 0            255040033513 
AT6	033511 033513 0   0   000000033513 0            255040033513 
FT1A	033511 033513 0   0   000000033513 0            000000033513 
FT9	033512 033513 0   0   000000033513 0            000000033513 
ET0	033512 033513 0   0   000000033513 0            000000033513 
ST1A	033512 033513 0   0   000000033513 0            000000033513 
ST9	033512 033513 0   0   000000033513 0            000000033513 


*033512 SKIPA	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033512 033512 0   0   334000000000 0            400000000000 
IT1	033512 0      0   0   334000000000 0            400000000000 
AT3	033512 0      0   0   0            0            334000000000 
AT6	033512 0      0   0   0            0            334000000000 
FT0	033512 0      0   0   400000000000 0            334000000000 
FT1A	033512 0      0   0   400000000000 0            400000000000 
FT9	033513 0      0   0   400000000000 0            400000000000 
ET0	033514 0      0   0   400000000000 0            400000000000 
ST1A	033514 0      0   0   400000000000 0            400000000000 
ST9	033514 0      0   0   400000000000 0            400000000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 484
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0679

*033514 JUMPA	0,033515
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033514 033514 0   0   324000033515 0            000000033515 
IT1	033514 0      0   0   324000033515 0            000000033515 
AT3	033514 0      0   0   000000033515 0            324000033515 
AT6	033514 033515 0   0   000000033515 0            324000033515 
FT1A	033514 033515 0   0   000000033515 0            000000033515 
FT2	033514 033515 0   0   0            0            000000033515 
FT2RQ	033514 033515 0   0   400000000000 0            000000033515 
FT3	033514 033515 0   0   400000000000 0            000000033515 
FT9	033515 033515 0   0   400000000000 0            000000033515 
ET0	033515 033515 0   0   400000000000 0            000000033515 
ST1A	033515 033515 0   0   400000000000 0            000000033515 
ST9	033515 033515 0   0   400000000000 0            000000033515 


*033515 JFCL	17,033516
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033515 033515 0   0   255740033516 0            000000033516 
IT1	033515 0      0   0   255740033516 0            000000033516 
AT3	033515 0      0   0   000000033516 0            255740033516 
AT6	033515 033516 0   0   000000033516 0            255740033516 
FT1A	033515 033516 0   0   000000033516 0            000000033516 
FT9	033516 033516 0   0   000000033516 0            000000033516 
ET0	033516 033516 0   0   000000033516 0            000000033516 
ST1A	033516 033516 0   0   000000033516 0            000000033516 
ST9	033516 033516 0   0   000000033516 0            000000033516 


*033516 MOVM 	0,034465
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033516 033516 0   0   214000034465 0            400000000000 
IT1	033516 0      0   0   214000034465 0            400000000000 
AT3	033516 0      0   0   000000034465 0            214000034465 
AT6	033516 034465 0   0   000000034465 0            214000034465 
FT0	033516 034465 0   0   400000000000 0            214000034465 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 485
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0680

FT1A	033516 034465 0   0   400000000000 0            400000000000 
FT9	033517 034465 0   0   400000000000 0            400000000000 
ET0	033517 034465 0   0   400000000000 0            400000000000 
ST1	033517 034465 0   0   400000000000 0            400000000000 
ST2	033517 034465 0   0   400000000000 0            400000000000 
ST9	033517 034465 0   0   400000000000 0            400000000000 


*033517 JFCL	10,033521
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033517 033517 0   0   255400033521 0            000000033521 
IT1	033517 0      0   0   255400033521 0            000000033521 
AT3	033517 0      0   0   000000033521 0            255400033521 
AT6	033517 033521 0   0   000000033521 0            255400033521 
FT1A	033517 033521 0   0   000000033521 0            000000033521 
FT9	033520 033521 0   0   000000033521 0            000000033521 
ET0	033521 033521 0   0   000000033521 0            000000033521 
ST1A	033521 033521 0   0   000000033521 0            000000033521 
ST9	033521 033521 0   0   000000033521 0            000000033521 


*033521 JUMPA	0,033522
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033521 033521 0   0   324000033522 0            000000033522 
IT1	033521 0      0   0   324000033522 0            000000033522 
AT3	033521 0      0   0   000000033522 0            324000033522 
AT6	033521 033522 0   0   000000033522 0            324000033522 
FT1A	033521 033522 0   0   000000033522 0            000000033522 
FT2	033521 033522 0   0   0            0            000000033522 
FT2RQ	033521 033522 0   0   400000000000 0            000000033522 
FT3	033521 033522 0   0   400000000000 0            000000033522 
FT9	033522 033522 0   0   400000000000 0            000000033522 
ET0	033522 033522 0   0   400000000000 0            000000033522 
ST1A	033522 033522 0   0   400000000000 0            000000033522 
ST9	033522 033522 0   0   400000000000 0            000000033522 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 486
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0681

*033522 JFCL	2,033524
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033522 033522 0   0   255100033524 0            000000033524 
IT1	033522 0      0   0   255100033524 0            000000033524 
AT3	033522 0      0   0   000000033524 0            255100033524 
AT6	033522 033524 0   0   000000033524 0            255100033524 
FT1A	033522 033524 0   0   000000033524 0            000000033524 
FT9	033523 033524 0   0   000000033524 0            000000033524 
ET0	033524 033524 0   0   000000033524 0            000000033524 
ST1A	033524 033524 0   0   000000033524 0            000000033524 
ST9	033524 033524 0   0   000000033524 0            000000033524 


*033524 JUMPA	0,033525
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033524 033524 0   0   324000033525 0            000000033525 
IT1	033524 0      0   0   324000033525 0            000000033525 
AT3	033524 0      0   0   000000033525 0            324000033525 
AT6	033524 033525 0   0   000000033525 0            324000033525 
FT1A	033524 033525 0   0   000000033525 0            000000033525 
FT2	033524 033525 0   0   0            0            000000033525 
FT2RQ	033524 033525 0   0   400000000000 0            000000033525 
FT3	033524 033525 0   0   400000000000 0            000000033525 
FT9	033525 033525 0   0   400000000000 0            000000033525 
ET0	033525 033525 0   0   400000000000 0            000000033525 
ST1A	033525 033525 0   0   400000000000 0            000000033525 
ST9	033525 033525 0   0   400000000000 0            000000033525 


*033525 JFCL	4,033527
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033525 033525 0   0   255200033527 0            000000033527 
IT1	033525 0      0   0   255200033527 0            000000033527 
AT3	033525 0      0   0   000000033527 0            255200033527 
AT6	033525 033527 0   0   000000033527 0            255200033527 
FT1A	033525 033527 0   0   000000033527 0            000000033527 
FT9	033526 033527 0   0   000000033527 0            000000033527 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 487
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0682

ET0	033526 033527 0   0   000000033527 0            000000033527 
ST1A	033526 033527 0   0   000000033527 0            000000033527 
ST9	033526 033527 0   0   000000033527 0            000000033527 


*033526 SKIPA	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033526 033526 0   0   334000000000 0            400000000000 
IT1	033526 0      0   0   334000000000 0            400000000000 
AT3	033526 0      0   0   0            0            334000000000 
AT6	033526 0      0   0   0            0            334000000000 
FT0	033526 0      0   0   400000000000 0            334000000000 
FT1A	033526 0      0   0   400000000000 0            400000000000 
FT9	033527 0      0   0   400000000000 0            400000000000 
ET0	033530 0      0   0   400000000000 0            400000000000 
ST1A	033530 0      0   0   400000000000 0            400000000000 
ST9	033530 0      0   0   400000000000 0            400000000000 


*033530 JUMPA	0,033531
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033530 033530 0   0   324000033531 0            000000033531 
IT1	033530 0      0   0   324000033531 0            000000033531 
AT3	033530 0      0   0   000000033531 0            324000033531 
AT6	033530 033531 0   0   000000033531 0            324000033531 
FT1A	033530 033531 0   0   000000033531 0            000000033531 
FT2	033530 033531 0   0   0            0            000000033531 
FT2RQ	033530 033531 0   0   400000000000 0            000000033531 
FT3	033530 033531 0   0   400000000000 0            000000033531 
FT9	033531 033531 0   0   400000000000 0            000000033531 
ET0	033531 033531 0   0   400000000000 0            000000033531 
ST1A	033531 033531 0   0   400000000000 0            000000033531 
ST9	033531 033531 0   0   400000000000 0            000000033531 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 488
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0683

*033531 JFCL	1,033533
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033531 033531 0   0   255040033533 0            000000033533 
IT1	033531 0      0   0   255040033533 0            000000033533 
AT3	033531 0      0   0   000000033533 0            255040033533 
AT6	033531 033533 0   0   000000033533 0            255040033533 
FT1A	033531 033533 0   0   000000033533 0            000000033533 
FT9	033532 033533 0   0   000000033533 0            000000033533 
ET0	033532 033533 0   0   000000033533 0            000000033533 
ST1A	033532 033533 0   0   000000033533 0            000000033533 
ST9	033532 033533 0   0   000000033533 0            000000033533 


*033532 SKIPA	0,000000
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033532 033532 0   0   334000000000 0            400000000000 
IT1	033532 0      0   0   334000000000 0            400000000000 
AT3	033532 0      0   0   0            0            334000000000 
AT6	033532 0      0   0   0            0            334000000000 
FT0	033532 0      0   0   400000000000 0            334000000000 
FT1A	033532 0      0   0   400000000000 0            400000000000 
FT9	033533 0      0   0   400000000000 0            400000000000 
ET0	033534 0      0   0   400000000000 0            400000000000 
ST1A	033534 0      0   0   400000000000 0            400000000000 
ST9	033534 0      0   0   400000000000 0            400000000000 


*033534 JUMPA	0,033535
INITIAL
C(AC)=400000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033534 033534 0   0   324000033535 0            000000033535 
IT1	033534 0      0   0   324000033535 0            000000033535 
AT3	033534 0      0   0   000000033535 0            324000033535 
AT6	033534 033535 0   0   000000033535 0            324000033535 
FT1A	033534 033535 0   0   000000033535 0            000000033535 
FT2	033534 033535 0   0   0            0            000000033535 
FT2RQ	033534 033535 0   0   400000000000 0            000000033535 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 489
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0684

FT3	033534 033535 0   0   400000000000 0            000000033535 
FT9	033535 033535 0   0   400000000000 0            000000033535 
ET0	033535 033535 0   0   400000000000 0            000000033535 
ST1A	033535 033535 0   0   400000000000 0            000000033535 
ST9	033535 033535 0   0   400000000000 0            000000033535 


*033535 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	033535 033535 0   0   400000000000 0            0            
IT1	033535 0      0   0   400000000000 0            0            
AT3	033535 0      0   0   0            0            400000000000 
AT6	033535 0      0   0   0            0            400000000000 
FT1A	033535 0      0   0   0            0            0            
FT9	033536 0      0   0   0            0            0            
ET0	033536 0      0   0   0            0            0            
ST1	033536 0      0   0   0            0            0            
ST2	033536 0      0   0   0            0            0            
ST9	033536 0      0   0   0            0            0            


*033536 AOS 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033536 033536 0   0   350000000000 0            0            
IT1	033536 0      0   0   350000000000 0            0            
AT3	033536 0      0   0   0            0            350000000000 
AT6	033536 0      0   0   0            0            350000000000 
FT0	033536 0      0   0   0            0            350000000000 
FT1A	033536 0      0   0   0            0            0            
FT9	033537 0      0   0   0            0            0            
ET0	033537 0      0   0   000000000001 0            0            
ST5	033537 0      0   0   000000000001 0            0            
ST6A	033537 0      0   0   000000000001 0            0            
ST9	033537 0      0   0   000000000001 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 490
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0685

*033537 CAIE	0,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033537 033537 0   0   302000000001 0            000000000001 
IT1	033537 0      0   0   302000000001 0            000000000001 
AT3	033537 0      0   0   000000000001 0            302000000001 
AT6	033537 000001 0   0   000000000001 0            302000000001 
FT1A	033537 000001 0   0   000000000001 0            000000000001 
FT2	033537 000001 0   0   0            0            000000000001 
FT2RQ	033537 000001 0   0   000000000001 0            000000000001 
FT3	033537 000001 0   0   000000000001 0            000000000001 
FT9	033540 000001 0   0   000000000001 0            000000000001 
ET0	033541 000001 0   0   0            0            000000000001 
ST1A	033541 000001 0   0   0            0            000000000001 
ST9	033541 000001 0   0   0            0            000000000001 


*033541 JUMPA	0,033542
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033541 033541 0   0   324000033542 0            000000033542 
IT1	033541 0      0   0   324000033542 0            000000033542 
AT3	033541 0      0   0   000000033542 0            324000033542 
AT6	033541 033542 0   0   000000033542 0            324000033542 
FT1A	033541 033542 0   0   000000033542 0            000000033542 
FT2	033541 033542 0   0   0            0            000000033542 
FT2RQ	033541 033542 0   0   000000000001 0            000000033542 
FT3	033541 033542 0   0   000000000001 0            000000033542 
FT9	033542 033542 0   0   000000000001 0            000000033542 
ET0	033542 033542 0   0   000000000001 0            000000033542 
ST1A	033542 033542 0   0   000000000001 0            000000033542 
ST9	033542 033542 0   0   000000000001 0            000000033542 


*033542 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	033542 033542 0   0   474000000000 0            0            
IT1	033542 0      0   0   474000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 491
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0686

AT3	033542 0      0   0   0            0            474000000000 
AT6	033542 0      0   0   0            0            474000000000 
FT1A	033542 0      0   0   0            0            0            
FT9	033543 0      0   0   0            0            0            
ET0	033543 0      0   0   777777777777 0            0            
ST1	033543 0      0   0   777777777777 0            0            
ST2	033543 0      0   0   777777777777 0            0            
ST9	033543 0      0   0   777777777777 0            0            


*033543 AOS 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033543 033543 0   0   350000000000 0            777777777777 
IT1	033543 0      0   0   350000000000 0            777777777777 
AT3	033543 0      0   0   0            0            350000000000 
AT6	033543 0      0   0   0            0            350000000000 
FT0	033543 0      0   0   777777777777 0            350000000000 
FT1A	033543 0      0   0   777777777777 0            777777777777 
FT9	033544 0      0   0   777777777777 0            777777777777 
ET0	033544 0      0   0   0            0            777777777777 
ST5	033544 0      0   0   0            0            777777777777 
ST6A	033544 0      0   0   0            0            777777777777 
ST9	033544 0      0   0   0            0            777777777777 


*033544 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033544 033544 0   0   302000000000 0            0            
IT1	033544 0      0   0   302000000000 0            0            
AT3	033544 0      0   0   0            0            302000000000 
AT6	033544 0      0   0   0            0            302000000000 
FT1A	033544 0      0   0   0            0            0            
FT2	033544 0      0   0   0            0            0            
FT2RQ	033544 0      0   0   0            0            0            
FT3	033544 0      0   0   0            0            0            
FT9	033545 0      0   0   0            0            0            
ET0	033546 0      0   0   0            0            0            
ST1A	033546 0      0   0   0            0            0            
ST9	033546 0      0   0   0            0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 492
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0687


*033546 JUMPA	0,033547
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033546 033546 0   0   324000033547 0            000000033547 
IT1	033546 0      0   0   324000033547 0            000000033547 
AT3	033546 0      0   0   000000033547 0            324000033547 
AT6	033546 033547 0   0   000000033547 0            324000033547 
FT1A	033546 033547 0   0   000000033547 0            000000033547 
FT2	033546 033547 0   0   0            0            000000033547 
FT2RQ	033546 033547 0   0   0            0            000000033547 
FT3	033546 033547 0   0   0            0            000000033547 
FT9	033547 033547 0   0   0            0            000000033547 
ET0	033547 033547 0   0   0            0            000000033547 
ST1A	033547 033547 0   0   0            0            000000033547 
ST9	033547 033547 0   0   0            0            000000033547 


*033547 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	033547 033547 0   0   400000000000 0            0            
IT1	033547 0      0   0   400000000000 0            0            
AT3	033547 0      0   0   0            0            400000000000 
AT6	033547 0      0   0   0            0            400000000000 
FT1A	033547 0      0   0   0            0            0            
FT9	033550 0      0   0   0            0            0            
ET0	033550 0      0   0   0            0            0            
ST1	033550 0      0   0   0            0            0            
ST2	033550 0      0   0   0            0            0            
ST9	033550 0      0   0   0            0            0            


*033550 SOS 	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033550 033550 0   0   370000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 493
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0688

IT1	033550 0      0   0   370000000000 0            0            
AT3	033550 0      0   0   0            0            370000000000 
AT6	033550 0      0   0   0            0            370000000000 
FT0	033550 0      0   0   0            0            370000000000 
FT1A	033550 0      0   0   0            0            0            
FT9	033551 0      0   0   0            0            0            
ET0	033551 0      0   0   777777777777 0            0            
ST5	033551 0      0   0   777777777777 0            0            
ST6A	033551 0      0   0   777777777777 0            0            
ST9	033551 0      0   0   777777777777 0            0            


*033551 CAME	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033551 033551 0   0   312000034466 0            777777777777 
IT1	033551 0      0   0   312000034466 0            777777777777 
AT3	033551 0      0   0   000000034466 0            312000034466 
AT6	033551 034466 0   0   000000034466 0            312000034466 
FT0	033551 034466 0   0   777777777777 0            312000034466 
FT1A	033551 034466 0   0   777777777777 0            777777777777 
FT2	033551 034466 0   0   0            0            777777777777 
FT2RQ	033551 034466 0   0   777777777777 0            777777777777 
FT3	033551 034466 0   0   777777777777 0            777777777777 
FT9	033552 034466 0   0   777777777777 0            777777777777 
ET0	033553 034466 0   0   0            0            777777777777 
ST1A	033553 034466 0   0   0            0            777777777777 
ST9	033553 034466 0   0   0            0            777777777777 


*033553 JUMPA	0,033554
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033553 033553 0   0   324000033554 0            000000033554 
IT1	033553 0      0   0   324000033554 0            000000033554 
AT3	033553 0      0   0   000000033554 0            324000033554 
AT6	033553 033554 0   0   000000033554 0            324000033554 
FT1A	033553 033554 0   0   000000033554 0            000000033554 
FT2	033553 033554 0   0   0            0            000000033554 
FT2RQ	033553 033554 0   0   777777777777 0            000000033554 
FT3	033553 033554 0   0   777777777777 0            000000033554 
FT9	033554 033554 0   0   777777777777 0            000000033554 
ET0	033554 033554 0   0   777777777777 0            000000033554 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 494
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0689

ST1A	033554 033554 0   0   777777777777 0            000000033554 
ST9	033554 033554 0   0   777777777777 0            000000033554 


*033554 MOVEI	0,000001
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033554 033554 0   0   201000000001 0            000000000001 
IT1	033554 0      0   0   201000000001 0            000000000001 
AT3	033554 0      0   0   000000000001 0            201000000001 
AT6	033554 000001 0   0   000000000001 0            201000000001 
FT1A	033554 000001 0   0   000000000001 0            000000000001 
FT9	033555 000001 0   0   000000000001 0            000000000001 
ET0	033555 000001 0   0   000000000001 0            000000000001 
ST1	033555 000001 0   0   000000000001 0            000000000001 
ST2	033555 000001 0   0   000000000001 0            000000000001 
ST9	033555 000001 0   0   000000000001 0            000000000001 


*033555 SOS 	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033555 033555 0   0   370000000000 0            000000000001 
IT1	033555 0      0   0   370000000000 0            000000000001 
AT3	033555 0      0   0   0            0            370000000000 
AT6	033555 0      0   0   0            0            370000000000 
FT0	033555 0      0   0   000000000001 0            370000000000 
FT1A	033555 0      0   0   000000000001 0            000000000001 
FT9	033556 0      0   0   000000000001 0            000000000001 
ET0	033556 0      0   0   0            0            000000000001 
ST5	033556 0      0   0   0            0            000000000001 
ST6A	033556 0      0   0   0            0            000000000001 
ST9	033556 0      0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 495
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0690

*033556 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033556 033556 0   0   302000000000 0            0            
IT1	033556 0      0   0   302000000000 0            0            
AT3	033556 0      0   0   0            0            302000000000 
AT6	033556 0      0   0   0            0            302000000000 
FT1A	033556 0      0   0   0            0            0            
FT2	033556 0      0   0   0            0            0            
FT2RQ	033556 0      0   0   0            0            0            
FT3	033556 0      0   0   0            0            0            
FT9	033557 0      0   0   0            0            0            
ET0	033560 0      0   0   0            0            0            
ST1A	033560 0      0   0   0            0            0            
ST9	033560 0      0   0   0            0            0            


*033560 JUMPA	0,033561
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033560 033560 0   0   324000033561 0            000000033561 
IT1	033560 0      0   0   324000033561 0            000000033561 
AT3	033560 0      0   0   000000033561 0            324000033561 
AT6	033560 033561 0   0   000000033561 0            324000033561 
FT1A	033560 033561 0   0   000000033561 0            000000033561 
FT2	033560 033561 0   0   0            0            000000033561 
FT2RQ	033560 033561 0   0   0            0            000000033561 
FT3	033560 033561 0   0   0            0            000000033561 
FT9	033561 033561 0   0   0            0            000000033561 
ET0	033561 033561 0   0   0            0            000000033561 
ST1A	033561 033561 0   0   0            0            000000033561 
ST9	033561 033561 0   0   0            0            000000033561 


*033561 JFCL	17,033562
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033561 033561 0   0   255740033562 0            000000033562 
IT1	033561 0      0   0   255740033562 0            000000033562 
AT3	033561 0      0   0   000000033562 0            255740033562 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 496
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0691

AT6	033561 033562 0   0   000000033562 0            255740033562 
FT1A	033561 033562 0   0   000000033562 0            000000033562 
FT9	033562 033562 0   0   000000033562 0            000000033562 
ET0	033562 033562 0   0   000000033562 0            000000033562 
ST1A	033562 033562 0   0   000000033562 0            000000033562 
ST9	033562 033562 0   0   000000033562 0            000000033562 


*033562 MOVEI	0,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033562 033562 0   0   201000000001 0            000000000001 
IT1	033562 0      0   0   201000000001 0            000000000001 
AT3	033562 0      0   0   000000000001 0            201000000001 
AT6	033562 000001 0   0   000000000001 0            201000000001 
FT1A	033562 000001 0   0   000000000001 0            000000000001 
FT9	033563 000001 0   0   000000000001 0            000000000001 
ET0	033563 000001 0   0   000000000001 0            000000000001 
ST1	033563 000001 0   0   000000000001 0            000000000001 
ST2	033563 000001 0   0   000000000001 0            000000000001 
ST9	033563 000001 0   0   000000000001 0            000000000001 


*033563 SOS 	0,000000
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033563 033563 0   0   370000000000 0            000000000001 
IT1	033563 0      0   0   370000000000 0            000000000001 
AT3	033563 0      0   0   0            0            370000000000 
AT6	033563 0      0   0   0            0            370000000000 
FT0	033563 0      0   0   000000000001 0            370000000000 
FT1A	033563 0      0   0   000000000001 0            000000000001 
FT9	033564 0      0   0   000000000001 0            000000000001 
ET0	033564 0      0   0   0            0            000000000001 
ST5	033564 0      0   0   0            0            000000000001 
ST6A	033564 0      0   0   0            0            000000000001 
ST9	033564 0      0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 497
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0692

*033564 JFCL	4,033566
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033564 033564 0   0   255200033566 0            000000033566 
IT1	033564 0      0   0   255200033566 0            000000033566 
AT3	033564 0      0   0   000000033566 0            255200033566 
AT6	033564 033566 0   0   000000033566 0            255200033566 
FT1A	033564 033566 0   0   000000033566 0            000000033566 
FT9	033565 033566 0   0   000000033566 0            000000033566 
ET0	033566 033566 0   0   000000033566 0            000000033566 
ST1A	033566 033566 0   0   000000033566 0            000000033566 
ST9	033566 033566 0   0   000000033566 0            000000033566 


*033566 JUMPA	0,033567
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033566 033566 0   0   324000033567 0            000000033567 
IT1	033566 0      0   0   324000033567 0            000000033567 
AT3	033566 0      0   0   000000033567 0            324000033567 
AT6	033566 033567 0   0   000000033567 0            324000033567 
FT1A	033566 033567 0   0   000000033567 0            000000033567 
FT2	033566 033567 0   0   0            0            000000033567 
FT2RQ	033566 033567 0   0   0            0            000000033567 
FT3	033566 033567 0   0   0            0            000000033567 
FT9	033567 033567 0   0   0            0            000000033567 
ET0	033567 033567 0   0   0            0            000000033567 
ST1A	033567 033567 0   0   0            0            000000033567 
ST9	033567 033567 0   0   0            0            000000033567 


*033567 JFCL	2,033571
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033567 033567 0   0   255100033571 0            000000033571 
IT1	033567 0      0   0   255100033571 0            000000033571 
AT3	033567 0      0   0   000000033571 0            255100033571 
AT6	033567 033571 0   0   000000033571 0            255100033571 
FT1A	033567 033571 0   0   000000033571 0            000000033571 
FT9	033570 033571 0   0   000000033571 0            000000033571 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 498
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0693

ET0	033571 033571 0   0   000000033571 0            000000033571 
ST1A	033571 033571 0   0   000000033571 0            000000033571 
ST9	033571 033571 0   0   000000033571 0            000000033571 


*033571 JUMPA	0,033572
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033571 033571 0   0   324000033572 0            000000033572 
IT1	033571 0      0   0   324000033572 0            000000033572 
AT3	033571 0      0   0   000000033572 0            324000033572 
AT6	033571 033572 0   0   000000033572 0            324000033572 
FT1A	033571 033572 0   0   000000033572 0            000000033572 
FT2	033571 033572 0   0   0            0            000000033572 
FT2RQ	033571 033572 0   0   0            0            000000033572 
FT3	033571 033572 0   0   0            0            000000033572 
FT9	033572 033572 0   0   0            0            000000033572 
ET0	033572 033572 0   0   0            0            000000033572 
ST1A	033572 033572 0   0   0            0            000000033572 
ST9	033572 033572 0   0   0            0            000000033572 


*033572 JFCL	10,033574
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033572 033572 0   0   255400033574 0            000000033574 
IT1	033572 0      0   0   255400033574 0            000000033574 
AT3	033572 0      0   0   000000033574 0            255400033574 
AT6	033572 033574 0   0   000000033574 0            255400033574 
FT1A	033572 033574 0   0   000000033574 0            000000033574 
FT9	033573 033574 0   0   000000033574 0            000000033574 
ET0	033573 033574 0   0   000000033574 0            000000033574 
ST1A	033573 033574 0   0   000000033574 0            000000033574 
ST9	033573 033574 0   0   000000033574 0            000000033574 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 499
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0694

*033573 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	033573 033573 0   0   334000000000 0            0            
IT1	033573 0      0   0   334000000000 0            0            
AT3	033573 0      0   0   0            0            334000000000 
AT6	033573 0      0   0   0            0            334000000000 
FT0	033573 0      0   0   0            0            334000000000 
FT1A	033573 0      0   0   0            0            0            
FT9	033574 0      0   0   0            0            0            
ET0	033575 0      0   0   0            0            0            
ST1A	033575 0      0   0   0            0            0            
ST9	033575 0      0   0   0            0            0            


*033575 JUMPA	0,033576
INITIAL
C(AC)=000000 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   0            0            000000033576 
FT3	033575 033576 0   0   0            0            000000033576 
FT9	033576 033576 0   0   0            0            000000033576 
ET0	033576 033576 0   0   0            0            000000033576 
ST1A	033576 033576 0   0   0            0            000000033576 
ST9	033576 033576 0   0   0            0            000000033576 


*033576 JFCL	1,033600
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033576 033576 0   0   255040033600 0            000000033600 
IT1	033576 0      0   0   255040033600 0            000000033600 
AT3	033576 0      0   0   000000033600 0            255040033600 
AT6	033576 0      0   0   000000033600 0            255040033600 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 500
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0695

FT1A	033576 0      0   0   000000033600 0            000000033600 
FT9	033577 0      0   0   000000033600 0            000000033600 
ET0	033577 0      0   0   000000033600 0            000000033600 
ST1A	033577 0      0   0   000000033600 0            000000033600 
ST9	033577 0      0   0   000000033600 0            000000033600 


*033577 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	033577 033577 0   0   334000000000 0            0            
IT1	033577 0      0   0   334000000000 0            0            
AT3	033577 0      0   0   0            0            334000000000 
AT6	033577 0      0   0   0            0            334000000000 
FT0	033577 0      0   0   0            0            334000000000 
FT1A	033577 0      0   0   0            0            0            
FT9	0      0      0   0   0            0            0            
ET0	033601 0      0   0   0            0            0            
ST1A	033601 0      0   0   0            0            0            
ST9	033601 0      0   0   0            0            0            


*033601 JUMPA	0,033602
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033601 033601 0   0   324000033602 0            000000033602 
IT1	033601 0      0   0   324000033602 0            000000033602 
AT3	033601 0      0   0   000000033602 0            324000033602 
AT6	033601 033602 0   0   000000033602 0            324000033602 
FT1A	033601 033602 0   0   000000033602 0            000000033602 
FT2	033601 033602 0   0   0            0            000000033602 
FT2RQ	033601 033602 0   0   0            0            000000033602 
FT3	033601 033602 0   0   0            0            000000033602 
FT9	033602 033602 0   0   0            0            000000033602 
ET0	033602 033602 0   0   0            0            000000033602 
ST1A	033602 033602 0   0   0            0            000000033602 
ST9	033602 033602 0   0   0            0            000000033602 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 501
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0696

*033602 JFCL	17,033603
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033602 033602 0   0   255740033603 0            000000033603 
IT1	033602 0      0   0   255740033603 0            000000033603 
AT3	033602 0      0   0   000000033603 0            255740033603 
AT6	033602 033603 0   0   000000033603 0            255740033603 
FT1A	033602 033603 0   0   000000033603 0            000000033603 
FT9	033603 033603 0   0   000000033603 0            000000033603 
ET0	033603 033603 0   0   000000033603 0            000000033603 
ST1A	033603 033603 0   0   000000033603 0            000000033603 
ST9	033603 033603 0   0   000000033603 0            000000033603 


*033603 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	033603 033603 0   0   474000000000 0            0            
IT1	033603 0      0   0   474000000000 0            0            
AT3	033603 0      0   0   0            0            474000000000 
AT6	033603 0      0   0   0            0            474000000000 
FT1A	033603 0      0   0   0            0            0            
FT9	033604 0      0   0   0            0            0            
ET0	033604 0      0   0   777777777777 0            0            
ST1	033604 0      0   0   777777777777 0            0            
ST2	033604 0      0   0   777777777777 0            0            
ST9	033604 0      0   0   777777777777 0            0            


*033604 AOS 	0,000000
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033604 033604 0   0   350000000000 0            777777777777 
IT1	033604 0      0   0   350000000000 0            777777777777 
AT3	033604 0      0   0   0            0            350000000000 
AT6	033604 0      0   0   0            0            350000000000 
FT0	033604 0      0   0   777777777777 0            350000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 502
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0697

FT1A	033604 0      0   0   777777777777 0            777777777777 
FT9	033605 0      0   0   777777777777 0            777777777777 
ET0	033605 0      0   0   0            0            777777777777 
ST5	033605 0      0   0   0            0            777777777777 
ST6A	033605 0      0   0   0            0            777777777777 
ST9	033605 0      0   0   0            0            777777777777 


*033605 JFCL	4,033607
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033605 033605 0   0   255200033607 0            000000033607 
IT1	033605 0      0   0   255200033607 0            000000033607 
AT3	033605 0      0   0   000000033607 0            255200033607 
AT6	033605 033607 0   0   000000033607 0            255200033607 
FT1A	033605 033607 0   0   000000033607 0            000000033607 
FT9	033606 033607 0   0   000000033607 0            000000033607 
ET0	033607 033607 0   0   000000033607 0            000000033607 
ST1A	033607 033607 0   0   000000033607 0            000000033607 
ST9	033607 033607 0   0   000000033607 0            000000033607 


*033607 JUMPA	0,033610
INITIAL
C(AC)=000000 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   0            0            000000033610 
FT3	033607 033610 0   0   0            0            000000033610 
FT9	033610 033610 0   0   0            0            000000033610 
ET0	033610 033610 0   0   0            0            000000033610 
ST1A	033610 033610 0   0   0            0            000000033610 
ST9	033610 033610 0   0   0            0            000000033610 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 503
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0698

*033610 JFCL	2,033612
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033610 033610 0   0   255100033612 0            000000033612 
IT1	033610 0      0   0   255100033612 0            000000033612 
AT3	033610 0      0   0   000000033612 0            255100033612 
AT6	033610 033612 0   0   000000033612 0            255100033612 
FT1A	033610 033612 0   0   000000033612 0            000000033612 
FT9	033611 033612 0   0   000000033612 0            000000033612 
ET0	033612 033612 0   0   000000033612 0            000000033612 
ST1A	033612 033612 0   0   000000033612 0            000000033612 
ST9	033612 033612 0   0   000000033612 0            000000033612 


*033612 JUMPA	0,033613
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033612 033612 0   0   324000033613 0            000000033613 
IT1	033612 0      0   0   324000033613 0            000000033613 
AT3	033612 0      0   0   000000033613 0            324000033613 
AT6	033612 033613 0   0   000000033613 0            324000033613 
FT1A	033612 033613 0   0   000000033613 0            000000033613 
FT2	033612 033613 0   0   0            0            000000033613 
FT2RQ	033612 033613 0   0   0            0            000000033613 
FT3	033612 033613 0   0   0            0            000000033613 
FT9	033613 033613 0   0   0            0            000000033613 
ET0	033613 033613 0   0   0            0            000000033613 
ST1A	033613 033613 0   0   0            0            000000033613 
ST9	033613 033613 0   0   0            0            000000033613 


*033613 JFCL	10,033615
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033613 033613 0   0   255400033615 0            000000033615 
IT1	033613 0      0   0   255400033615 0            000000033615 
AT3	033613 0      0   0   000000033615 0            255400033615 
AT6	033613 033615 0   0   000000033615 0            255400033615 
FT1A	033613 033615 0   0   000000033615 0            000000033615 
FT9	033614 033615 0   0   000000033615 0            000000033615 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 504
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0699

ET0	033614 033615 0   0   000000033615 0            000000033615 
ST1A	033614 033615 0   0   000000033615 0            000000033615 
ST9	033614 033615 0   0   000000033615 0            000000033615 


*033614 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	033614 033614 0   0   334000000000 0            0            
IT1	033614 0      0   0   334000000000 0            0            
AT3	033614 0      0   0   0            0            334000000000 
AT6	033614 0      0   0   0            0            334000000000 
FT0	033614 0      0   0   0            0            334000000000 
FT1A	033614 0      0   0   0            0            0            
FT9	033615 0      0   0   0            0            0            
ET0	033616 0      0   0   0            0            0            
ST1A	033616 0      0   0   0            0            0            
ST9	033616 0      0   0   0            0            0            


*033616 JUMPA	0,033617
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033616 033616 0   0   324000033617 0            000000033617 
IT1	033616 0      0   0   324000033617 0            000000033617 
AT3	033616 0      0   0   000000033617 0            324000033617 
AT6	033616 033617 0   0   000000033617 0            324000033617 
FT1A	033616 033617 0   0   000000033617 0            000000033617 
FT2	033616 033617 0   0   0            0            000000033617 
FT2RQ	033616 033617 0   0   0            0            000000033617 
FT3	033616 033617 0   0   0            0            000000033617 
FT9	033617 033617 0   0   0            0            000000033617 
ET0	033617 033617 0   0   0            0            000000033617 
ST1A	033617 033617 0   0   0            0            000000033617 
ST9	033617 033617 0   0   0            0            000000033617 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 505
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0700

*033617 JFCL	1,033621
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033617 033617 0   0   255040033621 0            000000033621 
IT1	033617 0      0   0   255040033621 0            000000033621 
AT3	033617 0      0   0   000000033621 0            255040033621 
AT6	033617 033621 0   0   000000033621 0            255040033621 
FT1A	033617 033621 0   0   000000033621 0            000000033621 
FT9	033620 033621 0   0   000000033621 0            000000033621 
ET0	033620 033621 0   0   000000033621 0            000000033621 
ST1A	033620 033621 0   0   000000033621 0            000000033621 
ST9	033620 033621 0   0   000000033621 0            000000033621 


*033620 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	033620 033620 0   0   334000000000 0            0            
IT1	033620 0      0   0   334000000000 0            0            
AT3	033620 0      0   0   0            0            334000000000 
AT6	033620 0      0   0   0            0            334000000000 
FT0	033620 0      0   0   0            0            334000000000 
FT1A	033620 0      0   0   0            0            0            
FT9	033621 0      0   0   0            0            0            
ET0	033622 0      0   0   0            0            0            
ST1A	033622 0      0   0   0            0            0            
ST9	033622 0      0   0   0            0            0            


*033622 JUMPA	0,033623
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033622 033622 0   0   324000033623 0            000000033623 
IT1	033622 0      0   0   324000033623 0            000000033623 
AT3	033622 0      0   0   000000033623 0            324000033623 
AT6	033622 033623 0   0   000000033623 0            324000033623 
FT1A	033622 033623 0   0   000000033623 0            000000033623 
FT2	033622 033623 0   0   0            0            000000033623 
FT2RQ	033622 033623 0   0   0            0            000000033623 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 506
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0701

FT3	033622 033623 0   0   0            0            000000033623 
FT9	033623 033623 0   0   0            0            000000033623 
ET0	033623 033623 0   0   0            0            000000033623 
ST1A	033623 033623 0   0   0            0            000000033623 
ST9	033623 033623 0   0   0            0            000000033623 


*033623 MOVSI	1,040000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033623 033623 0   0   205040040000 0            000000040000 
IT1	033623 0      0   0   205040040000 0            000000040000 
AT3	033623 0      0   0   000000040000 0            205040040000 
AT6	033623 0      0   0   000000040000 0            205040040000 
FT1A	033623 0      0   0   000000040000 0            000000040000 
FT9	033624 0      0   0   000000040000 0            000000040000 
ET0	033624 0      0   0   040000000000 0            000000040000 
ST1	033624 0      0   0   040000000000 0            000000040000 
ST2	033624 0      0   0   040000000000 0            000000040000 
ST9	033624 0      0   0   040000000000 0            000000040000 


*033624 JFCL	17,033625
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033624 033624 0   0   255740033625 0            000000033625 
IT1	033624 0      0   0   255740033625 0            000000033625 
AT3	033624 0      0   0   000000033625 0            255740033625 
AT6	033624 033625 0   0   000000033625 0            255740033625 
FT1A	033624 033625 0   0   000000033625 0            000000033625 
FT9	033625 033625 0   0   000000033625 0            000000033625 
ET0	033625 033625 0   0   000000033625 0            000000033625 
ST1A	033625 033625 0   0   000000033625 0            000000033625 
ST9	033625 033625 0   0   000000033625 0            000000033625 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 507
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0702

*033625 JRST	2,033626(1)
INITIAL
C(AC)=000000 000002 
C(E)=255040 033627 
FINAL

C(E)=255040 033627 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033625 033625 0   0   254101033626 0            040000033626 
IT1	033625 0      0   0   254101033626 0            040000033626 
AT1	033625 0      0   0   0            0            254101033626 
AT2	033625 0      0   0   040000000000 0            254101033626 
AT3	033625 0      0   0   000000033626 0            040000033626 
AT6	033625 033626 0   0   000000033626 0            040000033626 
FT1A	033625 033626 0   0   000000033626 0            040000033626 
FT9	033626 033626 0   0   000000033626 0            040000033626 
ET0	033626 033626 0   0   000000033626 0            040000033626 
ST1A	033626 033626 0   0   000000033626 0            040000033626 
ST9	033626 033626 0   0   000000033626 0            040000033626 


*033626 JFCL	1,033627
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033626 033626 0   0   255040033627 0            000000033627 
IT1	033626 0      0   0   255040033627 0            000000033627 
AT3	033626 0      0   0   000000033627 0            255040033627 
AT6	033626 033627 0   0   000000033627 0            255040033627 
FT1A	033626 033627 0   0   000000033627 0            000000033627 
FT9	033627 033627 0   0   000000033627 0            000000033627 
ET0	033627 033627 0   0   000000033627 0            000000033627 
ST1A	033627 033627 0   0   000000033627 0            000000033627 
ST9	033627 033627 0   0   000000033627 0            000000033627 


*033627 JFCL	1,033631
INITIAL
C(AC)=040000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033627 033627 0   0   255040033631 0            000000033631 
IT1	033627 0      0   0   255040033631 0            000000033631 
AT3	033627 0      0   0   000000033631 0            255040033631 
AT6	033627 033631 0   0   000000033631 0            255040033631 
FT1A	033627 033631 0   0   000000033631 0            000000033631 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 508
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0703

FT9	033630 033631 0   0   000000033631 0            000000033631 
ET0	033630 033631 0   0   000000033631 0            000000033631 
ST1A	033630 033631 0   0   000000033631 0            000000033631 
ST9	033630 033631 0   0   000000033631 0            000000033631 


*033630 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	033630 033630 0   0   334000000000 0            0            
IT1	033630 0      0   0   334000000000 0            0            
AT3	033630 0      0   0   0            0            334000000000 
AT6	033630 0      0   0   0            0            334000000000 
FT0	033630 0      0   0   0            0            334000000000 
FT1A	033630 0      0   0   0            0            0            
FT9	033631 0      0   0   0            0            0            
ET0	033632 0      0   0   0            0            0            
ST1A	033632 0      0   0   0            0            0            
ST9	033632 0      0   0   0            0            0            


*033632 JUMPA	0,033633
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033632 033632 0   0   324000033633 0            000000033633 
IT1	033632 0      0   0   324000033633 0            000000033633 
AT3	033632 0      0   0   000000033633 0            324000033633 
AT6	033632 033633 0   0   000000033633 0            324000033633 
FT1A	033632 033633 0   0   000000033633 0            000000033633 
FT2	033632 033633 0   0   0            0            000000033633 
FT2RQ	033632 033633 0   0   0            0            000000033633 
FT3	033632 033633 0   0   0            0            000000033633 
FT9	033633 033633 0   0   0            0            000000033633 
ET0	033633 033633 0   0   0            0            000000033633 
ST1A	033633 033633 0   0   0            0            000000033633 
ST9	033633 033633 0   0   0            0            000000033633 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 509
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0704

*033633 MOVSI	1,000100
INITIAL
C(AC)=040000 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033633 033633 0   0   205040000100 0            000000000100 
IT1	033633 0      0   0   205040000100 0            000000000100 
AT3	033633 0      0   0   000000000100 0            205040000100 
AT6	033633 0      0   0   000000000100 0            205040000100 
FT1A	033633 0      0   0   000000000100 0            000000000100 
FT9	033634 0      0   0   000000000100 0            000000000100 
ET0	033634 0      0   0   000100000000 0            000000000100 
ST1	033634 0      0   0   000100000000 0            000000000100 
ST2	033634 0      0   0   000100000000 0            000000000100 
ST9	033634 0      0   0   000100000000 0            000000000100 


*033634 JFCL	17,033635
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033634 033634 0   0   255740033635 0            000000033635 
IT1	033634 0      0   0   255740033635 0            000000033635 
AT3	033634 0      0   0   000000033635 0            255740033635 
AT6	033634 033635 0   0   000000033635 0            255740033635 
FT1A	033634 033635 0   0   000000033635 0            000000033635 
FT9	033635 033635 0   0   000000033635 0            000000033635 
ET0	033635 033635 0   0   000000033635 0            000000033635 
ST1A	033635 033635 0   0   000000033635 0            000000033635 
ST9	033635 033635 0   0   000000033635 0            000000033635 


*033635 JRST	2,033636(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033637 
FINAL

C(E)=265000 033637 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033635 033635 0   0   254101033636 0            000100033636 
IT1	033635 0      0   0   254101033636 0            000100033636 
AT1	033635 0      0   0   0            0            254101033636 
AT2	033635 0      0   0   000100000000 0            254101033636 
AT3	033635 0      0   0   000000033636 0            000100033636 
AT6	033635 033636 0   0   000000033636 0            000100033636 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 510
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0705

FT1A	033635 033636 0   0   000000033636 0            000100033636 
FT9	033636 033636 0   0   000000033636 0            000100033636 
ET0	033636 033636 0   0   000000033636 0            000100033636 
ST1A	033636 033636 0   0   000000033636 0            000100033636 
ST9	033636 033636 0   0   000000033636 0            000100033636 


*033636 JSP	0,033637
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000100 033637 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033636 033636 0   0   265000033637 0            000000033637 
IT1	033636 0      0   0   265000033637 0            000000033637 
AT3	033636 0      0   0   000000033637 0            265000033637 
AT6	033636 033637 0   0   000000033637 0            265000033637 
FT1A	033636 033637 0   0   000000033637 0            000000033637 
FT9	033637 033637 0   0   000000033637 0            000000033637 
ET0	033637 033637 0   0   000100033637 0            000000033637 
ST1	033637 033637 0   0   000100033637 0            000000033637 
ST2	033637 033637 0   0   000100033637 0            000000033637 
ST9	033637 033637 0   0   000100033637 0            000000033637 


*033637 TLNN	0,000100
INITIAL
C(AC)=000100 033637 
FINAL
C(AC)=000100 033637 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033637 033637 0   0   607000000100 0            000000000100 
IT1	033637 0      0   0   607000000100 0            000000000100 
AT3	033637 0      0   0   000000000100 0            607000000100 
AT6	033637 0      0   0   000000000100 0            607000000100 
FT1A	033637 0      0   0   000000000100 0            000000000100 
FT2	033637 0      0   0   0            0            000000000100 
FT2RQ	033637 0      0   0   000100033637 0            000000000100 
FT3	033637 0      0   0   000100033637 0            000000000100 
FT9	033640 0      0   0   000100033637 0            000000000100 
ET0	033640 0      0   0   033637000100 0            000000000100 
ET1	033640 0      0   0   033637000100 0            000000000100 
ET2	033641 0      0   0   000100033637 0            000000000100 
ST1A	033641 0      0   0   000100033637 0            000000000100 
ST9	033641 0      0   0   000100033637 0            000000000100 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 511
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0706

*033641 JUMPA	0,033642
INITIAL
C(AC)=000100 033637 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033641 033641 0   0   324000033642 0            000000033642 
IT1	033641 0      0   0   324000033642 0            000000033642 
AT3	033641 0      0   0   000000033642 0            324000033642 
AT6	033641 033642 0   0   000000033642 0            324000033642 
FT1A	033641 033642 0   0   000000033642 0            000000033642 
FT2	033641 033642 0   0   0            0            000000033642 
FT2RQ	033641 033642 0   0   000100033637 0            000000033642 
FT3	033641 033642 0   0   000100033637 0            000000033642 
FT9	033642 033642 0   0   000100033637 0            000000033642 
ET0	033642 033642 0   0   000100033637 0            000000033642 
ST1A	033642 033642 0   0   000100033637 0            000000033642 
ST9	033642 033642 0   0   000100033637 0            000000033642 


*033642 MOVSI	1,000100
INITIAL
C(AC)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033642 033642 0   0   205040000100 0            000000000100 
IT1	033642 0      0   0   205040000100 0            000000000100 
AT3	033642 0      0   0   000000000100 0            205040000100 
AT6	033642 0      0   0   000000000100 0            205040000100 
FT1A	033642 0      0   0   000000000100 0            000000000100 
FT9	033643 0      0   0   000000000100 0            000000000100 
ET0	033643 0      0   0   000100000000 0            000000000100 
ST1	033643 0      0   0   000100000000 0            000000000100 
ST2	033643 0      0   0   000100000000 0            000000000100 
ST9	033643 0      0   0   000100000000 0            000000000100 


*033643 JFCL	17,033644
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033643 033643 0   0   255740033644 0            000000033644 
IT1	033643 0      0   0   255740033644 0            000000033644 
AT3	033643 0      0   0   000000033644 0            255740033644 
AT6	033643 033644 0   0   000000033644 0            255740033644 
FT1A	033643 033644 0   0   000000033644 0            000000033644 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 512
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0707

FT9	033644 033644 0   0   000000033644 0            000000033644 
ET0	033644 033644 0   0   000000033644 0            000000033644 
ST1A	033644 033644 0   0   000000033644 0            000000033644 
ST9	033644 033644 0   0   000000033644 0            000000033644 


*033644 JRST	2,033645(1)
INITIAL
C(AC)=000000 000002 
C(E)=205040 000000 
FINAL

C(E)=205040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033644 033644 0   0   254101033645 0            000100033645 
IT1	033644 0      0   0   254101033645 0            000100033645 
AT1	033644 0      0   0   0            0            254101033645 
AT2	033644 0      0   0   000100000000 0            254101033645 
AT3	033644 0      0   0   000000033645 0            000100033645 
AT6	033644 033645 0   0   000000033645 0            000100033645 
FT1A	033644 033645 0   0   000000033645 0            000100033645 
FT9	033645 033645 0   0   000000033645 0            000100033645 
ET0	033645 033645 0   0   000000033645 0            000100033645 
ST1A	033645 033645 0   0   000000033645 0            000100033645 
ST9	033645 033645 0   0   000000033645 0            000100033645 


*033645 MOVSI	1,000000
INITIAL
C(AC)=000100 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033645 033645 0   0   205040000000 0            0            
IT1	033645 0      0   0   205040000000 0            0            
AT3	033645 0      0   0   0            0            205040000000 
AT6	033645 0      0   0   0            0            205040000000 
FT1A	033645 0      0   0   0            0            0            
FT9	033646 0      0   0   0            0            0            
ET0	033646 0      0   0   0            0            0            
ST1	033646 0      0   0   0            0            0            
ST2	033646 0      0   0   0            0            0            
ST9	033646 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 513
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0708

*033646 JFCL	17,033647
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033646 033646 0   0   255740033647 0            000000033647 
IT1	033646 0      0   0   255740033647 0            000000033647 
AT3	033646 0      0   0   000000033647 0            255740033647 
AT6	033646 033647 0   0   000000033647 0            255740033647 
FT1A	033646 033647 0   0   000000033647 0            000000033647 
FT9	033647 033647 0   0   000000033647 0            000000033647 
ET0	033647 033647 0   0   000000033647 0            000000033647 
ST1A	033647 033647 0   0   000000033647 0            000000033647 
ST9	033647 033647 0   0   000000033647 0            000000033647 


*033647 JRST	2,033650(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033651 
FINAL

C(E)=265000 033651 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033647 033647 0   0   254101033650 0            000000033650 
IT1	033647 0      0   0   254101033650 0            000000033650 
AT1	033647 0      0   0   0            0            254101033650 
AT2	033647 0      0   0   0            0            254101033650 
AT3	033647 0      0   0   000000033650 0            000000033650 
AT6	033647 033650 0   0   000000033650 0            000000033650 
FT1A	033647 033650 0   0   000000033650 0            000000033650 
FT9	033650 033650 0   0   000000033650 0            000000033650 
ET0	033650 033650 0   0   000000033650 0            000000033650 
ST1A	033650 033650 0   0   000000033650 0            000000033650 
ST9	033650 033650 0   0   000000033650 0            000000033650 


*033650 JSP	0,033651
INITIAL
C(AC)=000100 033637 
FINAL
C(AC)=000000 033651 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033650 033650 0   0   265000033651 0            000000033651 
IT1	033650 0      0   0   265000033651 0            000000033651 
AT3	033650 0      0   0   000000033651 0            265000033651 
AT6	033650 033651 0   0   000000033651 0            265000033651 
FT1A	033650 033651 0   0   000000033651 0            000000033651 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 514
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0709

FT9	033651 033651 0   0   000000033651 0            000000033651 
ET0	033651 033651 0   0   000000033651 0            000000033651 
ST1	033651 033651 0   0   000000033651 0            000000033651 
ST2	033651 033651 0   0   000000033651 0            000000033651 
ST9	033651 033651 0   0   000000033651 0            000000033651 


*033651 TLNE	0,000100
INITIAL
C(AC)=000000 033651 
FINAL
C(AC)=000000 033651 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033651 033651 0   0   603000000100 0            0            
IT1	033651 0      0   0   603000000100 0            0            
AT3	033651 0      0   0   000000000100 0            603000000100 
AT6	033651 0      0   0   000000000100 0            603000000100 
FT1A	033651 0      0   0   000000000100 0            000000000100 
FT2	033651 0      0   0   0            0            000000000100 
FT2RQ	033651 0      0   0   000000033651 0            000000000100 
FT3	033651 0      0   0   000000033651 0            000000000100 
FT9	033652 0      0   0   000000033651 0            000000000100 
ET0	033652 0      0   0   033651000000 0            000000000100 
ET1	033652 0      0   0   033651000000 0            0            
ET2	033653 0      0   0   000000033651 0            0            
ST1A	033653 0      0   0   000000033651 0            0            
ST9	033653 0      0   0   000000033651 0            0            


*033653 JUMPA	0,033654
INITIAL
C(AC)=000000 033651 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033653 033653 0   0   324000033654 0            000000033654 
IT1	033653 0      0   0   324000033654 0            000000033654 
AT3	033653 0      0   0   000000033654 0            324000033654 
AT6	033653 033654 0   0   000000033654 0            324000033654 
FT1A	033653 033654 0   0   000000033654 0            000000033654 
FT2	033653 033654 0   0   0            0            000000033654 
FT2RQ	033653 033654 0   0   000000033651 0            000000033654 
FT3	033653 033654 0   0   000000033651 0            000000033654 
FT9	033654 033654 0   0   000000033651 0            000000033654 
ET0	033654 033654 0   0   000000033651 0            000000033654 
ST1A	033654 033654 0   0   000000033651 0            000000033654 
ST9	033654 033654 0   0   000000033651 0            000000033654 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 515
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0710

*033654 MOVSI	1,000040
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033654 033654 0   0   205040000040 0            000000000040 
IT1	033654 0      0   0   205040000040 0            000000000040 
AT3	033654 0      0   0   000000000040 0            205040000040 
AT6	033654 000040 0   0   000000000040 0            205040000040 
FT1A	033654 000040 0   0   000000000040 0            000000000040 
FT9	033655 000040 0   0   000000000040 0            000000000040 
ET0	033655 000040 0   0   000040000000 0            000000000040 
ST1	033655 000040 0   0   000040000000 0            000000000040 
ST2	033655 000040 0   0   000040000000 0            000000000040 
ST9	033655 000040 0   0   000040000000 0            000000000040 


*033655 JFCL	17,033656
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033655 033655 0   0   255740033656 0            000000033656 
IT1	033655 0      0   0   255740033656 0            000000033656 
AT3	033655 0      0   0   000000033656 0            255740033656 
AT6	033655 033656 0   0   000000033656 0            255740033656 
FT1A	033655 033656 0   0   000000033656 0            000000033656 
FT9	033656 033656 0   0   000000033656 0            000000033656 
ET0	033656 033656 0   0   000000033656 0            000000033656 
ST1A	033656 033656 0   0   000000033656 0            000000033656 
ST9	033656 033656 0   0   000000033656 0            000000033656 


*033656 JRST	2,033657(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033660 
FINAL

C(E)=265000 033660 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033656 033656 0   0   254101033657 0            000040033657 
IT1	033656 0      0   0   254101033657 0            000040033657 
AT1	033656 0      0   0   0            0            254101033657 
AT2	033656 0      0   0   000040000000 0            254101033657 
AT3	033656 0      0   0   000000033657 0            000040033657 
AT6	033656 033657 0   0   000000033657 0            000040033657 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 516
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0711

FT1A	033656 033657 0   0   000000033657 0            000040033657 
FT9	033657 033657 0   0   000000033657 0            000040033657 
ET0	033657 033657 0   0   000000033657 0            000040033657 
ST1A	033657 033657 0   0   000000033657 0            000040033657 
ST9	033657 033657 0   0   000000033657 0            000040033657 


*033657 JSP	0,033660
INITIAL
C(AC)=000000 033651 
FINAL
C(AC)=000040 033660 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033657 033657 0   0   265000033660 0            000000033660 
IT1	033657 0      0   0   265000033660 0            000000033660 
AT3	033657 0      0   0   000000033660 0            265000033660 
AT6	033657 033660 0   0   000000033660 0            265000033660 
FT1A	033657 033660 0   0   000000033660 0            000000033660 
FT9	033660 033660 0   0   000000033660 0            000000033660 
ET0	033660 033660 0   0   000040033660 0            000000033660 
ST1	033660 033660 0   0   000040033660 0            000000033660 
ST2	033660 033660 0   0   000040033660 0            000000033660 
ST9	033660 033660 0   0   000040033660 0            000000033660 


*033660 TLNN	0,000040
INITIAL
C(AC)=000040 033660 
FINAL
C(AC)=000040 033660 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033660 033660 0   0   607000000040 0            000000000040 
IT1	033660 0      0   0   607000000040 0            000000000040 
AT3	033660 0      0   0   000000000040 0            607000000040 
AT6	033660 000040 0   0   000000000040 0            607000000040 
FT1A	033660 000040 0   0   000000000040 0            000000000040 
FT2	033660 000040 0   0   0            0            000000000040 
FT2RQ	033660 000040 0   0   000040033660 0            000000000040 
FT3	033660 000040 0   0   000040033660 0            000000000040 
FT9	033661 000040 0   0   000040033660 0            000000000040 
ET0	033661 000040 0   0   033660000040 0            000000000040 
ET1	033661 000040 0   0   033660000040 0            000000000040 
ET2	033662 000040 0   0   000040033660 0            000000000040 
ST1A	033662 000040 0   0   000040033660 0            000000000040 
ST9	033662 000040 0   0   000040033660 0            000000000040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 517
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0712

*033662 JUMPA	0,033663
INITIAL
C(AC)=000040 033660 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033662 033662 0   0   324000033663 0            000000033663 
IT1	033662 0      0   0   324000033663 0            000000033663 
AT3	033662 0      0   0   000000033663 0            324000033663 
AT6	033662 033663 0   0   000000033663 0            324000033663 
FT1A	033662 033663 0   0   000000033663 0            000000033663 
FT2	033662 033663 0   0   0            0            000000033663 
FT2RQ	033662 033663 0   0   000040033660 0            000000033663 
FT3	033662 033663 0   0   000040033660 0            000000033663 
FT9	033663 033663 0   0   000040033660 0            000000033663 
ET0	033663 033663 0   0   000040033660 0            000000033663 
ST1A	033663 033663 0   0   000040033660 0            000000033663 
ST9	033663 033663 0   0   000040033660 0            000000033663 


*033663 MOVSI	1,000040
INITIAL
C(AC)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033663 033663 0   0   205040000040 0            000000000040 
IT1	033663 0      0   0   205040000040 0            000000000040 
AT3	033663 0      0   0   000000000040 0            205040000040 
AT6	033663 000040 0   0   000000000040 0            205040000040 
FT1A	033663 000040 0   0   000000000040 0            000000000040 
FT9	033664 000040 0   0   000000000040 0            000000000040 
ET0	033664 000040 0   0   000040000000 0            000000000040 
ST1	033664 000040 0   0   000040000000 0            000000000040 
ST2	033664 000040 0   0   000040000000 0            000000000040 
ST9	033664 000040 0   0   000040000000 0            000000000040 


*033664 JFCL	17,033665
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033664 033664 0   0   255740033665 0            000000033665 
IT1	033664 0      0   0   255740033665 0            000000033665 
AT3	033664 0      0   0   000000033665 0            255740033665 
AT6	033664 033665 0   0   000000033665 0            255740033665 
FT1A	033664 033665 0   0   000000033665 0            000000033665 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 518
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0713

FT9	033665 033665 0   0   000000033665 0            000000033665 
ET0	033665 033665 0   0   000000033665 0            000000033665 
ST1A	033665 033665 0   0   000000033665 0            000000033665 
ST9	033665 033665 0   0   000000033665 0            000000033665 


*033665 JRST	2,033666(1)
INITIAL
C(AC)=000000 000002 
C(E)=205040 000000 
FINAL

C(E)=205040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033665 033665 0   0   254101033666 0            000040033666 
IT1	033665 0      0   0   254101033666 0            000040033666 
AT1	033665 0      0   0   0            0            254101033666 
AT2	033665 0      0   0   000040000000 0            254101033666 
AT3	033665 0      0   0   000000033666 0            000040033666 
AT6	033665 033666 0   0   000000033666 0            000040033666 
FT1A	033665 033666 0   0   000000033666 0            000040033666 
FT9	033666 033666 0   0   000000033666 0            000040033666 
ET0	033666 033666 0   0   000000033666 0            000040033666 
ST1A	033666 033666 0   0   000000033666 0            000040033666 
ST9	033666 033666 0   0   000000033666 0            000040033666 


*033666 MOVSI	1,000000
INITIAL
C(AC)=000040 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033666 033666 0   0   205040000000 0            0            
IT1	033666 0      0   0   205040000000 0            0            
AT3	033666 0      0   0   0            0            205040000000 
AT6	033666 0      0   0   0            0            205040000000 
FT1A	033666 0      0   0   0            0            0            
FT9	033667 0      0   0   0            0            0            
ET0	033667 0      0   0   0            0            0            
ST1	033667 0      0   0   0            0            0            
ST2	033667 0      0   0   0            0            0            
ST9	033667 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 519
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0714

*033667 JFCL	17,033670
INITIAL
C(AC)=000000 777723 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033667 033667 0   0   255740033670 0            000000033670 
IT1	033667 0      0   0   255740033670 0            000000033670 
AT3	033667 0      0   0   000000033670 0            255740033670 
AT6	033667 033670 0   0   000000033670 0            255740033670 
FT1A	033667 033670 0   0   000000033670 0            000000033670 
FT9	033670 033670 0   0   000000033670 0            000000033670 
ET0	033670 033670 0   0   000000033670 0            000000033670 
ST1A	033670 033670 0   0   000000033670 0            000000033670 
ST9	033670 033670 0   0   000000033670 0            000000033670 


*033670 JRST	2,033671(1)
INITIAL
C(AC)=000000 000002 
C(E)=265000 033672 
FINAL

C(E)=265000 033672 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033670 033670 0   0   254101033671 0            000000033671 
IT1	033670 0      0   0   254101033671 0            000000033671 
AT1	033670 0      0   0   0            0            254101033671 
AT2	033670 0      0   0   0            0            254101033671 
AT3	033670 0      0   0   000000033671 0            000000033671 
AT6	033670 033671 0   0   000000033671 0            000000033671 
FT1A	033670 033671 0   0   000000033671 0            000000033671 
FT9	033671 033671 0   0   000000033671 0            000000033671 
ET0	033671 033671 0   0   000000033671 0            000000033671 
ST1A	033671 033671 0   0   000000033671 0            000000033671 
ST9	033671 033671 0   0   000000033671 0            000000033671 


*033671 JSP	0,033672
INITIAL
C(AC)=000040 033660 
FINAL
C(AC)=000000 033672 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033671 033671 0   0   265000033672 0            000000033672 
IT1	033671 0      0   0   265000033672 0            000000033672 
AT3	033671 0      0   0   000000033672 0            265000033672 
AT6	033671 033672 0   0   000000033672 0            265000033672 
FT1A	033671 033672 0   0   000000033672 0            000000033672 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 520
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0715

FT9	033672 033672 0   0   000000033672 0            000000033672 
ET0	033672 033672 0   0   000000033672 0            000000033672 
ST1	033672 033672 0   0   000000033672 0            000000033672 
ST2	033672 033672 0   0   000000033672 0            000000033672 
ST9	033672 033672 0   0   000000033672 0            000000033672 


*033672 TLNE	0,000040
INITIAL
C(AC)=000000 033672 
FINAL
C(AC)=000000 033672 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033672 033672 0   0   603000000040 0            0            
IT1	033672 0      0   0   603000000040 0            0            
AT3	033672 0      0   0   000000000040 0            603000000040 
AT6	033672 000040 0   0   000000000040 0            603000000040 
FT1A	033672 000040 0   0   000000000040 0            000000000040 
FT2	033672 000040 0   0   0            0            000000000040 
FT2RQ	033672 000040 0   0   000000033672 0            000000000040 
FT3	033672 000040 0   0   000000033672 0            000000000040 
FT9	033673 000040 0   0   000000033672 0            000000000040 
ET0	033673 000040 0   0   033672000000 0            000000000040 
ET1	033673 000040 0   0   033672000000 0            0            
ET2	033674 000040 0   0   000000033672 0            0            
ST1A	033674 000040 0   0   000000033672 0            0            
ST9	033674 000040 0   0   000000033672 0            0            


*033674 JUMPA	0,033675
INITIAL
C(AC)=000000 033672 
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   000000033672 0            000000033675 
FT3	033674 033675 0   0   000000033672 0            000000033675 
FT9	033675 033675 0   0   000000033672 0            000000033675 
ET0	033675 033675 0   0   000000033672 0            000000033675 
ST1A	033675 033675 0   0   000000033672 0            000000033675 
ST9	033675 033675 0   0   000000033672 0            000000033675 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 521
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0716

*033675 SETO 	0,000000
INITIAL
C(AC)=000000 033672 
C(E)=000000 033672 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033675 033675 0   0   474000000000 0            0            
IT1	033675 0      0   0   474000000000 0            0            
AT3	033675 0      0   0   0            0            474000000000 
AT6	033675 0      0   0   0            0            474000000000 
FT1A	033675 0      0   0   0            0            0            
FT9	033676 0      0   0   0            0            0            
ET0	033676 0      0   0   777777777777 0            0            
ST1	033676 0      0   0   777777777777 0            0            
ST2	033676 0      0   0   777777777777 0            0            
ST9	033676 0      0   0   777777777777 0            0            


*033676 JUMPL	0,033700
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033676 033676 0   0   321000033700 0            000000033700 
IT1	033676 0      0   0   321000033700 0            000000033700 
AT3	033676 0      0   0   000000033700 0            321000033700 
AT6	033676 0      0   0   000000033700 0            321000033700 
FT1A	033676 0      0   0   000000033700 0            000000033700 
FT2	033676 0      0   0   0            0            000000033700 
FT2RQ	033676 0      0   0   777777777777 0            000000033700 
FT3	033676 0      0   0   777777777777 0            000000033700 
FT9	033677 0      0   0   777777777777 0            000000033700 
ET0	0      0      0   0   777777777777 0            000000033700 
ST1A	0      0      0   0   777777777777 0            000000033700 
ST9	0      0      0   0   777777777777 0            000000033700 


*033700 JUMPA	0,033701
INITIAL
C(AC)=777777 777777 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 522
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0717

FT1A	0      033701 0   0   000000033701 0            000000033701 
FT2	0      033701 0   0   0            0            000000033701 
FT2RQ	0      033701 0   0   777777777777 0            000000033701 
FT3	0      033701 0   0   777777777777 0            000000033701 
FT9	033701 033701 0   0   777777777777 0            000000033701 
ET0	033701 033701 0   0   777777777777 0            000000033701 
ST1A	033701 033701 0   0   777777777777 0            000000033701 
ST9	033701 033701 0   0   777777777777 0            000000033701 


*033701 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	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 JUMPL	0,033704
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033702 033702 0   0   321000033704 0            000000033704 
IT1	033702 0      0   0   321000033704 0            000000033704 
AT3	033702 0      0   0   000000033704 0            321000033704 
AT6	033702 033704 0   0   000000033704 0            321000033704 
FT1A	033702 033704 0   0   000000033704 0            000000033704 
FT2	033702 033704 0   0   0            0            000000033704 
FT2RQ	033702 033704 0   0   0            0            000000033704 
FT3	033702 033704 0   0   0            0            000000033704 
FT9	033703 033704 0   0   0            0            000000033704 
ET0	033703 033704 0   0   0            0            000000033704 
ST1A	033703 033704 0   0   0            0            000000033704 
ST9	033703 033704 0   0   0            0            000000033704 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 523
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0718

*033703 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	033703 033703 0   0   334000000000 0            0            
IT1	033703 0      0   0   334000000000 0            0            
AT3	033703 0      0   0   0            0            334000000000 
AT6	033703 0      0   0   0            0            334000000000 
FT0	033703 0      0   0   0            0            334000000000 
FT1A	033703 0      0   0   0            0            0            
FT9	033704 0      0   0   0            0            0            
ET0	033705 0      0   0   0            0            0            
ST1A	033705 0      0   0   0            0            0            
ST9	033705 0      0   0   0            0            0            


*033705 JUMPA	0,033706
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033705 033705 0   0   324000033706 0            000000033706 
IT1	033705 0      0   0   324000033706 0            000000033706 
AT3	033705 0      0   0   000000033706 0            324000033706 
AT6	033705 033706 0   0   000000033706 0            324000033706 
FT1A	033705 033706 0   0   000000033706 0            000000033706 
FT2	033705 033706 0   0   0            0            000000033706 
FT2RQ	033705 033706 0   0   0            0            000000033706 
FT3	033705 033706 0   0   0            0            000000033706 
FT9	033706 033706 0   0   0            0            000000033706 
ET0	033706 033706 0   0   0            0            000000033706 
ST1A	033706 033706 0   0   0            0            000000033706 
ST9	033706 033706 0   0   0            0            000000033706 


*033706 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	033706 033706 0   0   400000000000 0            0            
IT1	033706 0      0   0   400000000000 0            0            
AT3	033706 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 524
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0719

AT6	033706 0      0   0   0            0            400000000000 
FT1A	033706 0      0   0   0            0            0            
FT9	033707 0      0   0   0            0            0            
ET0	033707 0      0   0   0            0            0            
ST1	033707 0      0   0   0            0            0            
ST2	033707 0      0   0   0            0            0            
ST9	033707 0      0   0   0            0            0            


*033707 JUMPE	0,033711
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033707 033707 0   0   322000033711 0            000000033711 
IT1	033707 0      0   0   322000033711 0            000000033711 
AT3	033707 0      0   0   000000033711 0            322000033711 
AT6	033707 033711 0   0   000000033711 0            322000033711 
FT1A	033707 033711 0   0   000000033711 0            000000033711 
FT2	033707 033711 0   0   0            0            000000033711 
FT2RQ	033707 033711 0   0   0            0            000000033711 
FT3	033707 033711 0   0   0            0            000000033711 
FT9	033710 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 JUMPA	0,033712
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033711 033711 0   0   324000033712 0            000000033712 
IT1	033711 0      0   0   324000033712 0            000000033712 
AT3	033711 0      0   0   000000033712 0            324000033712 
AT6	033711 033712 0   0   000000033712 0            324000033712 
FT1A	033711 033712 0   0   000000033712 0            000000033712 
FT2	033711 033712 0   0   0            0            000000033712 
FT2RQ	033711 033712 0   0   0            0            000000033712 
FT3	033711 033712 0   0   0            0            000000033712 
FT9	033712 033712 0   0   0            0            000000033712 
ET0	033712 033712 0   0   0            0            000000033712 
ST1A	033712 033712 0   0   0            0            000000033712 
ST9	033712 033712 0   0   0            0            000000033712 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 525
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0720

*033712 MOVEI	0,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033712 033712 0   0   201000000001 0            000000000001 
IT1	033712 0      0   0   201000000001 0            000000000001 
AT3	033712 0      0   0   000000000001 0            201000000001 
AT6	033712 000001 0   0   000000000001 0            201000000001 
FT1A	033712 000001 0   0   000000000001 0            000000000001 
FT9	033713 000001 0   0   000000000001 0            000000000001 
ET0	033713 000001 0   0   000000000001 0            000000000001 
ST1	033713 000001 0   0   000000000001 0            000000000001 
ST2	033713 000001 0   0   000000000001 0            000000000001 
ST9	033713 000001 0   0   000000000001 0            000000000001 


*033713 JUMPN	0,033715
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033713 033713 0   0   326000033715 0            000000033715 
IT1	033713 0      0   0   326000033715 0            000000033715 
AT3	033713 0      0   0   000000033715 0            326000033715 
AT6	033713 033715 0   0   000000033715 0            326000033715 
FT1A	033713 033715 0   0   000000033715 0            000000033715 
FT2	033713 033715 0   0   0            0            000000033715 
FT2RQ	033713 033715 0   0   000000000001 0            000000033715 
FT3	033713 033715 0   0   000000000001 0            000000033715 
FT9	033714 033715 0   0   000000000001 0            000000033715 
ET0	033715 033715 0   0   000000000001 0            000000033715 
ST1A	033715 033715 0   0   000000000001 0            000000033715 
ST9	033715 033715 0   0   000000000001 0            000000033715 


*033715 JUMPA	0,033716
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033715 033715 0   0   324000033716 0            000000033716 
IT1	033715 0      0   0   324000033716 0            000000033716 
AT3	033715 0      0   0   000000033716 0            324000033716 
AT6	033715 033716 0   0   000000033716 0            324000033716 
FT1A	033715 033716 0   0   000000033716 0            000000033716 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 526
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0721

FT2	033715 033716 0   0   0            0            000000033716 
FT2RQ	033715 033716 0   0   000000000001 0            000000033716 
FT3	033715 033716 0   0   000000000001 0            000000033716 
FT9	033716 033716 0   0   000000000001 0            000000033716 
ET0	033716 033716 0   0   000000000001 0            000000033716 
ST1A	033716 033716 0   0   000000000001 0            000000033716 
ST9	033716 033716 0   0   000000000001 0            000000033716 


*033716 MOVEI	0,000002
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033716 033716 0   0   201000000002 0            000000000002 
IT1	033716 0      0   0   201000000002 0            000000000002 
AT3	033716 0      0   0   000000000002 0            201000000002 
AT6	033716 000002 0   0   000000000002 0            201000000002 
FT1A	033716 000002 0   0   000000000002 0            000000000002 
FT9	033717 000002 0   0   000000000002 0            000000000002 
ET0	033717 000002 0   0   000000000002 0            000000000002 
ST1	033717 000002 0   0   000000000002 0            000000000002 
ST2	033717 000002 0   0   000000000002 0            000000000002 
ST9	033717 000002 0   0   000000000002 0            000000000002 


*033717 JUMPE	0,033721
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033717 033717 0   0   322000033721 0            000000033721 
IT1	033717 0      0   0   322000033721 0            000000033721 
AT3	033717 0      0   0   000000033721 0            322000033721 
AT6	033717 033721 0   0   000000033721 0            322000033721 
FT1A	033717 033721 0   0   000000033721 0            000000033721 
FT2	033717 033721 0   0   0            0            000000033721 
FT2RQ	033717 033721 0   0   000000000002 0            000000033721 
FT3	033717 033721 0   0   000000000002 0            000000033721 
FT9	033720 033721 0   0   000000000002 0            000000033721 
ET0	033720 033721 0   0   000000000002 0            000000033721 
ST1A	033720 033721 0   0   000000000002 0            000000033721 
ST9	033720 033721 0   0   000000000002 0            000000033721 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 527
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0722

*033720 SKIPA	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033720 033720 0   0   334000000000 0            000000000002 
IT1	033720 0      0   0   334000000000 0            000000000002 
AT3	033720 0      0   0   0            0            334000000000 
AT6	033720 0      0   0   0            0            334000000000 
FT0	033720 0      0   0   000000000002 0            334000000000 
FT1A	033720 0      0   0   000000000002 0            000000000002 
FT9	033721 0      0   0   000000000002 0            000000000002 
ET0	033722 0      0   0   000000000002 0            000000000002 
ST1A	033722 0      0   0   000000000002 0            000000000002 
ST9	033722 0      0   0   000000000002 0            000000000002 


*033722 JUMPA	0,033723
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033722 033722 0   0   324000033723 0            000000033723 
IT1	033722 0      0   0   324000033723 0            000000033723 
AT3	033722 0      0   0   000000033723 0            324000033723 
AT6	033722 033723 0   0   000000033723 0            324000033723 
FT1A	033722 033723 0   0   000000033723 0            000000033723 
FT2	033722 033723 0   0   0            0            000000033723 
FT2RQ	033722 033723 0   0   000000000002 0            000000033723 
FT3	033722 033723 0   0   000000000002 0            000000033723 
FT9	033723 033723 0   0   000000000002 0            000000033723 
ET0	033723 033723 0   0   000000000002 0            000000033723 
ST1A	033723 033723 0   0   000000000002 0            000000033723 
ST9	033723 033723 0   0   000000000002 0            000000033723 


*033723 SETZ 	0,000000
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033723 033723 0   0   400000000000 0            0            
IT1	033723 0      0   0   400000000000 0            0            
AT3	033723 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 528
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0723

AT6	033723 0      0   0   0            0            400000000000 
FT1A	033723 0      0   0   0            0            0            
FT9	033724 0      0   0   0            0            0            
ET0	033724 0      0   0   0            0            0            
ST1	033724 0      0   0   0            0            0            
ST2	033724 0      0   0   0            0            0            
ST9	033724 0      0   0   0            0            0            


*033724 JUMPN	0,033726
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033724 033724 0   0   326000033726 0            000000033726 
IT1	033724 0      0   0   326000033726 0            000000033726 
AT3	033724 0      0   0   000000033726 0            326000033726 
AT6	033724 033726 0   0   000000033726 0            326000033726 
FT1A	033724 033726 0   0   000000033726 0            000000033726 
FT2	033724 033726 0   0   0            0            000000033726 
FT2RQ	033724 033726 0   0   0            0            000000033726 
FT3	033724 033726 0   0   0            0            000000033726 
FT9	033725 033726 0   0   0            0            000000033726 
ET0	033725 033726 0   0   0            0            000000033726 
ST1A	033725 033726 0   0   0            0            000000033726 
ST9	033725 033726 0   0   0            0            000000033726 


*033725 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	033725 033725 0   0   334000000000 0            0            
IT1	033725 0      0   0   334000000000 0            0            
AT3	033725 0      0   0   0            0            334000000000 
AT6	033725 0      0   0   0            0            334000000000 
FT0	033725 0      0   0   0            0            334000000000 
FT1A	033725 0      0   0   0            0            0            
FT9	033726 0      0   0   0            0            0            
ET0	033727 0      0   0   0            0            0            
ST1A	033727 0      0   0   0            0            0            
ST9	033727 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 529
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0724

*033727 JUMPA	0,033730
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033727 033727 0   0   324000033730 0            000000033730 
IT1	033727 0      0   0   324000033730 0            000000033730 
AT3	033727 0      0   0   000000033730 0            324000033730 
AT6	033727 033730 0   0   000000033730 0            324000033730 
FT1A	033727 033730 0   0   000000033730 0            000000033730 
FT2	033727 033730 0   0   0            0            000000033730 
FT2RQ	033727 033730 0   0   0            0            000000033730 
FT3	033727 033730 0   0   0            0            000000033730 
FT9	033730 033730 0   0   0            0            000000033730 
ET0	033730 033730 0   0   0            0            000000033730 
ST1A	033730 033730 0   0   0            0            000000033730 
ST9	033730 033730 0   0   0            0            000000033730 


*033730 MOVEI	0,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033730 033730 0   0   201000000001 0            000000000001 
IT1	033730 0      0   0   201000000001 0            000000000001 
AT3	033730 0      0   0   000000000001 0            201000000001 
AT6	033730 000001 0   0   000000000001 0            201000000001 
FT1A	033730 000001 0   0   000000000001 0            000000000001 
FT9	033731 000001 0   0   000000000001 0            000000000001 
ET0	033731 000001 0   0   000000000001 0            000000000001 
ST1	033731 000001 0   0   000000000001 0            000000000001 
ST2	033731 000001 0   0   000000000001 0            000000000001 
ST9	033731 000001 0   0   000000000001 0            000000000001 


*033731 JUMPG	0,033733
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033731 033731 0   0   327000033733 0            000000033733 
IT1	033731 0      0   0   327000033733 0            000000033733 
AT3	033731 0      0   0   000000033733 0            327000033733 
AT6	033731 033733 0   0   000000033733 0            327000033733 
FT1A	033731 033733 0   0   000000033733 0            000000033733 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 530
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0725

FT2	033731 033733 0   0   0            0            000000033733 
FT2RQ	033731 033733 0   0   000000000001 0            000000033733 
FT3	033731 033733 0   0   000000000001 0            000000033733 
FT9	033732 033733 0   0   000000000001 0            000000033733 
ET0	033733 033733 0   0   000000000001 0            000000033733 
ST1A	033733 033733 0   0   000000000001 0            000000033733 
ST9	033733 033733 0   0   000000000001 0            000000033733 


*033733 JUMPA	0,033734
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033733 033733 0   0   324000033734 0            000000033734 
IT1	033733 0      0   0   324000033734 0            000000033734 
AT3	033733 0      0   0   000000033734 0            324000033734 
AT6	033733 033734 0   0   000000033734 0            324000033734 
FT1A	033733 033734 0   0   000000033734 0            000000033734 
FT2	033733 033734 0   0   0            0            000000033734 
FT2RQ	033733 033734 0   0   000000000001 0            000000033734 
FT3	033733 033734 0   0   000000000001 0            000000033734 
FT9	033734 033734 0   0   000000000001 0            000000033734 
ET0	033734 033734 0   0   000000000001 0            000000033734 
ST1A	033734 033734 0   0   000000000001 0            000000033734 
ST9	033734 033734 0   0   000000000001 0            000000033734 


*033734 MOVSI	0,777777
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033734 033734 0   0   205000777777 0            000000777777 
IT1	033734 0      0   0   205000777777 0            000000777777 
AT3	033734 0      0   0   000000777777 0            205000777777 
AT6	033734 777777 0   0   000000777777 0            205000777777 
FT1A	033734 777777 0   0   000000777777 0            000000777777 
FT9	033735 777777 0   0   000000777777 0            000000777777 
ET0	033735 777777 0   0   777777000000 0            000000777777 
ST1	033735 777777 0   0   777777000000 0            000000777777 
ST2	033735 777777 0   0   777777000000 0            000000777777 
ST9	033735 777777 0   0   777777000000 0            000000777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 531
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0726

*033735 JUMPG	0,033737
INITIAL
C(AC)=777777 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033735 033735 0   0   327000033737 0            000000033737 
IT1	033735 0      0   0   327000033737 0            000000033737 
AT3	033735 0      0   0   000000033737 0            327000033737 
AT6	033735 033737 0   0   000000033737 0            327000033737 
FT1A	033735 033737 0   0   000000033737 0            000000033737 
FT2	033735 033737 0   0   0            0            000000033737 
FT2RQ	033735 033737 0   0   777777000000 0            000000033737 
FT3	033735 033737 0   0   777777000000 0            000000033737 
FT9	033736 033737 0   0   777777000000 0            000000033737 
ET0	033736 033737 0   0   777777000000 0            000000033737 
ST1A	033736 033737 0   0   777777000000 0            000000033737 
ST9	033736 033737 0   0   777777000000 0            000000033737 


*033736 SKIPA	0,000000
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033736 033736 0   0   334000000000 0            777777000000 
IT1	033736 0      0   0   334000000000 0            777777000000 
AT3	033736 0      0   0   0            0            334000000000 
AT6	033736 0      0   0   0            0            334000000000 
FT0	033736 0      0   0   777777000000 0            334000000000 
FT1A	033736 0      0   0   777777000000 0            777777000000 
FT9	033737 0      0   0   777777000000 0            777777000000 
ET0	033740 0      0   0   777777000000 0            777777000000 
ST1A	033740 0      0   0   777777000000 0            777777000000 
ST9	033740 0      0   0   777777000000 0            777777000000 


*033740 JUMPA	0,033741
INITIAL
C(AC)=777777 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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 532
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0727

FT1A	033740 033741 0   0   000000033741 0            000000033741 
FT2	033740 033741 0   0   0            0            000000033741 
FT2RQ	033740 033741 0   0   777777000000 0            000000033741 
FT3	033740 033741 0   0   777777000000 0            000000033741 
FT9	033741 033741 0   0   777777000000 0            000000033741 
ET0	033741 033741 0   0   777777000000 0            000000033741 
ST1A	033741 033741 0   0   777777000000 0            000000033741 
ST9	033741 033741 0   0   777777000000 0            000000033741 


*033741 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	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            


*033742 AOJ 	0,033744
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033742 033742 0   0   340000033744 0            000000033744 
IT1	033742 0      0   0   340000033744 0            000000033744 
AT3	033742 0      0   0   000000033744 0            340000033744 
AT6	033742 033744 0   0   000000033744 0            340000033744 
FT1A	033742 033744 0   0   000000033744 0            000000033744 
FT2	033742 033744 0   0   0            0            000000033744 
FT2RQ	033742 033744 0   0   0            0            000000033744 
FT3	033742 033744 0   0   0            0            000000033744 
FT9	033743 033744 0   0   0            0            000000033744 
ET0	033743 033744 0   0   000000000001 0            000000033744 
ST1	033743 033744 0   0   000000000001 0            000000033744 
ST2	033743 033744 0   0   000000000001 0            000000033744 
ST9	033743 033744 0   0   000000000001 0            000000033744 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 533
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0728

*033743 CAIE	0,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033743 033743 0   0   302000000001 0            000000000001 
IT1	033743 0      0   0   302000000001 0            000000000001 
AT3	033743 0      0   0   000000000001 0            302000000001 
AT6	033743 000001 0   0   000000000001 0            302000000001 
FT1A	033743 000001 0   0   000000000001 0            000000000001 
FT2	033743 000001 0   0   0            0            000000000001 
FT2RQ	033743 000001 0   0   000000000001 0            000000000001 
FT3	033743 000001 0   0   000000000001 0            000000000001 
FT9	033744 000001 0   0   000000000001 0            000000000001 
ET0	033745 000001 0   0   0            0            000000000001 
ST1A	033745 000001 0   0   0            0            000000000001 
ST9	033745 000001 0   0   0            0            000000000001 


*033745 JUMPA	0,033746
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033745 033745 0   0   324000033746 0            000000033746 
IT1	033745 0      0   0   324000033746 0            000000033746 
AT3	033745 0      0   0   000000033746 0            324000033746 
AT6	033745 033746 0   0   000000033746 0            324000033746 
FT1A	033745 033746 0   0   000000033746 0            000000033746 
FT2	033745 033746 0   0   0            0            000000033746 
FT2RQ	033745 033746 0   0   000000000001 0            000000033746 
FT3	033745 033746 0   0   000000000001 0            000000033746 
FT9	033746 033746 0   0   000000000001 0            000000033746 
ET0	033746 033746 0   0   000000000001 0            000000033746 
ST1A	033746 033746 0   0   000000000001 0            000000033746 
ST9	033746 033746 0   0   000000000001 0            000000033746 


*033746 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	033746 033746 0   0   474000000000 0            0            
IT1	033746 0      0   0   474000000000 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 534
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0729

AT3	033746 0      0   0   0            0            474000000000 
AT6	033746 0      0   0   0            0            474000000000 
FT1A	033746 0      0   0   0            0            0            
FT9	033747 0      0   0   0            0            0            
ET0	033747 0      0   0   777777777777 0            0            
ST1	033747 0      0   0   777777777777 0            0            
ST2	033747 0      0   0   777777777777 0            0            
ST9	033747 0      0   0   777777777777 0            0            


*033747 AOJ 	0,033751
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033747 033747 0   0   340000033751 0            000000033751 
IT1	033747 0      0   0   340000033751 0            000000033751 
AT3	033747 0      0   0   000000033751 0            340000033751 
AT6	033747 033751 0   0   000000033751 0            340000033751 
FT1A	033747 033751 0   0   000000033751 0            000000033751 
FT2	033747 033751 0   0   0            0            000000033751 
FT2RQ	033747 033751 0   0   777777777777 0            000000033751 
FT3	033747 033751 0   0   777777777777 0            000000033751 
FT9	033750 033751 0   0   777777777777 0            000000033751 
ET0	033750 033751 0   0   0            0            000000033751 
ST1	033750 033751 0   0   0            0            000000033751 
ST2	033750 033751 0   0   0            0            000000033751 
ST9	033750 033751 0   0   0            0            000000033751 


*033750 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033750 033750 0   0   302000000000 0            0            
IT1	033750 0      0   0   302000000000 0            0            
AT3	033750 0      0   0   0            0            302000000000 
AT6	033750 0      0   0   0            0            302000000000 
FT1A	033750 0      0   0   0            0            0            
FT2	033750 0      0   0   0            0            0            
FT2RQ	033750 0      0   0   0            0            0            
FT3	033750 0      0   0   0            0            0            
FT9	033751 0      0   0   0            0            0            
ET0	033752 0      0   0   0            0            0            
ST1A	033752 0      0   0   0            0            0            
ST9	033752 0      0   0   0            0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 535
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0730


*033752 JUMPA	0,033753
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033752 033752 0   0   324000033753 0            000000033753 
IT1	033752 0      0   0   324000033753 0            000000033753 
AT3	033752 0      0   0   000000033753 0            324000033753 
AT6	033752 033753 0   0   000000033753 0            324000033753 
FT1A	033752 033753 0   0   000000033753 0            000000033753 
FT2	033752 033753 0   0   0            0            000000033753 
FT2RQ	033752 033753 0   0   0            0            000000033753 
FT3	033752 033753 0   0   0            0            000000033753 
FT9	033753 033753 0   0   0            0            000000033753 
ET0	033753 033753 0   0   0            0            000000033753 
ST1A	033753 033753 0   0   0            0            000000033753 
ST9	033753 033753 0   0   0            0            000000033753 


*033753 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	033753 033753 0   0   400000000000 0            0            
IT1	033753 0      0   0   400000000000 0            0            
AT3	033753 0      0   0   0            0            400000000000 
AT6	033753 0      0   0   0            0            400000000000 
FT1A	033753 0      0   0   0            0            0            
FT9	033754 0      0   0   0            0            0            
ET0	033754 0      0   0   0            0            0            
ST1	033754 0      0   0   0            0            0            
ST2	033754 0      0   0   0            0            0            
ST9	033754 0      0   0   0            0            0            


*033754 SOJ 	0,033756
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033754 033754 0   0   360000033756 0            000000033756 
IT1	033754 0      0   0   360000033756 0            000000033756 
AT3	033754 0      0   0   000000033756 0            360000033756 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 536
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0731

AT6	033754 033756 0   0   000000033756 0            360000033756 
FT1A	033754 033756 0   0   000000033756 0            000000033756 
FT2	033754 033756 0   0   0            0            000000033756 
FT2RQ	033754 033756 0   0   0            0            000000033756 
FT3	033754 033756 0   0   0            0            000000033756 
FT9	033755 033756 0   0   0            0            000000033756 
ET0	033755 033756 0   0   777777777777 0            000000033756 
ST1	033755 033756 0   0   777777777777 0            000000033756 
ST2	033755 033756 0   0   777777777777 0            000000033756 
ST9	033755 033756 0   0   777777777777 0            000000033756 


*033755 CAME	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033755 033755 0   0   312000034466 0            777777777777 
IT1	033755 0      0   0   312000034466 0            777777777777 
AT3	033755 0      0   0   000000034466 0            312000034466 
AT6	033755 034466 0   0   000000034466 0            312000034466 
FT0	033755 034466 0   0   777777777777 0            312000034466 
FT1A	033755 034466 0   0   777777777777 0            777777777777 
FT2	033755 034466 0   0   0            0            777777777777 
FT2RQ	033755 034466 0   0   777777777777 0            777777777777 
FT3	033755 034466 0   0   777777777777 0            777777777777 
FT9	033756 034466 0   0   777777777777 0            777777777777 
ET0	033757 034466 0   0   0            0            777777777777 
ST1A	033757 034466 0   0   0            0            777777777777 
ST9	033757 034466 0   0   0            0            777777777777 


*033757 JUMPA	0,033760
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033757 033757 0   0   324000033760 0            000000033760 
IT1	033757 0      0   0   324000033760 0            000000033760 
AT3	033757 0      0   0   000000033760 0            324000033760 
AT6	033757 033760 0   0   000000033760 0            324000033760 
FT1A	033757 033760 0   0   000000033760 0            000000033760 
FT2	033757 033760 0   0   0            0            000000033760 
FT2RQ	033757 033760 0   0   777777777777 0            000000033760 
FT3	033757 033760 0   0   777777777777 0            000000033760 
FT9	033760 033760 0   0   777777777777 0            000000033760 
ET0	033760 033760 0   0   777777777777 0            000000033760 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 537
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0732

ST1A	033760 033760 0   0   777777777777 0            000000033760 
ST9	033760 033760 0   0   777777777777 0            000000033760 


*033760 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	033760 033760 0   0   474000000000 0            0            
IT1	033760 0      0   0   474000000000 0            0            
AT3	033760 0      0   0   0            0            474000000000 
AT6	033760 0      0   0   0            0            474000000000 
FT1A	033760 0      0   0   0            0            0            
FT9	033761 0      0   0   0            0            0            
ET0	033761 0      0   0   777777777777 0            0            
ST1	033761 0      0   0   777777777777 0            0            
ST2	033761 0      0   0   777777777777 0            0            
ST9	033761 0      0   0   777777777777 0            0            


*033761 SOJ 	0,033763
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033761 033761 0   0   360000033763 0            000000033763 
IT1	033761 0      0   0   360000033763 0            000000033763 
AT3	033761 0      0   0   000000033763 0            360000033763 
AT6	033761 033763 0   0   000000033763 0            360000033763 
FT1A	033761 033763 0   0   000000033763 0            000000033763 
FT2	033761 033763 0   0   0            0            000000033763 
FT2RQ	033761 033763 0   0   777777777777 0            000000033763 
FT3	033761 033763 0   0   777777777777 0            000000033763 
FT9	033762 033763 0   0   777777777777 0            000000033763 
ET0	033762 033763 0   0   777777777776 0            000000033763 
ST1	033762 033763 0   0   777777777776 0            000000033763 
ST2	033762 033763 0   0   777777777776 0            000000033763 
ST9	033762 033763 0   0   777777777776 0            000000033763 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 538
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0733

*033762 CAME	0,034467
INITIAL
C(AC)=777777 777776 
C(E)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033762 033762 0   0   312000034467 0            777777777776 
IT1	033762 0      0   0   312000034467 0            777777777776 
AT3	033762 0      0   0   000000034467 0            312000034467 
AT6	033762 034467 0   0   000000034467 0            312000034467 
FT0	033762 034467 0   0   777777777776 0            312000034467 
FT1A	033762 034467 0   0   777777777776 0            777777777776 
FT2	033762 034467 0   0   0            0            777777777776 
FT2RQ	033762 034467 0   0   777777777776 0            777777777776 
FT3	033762 034467 0   0   777777777776 0            777777777776 
FT9	033763 034467 0   0   777777777776 0            777777777776 
ET0	033764 034467 0   0   0            0            777777777776 
ST1A	033764 034467 0   0   0            0            777777777776 
ST9	033764 034467 0   0   0            0            777777777776 


*033764 JUMPA	0,033765
INITIAL
C(AC)=777777 777776 
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 
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   777777777776 0            000000033765 
FT3	033764 033765 0   0   777777777776 0            000000033765 
FT9	033765 033765 0   0   777777777776 0            000000033765 
ET0	033765 033765 0   0   777777777776 0            000000033765 
ST1A	033765 033765 0   0   777777777776 0            000000033765 
ST9	033765 033765 0   0   777777777776 0            000000033765 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 539
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0734

*033765 MOVEI	0,000001
INITIAL
C(AC)=777777 777776 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033765 033765 0   0   201000000001 0            000000000001 
IT1	033765 0      0   0   201000000001 0            000000000001 
AT3	033765 0      0   0   000000000001 0            201000000001 
AT6	033765 000001 0   0   000000000001 0            201000000001 
FT1A	033765 000001 0   0   000000000001 0            000000000001 
FT9	033766 000001 0   0   000000000001 0            000000000001 
ET0	033766 000001 0   0   000000000001 0            000000000001 
ST1	033766 000001 0   0   000000000001 0            000000000001 
ST2	033766 000001 0   0   000000000001 0            000000000001 
ST9	033766 000001 0   0   000000000001 0            000000000001 


*033766 SOJ 	0,033770
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033766 033766 0   0   360000033770 0            000000033770 
IT1	033766 0      0   0   360000033770 0            000000033770 
AT3	033766 0      0   0   000000033770 0            360000033770 
AT6	033766 033770 0   0   000000033770 0            360000033770 
FT1A	033766 033770 0   0   000000033770 0            000000033770 
FT2	033766 033770 0   0   0            0            000000033770 
FT2RQ	033766 033770 0   0   000000000001 0            000000033770 
FT3	033766 033770 0   0   000000000001 0            000000033770 
FT9	033767 033770 0   0   000000000001 0            000000033770 
ET0	033767 033770 0   0   0            0            000000033770 
ST1	033767 033770 0   0   0            0            000000033770 
ST2	033767 033770 0   0   0            0            000000033770 
ST9	033767 033770 0   0   0            0            000000033770 


*033767 CAIE	0,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033767 033767 0   0   302000000000 0            0            
IT1	033767 0      0   0   302000000000 0            0            
AT3	033767 0      0   0   0            0            302000000000 
AT6	033767 0      0   0   0            0            302000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 540
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0735

FT1A	033767 0      0   0   0            0            0            
FT2	033767 0      0   0   0            0            0            
FT2RQ	033767 0      0   0   0            0            0            
FT3	033767 0      0   0   0            0            0            
FT9	033770 0      0   0   0            0            0            
ET0	033771 0      0   0   0            0            0            
ST1A	033771 0      0   0   0            0            0            
ST9	033771 0      0   0   0            0            0            


*033771 JUMPA	0,033772
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033771 033771 0   0   324000033772 0            000000033772 
IT1	033771 0      0   0   324000033772 0            000000033772 
AT3	033771 0      0   0   000000033772 0            324000033772 
AT6	033771 033772 0   0   000000033772 0            324000033772 
FT1A	033771 033772 0   0   000000033772 0            000000033772 
FT2	033771 033772 0   0   0            0            000000033772 
FT2RQ	033771 033772 0   0   0            0            000000033772 
FT3	033771 033772 0   0   0            0            000000033772 
FT9	033772 033772 0   0   0            0            000000033772 
ET0	033772 033772 0   0   0            0            000000033772 
ST1A	033772 033772 0   0   0            0            000000033772 
ST9	033772 033772 0   0   0            0            000000033772 


*033772 SETZ 	17,000000
INITIAL
C(AC)=000000 777723 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033772 033772 0   0   400740000000 0            0            
IT1	033772 0      0   0   400740000000 0            0            
AT3	033772 0      0   0   0            0            400740000000 
AT6	033772 0      0   0   0            0            400740000000 
FT1A	033772 0      0   0   0            0            0            
FT9	033773 0      0   0   0            0            0            
ET0	033773 0      0   0   0            0            0            
ST1	033773 0      0   0   0            0            0            
ST2	033773 0      0   0   0            0            0            
ST9	033773 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 541
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0736

*033773 SOJ 	17,033773
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033773 033773 0   0   360740033773 0            000000033773 
IT1	033773 0      0   0   360740033773 0            000000033773 
AT3	033773 0      0   0   000000033773 0            360740033773 
AT6	033773 033773 0   0   000000033773 0            360740033773 
FT1A	033773 033773 0   0   000000033773 0            000000033773 
FT2	033773 033773 0   0   0            0            000000033773 
FT2RQ	033773 033773 0   0   0            0            000000033773 
FT3	033773 033773 0   0   0            0            000000033773 
FT9	033774 033773 0   0   0            0            000000033773 
ET0	033774 033773 0   0   777777777777 0            000000033773 
ST1	033774 033773 0   0   777777777777 0            000000033773 
ST2	033774 033773 0   0   777777777777 0            000000033773 
ST9	033774 033773 0   0   777777777777 0            000000033773 


*033774 AOJ 	17,033774
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033774 033774 0   0   340740033774 0            000000033774 
IT1	033774 0      0   0   340740033774 0            000000033774 
AT3	033774 0      0   0   000000033774 0            340740033774 
AT6	033774 033774 0   0   000000033774 0            340740033774 
FT1A	033774 033774 0   0   000000033774 0            000000033774 
FT2	033774 033774 0   0   0            0            000000033774 
FT2RQ	033774 033774 0   0   777777777777 0            000000033774 
FT3	033774 033774 0   0   777777777777 0            000000033774 
FT9	033775 033774 0   0   777777777777 0            000000033774 
ET0	033775 033774 0   0   0            0            000000033774 
ST1	033775 033774 0   0   0            0            000000033774 
ST2	033775 033774 0   0   0            0            000000033774 
ST9	033775 033774 0   0   0            0            000000033774 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 542
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0737

*033775 SOJ 	17,033775
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033775 033775 0   0   360740033775 0            000000033775 
IT1	033775 0      0   0   360740033775 0            000000033775 
AT3	033775 0      0   0   000000033775 0            360740033775 
AT6	033775 033775 0   0   000000033775 0            360740033775 
FT1A	033775 033775 0   0   000000033775 0            000000033775 
FT2	033775 033775 0   0   0            0            000000033775 
FT2RQ	033775 033775 0   0   0            0            000000033775 
FT3	033775 033775 0   0   0            0            000000033775 
FT9	033776 033775 0   0   0            0            000000033775 
ET0	033776 033775 0   0   777777777777 0            000000033775 
ST1	033776 033775 0   0   777777777777 0            000000033775 
ST2	033776 033775 0   0   777777777777 0            000000033775 
ST9	033776 033775 0   0   777777777777 0            000000033775 


*033776 AOJ 	17,033776
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033776 033776 0   0   340740033776 0            000000033776 
IT1	033776 0      0   0   340740033776 0            000000033776 
AT3	033776 0      0   0   000000033776 0            340740033776 
AT6	033776 033776 0   0   000000033776 0            340740033776 
FT1A	033776 033776 0   0   000000033776 0            000000033776 
FT2	033776 033776 0   0   0            0            000000033776 
FT2RQ	033776 033776 0   0   777777777777 0            000000033776 
FT3	033776 033776 0   0   777777777777 0            000000033776 
FT9	033777 033776 0   0   777777777777 0            000000033776 
ET0	033777 033776 0   0   0            0            000000033776 
ST1	033777 033776 0   0   0            0            000000033776 
ST2	033777 033776 0   0   0            0            000000033776 
ST9	033777 033776 0   0   0            0            000000033776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 543
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0738

*033777 SOJ 	17,033777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	033777 033777 0   0   360740033777 0            000000033777 
IT1	033777 0      0   0   360740033777 0            000000033777 
AT3	033777 0      0   0   000000033777 0            360740033777 
AT6	033777 033777 0   0   000000033777 0            360740033777 
FT1A	033777 033777 0   0   000000033777 0            000000033777 
FT2	033777 033777 0   0   0            0            000000033777 
FT2RQ	033777 033777 0   0   0            0            000000033777 
FT3	033777 033777 0   0   0            0            000000033777 
FT9	0      033777 0   0   0            0            000000033777 
ET0	0      033777 0   0   777777777777 0            000000033777 
ST1	0      033777 0   0   777777777777 0            000000033777 
ST2	0      033777 0   0   777777777777 0            000000033777 
ST9	0      033777 0   0   777777777777 0            000000033777 


*034000 AOJ 	17,034000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   340740034000 0            000000034000 
IT1	0      0      0   0   340740034000 0            000000034000 
AT3	0      0      0   0   000000034000 0            340740034000 
AT6	0      0      0   0   000000034000 0            340740034000 
FT1A	0      0      0   0   000000034000 0            000000034000 
FT2	0      0      0   0   0            0            000000034000 
FT2RQ	0      0      0   0   777777777777 0            000000034000 
FT3	0      0      0   0   777777777777 0            000000034000 
FT9	034001 0      0   0   777777777777 0            000000034000 
ET0	034001 0      0   0   0            0            000000034000 
ST1	034001 0      0   0   0            0            000000034000 
ST2	034001 0      0   0   0            0            000000034000 
ST9	034001 0      0   0   0            0            000000034000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 544
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0739

*034001 SOJ 	17,034001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034001 034001 0   0   360740034001 0            000000034001 
IT1	034001 0      0   0   360740034001 0            000000034001 
AT3	034001 0      0   0   000000034001 0            360740034001 
AT6	034001 034001 0   0   000000034001 0            360740034001 
FT1A	034001 034001 0   0   000000034001 0            000000034001 
FT2	034001 034001 0   0   0            0            000000034001 
FT2RQ	034001 034001 0   0   0            0            000000034001 
FT3	034001 034001 0   0   0            0            000000034001 
FT9	034002 034001 0   0   0            0            000000034001 
ET0	034002 034001 0   0   777777777777 0            000000034001 
ST1	034002 034001 0   0   777777777777 0            000000034001 
ST2	034002 034001 0   0   777777777777 0            000000034001 
ST9	034002 034001 0   0   777777777777 0            000000034001 


*034002 AOJ 	17,034002
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034002 034002 0   0   340740034002 0            000000034002 
IT1	034002 0      0   0   340740034002 0            000000034002 
AT3	034002 0      0   0   000000034002 0            340740034002 
AT6	034002 034002 0   0   000000034002 0            340740034002 
FT1A	034002 034002 0   0   000000034002 0            000000034002 
FT2	034002 034002 0   0   0            0            000000034002 
FT2RQ	034002 034002 0   0   777777777777 0            000000034002 
FT3	034002 034002 0   0   777777777777 0            000000034002 
FT9	034003 034002 0   0   777777777777 0            000000034002 
ET0	034003 034002 0   0   0            0            000000034002 
ST1	034003 034002 0   0   0            0            000000034002 
ST2	034003 034002 0   0   0            0            000000034002 
ST9	034003 034002 0   0   0            0            000000034002 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 545
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0740

*034003 SOJ 	17,034003
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034003 034003 0   0   360740034003 0            000000034003 
IT1	034003 0      0   0   360740034003 0            000000034003 
AT3	034003 0      0   0   000000034003 0            360740034003 
AT6	034003 034003 0   0   000000034003 0            360740034003 
FT1A	034003 034003 0   0   000000034003 0            000000034003 
FT2	034003 034003 0   0   0            0            000000034003 
FT2RQ	034003 034003 0   0   0            0            000000034003 
FT3	034003 034003 0   0   0            0            000000034003 
FT9	034004 034003 0   0   0            0            000000034003 
ET0	034004 034003 0   0   777777777777 0            000000034003 
ST1	034004 034003 0   0   777777777777 0            000000034003 
ST2	034004 034003 0   0   777777777777 0            000000034003 
ST9	034004 034003 0   0   777777777777 0            000000034003 


*034004 AOJ 	17,034004
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034004 034004 0   0   340740034004 0            000000034004 
IT1	034004 0      0   0   340740034004 0            000000034004 
AT3	034004 0      0   0   000000034004 0            340740034004 
AT6	034004 034004 0   0   000000034004 0            340740034004 
FT1A	034004 034004 0   0   000000034004 0            000000034004 
FT2	034004 034004 0   0   0            0            000000034004 
FT2RQ	034004 034004 0   0   777777777777 0            000000034004 
FT3	034004 034004 0   0   777777777777 0            000000034004 
FT9	034005 034004 0   0   777777777777 0            000000034004 
ET0	034005 034004 0   0   0            0            000000034004 
ST1	034005 034004 0   0   0            0            000000034004 
ST2	034005 034004 0   0   0            0            000000034004 
ST9	034005 034004 0   0   0            0            000000034004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 546
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0741

*034005 SOJ 	17,034005
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034005 034005 0   0   360740034005 0            000000034005 
IT1	034005 0      0   0   360740034005 0            000000034005 
AT3	034005 0      0   0   000000034005 0            360740034005 
AT6	034005 034005 0   0   000000034005 0            360740034005 
FT1A	034005 034005 0   0   000000034005 0            000000034005 
FT2	034005 034005 0   0   0            0            000000034005 
FT2RQ	034005 034005 0   0   0            0            000000034005 
FT3	034005 034005 0   0   0            0            000000034005 
FT9	034006 034005 0   0   0            0            000000034005 
ET0	034006 034005 0   0   777777777777 0            000000034005 
ST1	034006 034005 0   0   777777777777 0            000000034005 
ST2	034006 034005 0   0   777777777777 0            000000034005 
ST9	034006 034005 0   0   777777777777 0            000000034005 


*034006 AOJ 	17,034006
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034006 034006 0   0   340740034006 0            000000034006 
IT1	034006 0      0   0   340740034006 0            000000034006 
AT3	034006 0      0   0   000000034006 0            340740034006 
AT6	034006 034006 0   0   000000034006 0            340740034006 
FT1A	034006 034006 0   0   000000034006 0            000000034006 
FT2	034006 034006 0   0   0            0            000000034006 
FT2RQ	034006 034006 0   0   777777777777 0            000000034006 
FT3	034006 034006 0   0   777777777777 0            000000034006 
FT9	034007 034006 0   0   777777777777 0            000000034006 
ET0	034007 034006 0   0   0            0            000000034006 
ST1	034007 034006 0   0   0            0            000000034006 
ST2	034007 034006 0   0   0            0            000000034006 
ST9	034007 034006 0   0   0            0            000000034006 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 547
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0742

*034007 SOJ 	17,034007
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034007 034007 0   0   360740034007 0            000000034007 
IT1	034007 0      0   0   360740034007 0            000000034007 
AT3	034007 0      0   0   000000034007 0            360740034007 
AT6	034007 034007 0   0   000000034007 0            360740034007 
FT1A	034007 034007 0   0   000000034007 0            000000034007 
FT2	034007 034007 0   0   0            0            000000034007 
FT2RQ	034007 034007 0   0   0            0            000000034007 
FT3	034007 034007 0   0   0            0            000000034007 
FT9	034010 034007 0   0   0            0            000000034007 
ET0	034010 034007 0   0   777777777777 0            000000034007 
ST1	034010 034007 0   0   777777777777 0            000000034007 
ST2	034010 034007 0   0   777777777777 0            000000034007 
ST9	034010 034007 0   0   777777777777 0            000000034007 


*034010 AOJ 	17,034010
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034010 034010 0   0   340740034010 0            000000034010 
IT1	034010 0      0   0   340740034010 0            000000034010 
AT3	034010 0      0   0   000000034010 0            340740034010 
AT6	034010 034010 0   0   000000034010 0            340740034010 
FT1A	034010 034010 0   0   000000034010 0            000000034010 
FT2	034010 034010 0   0   0            0            000000034010 
FT2RQ	034010 034010 0   0   777777777777 0            000000034010 
FT3	034010 034010 0   0   777777777777 0            000000034010 
FT9	034011 034010 0   0   777777777777 0            000000034010 
ET0	034011 034010 0   0   0            0            000000034010 
ST1	034011 034010 0   0   0            0            000000034010 
ST2	034011 034010 0   0   0            0            000000034010 
ST9	034011 034010 0   0   0            0            000000034010 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 548
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0743

*034011 SOJ 	17,034011
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034011 034011 0   0   360740034011 0            000000034011 
IT1	034011 0      0   0   360740034011 0            000000034011 
AT3	034011 0      0   0   000000034011 0            360740034011 
AT6	034011 034011 0   0   000000034011 0            360740034011 
FT1A	034011 034011 0   0   000000034011 0            000000034011 
FT2	034011 034011 0   0   0            0            000000034011 
FT2RQ	034011 034011 0   0   0            0            000000034011 
FT3	034011 034011 0   0   0            0            000000034011 
FT9	034012 034011 0   0   0            0            000000034011 
ET0	034012 034011 0   0   777777777777 0            000000034011 
ST1	034012 034011 0   0   777777777777 0            000000034011 
ST2	034012 034011 0   0   777777777777 0            000000034011 
ST9	034012 034011 0   0   777777777777 0            000000034011 


*034012 AOJ 	17,034012
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034012 034012 0   0   340740034012 0            000000034012 
IT1	034012 0      0   0   340740034012 0            000000034012 
AT3	034012 0      0   0   000000034012 0            340740034012 
AT6	034012 034012 0   0   000000034012 0            340740034012 
FT1A	034012 034012 0   0   000000034012 0            000000034012 
FT2	034012 034012 0   0   0            0            000000034012 
FT2RQ	034012 034012 0   0   777777777777 0            000000034012 
FT3	034012 034012 0   0   777777777777 0            000000034012 
FT9	034013 034012 0   0   777777777777 0            000000034012 
ET0	034013 034012 0   0   0            0            000000034012 
ST1	034013 034012 0   0   0            0            000000034012 
ST2	034013 034012 0   0   0            0            000000034012 
ST9	034013 034012 0   0   0            0            000000034012 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 549
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0744

*034013 SOJ 	17,034013
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034013 034013 0   0   360740034013 0            000000034013 
IT1	034013 0      0   0   360740034013 0            000000034013 
AT3	034013 0      0   0   000000034013 0            360740034013 
AT6	034013 034013 0   0   000000034013 0            360740034013 
FT1A	034013 034013 0   0   000000034013 0            000000034013 
FT2	034013 034013 0   0   0            0            000000034013 
FT2RQ	034013 034013 0   0   0            0            000000034013 
FT3	034013 034013 0   0   0            0            000000034013 
FT9	034014 034013 0   0   0            0            000000034013 
ET0	034014 034013 0   0   777777777777 0            000000034013 
ST1	034014 034013 0   0   777777777777 0            000000034013 
ST2	034014 034013 0   0   777777777777 0            000000034013 
ST9	034014 034013 0   0   777777777777 0            000000034013 


*034014 AOJ 	17,034014
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034014 034014 0   0   340740034014 0            000000034014 
IT1	034014 0      0   0   340740034014 0            000000034014 
AT3	034014 0      0   0   000000034014 0            340740034014 
AT6	034014 034014 0   0   000000034014 0            340740034014 
FT1A	034014 034014 0   0   000000034014 0            000000034014 
FT2	034014 034014 0   0   0            0            000000034014 
FT2RQ	034014 034014 0   0   777777777777 0            000000034014 
FT3	034014 034014 0   0   777777777777 0            000000034014 
FT9	034015 034014 0   0   777777777777 0            000000034014 
ET0	034015 034014 0   0   0            0            000000034014 
ST1	034015 034014 0   0   0            0            000000034014 
ST2	034015 034014 0   0   0            0            000000034014 
ST9	034015 034014 0   0   0            0            000000034014 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 550
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0745

*034015 SOJ 	17,034015
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034015 034015 0   0   360740034015 0            000000034015 
IT1	034015 0      0   0   360740034015 0            000000034015 
AT3	034015 0      0   0   000000034015 0            360740034015 
AT6	034015 034015 0   0   000000034015 0            360740034015 
FT1A	034015 034015 0   0   000000034015 0            000000034015 
FT2	034015 034015 0   0   0            0            000000034015 
FT2RQ	034015 034015 0   0   0            0            000000034015 
FT3	034015 034015 0   0   0            0            000000034015 
FT9	034016 034015 0   0   0            0            000000034015 
ET0	034016 034015 0   0   777777777777 0            000000034015 
ST1	034016 034015 0   0   777777777777 0            000000034015 
ST2	034016 034015 0   0   777777777777 0            000000034015 
ST9	034016 034015 0   0   777777777777 0            000000034015 


*034016 AOJ 	17,034016
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034016 034016 0   0   340740034016 0            000000034016 
IT1	034016 0      0   0   340740034016 0            000000034016 
AT3	034016 0      0   0   000000034016 0            340740034016 
AT6	034016 034016 0   0   000000034016 0            340740034016 
FT1A	034016 034016 0   0   000000034016 0            000000034016 
FT2	034016 034016 0   0   0            0            000000034016 
FT2RQ	034016 034016 0   0   777777777777 0            000000034016 
FT3	034016 034016 0   0   777777777777 0            000000034016 
FT9	034017 034016 0   0   777777777777 0            000000034016 
ET0	034017 034016 0   0   0            0            000000034016 
ST1	034017 034016 0   0   0            0            000000034016 
ST2	034017 034016 0   0   0            0            000000034016 
ST9	034017 034016 0   0   0            0            000000034016 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 551
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0746

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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034017 034017 0   0   332000000017 0            0            
IT1	034017 0      0   0   332000000017 0            0            
AT3	034017 0      0   0   000000000017 0            332000000017 
AT6	034017 000017 0   0   000000000017 0            332000000017 
FT0	034017 000017 0   0   0            0            332000000017 
FT1A	034017 000017 0   0   0            0            0            
FT9	034020 000017 0   0   0            0            0            
ET0	034021 000017 0   0   0            0            0            
ST1A	034021 000017 0   0   0            0            0            
ST9	034021 000017 0   0   0            0            0            


*034021 JUMPA	0,034022
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034021 034021 0   0   324000034022 0            000000034022 
IT1	034021 0      0   0   324000034022 0            000000034022 
AT3	034021 0      0   0   000000034022 0            324000034022 
AT6	034021 034022 0   0   000000034022 0            324000034022 
FT1A	034021 034022 0   0   000000034022 0            000000034022 
FT2	034021 034022 0   0   0            0            000000034022 
FT2RQ	034021 034022 0   0   0            0            000000034022 
FT3	034021 034022 0   0   0            0            000000034022 
FT9	034022 034022 0   0   0            0            000000034022 
ET0	034022 034022 0   0   0            0            000000034022 
ST1A	034022 034022 0   0   0            0            000000034022 
ST9	034022 034022 0   0   0            0            000000034022 


*034022 JFCL	17,034023
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034022 034022 0   0   255740034023 0            000000034023 
IT1	034022 0      0   0   255740034023 0            000000034023 
AT3	034022 0      0   0   000000034023 0            255740034023 
AT6	034022 034023 0   0   000000034023 0            255740034023 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 552
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0747

FT1A	034022 034023 0   0   000000034023 0            000000034023 
FT9	034023 034023 0   0   000000034023 0            000000034023 
ET0	034023 034023 0   0   000000034023 0            000000034023 
ST1A	034023 034023 0   0   000000034023 0            000000034023 
ST9	034023 034023 0   0   000000034023 0            000000034023 


*034023 MOVEI	0,000001
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034023 034023 0   0   201000000001 0            000000000001 
IT1	034023 0      0   0   201000000001 0            000000000001 
AT3	034023 0      0   0   000000000001 0            201000000001 
AT6	034023 000001 0   0   000000000001 0            201000000001 
FT1A	034023 000001 0   0   000000000001 0            000000000001 
FT9	034024 000001 0   0   000000000001 0            000000000001 
ET0	034024 000001 0   0   000000000001 0            000000000001 
ST1	034024 000001 0   0   000000000001 0            000000000001 
ST2	034024 000001 0   0   000000000001 0            000000000001 
ST9	034024 000001 0   0   000000000001 0            000000000001 


*034024 SOJ 	0,000000
INITIAL
C(AC)=000000 000001 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034024 034024 0   0   360000000000 0            0            
IT1	034024 0      0   0   360000000000 0            0            
AT3	034024 0      0   0   0            0            360000000000 
AT6	034024 0      0   0   0            0            360000000000 
FT1A	034024 0      0   0   0            0            0            
FT2	034024 0      0   0   0            0            0            
FT2RQ	034024 0      0   0   000000000001 0            0            
FT3	034024 0      0   0   000000000001 0            0            
FT9	034025 0      0   0   000000000001 0            0            
ET0	034025 0      0   0   0            0            0            
ST1	034025 0      0   0   0            0            0            
ST2	034025 0      0   0   0            0            0            
ST9	034025 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 553
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0748

*034025 JFCL	4,034027
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034025 034025 0   0   255200034027 0            000000034027 
IT1	034025 0      0   0   255200034027 0            000000034027 
AT3	034025 0      0   0   000000034027 0            255200034027 
AT6	034025 034027 0   0   000000034027 0            255200034027 
FT1A	034025 034027 0   0   000000034027 0            000000034027 
FT9	034026 034027 0   0   000000034027 0            000000034027 
ET0	034027 034027 0   0   000000034027 0            000000034027 
ST1A	034027 034027 0   0   000000034027 0            000000034027 
ST9	034027 034027 0   0   000000034027 0            000000034027 


*034027 JUMPA	0,034030
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034027 034027 0   0   324000034030 0            000000034030 
IT1	034027 0      0   0   324000034030 0            000000034030 
AT3	034027 0      0   0   000000034030 0            324000034030 
AT6	034027 034030 0   0   000000034030 0            324000034030 
FT1A	034027 034030 0   0   000000034030 0            000000034030 
FT2	034027 034030 0   0   0            0            000000034030 
FT2RQ	034027 034030 0   0   0            0            000000034030 
FT3	034027 034030 0   0   0            0            000000034030 
FT9	034030 034030 0   0   0            0            000000034030 
ET0	034030 034030 0   0   0            0            000000034030 
ST1A	034030 034030 0   0   0            0            000000034030 
ST9	034030 034030 0   0   0            0            000000034030 


*034030 JFCL	2,034032
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034030 034030 0   0   255100034032 0            000000034032 
IT1	034030 0      0   0   255100034032 0            000000034032 
AT3	034030 0      0   0   000000034032 0            255100034032 
AT6	034030 034032 0   0   000000034032 0            255100034032 
FT1A	034030 034032 0   0   000000034032 0            000000034032 
FT9	034031 034032 0   0   000000034032 0            000000034032 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 554
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0749

ET0	034032 034032 0   0   000000034032 0            000000034032 
ST1A	034032 034032 0   0   000000034032 0            000000034032 
ST9	034032 034032 0   0   000000034032 0            000000034032 


*034032 JUMPA	0,034033
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034032 034032 0   0   324000034033 0            000000034033 
IT1	034032 0      0   0   324000034033 0            000000034033 
AT3	034032 0      0   0   000000034033 0            324000034033 
AT6	034032 034033 0   0   000000034033 0            324000034033 
FT1A	034032 034033 0   0   000000034033 0            000000034033 
FT2	034032 034033 0   0   0            0            000000034033 
FT2RQ	034032 034033 0   0   0            0            000000034033 
FT3	034032 034033 0   0   0            0            000000034033 
FT9	034033 034033 0   0   0            0            000000034033 
ET0	034033 034033 0   0   0            0            000000034033 
ST1A	034033 034033 0   0   0            0            000000034033 
ST9	034033 034033 0   0   0            0            000000034033 


*034033 JFCL	10,034035
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034033 034033 0   0   255400034035 0            000000034035 
IT1	034033 0      0   0   255400034035 0            000000034035 
AT3	034033 0      0   0   000000034035 0            255400034035 
AT6	034033 034035 0   0   000000034035 0            255400034035 
FT1A	034033 034035 0   0   000000034035 0            000000034035 
FT9	034034 034035 0   0   000000034035 0            000000034035 
ET0	034034 034035 0   0   000000034035 0            000000034035 
ST1A	034034 034035 0   0   000000034035 0            000000034035 
ST9	034034 034035 0   0   000000034035 0            000000034035 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 555
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0750

*034034 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	034034 034034 0   0   334000000000 0            0            
IT1	034034 0      0   0   334000000000 0            0            
AT3	034034 0      0   0   0            0            334000000000 
AT6	034034 0      0   0   0            0            334000000000 
FT0	034034 0      0   0   0            0            334000000000 
FT1A	034034 0      0   0   0            0            0            
FT9	034035 0      0   0   0            0            0            
ET0	034036 0      0   0   0            0            0            
ST1A	034036 0      0   0   0            0            0            
ST9	034036 0      0   0   0            0            0            


*034036 JUMPA	0,034037
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034036 034036 0   0   324000034037 0            000000034037 
IT1	034036 0      0   0   324000034037 0            000000034037 
AT3	034036 0      0   0   000000034037 0            324000034037 
AT6	034036 034037 0   0   000000034037 0            324000034037 
FT1A	034036 034037 0   0   000000034037 0            000000034037 
FT2	034036 034037 0   0   0            0            000000034037 
FT2RQ	034036 034037 0   0   0            0            000000034037 
FT3	034036 034037 0   0   0            0            000000034037 
FT9	034037 034037 0   0   0            0            000000034037 
ET0	034037 034037 0   0   0            0            000000034037 
ST1A	034037 034037 0   0   0            0            000000034037 
ST9	034037 034037 0   0   0            0            000000034037 


*034037 JFCL	1,034041
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034037 034037 0   0   255040034041 0            000000034041 
IT1	034037 0      0   0   255040034041 0            000000034041 
AT3	034037 0      0   0   000000034041 0            255040034041 
AT6	034037 034041 0   0   000000034041 0            255040034041 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 556
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0751

FT1A	034037 034041 0   0   000000034041 0            000000034041 
FT9	034040 034041 0   0   000000034041 0            000000034041 
ET0	034040 034041 0   0   000000034041 0            000000034041 
ST1A	034040 034041 0   0   000000034041 0            000000034041 
ST9	034040 034041 0   0   000000034041 0            000000034041 


*034040 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	034040 034040 0   0   334000000000 0            0            
IT1	034040 0      0   0   334000000000 0            0            
AT3	034040 0      0   0   0            0            334000000000 
AT6	034040 0      0   0   0            0            334000000000 
FT0	034040 0      0   0   0            0            334000000000 
FT1A	034040 0      0   0   0            0            0            
FT9	034041 0      0   0   0            0            0            
ET0	034042 0      0   0   0            0            0            
ST1A	034042 0      0   0   0            0            0            
ST9	034042 0      0   0   0            0            0            


*034042 JUMPA	0,034043
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034042 034042 0   0   324000034043 0            000000034043 
IT1	034042 0      0   0   324000034043 0            000000034043 
AT3	034042 0      0   0   000000034043 0            324000034043 
AT6	034042 034043 0   0   000000034043 0            324000034043 
FT1A	034042 034043 0   0   000000034043 0            000000034043 
FT2	034042 034043 0   0   0            0            000000034043 
FT2RQ	034042 034043 0   0   0            0            000000034043 
FT3	034042 034043 0   0   0            0            000000034043 
FT9	034043 034043 0   0   0            0            000000034043 
ET0	034043 034043 0   0   0            0            000000034043 
ST1A	034043 034043 0   0   0            0            000000034043 
ST9	034043 034043 0   0   0            0            000000034043 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 557
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0752

*034043 JFCL	17,034044
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034043 034043 0   0   255740034044 0            000000034044 
IT1	034043 0      0   0   255740034044 0            000000034044 
AT3	034043 0      0   0   000000034044 0            255740034044 
AT6	034043 034044 0   0   000000034044 0            255740034044 
FT1A	034043 034044 0   0   000000034044 0            000000034044 
FT9	034044 034044 0   0   000000034044 0            000000034044 
ET0	034044 034044 0   0   000000034044 0            000000034044 
ST1A	034044 034044 0   0   000000034044 0            000000034044 
ST9	034044 034044 0   0   000000034044 0            000000034044 


*034044 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	034044 034044 0   0   474000000000 0            0            
IT1	034044 0      0   0   474000000000 0            0            
AT3	034044 0      0   0   0            0            474000000000 
AT6	034044 0      0   0   0            0            474000000000 
FT1A	034044 0      0   0   0            0            0            
FT9	034045 0      0   0   0            0            0            
ET0	034045 0      0   0   777777777777 0            0            
ST1	034045 0      0   0   777777777777 0            0            
ST2	034045 0      0   0   777777777777 0            0            
ST9	034045 0      0   0   777777777777 0            0            


*034045 AOJ 	0,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034045 034045 0   0   340000000000 0            0            
IT1	034045 0      0   0   340000000000 0            0            
AT3	034045 0      0   0   0            0            340000000000 
AT6	034045 0      0   0   0            0            340000000000 
FT1A	034045 0      0   0   0            0            0            
FT2	034045 0      0   0   0            0            0            
FT2RQ	034045 0      0   0   777777777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 558
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0753

FT3	034045 0      0   0   777777777777 0            0            
FT9	034046 0      0   0   777777777777 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 JFCL	4,034050
INITIAL
C(AC)=000000 000004 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034046 034046 0   0   255200034050 0            000000034050 
IT1	034046 0      0   0   255200034050 0            000000034050 
AT3	034046 0      0   0   000000034050 0            255200034050 
AT6	034046 034050 0   0   000000034050 0            255200034050 
FT1A	034046 034050 0   0   000000034050 0            000000034050 
FT9	034047 034050 0   0   000000034050 0            000000034050 
ET0	034050 034050 0   0   000000034050 0            000000034050 
ST1A	034050 034050 0   0   000000034050 0            000000034050 
ST9	034050 034050 0   0   000000034050 0            000000034050 


*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 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 559
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0754

*034051 JFCL	2,034053
INITIAL
C(AC)=000000 000002 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034051 034051 0   0   255100034053 0            000000034053 
IT1	034051 0      0   0   255100034053 0            000000034053 
AT3	034051 0      0   0   000000034053 0            255100034053 
AT6	034051 034053 0   0   000000034053 0            255100034053 
FT1A	034051 034053 0   0   000000034053 0            000000034053 
FT9	034052 034053 0   0   000000034053 0            000000034053 
ET0	034053 034053 0   0   000000034053 0            000000034053 
ST1A	034053 034053 0   0   000000034053 0            000000034053 
ST9	034053 034053 0   0   000000034053 0            000000034053 


*034053 JUMPA	0,034054
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034053 034053 0   0   324000034054 0            000000034054 
IT1	034053 0      0   0   324000034054 0            000000034054 
AT3	034053 0      0   0   000000034054 0            324000034054 
AT6	034053 034054 0   0   000000034054 0            324000034054 
FT1A	034053 034054 0   0   000000034054 0            000000034054 
FT2	034053 034054 0   0   0            0            000000034054 
FT2RQ	034053 034054 0   0   0            0            000000034054 
FT3	034053 034054 0   0   0            0            000000034054 
FT9	034054 034054 0   0   0            0            000000034054 
ET0	034054 034054 0   0   0            0            000000034054 
ST1A	034054 034054 0   0   0            0            000000034054 
ST9	034054 034054 0   0   0            0            000000034054 


*034054 JFCL	10,034056
INITIAL
C(AC)=000000 000010 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034054 034054 0   0   255400034056 0            000000034056 
IT1	034054 0      0   0   255400034056 0            000000034056 
AT3	034054 0      0   0   000000034056 0            255400034056 
AT6	034054 034056 0   0   000000034056 0            255400034056 
FT1A	034054 034056 0   0   000000034056 0            000000034056 
FT9	034055 034056 0   0   000000034056 0            000000034056 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 560
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0755

ET0	034055 034056 0   0   000000034056 0            000000034056 
ST1A	034055 034056 0   0   000000034056 0            000000034056 
ST9	034055 034056 0   0   000000034056 0            000000034056 


*034055 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	034055 034055 0   0   334000000000 0            0            
IT1	034055 0      0   0   334000000000 0            0            
AT3	034055 0      0   0   0            0            334000000000 
AT6	034055 0      0   0   0            0            334000000000 
FT0	034055 0      0   0   0            0            334000000000 
FT1A	034055 0      0   0   0            0            0            
FT9	034056 0      0   0   0            0            0            
ET0	034057 0      0   0   0            0            0            
ST1A	034057 0      0   0   0            0            0            
ST9	034057 0      0   0   0            0            0            


*034057 JUMPA	0,034060
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034057 034057 0   0   324000034060 0            000000034060 
IT1	034057 0      0   0   324000034060 0            000000034060 
AT3	034057 0      0   0   000000034060 0            324000034060 
AT6	034057 034060 0   0   000000034060 0            324000034060 
FT1A	034057 034060 0   0   000000034060 0            000000034060 
FT2	034057 034060 0   0   0            0            000000034060 
FT2RQ	034057 034060 0   0   0            0            000000034060 
FT3	034057 034060 0   0   0            0            000000034060 
FT9	034060 034060 0   0   0            0            000000034060 
ET0	034060 034060 0   0   0            0            000000034060 
ST1A	034060 034060 0   0   0            0            000000034060 
ST9	034060 034060 0   0   0            0            000000034060 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 561
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0756

*034060 JFCL	1,034062
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034060 034060 0   0   255040034062 0            000000034062 
IT1	034060 0      0   0   255040034062 0            000000034062 
AT3	034060 0      0   0   000000034062 0            255040034062 
AT6	034060 034062 0   0   000000034062 0            255040034062 
FT1A	034060 034062 0   0   000000034062 0            000000034062 
FT9	034061 034062 0   0   000000034062 0            000000034062 
ET0	034061 034062 0   0   000000034062 0            000000034062 
ST1A	034061 034062 0   0   000000034062 0            000000034062 
ST9	034061 034062 0   0   000000034062 0            000000034062 


*034061 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	034061 034061 0   0   334000000000 0            0            
IT1	034061 0      0   0   334000000000 0            0            
AT3	034061 0      0   0   0            0            334000000000 
AT6	034061 0      0   0   0            0            334000000000 
FT0	034061 0      0   0   0            0            334000000000 
FT1A	034061 0      0   0   0            0            0            
FT9	034062 0      0   0   0            0            0            
ET0	034063 0      0   0   0            0            0            
ST1A	034063 0      0   0   0            0            0            
ST9	034063 0      0   0   0            0            0            


*034063 JUMPA	0,034064
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034063 034063 0   0   324000034064 0            000000034064 
IT1	034063 0      0   0   324000034064 0            000000034064 
AT3	034063 0      0   0   000000034064 0            324000034064 
AT6	034063 034064 0   0   000000034064 0            324000034064 
FT1A	034063 034064 0   0   000000034064 0            000000034064 
FT2	034063 034064 0   0   0            0            000000034064 
FT2RQ	034063 034064 0   0   0            0            000000034064 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 562
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0757

FT3	034063 034064 0   0   0            0            000000034064 
FT9	034064 034064 0   0   0            0            000000034064 
ET0	034064 034064 0   0   0            0            000000034064 
ST1A	034064 034064 0   0   0            0            000000034064 
ST9	034064 034064 0   0   0            0            000000034064 


*034064 SETOB	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034064 034064 0   0   477000000001 0            000000000001 
IT1	034064 0      0   0   477000000001 0            000000000001 
AT3	034064 0      0   0   000000000001 0            477000000001 
AT6	034064 000001 0   0   000000000001 0            477000000001 
FT1A	034064 000001 0   0   000000000001 0            000000000001 
FT9	034065 000001 0   0   000000000001 0            000000000001 
ET0	034065 000001 0   0   777777777777 0            000000000001 
ST1	034065 000001 0   0   777777777777 0            000000000001 
ST2	034065 000001 0   0   777777777777 0            000000000001 
ST6	034065 000001 0   0   777777777777 0            000000000001 
ST6A	034065 000001 0   0   777777777777 0            000000000001 
ST9	034065 000001 0   0   777777777777 0            000000000001 


*034065 ADDM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL

C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034065 034065 0   0   272000000001 0            777777777777 
IT1	034065 0      0   0   272000000001 0            777777777777 
AT3	034065 0      0   0   000000000001 0            272000000001 
AT6	034065 000001 0   0   000000000001 0            272000000001 
FT0	034065 000001 0   0   777777777777 0            272000000001 
FT1A	034065 000001 0   0   777777777777 0            777777777777 
FT2	034065 000001 0   0   0            0            777777777777 
FT2RQ	034065 000001 0   0   777777777777 0            777777777777 
FT3	034065 000001 0   0   777777777777 0            777777777777 
FT9	034066 000001 0   0   777777777777 0            777777777777 
ET0	034066 000001 0   0   777777777776 0            777777777777 
ST5	034066 000001 0   0   777777777776 0            777777777777 
ST6A	034066 000001 0   0   777777777776 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 563
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0758

ST9	034066 000001 0   0   777777777776 0            777777777777 


*034066 CAME	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034066 034066 0   0   312000034466 0            777777777777 
IT1	034066 0      0   0   312000034466 0            777777777777 
AT3	034066 0      0   0   000000034466 0            312000034466 
AT6	034066 034466 0   0   000000034466 0            312000034466 
FT0	034066 034466 0   0   777777777777 0            312000034466 
FT1A	034066 034466 0   0   777777777777 0            777777777777 
FT2	034066 034466 0   0   0            0            777777777777 
FT2RQ	034066 034466 0   0   777777777777 0            777777777777 
FT3	034066 034466 0   0   777777777777 0            777777777777 
FT9	034067 034466 0   0   777777777777 0            777777777777 
ET0	034070 034466 0   0   0            0            777777777777 
ST1A	034070 034466 0   0   0            0            777777777777 
ST9	034070 034466 0   0   0            0            777777777777 


*034070 JUMPA	0,034071
INITIAL
C(AC)=777777 777777 
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   777777777777 0            000000034071 
FT3	034070 034071 0   0   777777777777 0            000000034071 
FT9	034071 034071 0   0   777777777777 0            000000034071 
ET0	034071 034071 0   0   777777777777 0            000000034071 
ST1A	034071 034071 0   0   777777777777 0            000000034071 
ST9	034071 034071 0   0   777777777777 0            000000034071 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 564
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0759

*034071 MOVEI	0,777777
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034071 034071 0   0   201000777777 0            000000777777 
IT1	034071 0      0   0   201000777777 0            000000777777 
AT3	034071 0      0   0   000000777777 0            201000777777 
AT6	034071 777777 0   0   000000777777 0            201000777777 
FT1A	034071 777777 0   0   000000777777 0            000000777777 
FT9	034072 777777 0   0   000000777777 0            000000777777 
ET0	034072 777777 0   0   000000777777 0            000000777777 
ST1	034072 777777 0   0   000000777777 0            000000777777 
ST2	034072 777777 0   0   000000777777 0            000000777777 
ST9	034072 777777 0   0   000000777777 0            000000777777 


*034072 HRREM	0,000001
INITIAL
C(AC)=000000 777777 
C(E)=777777 777776 
FINAL

C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034072 034072 0   0   572000000001 0            777777777776 
IT1	034072 0      0   0   572000000001 0            777777777776 
AT3	034072 0      0   0   000000000001 0            572000000001 
AT6	034072 000001 0   0   000000000001 0            572000000001 
FT0	034072 000001 0   0   777777777776 0            572000000001 
FT1A	034072 000001 0   0   777777777776 0            777777777776 
FT2	034072 000001 0   0   0            0            777777777776 
FT2RQ	034072 000001 0   0   000000777777 0            777777777776 
FT3	034072 000001 0   0   000000777777 0            777777777776 
FT9	034073 000001 0   0   000000777777 0            777777777776 
ET0	034073 000001 0   0   777777777777 0            777777777776 
ST5	034073 000001 0   0   777777777777 0            777777777776 
ST6A	034073 000001 0   0   777777777777 0            777777777776 
ST9	034073 000001 0   0   777777777777 0            777777777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 565
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0760

*034073 CAIE	0,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034073 034073 0   0   302000777777 0            000000777777 
IT1	034073 0      0   0   302000777777 0            000000777777 
AT3	034073 0      0   0   000000777777 0            302000777777 
AT6	034073 777777 0   0   000000777777 0            302000777777 
FT1A	034073 777777 0   0   000000777777 0            000000777777 
FT2	034073 777777 0   0   0            0            000000777777 
FT2RQ	034073 777777 0   0   000000777777 0            000000777777 
FT3	034073 777777 0   0   000000777777 0            000000777777 
FT9	034074 777777 0   0   000000777777 0            000000777777 
ET0	034075 777777 0   0   0            0            000000777777 
ST1A	034075 777777 0   0   0            0            000000777777 
ST9	034075 777777 0   0   0            0            000000777777 


*034075 JUMPA	0,034076
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034075 034075 0   0   324000034076 0            000000034076 
IT1	034075 0      0   0   324000034076 0            000000034076 
AT3	034075 0      0   0   000000034076 0            324000034076 
AT6	034075 034076 0   0   000000034076 0            324000034076 
FT1A	034075 034076 0   0   000000034076 0            000000034076 
FT2	034075 034076 0   0   0            0            000000034076 
FT2RQ	034075 034076 0   0   000000777777 0            000000034076 
FT3	034075 034076 0   0   000000777777 0            000000034076 
FT9	034076 034076 0   0   000000777777 0            000000034076 
ET0	034076 034076 0   0   000000777777 0            000000034076 
ST1A	034076 034076 0   0   000000777777 0            000000034076 
ST9	034076 034076 0   0   000000777777 0            000000034076 


*034076 MOVEI	0,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034076 034076 0   0   201000777777 0            000000777777 
IT1	034076 0      0   0   201000777777 0            000000777777 
AT3	034076 0      0   0   000000777777 0            201000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 566
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0761

AT6	034076 777777 0   0   000000777777 0            201000777777 
FT1A	034076 777777 0   0   000000777777 0            000000777777 
FT9	034077 777777 0   0   000000777777 0            000000777777 
ET0	034077 777777 0   0   000000777777 0            000000777777 
ST1	034077 777777 0   0   000000777777 0            000000777777 
ST2	034077 777777 0   0   000000777777 0            000000777777 
ST9	034077 777777 0   0   000000777777 0            000000777777 


*034077 MOVSM	0,000001
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL

C(E)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034077 034077 0   0   206000000001 0            000000000001 
IT1	034077 0      0   0   206000000001 0            000000000001 
AT3	034077 0      0   0   000000000001 0            206000000001 
AT6	034077 000001 0   0   000000000001 0            206000000001 
FT1A	034077 000001 0   0   000000000001 0            000000000001 
FT2	034077 000001 0   0   0            0            000000000001 
FT2RQ	034077 000001 0   0   000000777777 0            000000000001 
FT3	034077 000001 0   0   000000777777 0            000000000001 
FT9	0      000001 0   0   000000777777 0            000000000001 
ET0	0      000001 0   0   777777000000 0            000000000001 
ST6	0      000001 0   0   777777000000 0            000000000001 
ST6A	0      000001 0   0   777777000000 0            000000000001 
ST9	0      000001 0   0   777777000000 0            000000000001 


*034100 CAIE	0,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   302000777777 0            000000777777 
IT1	0      0      0   0   302000777777 0            000000777777 
AT3	0      0      0   0   000000777777 0            302000777777 
AT6	0      777777 0   0   000000777777 0            302000777777 
FT1A	0      777777 0   0   000000777777 0            000000777777 
FT2	0      777777 0   0   0            0            000000777777 
FT2RQ	0      777777 0   0   000000777777 0            000000777777 
FT3	0      777777 0   0   000000777777 0            000000777777 
FT9	034101 777777 0   0   000000777777 0            000000777777 
ET0	034102 777777 0   0   0            0            000000777777 
ST1A	034102 777777 0   0   0            0            000000777777 
ST9	034102 777777 0   0   0            0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 567
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0762



*034102 JUMPA	0,034103
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034102 034102 0   0   324000034103 0            000000034103 
IT1	034102 0      0   0   324000034103 0            000000034103 
AT3	034102 0      0   0   000000034103 0            324000034103 
AT6	034102 034103 0   0   000000034103 0            324000034103 
FT1A	034102 034103 0   0   000000034103 0            000000034103 
FT2	034102 034103 0   0   0            0            000000034103 
FT2RQ	034102 034103 0   0   000000777777 0            000000034103 
FT3	034102 034103 0   0   000000777777 0            000000034103 
FT9	034103 034103 0   0   000000777777 0            000000034103 
ET0	034103 034103 0   0   000000777777 0            000000034103 
ST1A	034103 034103 0   0   000000777777 0            000000034103 
ST9	034103 034103 0   0   000000777777 0            000000034103 


*034103 SETOB	0,000001
INITIAL
C(AC)=000000 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 
C(E)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034103 034103 0   0   477000000001 0            000000000001 
IT1	034103 0      0   0   477000000001 0            000000000001 
AT3	034103 0      0   0   000000000001 0            477000000001 
AT6	034103 000001 0   0   000000000001 0            477000000001 
FT1A	034103 000001 0   0   000000000001 0            000000000001 
FT9	034104 000001 0   0   000000000001 0            000000000001 
ET0	034104 000001 0   0   777777777777 0            000000000001 
ST1	034104 000001 0   0   777777777777 0            000000000001 
ST2	034104 000001 0   0   777777777777 0            000000000001 
ST6	034104 000001 0   0   777777777777 0            000000000001 
ST6A	034104 000001 0   0   777777777777 0            000000000001 
ST9	034104 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 568
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0763

*034104 XORM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034104 034104 0   0   432000000001 0            777777777777 
IT1	034104 0      0   0   432000000001 0            777777777777 
AT3	034104 0      0   0   000000000001 0            432000000001 
AT6	034104 000001 0   0   000000000001 0            432000000001 
FT0	034104 000001 0   0   777777777777 0            432000000001 
FT1A	034104 000001 0   0   777777777777 0            777777777777 
FT2	034104 000001 0   0   0            0            777777777777 
FT2RQ	034104 000001 0   0   777777777777 0            777777777777 
FT3	034104 000001 0   0   777777777777 0            777777777777 
FT9	034105 000001 0   0   777777777777 0            777777777777 
ET0	034105 000001 0   0   0            0            777777777777 
ST5	034105 000001 0   0   0            0            777777777777 
ST6A	034105 000001 0   0   0            0            777777777777 
ST9	034105 000001 0   0   0            0            777777777777 


*034105 CAME	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034105 034105 0   0   312000034466 0            777777777777 
IT1	034105 0      0   0   312000034466 0            777777777777 
AT3	034105 0      0   0   000000034466 0            312000034466 
AT6	034105 034466 0   0   000000034466 0            312000034466 
FT0	034105 034466 0   0   777777777777 0            312000034466 
FT1A	034105 034466 0   0   777777777777 0            777777777777 
FT2	034105 034466 0   0   0            0            777777777777 
FT2RQ	034105 034466 0   0   777777777777 0            777777777777 
FT3	034105 034466 0   0   777777777777 0            777777777777 
FT9	034106 034466 0   0   777777777777 0            777777777777 
ET0	034107 034466 0   0   0            0            777777777777 
ST1A	034107 034466 0   0   0            0            777777777777 
ST9	034107 034466 0   0   0            0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 569
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0764

*034107 JUMPA	0,034110
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034107 034107 0   0   324000034110 0            000000034110 
IT1	034107 0      0   0   324000034110 0            000000034110 
AT3	034107 0      0   0   000000034110 0            324000034110 
AT6	034107 034110 0   0   000000034110 0            324000034110 
FT1A	034107 034110 0   0   000000034110 0            000000034110 
FT2	034107 034110 0   0   0            0            000000034110 
FT2RQ	034107 034110 0   0   777777777777 0            000000034110 
FT3	034107 034110 0   0   777777777777 0            000000034110 
FT9	034110 034110 0   0   777777777777 0            000000034110 
ET0	034110 034110 0   0   777777777777 0            000000034110 
ST1A	034110 034110 0   0   777777777777 0            000000034110 
ST9	034110 034110 0   0   777777777777 0            000000034110 


*034110 SETOB	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034110 034110 0   0   477000000001 0            000000000001 
IT1	034110 0      0   0   477000000001 0            000000000001 
AT3	034110 0      0   0   000000000001 0            477000000001 
AT6	034110 000001 0   0   000000000001 0            477000000001 
FT1A	034110 000001 0   0   000000000001 0            000000000001 
FT9	034111 000001 0   0   000000000001 0            000000000001 
ET0	034111 000001 0   0   777777777777 0            000000000001 
ST1	034111 000001 0   0   777777777777 0            000000000001 
ST2	034111 000001 0   0   777777777777 0            000000000001 
ST6	034111 000001 0   0   777777777777 0            000000000001 
ST6A	034111 000001 0   0   777777777777 0            000000000001 
ST9	034111 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 570
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0765

*034111 ADDB	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777776 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034111 034111 0   0   273000000001 0            777777777777 
IT1	034111 0      0   0   273000000001 0            777777777777 
AT3	034111 0      0   0   000000000001 0            273000000001 
AT6	034111 000001 0   0   000000000001 0            273000000001 
FT0	034111 000001 0   0   777777777777 0            273000000001 
FT1A	034111 000001 0   0   777777777777 0            777777777777 
FT2	034111 000001 0   0   0            0            777777777777 
FT2RQ	034111 000001 0   0   777777777777 0            777777777777 
FT3	034111 000001 0   0   777777777777 0            777777777777 
FT9	034112 000001 0   0   777777777777 0            777777777777 
ET0	034112 000001 0   0   777777777776 0            777777777777 
ST1	034112 000001 0   0   777777777776 0            777777777777 
ST2	034112 000001 0   0   777777777776 0            777777777777 
ST5	034112 000001 0   0   777777777776 0            777777777777 
ST6A	034112 000001 0   0   777777777776 0            777777777777 
ST9	034112 000001 0   0   777777777776 0            777777777777 


*034112 CAME	0,000001
INITIAL
C(AC)=777777 777776 
C(E)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034112 034112 0   0   312000000001 0            777777777776 
IT1	034112 0      0   0   312000000001 0            777777777776 
AT3	034112 0      0   0   000000000001 0            312000000001 
AT6	034112 000001 0   0   000000000001 0            312000000001 
FT0	034112 000001 0   0   777777777776 0            312000000001 
FT1A	034112 000001 0   0   777777777776 0            777777777776 
FT2	034112 000001 0   0   0            0            777777777776 
FT2RQ	034112 000001 0   0   777777777776 0            777777777776 
FT3	034112 000001 0   0   777777777776 0            777777777776 
FT9	034113 000001 0   0   777777777776 0            777777777776 
ET0	034114 000001 0   0   0            0            777777777776 
ST1A	034114 000001 0   0   0            0            777777777776 
ST9	034114 000001 0   0   0            0            777777777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 571
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0766

*034114 JUMPA	0,034115
INITIAL
C(AC)=777777 777776 
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   777777777776 0            000000034115 
FT3	034114 034115 0   0   777777777776 0            000000034115 
FT9	034115 034115 0   0   777777777776 0            000000034115 
ET0	034115 034115 0   0   777777777776 0            000000034115 
ST1A	034115 034115 0   0   777777777776 0            000000034115 
ST9	034115 034115 0   0   777777777776 0            000000034115 


*034115 CAME	0,034467
INITIAL
C(AC)=777777 777776 
C(E)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034115 034115 0   0   312000034467 0            777777777776 
IT1	034115 0      0   0   312000034467 0            777777777776 
AT3	034115 0      0   0   000000034467 0            312000034467 
AT6	034115 034467 0   0   000000034467 0            312000034467 
FT0	034115 034467 0   0   777777777776 0            312000034467 
FT1A	034115 034467 0   0   777777777776 0            777777777776 
FT2	034115 034467 0   0   0            0            777777777776 
FT2RQ	034115 034467 0   0   777777777776 0            777777777776 
FT3	034115 034467 0   0   777777777776 0            777777777776 
FT9	034116 034467 0   0   777777777776 0            777777777776 
ET0	034117 034467 0   0   0            0            777777777776 
ST1A	034117 034467 0   0   0            0            777777777776 
ST9	034117 034467 0   0   0            0            777777777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 572
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0767

*034117 JUMPA	0,034120
INITIAL
C(AC)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034117 034117 0   0   324000034120 0            000000034120 
IT1	034117 0      0   0   324000034120 0            000000034120 
AT3	034117 0      0   0   000000034120 0            324000034120 
AT6	034117 034120 0   0   000000034120 0            324000034120 
FT1A	034117 034120 0   0   000000034120 0            000000034120 
FT2	034117 034120 0   0   0            0            000000034120 
FT2RQ	034117 034120 0   0   777777777776 0            000000034120 
FT3	034117 034120 0   0   777777777776 0            000000034120 
FT9	034120 034120 0   0   777777777776 0            000000034120 
ET0	034120 034120 0   0   777777777776 0            000000034120 
ST1A	034120 034120 0   0   777777777776 0            000000034120 
ST9	034120 034120 0   0   777777777776 0            000000034120 


*034120 SETOB	0,000001
INITIAL
C(AC)=777777 777776 
C(E)=777777 777776 
FINAL
C(AC)=777777 777777 
C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034120 034120 0   0   477000000001 0            000000000001 
IT1	034120 0      0   0   477000000001 0            000000000001 
AT3	034120 0      0   0   000000000001 0            477000000001 
AT6	034120 000001 0   0   000000000001 0            477000000001 
FT1A	034120 000001 0   0   000000000001 0            000000000001 
FT9	034121 000001 0   0   000000000001 0            000000000001 
ET0	034121 000001 0   0   777777777777 0            000000000001 
ST1	034121 000001 0   0   777777777777 0            000000000001 
ST2	034121 000001 0   0   777777777777 0            000000000001 
ST6	034121 000001 0   0   777777777777 0            000000000001 
ST6A	034121 000001 0   0   777777777777 0            000000000001 
ST9	034121 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 573
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0768

*034121 ADDM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL

C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034121 034121 0   0   272000000001 0            777777777777 
IT1	034121 0      0   0   272000000001 0            777777777777 
AT3	034121 0      0   0   000000000001 0            272000000001 
AT6	034121 000001 0   0   000000000001 0            272000000001 
FT0	034121 000001 0   0   777777777777 0            272000000001 
FT1A	034121 000001 0   0   777777777777 0            777777777777 
FT2	034121 000001 0   0   0            0            777777777777 
FT2RQ	034121 000001 0   0   777777777777 0            777777777777 
FT3	034121 000001 0   0   777777777777 0            777777777777 
FT9	034122 000001 0   0   777777777777 0            777777777777 
ET0	034122 000001 0   0   777777777776 0            777777777777 
ST5	034122 000001 0   0   777777777776 0            777777777777 
ST6A	034122 000001 0   0   777777777776 0            777777777777 
ST9	034122 000001 0   0   777777777776 0            777777777777 


*034122 CAME	1,034467
INITIAL
C(AC)=777777 777776 
C(E)=777777 777776 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034122 034122 0   0   312040034467 0            777777777776 
IT1	034122 0      0   0   312040034467 0            777777777776 
AT3	034122 0      0   0   000000034467 0            312040034467 
AT6	034122 034467 0   0   000000034467 0            312040034467 
FT0	034122 034467 0   0   777777777776 0            312040034467 
FT1A	034122 034467 0   0   777777777776 0            777777777776 
FT2	034122 034467 0   0   0            0            777777777776 
FT2RQ	034122 034467 0   0   777777777776 0            777777777776 
FT3	034122 034467 0   0   777777777776 0            777777777776 
FT9	034123 034467 0   0   777777777776 0            777777777776 
ET0	034124 034467 0   0   0            0            777777777776 
ST1A	034124 034467 0   0   0            0            777777777776 
ST9	034124 034467 0   0   0            0            777777777776 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 574
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0769

*034124 JUMPA	0,034125
INITIAL
C(AC)=777777 777777 
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   777777777777 0            000000034125 
FT3	034124 034125 0   0   777777777777 0            000000034125 
FT9	034125 034125 0   0   777777777777 0            000000034125 
ET0	034125 034125 0   0   777777777777 0            000000034125 
ST1A	034125 034125 0   0   777777777777 0            000000034125 
ST9	034125 034125 0   0   777777777777 0            000000034125 


*034125 SETZM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777776 
FINAL

C(E)=777777 777776 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034125 034125 0   0   402000000001 0            000000000001 
IT1	034125 0      0   0   402000000001 0            000000000001 
AT3	034125 0      0   0   000000000001 0            402000000001 
AT6	034125 000001 0   0   000000000001 0            402000000001 
FT1A	034125 000001 0   0   000000000001 0            000000000001 
FT9	034126 000001 0   0   000000000001 0            000000000001 
ET0	034126 000001 0   0   0            0            000000000001 
ST6	034126 000001 0   0   0            0            000000000001 
ST6A	034126 000001 0   0   0            0            000000000001 
ST9	034126 000001 0   0   0            0            000000000001 


*034126 HLLOS	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034126 034126 0   0   523000000001 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 575
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0770

IT1	034126 0      0   0   523000000001 0            0            
AT3	034126 0      0   0   000000000001 0            523000000001 
AT6	034126 000001 0   0   000000000001 0            523000000001 
FT0	034126 000001 0   0   0            0            523000000001 
FT1A	034126 000001 0   0   0            0            0            
FT9	034127 000001 0   0   0            0            0            
ET0	034127 000001 0   0   000000777777 0            0            
ST5	034127 000001 0   0   000000777777 0            0            
ST6A	034127 000001 0   0   000000777777 0            0            
ST9	034127 000001 0   0   000000777777 0            0            


*034127 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034127 034127 0   0   302040777777 0            000000777777 
IT1	034127 0      0   0   302040777777 0            000000777777 
AT3	034127 0      0   0   000000777777 0            302040777777 
AT6	034127 777777 0   0   000000777777 0            302040777777 
FT1A	034127 777777 0   0   000000777777 0            000000777777 
FT2	034127 777777 0   0   0            0            000000777777 
FT2RQ	034127 777777 0   0   000000777777 0            000000777777 
FT3	034127 777777 0   0   000000777777 0            000000777777 
FT9	034130 777777 0   0   000000777777 0            000000777777 
ET0	034131 777777 0   0   0            0            000000777777 
ST1A	034131 777777 0   0   0            0            000000777777 
ST9	034131 777777 0   0   0            0            000000777777 


*034131 JUMPA	0,034132
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034131 034131 0   0   324000034132 0            000000034132 
IT1	034131 0      0   0   324000034132 0            000000034132 
AT3	034131 0      0   0   000000034132 0            324000034132 
AT6	034131 034132 0   0   000000034132 0            324000034132 
FT1A	034131 034132 0   0   000000034132 0            000000034132 
FT2	034131 034132 0   0   0            0            000000034132 
FT2RQ	034131 034132 0   0   777777777777 0            000000034132 
FT3	034131 034132 0   0   777777777777 0            000000034132 
FT9	034132 034132 0   0   777777777777 0            000000034132 
ET0	034132 034132 0   0   777777777777 0            000000034132 
ST1A	034132 034132 0   0   777777777777 0            000000034132 
ST9	034132 034132 0   0   777777777777 0            000000034132 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 576
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0771



*034132 MOVSI	1,777777
INITIAL
C(AC)=000000 777777 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034132 034132 0   0   205040777777 0            000000777777 
IT1	034132 0      0   0   205040777777 0            000000777777 
AT3	034132 0      0   0   000000777777 0            205040777777 
AT6	034132 777777 0   0   000000777777 0            205040777777 
FT1A	034132 777777 0   0   000000777777 0            000000777777 
FT9	034133 777777 0   0   000000777777 0            000000777777 
ET0	034133 777777 0   0   777777000000 0            000000777777 
ST1	034133 777777 0   0   777777000000 0            000000777777 
ST2	034133 777777 0   0   777777000000 0            000000777777 
ST9	034133 777777 0   0   777777000000 0            000000777777 


*034133 MOVSS	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 000000 
FINAL
C(AC)=777777 777777 
C(E)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034133 034133 0   0   207000000001 0            777777000000 
IT1	034133 0      0   0   207000000001 0            777777000000 
AT3	034133 0      0   0   000000000001 0            207000000001 
AT6	034133 000001 0   0   000000000001 0            207000000001 
FT0	034133 000001 0   0   777777000000 0            207000000001 
FT1A	034133 000001 0   0   777777000000 0            777777000000 
FT9	034134 000001 0   0   777777000000 0            777777000000 
ET0	034134 000001 0   0   000000777777 0            777777000000 
ST5	034134 000001 0   0   000000777777 0            777777000000 
ST6A	034134 000001 0   0   000000777777 0            777777000000 
ST9	034134 000001 0   0   000000777777 0            777777000000 


*034134 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034134 034134 0   0   302040777777 0            000000777777 
IT1	034134 0      0   0   302040777777 0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 577
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0772

AT3	034134 0      0   0   000000777777 0            302040777777 
AT6	034134 777777 0   0   000000777777 0            302040777777 
FT1A	034134 777777 0   0   000000777777 0            000000777777 
FT2	034134 777777 0   0   0            0            000000777777 
FT2RQ	034134 777777 0   0   000000777777 0            000000777777 
FT3	034134 777777 0   0   000000777777 0            000000777777 
FT9	034135 777777 0   0   000000777777 0            000000777777 
ET0	034136 777777 0   0   0            0            000000777777 
ST1A	034136 777777 0   0   0            0            000000777777 
ST9	034136 777777 0   0   0            0            000000777777 


*034136 JUMPA	0,034137
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034136 034136 0   0   324000034137 0            000000034137 
IT1	034136 0      0   0   324000034137 0            000000034137 
AT3	034136 0      0   0   000000034137 0            324000034137 
AT6	034136 034137 0   0   000000034137 0            324000034137 
FT1A	034136 034137 0   0   000000034137 0            000000034137 
FT2	034136 034137 0   0   0            0            000000034137 
FT2RQ	034136 034137 0   0   777777777777 0            000000034137 
FT3	034136 034137 0   0   777777777777 0            000000034137 
FT9	034137 034137 0   0   777777777777 0            000000034137 
ET0	034137 034137 0   0   777777777777 0            000000034137 
ST1A	034137 034137 0   0   777777777777 0            000000034137 
ST9	034137 034137 0   0   777777777777 0            000000034137 


*034137 SETOB	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 777777 
FINAL
C(AC)=777777 777777 
C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034137 034137 0   0   477000000001 0            000000000001 
IT1	034137 0      0   0   477000000001 0            000000000001 
AT3	034137 0      0   0   000000000001 0            477000000001 
AT6	034137 000001 0   0   000000000001 0            477000000001 
FT1A	034137 000001 0   0   000000000001 0            000000000001 
FT9	034140 000001 0   0   000000000001 0            000000000001 
ET0	034140 000001 0   0   777777777777 0            000000000001 
ST1	034140 000001 0   0   777777777777 0            000000000001 
ST2	034140 000001 0   0   777777777777 0            000000000001 
ST6	034140 000001 0   0   777777777777 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 578
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0773

ST6A	034140 000001 0   0   777777777777 0            000000000001 
ST9	034140 000001 0   0   777777777777 0            000000000001 


*034140 AOS 	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=777777 777777 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034140 034140 0   0   350000000001 0            777777777777 
IT1	034140 0      0   0   350000000001 0            777777777777 
AT3	034140 0      0   0   000000000001 0            350000000001 
AT6	034140 000001 0   0   000000000001 0            350000000001 
FT0	034140 000001 0   0   777777777777 0            350000000001 
FT1A	034140 000001 0   0   777777777777 0            777777777777 
FT9	034141 000001 0   0   777777777777 0            777777777777 
ET0	034141 000001 0   0   0            0            777777777777 
ST5	034141 000001 0   0   0            0            777777777777 
ST6A	034141 000001 0   0   0            0            777777777777 
ST9	034141 000001 0   0   0            0            777777777777 


*034141 CAIE	1,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034141 034141 0   0   302040000000 0            0            
IT1	034141 0      0   0   302040000000 0            0            
AT3	034141 0      0   0   0            0            302040000000 
AT6	034141 0      0   0   0            0            302040000000 
FT1A	034141 0      0   0   0            0            0            
FT2	034141 0      0   0   0            0            0            
FT2RQ	034141 0      0   0   0            0            0            
FT3	034141 0      0   0   0            0            0            
FT9	034142 0      0   0   0            0            0            
ET0	034143 0      0   0   0            0            0            
ST1A	034143 0      0   0   0            0            0            
ST9	034143 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 579
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0774

*034143 JUMPA	0,034144
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034143 034143 0   0   324000034144 0            000000034144 
IT1	034143 0      0   0   324000034144 0            000000034144 
AT3	034143 0      0   0   000000034144 0            324000034144 
AT6	034143 034144 0   0   000000034144 0            324000034144 
FT1A	034143 034144 0   0   000000034144 0            000000034144 
FT2	034143 034144 0   0   0            0            000000034144 
FT2RQ	034143 034144 0   0   777777777777 0            000000034144 
FT3	034143 034144 0   0   777777777777 0            000000034144 
FT9	034144 034144 0   0   777777777777 0            000000034144 
ET0	034144 034144 0   0   777777777777 0            000000034144 
ST1A	034144 034144 0   0   777777777777 0            000000034144 
ST9	034144 034144 0   0   777777777777 0            000000034144 


*034144 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	034144 034144 0   0   400000000000 0            0            
IT1	034144 0      0   0   400000000000 0            0            
AT3	034144 0      0   0   0            0            400000000000 
AT6	034144 0      0   0   0            0            400000000000 
FT1A	034144 0      0   0   0            0            0            
FT9	034145 0      0   0   0            0            0            
ET0	034145 0      0   0   0            0            0            
ST1	034145 0      0   0   0            0            0            
ST2	034145 0      0   0   0            0            0            
ST9	034145 0      0   0   0            0            0            


*034145 SETO 	1,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034145 034145 0   0   474040000000 0            0            
IT1	034145 0      0   0   474040000000 0            0            
AT3	034145 0      0   0   0            0            474040000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 580
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0775

AT6	034145 0      0   0   0            0            474040000000 
FT1A	034145 0      0   0   0            0            0            
FT9	034146 0      0   0   0            0            0            
ET0	034146 0      0   0   777777777777 0            0            
ST1	034146 0      0   0   777777777777 0            0            
ST2	034146 0      0   0   777777777777 0            0            
ST9	034146 0      0   0   777777777777 0            0            


*034146 HRLM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL

C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034146 034146 0   0   506000000001 0            777777777777 
IT1	034146 0      0   0   506000000001 0            777777777777 
AT3	034146 0      0   0   000000000001 0            506000000001 
AT6	034146 000001 0   0   000000000001 0            506000000001 
FT0	034146 000001 0   0   777777777777 0            506000000001 
FT1A	034146 000001 0   0   777777777777 0            777777777777 
FT2	034146 000001 0   0   0            0            777777777777 
FT2RQ	034146 000001 0   0   0            0            777777777777 
FT3	034146 000001 0   0   0            0            777777777777 
FT9	034147 000001 0   0   0            0            777777777777 
ET0	034147 000001 0   0   000000777777 0            777777777777 
ST5	034147 000001 0   0   000000777777 0            777777777777 
ST6A	034147 000001 0   0   000000777777 0            777777777777 
ST9	034147 000001 0   0   000000777777 0            777777777777 


*034147 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034147 034147 0   0   302040777777 0            000000777777 
IT1	034147 0      0   0   302040777777 0            000000777777 
AT3	034147 0      0   0   000000777777 0            302040777777 
AT6	034147 777777 0   0   000000777777 0            302040777777 
FT1A	034147 777777 0   0   000000777777 0            000000777777 
FT2	034147 777777 0   0   0            0            000000777777 
FT2RQ	034147 777777 0   0   000000777777 0            000000777777 
FT3	034147 777777 0   0   000000777777 0            000000777777 
FT9	034150 777777 0   0   000000777777 0            000000777777 
ET0	034151 777777 0   0   0            0            000000777777 
ST1A	034151 777777 0   0   0            0            000000777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 581
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0776

ST9	034151 777777 0   0   0            0            000000777777 


*034151 JUMPA	0,034152
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034151 034151 0   0   324000034152 0            000000034152 
IT1	034151 0      0   0   324000034152 0            000000034152 
AT3	034151 0      0   0   000000034152 0            324000034152 
AT6	034151 034152 0   0   000000034152 0            324000034152 
FT1A	034151 034152 0   0   000000034152 0            000000034152 
FT2	034151 034152 0   0   0            0            000000034152 
FT2RQ	034151 034152 0   0   0            0            000000034152 
FT3	034151 034152 0   0   0            0            000000034152 
FT9	034152 034152 0   0   0            0            000000034152 
ET0	034152 034152 0   0   0            0            000000034152 
ST1A	034152 034152 0   0   0            0            000000034152 
ST9	034152 034152 0   0   0            0            000000034152 


*034152 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	034152 034152 0   0   474000000000 0            0            
IT1	034152 0      0   0   474000000000 0            0            
AT3	034152 0      0   0   0            0            474000000000 
AT6	034152 0      0   0   0            0            474000000000 
FT1A	034152 0      0   0   0            0            0            
FT9	034153 0      0   0   0            0            0            
ET0	034153 0      0   0   777777777777 0            0            
ST1	034153 0      0   0   777777777777 0            0            
ST2	034153 0      0   0   777777777777 0            0            
ST9	034153 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 582
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0777

*034153 SETZ 	1,000000
INITIAL
C(AC)=000000 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034153 034153 0   0   400040000000 0            0            
IT1	034153 0      0   0   400040000000 0            0            
AT3	034153 0      0   0   0            0            400040000000 
AT6	034153 0      0   0   0            0            400040000000 
FT1A	034153 0      0   0   0            0            0            
FT9	034154 0      0   0   0            0            0            
ET0	034154 0      0   0   0            0            0            
ST1	034154 0      0   0   0            0            0            
ST2	034154 0      0   0   0            0            0            
ST9	034154 0      0   0   0            0            0            


*034154 HRRS	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034154 034154 0   0   543000000001 0            0            
IT1	034154 0      0   0   543000000001 0            0            
AT3	034154 0      0   0   000000000001 0            543000000001 
AT6	034154 000001 0   0   000000000001 0            543000000001 
FT0	034154 000001 0   0   0            0            543000000001 
FT1A	034154 000001 0   0   0            0            0            
FT9	034155 000001 0   0   0            0            0            
ET0	034155 000001 0   0   0            0            0            
ST5	034155 000001 0   0   0            0            0            
ST6A	034155 000001 0   0   0            0            0            
ST9	034155 000001 0   0   0            0            0            


*034155 SKIPE	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034155 034155 0   0   332000000001 0            0            
IT1	034155 0      0   0   332000000001 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 583
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0778

AT3	034155 0      0   0   000000000001 0            332000000001 
AT6	034155 000001 0   0   000000000001 0            332000000001 
FT0	034155 000001 0   0   0            0            332000000001 
FT1A	034155 000001 0   0   0            0            0            
FT9	034156 000001 0   0   0            0            0            
ET0	034157 000001 0   0   0            0            0            
ST1A	034157 000001 0   0   0            0            0            
ST9	034157 000001 0   0   0            0            0            


*034157 JUMPA	0,034160
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034157 034157 0   0   324000034160 0            000000034160 
IT1	034157 0      0   0   324000034160 0            000000034160 
AT3	034157 0      0   0   000000034160 0            324000034160 
AT6	034157 034160 0   0   000000034160 0            324000034160 
FT1A	034157 034160 0   0   000000034160 0            000000034160 
FT2	034157 034160 0   0   0            0            000000034160 
FT2RQ	034157 034160 0   0   777777777777 0            000000034160 
FT3	034157 034160 0   0   777777777777 0            000000034160 
FT9	034160 034160 0   0   777777777777 0            000000034160 
ET0	034160 034160 0   0   777777777777 0            000000034160 
ST1A	034160 034160 0   0   777777777777 0            000000034160 
ST9	034160 034160 0   0   777777777777 0            000000034160 


*034160 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	034160 034160 0   0   474000000000 0            0            
IT1	034160 0      0   0   474000000000 0            0            
AT3	034160 0      0   0   0            0            474000000000 
AT6	034160 0      0   0   0            0            474000000000 
FT1A	034160 0      0   0   0            0            0            
FT9	034161 0      0   0   0            0            0            
ET0	034161 0      0   0   777777777777 0            0            
ST1	034161 0      0   0   777777777777 0            0            
ST2	034161 0      0   0   777777777777 0            0            
ST9	034161 0      0   0   777777777777 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 584
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0779

*034161 MOVSI	1,777777
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=777777 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034161 034161 0   0   205040777777 0            000000777777 
IT1	034161 0      0   0   205040777777 0            000000777777 
AT3	034161 0      0   0   000000777777 0            205040777777 
AT6	034161 777777 0   0   000000777777 0            205040777777 
FT1A	034161 777777 0   0   000000777777 0            000000777777 
FT9	034162 777777 0   0   000000777777 0            000000777777 
ET0	034162 777777 0   0   777777000000 0            000000777777 
ST1	034162 777777 0   0   777777000000 0            000000777777 
ST2	034162 777777 0   0   777777000000 0            000000777777 
ST9	034162 777777 0   0   777777000000 0            000000777777 


*034162 HRRZM	1,000001
INITIAL
C(AC)=777777 000000 
C(E)=777777 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034162 034162 0   0   552040000001 0            777777000000 
IT1	034162 0      0   0   552040000001 0            777777000000 
AT3	034162 0      0   0   000000000001 0            552040000001 
AT6	034162 000001 0   0   000000000001 0            552040000001 
FT0	034162 000001 0   0   777777000000 0            552040000001 
FT1A	034162 000001 0   0   777777000000 0            777777000000 
FT2	034162 000001 0   0   0            0            777777000000 
FT2RQ	034162 000001 0   0   777777000000 0            777777000000 
FT3	034162 000001 0   0   777777000000 0            777777000000 
FT9	034163 000001 0   0   777777000000 0            777777000000 
ET0	034163 000001 0   0   0            0            777777000000 
ST5	034163 000001 0   0   0            0            777777000000 
ST6A	034163 000001 0   0   0            0            777777000000 
ST9	034163 000001 0   0   0            0            777777000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 585
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0780

*034163 SKIPE	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034163 034163 0   0   332000000001 0            0            
IT1	034163 0      0   0   332000000001 0            0            
AT3	034163 0      0   0   000000000001 0            332000000001 
AT6	034163 000001 0   0   000000000001 0            332000000001 
FT0	034163 000001 0   0   0            0            332000000001 
FT1A	034163 000001 0   0   0            0            0            
FT9	034164 000001 0   0   0            0            0            
ET0	034165 000001 0   0   0            0            0            
ST1A	034165 000001 0   0   0            0            0            
ST9	034165 000001 0   0   0            0            0            


*034165 JUMPA	0,034166
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034165 034165 0   0   324000034166 0            000000034166 
IT1	034165 0      0   0   324000034166 0            000000034166 
AT3	034165 0      0   0   000000034166 0            324000034166 
AT6	034165 034166 0   0   000000034166 0            324000034166 
FT1A	034165 034166 0   0   000000034166 0            000000034166 
FT2	034165 034166 0   0   0            0            000000034166 
FT2RQ	034165 034166 0   0   777777777777 0            000000034166 
FT3	034165 034166 0   0   777777777777 0            000000034166 
FT9	034166 034166 0   0   777777777777 0            000000034166 
ET0	034166 034166 0   0   777777777777 0            000000034166 
ST1A	034166 034166 0   0   777777777777 0            000000034166 
ST9	034166 034166 0   0   777777777777 0            000000034166 


*034166 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	034166 034166 0   0   400000000000 0            0            
IT1	034166 0      0   0   400000000000 0            0            
AT3	034166 0      0   0   0            0            400000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 586
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0781

AT6	034166 0      0   0   0            0            400000000000 
FT1A	034166 0      0   0   0            0            0            
FT9	034167 0      0   0   0            0            0            
ET0	034167 0      0   0   0            0            0            
ST1	034167 0      0   0   0            0            0            
ST2	034167 0      0   0   0            0            0            
ST9	034167 0      0   0   0            0            0            


*034167 JFCL	17,034170
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034167 034167 0   0   255740034170 0            000000034170 
IT1	034167 0      0   0   255740034170 0            000000034170 
AT3	034167 0      0   0   000000034170 0            255740034170 
AT6	034167 034170 0   0   000000034170 0            255740034170 
FT1A	034167 034170 0   0   000000034170 0            000000034170 
FT9	034170 034170 0   0   000000034170 0            000000034170 
ET0	034170 034170 0   0   000000034170 0            000000034170 
ST1A	034170 034170 0   0   000000034170 0            000000034170 
ST9	034170 034170 0   0   000000034170 0            000000034170 


*034170 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	034170 034170 0   0   332000000000 0            0            
IT1	034170 0      0   0   332000000000 0            0            
AT3	034170 0      0   0   0            0            332000000000 
AT6	034170 0      0   0   0            0            332000000000 
FT0	034170 0      0   0   0            0            332000000000 
FT1A	034170 0      0   0   0            0            0            
FT9	034171 0      0   0   0            0            0            
ET0	034172 0      0   0   0            0            0            
ST1A	034172 0      0   0   0            0            0            
ST9	034172 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 587
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0782

*034172 JUMPA	0,034173
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034172 034172 0   0   324000034173 0            000000034173 
IT1	034172 0      0   0   324000034173 0            000000034173 
AT3	034172 0      0   0   000000034173 0            324000034173 
AT6	034172 034173 0   0   000000034173 0            324000034173 
FT1A	034172 034173 0   0   000000034173 0            000000034173 
FT2	034172 034173 0   0   0            0            000000034173 
FT2RQ	034172 034173 0   0   0            0            000000034173 
FT3	034172 034173 0   0   0            0            000000034173 
FT9	034173 034173 0   0   0            0            000000034173 
ET0	034173 034173 0   0   0            0            000000034173 
ST1A	034173 034173 0   0   0            0            000000034173 
ST9	034173 034173 0   0   0            0            000000034173 


*034173 SETOB	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034173 034173 0   0   477000000001 0            000000000001 
IT1	034173 0      0   0   477000000001 0            000000000001 
AT3	034173 0      0   0   000000000001 0            477000000001 
AT6	034173 000001 0   0   000000000001 0            477000000001 
FT1A	034173 000001 0   0   000000000001 0            000000000001 
FT9	034174 000001 0   0   000000000001 0            000000000001 
ET0	034174 000001 0   0   777777777777 0            000000000001 
ST1	034174 000001 0   0   777777777777 0            000000000001 
ST2	034174 000001 0   0   777777777777 0            000000000001 
ST6	034174 000001 0   0   777777777777 0            000000000001 
ST6A	034174 000001 0   0   777777777777 0            000000000001 
ST9	034174 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 588
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0783

*034174 XORM	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034174 034174 0   0   432000000001 0            777777777777 
IT1	034174 0      0   0   432000000001 0            777777777777 
AT3	034174 0      0   0   000000000001 0            432000000001 
AT6	034174 000001 0   0   000000000001 0            432000000001 
FT0	034174 000001 0   0   777777777777 0            432000000001 
FT1A	034174 000001 0   0   777777777777 0            777777777777 
FT2	034174 000001 0   0   0            0            777777777777 
FT2RQ	034174 000001 0   0   777777777777 0            777777777777 
FT3	034174 000001 0   0   777777777777 0            777777777777 
FT9	034175 000001 0   0   777777777777 0            777777777777 
ET0	034175 000001 0   0   0            0            777777777777 
ST5	034175 000001 0   0   0            0            777777777777 
ST6A	034175 000001 0   0   0            0            777777777777 
ST9	034175 000001 0   0   0            0            777777777777 


*034175 CAIE	1,000000
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034175 034175 0   0   302040000000 0            0            
IT1	034175 0      0   0   302040000000 0            0            
AT3	034175 0      0   0   0            0            302040000000 
AT6	034175 0      0   0   0            0            302040000000 
FT1A	034175 0      0   0   0            0            0            
FT2	034175 0      0   0   0            0            0            
FT2RQ	034175 0      0   0   0            0            0            
FT3	034175 0      0   0   0            0            0            
FT9	034176 0      0   0   0            0            0            
ET0	034177 0      0   0   0            0            0            
ST1A	034177 0      0   0   0            0            0            
ST9	034177 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 589
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0784

*034177 JUMPA	0,034200
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034177 034177 0   0   324000034200 0            000000034200 
IT1	034177 0      0   0   324000034200 0            000000034200 
AT3	034177 0      0   0   000000034200 0            324000034200 
AT6	034177 0      0   0   000000034200 0            324000034200 
FT1A	034177 0      0   0   000000034200 0            000000034200 
FT2	034177 0      0   0   0            0            000000034200 
FT2RQ	034177 0      0   0   777777777777 0            000000034200 
FT3	034177 0      0   0   777777777777 0            000000034200 
FT9	0      0      0   0   777777777777 0            000000034200 
ET0	0      0      0   0   777777777777 0            000000034200 
ST1A	0      0      0   0   777777777777 0            000000034200 
ST9	0      0      0   0   777777777777 0            000000034200 


*034200 SETZB	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   403000000001 0            000000000001 
IT1	0      0      0   0   403000000001 0            000000000001 
AT3	0      0      0   0   000000000001 0            403000000001 
AT6	0      000001 0   0   000000000001 0            403000000001 
FT1A	0      000001 0   0   000000000001 0            000000000001 
FT9	034201 000001 0   0   000000000001 0            000000000001 
ET0	034201 000001 0   0   0            0            000000000001 
ST1	034201 000001 0   0   0            0            000000000001 
ST2	034201 000001 0   0   0            0            000000000001 
ST6	034201 000001 0   0   0            0            000000000001 
ST6A	034201 000001 0   0   0            0            000000000001 
ST9	034201 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 590
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0785

*034201 CAMN	0,034536
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034201 034201 0   0   316000034536 0            0            
IT1	034201 0      0   0   316000034536 0            0            
AT3	034201 0      0   0   000000034536 0            316000034536 
AT6	034201 034536 0   0   000000034536 0            316000034536 
FT0	034201 034536 0   0   0            0            316000034536 
FT1A	034201 034536 0   0   0            0            0            
FT2	034201 034536 0   0   0            0            0            
FT2RQ	034201 034536 0   0   0            0            0            
FT3	034201 034536 0   0   0            0            0            
FT9	034202 034536 0   0   0            0            0            
ET0	034202 034536 0   0   0            0            0            
ST1A	034202 034536 0   0   0            0            0            
ST9	034202 034536 0   0   0            0            0            


*034202 CAME	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034202 034202 0   0   312000000001 0            0            
IT1	034202 0      0   0   312000000001 0            0            
AT3	034202 0      0   0   000000000001 0            312000000001 
AT6	034202 000001 0   0   000000000001 0            312000000001 
FT0	034202 000001 0   0   0            0            312000000001 
FT1A	034202 000001 0   0   0            0            0            
FT2	034202 000001 0   0   0            0            0            
FT2RQ	034202 000001 0   0   0            0            0            
FT3	034202 000001 0   0   0            0            0            
FT9	034203 000001 0   0   0            0            0            
ET0	034204 000001 0   0   0            0            0            
ST1A	034204 000001 0   0   0            0            0            
ST9	034204 000001 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 591
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0786

*034204 JUMPA	0,034205
INITIAL
C(AC)=000000 000000 
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   0            0            000000034205 
FT3	034204 034205 0   0   0            0            000000034205 
FT9	034205 034205 0   0   0            0            000000034205 
ET0	034205 034205 0   0   0            0            000000034205 
ST1A	034205 034205 0   0   0            0            000000034205 
ST9	034205 034205 0   0   0            0            000000034205 


*034205 SETZ 	1,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034205 034205 0   0   400040000000 0            0            
IT1	034205 0      0   0   400040000000 0            0            
AT3	034205 0      0   0   0            0            400040000000 
AT6	034205 0      0   0   0            0            400040000000 
FT1A	034205 0      0   0   0            0            0            
FT9	034206 0      0   0   0            0            0            
ET0	034206 0      0   0   0            0            0            
ST1	034206 0      0   0   0            0            0            
ST2	034206 0      0   0   0            0            0            
ST9	034206 0      0   0   0            0            0            


*034206 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	034206 034206 0   0   474000000000 0            0            
IT1	034206 0      0   0   474000000000 0            0            
AT3	034206 0      0   0   0            0            474000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 592
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0787

AT6	034206 0      0   0   0            0            474000000000 
FT1A	034206 0      0   0   0            0            0            
FT9	034207 0      0   0   0            0            0            
ET0	034207 0      0   0   777777777777 0            0            
ST1	034207 0      0   0   777777777777 0            0            
ST2	034207 0      0   0   777777777777 0            0            
ST9	034207 0      0   0   777777777777 0            0            


*034207 SETAB	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=777777 777777 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034207 034207 0   0   427000000001 0            000000000001 
IT1	034207 0      0   0   427000000001 0            000000000001 
AT3	034207 0      0   0   000000000001 0            427000000001 
AT6	034207 000001 0   0   000000000001 0            427000000001 
FT1A	034207 000001 0   0   000000000001 0            000000000001 
FT2	034207 000001 0   0   0            0            000000000001 
FT2RQ	034207 000001 0   0   777777777777 0            000000000001 
FT3	034207 000001 0   0   777777777777 0            000000000001 
FT9	034210 000001 0   0   777777777777 0            000000000001 
ET0	034210 000001 0   0   777777777777 0            000000000001 
ST1	034210 000001 0   0   777777777777 0            000000000001 
ST2	034210 000001 0   0   777777777777 0            000000000001 
ST6	034210 000001 0   0   777777777777 0            000000000001 
ST6A	034210 000001 0   0   777777777777 0            000000000001 
ST9	034210 000001 0   0   777777777777 0            000000000001 


*034210 CAMN	0,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034210 034210 0   0   316000034466 0            777777777777 
IT1	034210 0      0   0   316000034466 0            777777777777 
AT3	034210 0      0   0   000000034466 0            316000034466 
AT6	034210 034466 0   0   000000034466 0            316000034466 
FT0	034210 034466 0   0   777777777777 0            316000034466 
FT1A	034210 034466 0   0   777777777777 0            777777777777 
FT2	034210 034466 0   0   0            0            777777777777 
FT2RQ	034210 034466 0   0   777777777777 0            777777777777 
FT3	034210 034466 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 593
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0788

FT9	034211 034466 0   0   777777777777 0            777777777777 
ET0	034211 034466 0   0   0            0            777777777777 
ST1A	034211 034466 0   0   0            0            777777777777 
ST9	034211 034466 0   0   0            0            777777777777 


*034211 CAME	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034211 034211 0   0   312000000001 0            777777777777 
IT1	034211 0      0   0   312000000001 0            777777777777 
AT3	034211 0      0   0   000000000001 0            312000000001 
AT6	034211 000001 0   0   000000000001 0            312000000001 
FT0	034211 000001 0   0   777777777777 0            312000000001 
FT1A	034211 000001 0   0   777777777777 0            777777777777 
FT2	034211 000001 0   0   0            0            777777777777 
FT2RQ	034211 000001 0   0   777777777777 0            777777777777 
FT3	034211 000001 0   0   777777777777 0            777777777777 
FT9	034212 000001 0   0   777777777777 0            777777777777 
ET0	034213 000001 0   0   0            0            777777777777 
ST1A	034213 000001 0   0   0            0            777777777777 
ST9	034213 000001 0   0   0            0            777777777777 


*034213 JUMPA	0,034214
INITIAL
C(AC)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034213 034213 0   0   324000034214 0            000000034214 
IT1	034213 0      0   0   324000034214 0            000000034214 
AT3	034213 0      0   0   000000034214 0            324000034214 
AT6	034213 034214 0   0   000000034214 0            324000034214 
FT1A	034213 034214 0   0   000000034214 0            000000034214 
FT2	034213 034214 0   0   0            0            000000034214 
FT2RQ	034213 034214 0   0   777777777777 0            000000034214 
FT3	034213 034214 0   0   777777777777 0            000000034214 
FT9	034214 034214 0   0   777777777777 0            000000034214 
ET0	034214 034214 0   0   777777777777 0            000000034214 
ST1A	034214 034214 0   0   777777777777 0            000000034214 
ST9	034214 034214 0   0   777777777777 0            000000034214 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 594
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0789

*034214 SETZB	0,000001
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL
C(AC)=000000 000000 
C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034214 034214 0   0   403000000001 0            000000000001 
IT1	034214 0      0   0   403000000001 0            000000000001 
AT3	034214 0      0   0   000000000001 0            403000000001 
AT6	034214 000001 0   0   000000000001 0            403000000001 
FT1A	034214 000001 0   0   000000000001 0            000000000001 
FT9	034215 000001 0   0   000000000001 0            000000000001 
ET0	034215 000001 0   0   0            0            000000000001 
ST1	034215 000001 0   0   0            0            000000000001 
ST2	034215 000001 0   0   0            0            000000000001 
ST6	034215 000001 0   0   0            0            000000000001 
ST6A	034215 000001 0   0   0            0            000000000001 
ST9	034215 000001 0   0   0            0            000000000001 


*034215 XCT	0,034542
INITIAL
C(AC)=000000 000000 
C(E)=201040 034217 
FINAL

C(E)=201040 034217 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034215 034542 0   0   201040034217 0            000000034542 
IT1	034215 0      0   0   201040034217 0            000000034542 
AT3	034215 0      0   0   000000034217 0            201040034217 
AT6	034215 034217 0   0   000000034217 0            201040034217 
FT1A	034215 034217 0   0   000000034217 0            000000034217 
FT9	034216 034217 0   0   000000034217 0            000000034217 
ET0	034216 034217 0   0   000000034217 0            000000034217 
ST1	034216 034217 0   0   000000034217 0            000000034217 
ST2	034216 034217 0   0   000000034217 0            000000034217 
ST9	034216 034217 0   0   000000034217 0            000000034217 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 595
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0790

*034216 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	034216 034216 0   0   334000000000 0            0            
IT1	034216 0      0   0   334000000000 0            0            
AT3	034216 0      0   0   0            0            334000000000 
AT6	034216 0      0   0   0            0            334000000000 
FT0	034216 0      0   0   0            0            334000000000 
FT1A	034216 0      0   0   0            0            0            
FT9	034217 0      0   0   0            0            0            
ET0	034220 0      0   0   0            0            0            
ST1A	034220 0      0   0   0            0            0            
ST9	034220 0      0   0   0            0            0            


*034220 JUMPA	0,034221
INITIAL
C(AC)=000000 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   0            0            000000034221 
FT3	034220 034221 0   0   0            0            000000034221 
FT9	034221 034221 0   0   0            0            000000034221 
ET0	034221 034221 0   0   0            0            000000034221 
ST1A	034221 034221 0   0   0            0            000000034221 
ST9	034221 034221 0   0   0            0            000000034221 


*034221 SETZB	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 034217 
FINAL
C(AC)=000000 000000 
C(E)=000000 034217 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034221 034221 0   0   403000000001 0            000000000001 
IT1	034221 0      0   0   403000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 596
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0791

AT3	034221 0      0   0   000000000001 0            403000000001 
AT6	034221 000001 0   0   000000000001 0            403000000001 
FT1A	034221 000001 0   0   000000000001 0            000000000001 
FT9	034222 000001 0   0   000000000001 0            000000000001 
ET0	034222 000001 0   0   0            0            000000000001 
ST1	034222 000001 0   0   0            0            000000000001 
ST2	034222 000001 0   0   0            0            000000000001 
ST6	034222 000001 0   0   0            0            000000000001 
ST6A	034222 000001 0   0   0            0            000000000001 
ST9	034222 000001 0   0   0            0            000000000001 


*034222 XCT	0,034543
INITIAL
C(AC)=000000 000000 
C(E)=201040 000001 
FINAL

C(E)=201040 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034222 034543 0   0   201040000001 0            000000034543 
IT1	034222 0      0   0   201040000001 0            000000034543 
AT3	034222 0      0   0   000000000001 0            201040000001 
AT6	034222 000001 0   0   000000000001 0            201040000001 
FT1A	034222 000001 0   0   000000000001 0            000000000001 
FT9	034223 000001 0   0   000000000001 0            000000000001 
ET0	034223 000001 0   0   000000000001 0            000000000001 
ST1	034223 000001 0   0   000000000001 0            000000000001 
ST2	034223 000001 0   0   000000000001 0            000000000001 
ST9	034223 000001 0   0   000000000001 0            000000000001 


*034223 CAIE	1,000001
INITIAL
C(AC)=000000 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034223 034223 0   0   302040000001 0            000000000001 
IT1	034223 0      0   0   302040000001 0            000000000001 
AT3	034223 0      0   0   000000000001 0            302040000001 
AT6	034223 000001 0   0   000000000001 0            302040000001 
FT1A	034223 000001 0   0   000000000001 0            000000000001 
FT2	034223 000001 0   0   0            0            000000000001 
FT2RQ	034223 000001 0   0   000000000001 0            000000000001 
FT3	034223 000001 0   0   000000000001 0            000000000001 
FT9	034224 000001 0   0   000000000001 0            000000000001 
ET0	034225 000001 0   0   0            0            000000000001 
ST1A	034225 000001 0   0   0            0            000000000001 
ST9	034225 000001 0   0   0            0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 597
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0792



*034225 JUMPA	0,034226
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034225 034225 0   0   324000034226 0            000000034226 
IT1	034225 0      0   0   324000034226 0            000000034226 
AT3	034225 0      0   0   000000034226 0            324000034226 
AT6	034225 034226 0   0   000000034226 0            324000034226 
FT1A	034225 034226 0   0   000000034226 0            000000034226 
FT2	034225 034226 0   0   0            0            000000034226 
FT2RQ	034225 034226 0   0   0            0            000000034226 
FT3	034225 034226 0   0   0            0            000000034226 
FT9	034226 034226 0   0   0            0            000000034226 
ET0	034226 034226 0   0   0            0            000000034226 
ST1A	034226 034226 0   0   0            0            000000034226 
ST9	034226 034226 0   0   0            0            000000034226 


*034226 SETZB	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 
C(E)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034226 034226 0   0   403000000001 0            000000000001 
IT1	034226 0      0   0   403000000001 0            000000000001 
AT3	034226 0      0   0   000000000001 0            403000000001 
AT6	034226 000001 0   0   000000000001 0            403000000001 
FT1A	034226 000001 0   0   000000000001 0            000000000001 
FT9	034227 000001 0   0   000000000001 0            000000000001 
ET0	034227 000001 0   0   0            0            000000000001 
ST1	034227 000001 0   0   0            0            000000000001 
ST2	034227 000001 0   0   0            0            000000000001 
ST6	034227 000001 0   0   0            0            000000000001 
ST6A	034227 000001 0   0   0            0            000000000001 
ST9	034227 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 598
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0793

*034227 XCT	0,034550
INITIAL
C(AC)=000000 000000 
C(E)=256000 034547 
FINAL

C(E)=256000 034547 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034227 034550 0   0   256000034547 0            000000034550 
IT1	034227 0      0   0   256000034547 0            000000034550 
AT3	034227 0      0   0   000000034547 0            256000034547 
AT6	034227 034547 0   0   000000034547 0            256000034547 
FT1A	034227 034547 0   0   000000034547 0            000000034547 
FT9	034227 034547 0   0   000000034547 0            000000034547 
ET0	034227 034547 0   0   000000034547 0            000000034547 
ST1A	034227 034547 0   0   000000034547 0            000000034547 
ST9	034227 034547 0   0   000000034547 0            000000034547 


*034227 XCT	0,034550
INITIAL
C(AC)=000000 000000 
C(E)=256000 034547 
FINAL

C(E)=256000 034547 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034227 034546 0   0   256000034545 0            000000034546 
IT1	034227 0      0   0   256000034545 0            000000034546 
AT3	034227 0      0   0   000000034545 0            256000034545 
AT6	034227 034545 0   0   000000034545 0            256000034545 
FT1A	034227 034545 0   0   000000034545 0            000000034545 
FT9	034227 034545 0   0   000000034545 0            000000034545 
ET0	034227 034545 0   0   000000034545 0            000000034545 
ST1A	034227 034545 0   0   000000034545 0            000000034545 
ST9	034227 034545 0   0   000000034545 0            000000034545 


*034227 XCT	0,034550
INITIAL
C(AC)=000000 000000 
C(E)=256000 034547 
FINAL

C(E)=256000 034547 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034227 034544 0   0   201040777777 0            000000034544 
IT1	034227 0      0   0   201040777777 0            000000034544 
AT3	034227 0      0   0   000000777777 0            201040777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 599
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0794

AT6	034227 777777 0   0   000000777777 0            201040777777 
FT1A	034227 777777 0   0   000000777777 0            000000777777 
FT9	034230 777777 0   0   000000777777 0            000000777777 
ET0	034230 777777 0   0   000000777777 0            000000777777 
ST1	034230 777777 0   0   000000777777 0            000000777777 
ST2	034230 777777 0   0   000000777777 0            000000777777 
ST9	034230 777777 0   0   000000777777 0            000000777777 


*034230 CAIE	1,777777
INITIAL
C(AC)=000000 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034230 034230 0   0   302040777777 0            000000777777 
IT1	034230 0      0   0   302040777777 0            000000777777 
AT3	034230 0      0   0   000000777777 0            302040777777 
AT6	034230 777777 0   0   000000777777 0            302040777777 
FT1A	034230 777777 0   0   000000777777 0            000000777777 
FT2	034230 777777 0   0   0            0            000000777777 
FT2RQ	034230 777777 0   0   000000777777 0            000000777777 
FT3	034230 777777 0   0   000000777777 0            000000777777 
FT9	034231 777777 0   0   000000777777 0            000000777777 
ET0	034232 777777 0   0   0            0            000000777777 
ST1A	034232 777777 0   0   0            0            000000777777 
ST9	034232 777777 0   0   0            0            000000777777 


*034232 JUMPA	0,034233
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034232 034232 0   0   324000034233 0            000000034233 
IT1	034232 0      0   0   324000034233 0            000000034233 
AT3	034232 0      0   0   000000034233 0            324000034233 
AT6	034232 034233 0   0   000000034233 0            324000034233 
FT1A	034232 034233 0   0   000000034233 0            000000034233 
FT2	034232 034233 0   0   0            0            000000034233 
FT2RQ	034232 034233 0   0   0            0            000000034233 
FT3	034232 034233 0   0   0            0            000000034233 
FT9	034233 034233 0   0   0            0            000000034233 
ET0	034233 034233 0   0   0            0            000000034233 
ST1A	034233 034233 0   0   0            0            000000034233 
ST9	034233 034233 0   0   0            0            000000034233 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 600
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0795

*034233 SETZB	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 777777 
FINAL
C(AC)=000000 000000 
C(E)=000000 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034233 034233 0   0   403000000001 0            000000000001 
IT1	034233 0      0   0   403000000001 0            000000000001 
AT3	034233 0      0   0   000000000001 0            403000000001 
AT6	034233 000001 0   0   000000000001 0            403000000001 
FT1A	034233 000001 0   0   000000000001 0            000000000001 
FT9	034234 000001 0   0   000000000001 0            000000000001 
ET0	034234 000001 0   0   0            0            000000000001 
ST1	034234 000001 0   0   0            0            000000000001 
ST2	034234 000001 0   0   0            0            000000000001 
ST6	034234 000001 0   0   0            0            000000000001 
ST6A	034234 000001 0   0   0            0            000000000001 
ST9	034234 000001 0   0   0            0            000000000001 


*034234 XCT	0,034551
INITIAL
C(AC)=000000 000000 
C(E)=200040 034466 
FINAL

C(E)=200040 034466 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034234 034551 0   0   200040034466 0            000000034551 
IT1	034234 0      0   0   200040034466 0            000000034551 
AT3	034234 0      0   0   000000034466 0            200040034466 
AT6	034234 034466 0   0   000000034466 0            200040034466 
FT0	034234 034466 0   0   777777777777 0            200040034466 
FT1A	034234 034466 0   0   777777777777 0            777777777777 
FT9	034235 034466 0   0   777777777777 0            777777777777 
ET0	034235 034466 0   0   777777777777 0            777777777777 
ST1	034235 034466 0   0   777777777777 0            777777777777 
ST2	034235 034466 0   0   777777777777 0            777777777777 
ST9	034235 034466 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 601
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0796

*034235 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	034235 034235 0   0   332000000000 0            0            
IT1	034235 0      0   0   332000000000 0            0            
AT3	034235 0      0   0   0            0            332000000000 
AT6	034235 0      0   0   0            0            332000000000 
FT0	034235 0      0   0   0            0            332000000000 
FT1A	034235 0      0   0   0            0            0            
FT9	034236 0      0   0   0            0            0            
ET0	034237 0      0   0   0            0            0            
ST1A	034237 0      0   0   0            0            0            
ST9	034237 0      0   0   0            0            0            


*034237 JUMPA	0,034240
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034237 034237 0   0   324000034240 0            000000034240 
IT1	034237 0      0   0   324000034240 0            000000034240 
AT3	034237 0      0   0   000000034240 0            324000034240 
AT6	034237 034240 0   0   000000034240 0            324000034240 
FT1A	034237 034240 0   0   000000034240 0            000000034240 
FT2	034237 034240 0   0   0            0            000000034240 
FT2RQ	034237 034240 0   0   0            0            000000034240 
FT3	034237 034240 0   0   0            0            000000034240 
FT9	034240 034240 0   0   0            0            000000034240 
ET0	034240 034240 0   0   0            0            000000034240 
ST1A	034240 034240 0   0   0            0            000000034240 
ST9	034240 034240 0   0   0            0            000000034240 


*034240 XCT	0,034552
INITIAL
C(AC)=000000 000000 
C(E)=334000 000000 
FINAL

C(E)=334000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034240 034552 0   0   334000000000 0            000000034552 
IT1	034240 0      0   0   334000000000 0            000000034552 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 602
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0797

AT3	034240 0      0   0   0            0            334000000000 
AT6	034240 0      0   0   0            0            334000000000 
FT0	034240 0      0   0   0            0            334000000000 
FT1A	034240 0      0   0   0            0            0            
FT9	034241 0      0   0   0            0            0            
ET0	034242 0      0   0   0            0            0            
ST1A	034242 0      0   0   0            0            0            
ST9	034242 0      0   0   0            0            0            


*034242 JUMPA	0,034243
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034242 034242 0   0   324000034243 0            000000034243 
IT1	034242 0      0   0   324000034243 0            000000034243 
AT3	034242 0      0   0   000000034243 0            324000034243 
AT6	034242 034243 0   0   000000034243 0            324000034243 
FT1A	034242 034243 0   0   000000034243 0            000000034243 
FT2	034242 034243 0   0   0            0            000000034243 
FT2RQ	034242 034243 0   0   0            0            000000034243 
FT3	034242 034243 0   0   0            0            000000034243 
FT9	034243 034243 0   0   0            0            000000034243 
ET0	034243 034243 0   0   0            0            000000034243 
ST1A	034243 034243 0   0   0            0            000000034243 
ST9	034243 034243 0   0   0            0            000000034243 


*034243 SETOM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL

C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034243 034243 0   0   476000000001 0            000000000001 
IT1	034243 0      0   0   476000000001 0            000000000001 
AT3	034243 0      0   0   000000000001 0            476000000001 
AT6	034243 000001 0   0   000000000001 0            476000000001 
FT1A	034243 000001 0   0   000000000001 0            000000000001 
FT9	034244 000001 0   0   000000000001 0            000000000001 
ET0	034244 000001 0   0   777777777777 0            000000000001 
ST6	034244 000001 0   0   777777777777 0            000000000001 
ST6A	034244 000001 0   0   777777777777 0            000000000001 
ST9	034244 000001 0   0   777777777777 0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 603
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0798

*034244 MOVEI	7,000003
INITIAL
C(AC)=000000 000007 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034244 034244 0   0   201340000003 0            000000000003 
IT1	034244 0      0   0   201340000003 0            000000000003 
AT3	034244 0      0   0   000000000003 0            201340000003 
AT6	034244 000003 0   0   000000000003 0            201340000003 
FT1A	034244 000003 0   0   000000000003 0            000000000003 
FT9	034245 000003 0   0   000000000003 0            000000000003 
ET0	034245 000003 0   0   000000000003 0            000000000003 
ST1	034245 000003 0   0   000000000003 0            000000000003 
ST2	034245 000003 0   0   000000000003 0            000000000003 
ST9	034245 000003 0   0   000000000003 0            000000000003 


*034245 SETZM	0,000003
INITIAL
C(AC)=000000 000000 
C(E)=000000 000003 
FINAL

C(E)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034245 034245 0   0   402000000003 0            000000000003 
IT1	034245 0      0   0   402000000003 0            000000000003 
AT3	034245 0      0   0   000000000003 0            402000000003 
AT6	034245 000003 0   0   000000000003 0            402000000003 
FT1A	034245 000003 0   0   000000000003 0            000000000003 
FT9	034246 000003 0   0   000000000003 0            000000000003 
ET0	034246 000003 0   0   0            0            000000000003 
ST6	034246 000003 0   0   0            0            000000000003 
ST6A	034246 000003 0   0   0            0            000000000003 
ST9	034246 000003 0   0   0            0            000000000003 


*034246 MOVE 	1,@000007
INITIAL
C(AC)=777777 777777 
C(E)=000000 000003 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034246 034246 0   0   200060000007 0            0            
IT1	034246 0      0   0   200060000007 0            0            
AT3	034246 0      0   0   000000000007 0            200060000007 
AT4	034246 000007 0   0   000000000003 0            200060000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 604
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0799

IT1	034246 0      0   0   000000000003 0            200060000007 
AT3	034246 0      0   0   000000000003 0            000000000003 
AT6	034246 000003 0   0   000000000003 0            000000000003 
FT0	034246 000003 0   0   0            0            000000000003 
FT1A	034246 000003 0   0   0            0            0            
FT9	034247 000003 0   0   0            0            0            
ET0	034247 000003 0   0   0            0            0            
ST1	034247 000003 0   0   0            0            0            
ST2	034247 000003 0   0   0            0            0            
ST9	034247 000003 0   0   0            0            0            


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

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034247 034247 0   0   332000000001 0            0            
IT1	034247 0      0   0   332000000001 0            0            
AT3	034247 0      0   0   000000000001 0            332000000001 
AT6	034247 000001 0   0   000000000001 0            332000000001 
FT0	034247 000001 0   0   0            0            332000000001 
FT1A	034247 000001 0   0   0            0            0            
FT9	034250 000001 0   0   0            0            0            
ET0	034251 000001 0   0   0            0            0            
ST1A	034251 000001 0   0   0            0            0            
ST9	034251 000001 0   0   0            0            0            


*034251 JUMPA	0,034252
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034251 034251 0   0   324000034252 0            000000034252 
IT1	034251 0      0   0   324000034252 0            000000034252 
AT3	034251 0      0   0   000000034252 0            324000034252 
AT6	034251 034252 0   0   000000034252 0            324000034252 
FT1A	034251 034252 0   0   000000034252 0            000000034252 
FT2	034251 034252 0   0   0            0            000000034252 
FT2RQ	034251 034252 0   0   0            0            000000034252 
FT3	034251 034252 0   0   0            0            000000034252 
FT9	034252 034252 0   0   0            0            000000034252 
ET0	034252 034252 0   0   0            0            000000034252 
ST1A	034252 034252 0   0   0            0            000000034252 
ST9	034252 034252 0   0   0            0            000000034252 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 605
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0800


*034252 SETZM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034252 034252 0   0   402000000001 0            000000000001 
IT1	034252 0      0   0   402000000001 0            000000000001 
AT3	034252 0      0   0   000000000001 0            402000000001 
AT6	034252 000001 0   0   000000000001 0            402000000001 
FT1A	034252 000001 0   0   000000000001 0            000000000001 
FT9	034253 000001 0   0   000000000001 0            000000000001 
ET0	034253 000001 0   0   0            0            000000000001 
ST6	034253 000001 0   0   0            0            000000000001 
ST6A	034253 000001 0   0   0            0            000000000001 
ST9	034253 000001 0   0   0            0            000000000001 


*034253 MOVEI	7,000003
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034253 034253 0   0   201340000003 0            000000000003 
IT1	034253 0      0   0   201340000003 0            000000000003 
AT3	034253 0      0   0   000000000003 0            201340000003 
AT6	034253 000003 0   0   000000000003 0            201340000003 
FT1A	034253 000003 0   0   000000000003 0            000000000003 
FT9	034254 000003 0   0   000000000003 0            000000000003 
ET0	034254 000003 0   0   000000000003 0            000000000003 
ST1	034254 000003 0   0   000000000003 0            000000000003 
ST2	034254 000003 0   0   000000000003 0            000000000003 
ST9	034254 000003 0   0   000000000003 0            000000000003 


*034254 SETOM	0,000003
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034254 034254 0   0   476000000003 0            000000000003 
IT1	034254 0      0   0   476000000003 0            000000000003 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 606
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0801

AT3	034254 0      0   0   000000000003 0            476000000003 
AT6	034254 000003 0   0   000000000003 0            476000000003 
FT1A	034254 000003 0   0   000000000003 0            000000000003 
FT9	034255 000003 0   0   000000000003 0            000000000003 
ET0	034255 000003 0   0   777777777777 0            000000000003 
ST6	034255 000003 0   0   777777777777 0            000000000003 
ST6A	034255 000003 0   0   777777777777 0            000000000003 
ST9	034255 000003 0   0   777777777777 0            000000000003 


*034255 MOVE 	1,@000007
INITIAL
C(AC)=000000 000000 
C(E)=000000 000003 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034255 034255 0   0   200060000007 0            777777777777 
IT1	034255 0      0   0   200060000007 0            777777777777 
AT3	034255 0      0   0   000000000007 0            200060000007 
AT4	034255 000007 0   0   000000000003 0            200060000007 
IT1	034255 0      0   0   000000000003 0            200060000007 
AT3	034255 0      0   0   000000000003 0            000000000003 
AT6	034255 000003 0   0   000000000003 0            000000000003 
FT0	034255 000003 0   0   777777777777 0            000000000003 
FT1A	034255 000003 0   0   777777777777 0            777777777777 
FT9	034256 000003 0   0   777777777777 0            777777777777 
ET0	034256 000003 0   0   777777777777 0            777777777777 
ST1	034256 000003 0   0   777777777777 0            777777777777 
ST2	034256 000003 0   0   777777777777 0            777777777777 
ST9	034256 000003 0   0   777777777777 0            777777777777 


*034256 CAME	1,034466
INITIAL
C(AC)=777777 777777 
C(E)=777777 777777 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034256 034256 0   0   312040034466 0            777777777777 
IT1	034256 0      0   0   312040034466 0            777777777777 
AT3	034256 0      0   0   000000034466 0            312040034466 
AT6	034256 034466 0   0   000000034466 0            312040034466 
FT0	034256 034466 0   0   777777777777 0            312040034466 
FT1A	034256 034466 0   0   777777777777 0            777777777777 
FT2	034256 034466 0   0   0            0            777777777777 
FT2RQ	034256 034466 0   0   777777777777 0            777777777777 
FT3	034256 034466 0   0   777777777777 0            777777777777 
FT9	034257 034466 0   0   777777777777 0            777777777777 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 607
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0802

ET0	034260 034466 0   0   0            0            777777777777 
ST1A	034260 034466 0   0   0            0            777777777777 
ST9	034260 034466 0   0   0            0            777777777777 


*034260 JUMPA	0,034261
INITIAL
C(AC)=000000 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   0            0            000000034261 
FT3	034260 034261 0   0   0            0            000000034261 
FT9	034261 034261 0   0   0            0            000000034261 
ET0	034261 034261 0   0   0            0            000000034261 
ST1A	034261 034261 0   0   0            0            000000034261 
ST9	034261 034261 0   0   0            0            000000034261 


*034261 SETZM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=777777 777777 
FINAL

C(E)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034261 034261 0   0   402000000001 0            000000000001 
IT1	034261 0      0   0   402000000001 0            000000000001 
AT3	034261 0      0   0   000000000001 0            402000000001 
AT6	034261 000001 0   0   000000000001 0            402000000001 
FT1A	034261 000001 0   0   000000000001 0            000000000001 
FT9	034262 000001 0   0   000000000001 0            000000000001 
ET0	034262 000001 0   0   0            0            000000000001 
ST6	034262 000001 0   0   0            0            000000000001 
ST6A	034262 000001 0   0   0            0            000000000001 
ST9	034262 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 608
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0803

*034262 MOVEI	7,000003
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 000003 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034262 034262 0   0   201340000003 0            000000000003 
IT1	034262 0      0   0   201340000003 0            000000000003 
AT3	034262 0      0   0   000000000003 0            201340000003 
AT6	034262 000003 0   0   000000000003 0            201340000003 
FT1A	034262 000003 0   0   000000000003 0            000000000003 
FT9	034263 000003 0   0   000000000003 0            000000000003 
ET0	034263 000003 0   0   000000000003 0            000000000003 
ST1	034263 000003 0   0   000000000003 0            000000000003 
ST2	034263 000003 0   0   000000000003 0            000000000003 
ST9	034263 000003 0   0   000000000003 0            000000000003 


*034263 MOVE 	3,034553
INITIAL
C(AC)=777777 777777 
C(E)=707070 707070 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034263 034263 0   0   200140034553 0            707070707070 
IT1	034263 0      0   0   200140034553 0            707070707070 
AT3	034263 0      0   0   000000034553 0            200140034553 
AT6	034263 034553 0   0   000000034553 0            200140034553 
FT0	034263 034553 0   0   707070707070 0            200140034553 
FT1A	034263 034553 0   0   707070707070 0            707070707070 
FT9	034264 034553 0   0   707070707070 0            707070707070 
ET0	034264 034553 0   0   707070707070 0            707070707070 
ST1	034264 034553 0   0   707070707070 0            707070707070 
ST2	034264 034553 0   0   707070707070 0            707070707070 
ST9	034264 034553 0   0   707070707070 0            707070707070 


*034264 MOVE 	1,@000007
INITIAL
C(AC)=000000 000000 
C(E)=000000 000003 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034264 034264 0   0   200060000007 0            707070707070 
IT1	034264 0      0   0   200060000007 0            707070707070 
AT3	034264 0      0   0   000000000007 0            200060000007 
AT4	034264 000007 0   0   000000000003 0            200060000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 609
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0804

IT1	034264 0      0   0   000000000003 0            200060000007 
AT3	034264 0      0   0   000000000003 0            000000000003 
AT6	034264 000003 0   0   000000000003 0            000000000003 
FT0	034264 000003 0   0   707070707070 0            000000000003 
FT1A	034264 000003 0   0   707070707070 0            707070707070 
FT9	034265 000003 0   0   707070707070 0            707070707070 
ET0	034265 000003 0   0   707070707070 0            707070707070 
ST1	034265 000003 0   0   707070707070 0            707070707070 
ST2	034265 000003 0   0   707070707070 0            707070707070 
ST9	034265 000003 0   0   707070707070 0            707070707070 


*034265 CAME	1,034553
INITIAL
C(AC)=707070 707070 
C(E)=707070 707070 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034265 034265 0   0   312040034553 0            707070707070 
IT1	034265 0      0   0   312040034553 0            707070707070 
AT3	034265 0      0   0   000000034553 0            312040034553 
AT6	034265 034553 0   0   000000034553 0            312040034553 
FT0	034265 034553 0   0   707070707070 0            312040034553 
FT1A	034265 034553 0   0   707070707070 0            707070707070 
FT2	034265 034553 0   0   0            0            707070707070 
FT2RQ	034265 034553 0   0   707070707070 0            707070707070 
FT3	034265 034553 0   0   707070707070 0            707070707070 
FT9	034266 034553 0   0   707070707070 0            707070707070 
ET0	034267 034553 0   0   0            0            707070707070 
ST1A	034267 034553 0   0   0            0            707070707070 
ST9	034267 034553 0   0   0            0            707070707070 


*034267 JUMPA	0,034270
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034267 034267 0   0   324000034270 0            000000034270 
IT1	034267 0      0   0   324000034270 0            000000034270 
AT3	034267 0      0   0   000000034270 0            324000034270 
AT6	034267 034270 0   0   000000034270 0            324000034270 
FT1A	034267 034270 0   0   000000034270 0            000000034270 
FT2	034267 034270 0   0   0            0            000000034270 
FT2RQ	034267 034270 0   0   0            0            000000034270 
FT3	034267 034270 0   0   0            0            000000034270 
FT9	034270 034270 0   0   0            0            000000034270 
ET0	034270 034270 0   0   0            0            000000034270 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 610
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0805

ST1A	034270 034270 0   0   0            0            000000034270 
ST9	034270 034270 0   0   0            0            000000034270 


*034270 JRST	0,034272
INITIAL
C(AC)=000000 000000 
C(E)=402000 000001 
FINAL

C(E)=402000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034270 034270 0   0   254000034272 0            254000034272 
IT1	034270 0      0   0   254000034272 0            254000034272 
AT3	034270 0      0   0   000000034272 0            254000034272 
AT6	034270 034272 0   0   000000034272 0            254000034272 
FT1A	034270 034272 0   0   000000034272 0            254000034272 
FT9	034271 034272 0   0   000000034272 0            254000034272 
ET0	034272 034271 0   0   000000034272 0            254000034272 
ST1A	034272 034271 0   0   000000034272 0            254000034272 
ST9	034272 034271 0   0   000000034272 0            254000034272 


*034272 SETZM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL

C(E)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034272 034272 0   0   402000000001 0            000000000001 
IT1	034272 0      0   0   402000000001 0            000000000001 
AT3	034272 0      0   0   000000000001 0            402000000001 
AT6	034272 000001 0   0   000000000001 0            402000000001 
FT1A	034272 000001 0   0   000000000001 0            000000000001 
FT9	034273 000001 0   0   000000000001 0            000000000001 
ET0	034273 000001 0   0   0            0            000000000001 
ST6	034273 000001 0   0   0            0            000000000001 
ST6A	034273 000001 0   0   0            0            000000000001 
ST9	034273 000001 0   0   0            0            000000000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 611
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0806

*034273 MOVEI	7,034271
INITIAL
C(AC)=000000 000003 
FINAL
C(AC)=000000 034271 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034273 034273 0   0   201340034271 0            000000034271 
IT1	034273 0      0   0   201340034271 0            000000034271 
AT3	034273 0      0   0   000000034271 0            201340034271 
AT6	034273 034271 0   0   000000034271 0            201340034271 
FT1A	034273 034271 0   0   000000034271 0            000000034271 
FT9	034274 034271 0   0   000000034271 0            000000034271 
ET0	034274 034271 0   0   000000034271 0            000000034271 
ST1	034274 034271 0   0   000000034271 0            000000034271 
ST2	034274 034271 0   0   000000034271 0            000000034271 
ST9	034274 034271 0   0   000000034271 0            000000034271 


*034274 MOVE 	1,@000007
INITIAL
C(AC)=000000 000000 
C(E)=000000 034271 
FINAL
C(AC)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034274 034274 0   0   200060000007 0            707070707070 
IT1	034274 0      0   0   200060000007 0            707070707070 
AT3	034274 0      0   0   000000000007 0            200060000007 
AT4	034274 000007 0   0   000000034271 0            200060000007 
IT1	034274 0      0   0   000000034271 0            200060000007 
AT3	034274 0      0   0   000000034271 0            000000034271 
AT6	034274 034271 0   0   000000034271 0            000000034271 
FT0	034274 034271 0   0   707070707070 0            000000034271 
FT1A	034274 034271 0   0   707070707070 0            707070707070 
FT9	034275 034271 0   0   707070707070 0            707070707070 
ET0	034275 034271 0   0   707070707070 0            707070707070 
ST1	034275 034271 0   0   707070707070 0            707070707070 
ST2	034275 034271 0   0   707070707070 0            707070707070 
ST9	034275 034271 0   0   707070707070 0            707070707070 


*034275 CAME	1,034271
INITIAL
C(AC)=707070 707070 
C(E)=707070 707070 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034275 034275 0   0   312040034271 0            707070707070 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 612
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0807

IT1	034275 0      0   0   312040034271 0            707070707070 
AT3	034275 0      0   0   000000034271 0            312040034271 
AT6	034275 034271 0   0   000000034271 0            312040034271 
FT0	034275 034271 0   0   707070707070 0            312040034271 
FT1A	034275 034271 0   0   707070707070 0            707070707070 
FT2	034275 034271 0   0   0            0            707070707070 
FT2RQ	034275 034271 0   0   707070707070 0            707070707070 
FT3	034275 034271 0   0   707070707070 0            707070707070 
FT9	034276 034271 0   0   707070707070 0            707070707070 
ET0	034277 034271 0   0   0            0            707070707070 
ST1A	034277 034271 0   0   0            0            707070707070 
ST9	034277 034271 0   0   0            0            707070707070 


*034277 JUMPA	0,034300
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034277 034277 0   0   324000034300 0            000000034300 
IT1	034277 0      0   0   324000034300 0            000000034300 
AT3	034277 0      0   0   000000034300 0            324000034300 
AT6	034277 0      0   0   000000034300 0            324000034300 
FT1A	034277 0      0   0   000000034300 0            000000034300 
FT2	034277 0      0   0   0            0            000000034300 
FT2RQ	034277 0      0   0   0            0            000000034300 
FT3	034277 0      0   0   0            0            000000034300 
FT9	0      0      0   0   0            0            000000034300 
ET0	0      0      0   0   0            0            000000034300 
ST1A	0      0      0   0   0            0            000000034300 
ST9	0      0      0   0   0            0            000000034300 


*034300 JRST	0,034303
INITIAL
C(AC)=000000 000000 
C(E)=402000 000001 
FINAL

C(E)=402000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   254000034303 0            254000034303 
IT1	0      0      0   0   254000034303 0            254000034303 
AT3	0      0      0   0   000000034303 0            254000034303 
AT6	0      034303 0   0   000000034303 0            254000034303 
FT1A	0      034303 0   0   000000034303 0            254000034303 
FT9	034301 034303 0   0   000000034303 0            254000034303 
ET0	034303 034301 0   0   000000034303 0            254000034303 
ST1A	034303 034301 0   0   000000034303 0            254000034303 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 613
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0808

ST9	034303 034301 0   0   000000034303 0            254000034303 


*034303 SETZM	0,000001
INITIAL
C(AC)=000000 000000 
C(E)=707070 707070 
FINAL

C(E)=707070 707070 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034303 034303 0   0   402000000001 0            000000000001 
IT1	034303 0      0   0   402000000001 0            000000000001 
AT3	034303 0      0   0   000000000001 0            402000000001 
AT6	034303 000001 0   0   000000000001 0            402000000001 
FT1A	034303 000001 0   0   000000000001 0            000000000001 
FT9	034304 000001 0   0   000000000001 0            000000000001 
ET0	034304 000001 0   0   0            0            000000000001 
ST6	034304 000001 0   0   0            0            000000000001 
ST6A	034304 000001 0   0   0            0            000000000001 
ST9	034304 000001 0   0   0            0            000000000001 


*034304 MOVE 	1,@034301
INITIAL
C(AC)=000000 000000 
C(E)=000000 034302 
FINAL
C(AC)=202020 202020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034304 034304 0   0   200060034301 0            202020202020 
IT1	034304 0      0   0   200060034301 0            202020202020 
AT3	034304 0      0   0   000000034301 0            200060034301 
AT4	034304 034301 0   0   000000034302 0            200060034301 
IT1	034304 0      0   0   000000034302 0            200060034301 
AT3	034304 0      0   0   000000034302 0            000000034302 
AT6	034304 034302 0   0   000000034302 0            000000034302 
FT0	034304 034302 0   0   202020202020 0            000000034302 
FT1A	034304 034302 0   0   202020202020 0            202020202020 
FT9	034305 034302 0   0   202020202020 0            202020202020 
ET0	034305 034302 0   0   202020202020 0            202020202020 
ST1	034305 034302 0   0   202020202020 0            202020202020 
ST2	034305 034302 0   0   202020202020 0            202020202020 
ST9	034305 034302 0   0   202020202020 0            202020202020 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 614
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0809

*034305 CAME	1,034302
INITIAL
C(AC)=202020 202020 
C(E)=202020 202020 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034305 034305 0   0   312040034302 0            202020202020 
IT1	034305 0      0   0   312040034302 0            202020202020 
AT3	034305 0      0   0   000000034302 0            312040034302 
AT6	034305 034302 0   0   000000034302 0            312040034302 
FT0	034305 034302 0   0   202020202020 0            312040034302 
FT1A	034305 034302 0   0   202020202020 0            202020202020 
FT2	034305 034302 0   0   0            0            202020202020 
FT2RQ	034305 034302 0   0   202020202020 0            202020202020 
FT3	034305 034302 0   0   202020202020 0            202020202020 
FT9	034306 034302 0   0   202020202020 0            202020202020 
ET0	034307 034302 0   0   0            0            202020202020 
ST1A	034307 034302 0   0   0            0            202020202020 
ST9	034307 034302 0   0   0            0            202020202020 


*034307 JUMPA	0,034310
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034307 034307 0   0   324000034310 0            000000034310 
IT1	034307 0      0   0   324000034310 0            000000034310 
AT3	034307 0      0   0   000000034310 0            324000034310 
AT6	034307 034310 0   0   000000034310 0            324000034310 
FT1A	034307 034310 0   0   000000034310 0            000000034310 
FT2	034307 034310 0   0   0            0            000000034310 
FT2RQ	034307 034310 0   0   0            0            000000034310 
FT3	034307 034310 0   0   0            0            000000034310 
FT9	034310 034310 0   0   0            0            000000034310 
ET0	034310 034310 0   0   0            0            000000034310 
ST1A	034310 034310 0   0   0            0            000000034310 
ST9	034310 034310 0   0   0            0            000000034310 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 615
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0810

*034310 JRST	0,034313
INITIAL
C(AC)=000000 000000 
C(E)=200040 034312 
FINAL

C(E)=200040 034312 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034310 034310 0   0   254000034313 0            254000034313 
IT1	034310 0      0   0   254000034313 0            254000034313 
AT3	034310 0      0   0   000000034313 0            254000034313 
AT6	034310 034313 0   0   000000034313 0            254000034313 
FT1A	034310 034313 0   0   000000034313 0            254000034313 
FT9	034311 034313 0   0   000000034313 0            254000034313 
ET0	034313 034311 0   0   000000034313 0            254000034313 
ST1A	034313 034311 0   0   000000034313 0            254000034313 
ST9	034313 034311 0   0   000000034313 0            254000034313 


*034313 MOVE 	1,034312
INITIAL
C(AC)=202020 202020 
C(E)=272727 272727 
FINAL
C(AC)=272727 272727 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034313 034313 0   0   200040034312 0            272727272727 
IT1	034313 0      0   0   200040034312 0            272727272727 
AT3	034313 0      0   0   000000034312 0            200040034312 
AT6	034313 034312 0   0   000000034312 0            200040034312 
FT0	034313 034312 0   0   272727272727 0            200040034312 
FT1A	034313 034312 0   0   272727272727 0            272727272727 
FT9	034314 034312 0   0   272727272727 0            272727272727 
ET0	034314 034312 0   0   272727272727 0            272727272727 
ST1	034314 034312 0   0   272727272727 0            272727272727 
ST2	034314 034312 0   0   272727272727 0            272727272727 
ST9	034314 034312 0   0   272727272727 0            272727272727 


*034314 CAME	1,@034311
INITIAL
C(AC)=272727 272727 
C(E)=272727 272727 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034314 034314 0   0   312060034311 0            272727272727 
IT1	034314 0      0   0   312060034311 0            272727272727 
AT3	034314 0      0   0   000000034311 0            312060034311 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 616
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0811

AT4	034314 034311 0   0   000000034312 0            312060034311 
IT1	034314 0      0   0   000000034312 0            312060034311 
AT3	034314 0      0   0   000000034312 0            000000034312 
AT6	034314 034312 0   0   000000034312 0            000000034312 
FT0	034314 034312 0   0   272727272727 0            000000034312 
FT1A	034314 034312 0   0   272727272727 0            272727272727 
FT2	034314 034312 0   0   0            0            272727272727 
FT2RQ	034314 034312 0   0   272727272727 0            272727272727 
FT3	034314 034312 0   0   272727272727 0            272727272727 
FT9	034315 034312 0   0   272727272727 0            272727272727 
ET0	034316 034312 0   0   0            0            272727272727 
ST1A	034316 034312 0   0   0            0            272727272727 
ST9	034316 034312 0   0   0            0            272727272727 


*034316 JUMPA	0,034317
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034316 034316 0   0   324000034317 0            000000034317 
IT1	034316 0      0   0   324000034317 0            000000034317 
AT3	034316 0      0   0   000000034317 0            324000034317 
AT6	034316 034317 0   0   000000034317 0            324000034317 
FT1A	034316 034317 0   0   000000034317 0            000000034317 
FT2	034316 034317 0   0   0            0            000000034317 
FT2RQ	034316 034317 0   0   0            0            000000034317 
FT3	034316 034317 0   0   0            0            000000034317 
FT9	034317 034317 0   0   0            0            000000034317 
ET0	034317 034317 0   0   0            0            000000034317 
ST1A	034317 034317 0   0   0            0            000000034317 
ST9	034317 034317 0   0   0            0            000000034317 


*034317 JRST	0,034321
INITIAL
C(AC)=000000 000000 
C(E)=201340 034320 
FINAL

C(E)=201340 034320 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034317 034317 0   0   254000034321 0            254000034321 
IT1	034317 0      0   0   254000034321 0            254000034321 
AT3	034317 0      0   0   000000034321 0            254000034321 
AT6	034317 034321 0   0   000000034321 0            254000034321 
FT1A	034317 034321 0   0   000000034321 0            254000034321 
FT9	034320 034321 0   0   000000034321 0            254000034321 
ET0	034321 034320 0   0   000000034321 0            254000034321 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 617
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0812

ST1A	034321 034320 0   0   000000034321 0            254000034321 
ST9	034321 034320 0   0   000000034321 0            254000034321 


*034321 MOVEI	7,034320
INITIAL
C(AC)=000000 034271 
FINAL
C(AC)=000000 034320 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034321 034321 0   0   201340034320 0            000000034320 
IT1	034321 0      0   0   201340034320 0            000000034320 
AT3	034321 0      0   0   000000034320 0            201340034320 
AT6	034321 034320 0   0   000000034320 0            201340034320 
FT1A	034321 034320 0   0   000000034320 0            000000034320 
FT9	034322 034320 0   0   000000034320 0            000000034320 
ET0	034322 034320 0   0   000000034320 0            000000034320 
ST1	034322 034320 0   0   000000034320 0            000000034320 
ST2	034322 034320 0   0   000000034320 0            000000034320 
ST9	034322 034320 0   0   000000034320 0            000000034320 


*034322 MOVE 	1,034320
INITIAL
C(AC)=272727 272727 
C(E)=252525 252525 
FINAL
C(AC)=252525 252525 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034322 034322 0   0   200040034320 0            252525252525 
IT1	034322 0      0   0   200040034320 0            252525252525 
AT3	034322 0      0   0   000000034320 0            200040034320 
AT6	034322 034320 0   0   000000034320 0            200040034320 
FT0	034322 034320 0   0   252525252525 0            200040034320 
FT1A	034322 034320 0   0   252525252525 0            252525252525 
FT9	034323 034320 0   0   252525252525 0            252525252525 
ET0	034323 034320 0   0   252525252525 0            252525252525 
ST1	034323 034320 0   0   252525252525 0            252525252525 
ST2	034323 034320 0   0   252525252525 0            252525252525 
ST9	034323 034320 0   0   252525252525 0            252525252525 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 618
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0813

*034323 CAME	1,@000007
INITIAL
C(AC)=252525 252525 
C(E)=252525 252525 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034323 034323 0   0   312060000007 0            252525252525 
IT1	034323 0      0   0   312060000007 0            252525252525 
AT3	034323 0      0   0   000000000007 0            312060000007 
AT4	034323 000007 0   0   000000034320 0            312060000007 
IT1	034323 0      0   0   000000034320 0            312060000007 
AT3	034323 0      0   0   000000034320 0            000000034320 
AT6	034323 034320 0   0   000000034320 0            000000034320 
FT0	034323 034320 0   0   252525252525 0            000000034320 
FT1A	034323 034320 0   0   252525252525 0            252525252525 
FT2	034323 034320 0   0   0            0            252525252525 
FT2RQ	034323 034320 0   0   252525252525 0            252525252525 
FT3	034323 034320 0   0   252525252525 0            252525252525 
FT9	034324 034320 0   0   252525252525 0            252525252525 
ET0	034325 034320 0   0   0            0            252525252525 
ST1A	034325 034320 0   0   0            0            252525252525 
ST9	034325 034320 0   0   0            0            252525252525 


*034325 JUMPA	0,034326
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034325 034325 0   0   324000034326 0            000000034326 
IT1	034325 0      0   0   324000034326 0            000000034326 
AT3	034325 0      0   0   000000034326 0            324000034326 
AT6	034325 034326 0   0   000000034326 0            324000034326 
FT1A	034325 034326 0   0   000000034326 0            000000034326 
FT2	034325 034326 0   0   0            0            000000034326 
FT2RQ	034325 034326 0   0   0            0            000000034326 
FT3	034325 034326 0   0   0            0            000000034326 
FT9	034326 034326 0   0   0            0            000000034326 
ET0	034326 034326 0   0   0            0            000000034326 
ST1A	034326 034326 0   0   0            0            000000034326 
ST9	034326 034326 0   0   0            0            000000034326 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 619
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0814

*034326 MOVEI	1,777774
INITIAL
C(AC)=252525 252525 
FINAL
C(AC)=000000 777774 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034326 034326 0   0   201040777774 0            000000777774 
IT1	034326 0      0   0   201040777774 0            000000777774 
AT3	034326 0      0   0   000000777774 0            201040777774 
AT6	034326 777774 0   0   000000777774 0            201040777774 
FT1A	034326 777774 0   0   000000777774 0            000000777774 
FT9	034327 777774 0   0   000000777774 0            000000777774 
ET0	034327 777774 0   0   000000777774 0            000000777774 
ST1	034327 777774 0   0   000000777774 0            000000777774 
ST2	034327 777774 0   0   000000777774 0            000000777774 
ST9	034327 777774 0   0   000000777774 0            000000777774 


*034327 MOVEI	3,000002
INITIAL
C(AC)=707070 707070 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034327 034327 0   0   201140000002 0            000000000002 
IT1	034327 0      0   0   201140000002 0            000000000002 
AT3	034327 0      0   0   000000000002 0            201140000002 
AT6	034327 000002 0   0   000000000002 0            201140000002 
FT1A	034327 000002 0   0   000000000002 0            000000000002 
FT9	034330 000002 0   0   000000000002 0            000000000002 
ET0	034330 000002 0   0   000000000002 0            000000000002 
ST1	034330 000002 0   0   000000000002 0            000000000002 
ST2	034330 000002 0   0   000000000002 0            000000000002 
ST9	034330 000002 0   0   000000000002 0            000000000002 


*034330 MOVEI	4,000010
INITIAL
C(AC)=000000 000004 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034330 034330 0   0   201200000010 0            000000000010 
IT1	034330 0      0   0   201200000010 0            000000000010 
AT3	034330 0      0   0   000000000010 0            201200000010 
AT6	034330 000010 0   0   000000000010 0            201200000010 
FT1A	034330 000010 0   0   000000000010 0            000000000010 
FT9	034331 000010 0   0   000000000010 0            000000000010 
ET0	034331 000010 0   0   000000000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 620
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0815

ST1	034331 000010 0   0   000000000010 0            000000000010 
ST2	034331 000010 0   0   000000000010 0            000000000010 
ST9	034331 000010 0   0   000000000010 0            000000000010 


*034331 MOVEI	5,000001
INITIAL
C(AC)=000000 000005 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034331 034331 0   0   201240000001 0            000000000001 
IT1	034331 0      0   0   201240000001 0            000000000001 
AT3	034331 0      0   0   000000000001 0            201240000001 
AT6	034331 000001 0   0   000000000001 0            201240000001 
FT1A	034331 000001 0   0   000000000001 0            000000000001 
FT9	034332 000001 0   0   000000000001 0            000000000001 
ET0	034332 000001 0   0   000000000001 0            000000000001 
ST1	034332 000001 0   0   000000000001 0            000000000001 
ST2	034332 000001 0   0   000000000001 0            000000000001 
ST9	034332 000001 0   0   000000000001 0            000000000001 


*034332 MOVEI	6,000005
INITIAL
C(AC)=000000 000006 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034332 034332 0   0   201300000005 0            000000000005 
IT1	034332 0      0   0   201300000005 0            000000000005 
AT3	034332 0      0   0   000000000005 0            201300000005 
AT6	034332 000005 0   0   000000000005 0            201300000005 
FT1A	034332 000005 0   0   000000000005 0            000000000005 
FT9	034333 000005 0   0   000000000005 0            000000000005 
ET0	034333 000005 0   0   000000000005 0            000000000005 
ST1	034333 000005 0   0   000000000005 0            000000000005 
ST2	034333 000005 0   0   000000000005 0            000000000005 
ST9	034333 000005 0   0   000000000005 0            000000000005 


*034333 MOVEI	7,000007
INITIAL
C(AC)=000000 034320 
FINAL
C(AC)=000000 000007 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034333 034333 0   0   201340000007 0            000000000007 
IT1	034333 0      0   0   201340000007 0            000000000007 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 621
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0816

AT3	034333 0      0   0   000000000007 0            201340000007 
AT6	034333 000007 0   0   000000000007 0            201340000007 
FT1A	034333 000007 0   0   000000000007 0            000000000007 
FT9	034334 000007 0   0   000000000007 0            000000000007 
ET0	034334 000007 0   0   000000000007 0            000000000007 
ST1	034334 000007 0   0   000000000007 0            000000000007 
ST2	034334 000007 0   0   000000000007 0            000000000007 
ST9	034334 000007 0   0   000000000007 0            000000000007 


*034334 MOVEI	10,000004
INITIAL
C(AC)=000000 000010 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034334 034334 0   0   201400000004 0            000000000004 
IT1	034334 0      0   0   201400000004 0            000000000004 
AT3	034334 0      0   0   000000000004 0            201400000004 
AT6	034334 000004 0   0   000000000004 0            201400000004 
FT1A	034334 000004 0   0   000000000004 0            000000000004 
FT9	034335 000004 0   0   000000000004 0            000000000004 
ET0	034335 000004 0   0   000000000004 0            000000000004 
ST1	034335 000004 0   0   000000000004 0            000000000004 
ST2	034335 000004 0   0   000000000004 0            000000000004 
ST9	034335 000004 0   0   000000000004 0            000000000004 


*034335 MOVEI	11,777772
INITIAL
C(AC)=000000 000011 
FINAL
C(AC)=000000 777772 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034335 034335 0   0   201440777772 0            000000777772 
IT1	034335 0      0   0   201440777772 0            000000777772 
AT3	034335 0      0   0   000000777772 0            201440777772 
AT6	034335 777772 0   0   000000777772 0            201440777772 
FT1A	034335 777772 0   0   000000777772 0            000000777772 
FT9	034336 777772 0   0   000000777772 0            000000777772 
ET0	034336 777772 0   0   000000777772 0            000000777772 
ST1	034336 777772 0   0   000000777772 0            000000777772 
ST2	034336 777772 0   0   000000777772 0            000000777772 
ST9	034336 777772 0   0   000000777772 0            000000777772 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 622
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0817

*034336 MOVEI	12,000005
INITIAL
C(AC)=000000 000012 
FINAL
C(AC)=000000 000005 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034336 034336 0   0   201500000005 0            000000000005 
IT1	034336 0      0   0   201500000005 0            000000000005 
AT3	034336 0      0   0   000000000005 0            201500000005 
AT6	034336 000005 0   0   000000000005 0            201500000005 
FT1A	034336 000005 0   0   000000000005 0            000000000005 
FT9	034337 000005 0   0   000000000005 0            000000000005 
ET0	034337 000005 0   0   000000000005 0            000000000005 
ST1	034337 000005 0   0   000000000005 0            000000000005 
ST2	034337 000005 0   0   000000000005 0            000000000005 
ST9	034337 000005 0   0   000000000005 0            000000000005 


*034337 MOVEI	13,000002
INITIAL
C(AC)=000000 000013 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034337 034337 0   0   201540000002 0            000000000002 
IT1	034337 0      0   0   201540000002 0            000000000002 
AT3	034337 0      0   0   000000000002 0            201540000002 
AT6	034337 000002 0   0   000000000002 0            201540000002 
FT1A	034337 000002 0   0   000000000002 0            000000000002 
FT9	034340 000002 0   0   000000000002 0            000000000002 
ET0	034340 000002 0   0   000000000002 0            000000000002 
ST1	034340 000002 0   0   000000000002 0            000000000002 
ST2	034340 000002 0   0   000000000002 0            000000000002 
ST9	034340 000002 0   0   000000000002 0            000000000002 


*034340 JRST	0,034371
INITIAL
C(AC)=000000 000000 
C(E)=476000 000002 
FINAL

C(E)=476000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034340 034340 0   0   254000034371 0            254000034371 
IT1	034340 0      0   0   254000034371 0            254000034371 
AT3	034340 0      0   0   000000034371 0            254000034371 
AT6	034340 034371 0   0   000000034371 0            254000034371 
FT1A	034340 034371 0   0   000000034371 0            254000034371 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 623
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0818

FT9	034341 034371 0   0   000000034371 0            254000034371 
ET0	034371 034341 0   0   000000034371 0            254000034371 
ST1A	034371 034341 0   0   000000034371 0            254000034371 
ST9	034371 034341 0   0   000000034371 0            254000034371 


*034371 SETOM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL

C(E)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034371 034371 0   0   476000000002 0            000000000002 
IT1	034371 0      0   0   476000000002 0            000000000002 
AT3	034371 0      0   0   000000000002 0            476000000002 
AT6	034371 000002 0   0   000000000002 0            476000000002 
FT1A	034371 000002 0   0   000000000002 0            000000000002 
FT9	034372 000002 0   0   000000000002 0            000000000002 
ET0	034372 000002 0   0   777777777777 0            000000000002 
ST6	034372 000002 0   0   777777777777 0            000000000002 
ST6A	034372 000002 0   0   777777777777 0            000000000002 
ST9	034372 000002 0   0   777777777777 0            000000000002 


*034372 MOVE 	2,@034341
INITIAL
C(AC)=777777 777777 
C(E)=000003 034344 
FINAL
C(AC)=217217 217217 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034372 034372 0   0   200120034341 0            217217217217 
IT1	034372 0      0   0   200120034341 0            217217217217 
AT3	034372 0      0   0   000000034341 0            200120034341 
AT4	034372 034341 0   0   000003034344 0            200120034341 
IT1	034372 0      0   0   000003034344 0            200120034341 
AT1	034372 0      0   0   0            0            000003034344 
AT2	034372 0      0   0   000000000002 0            000003034344 
AT3	034372 0      0   0   000000034346 0            000000034346 
AT6	034372 034346 0   0   000000034346 0            000000034346 
FT0	034372 034346 0   0   217217217217 0            000000034346 
FT1A	034372 034346 0   0   217217217217 0            217217217217 
FT9	034373 034346 0   0   217217217217 0            217217217217 
ET0	034373 034346 0   0   217217217217 0            217217217217 
ST1	034373 034346 0   0   217217217217 0            217217217217 
ST2	034373 034346 0   0   217217217217 0            217217217217 
ST9	034373 034346 0   0   217217217217 0            217217217217 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 624
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0819


*034373 CAME	2,034346
INITIAL
C(AC)=217217 217217 
C(E)=217217 217217 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034373 034373 0   0   312100034346 0            217217217217 
IT1	034373 0      0   0   312100034346 0            217217217217 
AT3	034373 0      0   0   000000034346 0            312100034346 
AT6	034373 034346 0   0   000000034346 0            312100034346 
FT0	034373 034346 0   0   217217217217 0            312100034346 
FT1A	034373 034346 0   0   217217217217 0            217217217217 
FT2	034373 034346 0   0   0            0            217217217217 
FT2RQ	034373 034346 0   0   217217217217 0            217217217217 
FT3	034373 034346 0   0   217217217217 0            217217217217 
FT9	034374 034346 0   0   217217217217 0            217217217217 
ET0	034375 034346 0   0   0            0            217217217217 
ST1A	034375 034346 0   0   0            0            217217217217 
ST9	034375 034346 0   0   0            0            217217217217 


*034375 JUMPA	0,034376
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034375 034375 0   0   324000034376 0            000000034376 
IT1	034375 0      0   0   324000034376 0            000000034376 
AT3	034375 0      0   0   000000034376 0            324000034376 
AT6	034375 034376 0   0   000000034376 0            324000034376 
FT1A	034375 034376 0   0   000000034376 0            000000034376 
FT2	034375 034376 0   0   0            0            000000034376 
FT2RQ	034375 034376 0   0   0            0            000000034376 
FT3	034375 034376 0   0   0            0            000000034376 
FT9	034376 034376 0   0   0            0            000000034376 
ET0	034376 034376 0   0   0            0            000000034376 
ST1A	034376 034376 0   0   0            0            000000034376 
ST9	034376 034376 0   0   0            0            000000034376 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 625
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0820

*034376 SETZM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=217217 217217 
FINAL

C(E)=217217 217217 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034376 034376 0   0   402000000002 0            000000000002 
IT1	034376 0      0   0   402000000002 0            000000000002 
AT3	034376 0      0   0   000000000002 0            402000000002 
AT6	034376 000002 0   0   000000000002 0            402000000002 
FT1A	034376 000002 0   0   000000000002 0            000000000002 
FT9	034377 000002 0   0   000000000002 0            000000000002 
ET0	034377 000002 0   0   0            0            000000000002 
ST6	034377 000002 0   0   0            0            000000000002 
ST6A	034377 000002 0   0   0            0            000000000002 
ST9	034377 000002 0   0   0            0            000000000002 


*034377 MOVE 	2,@034342
INITIAL
C(AC)=000000 000000 
C(E)=000020 034347 
FINAL
C(AC)=220220 220220 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034377 034377 0   0   200120034342 0            220220220220 
IT1	034377 0      0   0   200120034342 0            220220220220 
AT3	034377 0      0   0   000000034342 0            200120034342 
AT4	034377 034342 0   0   000020034347 0            200120034342 
IT1	034377 0      0   0   000020034347 0            200120034342 
AT3	034377 0      0   0   000000034347 0            000020034347 
AT4	034377 034347 0   0   000000034343 0            000020034347 
IT1	034377 0      0   0   000000034343 0            000020034347 
AT3	034377 0      0   0   000000034343 0            000000034343 
AT6	034377 034343 0   0   000000034343 0            000000034343 
FT0	034377 034343 0   0   220220220220 0            000000034343 
FT1A	034377 034343 0   0   220220220220 0            220220220220 
FT9	0      034343 0   0   220220220220 0            220220220220 
ET0	0      034343 0   0   220220220220 0            220220220220 
ST1	0      034343 0   0   220220220220 0            220220220220 
ST2	0      034343 0   0   220220220220 0            220220220220 
ST9	0      034343 0   0   220220220220 0            220220220220 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 626
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0821

*034400 CAME	2,034343
INITIAL
C(AC)=220220 220220 
C(E)=220220 220220 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   312100034343 0            220220220220 
IT1	0      0      0   0   312100034343 0            220220220220 
AT3	0      0      0   0   000000034343 0            312100034343 
AT6	0      034343 0   0   000000034343 0            312100034343 
FT0	0      034343 0   0   220220220220 0            312100034343 
FT1A	0      034343 0   0   220220220220 0            220220220220 
FT2	0      034343 0   0   0            0            220220220220 
FT2RQ	0      034343 0   0   220220220220 0            220220220220 
FT3	0      034343 0   0   220220220220 0            220220220220 
FT9	034401 034343 0   0   220220220220 0            220220220220 
ET0	034402 034343 0   0   0            0            220220220220 
ST1A	034402 034343 0   0   0            0            220220220220 
ST9	034402 034343 0   0   0            0            220220220220 


*034402 JUMPA	0,034403
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034402 034402 0   0   324000034403 0            000000034403 
IT1	034402 0      0   0   324000034403 0            000000034403 
AT3	034402 0      0   0   000000034403 0            324000034403 
AT6	034402 034403 0   0   000000034403 0            324000034403 
FT1A	034402 034403 0   0   000000034403 0            000000034403 
FT2	034402 034403 0   0   0            0            000000034403 
FT2RQ	034402 034403 0   0   0            0            000000034403 
FT3	034402 034403 0   0   0            0            000000034403 
FT9	034403 034403 0   0   0            0            000000034403 
ET0	034403 034403 0   0   0            0            000000034403 
ST1A	034403 034403 0   0   0            0            000000034403 
ST9	034403 034403 0   0   0            0            000000034403 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 627
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0822

*034403 SETOM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=220220 220220 
FINAL

C(E)=220220 220220 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034403 034403 0   0   476000000002 0            000000000002 
IT1	034403 0      0   0   476000000002 0            000000000002 
AT3	034403 0      0   0   000000000002 0            476000000002 
AT6	034403 000002 0   0   000000000002 0            476000000002 
FT1A	034403 000002 0   0   000000000002 0            000000000002 
FT9	034404 000002 0   0   000000000002 0            000000000002 
ET0	034404 000002 0   0   777777777777 0            000000000002 
ST6	034404 000002 0   0   777777777777 0            000000000002 
ST6A	034404 000002 0   0   777777777777 0            000000000002 
ST9	034404 000002 0   0   777777777777 0            000000000002 


*034404 MOVE 	2,034350(1)
INITIAL
C(AC)=777777 777777 
C(E)=000000 034350 
FINAL
C(AC)=000020 034351 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034404 034404 0   0   200101034350 0            000020034351 
IT1	034404 0      0   0   200101034350 0            000020034351 
AT1	034404 0      0   0   0            0            200101034350 
AT2	034404 0      0   0   000000777774 0            200101034350 
AT3	034404 0      0   0   000000034344 0            000000034344 
AT6	034404 034344 0   0   000000034344 0            000000034344 
FT0	034404 034344 0   0   000020034351 0            000000034344 
FT1A	034404 034344 0   0   000020034351 0            000020034351 
FT9	034405 034344 0   0   000020034351 0            000020034351 
ET0	034405 034344 0   0   000020034351 0            000020034351 
ST1	034405 034344 0   0   000020034351 0            000020034351 
ST2	034405 034344 0   0   000020034351 0            000020034351 
ST9	034405 034344 0   0   000020034351 0            000020034351 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 628
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0823

*034405 CAME	2,034344
INITIAL
C(AC)=000020 034351 
C(E)=000020 034351 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034405 034405 0   0   312100034344 0            000020034351 
IT1	034405 0      0   0   312100034344 0            000020034351 
AT3	034405 0      0   0   000000034344 0            312100034344 
AT6	034405 034344 0   0   000000034344 0            312100034344 
FT0	034405 034344 0   0   000020034351 0            312100034344 
FT1A	034405 034344 0   0   000020034351 0            000020034351 
FT2	034405 034344 0   0   0            0            000020034351 
FT2RQ	034405 034344 0   0   000020034351 0            000020034351 
FT3	034405 034344 0   0   000020034351 0            000020034351 
FT9	034406 034344 0   0   000020034351 0            000020034351 
ET0	034407 034344 0   0   0            0            000020034351 
ST1A	034407 034344 0   0   0            0            000020034351 
ST9	034407 034344 0   0   0            0            000020034351 


*034407 JUMPA	0,034410
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034407 034407 0   0   324000034410 0            000000034410 
IT1	034407 0      0   0   324000034410 0            000000034410 
AT3	034407 0      0   0   000000034410 0            324000034410 
AT6	034407 034410 0   0   000000034410 0            324000034410 
FT1A	034407 034410 0   0   000000034410 0            000000034410 
FT2	034407 034410 0   0   0            0            000000034410 
FT2RQ	034407 034410 0   0   0            0            000000034410 
FT3	034407 034410 0   0   0            0            000000034410 
FT9	034410 034410 0   0   0            0            000000034410 
ET0	034410 034410 0   0   0            0            000000034410 
ST1A	034410 034410 0   0   0            0            000000034410 
ST9	034410 034410 0   0   0            0            000000034410 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 629
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0824

*034410 SETZM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=000020 034351 
FINAL

C(E)=000020 034351 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034410 034410 0   0   402000000002 0            000000000002 
IT1	034410 0      0   0   402000000002 0            000000000002 
AT3	034410 0      0   0   000000000002 0            402000000002 
AT6	034410 000002 0   0   000000000002 0            402000000002 
FT1A	034410 000002 0   0   000000000002 0            000000000002 
FT9	034411 000002 0   0   000000000002 0            000000000002 
ET0	034411 000002 0   0   0            0            000000000002 
ST6	034411 000002 0   0   0            0            000000000002 
ST6A	034411 000002 0   0   0            0            000000000002 
ST9	034411 000002 0   0   0            0            000000000002 


*034411 MOVE 	2,034352(6)
INITIAL
C(AC)=000000 000000 
C(E)=000000 034350 
FINAL
C(AC)=000007 034346 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034411 034411 0   0   200106034352 0            000007034346 
IT1	034411 0      0   0   200106034352 0            000007034346 
AT1	034411 0      0   0   0            0            200106034352 
AT2	034411 0      0   0   000000000005 0            200106034352 
AT3	034411 0      0   0   000000034357 0            000000034357 
AT6	034411 034357 0   0   000000034357 0            000000034357 
FT0	034411 034357 0   0   000007034346 0            000000034357 
FT1A	034411 034357 0   0   000007034346 0            000007034346 
FT9	034412 034357 0   0   000007034346 0            000007034346 
ET0	034412 034357 0   0   000007034346 0            000007034346 
ST1	034412 034357 0   0   000007034346 0            000007034346 
ST2	034412 034357 0   0   000007034346 0            000007034346 
ST9	034412 034357 0   0   000007034346 0            000007034346 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 630
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0825

*034412 CAME	2,034357
INITIAL
C(AC)=000007 034346 
C(E)=000007 034346 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034412 034412 0   0   312100034357 0            000007034346 
IT1	034412 0      0   0   312100034357 0            000007034346 
AT3	034412 0      0   0   000000034357 0            312100034357 
AT6	034412 034357 0   0   000000034357 0            312100034357 
FT0	034412 034357 0   0   000007034346 0            312100034357 
FT1A	034412 034357 0   0   000007034346 0            000007034346 
FT2	034412 034357 0   0   0            0            000007034346 
FT2RQ	034412 034357 0   0   000007034346 0            000007034346 
FT3	034412 034357 0   0   000007034346 0            000007034346 
FT9	034413 034357 0   0   000007034346 0            000007034346 
ET0	034414 034357 0   0   0            0            000007034346 
ST1A	034414 034357 0   0   0            0            000007034346 
ST9	034414 034357 0   0   0            0            000007034346 


*034414 JUMPA	0,034415
INITIAL
C(AC)=000000 000000 
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   0            0            000000034415 
FT3	034414 034415 0   0   0            0            000000034415 
FT9	034415 034415 0   0   0            0            000000034415 
ET0	034415 034415 0   0   0            0            000000034415 
ST1A	034415 034415 0   0   0            0            000000034415 
ST9	034415 034415 0   0   0            0            000000034415 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 631
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0826

*034415 SETOM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=000007 034346 
FINAL

C(E)=000007 034346 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034415 034415 0   0   476000000002 0            000000000002 
IT1	034415 0      0   0   476000000002 0            000000000002 
AT3	034415 0      0   0   000000000002 0            476000000002 
AT6	034415 000002 0   0   000000000002 0            476000000002 
FT1A	034415 000002 0   0   000000000002 0            000000000002 
FT9	034416 000002 0   0   000000000002 0            000000000002 
ET0	034416 000002 0   0   777777777777 0            000000000002 
ST6	034416 000002 0   0   777777777777 0            000000000002 
ST6A	034416 000002 0   0   777777777777 0            000000000002 
ST9	034416 000002 0   0   777777777777 0            000000000002 


*034416 MOVE 	2,@034362(10)
INITIAL
C(AC)=777777 777777 
C(E)=000000 034362 
FINAL
C(AC)=223223 223223 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034416 034416 0   0   200130034362 0            223223223223 
IT1	034416 0      0   0   200130034362 0            223223223223 
AT1	034416 0      0   0   0            0            200130034362 
AT2	034416 0      0   0   000000000004 0            200130034362 
AT3	034416 0      0   0   000000034366 0            000000034366 
AT4	034416 034366 0   0   000000034353 0            000000034366 
IT1	034416 0      0   0   000000034353 0            000000034366 
AT3	034416 0      0   0   000000034353 0            000000034353 
AT6	034416 034353 0   0   000000034353 0            000000034353 
FT0	034416 034353 0   0   223223223223 0            000000034353 
FT1A	034416 034353 0   0   223223223223 0            223223223223 
FT9	034417 034353 0   0   223223223223 0            223223223223 
ET0	034417 034353 0   0   223223223223 0            223223223223 
ST1	034417 034353 0   0   223223223223 0            223223223223 
ST2	034417 034353 0   0   223223223223 0            223223223223 
ST9	034417 034353 0   0   223223223223 0            223223223223 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 632
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0827

*034417 CAME	2,034353
INITIAL
C(AC)=223223 223223 
C(E)=223223 223223 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034417 034417 0   0   312100034353 0            223223223223 
IT1	034417 0      0   0   312100034353 0            223223223223 
AT3	034417 0      0   0   000000034353 0            312100034353 
AT6	034417 034353 0   0   000000034353 0            312100034353 
FT0	034417 034353 0   0   223223223223 0            312100034353 
FT1A	034417 034353 0   0   223223223223 0            223223223223 
FT2	034417 034353 0   0   0            0            223223223223 
FT2RQ	034417 034353 0   0   223223223223 0            223223223223 
FT3	034417 034353 0   0   223223223223 0            223223223223 
FT9	034420 034353 0   0   223223223223 0            223223223223 
ET0	034421 034353 0   0   0            0            223223223223 
ST1A	034421 034353 0   0   0            0            223223223223 
ST9	034421 034353 0   0   0            0            223223223223 


*034421 JUMPA	0,034422
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034421 034421 0   0   324000034422 0            000000034422 
IT1	034421 0      0   0   324000034422 0            000000034422 
AT3	034421 0      0   0   000000034422 0            324000034422 
AT6	034421 034422 0   0   000000034422 0            324000034422 
FT1A	034421 034422 0   0   000000034422 0            000000034422 
FT2	034421 034422 0   0   0            0            000000034422 
FT2RQ	034421 034422 0   0   0            0            000000034422 
FT3	034421 034422 0   0   0            0            000000034422 
FT9	034422 034422 0   0   0            0            000000034422 
ET0	034422 034422 0   0   0            0            000000034422 
ST1A	034422 034422 0   0   0            0            000000034422 
ST9	034422 034422 0   0   0            0            000000034422 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 633
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0828

*034422 SETZM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=223223 223223 
FINAL

C(E)=223223 223223 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034422 034422 0   0   402000000002 0            000000000002 
IT1	034422 0      0   0   402000000002 0            000000000002 
AT3	034422 0      0   0   000000000002 0            402000000002 
AT6	034422 000002 0   0   000000000002 0            402000000002 
FT1A	034422 000002 0   0   000000000002 0            000000000002 
FT9	034423 000002 0   0   000000000002 0            000000000002 
ET0	034423 000002 0   0   0            0            000000000002 
ST6	034423 000002 0   0   0            0            000000000002 
ST6A	034423 000002 0   0   0            0            000000000002 
ST9	034423 000002 0   0   0            0            000000000002 


*034423 MOVE 	2,@034362(11)
INITIAL
C(AC)=000000 000000 
C(E)=000000 034362 
FINAL
C(AC)=224224 224224 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034423 034423 0   0   200131034362 0            224224224224 
IT1	034423 0      0   0   200131034362 0            224224224224 
AT1	034423 0      0   0   0            0            200131034362 
AT2	034423 0      0   0   000000777772 0            200131034362 
AT3	034423 0      0   0   000000034354 0            000000034354 
AT4	034423 034354 0   0   000004034354 0            000000034354 
IT1	034423 0      0   0   000004034354 0            000000034354 
AT1	034423 0      0   0   0            0            000004034354 
AT2	034423 0      0   0   000000000010 0            000004034354 
AT3	034423 0      0   0   000000034364 0            000000034364 
AT6	034423 034364 0   0   000000034364 0            000000034364 
FT0	034423 034364 0   0   224224224224 0            000000034364 
FT1A	034423 034364 0   0   224224224224 0            224224224224 
FT9	034424 034364 0   0   224224224224 0            224224224224 
ET0	034424 034364 0   0   224224224224 0            224224224224 
ST1	034424 034364 0   0   224224224224 0            224224224224 
ST2	034424 034364 0   0   224224224224 0            224224224224 
ST9	034424 034364 0   0   224224224224 0            224224224224 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 634
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0829

*034424 CAME	2,034364
INITIAL
C(AC)=224224 224224 
C(E)=224224 224224 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034424 034424 0   0   312100034364 0            224224224224 
IT1	034424 0      0   0   312100034364 0            224224224224 
AT3	034424 0      0   0   000000034364 0            312100034364 
AT6	034424 034364 0   0   000000034364 0            312100034364 
FT0	034424 034364 0   0   224224224224 0            312100034364 
FT1A	034424 034364 0   0   224224224224 0            224224224224 
FT2	034424 034364 0   0   0            0            224224224224 
FT2RQ	034424 034364 0   0   224224224224 0            224224224224 
FT3	034424 034364 0   0   224224224224 0            224224224224 
FT9	034425 034364 0   0   224224224224 0            224224224224 
ET0	034426 034364 0   0   0            0            224224224224 
ST1A	034426 034364 0   0   0            0            224224224224 
ST9	034426 034364 0   0   0            0            224224224224 


*034426 JUMPA	0,034427
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034426 034426 0   0   324000034427 0            000000034427 
IT1	034426 0      0   0   324000034427 0            000000034427 
AT3	034426 0      0   0   000000034427 0            324000034427 
AT6	034426 034427 0   0   000000034427 0            324000034427 
FT1A	034426 034427 0   0   000000034427 0            000000034427 
FT2	034426 034427 0   0   0            0            000000034427 
FT2RQ	034426 034427 0   0   0            0            000000034427 
FT3	034426 034427 0   0   0            0            000000034427 
FT9	034427 034427 0   0   0            0            000000034427 
ET0	034427 034427 0   0   0            0            000000034427 
ST1A	034427 034427 0   0   0            0            000000034427 
ST9	034427 034427 0   0   0            0            000000034427 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 635
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0830

*034427 SETOM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=224224 224224 
FINAL

C(E)=224224 224224 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034427 034427 0   0   476000000002 0            000000000002 
IT1	034427 0      0   0   476000000002 0            000000000002 
AT3	034427 0      0   0   000000000002 0            476000000002 
AT6	034427 000002 0   0   000000000002 0            476000000002 
FT1A	034427 000002 0   0   000000000002 0            000000000002 
FT9	034430 000002 0   0   000000000002 0            000000000002 
ET0	034430 000002 0   0   777777777777 0            000000000002 
ST6	034430 000002 0   0   777777777777 0            000000000002 
ST6A	034430 000002 0   0   777777777777 0            000000000002 
ST9	034430 000002 0   0   777777777777 0            000000000002 


*034430 MOVE 	2,@034356(13)
INITIAL
C(AC)=777777 777777 
C(E)=000000 034356 
FINAL
C(AC)=225225 225225 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034430 034430 0   0   200133034356 0            225225225225 
IT1	034430 0      0   0   200133034356 0            225225225225 
AT1	034430 0      0   0   0            0            200133034356 
AT2	034430 0      0   0   000000000002 0            200133034356 
AT3	034430 0      0   0   000000034360 0            000000034360 
AT4	034430 034360 0   0   000020034363 0            000000034360 
IT1	034430 0      0   0   000020034363 0            000000034360 
AT3	034430 0      0   0   000000034363 0            000020034363 
AT4	034430 034363 0   0   000000034361 0            000020034363 
IT1	034430 0      0   0   000000034361 0            000020034363 
AT3	034430 0      0   0   000000034361 0            000000034361 
AT6	034430 034361 0   0   000000034361 0            000000034361 
FT0	034430 034361 0   0   225225225225 0            000000034361 
FT1A	034430 034361 0   0   225225225225 0            225225225225 
FT9	034431 034361 0   0   225225225225 0            225225225225 
ET0	034431 034361 0   0   225225225225 0            225225225225 
ST1	034431 034361 0   0   225225225225 0            225225225225 
ST2	034431 034361 0   0   225225225225 0            225225225225 
ST9	034431 034361 0   0   225225225225 0            225225225225 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 636
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0831

*034431 CAME	2,034361
INITIAL
C(AC)=225225 225225 
C(E)=225225 225225 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034431 034431 0   0   312100034361 0            225225225225 
IT1	034431 0      0   0   312100034361 0            225225225225 
AT3	034431 0      0   0   000000034361 0            312100034361 
AT6	034431 034361 0   0   000000034361 0            312100034361 
FT0	034431 034361 0   0   225225225225 0            312100034361 
FT1A	034431 034361 0   0   225225225225 0            225225225225 
FT2	034431 034361 0   0   0            0            225225225225 
FT2RQ	034431 034361 0   0   225225225225 0            225225225225 
FT3	034431 034361 0   0   225225225225 0            225225225225 
FT9	034432 034361 0   0   225225225225 0            225225225225 
ET0	034433 034361 0   0   0            0            225225225225 
ST1A	034433 034361 0   0   0            0            225225225225 
ST9	034433 034361 0   0   0            0            225225225225 


*034433 JUMPA	0,034434
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034433 034433 0   0   324000034434 0            000000034434 
IT1	034433 0      0   0   324000034434 0            000000034434 
AT3	034433 0      0   0   000000034434 0            324000034434 
AT6	034433 034434 0   0   000000034434 0            324000034434 
FT1A	034433 034434 0   0   000000034434 0            000000034434 
FT2	034433 034434 0   0   0            0            000000034434 
FT2RQ	034433 034434 0   0   0            0            000000034434 
FT3	034433 034434 0   0   0            0            000000034434 
FT9	034434 034434 0   0   0            0            000000034434 
ET0	034434 034434 0   0   0            0            000000034434 
ST1A	034434 034434 0   0   0            0            000000034434 
ST9	034434 034434 0   0   0            0            000000034434 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 637
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0832

*034434 SETZM	0,000002
INITIAL
C(AC)=000000 000000 
C(E)=225225 225225 
FINAL

C(E)=225225 225225 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034434 034434 0   0   402000000002 0            000000000002 
IT1	034434 0      0   0   402000000002 0            000000000002 
AT3	034434 0      0   0   000000000002 0            402000000002 
AT6	034434 000002 0   0   000000000002 0            402000000002 
FT1A	034434 000002 0   0   000000000002 0            000000000002 
FT9	034435 000002 0   0   000000000002 0            000000000002 
ET0	034435 000002 0   0   0            0            000000000002 
ST6	034435 000002 0   0   0            0            000000000002 
ST6A	034435 000002 0   0   0            0            000000000002 
ST9	034435 000002 0   0   0            0            000000000002 


*034435 MOVE 	2,@034362(12)
INITIAL
C(AC)=000000 000000 
C(E)=000000 034362 
FINAL
C(AC)=226226 226226 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034435 034435 0   0   200132034362 0            226226226226 
IT1	034435 0      0   0   200132034362 0            226226226226 
AT1	034435 0      0   0   0            0            200132034362 
AT2	034435 0      0   0   000000000005 0            200132034362 
AT3	034435 0      0   0   000000034367 0            000000034367 
AT4	034435 034367 0   0   000025034367 0            000000034367 
IT1	034435 0      0   0   000025034367 0            000000034367 
AT1	034435 0      0   0   0            0            000025034367 
AT2	034435 0      0   0   000000000001 0            000025034367 
AT3	034435 0      0   0   000000034370 0            000000034370 
AT4	034435 034370 0   0   000000034365 0            000000034370 
IT1	034435 0      0   0   000000034365 0            000000034370 
AT3	034435 0      0   0   000000034365 0            000000034365 
AT6	034435 034365 0   0   000000034365 0            000000034365 
FT0	034435 034365 0   0   226226226226 0            000000034365 
FT1A	034435 034365 0   0   226226226226 0            226226226226 
FT9	034436 034365 0   0   226226226226 0            226226226226 
ET0	034436 034365 0   0   226226226226 0            226226226226 
ST1	034436 034365 0   0   226226226226 0            226226226226 
ST2	034436 034365 0   0   226226226226 0            226226226226 
ST9	034436 034365 0   0   226226226226 0            226226226226 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 638
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0833

*034436 CAME	2,034365
INITIAL
C(AC)=226226 226226 
C(E)=226226 226226 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034436 034436 0   0   312100034365 0            226226226226 
IT1	034436 0      0   0   312100034365 0            226226226226 
AT3	034436 0      0   0   000000034365 0            312100034365 
AT6	034436 034365 0   0   000000034365 0            312100034365 
FT0	034436 034365 0   0   226226226226 0            312100034365 
FT1A	034436 034365 0   0   226226226226 0            226226226226 
FT2	034436 034365 0   0   0            0            226226226226 
FT2RQ	034436 034365 0   0   226226226226 0            226226226226 
FT3	034436 034365 0   0   226226226226 0            226226226226 
FT9	034437 034365 0   0   226226226226 0            226226226226 
ET0	034440 034365 0   0   0            0            226226226226 
ST1A	034440 034365 0   0   0            0            226226226226 
ST9	034440 034365 0   0   0            0            226226226226 


*034440 JUMPA	0,034441
INITIAL
C(AC)=000000 000000 
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   0            0            000000034441 
FT3	034440 034441 0   0   0            0            000000034441 
FT9	034441 034441 0   0   0            0            000000034441 
ET0	034441 034441 0   0   0            0            000000034441 
ST1A	034441 034441 0   0   0            0            000000034441 
ST9	034441 034441 0   0   0            0            000000034441 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 639
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0834

*034441 JRST	0,030057
INITIAL
C(AC)=000000 000000 
C(E)=254000 030641 
FINAL

C(E)=254000 030641 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	034441 034441 0   0   254000030057 0            254000030057 
IT1	034441 0      0   0   254000030057 0            254000030057 
AT3	034441 0      0   0   000000030057 0            254000030057 
AT6	034441 030057 0   0   000000030057 0            254000030057 
FT1A	034441 030057 0   0   000000030057 0            254000030057 
FT9	034442 030057 0   0   000000030057 0            254000030057 
ET0	030057 034442 0   0   000000030057 0            254000030057 
ST1A	030057 034442 0   0   000000030057 0            254000030057 
ST9	030057 034442 0   0   000000030057 0            254000030057 


*030057 JRST	0,030641
INITIAL
C(AC)=000000 000000 
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 


*030641 AOS 	0,030047
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 
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 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 640
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0835

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)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000000 
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 


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

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            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 641
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0836

*030644 JRST	0,030652
INITIAL
C(AC)=000000 000000 
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)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

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 
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   000000000002 0            000000030024 
FT3	030654 030024 0   0   000000000002 0            000000030024 
FT9	030655 030024 0   0   000000000002 0            000000030024 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 642
DAKAD	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0837

ST1	030655 030024 0   0   000000000002 0            000000030024 
ST2	030655 030024 0   0   000000000002 0            000000030024 
ST9	030655 030024 0   0   000000000002 0            000000030024 


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

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            


*030657 JRST	0,@030012
INITIAL
C(AC)=000000 000000 
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